crc/retroforth
1
0
Fork 0
Code Issues Pull requests 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
~~~