gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.31, 2001/01/28 17:39:33	version 1.32, 2001/01/28 18:49:11
Line 128 defer header ( -- ) \ gforth	Line 128 defer header ( -- ) \ gforth

' input-stream-header IS (header)	' input-stream-header IS (header)

\ !! make that a 2variable	2variable nextname-string
create nextname-buffer 32 chars allot

: nextname-header ( -- )	: nextname-header ( -- )
nextname-buffer count header,	nextname-string 2@ header,
	nextname-string free-mem-var
input-stream ;	input-stream ;

\ the next name is given in the string	\ the next name is given in the string
Line 140 create nextname-buffer 32 chars allot	Line 140 create nextname-buffer 32 chars allot
: nextname ( c-addr u -- ) \ gforth	: nextname ( c-addr u -- ) \ gforth
\g The next defined word will have the name @var{c-addr u}; the	\g The next defined word will have the name @var{c-addr u}; the
\g defining word will leave the input stream alone.	\g defining word will leave the input stream alone.
dup &31 u> -&19 and throw \ !! make buffer variable-sized
name-too-long?	name-too-long?
nextname-buffer c! ( c-addr )	nextname-string free-mem-var
nextname-buffer count move	save-mem nextname-string 2!
['] nextname-header IS (header) ;	['] nextname-header IS (header) ;

: noname-header ( -- )	: noname-header ( -- )