gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.99, 2001/10/26 12:00:15	version 1.101, 2001/12/09 19:12:45
Line 647 stack inst-stream IP Cell	Line 647 stack inst-stream IP Cell
2drop type ;	2drop type ;

: print-entry ( -- )	: print-entry ( -- )
." CASE I_" prim prim-c-name 2@ type ." :" ;	." LABEL(" prim prim-c-name 2@ type ." ):" ;

: output-c ( -- )	: output-c ( -- )
print-entry ." /* " prim prim-name 2@ type ." ( " prim prim-stack-string 2@ type ." ) */" cr	print-entry ." /* " prim prim-name 2@ type ." ( " prim prim-stack-string 2@ type ." ) */" cr
Line 799 stack inst-stream IP Cell	Line 799 stack inst-stream IP Cell
name-line @ 0 .r	name-line @ 0 .r
." ,0" cr ;	." ,0" cr ;

	: output-vi-tag ( -- )
	name-filename 2@ type #tab emit
	prim prim-name 2@ type #tab emit
	." /^" prim prim-name 2@ type ." *(/" cr ;

[IFDEF] documentation	[IFDEF] documentation
: register-doc ( -- )	: register-doc ( -- )
prim prim-name 2@ documentation ['] create insert-wordlist	prim prim-name 2@ documentation ['] create insert-wordlist