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" -- ) |