gforth/fflib.fs - diff

Return to fflib.fs CVS log

Up to [gforth] / gforth

version 1.5, 2003/08/17 20:38:02	version 1.6, 2005/08/21 22:09:14
Line 71 DOES> ( x1 .. xn -- r )	Line 71 DOES> ( x1 .. xn -- r )
\G linked list of library's procs	\G linked list of library's procs
\G OS name of library as counted string	\G OS name of library as counted string
Create here libs @ A, dup libs !	Create here libs @ A, dup libs !
0 , 0 A, bl sword string, @lib	0 , 0 A, parse-name string, @lib
DOES> ( -- ) dup thislib ! proc: ;	DOES> ( -- ) dup thislib ! proc: ;

: init-shared-libs ( -- )	: init-shared-libs ( -- )
Line 107 DOES> ( -- ) dup thislib ! proc: ;	Line 107 DOES> ( -- ) dup thislib ! proc: ;
r> compile, postpone EXIT ;	r> compile, postpone EXIT ;

: symbol, ( "c-symbol" -- )	: symbol, ( "c-symbol" -- )
here thisproc @ 2 cells + ! bl sword s,	here thisproc @ 2 cells + ! parse-name s,
thislib @ thisproc @ @proc ;	thislib @ thisproc @ @proc ;

: rettype ( endxt startxt "name" -- )	: rettype ( endxt startxt "name" -- )