nabaztag_hack_kit 0.1.0.beta3 → 0.1.0.beta8

data/{bytecode/src/mtl → ext/mtl_linux/src}/vcomp/prodbuffer.cpp

@@ -16,110 +16,131 @@
 
 Prodbuffer::Prodbuffer()
 {
-	size=PRODBUFFER_FIRSTSIZE;
-	buffer=new char[size];
-	index=0;
+    size=PRODBUFFER_FIRSTSIZE;
+    buffer=new char[size];
+    index=0;
 };
 
 Prodbuffer::~Prodbuffer()
 {
-	delete buffer;
+    delete buffer;
 };
 
 
 // initialiation du buffer (à appeler au début de toute nouvelle production)
 void Prodbuffer::reinit()
 {
-	index=0;
+    index=0;
 }
 
 void Prodbuffer::bigger()
 {
-	char* newbuf=new char[size*2];
-	memcpy(newbuf,buffer,size);
-	delete buffer;
-	size*=2;
-	buffer=newbuf;
+    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;
+    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;
+    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);
+    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);
+    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++));
+    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;
+    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);
+    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);
+    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;
+    if ((len>=0)&&(len<index))
+    {
+        index=len;
+    }
 }
 
 // retourne la taille actuelle
 int Prodbuffer::getsize()
 {
-	return index;
+    return index;
 }
 
 // retourne un pointeur vers le début du buffer
 char* Prodbuffer::getstart()
 {
-	return buffer;
+    return buffer;
 }

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

