version 1.62, 1996/08/26 10:07:20
|
version 1.63, 1996/09/10 16:08:39
|
Line 1102 Create ??? 0 , 3 c, char ? c, char ? c,
|
Line 1102 Create ??? 0 , 3 c, char ? c, char ? c,
|
: dodoes, ( -- ) |
: dodoes, ( -- ) |
here /does-handler allot does-handler! ; |
here /does-handler allot does-handler! ; |
|
|
: Create ( -- ) \ core |
: Create ( "name" -- ) \ core |
Header reveal dovar: cfa, ; |
Header reveal dovar: cfa, ; |
|
|
\ Create Variable User Constant 17mar93py |
\ Create Variable User Constant 17mar93py |
|
|
: Variable ( -- ) \ core |
: Variable ( "name" -- ) \ core |
Create 0 , ; |
Create 0 , ; |
: AVariable ( -- ) \ gforth |
: AVariable ( "name" -- ) \ gforth |
Create 0 A, ; |
Create 0 A, ; |
: 2VARIABLE ( "name" -- ) \ double |
: 2VARIABLE ( "name" -- ) \ double |
create 0 , 0 , ; |
create 0 , 0 , ; |
|
|
: User |
: User ( "name" -- ) \ gforth |
Variable ; |
Variable ; |
: AUser |
: AUser ( "name" -- ) \ gforth |
AVariable ; |
AVariable ; |
|
|
: (Constant) Header reveal docon: cfa, ; |
: (Constant) Header reveal docon: cfa, ; |
: Constant ( w -- ) \ core |
: Constant ( w "name" -- ) \ core |
(Constant) , ; |
(Constant) , ; |
: AConstant ( addr -- ) \ gforth |
: AConstant ( addr "name" -- ) \ gforth |
(Constant) A, ; |
(Constant) A, ; |
|
|
: 2Constant ( d -- ) \ double |
: 2Constant ( w1 w2 "name" -- ) \ double |
Create ( w1 w2 "name" -- ) |
Create ( w1 w2 "name" -- ) |
2, |
2, |
DOES> ( -- w1 w2 ) |
DOES> ( -- w1 w2 ) |
Line 1133 Create ??? 0 , 3 c, char ? c, char ? c,
|
Line 1133 Create ??? 0 , 3 c, char ? c, char ? c,
|
|
|
\ IS Defer What's Defers TO 24feb93py |
\ IS Defer What's Defers TO 24feb93py |
|
|
: Defer ( -- ) \ gforth |
: Defer ( "name" -- ) \ gforth |
\ !! shouldn't it be initialized with abort or something similar? |
\ !! shouldn't it be initialized with abort or something similar? |
Header Reveal dodefer: cfa, |
Header Reveal dodefer: cfa, |
['] noop A, ; |
['] noop A, ; |
Line 1150 Create ??? 0 , 3 c, char ? c, char ? c,
|
Line 1150 Create ??? 0 , 3 c, char ? c, char ? c,
|
defer :-hook ( sys1 -- sys2 ) |
defer :-hook ( sys1 -- sys2 ) |
defer ;-hook ( sys2 -- sys1 ) |
defer ;-hook ( sys2 -- sys1 ) |
|
|
: : ( -- colon-sys ) \ core colon |
: : ( "name" -- colon-sys ) \ core colon |
Header docol: cfa, defstart ] :-hook ; |
Header docol: cfa, defstart ] :-hook ; |
: ; ( compilation colon-sys -- ; run-time nest-sys ) \ core semicolon |
: ; ( compilation colon-sys -- ; run-time nest-sys ) \ core semicolon |
;-hook ?struc postpone exit reveal postpone [ ; immediate restrict |
;-hook ?struc postpone exit reveal postpone [ ; immediate restrict |