and
# tags.
incr lev
append result "[AddEscapes $htext] \n"
}
/P {
set this(inpara) 0
foreach letter [array names sty] {
if {$sty($letter)} {
append result $htmlStyles(${letter}0)
}
}
array set last [array get this]
if {$this(indent) == 0} {
# Then this is the end of a normal paragraph, which
# needs to be closed.
append result ""
}
}
P {
set this(inpara) 1
# FIRST, reset all text styles.
array set sty {
m 0 i 0 b 0
h 0 s 0 x 0
}
# Next, get the paragraph style.
set this(para) [lindex $value 0]
set this(indent) [lindex $value 1]
# Next, if we're indented less than before, close
# the indentation.
for {set i $this(indent)} {$i < $last(indent)} {incr i} {
append result "\n\n"
}
# Next, if we're indented more than before, open
# the indentation.
for {set i $last(indent)} {$i < $this(indent)} {incr i} {
append result "\n\n"
}
# Next, if the indentation is 0, start a new
# paragraph; otherwise start a list item.
if {$this(indent) == 0} {
append result ""
} elseif {$this(para) eq "*"} {
append result "
- "
} elseif {$last(para) eq "*" &&
$this(para) eq ":"} {
append result "
\n"
}
}
TXT {
# Handle Notebook markup pseudo-escapes.
set value [string map [list "&lb;" \[ "&rb;" \]] $value]
append result $value
}
HTML {
append result $value
}
NL {
append result "\n"
}
STY {
set code [lindex $value 0]
set letter [string index $code 0]
set flag [string index $code 1]
set sty($letter) $flag
append result $htmlStyles($code)
}
LINK {
set value [::markupparser::normalizeSpace $value]
if {![regexp {^([^|]+)\|(.*$)} $value dummy linktext name]} {
set linktext $value
set name $value
}
if {$options(-linkcmd) eq ""} {
append result [AddEscapes $linktext]
continue
}
set cmd $options(-linkcmd)
lappend cmd $linktext $name
append result [uplevel \#0 $cmd]
}
BTN {
# Extract just the button text.
set value [lindex [split $value |] 0]
append result $value
}
OBJECT {
set obj [getobj $value]
switch -exact [lindex $obj 0] {
image {
set fname [lindex $obj 1]
array set opts [lindex $obj 2]
append result "![\"$opts(-text)\""](\"$fname\"")
"
}
error -
default {
append result [ErrText "
\[!$value!\]
"]
}
}
}
MACRO {
# There shouldn't be any macros. Format the macro
# in red.
append result [ErrText "\[@$value@\]"]
}
}
}
# If last indent was > 0, close the indentation.
for {set i 0} {$i < $last(indent)} {incr i} {
append result "\n\n"
}
if {$this(inpara)} {
foreach letter [array names sty] {
if {$sty($letter)} {
append result $htmlStyles(${letter}0)
}
}
if {$this(indent) == 0} {
# Then this is the end of a normal paragraph, which
# needs to be closed.
append result ""
}
}
return $result
}
#-------------------------------------------------------------------
# Utility Procs
# ErrText text
#
# Wraps the text in a red font.
proc ErrText {text} {
return "$text"
}
# AddEscapes text
#
# text plain text to be included in HTML output.
#
# Converts &, <, and > to &, <, and >.
proc AddEscapes {text} {
regsub -all "&" $text {\&} text
regsub -all "<" $text {\<} text
regsub -all ">" $text {\>} text
return $text
}
}
- \n"
}
# Next, if the indentation is 0, start a new
# paragraph; otherwise start a list item.
if {$this(indent) == 0} {
append result "
- " } elseif {$last(para) eq "*" && $this(para) eq ":"} { append result " \n" } } TXT { # Handle Notebook markup pseudo-escapes. set value [string map [list "&lb;" \[ "&rb;" \]] $value] append result $value } HTML { append result $value } NL { append result "\n" } STY { set code [lindex $value 0] set letter [string index $code 0] set flag [string index $code 1] set sty($letter) $flag append result $htmlStyles($code) } LINK { set value [::markupparser::normalizeSpace $value] if {![regexp {^([^|]+)\|(.*$)} $value dummy linktext name]} { set linktext $value set name $value } if {$options(-linkcmd) eq ""} { append result [AddEscapes $linktext] continue } set cmd $options(-linkcmd) lappend cmd $linktext $name append result [uplevel \#0 $cmd] } BTN { # Extract just the button text. set value [lindex [split $value |] 0] append result $value } OBJECT { set obj [getobj $value] switch -exact [lindex $obj 0] { image { set fname [lindex $obj 1] array set opts [lindex $obj 2] append result "
" } elseif {$this(para) eq "*"} { append result "
\[!$value!\]"] } } } MACRO { # There shouldn't be any macros. Format the macro # in red. append result [ErrText "\[@$value@\]"] } } } # If last indent was > 0, close the indentation. for {set i 0} {$i < $last(indent)} {incr i} { append result "\n\n" } if {$this(inpara)} { foreach letter [array names sty] { if {$sty($letter)} { append result $htmlStyles(${letter}0) } } if {$this(indent) == 0} { # Then this is the end of a normal paragraph, which # needs to be closed. append result "" } } return $result } #------------------------------------------------------------------- # Utility Procs # ErrText text # # Wraps the text in a red font. proc ErrText {text} { return "$text" } # AddEscapes text # # text plain text to be included in HTML output. # # Converts &, <, and > to &, <, and >. proc AddEscapes {text} { regsub -all "&" $text {\&} text regsub -all "<" $text {\<} text regsub -all ">" $text {\>} text return $text } }