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