@@ -0,0 +1,130 @@
+//-------------------
+// 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 <stdint.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 119 /******** A ACTUALISER! ************/
+// mnemonic
+const char* corename[]=
+    /* 1*/ {NULL,NULL,NULL,NULL,NULL,"hd","tl","Secholn","Secho","Iecholn",					                             //10
+            /* 2*/"Iecho","time_ms","tabnew","abs","min","max","rand","srand",					                                  //10+8
+            /* 3*/"time","strnew","strset","strcpy","vstrcmp","strfind","strfindrev","strlen",		                        //10+8+8
+            /* 4*/"strget","strsub","strcat","tablen","strcatlist","led","motorset","motorget",	                          //10+8+8+8
+            /* 5*/"fixarg1","fixarg2","fixarg3","fixarg4","fixarg5","fixarg6","fixarg7","fixarg8",	                      //10+8+8+8+8
+            /* 6*/"button2","button3","playStart","playFeed","playStop","recStart","recStop","recVol",	                  //10+8+8+8+8+8
+            /* 7*/"load","gc","save","bytecode","loopcb",	                                                                //10+8+8+8+8+8+5
+            /* 8*/"udpStart","udpCb","udpStop","udpSend","tcpOpen","tcpClose","tcpSend","tcpCb","tcpListen","tcpEnable",	//10+8+8+8+8+8+5+10
+            /* 9*/"envget","envset","sndVol","rfidGet","playTime","sndRefresh","sndWrite","sndRead","sndFeed","sndAmpli",	//10+8+8+8+8+8+5+10+10
+            /*10*/"netCb","netSend","netState","netMac","netChk","netSetmode","netScan","netAuth","netPmk","netRssi",	    //10+8+8+8+8+8+5+10+10+10
+            /*11*/"netSeqAdd","strgetword","strputword","atoi","htoi","itoa","ctoa","itoh",	                              //10+8+8+8+8+8+5+10+10+10+8
+            /*12*/"ctoh","itobin2","listswitch","listswitchstr","corePP","corePush","corePull","coreBit0",                //10+8+8+8+8+8+5+10+10+10+8+8
+            /*13*/"reboot","flashFirmware","strcmp","adp2wav","wav2adp","alaw2wav","wav2alaw",	                          //10+8+8+8+8+8+5+10+10+10+8+8+7
+            /*14*/"crypt","uncrypt","rfidGetList","rfidRead","rfidWrite",                                                 //10+8+8+8+8+8+5+10+10+10+8+8+7+5
+            /*15*/"i2cRead", "i2cWrite",                                                                                  //10+8+8+8+8+8+5+10+10+10+8+8+7+5+2 => 115
+            /*16*/"strright","strcrypt8","loadf","savef"
+           };
+
+// Opcode
+int coreval[]=
+    /* 1*/ {0,0,0,0,0,OPhd,OPtl,OPSecholn,OPSecho,OPIecholn,
+            /* 2*/OPIecho,OPtime_ms,OPtabnew,OPabs,OPmin,OPmax,OPrand,OPsrand,
+            /* 3*/OPtime,OPstrnew,OPstrset,OPstrcpy,OPvstrcmp,OPstrfind,OPstrfindrev,OPstrlen,
+            /* 4*/OPstrget,OPstrsub,OPstrcat,OPtablen,OPstrcatlist,OPled,OPmotorset,OPmotorget,
+            /* 5*/OPfixarg,OPfixarg,OPfixarg,OPfixarg,OPfixarg,OPfixarg,OPfixarg,OPfixarg,
+            /* 6*/OPbutton2,OPbutton3,OPplayStart,OPplayFeed,OPplayStop,OPrecStart,OPrecStop,OPrecVol,
+            /* 7*/OPload,OPgc,OPsave,OPbytecode,OPloopcb,
+            /* 8*/OPudpStart,OPudpCb,OPudpStop,OPudpSend,OPtcpOpen,OPtcpClose,OPtcpSend,OPtcpCb,OPtcpListen,OPtcpEnable,
+            /* 9*/OPenvget,OPenvset,OPsndVol,OPrfidGet,OPplayTime,OPsndRefresh,OPsndWrite,OPsndRead,OPsndFeed,OPsndAmpli,
+            /*10*/OPnetCb,OPnetSend,OPnetState,OPnetMac,OPnetChk,OPnetSetmode,OPnetScan,OPnetAuth,OPnetPmk,OPnetRssi,
+            /*11*/OPnetSeqAdd,OPstrgetword,OPstrputword,OPatoi,OPhtoi,OPitoa,OPctoa,OPitoh,
+            /*12*/OPctoh,OPitobin2,OPlistswitch,OPlistswitchstr,OPcorePP,OPcorePush,OPcorePull,OPcoreBit0,
+            /*13*/OPreboot,OPflashFirmware,OPstrcmp,OPadp2wav,OPwav2adp,OPalaw2wav,OPwav2alaw,
+            /*14*/OPcrypt,OPuncrypt,OPrfidGetList,OPrfidRead,OPrfidWrite,
+            /*15*/OPi2cRead, OPi2cWrite,
+            /*16*/OPstrright,OPstrright,OPstrright,OPstrright,
+           };
+// N args
+int corecode[]=
+    /* 1*/ {CODE_TYPE,CODE_TYPE,CODE_TYPE,CODE_TYPE,CODE_TYPE,1,1,1,1,1,
+            /* 2*/1,0,2,1,2,2,0,1,
+            /* 3*/0,1,3,5,5,5,5,1,
+            /* 4*/2,3,2,1,1,2,2,1,
+            /* 5*/2,2,2,2,2,2,2,2,
+            /* 6*/0,0,2,3,0,3,0,2,
+            /* 7*/5,0,5,1,1,
+            /* 8*/1,1,1,6,2,1,4,1,1,2,
+            /* 9*/0,1,1,0,0,0,2,1,3,1,
+            /*10*/1,6,0,0,4,3,1,4,2,0,
+            /*11*/2,2,3,1,1,1,1,1,
+            /*12*/1,1,2,2,0,1,1,2,
+            /*13*/2,3,2,5,5,6,6,
+            /*14*/5,5,0,2,3,
+            /*15*/2,3,
+            /*16*/2,3,1,2
+           };
+// Proto
+const char* coretype[]=
+    /* 1*/ {"I","S","F","Env","Xml","fun[list u0]u0","fun[list u0]list u0","fun[S]S","fun[S]S","fun[u0]u0",
+            /* 2*/"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",
+            /* 3*/"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",
+            /* 4*/"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",
+            /* 5*/"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",
+            /* 6*/"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",
+            /* 7*/"fun[S I S I I]I","fun[]I","fun[S I S I I]I","fun[S]S","fun[fun[]I]fun[]I",
+            /* 8*/"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",
+            /* 9*/"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",
+            /*10*/"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",
+            /*11*/"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",
+            /*12*/"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",
+            /*13*/"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",
+            /*14*/"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",
+            /*15*/"fun[I I]S", "fun[I S I]I",
+            /*16*/"fun[S I]S","fun[S I I][S I]","fun[S]S","fun[S S]I"
+           };
+
+
+intptr_t Compiler::addstdlibcore()
+{
+    intptr_t 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_linux/src/vcomp/terminal.cpp

@@ -0,0 +1,80 @@
+//-------------------
+// 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 <stdint.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/{bytecode/src/mtl → ext/mtl_linux/src}/vcomp/util.cpp

@@ -8,6 +8,7 @@
 
 
 #include <stdio.h>
+#include <stdint.h>
 
 #include "param.h"
 #include "filesystem.h"
@@ -21,28 +22,34 @@
 
 Util::Util(Memory* mem)
 {
-	m=mem;
-	compiler=new Compiler(m);
-	interpreter=new Interpreter(m);
+    m=mem;
+    compiler=new Compiler(m);
+    interpreter=new Interpreter(m);
 }
 
 Util::~Util()
 {
-	delete interpreter;
-	delete compiler;
+    delete interpreter;
+    delete compiler;
 }
 
 void Util::stop()
 {
-	interpreter->stop();
-	compiler->stop();
+    interpreter->stop();
+    compiler->stop();
 }
 
 int Util::start()
 {
-	int k;
-	if (k=compiler->start()) return k;
-	if (k=interpreter->start()) return k;
-	return 0;
+    int k;
+    if (k=compiler->start())
+    {
+        return k;
+    }
+    if (k=interpreter->start())
+    {
+        return k;
+    }
+    return 0;
 }