1941-docker-image-to-testdevel
| Line | |
|---|
| 1 | # -*- tcl -*- |
|---|
| 2 | # |
|---|
| 3 | # $Id: toc.tmml,v 1.6 2005/09/28 04:51:19 andreas_kupries Exp $ |
|---|
| 4 | # |
|---|
| 5 | # Engine to convert a doctoc document into TMML. |
|---|
| 6 | # |
|---|
| 7 | # Copyright (c) 2003 Andreas Kupries <andreas_kupries@sourceforge.net> |
|---|
| 8 | # Freely redistributable. |
|---|
| 9 | # |
|---|
| 10 | # See also <URL: http://tmml.sourceforge.net> |
|---|
| 11 | # |
|---|
| 12 | ###################################################################### |
|---|
| 13 | |
|---|
| 14 | dt_source _toc_common.tcl |
|---|
| 15 | dt_source _xml.tcl |
|---|
| 16 | |
|---|
| 17 | ###################################################################### |
|---|
| 18 | # Conversion specification. |
|---|
| 19 | # |
|---|
| 20 | # One-pass processing. |
|---|
| 21 | |
|---|
| 22 | rename toc_postprocess {} |
|---|
| 23 | rename fmt_postprocess toc_postprocess |
|---|
| 24 | |
|---|
| 25 | proc fmt_plain_text {text} {if {$text != {}} {return \n} else {return {}}} |
|---|
| 26 | |
|---|
| 27 | ################################################################ |
|---|
| 28 | ## Backend for TMML markup |
|---|
| 29 | |
|---|
| 30 | proc fmt_toc_begin {label title} {sequence [start manual package $label] [wrap $title title]} |
|---|
| 31 | proc fmt_toc_end {} {end manual} |
|---|
| 32 | proc fmt_division_start {title symfile} {sequence [start division] [wrap $text title]} |
|---|
| 33 | proc fmt_division_end {} {end division} |
|---|
| 34 | proc fmt_item {file label desc} {emptyElement subdoc href [dt_fmap $file]} |
|---|
| 35 | proc fmt_comment {text} {xmlComment $text} |
|---|
| 36 | |
|---|
| 37 | ################################################################ |
|---|
Note: See
TracBrowser
for help on using the repository browser.
