nabaztag_hack_kit 0.1.0.beta3 → 0.1.0.beta8

data/bytecode/src/mtl/vbc_str.h

@@ -1,166 +0,0 @@
-// VLISP Virtual Machine - 2006 - by Sylvain Huet
-// Lowcost IS Powerfull
-
-#ifndef VBC_STR_H_
-# define VBC_STR_H_
-
-// cette table ne sert qu'� l'affichage du bytecode dans la console
-#define MaxOpcode 152
-const char* strbytecod[MaxOpcode]=
-{
-"exec",
-"ret",
-"intb",
-"int",
-"nil",
-"drop",
-"dup",
-"getlocalb",
-"getlocal",
-"add",
-"sub",
-"mul",
-"div",
-"mod",
-"and",
-"or",
-"eor",
-"shl",
-"shr",
-"neg",
-"not",
-"non",
-"eq",
-"ne",
-"lt",
-"gt",
-"le",
-"ge",
-"goto",
-"else",
-"mktabb",
-"mktab",
-"deftabb",
-"deftab",
-"fetchb",
-"fetch",
-"getglobalb",
-"getglobal",
-"Secho",
-"Iecho",
-"setlocalb",
-"setlocal",
-"setglobal",
-"setstructb",
-"setstruct",
-"hd",
-"tl",
-"setlocal2",
-"store",
-"call",
-"callrb",
-"callr",
-"first",
-"time_ms",
-"tabnew",
-"fixarg",
-"abs",
-"max",
-"min",
-"rand",
-"srand",
-"time",
-"strnew",
-"strset",
-"strcpy",
-"vstrcmp",
-"strfind",
-"strfindrev",
-"strlen",
-"strget",
-"strsub",
-"strcat",
-"tablen",
-"strcatlist",
-"led",
-"motorset",
-"motorget",
-"button2",
-"button3",
-"playStart",
-"playFeed",
-"playStop",
-"load",
-"udpStart",
-"udpCb",
-"udpStop",
-"udpSend",
-"gc",
-"tcpOpen",
-"tcpClose",
-"tcpSend",
-"tcpCb",
-"save",
-"bytecode",
-"loopcb",
-"Iecholn",
-"Secholn",
-"tcpListen",
-"envget",
-"envset",
-"sndVol",
-"rfidGet",
-"playTime",
-"netCb",
-"netSend",
-"netState",
-"netMac",
-"netChk",
-"netSetmode",
-"netScan",
-"netAuth",
-"recStart",
-"recStop",
-"recVol",
-"netSeqAdd",
-"strgetword",
-"strputword",
-"atoi",
-"htoi",
-"itoa",
-"ctoa",
-"itoh",
-"ctoh",
-"itobin2",
-"listswitch",
-"listswitchstr",
-"sndRefresh",
-"sndWrite",
-"sndRead",
-"sndFeed",
-"sndAmpli",
-"corePP",
-"corePush",
-"corePull",
-"coreBit0",
-"tcpEnable",
-"reboot",
-"strcmp",
-"adp2wav",
-"wav2adp",
-"alaw2wav",
-"wav2alaw",
-"netPmk",
-"flashFirmware",
-"crypt",
-"uncrypt",
-"netRssi",
-"rfidGetList",
-"rfidRead",
-"rfidWrite",
-"i2cRead",
-"i2cWrite"
-};
-
-#endif // ! VBC_STR_H_
-

data/bytecode/src/mtl/vcomp/Makefile

@@ -1,29 +0,0 @@
-OBJS = \
-	bootstrap.o \
-	compiler_file.o \
-	compiler.o \
-	compiler_prog.o \
-	compiler_term.o \
-	compiler_type.o \
-	compiler_var.o \
-	file.o \
-	interpreter.o \
-	memory.o \
-	parser.o \
-	parser_xml.o \
-	prodbuffer.o \
-	stdlib_core.o \
-	terminal.o \
-	util.o
-
-libvcomp.a : $(OBJS)
-	ar rcs $@ $(OBJS)
-	ranlib $@
-
-# %.o : %.cpp
-# 	g++ -c $^ -o $@
-
-CPPFLAGS=-fpermissive
-
-clean :
-	rm -f $(OBJS)

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

@@ -1,89 +0,0 @@
-//-------------------
-// MV
-// version WIN32 et POCKETPC
-// Sylvain Huet
-// Derniere mise a jour : 07/01/2003
-//
-
-
-//#include <windows.h>
-//#include <windowsx.h>
-//#include <wingdi.h>
-//#include <commctrl.h>
-//#include <commdlg.h>
-//#include <string.h>
-#include "param.h"
-
-#include <stdio.h>
-
-#include "param.h"
-#include "prodbuffer.h"
-#include "filesystem.h"
-#include "file.h"
-#include "terminal.h"
-
-#include "memory.h"
-#include "util.h"
-#include "parser.h"
-#include "compiler.h"
-#include "interpreter.h"
-
-
-
-void AbortMetal(Memory* m,int donotstop)
-{
-	if (m->abort) return;
-	PRINTF(m)(LOG_RUNTIME,"\n---------- end of execution\n");
-	m->stop();
-}
-
-
-
-int StartMetal(const char *starter, const char* output, bool inSign)
-{
-	int k;
-
-//  passe dans le r�pertoire de l'executable, en retenant le r�pertoire courant
-
-	Terminal* t=new Terminal();
-	Memory* m=new Memory(32*1024,t,NULL);
-	t->m=m;
-
-	if (k=m->start())
-	{
-		t->printf(LOG_RUNTIME,"Launcher : erreur d'initialisation Memory\n");
-		return -1;
-	}
-	STRPUSH(m, (char*) starter);
-	if (!(k=m->util->compiler->gocompile(COMPILE_FROMFILE)))
-	{
-		t->printf(LOG_RUNTIME,"\nCompiler : done !\n");
-		File* f=new File(NULL);
-		f->openwrite(output);
-		if (inSign) {
-			f->write("amber", 5);
-			char sizeStr[9];
-			sprintf(sizeStr, "%.8x", m->util->compiler->brelease->getsize());
-			f->write(sizeStr, 8);
-		}
-		f->write(m->util->compiler->brelease->getstart(),m->util->compiler->brelease->getsize());
-		if (inSign) {
-			f->write("Mind", 4);
-		}
-		f->close();
-		return 0;
-	}
-	else
-	{
-		t->printf(LOG_RUNTIME,"Launcher : %s\n\n",m->errorname(k));
-		return -1;
-	}
-}
-
-
-int vcompDoit(char *starter)
-{
-	int k=StartMetal(starter, "foo.bin", false);
-	getchar();
-	return k;
-}