18 lines
383 B
Tcl
18 lines
383 B
Tcl
source debug/instructions.tcl
|
|
|
|
proc make_scanner_instructions {is} {
|
|
proc make_scanner_instruction {i} {
|
|
puts [format "%s { return I%s; }" \
|
|
[lindex $i 0] \
|
|
[string toupper [lindex $i 0]]
|
|
]
|
|
}
|
|
foreach i $is {
|
|
make_scanner_instruction $i
|
|
}
|
|
}
|
|
|
|
puts " */"
|
|
|
|
make_scanner_instructions $instructions
|