Artifact 50635d6301c2e775cf57ef1bda7bdfd059442cb3:
- Executable file TextSweep.app/Contents/lib/tcllib1.12/doctools/mpformats/toc.wiki — part of check-in [a7af6d5c8e] at 2016-07-02 03:07:54 on branch trunk — Initial commit (user: kevin size: 2280)
- Executable file libs/tcllib1.12/doctools/mpformats/toc.wiki — part of check-in [a7af6d5c8e] at 2016-07-02 03:07:54 on branch trunk — Initial commit (user: kevin size: 2280)
- File libs/tcllib2.0/doctools/mpformats/toc.wiki — part of check-in [5595ddecb3] at 2024-04-21 18:02:45 on branch trunk — Rearrange libraries (user: kevin size: 2280)
- File scriptlibs/tcllib1.12/doctools/mpformats/toc.wiki — part of check-in [a7af6d5c8e] at 2016-07-02 03:07:54 on branch trunk — Initial commit (user: kevin size: 2280)
- File scriptlibs/tcllib1.19/doctools/mpformats/toc.wiki — part of check-in [2e6360a121] at 2018-04-25 03:01:16 on branch trunk — Refine listing of files to elimimnate binary non-text files (user: kevin size: 2280)
# -*- tcl -*- # # $Id: toc.wiki,v 1.6 2005/09/28 04:51:19 andreas_kupries Exp $ # # Engine to convert a doctoc document into Wiki markup. # # Copyright (c) 2003 Andreas Kupries <andreas_kupries@sourceforge.net> # Freely redistributable. # ######################################################################
dt_source _toc_common.tcl ; # Shared code
######################################################################
proc toc_postprocess {wiki} { # Strip empty lines out of the generated wiki source # and trim leading blanks, except in code samples. # set lines list foreach line split $wiki \n { if {*" $line} { # Verbatim / example lappend lines string trimright $line } elseif {string match ". *" $line} { # Verbatim / regular lappend lines string range [string trimright $line 1 end] } elseif {[string match " \* *" $line]} { # Itemized lists. lappend lines [string map {[ [[ ]string map {[ [[ ]]} string trimright $line] } elseif {[string match " 1. *" $line]} { # Enumerated lists lappend lines [string map {[ [[ ]string map {[ [[ ]]} string trimright $line] } elseif {[regexp "^ (\[^:\]): " $line]} { # Definition list lappend lines [string map {[ [[ ]string map {[ [[ ]]} string trimright $line] } elseif {string match " *" $line} { # Unwanted indentation lappend lines [string map {[ [[ ]string map {[ [[ ]]} string trim $line] } else { # Everything else lappend lines [string map {[ [[ ]string map {[ [[ ]]} string trimright $line] } } set wiki join $lines \n\n
regsub {^[ ]+} $wiki {} wiki return $wiki }
proc fmt_plain_text {text} {if {$text != {}} {return \n} else {return {}}}
################################################################ ## Backend for wiki markup
proc fmt_toc_begin {label title} {return "Table of Contents '''$label'''\n'''string trim $title'''"} proc fmt_toc_end {} {return {}} proc fmt_division_start {title symfile} {return '''string trim $title'''} proc fmt_division_end {} {return {}} proc fmt_item {file label desc} {return " \$label\: $file -- $desc"} proc fmt_comment {text} {return {}}
################################################################