| OLD | NEW |
| 1 #!/usr/bin/tclsh | 1 #!/usr/bin/tclsh |
| 2 # | 2 # |
| 3 # Generate the file opcodes.h. | 3 # Generate the file opcodes.h. |
| 4 # | 4 # |
| 5 # This TCL script scans a concatenation of the parse.h output file from the | 5 # This TCL script scans a concatenation of the parse.h output file from the |
| 6 # parser and the vdbe.c source file in order to generate the opcodes numbers | 6 # parser and the vdbe.c source file in order to generate the opcodes numbers |
| 7 # for all opcodes. | 7 # for all opcodes. |
| 8 # | 8 # |
| 9 # The lines of the vdbe.c that we are interested in are of the form: | 9 # The lines of the vdbe.c that we are interested in are of the form: |
| 10 # | 10 # |
| (...skipping 210 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 221 for {set i 0} {$i<=$max} {incr i} { | 221 for {set i 0} {$i<=$max} {incr i} { |
| 222 if {$i%8==0} { | 222 if {$i%8==0} { |
| 223 puts -nonewline [format "/* %3d */" $i] | 223 puts -nonewline [format "/* %3d */" $i] |
| 224 } | 224 } |
| 225 puts -nonewline [format " 0x%02x," $bv($i)] | 225 puts -nonewline [format " 0x%02x," $bv($i)] |
| 226 if {$i%8==7} { | 226 if {$i%8==7} { |
| 227 puts "\\" | 227 puts "\\" |
| 228 } | 228 } |
| 229 } | 229 } |
| 230 puts "\175" | 230 puts "\175" |
| OLD | NEW |