M bin/docgen.tcl => bin/docgen.tcl +13 -0
@@ 14,10 14,23 @@ set basedir \
[file dirname \
[dict get [info frame [info frame]] file]] ..]]
+foreach dir [list \
+ [file join $basedir doc doctools gen] \
+ [file join $basedir doc md]] \
+{
+ file delete -force $dir
+ file mkdir $dir
+}
+
cd [file join $basedir src]
set files [glob -nocomplain {*}$files]
+foreach file $files {
+ set opath [file join $basedir doc doctools gen $file]
+ file mkdir [file dirname $opath]
+}
+
file mkdir [file join $basedir doc doctools gen]
exec -- [file join $basedir bin docextract.tcl] -o [file join $basedir doc doctools gen] -all {*}$files