From 77a62508ef08141f145a6149fdc44378bcf7b57a Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Tue, 24 Sep 2019 20:36:39 +0000
Subject: [PATCH] retro-tags now recurses through the directory tree

FossilOrigin-Name: e97f969e0006f65315868b5d17f2dc353e3a95ce992bc6bdb630dfa2a59cd7f3
---
 example/retro-tags.retro | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/example/retro-tags.retro b/example/retro-tags.retro
index af4bd9e..510b22b 100755
--- a/example/retro-tags.retro
+++ b/example/retro-tags.retro
@@ -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 ;