36 lines
821 B
Tcl
36 lines
821 B
Tcl
#!/usr/local/bin/tclsh
|
|
set mydir [file dirname [info script]]
|
|
lappend auto_path /usr/local/lib
|
|
package req doctools
|
|
doctools::new dt
|
|
set wd [pwd]
|
|
cd $mydir
|
|
file rename html htm
|
|
set code [catch {
|
|
set f [open man.macros]
|
|
set m [read $f]
|
|
close $f
|
|
foreach file [glob -nocomplain *.man] {
|
|
set xx [file root $file]
|
|
set f [open $xx.man]
|
|
set t [read $f]
|
|
close $f
|
|
foreach {fmt ext dir} {nroff n man html html htm} {
|
|
dt configure -format $fmt
|
|
set o [dt format $t]
|
|
set f [open $dir/$xx.$ext w]
|
|
if {$fmt == "nroff"} {
|
|
set o [string map [list {.so man.macros} $m] $o]
|
|
}
|
|
puts $f $o
|
|
close $f
|
|
}
|
|
}
|
|
} err]
|
|
file rename htm html
|
|
cd $wd
|
|
if {$code} {
|
|
error $err
|
|
}
|
|
exit 0
|