mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
add missing source data for file: and fll: vocabularies
FossilOrigin-Name: 7a9759a9e829d5181da9a868b574c39b24859758481ae3c563873adefe89fd9a
This commit is contained in:
parent
fd50adfb70
commit
6e17d8a8d5
4 changed files with 728 additions and 703 deletions
|
@ -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:
|
||||
|
||||
================================================================
|
||||
|
|
|
@ -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
|
||||
~~~
|
||||
|
|
|
@ -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
|
||||
~~~
|
||||
|
||||
|
|
1407
vm/nga-c/image.c
1407
vm/nga-c/image.c
File diff suppressed because it is too large
Load diff
Loading…
Reference in a new issue