nabaztag_hack_kit 0.0.2

data/ext/mtl/vcomp/prodbuffer.cpp

@@ -0,0 +1,125 @@
+//-------------------
+// 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 <stdarg.h>
+
+#include "param.h"
+#include "prodbuffer.h"
+
+
+Prodbuffer::Prodbuffer()
+{
+	size=PRODBUFFER_FIRSTSIZE;
+	buffer=new char[size];
+	index=0;
+};
+
+Prodbuffer::~Prodbuffer()
+{
+	delete buffer;
+};
+
+
+// initialiation du buffer (à appeler au début de toute nouvelle production)
+void Prodbuffer::reinit()
+{
+	index=0;
+}
+
+void Prodbuffer::bigger()
+{
+	char* newbuf=new char[size*2];
+	memcpy(newbuf,buffer,size);
+	delete buffer;
+	size*=2;
+	buffer=newbuf;
+}
+
+// ajout d'un caractère en fin de buffer
+void Prodbuffer::addchar(char c)
+{
+	if (index>=size) bigger();
+	buffer[index++]=c;
+}
+
+// printf à la suite du buffer
+void Prodbuffer::printf(const char *format, ...)
+{
+	va_list arglist;
+	int sizeout;
+
+	va_start(arglist,format);
+	//while(((sizeout=vsnprintf(buffer+index,size-index-1,format,arglist))<0)||(sizeout>=size-index-1)) bigger();
+	va_end(arglist);
+	index+=sizeout;
+}
+
+// ajout d'un entier en fin de buffer
+void Prodbuffer::addint(int i)
+{
+	addchar(i); i>>=8;
+	addchar(i); i>>=8;
+	addchar(i); i>>=8;
+	addchar(i);
+}
+
+// ajout d'un short en fin de buffer
+void Prodbuffer::addshort(int i)
+{
+	addchar(i); i>>=8;
+	addchar(i);
+}
+
+// ajout d'une chaîne
+void Prodbuffer::addstr(char *src,int len)
+{
+//	addint(len);
+	int i; for(i=0;i<len;i++) addchar(*(src++));
+}
+
+// modification d'un caractère dans le buffer
+void Prodbuffer::setchar(int ind,char c)
+{
+	buffer[ind]=c;
+}
+
+// modification d'un entier dans le buffer
+void Prodbuffer::setint(int ind,int i)
+{
+	setchar(ind,i); i>>=8;
+	setchar(ind+1,i); i>>=8;
+	setchar(ind+2,i); i>>=8;
+	setchar(ind+3,i);
+}
+
+// modification d'un short dans le buffer
+void Prodbuffer::setshort(int ind,int i)
+{
+	setchar(ind,i); i>>=8;
+	setchar(ind+1,i);
+}
+
+// diminue la taille actuelle
+void Prodbuffer::cut(int len)
+{
+	if ((len>=0)&&(len<index)) index=len;
+}
+
+// retourne la taille actuelle
+int Prodbuffer::getsize()
+{
+	return index;
+}
+
+// retourne un pointeur vers le début du buffer
+char* Prodbuffer::getstart()
+{
+	return buffer;
+}

data/ext/mtl/vcomp/prodbuffer.h

@@ -0,0 +1,42 @@
+//-------------------
+// MV
+// version WIN32 et POCKETPC
+// Sylvain Huet
+// Premiere version : 07/01/2003
+// Derniere mise a jour : 07/01/2003
+//
+
+#ifndef _PRODBUFFER_
+#define _PRODBUFFER_
+
+class Prodbuffer
+{
+//public:
+private:
+	int size; // taille du buffer de bytecode
+	char* buffer; // buffer de bytecode
+	int index; // index du buffer de bytecode
+
+	void bigger(); // augmentation de la taille du buffer
+
+public:
+	// buffer bytecode
+	Prodbuffer();
+	~Prodbuffer();
+	void reinit();
+	void addchar(char c);
+	void addint(int i);
+	void addshort(int i);
+	void setchar(int index,char c);
+	void setint(int index,int i);
+	void setshort(int index,int i);
+	void addstr(char *src,int len);
+	void printf(const char *format, ...);
+	void cut(int len);
+	int getsize();
+	char* getstart();
+};
+
+#define PRODBUFFER_FIRSTSIZE 128
+
+#endif

data/ext/mtl/vcomp/resource.h

