Hello
I can't find out how to read bytes from a device file:
(define urandom-port (open-input-file "/dev/urandom")) urandom-port
#<input-port #2 "/dev/urandom">
(read-byte urandom-port)
*** ERROR IN ##read-byte -- Invalid argument (read-char '#<input-port #2 "/dev/urandom">) 1>
btw note that the error message mentions read-char instead of read-byte
(read-char urandom-port)
*** ERROR IN (console)@5.1 -- Invalid argument (read-char '#<input-port #2 "/dev/urandom">) 1>
(input-port-byte-position urandom-port)
*** ERROR IN (console)@6.1 -- Unknown error (input-port-byte-position '#<input-port #2 "/dev/urandom">) 1>
whereas with a normal file:
(define urandom-port (open-input-file "chj.scm")) urandom-port
#<input-port #3 "/home/chris/schemedevelopment/gambit/chj.scm">
(read-byte urandom-port)
10
(read-char urandom-port)
#(
(input-port-byte-position urandom-port)
0
(read-byte urandom-port)
100
(input-port-byte-position urandom-port)
0
(read-byte urandom-port)
101
(input-port-byte-position urandom-port)
0
(but isn't it strange that input-port-byte-position doesn't advance?)
Thanks for your help Christian.