Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Minor simplification of the 'vtab.tcl' doc tool. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f318af97f7b1e3b98e67d239f5088154 |
| User & Date: | mistachkin 2016-09-13 21:54:34 |
Context
|
2016-09-13
| ||
| 21:56 | Fix typo in the master release archive manifest. check-in: 4acb122a6b user: mistachkin tags: trunk | |
| 21:54 | Minor simplification of the 'vtab.tcl' doc tool. check-in: f318af97f7 user: mistachkin tags: trunk | |
|
2016-09-12
| ||
| 21:35 | Further enhance backward compatibility of the 'vtab.tcl' doc tool. check-in: 5a46d020f4 user: mistachkin tags: trunk | |
Changes
Changes to Doc/vtab.tcl.
69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
foreach escape [list \
{<b>} {</b>} {<br>} {<dd>} {</dd>} {<dl>} {</dl>} {<dt>} \
{</dt>} {<li>} {</li>} {<ol>} {</ol>} {<tt>} {</tt>} \
{<ul>} {</ul>}] {
regsub -all -- ($escape) $result {<![CDATA[\1]]>} result
}
set indent " /// "
regsub -all -- {≠} $result {\≠} result
regsub -all -- {[(?:;)?} $result {[} result
regsub -all -- {](?:;)?} $result {]} result
if {$ltAndGt} then {
regsub -all -- {<( |\"|\d|=)} $result {\<\1} result
regsub -all -- {( |\"|\d|=)>} $result {\1\>} result
}
regsub -all -- {<div class="codeblock"><pre>} $result \
<para><code>\n$indent result
regsub -all -- {</pre></div>} $result </code></para> result
regsub -all -- {<blockquote><pre>} $result <para><code> result
regsub -all -- {</pre></blockquote>} $result </code></para> result
regsub -all -- {<blockquote>} $result <para><code> result
regsub -all -- {</blockquote>} $result </code></para> result
|
< < | |
69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 |
foreach escape [list \
{<b>} {</b>} {<br>} {<dd>} {</dd>} {<dl>} {</dl>} {<dt>} \
{</dt>} {<li>} {</li>} {<ol>} {</ol>} {<tt>} {</tt>} \
{<ul>} {</ul>}] {
regsub -all -- ($escape) $result {<![CDATA[\1]]>} result
}
regsub -all -- {≠} $result {\≠} result
regsub -all -- {[(?:;)?} $result {[} result
regsub -all -- {](?:;)?} $result {]} result
if {$ltAndGt} then {
regsub -all -- {<( |\"|\d|=)} $result {\<\1} result
regsub -all -- {( |\"|\d|=)>} $result {\1\>} result
}
regsub -all -- {<div class="codeblock"><pre>} $result \
<para><code>\n${prefix} result
regsub -all -- {</pre></div>} $result </code></para> result
regsub -all -- {<blockquote><pre>} $result <para><code> result
regsub -all -- {</pre></blockquote>} $result </code></para> result
regsub -all -- {<blockquote>} $result <para><code> result
regsub -all -- {</blockquote>} $result </code></para> result
|