retro-tags now recurses through the directory tree
FossilOrigin-Name: e97f969e0006f65315868b5d17f2dc353e3a95ce992bc6bdb630dfa2a59cd7f3
This commit is contained in:
parent
3c01a0c0be
commit
77a62508ef
1 changed files with 3 additions and 3 deletions
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in a new issue