1 # script for produce html and ngroff from tcl man page
2 # see doctools from tcllib
4 package require doctools
6 ::doctools::new dl -file mysqltcl.man -format html
7 set file [open mysqltcl.html w]
8 set filein [open mysqltcl.man]
9 puts $file [dl format [read $filein]]
13 set file [open man.macros r]
14 set manmacros [string trim [read $file]]
17 ::doctools::new dl2 -file mysqltcl.man -format nroff
18 set file [open mysqltcl.n w]
19 set filein [open mysqltcl.man]
20 set data [dl2 format [read $filein]]
21 set data [string map [list {.so man.macros} $manmacros] $data]