ref: a7b84ec20ba5b2eb61b232f6bbe17281b4f84e57
parent: 173562f395136242cafaa287f8e873600efa9547
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Sat Jan 18 19:35:27 EST 2025
generate vm_goto.inc
--- a/meson.build
+++ b/meson.build
@@ -180,6 +180,20 @@
],
)
+ops = custom_target(
+ 'ops',
+ capture: true,
+ input: [
+ 'vm.inc',
+ ],
+ output: [
+ 'vm_goto.inc',
+ ],
+ command: [
+ 'ops2h.sh', '@INPUT@',
+ ],
+)
+
brieflz = static_library(
'brieflz',
sources: [
@@ -250,6 +264,7 @@
src_flisp,
boot,
builtins,
+ ops,
],
dependencies: [
math,
--- /dev/null
+++ b/ops2h.sh
@@ -1,0 +1,3 @@
+#!/bin/sh
+set -e
+sed -nE 's/.*(OP_[A-Z0-9]+).*/GOTO_OP_OFFSET(\1),/p' $* | sort -u
--- a/vm_goto.inc
+++ /dev/null
@@ -1,95 +1,0 @@
-GOTO_OP_OFFSET(OP_LOADA0),
-GOTO_OP_OFFSET(OP_LOADA1),
-GOTO_OP_OFFSET(OP_LOADV),
-GOTO_OP_OFFSET(OP_BRF),
-GOTO_OP_OFFSET(OP_POP),
-GOTO_OP_OFFSET(OP_CALL),
-GOTO_OP_OFFSET(OP_TCALL),
-GOTO_OP_OFFSET(OP_LOADG),
-GOTO_OP_OFFSET(OP_LOADA),
-GOTO_OP_OFFSET(OP_LOADC),
-GOTO_OP_OFFSET(OP_RET),
-GOTO_OP_OFFSET(OP_DUP),
-GOTO_OP_OFFSET(OP_CAR),
-GOTO_OP_OFFSET(OP_CDR),
-GOTO_OP_OFFSET(OP_CLOSURE),
-GOTO_OP_OFFSET(OP_SETA),
-GOTO_OP_OFFSET(OP_JMP),
-GOTO_OP_OFFSET(OP_LOADC0),
-GOTO_OP_OFFSET(OP_CONSP),
-GOTO_OP_OFFSET(OP_BRNE),
-GOTO_OP_OFFSET(OP_LOADT),
-GOTO_OP_OFFSET(OP_LOAD0),
-GOTO_OP_OFFSET(OP_LOADC1),
-GOTO_OP_OFFSET(OP_AREF2),
-GOTO_OP_OFFSET(OP_AREF),
-GOTO_OP_OFFSET(OP_ATOMP),
-GOTO_OP_OFFSET(OP_BRT),
-GOTO_OP_OFFSET(OP_BRNN),
-GOTO_OP_OFFSET(OP_LOAD1),
-GOTO_OP_OFFSET(OP_LT),
-GOTO_OP_OFFSET(OP_ADD2),
-GOTO_OP_OFFSET(OP_SETCDR),
-GOTO_OP_OFFSET(OP_LOADF),
-GOTO_OP_OFFSET(OP_CONS),
-GOTO_OP_OFFSET(OP_EQ),
-GOTO_OP_OFFSET(OP_SYMBOLP),
-GOTO_OP_OFFSET(OP_NOT),
-GOTO_OP_OFFSET(OP_CADR),
-GOTO_OP_OFFSET(OP_NEG),
-GOTO_OP_OFFSET(OP_NULLP),
-GOTO_OP_OFFSET(OP_BOOLEANP),
-GOTO_OP_OFFSET(OP_NUMBERP),
-GOTO_OP_OFFSET(OP_FIXNUMP),
-GOTO_OP_OFFSET(OP_BOUNDP),
-GOTO_OP_OFFSET(OP_BUILTINP),
-GOTO_OP_OFFSET(OP_FUNCTIONP),
-GOTO_OP_OFFSET(OP_VECTORP),
-GOTO_OP_OFFSET(OP_SETCAR),
-GOTO_OP_OFFSET(OP_JMPL),
-GOTO_OP_OFFSET(OP_BRFL),
-GOTO_OP_OFFSET(OP_BRTL),
-GOTO_OP_OFFSET(OP_EQV),
-GOTO_OP_OFFSET(OP_EQUAL),
-GOTO_OP_OFFSET(OP_LIST),
-GOTO_OP_OFFSET(OP_APPLY),
-GOTO_OP_OFFSET(OP_ADD),
-GOTO_OP_OFFSET(OP_SUB),
-GOTO_OP_OFFSET(OP_MUL),
-GOTO_OP_OFFSET(OP_DIV),
-GOTO_OP_OFFSET(OP_IDIV),
-GOTO_OP_OFFSET(OP_NUMEQ),
-GOTO_OP_OFFSET(OP_COMPARE),
-GOTO_OP_OFFSET(OP_ARGC),
-GOTO_OP_OFFSET(OP_VECTOR),
-GOTO_OP_OFFSET(OP_ASET),
-GOTO_OP_OFFSET(OP_LOADNIL),
-GOTO_OP_OFFSET(OP_LOADI8),
-GOTO_OP_OFFSET(OP_LOADVL),
-GOTO_OP_OFFSET(OP_LOADGL),
-GOTO_OP_OFFSET(OP_LOADAL),
-GOTO_OP_OFFSET(OP_LOADCL),
-GOTO_OP_OFFSET(OP_SETG),
-GOTO_OP_OFFSET(OP_SETGL),
-GOTO_OP_OFFSET(OP_SETAL),
-GOTO_OP_OFFSET(OP_VARGC),
-GOTO_OP_OFFSET(OP_TRYCATCH),
-GOTO_OP_OFFSET(OP_FOR),
-GOTO_OP_OFFSET(OP_TAPPLY),
-GOTO_OP_OFFSET(OP_SUB2),
-GOTO_OP_OFFSET(OP_LARGC),
-GOTO_OP_OFFSET(OP_LVARGC),
-GOTO_OP_OFFSET(OP_CALLL),
-GOTO_OP_OFFSET(OP_TCALLL),
-GOTO_OP_OFFSET(OP_BRNEL),
-GOTO_OP_OFFSET(OP_BRNNL),
-GOTO_OP_OFFSET(OP_BRN),
-GOTO_OP_OFFSET(OP_BRNL),
-GOTO_OP_OFFSET(OP_OPTARGS),
-GOTO_OP_OFFSET(OP_BRBOUND),
-GOTO_OP_OFFSET(OP_KEYARGS),
-GOTO_OP_OFFSET(OP_BOX),
-GOTO_OP_OFFSET(OP_BOXL),
-GOTO_OP_OFFSET(OP_SHIFT),
-GOTO_OP_OFFSET(OP_LOADVOID),
-GOTO_OP_OFFSET(OP_NANP),