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
|
||||
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 ;
|
||||
|
|
Loading…
Reference in a new issue