00001 /* -*- tcl -*-*/ 00002 /* */ 00003 /* _toc_common.tcl*/ 00004 /* */ 00005 /* (c) 2003 Andreas Kupries <andreas_kupries@sourceforge.net>*/ 00006 00007 /* */ 00008 /* The code here contains general definitions for API functions and*/ 00009 /* state information. They are used by several formatters to simplify*/ 00010 /* their own code.*/ 00011 00012 ret toc_initialize () {return} 00013 ret toc_shutdown () {return} 00014 ret toc_numpasses () {return 1} 00015 ret toc_postprocess (type text) {return $text} 00016 ret toc_setup (type n) {return} 00017 ret toc_listvariables () {return {}} 00018 ret toc_varset (type varname , type text) {return} 00019 00020 00021 ret fmt_plain_text (type text) {return $text} 00022 00023 /* */ 00024 /* Functions made available to the formatter to access the common*/ 00025 /* state managed here.*/ 00026 00027 ret c_provenance () { 00028 return "Generated by tcllib/doctools/toc with format '[dt_format]'" 00029 } 00030 00031 /* */ 00032