From 5e402a521ad6b777272a7b3a6b1a3e17197a364d Mon Sep 17 00:00:00 2001 From: Nishi Date: Sun, 6 Oct 2024 08:21:54 +0000 Subject: [PATCH] do dict stuff git-svn-id: file:///raid/svn-personal/docgen/trunk@13 44bc13e5-44cb-984e-b856-1907bf1ada44 --- docgen | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/docgen b/docgen index d86c1f1..59f2bda 100755 --- a/docgen +++ b/docgen @@ -270,7 +270,9 @@ proc parse_markdown {path _result} { proc rescan {path dots append} { global output_directory input_directory icon genre_list title - foreach name [glob -tails -nocomplain -directory "$input_directory/$path" "{.rules.md,index.md,*}"] { + set l [glob -tails -nocomplain -directory "$input_directory/$path" "{.rules.md,index.md,*}"] + foreach element $l {dict set tmp $element 1} + foreach name [dict keys $tmp] { if { [file type "$input_directory/$path/$name"] == "directory" } { file mkdir "$output_directory/$append/$path/$name" rescan "$path/$name" "$dots../" "$append" -- 2.45.2