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