gforth/kernel/input.fs - diff

Return to input.fs CVS log

Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/input.fs between versions 1.16 and 1.17

version 1.16, 2006/02/06 09:59:06	version 1.17, 2006/02/06 11:12:52
Line 57 cell input-var >in ( -- addr ) \ core to	Line 57 cell input-var >in ( -- addr ) \ core to
\G @code{input-var} variable -- @i{a-addr} is the address of a	\G @code{input-var} variable -- @i{a-addr} is the address of a
\G cell containing the char offset from the start of the input	\G cell containing the char offset from the start of the input
\G buffer to the start of the parse area.	\G buffer to the start of the parse area.
cell input-var input-parse-start ( -- a-addr ) \ gforth	2 cells input-var input-lexeme ( -- a-addr ) \ gforth-internal
\G @code{input-var} variable -- @i{a-addr} is the address of a	\G @code{input-var} variable -- @i{a-addr} is the address of two
\G cell containing a pointer to the start of the last parsed	\G cells containing the string (in c-addr u form) parsed with
\G string (but after skipped characters, if any); this is set	\G @code{parse}, @code{parse-name} or @code{word}. If you do your
\G automatically by @code{parse}, @code{parse-name} and	\G own parsing, you can set it with @code{input-lexeme!}.
\G @code{word}, but not if you set @code{>in} yourself.
cell input-var input-parse-end ( -- a-addr ) \ gforth
\G @code{input-var} variable -- @i{a-addr} is the address of a
\G cell containing a pointer to the end of the last parsed
\G string (but after skipped characters, if any); this is set
\G automatically by @code{parse}, @code{parse-name} and
\G @code{word}, but not if you set @code{>in} yourself.
cell input-var #tib ( -- addr ) \ core-ext number-t-i-b	cell input-var #tib ( -- addr ) \ core-ext number-t-i-b
\G @code{input-var} variable -- @i{a-addr} is the address of a	\G @code{input-var} variable -- @i{a-addr} is the address of a
\G cell containing the number of characters in the terminal input	\G cell containing the number of characters in the terminal input
Line 103 Constant tib+	Line 96 Constant tib+

\ helper words	\ helper words

: input-start-line ( -- )
>in off input-parse-start off input-parse-end off ;

: input-lexeme! ( c-addr u -- )	: input-lexeme! ( c-addr u -- )
\ record that the current lexeme us c-addr u	\ record that the current lexeme us c-addr u
>r source drop - dup input-parse-start ! r> + input-parse-end ! ;	input-lexeme 2! ;

	: input-start-line ( -- )
	>in off source drop 0 input-lexeme! ;

\ terminal input implementation	\ terminal input implementation

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.16
changed lines
	Added in v.1.17