add missing d:source data

FossilOrigin-Name: 746d00862c208a73ef9ca13afc34c49834d24ac068582693341cd01a54687475
This commit is contained in:
crc 2024-01-08 18:24:08 +00:00
parent ce2cd05f97
commit 09ac843c9e
5 changed files with 773 additions and 731 deletions

View file

@ -70,10 +70,10 @@ ENABLED += -DENABLE_MALLOC
ENABLED += -DENABLE_BLOCKS
DEVICES ?=
DEVICES += interface/devices.retro
DEVICES += interface/ll.retro
DEVICES += interface/dedup.retro
DEVICES += interface/sources.retro
DEVICES += interface/devices.retro
DEVICES += interface/floatingpoint.retro
DEVICES += interface/filesystem.retro
DEVICES += interface/unix.retro

View file

@ -20,4 +20,29 @@
#8000 'DEVICE:MULTICORE const
#8100 'DEVICE:FFI const
#8101 'DEVICE:UNSIGNED const
'interface/devices.retro s:dedup
dup 'DEVICE:UNSIGNED d:set-source
dup 'DEVICE:FFI d:set-source
dup 'DEVICE:MULTICORE d:set-source
dup 'DEVICE:ERROR d:set-source
dup 'DEVICE:IMAGE d:set-source
dup 'DEVICE:MALLOC d:set-source
dup 'DEVICE:RESERVED14 d:set-source
dup 'DEVICE:RESERVED13 d:set-source
dup 'DEVICE:RESERVED12 d:set-source
dup 'DEVICE:RESERVED11 d:set-source
dup 'DEVICE:RNG d:set-source
dup 'DEVICE:SCRIPTING d:set-source
dup 'DEVICE:UNIX d:set-source
dup 'DEVICE:SOCKET d:set-source
dup 'DEVICE:RESERVED6 d:set-source
dup 'DEVICE:CLOCK d:set-source
dup 'DEVICE:BLOCKS d:set-source
dup 'DEVICE:FILES d:set-source
dup 'DEVICE:FLOATS d:set-source
dup 'DEVICE:KEYBOARD d:set-source
dup 'DEVICE:OUTPUT d:set-source
drop
~~~

View file

@ -21,4 +21,15 @@
:library:load
dup library:contains? [ library:filename include ]
[ 'ERROR:_Library_`%s`_was_not_found s:format s:put nl ] choose ;
'interface/library.retro s:dedup
dup 'library:load d:set-source
dup 'library:contains? d:set-source
dup 'library:filename d:set-source
dup 'library:.config d:set-source
dup 'library:cwd d:set-source
dup 'library:CWD d:set-source
dup 'library:.CONFIG d:set-source
dup 'HOME d:set-source
drop
~~~

View file

@ -13,6 +13,9 @@ each of the provided words are found in.
~~~
'build.retro s:dedup 'BUILD d:set-source
'retro.forth s:dedup
dup 'Ignoring d:set-source
dup 'banner d:set-source
dup 'TIB d:set-source
dup 'listen d:set-source
dup 'gc d:set-source
dup 'bye d:set-source

File diff suppressed because it is too large Load diff