mirror of https://github.com/mgcaret/of816.git
Support easily adding extra dictionaries, e.g. as part of platform
This commit is contained in:
parent
5839acb568
commit
daff3166ec
|
@ -6407,7 +6407,7 @@ eword
|
||||||
dword VOCABULARY,"VOCABULARY"
|
dword VOCABULARY,"VOCABULARY"
|
||||||
ENTER
|
ENTER
|
||||||
.dword CREATE
|
.dword CREATE
|
||||||
.dword _COMP_LIT
|
dovocab: .dword _COMP_LIT
|
||||||
.dword H_FORTH ; root of all dictionaries
|
.dword H_FORTH ; root of all dictionaries
|
||||||
.dword LAST
|
.dword LAST
|
||||||
.dword drXT ; XT of the just-created word
|
.dword drXT ; XT of the just-created word
|
||||||
|
@ -6421,6 +6421,15 @@ dword VOCABULARY,"VOCABULARY"
|
||||||
EXIT
|
EXIT
|
||||||
eword
|
eword
|
||||||
|
|
||||||
|
; H: ( c-addr u -- ) create a new named wordlist definition as per VOCABULARY
|
||||||
|
; H: meant for adding more builtin dictionaries (e.g. platform specific dictionaries)
|
||||||
|
; H: which are expected to adjust the root to the new wordlist
|
||||||
|
hword dVOCAB,"$VOCAB"
|
||||||
|
ENTER
|
||||||
|
.dword dCREATE
|
||||||
|
JUMP VOCABULARY::dovocab
|
||||||
|
eword
|
||||||
|
|
||||||
.endif
|
.endif
|
||||||
|
|
||||||
.if 0 ; half-baked
|
.if 0 ; half-baked
|
||||||
|
|
Loading…
Reference in New Issue