| OLD | NEW |
| 1 #!/usr/bin/tclsh | 1 #!/usr/bin/tclsh |
| 2 # | 2 # |
| 3 # This TCL script scans the opcodes.h file (which is itself generated by | 3 # This TCL script scans the opcodes.h file (which is itself generated by |
| 4 # another TCL script) and uses the information gleaned to create the | 4 # another TCL script) and uses the information gleaned to create the |
| 5 # opcodes.c source file. | 5 # opcodes.c source file. |
| 6 # | 6 # |
| 7 # Opcodes.c contains strings which are the symbolic names for the various | 7 # Opcodes.c contains strings which are the symbolic names for the various |
| 8 # opcodes used by the VDBE. These strings are used when disassembling a | 8 # opcodes used by the VDBE. These strings are used when disassembling a |
| 9 # VDBE program during tracing or as a result of the EXPLAIN keyword. | 9 # VDBE program during tracing or as a result of the EXPLAIN keyword. |
| 10 # | 10 # |
| (...skipping 30 matching lines...) Expand all Loading... |
| 41 close $in | 41 close $in |
| 42 | 42 |
| 43 for {set i 1} {$i<=$mx} {incr i} { | 43 for {set i 1} {$i<=$mx} {incr i} { |
| 44 puts [format " /* %3d */ %-18s OpHelp(\"%s\")," \ | 44 puts [format " /* %3d */ %-18s OpHelp(\"%s\")," \ |
| 45 $i \"$label($i)\" $synopsis($i)] | 45 $i \"$label($i)\" $synopsis($i)] |
| 46 } | 46 } |
| 47 puts " \175;" | 47 puts " \175;" |
| 48 puts " return azName\[i\];" | 48 puts " return azName\[i\];" |
| 49 puts "\175" | 49 puts "\175" |
| 50 puts "#endif" | 50 puts "#endif" |
| OLD | NEW |