gforth/fflib.fs - diff

Return to fflib.fs CVS log

Up to [gforth] / gforth

version 1.4, 2003/08/17 12:21:05	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" -- )
Line 208 library libc libc.so.6	Line 208 library libc libc.so.6

libc sleep int (int) sleep	libc sleep int (int) sleep
libc open int int ptr (int) open	libc open int int ptr (int) open
libc lseek int llong int (llong) lseek	libc lseek int llong int (llong) lseek64
libc read int ptr int (int) read	libc read int ptr int (int) read
libc close int (int) close	libc close int (int) close