ocaml/tools/make-opcodes.Mac

15 lines
236 B
Plaintext
Raw Normal View History

set echo 0
exit 1 if {#} != 2
catenate "{1}" >"{2}"
open -t "{2}"
replace <20>:/<2F> / 'let op' "{2}"
set i 0
loop
replace /,[ <20>n]+/ " = {i}<7D>nlet op" "{2}" || break
evaluate i += 1
end
replace /<2F>[<5B> ]/:<3A> " = {i}<7D>n" "{2}"
close -y "{2}"