nabaztag_hack_kit 0.1.0.beta3 → 0.1.0.beta8

data/bytecode/src/mtl/vmem.c

@@ -1,424 +0,0 @@
-// VLISP Virtual Machine - 2006 - by Sylvain Huet
-// Lowcost IS Powerfull
-
-#include"vmem.h"
-#include"vloader.h"
-#include"vlog.h"
-
-void play_check(int nocb);
-
-#ifdef VSIMU
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-int vmem_heap[VMEM_LENGTH];
-#endif
-
-#define VMEM_DBG
-
-
-int vmem_heapindex;
-int *vmem_top;
-int vmem_stack;
-int vmem_start;
-int vmem_broken;
-
-// initialisation de la m�moire
-void vmemInit(int start)
-{
-	vmem_top=&vmem_heap[VMEM_LENGTH];
-	vmem_stack=0;
-	vmem_start=vmem_heapindex=start;
-        vmem_broken=0;
-}
-
-void vmemSetstart(int start)
-{
-	int size;
-
-	if (start>=vmem_start-HEADER_LENGTH) return;
-
-	size=((vmem_start-HEADER_LENGTH-start)<<2)-1;
-
-	vmem_heap[start]=(size<<8)+(TYPE_BINARY);
-	vmem_heap[start+HEADER_GC]=0;
-	vmem_heap[start+HEADER_LIST]=0;
-
-	vmem_start=start;
-}
-
-
-void vmemGCfirst()
-{
-	int i,k,j,n;
-	int first;
-
-	first=-1;
-	for(i=vmem_stack;i<0;i++)
-	{
-		k=vmem_top[i];
-		if ((ISVALPNT(k))&&(k!=NIL))
-		{
-			k=VALTOPNT(k);
-#ifdef VMEM_DBG
-			if ((k<0)||(k>=VMEM_LENGTH)) consolestr("1.k out of space\n");
-#endif
-			if (!HEADER_USED(k))
-			{
-				HEADER_MARK(k);
-				vmem_heap[k+HEADER_LIST]=first;
-				first=k;
-			}
-		}
-	}
-	while(first!=-1)
-	{
-		k=first;
-#ifdef VMEM_DBG
-		if ((k<0)||(k>=VMEM_LENGTH)) consolestr("1.first out of space\n");
-#endif
-		first=vmem_heap[k+HEADER_LIST];
-		if (HEADER_TYPE(k))        // bloc table
-		{
-			n=VSIZE(k);
-			j=k+HEADER_LENGTH;
-			for(i=0;i<n;i++)
-			{
-				k=vmem_heap[j+i];
-				if ((ISVALPNT(k))&&(k!=NIL))
-				{
-					k=VALTOPNT(k);
-#ifdef VMEM_DBG
-					if ((k<0)||(k>=VMEM_LENGTH)) consolestr("1.k2 out of space\n");
-#endif
-					if (!HEADER_USED(k))
-					{
-						HEADER_MARK(k);
-						vmem_heap[k+HEADER_LIST]=first;
-						first=k;
-					}
-				}
-			}
-		}
-	}
-}
-#ifdef VMEM_DBG
-void dumpheap()
-{
-	int pos,realsize;
-#ifdef VSIMU
-	FILE *f;
-
-	f=fopen("mem.bin","wb");
-	fwrite(&vmem_start,1,4,f);
-	fwrite(&vmem_heapindex,1,4,f);
-	fwrite(&vmem_stack,1,4,f);
-	fwrite(vmem_heap,VMEM_LENGTH,1,f);
-	fclose(f);
-#endif
-	pos=vmem_start;
-	
-	while(pos < vmem_heapindex)
-	{
-		realsize=VSIZE(pos)+HEADER_LENGTH;
-		consolehx(pos); consolestr(":pos ");consolehx(realsize);
-		consolestr(":realsize\n");
-		if ((realsize<0)||(realsize>=VMEM_LENGTH))
-		{
-			consolestr("2.realsize out of range\n");
-			dump((char*)&vmem_heap[pos-32],128);
-			return;
-		}
-		dump((char*)&vmem_heap[pos],32);
-		pos+=realsize;
-	}
-
-
-}
-#endif
-void vmemGCsecond()
-{
-	int pos,newpos,realsize;
-	
-	pos=newpos=vmem_start;
-	
-	while(pos < vmem_heapindex)
-	{
-		realsize=VSIZE(pos)+HEADER_LENGTH;
-#ifdef VMEM_DBG
-		if ((realsize<0)||(realsize>=VMEM_LENGTH))
-		{
-			dumpheap();
-#ifdef VSIMU
-			printf("CORE DUMP\n");
-			getchar();
-			exit(0);
-#endif
-		}
-#endif
-		if (HEADER_USED(pos))
-		{
-			vmem_heap[pos+HEADER_GC]=newpos<<1;
-			newpos+=realsize;
-		}
-		pos+=realsize;
-	}
-}
-
-void vmemGCthird()
-{
-	int i,k,j,n;
-	int first;
-
-	first=-1;
-	for(i=vmem_stack;i<0;i++)
-	{
-		k=vmem_top[i];
-		if ((ISVALPNT(k))&&(k!=NIL))
-		{
-			k=VALTOPNT(k);
-			vmem_top[i]=vmem_heap[k+HEADER_GC]|1;	// attention, hack
-			if (!HEADER_USED(k))
-			{
-				HEADER_MARK(k);
-				vmem_heap[k+HEADER_LIST]=first;
-				first=k;
-			}
-		}
-	}
-	while(first!=-1)
-	{
-		k=first;
-		first=vmem_heap[k+HEADER_LIST];
-		if (HEADER_TYPE(k))        // bloc table
-		{
-			n=VSIZE(k);
-			j=k+HEADER_LENGTH;
-			for(i=0;i<n;i++)
-			{
-				k=vmem_heap[j+i];
-				if ((ISVALPNT(k))&&(k!=NIL))
-				{
-					k=VALTOPNT(k);
-					vmem_heap[j+i]=vmem_heap[k+HEADER_GC]|1;	// attention, hack
-					if (!HEADER_USED(k))
-					{
-						HEADER_MARK(k);
-						vmem_heap[k+HEADER_LIST]=first;
-						first=k;
-					}
-				}
-			}
-		}
-	}
-}
-void vmemGCfourth()
-{
-	int pos,newpos,realsize,i;
-
-	pos=newpos=vmem_start;
-
-	while(pos < vmem_heapindex)
-	{
-		realsize=VSIZE(pos)+HEADER_LENGTH;
-		if (HEADER_USED(pos))
-		{
-			vmem_heap[pos+HEADER_GC]=0;
-                        if (newpos!=pos)
-                        {
-                          if (newpos+realsize<=pos)
-                            memcpy(&vmem_heap[newpos],&vmem_heap[pos],realsize<<2);
-                          else
-                          {
-                            consolestr("########GC : BIG MOVE\n");
-                            for(i=0;i<realsize;i++) vmem_heap[newpos+i]=vmem_heap[pos+i];
-                          }
-
-                          newpos+=realsize;
-                          pos+=realsize;
-//                        for(i=0;i<realsize;i++) vmem_heap[newpos++]=vmem_heap[pos++];
-                        }
-                        else newpos=pos=pos+realsize;
-		}
-		else
-		{
-			// ## ajouter ici la gestion des types externes : if (HEADER_EXT(pos)) ...
-			pos+=realsize;
-		}
-	}
-	vmem_heapindex=newpos;
-}
-
-void vmemGC()
-{
-//  logGC();
-#ifdef VREAL
-	play_check(1);
-#endif
-	vmemGCfirst();
-#ifdef VREAL
-  play_check(1);
-#endif
-	vmemGCsecond();
-#ifdef VREAL
-  play_check(1);
-#endif
-	vmemGCthird();
-#ifdef VREAL
-  play_check(1);
-#endif
-	vmemGCfourth();
-#ifdef VREAL
-  play_check(1);
-#endif
-	logGC();
-//        dump(bytecode,32);
-}
-
-int vmemAllocBin(int size,int ext)
-{
-	int wsize,p;
-	wsize=HEADER_LENGTH+((size+4)>>2);
-
-	if (VMEM_LENGTH+vmem_stack-vmem_heapindex-wsize<VMEM_GCTHRESHOLD)
-	{
-		vmemGC();
-		if (VMEM_LENGTH+vmem_stack-vmem_heapindex-wsize<VMEM_GCTHRESHOLD)
-		{
-                        consolestr("?OM Error\n");
-                        vmem_broken=1;
-                        sysReboot();
-			return -1;
-		}
-	}
-	p=vmem_heapindex;
-	vmem_heapindex+=wsize;
-	vmem_heap[p]=(size<<8)+((ext&127)<<1)+(TYPE_BINARY);
-	vmem_heap[p+HEADER_GC]=0;
-	vmem_heap[p+HEADER_LIST]=0;
-	vmem_heap[p+wsize-1]=0;
-	return p;
-}
-
-int vmemAllocString(char *p,int len)
-{
-	int i;
-	char *q;
-	int iq=vmemAllocBin(len,0);
-	if (iq<0) return iq;
-	q=VSTARTBIN(iq);
-	for(i=0;i<len;i++) q[i]=p[i];
-	return iq;
-}
-
-int vmemAllocTab(int size,int ext)
-{
-	int wsize,p;
-	wsize=HEADER_LENGTH+size;
-
-	if (VMEM_LENGTH+vmem_stack-vmem_heapindex-wsize<VMEM_GCTHRESHOLD)
-	{
-		vmemGC();
-		if (VMEM_LENGTH+vmem_stack-vmem_heapindex-wsize<VMEM_GCTHRESHOLD)
-		{
-                        consolestr("?OM Error\n");
-                        vmem_broken=1;
-                        sysReboot();
-			return -1;
-		}
-	}
-	p=vmem_heapindex;
-	vmem_heapindex+=wsize;
-	size=(size<<2)-1;
-	vmem_heap[p]=(size<<8)+((ext&127)<<1)+(TYPE_TAB);
-	vmem_heap[p+HEADER_GC]=0;
-	vmem_heap[p+HEADER_LIST]=0;
-	vmem_heap[p+wsize-1]=0;
-	return p;
-}
-
-int vmemAllocTabClear(int size,int ext)
-{
-	int p=vmemAllocTab(size,ext);
-	if (p>=0)
-	{
-		int i;
-		for(i=0;i<size;i++)vmem_heap[p+HEADER_LENGTH+i]=NIL;
-	}
-	return p;
-}
-
-int vmemPush(int val)
-{
-	vmem_top[--vmem_stack]=val;
-	if (VMEM_LENGTH+vmem_stack-vmem_heapindex<VMEM_GCTHRESHOLD)
-	{
-		vmemGC();
-		if (VMEM_LENGTH+vmem_stack-vmem_heapindex<VMEM_GCTHRESHOLD)
-		{
-                        consolestr("?OM Error\n");
-                        vmem_broken=1;
-                        sysReboot();
-			return -1;
-		}
-	}
-	return 0;
-}
-
-void vmemStacktotab(int n)
-{
-	int *q;
-	int p=vmemAllocTab(n,0);
-	q=VSTART(p);
-	while(n>0) q[--n]=VPULL();
-	VPUSH(PNTTOVAL(p));
-}
-
-
-void vmemDumpHeap()
-{
-#ifdef VSIMU
-	int i,pos,realsize,n;
-#endif
-	consolestr("HEAP\n----\n");
-#ifdef VSIMU
-	pos=vmem_start;
-	n=0;
-	while(pos < vmem_heapindex)
-	{
-		realsize=VSIZE(pos)+HEADER_LENGTH;
-		printf("%06X : %s %d\n",pos,HEADER_TYPE(pos)?"Tab":"Bin",VSIZE(pos));
-		for(i=0;i<realsize;i++) printf("%x ",vmem_heap[pos+i]);
-		printf("\n");
-		pos+=realsize;
-		n++;
-	}
-#endif
-	logGC();
-}
-
-void vmemDumpStack()
-{
-#ifdef VSIMU
-	int i,k;
-#endif
-	consolestr("STACK\n-----\n");
-#ifdef VSIMU
-	for(i=-1;i>=vmem_stack;i--)
-	{
-		k=vmem_top[i];
-		printf("%d : %6x -> %6x (%d)\n",i,k,k>>1,k>>1);
-	}
-#endif
-}
-
-void vmemDump()
-{
-	vmemDumpHeap();
-	vmemDumpStack();
-}
-
-void vmemDumpShort()
-{
-	logGC();
-}

