add missing source data for file: and fll: vocabularies

FossilOrigin-Name: 7a9759a9e829d5181da9a868b574c39b24859758481ae3c563873adefe89fd9a
This commit is contained in:
crc 2023-10-22 16:11:59 +00:00
parent fd50adfb70
commit 6e17d8a8d5
4 changed files with 728 additions and 703 deletions

View file

@ -17,5 +17,7 @@
- added an implementation of Nga in D (D)
- removed some unneeded files
- update tools/missing-dsource.retro
- add missing source data for vocabularies:
file: fll:
================================================================

View file

@ -197,5 +197,9 @@ dup 'file:A d:set-source
dup 'file:W d:set-source
dup 'file:R d:set-source
dup 'file:operation d:set-source
dup 'file:write/bytes d:set-source
dup 'file:read/bytes d:set-source
dup 'file:write/c d:set-source
dup 'file:read/c d:set-source
drop
~~~

View file

@ -141,3 +141,21 @@ point.
:fll:put (a-) [ n:put sp ] fll:for-each ;
}}
~~~
## Add Source Data
~~~
'interface/ll.retro s:keep
dup 'fll:put d:lookup d:source store
dup 'fll:inject d:lookup d:source store
dup 'fll:drop d:lookup d:source store
dup 'fll:length d:lookup d:source store
dup 'fll:for-each d:lookup d:source store
dup 'fll:del d:lookup d:source store
dup 'fll:to-index d:lookup d:source store
dup 'fll:append/value d:lookup d:source store
dup 'fll:to-end d:lookup d:source store
dup 'fll:create d:lookup d:source store
drop
~~~

File diff suppressed because it is too large Load diff