nabaztag_hack_kit 0.0.2

data/ext/bytecode/lib/util.mtl

@@ -0,0 +1,74 @@
+fun setleds col= for i=0;i<5 do led i col;;
+
+// --------------- UTIL
+fun strstr s p i=strfind s i p 0 nil;;
+fun listlen l=if l==nil then 0 else 1+listlen tl l;;
+fun listrem l x=if l!=nil then if x==hd l then tl l else (hd l)::listrem tl l x;;
+
+fun listtostr l=
+  let strnew listlen l -> s in
+  let 0->i in
+  (
+    for p=l;p!=nil;tl p do
+    (
+      strset s i hd p;
+      set i=i+1
+    );
+  s
+  );;
+
+
+fun countpattern s p i=
+  let strstr s p i -> j in
+  if j==nil then 0
+  else 1+countpattern s p j+strlen p;;
+
+fun strreplace2 sn s p v i id=
+  if i<strlen s then
+  let strstr s p i -> j in
+  let if j==nil then strlen s else j -> k in
+  (
+    strcpy sn id s i k-i;
+    if j!=nil then strcpy sn id+k-i v 0 nil;
+    strreplace2 sn s p v k+strlen p id+k-i+strlen v
+  );;
+
+fun strreplace s p v=
+  let countpattern s p 0 -> i in
+  if !i then s
+  else let strnew (strlen s) + ((strlen v)-(strlen p))*i -> sn in
+  (
+    strreplace2 sn s p v 0 0;
+    sn
+  );;
+
+fun rev p q=if p==nil then q else rev tl p (hd p)::q;;
+
+// remfromlist same as  listrem!!!
+fun remfromlist l t= if l!=nil then if t==hd l then tl l else (hd l)::remfromlist tl l t;;
+
+fun insert x l f=
+  if l==nil then x::nil
+  else let call f [x hd l] -> r in
+  if r>0 then (hd l)::insert x tl l f
+  else if r<0 then x::l
+  else insert x tl l f;;
+
+fun sort l f= if l!=nil then insert hd l sort tl l f f;;
+
+fun select l a f= if l!=nil then let hd l-> x in if call f [x a] then x::select tl l a f else select tl l a f;;
+
+fun _useparamip s i val j=
+	if i<4 then
+	let strstr val "." j -> k in
+	(
+		strset s i atoi strsub val j if k==nil then nil else k-j;
+		_useparamip s i+1 val if k==nil then strlen val else k+1
+	);;
+
+fun useparamip val=
+	let strnew 4 -> ip in
+	(
+		_useparamip ip 0 val 0;
+		ip
+	);;

data/ext/bytecode/lib/var.mtl

@@ -0,0 +1,15 @@
+var http_prefurl="http://";;
+
+const HTTP_NORMAL=0;;
+const HTTP_STREAM=1;;
+const HTTP_DIRECT=2;;
+
+const HTTP_SOLVE=0;;
+const HTTP_REACH=1;;
+const HTTP_CONNECTED=2;;
+
+var lasthttpevent;;
+
+type Httpreq=[cnxH inputH outputH indexH cbH typeH stateH aliveH];;
+
+const DNSLOCAL=1597;;

data/ext/bytecode/lib/wifi.mtl

