steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

little C streams cleanup

slava 2006-02-04 01:01:31 +00:00
parent 6976d10798
commit 16f54dfde6
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
library/io/c-streams.factor
View File

@ -27,10 +27,12 @@ M: c-stream stream-close ( stream -- )
dup c-stream-in [ fclose ] when* dup c-stream-in [ fclose ] when*
c-stream-out [ fclose ] when* ; c-stream-out [ fclose ] when* ;
: <duplex-c-stream> ( in out -- stream )
>r f <c-stream> <line-reader> f r> <c-stream> <plain-writer>
<duplex-stream> ;
: init-io ( -- ) : init-io ( -- )
13 getenv f <c-stream> <line-reader> 13 getenv 14 getenv <duplex-c-stream> stdio set ;
f 14 getenv <c-stream> <plain-writer>
<duplex-stream> stdio set ;
: io-multiplex ( ms -- ) drop ; : io-multiplex ( ms -- ) drop ;