# -*- tcl -*-
#
# fmt.html
#
# (c) 2001 Andreas Kupries
#
# [expand] definitions to convert a tcl based manpage definition into
# a manpage based upon HTML markup. Additional definition files allow
# the conversion into nroff and TMML.
#
################################################################
proc here {} [list return [file dirname [info script]]]
proc this {} [list return [file tail [info script]]]
source [file join [here] _common.tcl] ; # Shared code
source [file join [here] _html.tcl] ; # HTML basic formatting
proc bgcolor {} {return ""}
proc border {} {return 0}
################################################################
## Backend for HTML markup
proc manpage_begin {title section version} {
if {[mp_pass] == 1} {return}
set module [mp_module]
set shortdesc [GetDesc mdesc]
set description [GetDesc tdesc]
set hdr ""
append hdr "$title - $shortdesc \n"
append hdr "[ht_comment "Generated from [mp_file] by tcllib/doctools/mpexpand with [this]"]\n"
append hdr "[ht_comment "Copyright (c) [clock format [clock seconds] -format %Y] $::tcl_platform(user)"]\n"
append hdr "[ht_comment {All rights reserved}]\n"
append hdr "[ht_comment "CVS: \$Id\$ $title.$section"]\n"
append hdr "\n"
append hdr " [string trimleft $title :]($section) $version $module \"$shortdesc\"
\n"
append hdr "[section NAME]\n"
append hdr "[para] $title - $description"
return $hdr
}
proc moddesc {desc} {
if {[mp_pass] == 2} {return}
SetDesc mdesc $desc
return
}
proc titledesc {desc} {
if {[mp_pass] == 2} {return}
SetDesc tdesc $desc
return
}
proc manpage_end {} {return