@@ -0,0 +1,243 @@
+// ------------- Wifi
+
+type Wifi=initW | gomasterW | masterW | gostationW _ | dhcpW _| stationW | reconnectW;;
+var wifi;;
+var wifitry;;
+var wifiscans;;
+
+const RT2501_S_BROKEN=0;;
+const RT2501_S_IDLE=1;;
+const RT2501_S_SCAN=2;;
+const RT2501_S_CONNECTING=3;;
+const RT2501_S_CONNECTED=4;;
+const RT2501_S_MASTER=5;;
+
+const IEEE80211_CRYPT_NONE=0;;
+const IEEE80211_CRYPT_WEP64=1;;
+const IEEE80211_CRYPT_WEP128=2;;
+const IEEE80211_CRYPT_WPA=3;;
+const IEEE80211_CRYPT_WPA_UNSUPPORTED=4;;
+
+const IEEE80211_M_MANAGED=0;;
+const IEEE80211_M_MASTER=1;;
+
+const IEEE80211_AUTH_OPEN=0;;
+const IEEE80211_AUTH_SHARED=1;;
+
+fun _scanserialize l=
+  if l!=nil then
+  let hd l->[ssid mac bssid rssi channel rateset encryption] in
+  ssid::"\0"::mac::bssid::(itoh4 rssi)::(itoh4 channel)::(itoh4 rateset)::(itoh4 encryption)::
+  _scanserialize tl l;;
+
+fun scanserialize l=
+  (itoh4 listlen l)::_scanserialize l;;
+
+
+fun ssidlen s i=
+  if i>=strlen s then i
+  else if !strget s i then i
+  else ssidlen s i+1;;
+
+fun scanunserialize s n i0=
+  if n>0 then
+  let ssidlen s i0 -> j in
+  let j+1->i in
+  [
+    strsub s i0 j-i0
+    strsub s i 6
+    strsub s i+6 6
+    htoi strsub s i+12 8
+    htoi strsub s i+20 8
+    htoi strsub s i+28 8
+    htoi strsub s i+36 8
+  ]::scanunserialize s n-1 i+44;;
+
+
+fun envmake =
+  strcatlist netip::netmask::netgateway::netdns::scanserialize wifiscans;;
+
+fun envrestore s =
+  if s!=nil then
+  (
+    set netip=strsub s 0 4;
+    set netmask=strsub s 4 4;
+    set netgateway=strsub s 8 4;
+    set netdns=strsub s 12 4;
+    let htoi strsub s 16 8 -> nscan in
+    set wifiscans=scanunserialize s nscan 24;
+    0
+  );;
+
+fun scancmpssid a b=
+  let a->[sa _ _ _ _ _ _] in
+  let b->[sb _ _ _ _ _ _] in
+  strcmp sa sb;;
+
+
+fun wifiInit rescan=
+  set wifitry=nil;
+  let envget -> env in
+  if env==nil then
+  (
+    setleds 0xff00ff;
+    set wifi=initW;
+    if rescan then set wifiscans=nil;
+    if confGetDhcp then  set netip=netip_empty
+    else
+    (
+      set netmask=confGetNetmask;
+      set netgateway=confGetNetgateway;
+      set netdns=confGetNetdns;
+      set netip=confGetNetip
+    );
+    0
+  )
+  else
+  (
+    setleds 0x00ff00;
+    set mymac=netMac;
+    set wifi=stationW;
+    envrestore env;
+    envset nil;
+    nil
+  );
+  0;;
+
+var laststate;;
+
+fun wifibyssid x v=let x->[s _ _ _ _ _ _] in (s!=nil)&& !strcmp v s;;
+
+
+var retrytime;;
+
+fun _wifiwepkey val i len=
+  if i<len then
+  (htoi strsub val i 2)::_wifiwepkey val i+2 len;;
+
+fun wifiwepkey val=
+  let strlen val -> len in
+  if len==5 || len==13 then val
+  else let strreplace val ":" "" -> val in
+  let if len<10 then 0 else if len<26 then 5 else 13 -> len in
+  listtostr _wifiwepkey val 0 len<<1;;
+
+fun wificrypttype crypt key=
+  if crypt==1 then if 5==strlen key then IEEE80211_CRYPT_WEP64 else IEEE80211_CRYPT_WEP128
+  else if crypt==2 then IEEE80211_CRYPT_WPA
+  else IEEE80211_CRYPT_NONE;;
+
+fun wifiAuth=
+  setleds 0xff8000;
+  if wifiscans==nil then 0
+  else
+    let Iecholn confGetWificrypt -> crypt in
+    let confGetWifiauth -> auth in
+    let if crypt==1 then wifiwepkey confGetWifikey0
+      else if crypt==2 then confGetWifipmk -> key in
+    (
+      dump key;
+      set wifitry=time;
+      netAuth hd wifiscans Iecholn auth (Iecholn wificrypttype crypt key) key;  //## ajouter les paramètres de crypto
+      1
+    );;
+
+var master=0;;
+
+fun wifiRun=
+  let netState -> state in
+  (
+    if state!=laststate then (Secho "wifi state=";Iecholn state);
+    let match wifi with
+    (stationW -> nil)
+    |(initW -> if state==RT2501_S_IDLE then
+        (
+          set mymac=MACecho netMac 0 1;
+          setleds 0xff8000;
+          if wifiscans==nil then
+          (
+            let confGetWifissid -> ssid in
+            let if strlen ssid then ssid else nil -> ssid in
+            let netScan ssid -> lscan in
+            let sort lscan #scancmpssid -> l in
+            let if ssid==nil then l else select l ssid #wifibyssid-> l in
+            dumpscan set wifiscans=l
+          );
+          if wifiAuth then
+          (
+            Secho confGetWifissid; Secholn ":-------------gostation";
+            gostationW [0 time]
+          )
+        )
+      )
+    |(gomasterW -> if state==RT2501_S_MASTER then
+        (
+          setleds 0x0000ff;
+          Secholn "-------------master";
+          startdhcpserver;
+//          startconfigserver 80;
+          masterW)
+      )
+    |(masterW -> if !master then
+          (
+            wifiInit 1;
+            resetudp;
+            netSetmode IEEE80211_M_MANAGED nil 11;
+            nil)
+      )
+    |(gostationW x-> if state==RT2501_S_CONNECTED then
+        (
+          Secholn "-------------dhcp";
+          if confGetDhcp then startdhcp;
+          startdnsclient;
+          dhcpW time
+        )
+      )
+    |(dhcpW t-> if netip!=netip_empty then
+        (
+          Secholn "-------------station";
+          stationW
+        )
+        else if (time-t)>3 then  // retry dhcp client
+        (
+          startdhcp;
+          dhcpW time
+        )
+      )
+    |(reconnectW ->
+      netSetmode IEEE80211_M_MANAGED nil 11;
+      if wifiAuth then
+      (
+        Secho confGetWifissid; Secholn ":-------------gostation";
+        gostationW [0 time]
+      )
+     )
+    -> nwifi in
+    if nwifi!=nil then set wifi=nwifi;
+    set laststate=state
+  );
+  if retrytime!=time then
+  (
+    set retrytime=time;
+    nettime;
+    dnstime;
+    0
+  )
+  ;;
+
+fun wifiReady= match wifi with (stationW -> 1)|(_ -> 0);;
+
+fun wifiConnected= match wifi with (stationW -> 1)|(_ -> 0);;
+
+fun wifiCheck=
+  if (netState == RT2501_S_IDLE) then
+  match wifi with
+  (initW -> nil)
+  |(_ ->
+    Secholn "######### wifi lost";
+    set wifi=reconnectW;
+    0
+  )
+;;
+
+