From 38ca06d6aa8b2c2958b56104a36e6db4ae2e60a3 Mon Sep 17 00:00:00 2001
From: mtardy <mahe5397@hotmail.fr>
Date: Mon, 17 Aug 2020 09:03:50 +0200
Subject: [PATCH] Add the AST global object with all the protos attached to it
 for access

---
 parse.leg | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/parse.leg b/parse.leg
index a92f61b..fd47472 100644
--- a/parse.leg
+++ b/parse.leg
@@ -1679,6 +1679,8 @@ oop evalArgs(oop scope, oop args)
    return params;
 }
 
+oop AST= NULL;
+
 int main(int argc, char **argv)
 {
 # if (USE_GC)
@@ -1718,6 +1720,14 @@ int main(int argc, char **argv)
     DO_PROTOS()
     #undef _DO
 
+    AST = makeMap();
+    map_set(globals, intern("AST"), AST);
+    #define _DO(NAME) map_set(AST, NAME##_symbol, NAME##_proto);
+    DO_PROTOS()
+    #undef _DO
+
+    println(AST);
+
     while (yyparse()) {
         if (!yylval) break;             // EOF
         if (opt_v) println(yylval);