X-Git-Url: https://git.sven.stormbind.net/?p=sven%2Fmysqltcl.git;a=blobdiff_plain;f=doc%2Fman.tcl;fp=doc%2Fman.tcl;h=09dc12d363a5061e7236fb957d6bb48d0c6736ad;hp=0000000000000000000000000000000000000000;hb=8b83892bf9d924349d5e09c88f16790a8086a950;hpb=b47a140e1d8fa10b34c244d077b2a3a7f36c7ff8

diff --git a/doc/man.tcl b/doc/man.tcl
new file mode 100755
index 0000000..09dc12d
--- /dev/null
+++ b/doc/man.tcl
@@ -0,0 +1,26 @@
+# script for produce html and ngroff from tcl man page
+# see doctools from tcllib
+
+package require doctools
+
+::doctools::new dl -file mysqltcl.man -format html
+set file [open mysqltcl.html w]
+set filein [open mysqltcl.man]
+puts $file [dl format [read $filein]]
+close $filein
+close $file
+
+set file [open man.macros r]
+set manmacros [string trim [read $file]]
+close $file
+
+::doctools::new dl2 -file mysqltcl.man -format nroff
+set file [open mysqltcl.n w]
+set filein [open mysqltcl.man]
+set data [dl2 format [read $filein]]
+set data [string map [list {.so man.macros} $manmacros] $data]
+puts $file $data
+close $filein
+close $file
+
+