nabaztag_hack_kit 0.1.0.beta3 → 0.1.0.beta8

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

@@ -1,241 +0,0 @@
-//-------------------
-// MV
-// version WIN32 et POCKETPC
-// Sylvain Huet
-// Premiere version : 07/01/2003
-// Derniere mise a jour : 07/01/2003
-//
-
-#include <stdio.h>
-#include <string.h>
-
-#include "param.h"
-#include "terminal.h"
-#include "memory.h"
-#include "util.h"
-#include "interpreter.h"
-
-#define GCincPeriod 20
-
-
-// Gestion de la pile
-Stack::Stack()
-{
-	base=NULL;
-}
-Stack::~Stack()
-{
-	if (base) delete base;
-}
-
-void Stack::dump(FILE *f)
-{
-	const char* buf="stck";
-	fwrite((void*)buf,1,4,f);
-	fwrite((void*)&size,1,4,f);
-	fwrite((void*)&pp,1,4,f);
-	fwrite((void*)&base,1,4,f);
-	fwrite((void*)base,1,4*size,f);
-}
-
-void Stack::initialize(int s)
-{
-	size=s;
-	base=new int[size];
-	pp=base;
-}
-
-int Stack::bigger(Memory* m)
-{
-	int currentpp=pp-base;
-
-	size*=2;
-
-	int* newbase=new int[size];
-	if (!newbase)
-	{
-		PRINTF(m)(LOG_RUNTIME,"Stack : out of Stack Memory\n");
-		AbortMetal(m,1);
-		return MTLERR_OM;	// impossible d'augmenter la taille de la pile
-	}
-	int i; for(i=0;i<=currentpp;i++) newbase[i]=base[i];
-	delete base;
-	base=newbase;
-	pp=&base[currentpp];
-	return 0;
-}
-
-
-
-
-// ajout d'une racine
-int Memory::addroot(int *p)
-{
-	int k;
-
-	if (k=push(PNTTOVAL(p))) return k;
-	int* r=malloc(LIST_LENGTH,TYPE_TAB);
-	TABSET(this,r,LIST_VAL,PNTTOVAL(p));
-	TABSET(this,r,LIST_NEXT,root);
-	root=PNTTOVAL(r);
-	STACKDROP(this);
-	return 0;
-}
-
-// suppression d'une racine
-void Memory::removeroot(int *p)
-{
-	int* last=NULL;	// pointeur vers le précédent maillon de la liste
-	int vq=root;
-	while(vq!=NIL)
-	{
-		int* q=VALTOPNT(vq);
-		if (TABGET(q,LIST_VAL)==PNTTOVAL(p))
-		{
-			if (last) TABSET(this,last,LIST_NEXT,TABGET(q,LIST_NEXT));
-			else root=TABGET(q,LIST_NEXT);
-			return;
-		}
-		last=q;
-		vq=TABGET(q,LIST_NEXT);
-	}
-}
-
-Memory::Memory(int size,Terminal *t,FileSystem *fs)
-{
-	term=t;
-	filesystem=fs;
-	size0=size;	// on retient la taille initiale, elle sert d'ordre de grandeur
-	gcincperiod=GCincPeriod;
-	abort=0;
-
-	util=new Util(this);
-	winutil=NULL;
-//	listing();
-}
-
-Memory::~Memory()
-{
-//	if (winutil) delete winutil;
-	delete util;
-}
-
-void Memory::stop()
-{
-	abort=1;
-	util->stop();
-	root=NIL;
-	stack.pp=0;
-}
-
-int Memory::start()
-{
-	root=NIL;
-
-	stack.initialize(STACK_FIRST_SIZE);
-
-	PRINTF(this)(LOG_RUNTIME,"Metal Virtual Machine\n");
-	PRINTF(this)(LOG_RUNTIME,"V0.2 - Sylvain Huet - 2005\n");
-	PRINTF(this)(LOG_RUNTIME,"--------------------------\n");
-	return util->start();
-}
-
-void Memory::dump()
-{
-}
-
-
-int* Memory::malloc(int size,int type)
-{
-	int *p=NULL;
-
-	int blocsize=size+HEADER_LENGTH;
-	p=new int[blocsize];
-	if (!p) return p;
-
-	HEADERSETSIZETYPE(p,blocsize,type);
-
-	return p;
-}
-
-
-
-int* Memory::mallocClear(int size)
-{
-	int* p=malloc(size,TYPE_TAB);
-	if (!p) return p;
-	int i;
-	for(i=0;i<size;i++) TABSET(this,p,i,NIL);
-	return p;
-}
-
-// allocation de type TYPE_EXT (la fonction fun(pnt) sera appelée lors de l'oubli du bloc)
-int* Memory::mallocExternal(void* pnt,FORGET fun)
-{
-	int* p=malloc(2,TYPE_EXT);
-	if (!p) return p;
-	TABSET(this,p,0,(int)pnt);
-	TABSET(this,p,1,(int)fun);
-	return p;
-}
-
-// allocation de type TYPE_EXT (la fonction fun(pnt) sera appelée lors de l'oubli du bloc)
-int Memory::pushExternal(void* pnt,FORGET fun)
-{
-	int* p=mallocExternal(pnt,fun);
-	if (!p) return MTLERR_OM;
-	return push(PNTTOVAL(p));
-}
-
-int* Memory::storenosrc(int size)
-{
-	// calcul de la taille d'un bloc pouvant contenir une certain nombre de caractères
-	// il faut 1 mot pour la taille et un octet nul final
-	int l=2+(size>>2);
-
-	int* p=malloc(l,TYPE_BINARY);
-	if (!p) return p;
-	STRSETLEN(p,size);
-	STRSTART(p)[size]=0;
-	return p;
-}
-
-int* Memory::storebinary(const char *src,int size)
-{
-	// calcul de la taille d'un bloc pouvant contenir une certain nombre de caractères
-	// il faut 1 mot pour la taille et un octet nul final
-	int l=2+(size>>2);
-
-	int* p=malloc(l,TYPE_BINARY);
-	if (!p) return p;
-	STRSETLEN(p,size);
-	memcpy(STRSTART(p),src,size);
-	STRSTART(p)[size]=0;
-	return p;
-}
-
-int* Memory::storestring(const char *src)
-{
-	return storebinary(src,strlen(src));
-}
-
-int Memory::deftab(int size)
-{
-	int* p=malloc(size,TYPE_TAB);
-	if (!p) return MTLERR_OM;
-	int i; for(i=size-1;i>=0;i--) TABSET(this,p,i,STACKPULL(this));
-	return push(PNTTOVAL(p));
-}
-
-const char* Memory::errorname(int err)
-{
-	if (err==MTLERR_OM) return "Out of memory";
-	else if (err==MTLERR_OP) return "Unknown Operand";
-	else if (err==MTLERR_DIV) return "Division by zero";
-	else if (err==MTLERR_RET) return "Bad implementation on 'return'";
-	else if (err==MTLERR_NOFUN) return "No function defined";
-	else if (err==MTLERR_SN) return "Syntax error";
-	else if (err==MTLERR_TYPE) return "Typechecking error";
-	else if (err==MTLERR_ABORT) return "Application aborted";
-	else return "Unknown error";
-}

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

