version 1.30, 2007/12/31 18:40:26
|
version 1.31, 2012/07/27 23:28:10
|
Line 22 require ./basics.fs
|
Line 22 require ./basics.fs
|
\ Output 13feb93py |
\ Output 13feb93py |
|
|
has? os [IF] |
has? os [IF] |
0 Value outfile-id ( -- file-id ) \ gforth |
|
0 Value infile-id ( -- file-id ) \ gforth |
0 Value infile-id ( -- file-id ) \ gforth |
|
0 Value outfile-id ( -- file-id ) \ gforth |
|
0 Value errfile-id ( -- file-id ) \ gforth |
|
|
: (type) ( c-addr u -- ) \ gforth |
: (type) ( c-addr u -- ) \ gforth |
outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ? |
outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ? |
Line 100 all-words
|
Line 101 all-words
|
0A constant #lf ( -- c ) \ gforth |
0A constant #lf ( -- c ) \ gforth |
|
|
: bell #bell emit [ has? os [IF] ] outfile-id flush-file drop [ [THEN] ] ; |
: bell #bell emit [ has? os [IF] ] outfile-id flush-file drop [ [THEN] ] ; |
: cr ( -- ) \ core c-r |
Defer cr ( -- ) \ core c-r |
\G Output a newline (of the favourite kind of the host OS). Note |
\G Output a newline (of the favourite kind of the host OS). Note |
\G that due to the way the Forth command line interpreter inserts |
\G that due to the way the Forth command line interpreter inserts |
\G newlines, the preferred way to use @code{cr} is at the start |
\G newlines, the preferred way to use @code{cr} is at the start |
\G of a piece of text; e.g., @code{cr ." hello, world"}. |
\G of a piece of text; e.g., @code{cr ." hello, world"}. |
|
: (cr) ( -- ) |
newline type ; |
newline type ; |
|
' (cr) IS cr |
|
|
: space ( -- ) \ core |
: space ( -- ) \ core |
\G Display one space. |
\G Display one space. |