diff options
Diffstat (limited to 'tools/tcltk-man2html-utils.tcl')
| -rw-r--r-- | tools/tcltk-man2html-utils.tcl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl index c0c6a75..de88bea 100644 --- a/tools/tcltk-man2html-utils.tcl +++ b/tools/tcltk-man2html-utils.tcl @@ -1470,6 +1470,21 @@ proc make-manpage-section {outputDir sectionDescriptor} { } error "found .. outside of .de" } + .ds { + regexp {^(\S+) ([^\s""]+|".*")$} $rest var rest + if {$var eq "UB"} { + variable ImageUrlBase [unquote $rest] + } + } + .FI { + flushbuffer + regexp {^(\S+) ([^\s""]+|".*")$} $rest fig caption + variable ImageUrlBase + set fig $ImageUrlBase$fig.png + set caption [process-text [unquote $caption]] + lappend manual(text) \ + "<center><img src=\"$fig\"><br>$caption</center>" + } default { if {!$verbose} { puts stderr "" |