Fix stderr
parent
d5257e47b1
commit
670a284772
|
@ -14,9 +14,10 @@ ARTICLE: "io.streams.c" "ANSI C streams"
|
|||
{ $subsection fclose }
|
||||
{ $subsection fgetc }
|
||||
{ $subsection fread }
|
||||
"Two standard file handles:"
|
||||
{ $subsection stdin }
|
||||
{ $subsection stdout } ;
|
||||
"The three standard file handles:"
|
||||
{ $subsection stdin-handle }
|
||||
{ $subsection stdout-handle }
|
||||
{ $subsection stderr-handle } ;
|
||||
|
||||
ABOUT: "io.streams.c"
|
||||
|
||||
|
@ -64,10 +65,14 @@ HELP: fread ( n alien -- str/f )
|
|||
{ $description "Reads a sequence of characters from a C FILE* handle, and outputs " { $link f } " on end of file." }
|
||||
{ $errors "Throws an error if the input operation failed." } ;
|
||||
|
||||
HELP: stdin
|
||||
HELP: stdin-handle
|
||||
{ $values { "in" "a C FILE* handle" } }
|
||||
{ $description "Outputs the console standard input file handle." } ;
|
||||
|
||||
HELP: stdout
|
||||
HELP: stdout-handle
|
||||
{ $values { "out" "a C FILE* handle" } }
|
||||
{ $description "Outputs the console standard output file handle." } ;
|
||||
|
||||
HELP: stderr-handle
|
||||
{ $values { "out" "a C FILE* handle" } }
|
||||
{ $description "Outputs the console standard error file handle." } ;
|
||||
|
|
|
@ -56,13 +56,13 @@ M: c-reader stream-close
|
|||
|
||||
M: object init-io ;
|
||||
|
||||
: stdin 11 getenv ;
|
||||
: stdout 12 getenv ;
|
||||
: stderr 38 getenv ;
|
||||
: stdin-handle 11 getenv ;
|
||||
: stdout-handle 12 getenv ;
|
||||
: stderr-handle 38 getenv ;
|
||||
|
||||
M: object init-stdio
|
||||
stdin stdout <duplex-c-stream> stdio set-global
|
||||
stderr <c-writer> stderr set-global ;
|
||||
stdin-handle stdout-handle <duplex-c-stream> stdio set-global
|
||||
stderr-handle <c-writer> <plain-writer> stderr set-global ;
|
||||
|
||||
M: object io-multiplex (sleep) ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue