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

Support for a future ALTER TABLE command to add columns with default values. (CVS 2367)

Browse Source 
FossilOrigin-Name: 9d5abc1ddf6da37563c12d5a0401b89bb4e51c59
This commit is contained in:
danielk1977
2005-03-09 12:26:50 +00:00
parent 97ba4c94fc
commit aee18ef8e2
15 changed files with 326 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
www/opcode.tcl
View File

@ -1,7 +1,7 @@
#
# Run this Tcl script to generate the sqlite.html file.
#
set rcsid {$Id: opcode.tcl,v 1.14 2004/10/10 17:24:55 drh Exp $}
set rcsid {$Id: opcode.tcl,v 1.15 2005/03/09 12:26:51 danielk1977 Exp $}
source common.tcl
header {SQLite Virtual Machine Opcodes}
puts {
@ -20,7 +20,10 @@ foreach line [split $file \n] {
}
if {[regexp {^/\* Opcode: } $line]} {
set current_op [lindex $line 2]
set Opcode($current_op:args) [lrange $line 3 end]
set txt [lrange $line 3 end]
regsub -all {>} $txt {\>} txt
regsub -all {<} $txt {\&lt;} txt
set Opcode($current_op:args) $txt
lappend OpcodeList $current_op
continue
}
@ -33,6 +36,8 @@ foreach line [split $file \n] {
if {$line==""} {
append Opcode($current_op:text) \n<p>
} else {
regsub -all {>} $line {\&gt;} line
regsub -all {<} $line {\&lt;} line
append Opcode($current_op:text) \n$line
}
}