Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add code to the sqlite3.h reader to ignore function requirement numbers embedded in the text. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
06172b7a6f471cddd4e30037353e9a91 |
| User & Date: | drh 2007-11-30 01:05:40 |
Context
|
2007-11-30
| ||
| 01:34 | Fix website typos and external hyperlink changes. (check-in: e4ae9bdfda user: drh tags: trunk) | |
| 01:05 | Add code to the sqlite3.h reader to ignore function requirement numbers embedded in the text. (check-in: 06172b7a6f user: drh tags: trunk) | |
|
2007-11-28
| ||
| 22:22 | Add documentation for the group_concat() function. (check-in: 2fc1269200 user: drh tags: trunk) | |
Changes
Changes to pages/capi3ref.in.
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
..
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
set in [open sqlite3.h]
set title {}
set type {}
set body {}
set code {}
set phase 0
set content {}
while {![eof $in]} {
set line [gets $in]
if {$phase==0} {
# Looking for the CAPI3REF: keyword
if {[regexp {^\*\* CAPI3REF: +(.*)} $line all tx]} {
set title $tx
set phase 1
}
} elseif {$phase==1} {
if {[string range $line 0 1]=="**"} {
set lx [string trim [string range $line 3 end]]
if {[regexp {^CATEGORY: +([a-z]*)} $lx all cx]} {
set type $cx
................................................................................
set phase 2
}
} elseif {$phase==2} {
if {$line==""} {
set kwlist [lsort [array names keyword]]
unset -nocomplain keyword
set key $type:$kwlist
lappend content [list $key $title $type $kwlist $body $code]
set title {}
set keywords {}
set type {}
set body {}
set code {}
set phase 0
|
>
>
>
>
>
>
>
>
>
>
>
>
|
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
..
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
set in [open sqlite3.h]
set title {}
set type {}
set body {}
set code {}
set phase 0
set content {}
set lineno 0
set reqdb [open reqdb.sql w]
while {![eof $in]} {
set line [gets $in]
incr lineno
if {$phase==0} {
# Looking for the CAPI3REF: keyword
if {[regexp {^\*\* CAPI3REF: +(.*)} $line all tx]} {
set title $tx
set title_lineno $lineno
set phase 1
}
} elseif {$phase==1} {
if {[string range $line 0 1]=="**"} {
set lx [string trim [string range $line 3 end]]
if {[regexp {^CATEGORY: +([a-z]*)} $lx all cx]} {
set type $cx
................................................................................
set phase 2
}
} elseif {$phase==2} {
if {$line==""} {
set kwlist [lsort [array names keyword]]
unset -nocomplain keyword
set key $type:$kwlist
if {[regexp {\{([\w.]+)\}} $title all tag]} {
regsub { *\{[\w.]+\}} $title {} title
set qtitle '[string map {' ''} \
$title\n<blockquote><pre>\n$code\n</pre></blockquote>]'
real_puts $reqdb "INSERT INTO req\
VALUES('$tag','sqlite3.h',$lineno,$qtitle);"
}
regsub -all { *\{[a-zA-Z0-9.]+\}} $body {} body
lappend content [list $key $title $type $kwlist $body $code]
set title {}
set keywords {}
set type {}
set body {}
set code {}
set phase 0
|