Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

add a tool for identification of missing d:source info

Browse source 
FossilOrigin-Name: fc90abe157d459c61054a28a8db68eab71460e14bffac5d653ae954cea26344f
This commit is contained in:
crc 2021-09-17 14:41:21 +00:00
parent 862535ec1c
commit 6081877f6c
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tools/missing-dsource.retro Executable file
View file

@ -0,0 +1,11 @@
#!/usr/bin/env retro
This is a quick program to display the word names and header info
for words with an empty `d:source` field.
~~~
:,name dup d:name s:put ;
:,dt dup n:put ;
[ dup d:source fetch n:zero? [ ,dt tab ,name nl ] if drop ] d:for-each
~~~