[Ecls-list] Additional change
Juan Jose Garcia Ripoll
lisp at arrakis.es
Mon May 2 11:04:06 UTC 2005
- By default, the size of binary streams is rounded to a multiple of 8.
If you
want other behavior, pass :USE-HEADER-P T to the function OPEN.
The previous behavior seems to be counterintuitive for people who expect
being able to write scripts as
#!/home/jlr/bin/ecl -shell
(with-open-file (stdin "/dev/stdin" :element-type '(unsigned-byte 8)
:direction :input :use-header-p nil)
(with-open-file (stdout "/dev/stdout" :element-type '(unsigned-byte 8)
:direction :output :use-header-p nil)
(loop with buffer = (make-array 4096 :element-type '(unsigned-byte 8))
for length = (read-sequence buffer stdin)
while (plusp length)
do (write-sequence buffer stdout :end length
))))
(quit)
Regards,
Juanjo
More information about the ecl-devel
mailing list