1 files changed, 18 insertions, 0 deletions
diff --git a/genvmop.txr b/genvmop.txr
new file mode 100644
index 00000000..31c6062a
--- /dev/null
+++ b/genvmop.txr
@@ -0,0 +1,18 @@
+@(include "asm")
+@(in-package :sys)
+@(bind oc @(keep-if .code %oc-list%))
+@(next "vm.h")
+@(collect)
+@{copyright}
+@(until)
+
+@(end)
+@(output "vmop.h")
+@{copyright "\n"}
+
+typedef enum vm_op {
+@  (repeat :vars (oc))
+  @{oc.symbol :filter :upcase} = @{oc.code},
+@  (end)
+} vm_op_t;
+@(end)