# -*- tcl -*- # # -- Null format # # Copyright (c) 2001-2002 Andreas Kupries # Copyright (c) 2003 Andreas Kupries # This is a null format which does return no output at all. ################################################################ proc fmt_initialize {} {return} proc fmt_shutdown {} {return} proc fmt_numpasses {} {return 1} proc fmt_postprocess {text} {return ""} proc fmt_plain_text {text} {return ""} proc fmt_setup {n} {return} foreach p { manpage_begin moddesc titledesc manpage_end require description section para list_begin list_end lst_item call usage bullet enum arg_def cmd_def opt_def tkoption_def see_also keywords example example_begin example_end nl arg cmd opt emph comment sectref syscmd method option widget fun type package class var file uri term const copyright namespace subsection category } { proc fmt_$p {args} {return ""} } ################################################################