@@ -1,427 +0,0 @@
-//-------------------
-// Moteur 3d
-// version WIN32 et POCKETPC
-// Sylvain Huet
-// Premiere version : 03/09/2002
-// Derniere mise a jour : 05/10/2002
-//
-
-
-
-#include <stdio.h>
-#include <string.h>
-
-#include "param.h"
-#include "filesystem.h"
-#include "file.h"
-#include "parser.h"
-#include "terminal.h"
-#include "memory.h"
-
-// test de lettre
-int isletter(int c)
-{
-	if ((c>='A')&&(c<='Z')) return 1;
-	if ((c>='a')&&(c<='z')) return 1;
-	if (c=='_') return 1;
-	return 0;
-}
-// test de chiffre decimal
-int isnum(int c)
-{
-	if ((c>='0')&&(c<='9')) return 1;
-	return 0;
-}
-// test de lettre
-int ishex(int c)
-{
-	if ((c>='0')&&(c<='9')) return 1;
-	if ((c>='A')&&(c<='F')) return 1;
-	if ((c>='a')&&(c<='f')) return 1;
-	return 0;
-}
-
-// test de lettre ou de chiffre
-int isletnum(int c)
-{
-	if ((c>='A')&&(c<='Z')) return 1;
-	if ((c>='a')&&(c<='z')) return 1;
-	if ((c>='0')&&(c<='9')) return 1;
-	if (c=='_') return 1;
-	return 0;
-}
-
-// test si un mot est un label (une lettre puis des lettres ou des chiffres)
-int islabel(char* src)
-{
-	if (!isletter(*src++)) return 0;
-	while(*src)
-	{
-		if (!isletnum(*src++)) return 0;
-	}
-	return 1;
-}
-
-// test si un mot est un nombre d�cimal (que des chiffres)
-int isdecimal(char* src)
-{
-	while(*src)
-	{
-		if (!isnum(*src++)) return 0;
-	}
-	return 1;
-}
-
-// test si un mot est un nombre hexad�cimal (que des chiffres)
-int ishexadecimal(char* src)
-{
-	while(*src)
-	{
-		if (!ishex(*src++)) return 0;
-	}
-	return 1;
-}
-
-// test si un mot est un nombre flottant (que des chiffres avec un point)
-int isfloat(char* src)
-{
-	int debut=1;
-	int point=0;
-	while(*src)
-	{
-		if ((*src=='.')&&(!debut)&&(!point)) point=1;
-		else if (!isnum(*src)) return 0;
-		src++;
-		debut=0;
-	}
-	return point;
-}
-
-// retourne le code ascii correspondant � un chiffre hexad�cimal
-int ctoh(int c)
-{
-	c&=15;
-	if (c<10) return '0'+c;
-	return 'a'+c-10;
-}
-
-// retourne le chiffre correspondant � un code ascii hexad�cimal
-int htoc(int c)
-{
-	if ((c>='0')&&(c<='9')) return c-'0';
-	else if ((c>='A')&&(c<='F')) return c-'A'+10;
-	else if ((c>='a')&&(c<='f')) return c-'a'+10;
-	return 0;
-}
-
-// lecture d'une cha�ne d�cimale (s'arr�te au premier caract�re incorrect)
-int mtl_atoi(char* src)
-{
-	int x,c,s;
-	x=s=0;
-	if ((*src)=='-') { s=1; src++; }
-	while(c=*src++)
-	{
-		if ((c>='0')&&(c<='9')) x=(x*10)+c-'0';
-		else return (s?(-x):x);
-	}
-	return (s?(-x):x);
-}
-
-// lecture d'une cha�ne hexad�cimale (s'arr�te au premier caract�re incorrect)
-int mtl_htoi(char* src)
-{
-	int x,c;
-	x=0;
-	while(c=*src++)
-	{
-		if ((c>='0')&&(c<='9')) x=(x<<4)+c-'0';
-		else if ((c>='A')&&(c<='F')) x=(x<<4)+c-'A'+10;
-		else if ((c>='a')&&(c<='f')) x=(x<<4)+c-'a'+10;
-		else return x;
-	}
-	return x;
-}
-
-// lecture d'une cha�ne flottante (s'arr�te au premier caract�re incorrect)
-mtl_float mtl_atof(char* src)
-{
-	int c;
-	mtl_float f=0;
-	mtl_float div=1;
-	int point=0;
-	while(c=*src++)
-	{
-		if ((c=='.')&&(!point)) point=1;
-		else if ((c>='0')&&(c<='9'))
-		{
-			f=(f*10)+c-'0';
-			if (point) div*=10;
-		}
-		else return f/div;
-	}
-	return f/div;
-}
-
-Parser::Parser(Terminal* t,FileSystem* fs,const char *filename)
-{
-	term=t;
-
-	srcname=new char[strlen(filename)+1];
-	strcpy(srcname,filename);
-
-	File* file=new File(fs);
-	int size;
-
-	src=NULL;
-	if (!file->openread(filename)) src=file->getcontent(&size);
-	delete file;
-	if (!src)
-	{
-		t->printf(LOG_WARNING,"Parser : cannot open file %s\n",filename);
-		src=new char[1];
-		src[0]=0;
-	}
-	index=0;
-
-	indexsavedchar=-1;
-
-	again=0;
-
-	lign=offligne=0;
-	lign0=offligne0=offchar0=0;
-
-	token=NULL;
-}
-
-Parser::Parser(Terminal* t,const char *buf)
-{
-	srcname=NULL;
-	term=t;
-	src=new char[strlen(buf)+1];
-	strcpy(src,buf);
-	index=0;
-
-	indexsavedchar=-1;
-
-	again=0;
-
-	lign=offligne=0;
-	lign0=offligne0=offchar0=0;
-
-	token=NULL;
-}
-
-
-Parser::~Parser()
-{
-	delete src;
-	if (srcname) delete srcname;
-}
-
-void Parser::giveback()
-{
-	again=1;
-}
-
-char* Parser::next(int filter)
-{
-	if (again)
-	{
-		again=0;
-		return token;
-	}
-
-	int i;
-	while(1)
-    {
-		int k;
-		do
-		{
-			k=gettoken(filter);
-		} while (k==-2);
-		if (k)
-		{
-			token=NULL;
-			return NULL;
-		}
-//		term->printf(0,"token=%s\n",token);
-		if (strcmp(token,"/*")) return token;	// ok
-		i=1;	// gestion des commentaires
-		while(i)
-        {
-			if (gettoken(filter)==-1)
-			{
-				term->printf(LOG_COMPILER,"unbalanced comment reaches EOF\n");
-				token=NULL;
-				return NULL;
-			}
-			if (!strcmp(token,"/*")) i++;
-			if (!strcmp(token,"*/")) i--;
-        }
-    }
-}
-
-void Parser::savechar(int i)
-{
-	indexsavedchar=i;
-	savedchar=src[i];
-	src[i]=0;
-}
-
-// demande de relire le dernier caract�re
-void Parser::againchar()
-{
-	index--;
-	if (src[index]==10) lign--;
-}
-
-// lit le prochain caract�re
-int Parser::nextchar()
-{
-	int c;
-
-	c=src[index];
-	if (c)
-	{
-		index++;
-		if (c==10)
-		{
-			offligne=index;
-			lign++;
-		}
-	}
-	return c;
-}
-
-
-void Parser::restorechar()
-{
-	// on restaure le caract�re escamot� � la fin du token pr�c�dent
-	if (indexsavedchar!=-1)
-	{
-		src[indexsavedchar]=savedchar;
-		indexsavedchar=-1;
-	}
-}
-
-int Parser::gettoken(int filter)
-{
-	int c,d,f;
-
-	restorechar();
-
-	do
-	{   // recherche le d�but du token
-		// on sauvegarde la position dans le source
-		lign0=lign;
-		offligne0=offligne;
-		offchar0=index;
-		c=nextchar();
-		if (!c) return -1;	// fin du fichier, pas de nouveau token
-	} while(c<=32);
-
-	token=&src[offchar0];
-
-	f=0;
-	if (c=='\"')	// token cha�ne de caract�res
-		while(1)
-		{
-			c=nextchar();
-			if (!c)
-			{
-				term->printf(LOG_COMPILER,"uncomplete string reaches EOF\n");
-				return -1;
-			}
-			if ((c=='\"')&&(f==0))
-			{
-				savechar(index);
-				return 0;
-			}
-			if (c=='\\') f=1-f;
-			else f=0;
-		}
-	if (isletnum(c))	// token nombre ou label
-	{
-		int onlynum=1;
-		while(1)
-		{
-			if (!isnum(c)) onlynum=0;
-			c=nextchar();
-			if (!c) return 0;
-			if ((c=='.')&&(onlynum))	// nombre flottant
-			{
-				while(1)
-				{
-					c=nextchar();
-					if (!c) return 0;
-					if (!isnum(c))
-					{
-						againchar();
-						savechar(index);
-						return 0;
-					}
-				}
-			}
-			if (!isletnum(c))
-			{
-				againchar();
-				savechar(index);
-				return 0;
-			}
-		}
-	}
-	d=nextchar();
-	if (!d)	return 0;	// fin du fichier sur un caract�re sp�cial
-
-	if ( ((c=='&')&&(d=='&'))
-		||((c=='|')&&(d=='|'))
-		||((c==':')&&(d==':'))
-		||((c=='^')&&(d=='^'))
-		||((c==';')&&(d==';'))
-		||((c=='-')&&(d=='>'))
-		||((c=='<')&&((d=='<')||(d=='/')))
-		||((c=='>')&&(d=='>'))
-		||((c=='=')&&(d=='='))
-		||((c=='/')&&((d=='*')||(d=='>')))
-		||((c=='*')&&(d=='/'))
-		)
-	{
-		// caract�re double reconnu
-	}
-	else if ((c=='/')&&(d=='/'))
-	{
-		do	// cas du commentaire //
-		{
-			c=nextchar();
-			if (c==10) return -2;
-		} while (c);
-		return -1;	// fin de fichier, pas de nouveau token
-	}
-	else if (((c=='!')||(c=='>')||(c=='<'))&&(d=='='))
-	{
-/*		d=nextchar();
-		if (!d)	return 0; // fin du fichier sur un caract�re sp�cial compos�
-		if (d!='.') againchar();
-*/	}
-	else
-		againchar();
-	savechar(index);
-	return 0;
-}
-
-
-void Parser::echoposition()
-{
-	restorechar();
-	if (srcname) term->printf(LOG_COMPILER,">line %d in '%s' :\n>",lign0+1,srcname);
-	else term->printf(LOG_COMPILER,">line %d :\n>",lign0+1);
-	char* p=&src[offligne0];
-	int i=0;
-	while((p[i])&&(p[i]!='\n')) i++;
-	term->echo(LOG_COMPILER,p,i);
-	term->printf(LOG_COMPILER,"\n>");
-	for(i=0;i<offchar0-offligne0;i++) { term->printf(LOG_COMPILER,  "%c", (p[i]!='\t') ? ' ' : '\t'); }
-	term->printf(LOG_COMPILER,"^\n");
-}
-