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 |