Home
last modified time | relevance | path

Searched refs:line (Results 1 – 25 of 89) sorted by relevance

1234

/sqlite-3.40.0/tool/
H A Dmksqlite3c-noext.tcl48 set line [gets $in]
177 set line [gets $in]
198 puts $out $line
218 regsub {^SQLITE_API } $line {} line
242 regsub {^SQLITE_API } $line {} line
244 regsub {^extern } $line {} line
250 regsub {^SQLITE_EXTERN } $line {} line
254 regsub {^SQLITE_API } $line {} line
255 regsub {^SQLITE_EXTERN } $line {} line
258 regsub {^SQLITE_API } $line {} line
[all …]
H A Dmksqlite3h.tcl117 regsub -- --VERS-- $line $zVersion line
118 regsub -- --VERSION-NUMBER-- $line $nVersion line
119 regsub -- --SOURCE-ID-- $line "$zSourceId" line
121 if {[regexp $varpattern $line] && ![regexp {^ *typedef} $line]} {
122 set line "SQLITE_API $line"
129 set line SQLITE_API
132 append line " "
136 append line SQLITE_CDECL " "
141 append line $funcname $rest
147 regsub {\(\*} $line {(SQLITE_CALLBACK *} line
[all …]
H A Dmksqlite3c.tcl71 set line [gets $in]
241 puts $out $line
245 puts $out $line
261 regsub {^SQLITE_API } $line {} line
293 regsub {^SQLITE_API } $line {} line
296 regsub {^extern } $line {} line
302 regsub {^SQLITE_EXTERN } $line {} line
306 regsub {^SQLITE_API } $line {} line
307 regsub {^SQLITE_EXTERN } $line {} line
310 regsub {^SQLITE_API } $line {} line
[all …]
H A Dvdbe-compress.tcl59 set line [gets stdin]
61 append beforeUnion $line\n
71 set line [gets stdin]
73 append afterUnion $line\n
76 set line [gets stdin]
106 append afterUnion $line\n
109 append line " "
111 regsub -all "(\[^a-zA-Z0-9>.\])${v}(\\W)" $line "\\1u.$sname.$v\\2" line
112 regsub -all "(\[^a-zA-Z0-9>.\])${v}(\\W)" $line "\\1u.$sname.$v\\2" line
117 regsub -all "(\[^-\])>${v}(\\W)" $line "\\1>u.$sname.$v\\2" line
[all …]
H A Dcg_anno.tcl17 set line [string map {\t { }} [gets $in]]
18 if {[regexp {^-- Auto-annotated source: (.*)} $line all name]} {
26 } elseif {[regexp {^-- line (\d+) ------} $line all ln]} {
27 set line [lreplace $line 2 2 {#}]
29 } elseif {[regexp {^The following files chosen for } $line]} {
32 append out($dest) $line\n
35 if {[regexp {^ *([0-9,]+) } $line all x]} {
56 set line [gets $in]
58 if {[regexp $pattern1 $line all newfn]} {
60 } elseif {[regexp $pattern2 $line all newfn]} {
H A Dsplit-sqlite3c.tcl22 while {[gets $in line]} {
23 if {[regexp $BEGIN $line]} break
24 puts $out1 $line
37 while {[gets $in line]>=0} {
39 append buf $line\n
40 if {[regexp $end $line]} break
64 while {[regexp $BEGIN $line]} {
67 gather_one_file $line buf n
75 while {[gets $in line]>=0} {
76 if {[regexp $BEGIN $line]} break
[all …]
H A Dmkopcodeh.tcl40 set line [gets $in]
47 set tk([lindex $line 1]) [lindex $line 2]
54 if {[regexp {^.. Opcode: } $line]} {
55 set currentOp OP_[lindex $line 2]
57 foreach term $line {
77 if {[regexp {^case OP_} $line]} {
78 set line [split $line]
79 set name [string trim [lindex $line 1] :]
89 for {set i 3} {$i<[llength $line]-1} {incr i} {
90 switch [string trim [lindex $line $i] ,] {
[all …]
H A Dvdbe_profile.tcl21 set line [gets $in]
23 if {[regexp {^---- } $line]} {
24 set stmt [lindex $line 1]
36 if {[regexp {^-- } $line]} {
38 append sql($stmt) [string range $line 3 end]\n
42 if {![regexp {^ *\d+ *\d+ *\d+ *\d+ ([A-Z].*)} $line all detail]} continue
43 set c [lindex $line 0]
44 set t [lindex $line 1]
45 set addr [lindex $line 3]
46 set op [lindex $line 4]
H A Dreplace.tcl15 set line [gets stdin]
18 exact {set line [string map [list $from $to] $line]}
19 regsub {regsub -all -- $from $line $to line}
20 include {if {[regsub -all -- $from $line $to line]==0} continue}
22 puts stdout $line
H A Dmkccode.tcl56 set line [gets $in]
58 if {[regexp {^INCLUDE (.*)} $line all path]} {
65 set line [gets $in2]
67 set x [string map "\\\\ \\\\\\\\ \\\" \\\\\"" $line]
77 if {[regexp {^BEGIN_STRING} $line]} {
82 if {[regexp {^END_STRING} $line]} {
88 set x [string map "\\\\ \\\\\\\\ \\\" \\\\\"" $line]
91 puts $line
H A Dopcodesum.tcl14 set line [string map {\173 x \175 x \042 x} [gets stdin]]
15 if {[regexp { \. case OP_.*:} $line]} {
16 regexp {OP_(.+):} $line all currentop
18 } elseif {[lindex $line 1]=="default:"
19 && [regexp {really OP_Noop and OP_Explain} $line]} {
21 } elseif {[lindex $line 0]!="."} {
22 regsub -all {[^0-9]} [lindex $line 0] {} n
H A Dextract-sqlite3h.tcl13 set line [gets $in]
14 if {[string match {* Begin file sqlite3.h *} $line]} break
17 set line [gets $in]
18 if {[string match {* End of sqlite3.h *} $line]} break
19 puts $line
H A Dsqltclsh.tcl52 set line {}
60 append line [gets stdin]
61 if {[info complete $line]} {
67 set line {}
69 append line \\n"
H A Dmkopcodec.tcl28 set line [gets $in]
30 set name [lindex $line 1]
32 set i [lindex $line 2]
35 if {[regexp {synopsis: (.*) \*/} $line all x]} {
/sqlite-3.40.0/ext/fts5/
H A Dextract_api_docs.tcl73 foreach line [split $docs "\n"] {
74 regsub {[*]*} $line {} line
75 if {[regexp {^ } $line]} {
76 append current_doc "$line\n"
106 regexp {[*][*](.*)} $line -> line
107 if {[regexp {^ ?x.*:} $line]} {
117 append res "$line\n"
172 output $line
185 if {[regexp $start $line]} {
191 append res "$line\n"
[all …]
/sqlite-3.40.0/ext/fts3/unicode/
H A Dparseunicode.tcl52 set line [gets $fd]
53 if {$line == ""} continue
55 set fields [split $line ";"]
126 set line [gets $fd]
127 if {$line == ""} continue
129 set fields [split $line ";"]
151 set line [gets $fd]
153 if {$line == ""} continue
191 set line [gets $fd]
192 if {$line == ""} continue
[all …]
/sqlite-3.40.0/test/
H A Dlock_common.tcl100 set line [gets $chan]
109 append r $line
125 set line "OVER"
127 set line [gets $chan]
130 if { $line == "OVER" } {
135 append ::tfnb($chan) $line
142 set line "OVER"
144 set line [gets $chan]
147 if { $line == "OVER" } {
190 set line [gets stdin]
[all …]
H A Dmalloctraceviewer.tcl48 set line [$db one {SELECT line FROM frame WHERE frame = $frame}]
49 if {$line ne ""} {
50 regexp {^([^:]*):([0-9]*)} $line -> file line
56 if {$iLine == $line} {
63 $::O(text) yview -pickplace ${line}.0
166 set line [$db one {SELECT line FROM frame WHERE frame = $frame}]
167 set line [lindex [split $line /] end]
171 $::O(tree) insert $parent_id end -id $stack -text $line -values $v
243 WHERE line LIKE '%malloc.c:%' OR line LIKE '%mem2.c:%'
H A Dshell3.test19 # shell3-1.*: Basic tests for running SQL statments from command line.
20 # shell3-2.*: Basic tests for running SQL file from command line.
31 # There are inconsistencies in command-line argument quoting on Windows.
32 # In particular, individual applications are responsible for command-line
34 # program is compiled with MinGW or MSVC, the command-line parsing is
44 # shell3-1.*: Basic tests for running SQL statments from command line.
47 # Run SQL statement from command line
74 # shell3-2.*: Basic tests for running SQL file from command line.
77 # Run SQL file from command line
101 } {1 {Parse error near line 1: incomplete input}}
H A Dlock6.test30 fconfigure $chan -buffering line
41 set line [gets $chan]
42 if { $line == "OVER" } {
45 append r $line
52 # process, followed by the word "OVER" on a line of its own. The child
61 set line [gets stdin]
62 puts $l "READ $line"
63 if { $line == "OVER" } {
72 append script $line
H A Dwapptest.tcl94 foreach line [split $r1 "\n"] {
95 if {[regexp {^checkout: *(.*)$} $line -> co]} {
162 set line [gets $fd]
168 set G(test.$name.errmsg) $line
171 if {[regexp {runtime error: +(.*)} $line all msg]} {
182 if {[regexp {fatal error +(.*)} $line all msg]} {
194 if {[regexp {^VERSION: 3\.\d+.\d+} $line]} {
195 set v [string range $line 9 end]
305 set line [gets $fd]
306 if {[string trim $line] != ""} { puts "Trace : $name - \"$line\"" }
[all …]
/sqlite-3.40.0/ext/fts5/tool/
H A Dmkfts5c.tcl89 foreach line [split $data "\n"] {
91 set line "/* $line */"
93 ![regexp { sqlite3Fts5Init\(} $line]
94 && [regexp {^(const )?[a-zA-Z][a-zA-Z0-9]* [*]?sqlite3Fts5} $line]
96 set line "static $line"
98 set line [string map $sub_map $line]
99 puts $G(fd) $line
/sqlite-3.40.0/ext/lsm1/tool/
H A Dmklsm1c.tcl67 foreach line [split $data "\n"] {
69 set line "/* $line */"
70 } elseif { [regexp {^(const )?[a-zA-Z][a-zA-Z0-9]* [*]?lsm[^_]} $line] } {
71 set line "static $line"
73 puts $G(fd) $line
/sqlite-3.40.0/contrib/
H A Dsqlitecon.tcl193 proc sqlitecon::addHistory {w line} { argument
197 if {[string compare $last $line]} {
198 lappend v(history) $line
202 set v(history) [list $line]
219 set cmd $line
221 set cmd $v(prior)\n$line
406 sqlitecon::SetLine $w $line
416 sqlitecon::SetLine $w $line
421 proc sqlitecon::SetLine {w line} { argument
426 $w insert end $line
[all …]
/sqlite-3.40.0/autoconf/
H A DREADME.txt6 * the shell.c file used to build the sqlite3 command-line shell program
33 line like this:
54 command line.
63 NMAKE command line as well:
74 NMAKE command line as well:
85 NMAKE command line as well:
97 above, no other macros should be needed on the NMAKE command line.
103 on the NMAKE command line. However, not all possible preprocessor defines

1234