Changeset 27395 in project
- Timestamp:
- 09/09/12 00:44:59 (9 years ago)
- Location:
- release/4/endian-port/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/endian-port/trunk/endian-port.scm
r27394 r27395 506 506 (let loop ((i 0) (bytes 0)) 507 507 (if (< i len) 508 (loop (+ i 1) (+ bytes (endian-port-write- int1 eport (u8vector-ref u8vect i))))508 (loop (+ i 1) (+ bytes (endian-port-write-uint1 eport (u8vector-ref u8vect i)))) 509 509 bytes)) 510 510 (let loop ((i (- len 1)) (bytes 0)) 511 511 (if (positive? i) 512 (loop (- i 1) (+ bytes (endian-port-write- int1 eport (u8vector-ref u8vect i))))512 (loop (- i 1) (+ bytes (endian-port-write-uint1 eport (u8vector-ref u8vect i)))) 513 513 bytes)))))) 514 514 … … 543 543 (if (bit-vector-ref (+ i 6) bv) #b00000010 0) 544 544 (if (bit-vector-ref (+ i 7) bv) #b00000001 0)))) 545 (loop (+ i 8) (+ bytes (endian-port-write- int1 eport byte))))545 (loop (+ i 8) (+ bytes (endian-port-write-uint1 eport byte)))) 546 546 bytes)) 547 547 (let loop ((i (- len 1)) (bytes 0)) … … 555 555 (if (bit-vector-ref (- i 6) bv) #b01000000 0) 556 556 (if (bit-vector-ref (- i 7) bv) #b10000000 0)))) 557 (loop (- i 8) (+ bytes (endian-port-write- int1 eport byte)))557 (loop (- i 8) (+ bytes (endian-port-write-uint1 eport byte))) 558 558 bytes))))))) 559 559 ) ;; end of module -
release/4/endian-port/trunk/tests/run.scm
r26431 r27395 12 12 (endian-port-write-byte-vector outp (blob->u8vector (string->blob "'error: bad argument count'"))) 13 13 (endian-port-write-byte-vector outp (u8vector->endian-blob (blob->u8vector (string->blob "always one more bug")) LSB)) 14 (endian-port-write-byte-vector outp (u8vector->endian-blob (u8vector 256 255 254 128 127 126 125) LSB)) 14 15 (close-endian-port outp)) 15 16 … … 25 26 (print "trying to read u8vector: " (blob->string (endian-port-read-byte-vector inp 27))) 26 27 (print "trying to read u8vector: " (blob->string (endian-port-read-byte-vector inp 19))) 28 (print "trying to read u8vector of unsigned bytes: " (blob->u8vector (endian-port-read-byte-vector inp 7))) 27 29 (close-endian-port inp)) 28 30
Note: See TracChangeset
for help on using the changeset viewer.