do dict stuff

git-svn-id: file:///raid/svn-personal/docgen/trunk@13 44bc13e5-44cb-984e-b856-1907bf1ada44

diff --git a/docgen b/docgen
index d86c1f104282f5073b85cbcd57ee7b33d63c8e09..59f2bdac7ebca2f7b81d1b859b5a0062b7d72383 100755 (executable)
--- 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"