1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
# -*- tcl -*-
#
# Copyright (c) 2019 Andreas Kupries <andreas_kupries@sourceforge.net>
# Freely redistributable.
#
# _text_para.tcl -- Paragraph variables and accessors - Text accumulator
# # ## ### ##### ########
## State: Text buffer for paragraphs.
global __currentp
# # ## ### ##### ########
## API
proc Text {text} {
#puts_stderr "T++ (($text))"
global __currentp
append __currentp $text
return
}
proc Text? {} { global __currentp ; return $__currentp }
proc TextClear {} { global __currentp ; set __currentp "" }
proc TextTrimLeadingSpace {} {
global __currentp
regsub {^([ \t\v\f]*\x01?\n)*} $__currentp {} __currentp
return
}
proc TextTrimTrailingSpace {} {
global __currentp
regsub {([ \t\v\f]*\x01?\n)*$} $__currentp {} __currentp
append __currentp \n
return
}
proc TextPlain {text} {
if {[IsOff]} {return}
# Note: Whenever we get plain text it is possible that a macro for
# visual markup actually generated output before the expander got
# to the current text. This output was captured by the expander in
# its current context. Given the current organization of the
# engine we have to retrieve this formatted text from the expander
# or it will be lost. This is the purpose of the 'ctopandclear',
# which retrieves the data and also clears the capture buffer. The
# latter to prevent us from retrieving it again later, after the
# next macro added more data.
set text [ex_ctopandclear]$text
#puts_stderr "<<text_plain_text>>=<<[string map [list \t \\t { } \\s \n \\n \r \\r \v \\v \f \\f \1 \\1] $text]>>"
# ... TODO ... Handling of example => verbatim
if {[string length [string trim $text]] == 0} return
Text $text
return
}
##
# # ## ### ##### ########
return
|
