Changeset 27395 in project

Timestamp:

09/09/12 00:44:59 (8 years ago)

Author:

ecloud

Message:

byte vectors and bit vectors are unsigned

Location:

release/4/endian-port/trunk

Files:

• endian-port.scm (modified) (3 diffs)
• tests/run.scm (modified) (2 diffs)

release/4/endian-port/trunk/endian-port.scm

@@ -506 +506 @@
                        (let loop ((i 0) (bytes 0))
                                  (if (< i len)
-                                     (loop (+ i 1) (+ bytes (endian-port-write-int1 eport (u8vector-ref u8vect i))))
+                                     (loop (+ i 1) (+ bytes (endian-port-write-uint1 eport (u8vector-ref u8vect i))))
                                      bytes))
                        (let loop ((i (- len 1)) (bytes 0))
                                  (if (positive? i)
-                                     (loop (- i 1) (+ bytes (endian-port-write-int1 eport (u8vector-ref u8vect i))))
+                                     (loop (- i 1) (+ bytes (endian-port-write-uint1 eport (u8vector-ref u8vect i))))
                                      bytes))))))
 
@@ -543 +543 @@
                                                        (if (bit-vector-ref (+ i 6) bv) #b00000010 0)
                                                        (if (bit-vector-ref (+ i 7) bv) #b00000001 0))))
-                               (loop (+ i 8) (+ bytes (endian-port-write-int1 eport byte))))
+                               (loop (+ i 8) (+ bytes (endian-port-write-uint1 eport byte))))
                                bytes))
                        (let loop ((i (- len 1)) (bytes 0))
@@ -555 +555 @@
                                                        (if (bit-vector-ref (- i 6) bv) #b01000000 0)
                                                        (if (bit-vector-ref (- i 7) bv) #b10000000 0))))
-                               (loop (- i 8) (+ bytes (endian-port-write-int1 eport byte)))
+                               (loop (- i 8) (+ bytes (endian-port-write-uint1 eport byte)))
                                bytes)))))))
 ) ;; end of module

release/4/endian-port/trunk/tests/run.scm

@@ -12 +12 @@
         (endian-port-write-byte-vector outp (blob->u8vector (string->blob "'error: bad argument count'")))
         (endian-port-write-byte-vector outp (u8vector->endian-blob (blob->u8vector (string->blob "always one more bug")) LSB))
+        (endian-port-write-byte-vector outp (u8vector->endian-blob  (u8vector 256 255 254 128 127 126 125) LSB))
         (close-endian-port outp))
 
@@ -25 +26 @@
         (print "trying to read u8vector: " (blob->string (endian-port-read-byte-vector inp 27)))
         (print "trying to read u8vector: " (blob->string (endian-port-read-byte-vector inp 19)))
+        (print "trying to read u8vector of unsigned bytes: " (blob->u8vector (endian-port-read-byte-vector inp 7)))
         (close-endian-port inp))