nabaztag_hack_kit 0.1.0.beta3 → 0.1.0.beta8

data/ext/mtl_linux/src/vcomp/compiler_prog.cpp

@@ -0,0 +1,437 @@
+//-------------------
+// MV
+// version WIN32 et POCKETPC
+// Sylvain Huet
+// Derniere mise a jour : 07/01/2003
+//
+
+#include <stdio.h>
+#include <string.h>
+#include <stdint.h>
+
+#include "param.h"
+#include "terminal.h"
+#include "memory.h"
+#include "parser.h"
+#include "prodbuffer.h"
+#include "compiler.h"
+#include "interpreter.h"
+
+
+int Compiler::parseprogram()
+{
+    int k;
+
+    while(1)
+    {
+        if (k=parseexpression())
+        {
+            return k;
+        }
+        if (!parser->next(0))
+        {
+            return 0;
+        }
+        if (strcmp(parser->token,";"))
+        {
+            parser->giveback();
+            return 0;
+        }
+        bc->addchar(OPdrop);
+        STACKDROP(m);	// on supprime le type de l'expression
+    }
+}
+
+int Compiler::parseexpression()
+{
+    int k;
+    //~ asm volatile ("int3;");
+    if (k=parsearithm())
+    {
+        return k;
+    }
+    //~ PRINTF(m)(LOG_COMPILER,"Compiler : parseexp arithm\n");
+
+    if (!parser->next(0))
+    {
+        return 0;
+    }
+    if (strcmp(parser->token,"::"))
+    {
+        parser->giveback();
+        return 0;
+    }
+    if (k=parseexpression())
+    {
+        return k;    // r�cursion
+    }
+
+    if (k=createnodetuple(2))
+    {
+        return k;
+    }
+    if (k=copytype(VALTOPNT(TABGET(stdtypes,STDTYPE_fun__u0_list_u0__list_u0))))
+    {
+        return k;
+    }
+    if (k=unif_argfun())
+    {
+        return k;
+    }
+
+    bc->addchar(OPdeftabb);
+    bc->addchar(2);
+
+    return 0;
+}
+
+
+int Compiler::parsearithm()
+{
+    int k;
+
+    if (k=parsea1())
+    {
+        return k;
+    }
+    while(1)
+    {
+        if (!parser->next(0))
+        {
+            return 0;
+        }
+        if ((strcmp(parser->token,"&&"))&&(strcmp(parser->token,"||")))
+        {
+            parser->giveback();
+            return 0;
+        }
+        bc->addchar(OPdup);
+        if (strcmp(parser->token,"&&"))
+        {
+            bc->addchar(OPnon);
+        }
+        bc->addchar(OPelse);
+        int bc_i=bc->getsize();
+        bc->addshort(0);	// on pr�pare le champ pour le saut
+        bc->addchar(OPdrop);
+        if (k=parsea1())
+        {
+            return k;
+        }
+        bc->setshort(bc_i,bc->getsize());	// on r�gle le saut
+
+        if (k=unif(VALTOPNT(STACKGET(m,0)),VALTOPNT(TABGET(stdtypes,STDTYPE_I))))
+        {
+            return k;
+        }
+        STACKDROP(m);
+        if (k=unif(VALTOPNT(STACKGET(m,0)),VALTOPNT(TABGET(stdtypes,STDTYPE_I))))
+        {
+            return k;
+        }
+    }
+}
+
+
+int Compiler::parsea1()
+{
+    int k;
+
+    if ((parser->next(0))&&(!strcmp(parser->token,"!")))
+    {
+        if (k=parsea1())
+        {
+            return k;
+        }
+        bc->addchar(OPnon);
+        if (k=unif(VALTOPNT(STACKGET(m,0)),VALTOPNT(TABGET(stdtypes,STDTYPE_I))))
+        {
+            return k;
+        }
+        return 0;
+    }
+    parser->giveback();
+    return parsea2();
+}
+
+int Compiler::parsea2()
+{
+    int k,op,typ;
+
+    if (k=parsea3())
+    {
+        return k;
+    }
+    while(1)
+    {
+        if (!parser->next(0))
+        {
+            return 0;
+        }
+        if (!strcmp(parser->token,"=="))
+        {
+            op=OPeq;
+            typ=0;
+        }
+        else if (!strcmp(parser->token,"!="))
+        {
+            op=OPne;
+            typ=0;
+        }
+        else if (!strcmp(parser->token,"<"))
+        {
+            op=OPlt;
+            typ=1;
+        }
+        else if (!strcmp(parser->token,">"))
+        {
+            op=OPgt;
+            typ=1;
+        }
+        else if (!strcmp(parser->token,"<="))
+        {
+            op=OPle;
+            typ=1;
+        }
+        else if (!strcmp(parser->token,">="))
+        {
+            op=OPge;
+            typ=1;
+        }
+        else
+        {
+            parser->giveback();
+            return 0;
+        }
+        if (k=parsea3())
+        {
+            return k;
+        }
+        bc->addchar(op);
+
+        if (k=unif(VALTOPNT(STACKGET(m,0)),VALTOPNT(STACKGET(m,1))))
+        {
+            return k;
+        }
+        STACKDROP(m);
+        if (typ==1)
+        {
+            if (k=unif(VALTOPNT(STACKGET(m,0)),VALTOPNT(TABGET(stdtypes,STDTYPE_I))))
+            {
+                return k;
+            }
+        }
+        STACKSET(m,0,TABGET(stdtypes,STDTYPE_I));
+    }
+}
+
+int Compiler::parsea3()
+{
+    int k,op,typ;
+
+    if (k=parsea4())
+    {
+        return k;
+    }
+    while(1)
+    {
+        if (!parser->next(0))
+        {
+            return 0;
+        }
+        if (!strcmp(parser->token,"+"))
+        {
+            op=OPadd;
+            typ=1;
+        }
+        else if (!strcmp(parser->token,"-"))
+        {
+            op=OPsub;
+            typ=1;
+        }
+        else
+        {
+            parser->giveback();
+            return 0;
+        }
+        if (k=parsea4())
+        {
+            return k;
+        }
+        bc->addchar(op);
+
+        intptr_t* ptyp;
+        if (typ==1)
+        {
+            ptyp=VALTOPNT(TABGET(stdtypes,STDTYPE_I));
+        }
+        if (k=unif(VALTOPNT(STACKGET(m,0)),ptyp))
+        {
+            return k;
+        }
+        STACKDROP(m);
+        if (k=unif(VALTOPNT(STACKGET(m,0)),ptyp))
+        {
+            return k;
+        }
+    }
+}
+
+int Compiler::parsea4()
+{
+    int k,op,typ;
+
+    if (k=parsea5())
+    {
+        return k;
+    }
+    while(1)
+    {
+        if (!parser->next(0))
+        {
+            return 0;
+        }
+        if (!strcmp(parser->token,"*"))
+        {
+            op=OPmul;
+            typ=1;
+        }
+        else if (!strcmp(parser->token,"/"))
+        {
+            op=OPdiv;
+            typ=1;
+        }
+        else if (!strcmp(parser->token,"%"))
+        {
+            op=OPmod;
+            typ=1;
+        }
+        else
+        {
+            parser->giveback();
+            return 0;
+        }
+        if (k=parsea5())
+        {
+            return k;
+        }
+        bc->addchar(op);
+
+        intptr_t* ptyp;
+        if (typ==1)
+        {
+            ptyp=VALTOPNT(TABGET(stdtypes,STDTYPE_I));
+        }
+        if (k=unif(VALTOPNT(STACKGET(m,0)),ptyp))
+        {
+            return k;
+        }
+        STACKDROP(m);
+        if (k=unif(VALTOPNT(STACKGET(m,0)),ptyp))
+        {
+            return k;
+        }
+    }
+}
+
+int Compiler::parsea5()
+{
+    int k,op;
+
+    if (k=parsea6())
+    {
+        return k;
+    }
+    while(1)
+    {
+        if (!parser->next(0))
+        {
+            return 0;
+        }
+        if (!strcmp(parser->token,"&"))
+        {
+            op=OPand;
+        }
+        else if (!strcmp(parser->token,"|"))
+        {
+            op=OPor;
+        }
+        else if (!strcmp(parser->token,"^"))
+        {
+            op=OPeor;
+        }
+        else if (!strcmp(parser->token,"<<"))
+        {
+            op=OPshl;
+        }
+        else if (!strcmp(parser->token,">>"))
+        {
+            op=OPshr;
+        }
+        else
+        {
+            parser->giveback();
+            return 0;
+        }
+        if (k=parsea6())
+        {
+            return k;
+        }
+        bc->addchar(op);
+
+        if (k=unif(VALTOPNT(STACKGET(m,0)),VALTOPNT(TABGET(stdtypes,STDTYPE_I))))
+        {
+            return k;
+        }
+        STACKDROP(m);
+        if (k=unif(VALTOPNT(STACKGET(m,0)),VALTOPNT(TABGET(stdtypes,STDTYPE_I))))
+        {
+            return k;
+        }
+    }
+}
+
+int Compiler::parsea6()
+{
+    int k;
+
+    if (!parser->next(0))
+    {
+        return parseterm();
+    }
+
+    if (!strcmp(parser->token,"-"))
+    {
+        if (!parser->next(0))
+        {
+            return parsea6();
+        }
+        if (isdecimal(parser->token))	// gestion des entiers
+        {
+            int i=-mtl_atoi(parser->token);
+            bc->addchar(OPint);
+            bc->addint(i);
+            return STACKPUSH(m,TABGET(stdtypes,STDTYPE_I));
+        }
+        parser->giveback();
+        if (k=parsea6())
+        {
+            return k;
+        }
+        bc->addchar(OPneg);
+        return unif(VALTOPNT(STACKGET(m,0)),VALTOPNT(TABGET(stdtypes,STDTYPE_I)));
+    }
+    else if (!strcmp(parser->token,"~"))
+    {
+        if (k=parsea6())
+        {
+            return k;
+        }
+        bc->addchar(OPnot);
+        return unif(VALTOPNT(STACKGET(m,0)),VALTOPNT(TABGET(stdtypes,STDTYPE_I)));
+    }
+    parser->giveback();
+    return parseterm();
+}
+
+