data/bytecode/src/mtl/vnet.c

@@ -1,255 +0,0 @@
-// VLISP Virtual Machine - 2006 - by Sylvain Huet
-// Lowcost IS Powerfull
-#include"vmem.h"
-#include"properties.h"
-
-#ifdef VSIMU
-#include <string.h>
-#include<stdio.h>
-#include<time.h>
-#include "log.h"
-int netstatesimu=1;
-#endif
-#ifdef VREAL
-#include "rt2501usb.h"
-#endif
-#include"vloader.h"
-#include"vnet.h"
-#include"vlog.h"
-#include"vinterp.h"
-int netState()
-{
-#ifdef VSIMU
-        return netstatesimu;
-#endif
-#ifdef VREAL
-      return rt2501_state();
-#endif
-}
-
-int netSend(char* src,int indexsrc,int lentosend,int lensrc,char* macdst,int inddst,int lendst,int speed)
-{
-#ifdef VSIMU
-        my_printf(LOG_SIMUNET, "xxxx netSend\n");
-		return -1;
-#endif
-#ifdef VREAL
-  if (indexsrc<0) return -1;
-  if (indexsrc+lentosend>lensrc) lentosend=lensrc-indexsrc;
-  if (lentosend<=0) return -1;
-  if (inddst<0) return -1;
-  if (inddst+6>lendst) return -1;
-  return rt2501_send((const unsigned char *)(src+indexsrc),lentosend,(const unsigned char *)(macdst+inddst),speed,1);
-#endif
-}
-
-int netCb(char* src,int lensrc,char* macsrc)
-{
-  VPUSH(PNTTOVAL(VMALLOCSTR(src,lensrc)));
-  VPUSH(PNTTOVAL(VMALLOCSTR(macsrc,6)));
-  VPUSH(VCALLSTACKGET(sys_start,SYS_CBTCP));
-  if (VSTACKGET(0)!=NIL) interpGo();
-  else { VPULL();VPULL();}
-  VPULL();
-  return 0;
-}
-
-extern unsigned char rt2501_mac[6];
-
-#ifdef VSIMU
-int htoi2(char* src)
-{
-	char buf[3];
-	buf[0]=src[0];
-	buf[1]=src[1];
-	buf[2]=0;
-	return sysHtoi(buf);
-}
-#endif
-
-char mac[6];
-
-char* netMac()
-{
-#ifdef VSIMU
-	int i;
-	char *p=PropGet("MAC");
-	for(i=0;i<6;i++) mac[i]=htoi2(&p[i*2]);
-	return mac;
-//	return "abcdef";
-#endif
-#ifdef VREAL
-  return (char*) rt2501_mac;
-#endif
-}
-
-int netChk(char* src,int indexsrc,int lentosend,int lensrc,unsigned int val)
-{
-  unsigned short* p;
-
-  if (indexsrc<0) return val;
-  if (indexsrc+lentosend>lensrc) lentosend=lensrc-indexsrc;
-  if (lentosend<=0) return val;
-
-  src+=indexsrc;
-  p=(unsigned short*)src;
-
-  val=((val<<8)&0xff00)+((val>>8)&0xff);
-  while(lentosend>1)
-  {
-	  val+=*(p++);
-	  lentosend-=2;
-  }
-  if (lentosend) val+=*(unsigned char*)p;
-
-  val=(val>>16)+(val&0xffff);
-  val=(val>>16)+(val&0xffff);
-  val=((val<<8)&0xff00)+((val>>8)&0xff);
-  return val;
-}
-
-void netSetmode(int mode,char* ssid,int chn)
-{
-#ifdef VSIMU
-        my_printf(LOG_SIMUNET, "xxxx netSetmode %d %s %d\n",mode,ssid,chn);
-		netstatesimu=(mode)?5:4;
-#endif
-#ifdef VREAL
-  rt2501_setmode(mode,ssid,chn);
-#endif
-}
-
-
-int nscan;
-#ifdef VREAL
-void netScan_(struct rt2501_scan_result *scan_result, void *userparam)
-{
-  char buf[256];
-  sprintf(buf,">>> %s %d %d %d %d\n",scan_result->ssid,scan_result->rssi,scan_result->channel,scan_result->rateset,scan_result->encryption);
-  consolestr((UBYTE*)buf);
-  VPUSH(PNTTOVAL(VMALLOCSTR(scan_result->ssid,strlen(scan_result->ssid))));
-  VPUSH(PNTTOVAL(VMALLOCSTR((char*)scan_result->mac,6)));
-  VPUSH(PNTTOVAL(VMALLOCSTR((char*)scan_result->bssid,6)));
-  VPUSH(INTTOVAL(scan_result->rssi));
-  VPUSH(INTTOVAL(scan_result->channel));
-  VPUSH(INTTOVAL(scan_result->rateset));
-  VPUSH(INTTOVAL(scan_result->encryption));
-  VMKTAB(7);
-  nscan++;
-}
-#endif
-
-void netScan(char* ssid)
-{
-  nscan=0;
-#ifdef VSIMU
-  VPUSH(PNTTOVAL(VMALLOCSTR("foo",3)));
-  VPUSH(PNTTOVAL(VMALLOCSTR("xyzxyz",6)));
-  VPUSH(PNTTOVAL(VMALLOCSTR("765432",6)));
-  VPUSH(INTTOVAL(-20));
-  VPUSH(INTTOVAL(11));
-  VPUSH(INTTOVAL(1));
-  VPUSH(INTTOVAL(0));
-  VMKTAB(7);
-  nscan++;
-  VPUSH(PNTTOVAL(VMALLOCSTR("foo",3)));
-  VPUSH(PNTTOVAL(VMALLOCSTR("xyzxyz",6)));
-  VPUSH(PNTTOVAL(VMALLOCSTR("765432",6)));
-  VPUSH(INTTOVAL(-10));
-  VPUSH(INTTOVAL(11));
-  VPUSH(INTTOVAL(1));
-  VPUSH(INTTOVAL(0));
-  VMKTAB(7);
-  nscan++;
-  VPUSH(PNTTOVAL(VMALLOCSTR("zzzz",3)));
-  VPUSH(PNTTOVAL(VMALLOCSTR("xyzxyz",6)));
-  VPUSH(PNTTOVAL(VMALLOCSTR("765432",6)));
-  VPUSH(INTTOVAL(-10));
-  VPUSH(INTTOVAL(11));
-  VPUSH(INTTOVAL(1));
-  VPUSH(INTTOVAL(0));
-  VMKTAB(7);
-  nscan++;
-  VPUSH(PNTTOVAL(VMALLOCSTR("",3)));
-  VPUSH(PNTTOVAL(VMALLOCSTR("xyzxyz",6)));
-  VPUSH(PNTTOVAL(VMALLOCSTR("765432",6)));
-  VPUSH(INTTOVAL(-10));
-  VPUSH(INTTOVAL(11));
-  VPUSH(INTTOVAL(1));
-  VPUSH(INTTOVAL(0));
-  VMKTAB(7);
-  nscan++;
-  VPUSH(PNTTOVAL(VMALLOCSTR("a\"a<a'a  a\\a",strlen("a\"a<a'a  a\\a"))));
-  VPUSH(PNTTOVAL(VMALLOCSTR("xyzxyz",6)));
-  VPUSH(PNTTOVAL(VMALLOCSTR("765432",6)));
-  VPUSH(INTTOVAL(-10));
-  VPUSH(INTTOVAL(11));
-  VPUSH(INTTOVAL(1));
-  VPUSH(INTTOVAL(3));
-  VMKTAB(7);
-  nscan++;
-  VPUSH(PNTTOVAL(VMALLOCSTR("foo",3)));
-  VPUSH(PNTTOVAL(VMALLOCSTR("xyzxyz",6)));
-  VPUSH(PNTTOVAL(VMALLOCSTR("765432",6)));
-  VPUSH(INTTOVAL(-30));
-  VPUSH(INTTOVAL(11));
-  VPUSH(INTTOVAL(1));
-  VPUSH(INTTOVAL(0));
-  VMKTAB(7);
-  nscan++;
-#endif
-#ifdef VREAL
-  rt2501_scan(ssid, netScan_, NULL);
-#endif
-  VPUSH(NIL);
-  while(nscan--) VMKTAB(2);
-}
-
-void netAuth(char* ssid,char* mac,char* bssid,int chn,int rate,int authmode,int encrypt,char* key)
-{
-#ifdef VSIMU
-        my_printf(LOG_SIMUNET, "xxxx netAuth %s %d %d %d %d\n",ssid,chn,rate,authmode,encrypt);
-		netstatesimu=4;
-#endif
-#ifdef VREAL
-  rt2501_auth((const char*)ssid,(const unsigned char*)mac,(const unsigned char*)bssid,chn,rate,authmode,encrypt,(const unsigned char*)key);
-#endif
-}
-
-void netSeqAdd(unsigned char* seq,int n)
-{
-  unsigned char res[4];
-  unsigned int val;
-  val=(seq[0]<<24)+(seq[1]<<16)+(seq[2]<<8)+seq[3];
-  val+=n;
-  res[3]=val; val>>=8;
-  res[2]=val; val>>=8;
-  res[1]=val; val>>=8;
-  res[0]=val;
-  VPUSH(PNTTOVAL(VMALLOCSTR((char*)res,4)));
-}
-
-void mypassword_to_pmk(const char *password, char *ssid, int ssidlength, unsigned char *pmk);
-
-void netPmk(char* ssid,char* key,char* buf)
-{
-#ifdef VSIMU
-	my_printf(LOG_SIMUNET, "xxxx netPmk %s %s\n",ssid,key);
-	strcpy(buf,"01234567012345670123456701234567");
-#endif
-#ifdef VREAL
-//      strcpy(buf,"01234567012345670123456701234567");
-      mypassword_to_pmk(key,ssid,strlen(ssid), (unsigned char*)buf);
-#endif
-}
-
-int netRssi()
-{
-#ifdef VSIMU
-	return -20;
-#endif
-#ifdef VREAL
-	return rt2501_rssi_average();
-#endif
-}
-

data/examples/basic/Procfile

@@ -1,2 +0,0 @@
-web: bundle exec rackup config.ru -p $PORT
-dev: bundle exec rackup config.ru -p 9292

data/examples/basic/server.rb

@@ -1,14 +0,0 @@
-require "nabaztag_hack_kit/server"
-
-require 'nabaztag_hack_kit/mods/callback'
-# require 'nabaztag_hack_kit/mods/logger'
-require 'nabaztag_hack_kit/mods/playground'
-
-module Basic
-  class Server < NabaztagHackKit::Server
-      register NabaztagHackKit::Mods::Callback
-      # register Mods::Logger
-      register NabaztagHackKit::Mods::Playground
-
-  end
-end