| Index: third_party/sqlite/sqlite-src-3100200/tool/addopcodes.tcl
|
| diff --git a/third_party/sqlite/sqlite-src-3100200/tool/addopcodes.tcl b/third_party/sqlite/sqlite-src-3100200/tool/addopcodes.tcl
|
| deleted file mode 100644
|
| index 84e3994ce8c8f9df536b9bd67b13c15f2dff5bdf..0000000000000000000000000000000000000000
|
| --- a/third_party/sqlite/sqlite-src-3100200/tool/addopcodes.tcl
|
| +++ /dev/null
|
| @@ -1,63 +0,0 @@
|
| -#!/usr/bin/tclsh
|
| -#
|
| -# This script appends additional token codes to the end of the
|
| -# parse.h file that lemon generates. These extra token codes are
|
| -# not used by the parser. But they are used by the tokenizer and/or
|
| -# the code generator.
|
| -#
|
| -#
|
| -set in [open [lindex $argv 0] rb]
|
| -set max 0
|
| -while {![eof $in]} {
|
| - set line [gets $in]
|
| - if {[regexp {^#define TK_} $line]} {
|
| - puts $line
|
| - set x [lindex $line 2]
|
| - if {$x>$max} {set max $x}
|
| - }
|
| -}
|
| -close $in
|
| -
|
| -# The following are the extra token codes to be added. SPACE and
|
| -# ILLEGAL *must* be the last two token codes and they must be in that order.
|
| -#
|
| -set extras {
|
| - TO_TEXT
|
| - TO_BLOB
|
| - TO_NUMERIC
|
| - TO_INT
|
| - TO_REAL
|
| - ISNOT
|
| - END_OF_FILE
|
| - UNCLOSED_STRING
|
| - FUNCTION
|
| - COLUMN
|
| - AGG_FUNCTION
|
| - AGG_COLUMN
|
| - UMINUS
|
| - UPLUS
|
| - REGISTER
|
| - ASTERISK
|
| - SPACE
|
| - ILLEGAL
|
| -}
|
| -if {[lrange $extras end-1 end]!="SPACE ILLEGAL"} {
|
| - error "SPACE and ILLEGAL must be the last two token codes and they\
|
| - must be in that order"
|
| -}
|
| -foreach x $extras {
|
| - incr max
|
| - puts [format "#define TK_%-29s %4d" $x $max]
|
| -}
|
| -
|
| -# Some additional #defines related to token codes.
|
| -#
|
| -puts "\n/* The token codes above must all fit in 8 bits */"
|
| -puts [format "#define %-20s %-6s" TKFLG_MASK 0xff]
|
| -puts "\n/* Flags that can be added to a token code when it is not"
|
| -puts "** being stored in a u8: */"
|
| -foreach {fg val comment} {
|
| - TKFLG_DONTFOLD 0x100 {/* Omit constant folding optimizations */}
|
| -} {
|
| - puts [format "#define %-20s %-6s %s" $fg $val $comment]
|
| -}
|
|
|