Merge branch 'master' of git://factorcode.org/git/factor

release
Eduardo Cavazos 2007-11-20 19:07:54 -06:00
commit ddf932efd4
2 changed files with 13 additions and 0 deletions
core/io/streams/c

View File

@ -0,0 +1,10 @@
USING: tools.test io.files io io.streams.c ;
IN: temporary
[ "hello world" ] [
"test.txt" resource-path <file-writer> [
"hello world" write
] with-stream
"test.txt" resource-path "rb" fopen <c-reader> contents
] unit-test

3
core/io/streams/c/c.factor Normal file → Executable file
View File

@ -29,6 +29,9 @@ C: <c-reader> c-reader
M: c-reader stream-read
>r >fixnum r> c-reader-handle fread ;
M: c-reader stream-read-partial
stream-read ;
M: c-reader stream-read1
c-reader-handle fgetc ;