Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Enhance backward compatibility of the 'vtab.tcl' doc tool. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
59cb4c92a53b304c705949f728ace905 |
| User & Date: | mistachkin 2016-09-12 21:07:13 |
Context
|
2016-09-12
| ||
| 21:18 | Even more updates to the 'vtab.tcl' doc tool. check-in: dfedc189bf user: mistachkin tags: trunk | |
| 21:07 | Enhance backward compatibility of the 'vtab.tcl' doc tool. check-in: 59cb4c92a5 user: mistachkin tags: trunk | |
| 21:01 | More doc tooling updates. check-in: d8c22e8ff7 user: mistachkin tags: trunk | |
Changes
Changes to Doc/vtab.tcl.
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
...
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
|
proc escapeSubSpec { data } {
regsub -all -- {&} $data {\\\&} data
regsub -all -- {\\(\d+)} $data {\\\\\1} data
return $data
}
proc preProcessLine { value } {
regsub -- { id="[a-z_]+"} $value "" value
regsub -- {</p><h(\d)>} $value </p>\n<h\\1> value
regsub -- {</p><blockquote><pre>} $value <blockquote><pre> value
return $value
}
proc englishToList { value } {
set result [list]
................................................................................
set inputData [string map [list \
{<font size="6" color="red">*** DRAFT ***</font>} ""] $inputData]
set inputData [string map [list {<p align="center"></p>} ""] $inputData]
set lines [split [string map [list \r\n \n] $inputData] \n]
set patterns(start) {^</p>\n<h1><span>2\. </span>Virtual Table Methods</h1>$}
set patterns(method) [string trim {
^(?:</p>\n)?<h2><span>2\.\d+\. </span>The (.*) Method(?:s)?</h2>$
}]
set prefix " /// "
unset -nocomplain methods; set start false
for {set index 0} {$index < [llength $lines]} {} {
set line [preProcessLine [lindex $lines $index]]
|
|
>
|
>
>
|
|
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
...
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
|
proc escapeSubSpec { data } {
regsub -all -- {&} $data {\\\&} data
regsub -all -- {\\(\d+)} $data {\\\\\1} data
return $data
}
proc preProcessLine { value } {
regsub -- { id="[0-9a-z_]+"} $value "" value
regsub -- {</p><h(\d)>} $value </p>\n<h\\1> value
regsub -- {</p><blockquote><pre>} $value <blockquote><pre> value
return $value
}
proc englishToList { value } {
set result [list]
................................................................................
set inputData [string map [list \
{<font size="6" color="red">*** DRAFT ***</font>} ""] $inputData]
set inputData [string map [list {<p align="center"></p>} ""] $inputData]
set lines [split [string map [list \r\n \n] $inputData] \n]
set patterns(start) [string trim {
^(?:</p>\n)?<h1>(?:<span>)?2\. (?:</span>)?Virtual Table Methods</h1>$
}]
set patterns(method) [string trim {
^(?:</p>\n)?<h2>(?:<span>)?2\.\d+\. (?:</span>)?The (.*) Method(?:s)?</h2>$
}]
set prefix " /// "
unset -nocomplain methods; set start false
for {set index 0} {$index < [llength $lines]} {} {
set line [preProcessLine [lindex $lines $index]]
|