Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Changes to make capi3ref processing more robust. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ababf67f179ff066e537e73622def1e2 |
| User & Date: | drh 2011-12-01 02:30:25.812 |
Context
|
2011-12-19
| ||
| 21:08 | Fix a typo. "no" becomes "now". (check-in: 2286e5b9c1 user: drh tags: trunk) | |
|
2011-12-01
| ||
| 02:30 | Changes to make capi3ref processing more robust. (check-in: ababf67f17 user: drh tags: trunk) | |
|
2011-11-30
| ||
| 18:46 | Improvements to journal_size_limit documentation. (check-in: be40d822e3 user: drh tags: trunk) | |
Changes
Changes to pages/capi3ref.in.
| ︙ | ︙ | |||
148 149 150 151 152 153 154 |
set phase 0
set dcnt 0
} else {
if {[regexp {^#define (SQLITE_[A-Z0-9_]+)} $line all kx]} {
set type constant
set keyword($kx) 1
incr dcnt
| | | 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 |
set phase 0
set dcnt 0
} else {
if {[regexp {^#define (SQLITE_[A-Z0-9_]+)} $line all kx]} {
set type constant
set keyword($kx) 1
incr dcnt
} elseif {[regexp {^typedef .*(sqlite[0-9a-zA-Z_]+);} $line all kx]} {
set type datatype
set keyword($kx) 1
incr dcnt
} elseif {[regexp {^struct (sqlite3_[0-9a-z_]+)} $line all kx]} {
set type datatype
set keyword($kx) 1
incr dcnt
|
| ︙ | ︙ | |||
183 184 185 186 187 188 189 190 191 192 193 194 195 196 |
#
# Constants begin with SQLITE_. The names are converted
# to lower case and prefixed with "c_". If we did not
# do this, then the names "SQLITE_BLOB" and "sqlite3_blob"
# would collide.
#
proc convert_keyword_to_filename {oldname} {
set oldname [string tolower $oldname]
regsub {^sqlite_} $oldname {c_} oldname
regsub {^sqlite3_} $oldname {} oldname
regsub { } $oldname _ name
return $name.html
}
| > | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 |
#
# Constants begin with SQLITE_. The names are converted
# to lower case and prefixed with "c_". If we did not
# do this, then the names "SQLITE_BLOB" and "sqlite3_blob"
# would collide.
#
proc convert_keyword_to_filename {oldname} {
regsub {_FILE} $oldname {_stdiofile} oldname
set oldname [string tolower $oldname]
regsub {^sqlite_} $oldname {c_} oldname
regsub {^sqlite3_} $oldname {} oldname
regsub { } $oldname _ name
return $name.html
}
|
| ︙ | ︙ | |||
302 303 304 305 306 307 308 309 310 311 312 313 314 315 |
<hr>
<tcl>
# Find the preferred keyword for a page given a list of
# acceptable keywords.
#
proc preferred_keyword {keyword_list} {
foreach kw $keyword_list {
if {[regexp -nocase {^sqlite} $kw]} break
}
return $kw
}
# Do a page explaining what "experimental" means.
| > | 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 |
<hr>
<tcl>
# Find the preferred keyword for a page given a list of
# acceptable keywords.
#
proc preferred_keyword {keyword_list} {
set kw {}
foreach kw $keyword_list {
if {[regexp -nocase {^sqlite} $kw]} break
}
return $kw
}
# Do a page explaining what "experimental" means.
|
| ︙ | ︙ | |||
369 370 371 372 373 374 375 |
# Do a table of contents for objects
#
set objlist {}
foreach c $content {
foreach {key title type keywords body code} $c break
if {$type!="datatype"} continue
| | | | 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 |
# Do a table of contents for objects
#
set objlist {}
foreach c $content {
foreach {key title type keywords body code} $c break
if {$type!="datatype"} continue
set keywords [lsort -nocase $keywords]
set k [preferred_keyword $keywords]
set s $supported($k)
foreach kw $keywords {
if {[regexp {^sqlite} $kw]} {
lappend objlist [list $k $kw $s]
}
}
}
hd_open_aux c3ref/objlist.html
hd_header {List Of SQLite Objects}
hd_enable_main 0
hd_putsnl {<a href="intro.html"><h2>SQLite C Interface</h2></a>}
hd_enable_main 1
</tcl>
<h2>Objects:</h2>
<p>Note: Objects marked with "[experimental | <small><i>exp</i></small>]"
are [experimental] and objects marked with
"[deprecated | <small><i>(obs)</i></small>]" are [deprecated].</p>
<tcl>
output_list 3 [lsort -nocase $objlist]
hd_enable_main 0
hd_putsnl {<p>Other lists:
<a href="constlist.html">Constants</a> and
<a href="funclist.html">Functions</a>.}
hd_close_aux
hd_enable_main 1
hd_putsnl {<hr>}
|
| ︙ | ︙ | |||
485 486 487 488 489 490 491 492 493 494 495 496 497 498 |
# Output all the records
#
foreach c [lsort $content] {
foreach {key title type keywords body code} $c break
set kw [preferred_keyword [lsort $keywords]]
hd_fragment $kw
hd_open_aux c3ref/[convert_keyword_to_filename $kw]
hd_header $title
hd_enable_main 0
hd_puts {<a href="intro.html"><h2>SQLite C Interface</h2></a>}
hd_enable_main 1
eval hd_keywords $keywords
| > | 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 |
# Output all the records
#
foreach c [lsort $content] {
foreach {key title type keywords body code} $c break
set kw [preferred_keyword [lsort $keywords]]
if {$kw==""} {error "no keyword for $c"}
hd_fragment $kw
hd_open_aux c3ref/[convert_keyword_to_filename $kw]
hd_header $title
hd_enable_main 0
hd_puts {<a href="intro.html"><h2>SQLite C Interface</h2></a>}
hd_enable_main 1
eval hd_keywords $keywords
|
| ︙ | ︙ |