nabaztag_hack_kit 0.1.0.beta3 → 0.1.0.beta8

data/bytecode/src/mtl/vcomp/compiler_prog.cpp

@@ -1,250 +0,0 @@
-//-------------------
-// 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();
-}
-
-