Lines Matching refs:cmd

219     set cmd $line
221     set cmd $v(prior)\n$line
223   if {[string index $cmd 0]=="." || [$v(db) complete $cmd]} {
224     regsub -all {\n} [string trim $cmd] { } cmd2
226     set rc [catch {DoCommand $w $cmd} res]
236     set v(prior) $cmd
251 proc sqlitecon::DoCommand {w cmd} {  argument
255   if {[regexp {^(\.[a-z]+)} $cmd all word]} {
257       regexp {^.[a-z]+ +([a-z]+)} $cmd all v(mode)
263       regexp {^.[a-z]+ +([a-z]+)} $cmd all v(header)
267       set cmd {SELECT name FROM sqlite_master WHERE type='table'
272             append cmd "UNION ALL SELECT name FROM $name.sqlite_master\
276       append cmd  { ORDER BY 1}
279       regexp {^.[a-z]+ +([^ ]+)} $cmd all pattern
282       set cmd "SELECT sql FROM sqlite_master WHERE tbl_name LIKE '$pattern'
287             append cmd " UNION ALL SELECT sql FROM $name.sqlite_master\
293       regexp {^.[a-z]+ +([^ ]+)} $cmd all pattern
296       set cmd "SELECT sql FROM sqlite_master WHERE name LIKE '$pattern'
301             append cmd " UNION ALL SELECT sql FROM $name.sqlite_master\
312     $v(db) eval $cmd x {
331     $v(db) eval $cmd x {
370     set y [$v(db) eval $cmd]
391     $v(db) eval $cmd x {