@@ -0,0 +1,17 @@
+//{{NO_DEPENDENCIES}}
+// Microsoft Developer Studio generated include file.
+// Used by Script1.rc
+//
+#define IDI_ICON1                       101
+#define IDI_ICON2                       103
+
+// Next default values for new objects
+// 
+#ifdef APSTUDIO_INVOKED
+#ifndef APSTUDIO_READONLY_SYMBOLS
+#define _APS_NEXT_RESOURCE_VALUE        104
+#define _APS_NEXT_COMMAND_VALUE         40001
+#define _APS_NEXT_CONTROL_VALUE         1000
+#define _APS_NEXT_SYMED_VALUE           101
+#endif
+#endif

data/ext/mtl/vcomp/stdlib_core.cpp

@@ -0,0 +1,122 @@
+//-------------------
+// MV
+// version WIN32 et POCKETPC
+// Sylvain Huet
+// Premiere version : 07/01/2003
+// Derniere mise a jour : 07/01/2003
+//
+
+#include "param.h"
+#include <stdio.h>
+
+#include <stdlib.h>
+#include <string.h>
+#include <time.h>
+#include <math.h>
+
+
+#include "terminal.h"
+#include "prodbuffer.h"
+#include "memory.h"
+#include "util.h"
+#include "interpreter.h"
+#include "parser.h"
+#include "compiler.h"
+
+
+// types de base
+#define NBcore 115 /******** A ACTUALISER! ************/
+const char* corename[]=
+{NULL,NULL,NULL,NULL,NULL,"hd","tl","Secholn","Secho","Iecholn",					//10
+"Iecho","time_ms","tabnew","abs","min","max","rand","srand",					//8
+"time","strnew","strset","strcpy","vstrcmp","strfind","strfindrev","strlen",		//8
+"strget","strsub","strcat","tablen","strcatlist","led","motorset","motorget",	//8
+"fixarg1","fixarg2","fixarg3","fixarg4","fixarg5","fixarg6","fixarg7","fixarg8",	//8
+"button2","button3","playStart","playFeed","playStop","recStart","recStop","recVol",	//8
+"load","gc","save","bytecode","loopcb",	// 5
+"udpStart","udpCb","udpStop","udpSend","tcpOpen","tcpClose","tcpSend","tcpCb","tcpListen","tcpEnable",	//10
+"envget","envset","sndVol","rfidGet","playTime","sndRefresh","sndWrite","sndRead","sndFeed","sndAmpli",		//10
+"netCb","netSend","netState","netMac","netChk","netSetmode","netScan","netAuth","netPmk","netRssi",	//10
+"netSeqAdd","strgetword","strputword","atoi","htoi","itoa","ctoa","itoh",	// 8
+"ctoh","itobin2","listswitch","listswitchstr","corePP","corePush","corePull","coreBit0", //8
+"reboot","flashFirmware","strcmp","adp2wav","wav2adp","alaw2wav","wav2alaw",	//7
+"crypt","uncrypt","rfidGetList","rfidRead","rfidWrite", // 5
+"i2cRead", "i2cWrite" // 2
+};
+
+
+
+int coreval[]=
+{0,0,0,0,0,OPhd,OPtl,OPSecholn,OPSecho,OPIecholn,
+OPIecho,OPtime_ms,OPtabnew,OPabs,OPmin,OPmax,OPrand,OPsrand,
+OPtime,OPstrnew,OPstrset,OPstrcpy,OPvstrcmp,OPstrfind,OPstrfindrev,OPstrlen,
+OPstrget,OPstrsub,OPstrcat,OPtablen,OPstrcatlist,OPled,OPmotorset,OPmotorget,
+OPfixarg,OPfixarg,OPfixarg,OPfixarg,OPfixarg,OPfixarg,OPfixarg,OPfixarg,
+OPbutton2,OPbutton3,OPplayStart,OPplayFeed,OPplayStop,OPrecStart,OPrecStop,OPrecVol,
+OPload,OPgc,OPsave,OPbytecode,OPloopcb,
+OPudpStart,OPudpCb,OPudpStop,OPudpSend,OPtcpOpen,OPtcpClose,OPtcpSend,OPtcpCb,OPtcpListen,OPtcpEnable,
+OPenvget,OPenvset,OPsndVol,OPrfidGet,OPplayTime,OPsndRefresh,OPsndWrite,OPsndRead,OPsndFeed,OPsndAmpli,
+OPnetCb,OPnetSend,OPnetState,OPnetMac,OPnetChk,OPnetSetmode,OPnetScan,OPnetAuth,OPnetPmk,OPnetRssi,
+OPnetSeqAdd,OPstrgetword,OPstrputword,OPatoi,OPhtoi,OPitoa,OPctoa,OPitoh,
+OPctoh,OPitobin2,OPlistswitch,OPlistswitchstr,OPcorePP,OPcorePush,OPcorePull,OPcoreBit0,
+OPreboot,OPflashFirmware,OPstrcmp,OPadp2wav,OPwav2adp,OPalaw2wav,OPwav2alaw,
+OPcrypt,OPuncrypt,OPrfidGetList,OPrfidRead,OPrfidWrite,
+OPi2cRead, OPi2cWrite
+};
+
+int corecode[]=
+{CODE_TYPE,CODE_TYPE,CODE_TYPE,CODE_TYPE,CODE_TYPE,1,1,1,1,1,
+1,0,2,1,2,2,0,1,
+0,1,3,5,5,5,5,1,
+2,3,2,1,1,2,2,1,
+2,2,2,2,2,2,2,2,
+0,0,2,3,0,3,0,2,
+5,0,5,1,1,
+1,1,1,6,2,1,4,1,1,2,
+0,1,1,0,0,0,2,1,3,1,
+1,6,0,0,4,3,1,4,2,0,
+2,2,3,1,1,1,1,1,
+1,1,2,2,0,1,1,2,
+2,3,2,5,5,6,6,
+5,5,0,2,3,
+2,3
+};
+
+const char* coretype[]=
+{"I","S","F","Env","Xml","fun[list u0]u0","fun[list u0]list u0","fun[S]S","fun[S]S","fun[u0]u0",
+"fun[u0]u0","fun[]I","fun[u0 I]tab u0","fun[I]I","fun[I I]I","fun[I I]I","fun[]I","fun[I]I",
+"fun[]I","fun[I]S","fun[S I I]S","fun[S I S I I]S","fun[S I S I I]I","fun[S I S I I]I","fun[S I S I I]I","fun[S]I",
+"fun[S I]I","fun[S I I]S","fun[S S]S","fun[tab u0]I","fun[list S]S","fun[I I]I","fun[I I]I","fun[I]I",
+"fun[fun[u0]u100 u0]fun[]u100",
+ "fun[fun[u1 u0]u100 u0]fun[u1]u100",
+ "fun[fun[u1 u2 u0]u100 u0]fun[u1 u2]u100",
+ "fun[fun[u1 u2 u3 u0]u100 u0]fun[u1 u2 u3]u100",
+ "fun[fun[u1 u2 u3 u4 u0]u100 u0]fun[u1 u2 u3 u4]u100",
+ "fun[fun[u1 u2 u3 u4 u5 u0]u100 u0]fun[u1 u2 u3 u4 u5]u100",
+ "fun[fun[u1 u2 u3 u4 u5 u6 u0]u100 u0]fun[u1 u2 u3 u4 u5 u6]u100",
+ "fun[fun[u1 u2 u3 u4 u5 u6 u7 u0]u100 u0]fun[u1 u2 u3 u4 u5 u6 u7]u100",
+ "fun[]I","fun[]I","fun[I fun[I]I]I","fun[S I I]I","fun[]I","fun[I I fun[S]I]I","fun[]I","fun[S I]I",
+ "fun[S I S I I]I","fun[]I","fun[S I S I I]I","fun[S]S","fun[fun[]I]fun[]I",
+ "fun[I]I","fun[fun[I S S]I]fun[I S S]I","fun[I]I","fun[I S I S I I]I","fun[S I]I","fun[I]I","fun[I S I I]I","fun[fun[I I S]I]fun[I I S]I","fun[I]I","fun[I I]I",
+ "fun[]S","fun[S]S","fun[I]I","fun[]S","fun[]I","fun[]I","fun[I I]I","fun[I]I","fun[S I I]I","fun[I]I",
+ "fun[fun[S S]I]fun[S S]I","fun[S I I S I I]I","fun[]I","fun[]S","fun[S I I I]I","fun[I S I]I","fun[S]list[S S S I I I I]","fun[[S S S I I I I] I I S][S S S I I I I]","fun[S S]S","fun[]I",
+ "fun[S I]S","fun[S I]I","fun[S I I]S","fun[S]I","fun[S]I","fun[I]S","fun[I]S","fun[I]S",
+ "fun[I]S","fun[I]S","fun[list[u0 u1] u0]u1","fun[list[S u1] S]u1","fun[]I","fun[u0]u0","fun[I]I","fun[u0 I]u0",
+ "fun[I I]I","fun[S I I]I","fun[S S]I","fun[S I S I I]S","fun[S I S I I]S","fun[S I S I I I]S","fun[S I S I I I]S",
+ "fun[S I I I I]I","fun[S I I I I]I","fun[]list S","fun[S I]S","fun[S I S]I",
+ "fun[I I]S", "fun[I S I]I"
+};
+
+
+int Compiler::addstdlibcore()
+{
+	int k;
+	if (k=addnative(NBcore,corename,coreval,corecode,coretype,m)) return k;
+/*	FILE* f=fopen("bc.txt","w");
+	for(k=0;k<NBcore;k++)
+	{
+		if (corename[k]) fprintf(f,"%s%c%s\n",corename[k],9,coretype[k]);
+	}
+	fclose(f);
+*/	return 0;
+}

