nabaztag_hack_kit 0.0.2

data/ext/mtl/vbc.h

@@ -0,0 +1,160 @@
+// VLISP Virtual Machine - 2006 - by Sylvain Huet
+// Lowcost IS Powerfull
+
+#ifndef VBC_H_
+# define VBC_H_
+
+#define OPexec 0
+#define OPret 1
+#define OPintb 2
+#define OPint 3
+#define OPnil 4
+#define OPdrop 5
+#define OPdup 6
+#define OPgetlocalb 7
+#define OPgetlocal 8
+#define OPadd 9
+#define OPsub 10
+#define OPmul 11
+#define OPdiv 12
+#define OPmod 13
+#define OPand 14
+#define OPor 15
+#define OPeor 16
+#define OPshl 17
+#define OPshr 18
+#define OPneg 19
+#define OPnot 20
+#define OPnon 21
+#define OPeq 22
+#define OPne 23
+#define OPlt 24
+#define OPgt 25
+#define OPle 26
+#define OPge 27
+#define OPgoto 28
+#define OPelse 29
+#define OPmktabb 30
+#define OPmktab 31
+#define OPdeftabb 32
+#define OPdeftab 33
+#define OPfetchb 34
+#define OPfetch 35
+#define OPgetglobalb 36
+#define OPgetglobal 37
+#define OPSecho 38
+#define OPIecho 39
+#define OPsetlocalb 40
+#define OPsetlocal 41
+#define OPsetglobal 42
+#define OPsetstructb 43
+#define OPsetstruct 44
+#define OPhd 45
+#define OPtl 46
+#define OPsetlocal2 47
+#define OPstore 48
+#define OPcall 49
+#define OPcallrb 50
+#define OPcallr 51
+#define OPfirst 52
+#define OPtime_ms 53
+#define OPtabnew 54
+#define OPfixarg 55
+#define OPabs 56
+#define OPmax 57
+#define OPmin 58
+#define OPrand 59
+#define OPsrand 60
+#define OPtime 61
+#define OPstrnew 62
+#define OPstrset 63
+#define OPstrcpy 64
+#define OPvstrcmp 65
+#define OPstrfind 66
+#define OPstrfindrev 67
+#define OPstrlen 68
+#define OPstrget 69
+#define OPstrsub 70
+#define OPstrcat 71
+#define OPtablen 72
+#define OPstrcatlist 73
+#define OPled 74
+#define OPmotorset 75
+#define OPmotorget 76
+#define OPbutton2 77
+#define OPbutton3 78
+#define OPplayStart 79
+#define OPplayFeed 80
+#define OPplayStop 81
+#define OPload 82
+#define OPudpStart 83
+#define OPudpCb 84
+#define OPudpStop 85
+#define OPudpSend 86
+#define OPgc 87
+#define OPtcpOpen 88
+#define OPtcpClose 89
+#define OPtcpSend 90
+#define OPtcpCb 91
+#define OPsave 92
+#define OPbytecode 93
+#define OPloopcb 94
+#define OPIecholn 95
+#define OPSecholn 96
+#define OPtcpListen 97
+#define OPenvget 98
+#define OPenvset 99
+#define OPsndVol 100
+#define OPrfidGet 101
+#define OPplayTime 102
+#define OPnetCb 103
+#define OPnetSend 104
+#define OPnetState 105
+#define OPnetMac 106
+#define OPnetChk 107
+#define OPnetSetmode 108
+#define OPnetScan 109
+#define OPnetAuth 110
+#define OPrecStart 111
+#define OPrecStop 112
+#define OPrecVol 113
+#define OPnetSeqAdd 114
+#define OPstrgetword 115
+#define OPstrputword 116
+#define OPatoi 117
+#define OPhtoi 118
+#define OPitoa 119
+#define OPctoa 120
+#define OPitoh 121
+#define OPctoh 122
+#define OPitobin2 123
+#define OPlistswitch 124
+#define OPlistswitchstr 125
+#define OPsndRefresh 126
+#define OPsndWrite 127
+#define OPsndRead 128
+#define OPsndFeed 129
+#define OPsndAmpli 130
+#define OPcorePP 131
+#define OPcorePush 132
+#define OPcorePull 133
+#define OPcoreBit0 134
+#define OPtcpEnable 135
+#define OPreboot 136
+#define OPstrcmp 137
+#define OPadp2wav 138
+#define OPwav2adp 139
+#define OPalaw2wav 140
+#define OPwav2alaw 141
+#define OPnetPmk 142
+#define OPflashFirmware 143
+#define OPcrypt 144
+#define OPuncrypt 145
+#define OPnetRssi 146
+#define OPrfidGetList 147
+#define OPrfidRead 148
+#define OPrfidWrite 149
+#define OPi2cRead 150
+#define OPi2cWrite 151
+
+#endif // ! VBC_H_

data/ext/mtl/vbc_str.h

@@ -0,0 +1,166 @@
+// 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/ext/mtl/vcomp/Makefile

@@ -0,0 +1,29 @@
+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/ext/mtl/vcomp/bootstrap.cpp

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