crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

retro-tags now recurses through the directory tree

Browse source 
FossilOrigin-Name: e97f969e0006f65315868b5d17f2dc353e3a95ce992bc6bdb630dfa2a59cd7f3
This commit is contained in:
crc 2019-09-24 20:36:39 +00:00
parent 3c01a0c0be
commit 77a62508ef
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
example/retro-tags.retro
View file

@ -4,8 +4,8 @@
rm -f tags
touch tags
for f in *.forth; do retro $0 "$f" >>tags ; done
for f in *.retro; do retro $0 "$f" >>tags ; done
find . -name '*.retro' -print0 | xargs -0 -n 1 retro $0 >>tags
find . -name '*.forth' -print0 | xargs -0 -n 1 retro $0 >>tags
exit
--------------------------------------------------------------
@ -60,7 +60,7 @@ First, colon definitions.
dup ': s:begins-with? ;
:output-location
tab @TagFile s:put tab @TagAddress n:put nl ;
tab @TagFile #2 + s:put tab @TagAddress n:put nl ;
:output-name
ASCII:SPACE s:tokenize #0 a:fetch n:inc s:put ;