database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Fix the customization interfaces so that they match the documentation.

Browse Source 
FossilOrigin-Name: fba0b5fc7eead07a4853e78e02d788e7c714f6cd
This commit is contained in:
dan
2014-11-15 20:07:31 +00:00
parent 4aee5dff83
commit 48d7014067
25 changed files with 506 additions and 144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
ext/fts5/extract_api_docs.tcl
View File

@ -15,6 +15,17 @@
# is included in the documentation on the web.
#
set ::fts5_docs_output ""
if {[info commands hd_putsnl]==""} {
proc output {text} {
puts $text
}
} else {
proc output {text} {
append ::fts5_docs_output $text
}
}
set input_file [file join [file dir [info script]] fts5.h]
set fd [open $input_file]
set data [read $fd]
@ -102,28 +113,28 @@ foreach {hdr docs} $D {
if {[info exists M($hdr)]} {
set hdr $M($hdr)
}
puts "<h3><pre> $hdr</pre></h3>"
output "<h style=\"font-size:1.4em;background-color:#EEEEEE;display:block\"><pre> $hdr</pre></h>"
set mode ""
set bEmpty 1
foreach line [split [string trim $docs] "\n"] {
if {[string trim $line]==""} {
if {$mode != ""} {puts "</$mode>"}
if {$mode != ""} {output "</$mode>"}
set mode ""
} elseif {$mode == ""} {
if {[regexp {^ } $line]} {
set mode code
set mode codeblock
} else {
set mode p
}
puts "<$mode>"
output "<$mode>"
}
puts $line
output $line
}
if {$mode != ""} {puts "</$mode>"}
if {$mode != ""} {output "</$mode>"}
}
set ::fts5_docs_output