From 27556004e8e12a72ed1c2c70212f6b660ed798c3 Mon Sep 17 00:00:00 2001
From: crupest <crupest@outlook.com>
Date: Thu, 2 Dec 2021 21:59:36 +0800
Subject: import(life): ...

---
 works/life/compile-principle-experiment/4/main.h | 41 ++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 works/life/compile-principle-experiment/4/main.h

(limited to 'works/life/compile-principle-experiment/4/main.h')

diff --git a/works/life/compile-principle-experiment/4/main.h b/works/life/compile-principle-experiment/4/main.h
new file mode 100644
index 0000000..96bd9e7
--- /dev/null
+++ b/works/life/compile-principle-experiment/4/main.h
@@ -0,0 +1,41 @@
+#pragma once
+
+typedef union SymbolValue {
+  double val;
+  double (*ptr)();
+} SymbolValue;
+
+typedef struct Symbol {
+  char *name;
+  int type;
+  SymbolValue value;
+  struct Symbol *next;
+} Symbol;
+
+Symbol *cru_symbol_lookup(const char *name);
+Symbol *cru_symbol_install(const char *name, int type, SymbolValue value);
+
+double Pow(double x, double y);
+
+int yylex();
+int yyparse();
+void yyerror(const char *s);
+
+extern int lineno;
+void execerror(const char *s, const char *t);
+
+typedef union Datum { /* interpreter stack type */
+  double val;
+  Symbol *sym;
+} Datum;
+extern Datum pop();
+int mypop();
+
+typedef int (*Inst)(); /* machine instruction */
+#define STOP (Inst)0
+
+extern Inst prog[];
+extern int eval(), add(), sub(), mul(), mydiv(), negate(), power();
+extern int assign(), bltin(), varpush(), constpush(), print();
+
+extern Inst *code(Inst f);
-- 
cgit v1.2.3