version 1.1, 1997/05/29 19:42:13
|
version 1.2, 1997/12/14 01:15:19
|
Line 91 DOES> ( x1 .. xn n -- )
|
Line 91 DOES> ( x1 .. xn n -- )
|
DOES> ( -- addr ) |
DOES> ( -- addr ) |
[ 2 cells ] Literal + @ ; |
[ 2 cells ] Literal + @ ; |
|
|
: lib: ( "name" "file" -- ) |
: library ( "name" "file" -- ) |
\G loads library "file" and creates a proc defining word "name" |
\G loads library "file" and creates a proc defining word "name" |
\G library format: |
\G library format: |
\G linked list of libraries |
\G linked list of libraries |
Line 112 DOES> ( pars/ type -- )
|
Line 112 DOES> ( pars/ type -- )
|
|
|
: init-shared-libs ( -- ) |
: init-shared-libs ( -- ) |
defers 'cold libs |
defers 'cold libs |
BEGIN @ dup WHILE >r |
0 libs BEGIN @ dup WHILE dup REPEAT drop |
|
BEGIN dup WHILE >r |
r@ @lib |
r@ @lib |
r@ 2 cells + BEGIN @ dup WHILE r@ over @proc REPEAT |
r@ 2 cells + BEGIN @ dup WHILE r@ over @proc REPEAT |
drop r> |
drop rdrop |
REPEAT drop ; |
REPEAT drop ; |
|
|
' init-shared-libs IS 'cold |
' init-shared-libs IS 'cold |