2021-09-17 16:41:21 +02:00
|
|
|
#!/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 ;
|
2023-10-22 17:56:22 +02:00
|
|
|
:-source? (d-df) dup d:source fetch n:zero? ;
|
|
|
|
|
[ -source? [ ,dt tab ,name nl ] if drop ] d:for-each
|
2021-09-17 16:41:21 +02:00
|
|
|
~~~
|