data/ext/mtl/vcomp/terminal.cpp

@@ -0,0 +1,73 @@
+//-------------------
+// MV
+// version WIN32 et POCKETPC
+// Sylvain Huet
+// Premiere version : 07/01/2003
+// Derniere mise a jour : 07/01/2003
+//
+
+#include "resource.h"
+
+#include "param.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "filesystem.h"
+#include "file.h"
+#include "terminal.h"
+#include "memory.h"
+#include <stdarg.h>
+
+
+Terminal::Terminal(void)
+{
+  m=NULL;
+  sizeinternalbuffer=64;
+  internalbuffer=new char[sizeinternalbuffer];
+}
+
+Terminal::~Terminal()
+{
+
+}
+
+
+void Terminal::echo(int msk,char *s)
+{
+	if (s)
+	{
+		if (msk&LOG_USER) fprintf(stdout,"%s",s);
+		else fprintf(stderr,"%s",s);
+	}
+}
+
+void Terminal::echo(int msk,char* s,int size)
+{
+	if (size+1>sizeinternalbuffer)
+	{
+		delete internalbuffer;
+		sizeinternalbuffer=size+1;
+		internalbuffer=new char[sizeinternalbuffer];
+	}
+	memcpy(internalbuffer,s,size);
+	internalbuffer[size]=0;
+	echo(msk,internalbuffer);
+}
+
+void Terminal::printf(int msk,const char *format, ...)
+{
+	va_list arglist;
+	int sizeout;
+	va_start(arglist,format);
+	while(((sizeout=vsnprintf(internalbuffer,sizeinternalbuffer-1,format,arglist))<0)||(sizeout>=sizeinternalbuffer-1))
+	{
+		delete internalbuffer;
+		sizeinternalbuffer*=2;
+		internalbuffer=new char[sizeinternalbuffer];
+	}
+	va_end(arglist);
+	echo(msk,internalbuffer);
+}
+
+

