nabaztag_hack_kit 0.0.2

data/ext/mtl/vcomp/compiler_prog.cpp

@@ -0,0 +1,250 @@
+//-------------------
+// MV
+// version WIN32 et POCKETPC
+// Sylvain Huet
+// Derniere mise a jour : 07/01/2003
+//
+
+#include <stdio.h>
+#include <string.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;
+	
+	if (k=parsearithm()) return k;
+	
+	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);
+
+		int* 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);
+
+		int* 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();
+}
+
+