data/ext/mtl/vcomp/terminal.h

@@ -0,0 +1,30 @@
+//-------------------
+// MV
+// version WIN32 et POCKETPC
+// Sylvain Huet
+// Premiere version : 07/01/2003
+// Derniere mise a jour : 07/01/2003
+//
+
+#ifndef _TERMINAL_
+#define _TERMINAL_
+
+class File;
+class FileSystem;
+class Memory;
+class Terminal
+{
+private:
+	char* internalbuffer;
+	int	sizeinternalbuffer;
+public:
+	Memory* m;
+	Terminal();
+	~Terminal();
+
+	void echo(int mask,char *s);
+	void echo(int mask,char *s,int size);
+	void printf(int mask,const char *format, ...);
+};
+
+#endif

data/ext/mtl/vcomp/util.cpp

@@ -0,0 +1,48 @@
+//-------------------
+// MV
+// version WIN32 et POCKETPC
+// Sylvain Huet
+// Premiere version : 07/01/2003
+// Derniere mise a jour : 07/01/2003
+//
+
+
+#include <stdio.h>
+
+#include "param.h"
+#include "filesystem.h"
+#include "terminal.h"
+#include "memory.h"
+
+#include "parser.h"
+#include "compiler.h"
+#include "interpreter.h"
+#include "util.h"
+
+Util::Util(Memory* mem)
+{
+	m=mem;
+	compiler=new Compiler(m);
+	interpreter=new Interpreter(m);
+}
+
+Util::~Util()
+{
+	delete interpreter;
+	delete compiler;
+}
+
+void Util::stop()
+{
+	interpreter->stop();
+	compiler->stop();
+}
+
+int Util::start()
+{
+	int k;
+	if (k=compiler->start()) return k;
+	if (k=interpreter->start()) return k;
+	return 0;
+}
+

data/ext/mtl/vcomp/util.h

@@ -0,0 +1,31 @@
+//-------------------
+// Moteur 3d
+// version WIN32 et POCKETPC
+// Sylvain Huet
+// Premiere version : 03/09/2002
+// Derniere mise a jour : 05/10/2002
+//
+
+
+
+#ifndef _UTIL_
+#define _UTIL_
+
+class Memory;
+class Compiler;
+class Interpreter;
+
+class Util
+{
+private :
+	Memory* m;
+public:
+	Util(Memory* mem);
+	~Util();
+	int start();
+	void stop();
+
+	Compiler* compiler;
+	Interpreter* interpreter;
+};
+#endif