nabaztag_hack_kit 0.0.2

data/test/bytecode/test.mtl

@@ -0,0 +1,221 @@
+proto main 0;;
+
+#include "../../ext/bytecode/lib/util"
+#include "../../bytecode/lib/data_helper"
+#include "../../bytecode/lib/buffer"
+
+#include "./helper"
+
+//-------------------- MAIN
+fun main=
+
+  let test "strcmp" -> t in
+  (
+    assert_equalI  0 strcmp "" "";
+    assert_equalI  0 strcmp "T" "T";
+    assert_equalI -1 strcmp "T" "To";
+    assert_equalI -1 strcmp "T" "t";
+    assert_equalI  1 strcmp "t" "T";
+    assert_equalI  1 strcmp "To" "Tb";
+  0);
+
+  let test "itoa" -> t in
+  (
+    assert_equalS "0"     itoa 0;
+    assert_equalS "51"    itoa 51;
+    assert_equalS "255"   itoa 255;
+    assert_equalS "25500" itoa 25500;
+  0);
+
+  let test "itoh" -> t in
+  (
+    assert_equalS "0"     itoh 0;
+    assert_equalS "33"    itoh 51; // 51 -> hex == 33
+    assert_equalS "ff"    itoh 255; // 255 -> hex == ff
+    assert_equalS "3e517" itoh 255255; // 255255 -> hex == 3e517
+  0);
+
+  let test "ctoa" -> t in
+  (
+    assert_equalS "\0"     ctoa 0;
+    assert_equalS "\51"    ctoa 51;
+    assert_equalS "\255"   ctoa 255;
+  0);
+
+  let test "webmac" -> t in
+  (
+    assert_equalS "0100"  webmac "\1\0";
+    assert_equalS "0a00"  webmac "\10\0";
+    assert_equalS "00ff"  webmac "\0\255";
+    assert_equalS "ff00"  webmac "\255\0";
+  0);
+
+  let test "StoI3" -> t in
+  (
+    assert_equalI 0        StoI3 "\0\0\0dummy" ;
+    assert_equalI 0        StoI3 "\0\0\0" ;
+    assert_equalI 255      StoI3 "\0\0\255";
+    assert_equalI 65280    StoI3 "\0\255\0";
+    assert_equalI 6579300  StoI3 "\100\100\100";
+    assert_equalI 16711680 StoI3 "\255\0\0";
+    assert_equalI 16777215 StoI3 "\255\255\255";
+  0);
+
+  let test "StoI2" -> t in
+  (
+    assert_equalI 0        StoI2 "\0\0\0" ;
+    assert_equalI 0        StoI2 "\0\0\255";
+    assert_equalI 255      StoI2 "\0\255\0";
+  0);
+
+  let test "StoI" -> t in
+  (
+    assert_equalI 0        StoI "\0\0\0" ;
+    assert_equalI 255      StoI "\0\0\255";
+    assert_equalI 65280    StoI "\0\255\0";
+  0);
+
+  let test "str_find_end" -> t in
+  (
+    assert_equalI nil      str_find_end "" ;
+    assert_equalI 0        str_find_end "\255\0\0" ;
+    assert_equalI 2        str_find_end "AB\255";
+    assert_equalI 10       str_find_end "0123456789\255";
+  0);
+
+  let test "find RIFID id" -> t in
+  (
+    assert_equalI 0   strstr "\208\2\26\1\1\1\1\1" "\208\2\26" 0;
+    assert_equalI 1   strstr "\1\208\2\26\1\1\1\1" "\208\2\26" 0;
+    assert_equalI nil strstr "\1\208\1\26\1\1\1\1" "\208\2\26" 0;
+  0);
+
+  let test "COtoI" -> t in
+  (
+    assert_equalI 0    COtoI 0 0 0;
+    assert_equalI 51   COtoI 1 2 3;
+    assert_equalI 121  COtoI 3 2 1;
+    assert_equalI 215  COtoI 5 5 5;
+  0);
+
+  let test "ItoCO" -> t in
+  (
+    assert_equalI 0x000000  ItoCO nil;
+    assert_equalI 0x000000  ItoCO 0;
+    assert_equalI 0x5a82aa  ItoCO 51;
+    assert_equalI 0xaa825a  ItoCO 121;
+    assert_equalI 0xFFFFFF  ItoCO 215;
+    assert_equalI 0xFFFFFF  ItoCO 255;
+  0);
+
+  let test "CtoI3" -> t in
+  (
+    assert_equalI 0         CtoI3 "\0\0\0" 0;
+    assert_equalI 255       CtoI3 "\0\0\255" 0;
+    assert_equalI 65535     CtoI3 "\0\255\255" 0;
+    assert_equalI 16776959  CtoI3 "\0\255\255" 1;
+  0);
+
+  let test "parseResponse" -> t in
+  (
+    assert_nil parseResponse "\127";
+    assert_nil parseResponse "\122";
+    assert_equalTL [11 "1"]::[10 "123"]::nil parseResponse "\127\10\0\0\3\49\50\51\11\0\0\1\49";
+    assert_equalTL [11 "1"]::[10 "123"]::nil parseResponse "\127\10\0\0\3\49\50\51\11\0\0\2\49";
+    assert_equalTL [51 "\2\49"]::[10 "12"]::nil parseResponse "\127\10\0\0\2\49\50\51\11\0\0\2\49";
+    //TODO check last ending byte
+  0);
+
+  buffersInit 1;
+  let test "bufferFill" -> t in
+  (
+    bufferFill 0 "\0\255";
+
+    let buffers.0 -> buffer in
+    (
+      assert_equalS "\0\255" buffer.valB;
+      assert_equalI 2 buffer.lenB;
+      assert_equalI 1 buffer.stepB;
+      assert_equalI 0 buffer.posB;
+      assert_equalI 0 buffer.loopB;
+    0);
+  0);
+
+  let test "bufferRead" -> t in
+  (
+    assert_equalI 0        bufferRead 0;
+    assert_equalI 0xFF     bufferRead 0;
+    assert_nil             bufferRead 0;
+  0);
+
+  let test "bufferFill3" -> t in
+  (
+    bufferFill3 0 "\0\0\0\255\255\255";
+
+    let buffers.0 -> buffer in
+    (
+      assert_equalS "\0\0\0\255\255\255" buffer.valB;
+      assert_equalI 6 buffer.lenB;
+      assert_equalI 3 buffer.stepB;
+      assert_equalI 0 buffer.posB;
+      assert_equalI 0 buffer.loopB;
+    0);
+  0);
+
+  let test "bufferRead3" -> t in
+  (
+    assert_equalI 0        bufferRead 0;
+    assert_equalI 0xFFFFFF bufferRead 0;
+    assert_nil             bufferRead 0;
+  0);
+
+  //-------- Loop
+  let test "loopBufferFill" -> t in
+  (
+    loopBufferFill 0 "\0\255\32";
+
+    let buffers.0 -> buffer in
+    (
+      assert_equalI 0 buffer.posB;
+      assert_equalI 1 buffer.loopB;
+    0);
+  0);
+
+  let test "loopBufferRead" -> t in
+  (
+    assert_equalI 0        bufferRead 0;
+    assert_equalI 0xFF     bufferRead 0;
+    assert_equalI 0x20     bufferRead 0;
+    assert_equalI 0        bufferRead 0;
+    assert_equalI 0xFF     bufferRead 0;
+  0);
+
+  let test "bufferFill3" -> t in
+  (
+    loopBufferFill3 0 "\0\0\0\255\255\255";
+
+    let buffers.0 -> buffer in
+    (
+      assert_equalI 0 buffer.posB;
+      assert_equalI 1 buffer.loopB;
+    0);
+  0);
+
+  let test "bufferRead3" -> t in
+  (
+    assert_equalI 0        bufferRead 0;
+    assert_equalI 0xFFFFFF bufferRead 0;
+    assert_equalI 0        bufferRead 0;
+    assert_equalI 0xFFFFFF bufferRead 0;
+  0);
+
+  let test "log" -> t in
+  (
+    log "test" {1};
+    assert_equalS "test,0,1,|" logs;
+    log "test" {56 67 90};
+    assert_equalS "test,0,1,|test,0,56,67,90,|" logs;
+  0);
+
+  exit;
+0;;

data/test/spec_helper.rb

@@ -0,0 +1,5 @@
+require 'rspec'
+
+$: << File.expand_path("../../lib", __FILE__)
+
+require "nabaztag_hack_kit"

data/test/unit/message_spec.rb

@@ -0,0 +1,56 @@
+require File.expand_path("../../spec_helper", __FILE__)
+
+require "nabaztag_hack_kit/message"
+
+describe NabaztagHackKit::Message do
+  CMD  = 30
+  CMD1 = 31
+  let(:data) { [1,2,3,4,5] }
+  let(:size) { NabaztagHackKit::Message.to_3b(data.size) }
+
+  before do
+    NabaztagHackKit::Message.stub!(:full_message).and_return do |data|
+      data
+    end
+
+    NabaztagHackKit::Message.stub!(:pack).and_return do |data|
+      data
+    end
+  end
+
+  describe ".build" do
+    it "accepts single input" do
+      NabaztagHackKit::Message.build(CMD).should == [[CMD, 0, 0, 0]]
+    end
+
+    it "accepts flat input" do
+      NabaztagHackKit::Message.build(CMD, *data).should == [[CMD, *size, *data]]
+    end
+
+    it "accepts array input" do
+      NabaztagHackKit::Message.build([CMD, *data]).should == [[CMD, *size, *data]]
+    end
+
+    it "accepts multiple array input" do
+      NabaztagHackKit::Message.build([CMD, *data], [CMD1, *data]).should == [[CMD, *size, *data], [CMD1, *size, *data]]
+    end
+
+    it "accepts hash input" do
+      NabaztagHackKit::Message.build(CMD => data, CMD1 => data).should == [[CMD, *size, *data], [CMD1, *size, *data]]
+    end
+  end
+
+  describe ".to_3b" do
+    it "accepts zero" do
+      NabaztagHackKit::Message.to_3b(0).should == [0, 0, 0]
+    end
+
+    it "accepts 2 byte input" do
+      NabaztagHackKit::Message.to_3b(511).should == [0, 1, 255]
+    end
+
+    it "accepts 3 byte input" do
+      NabaztagHackKit::Message.to_3b(6334239).should == [96, 167, 31]
+    end
+  end
+end

metadata

@@ -0,0 +1,209 @@
+--- !ruby/object:Gem::Specification
+name: nabaztag_hack_kit
+version: !ruby/object:Gem::Version
+  version: 0.0.2
+  prerelease: 
+platform: ruby
+authors:
+- RngTng - Tobias Bielohlawek
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-01-30 00:00:00.000000000Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: sinatra
+  requirement: &70107235050200 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *70107235050200
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: &70107235049680 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70107235049680
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: &70107235049220 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70107235049220
+description: Sinatra server api framework to run custom bytecode on Nabaztag v1/v2.
+  Sources + Compiler included (linux only)
+email:
+- tobi@soundcloud.com
+executables:
+- mtl_comp
+- mtl_simu
+- mtl_merge
+extensions:
+- ext/mtl/extconf.rb
+extra_rdoc_files: []
+files:
+- .gitignore
+- .travis.yml
+- CHANGELOG.md
+- Gemfile
+- README.md
+- Rakefile
+- bin/mtl_comp
+- bin/mtl_merge
+- bin/mtl_simu
+- bytecode/lib/buffer.mtl
+- bytecode/lib/button.mtl
+- bytecode/lib/data_helper.mtl
+- bytecode/lib/ear.mtl
+- bytecode/lib/led.mtl
+- bytecode/lib/rfid.mtl
+- bytecode/main.mtl
+- config.ru
+- ext/bytecode/Commands.md
+- ext/bytecode/Docs.md
+- ext/bytecode/README.md
+- ext/bytecode/lib/arp.mtl
+- ext/bytecode/lib/cfg.mtl
+- ext/bytecode/lib/choreos.mtl
+- ext/bytecode/lib/dhcp.mtl
+- ext/bytecode/lib/dns.mtl
+- ext/bytecode/lib/http.mtl
+- ext/bytecode/lib/tcp.mtl
+- ext/bytecode/lib/udp.mtl
+- ext/bytecode/lib/util.mtl
+- ext/bytecode/lib/var.mtl
+- ext/bytecode/lib/wifi.mtl
+- ext/bytecode/nominal-ping.mtl
+- ext/mtl/Makefile
+- ext/mtl/README.md
+- ext/mtl/bc.cpp
+- ext/mtl/conf.bin.sans_password
+- ext/mtl/config.txt
+- ext/mtl/dumpbc.c
+- ext/mtl/extconf.rb
+- ext/mtl/linux_simu.c
+- ext/mtl/linux_simuaudio.c
+- ext/mtl/linux_simuaudio.h
+- ext/mtl/linux_simunet.c
+- ext/mtl/linux_simunet.h
+- ext/mtl/log.c
+- ext/mtl/log.h
+- ext/mtl/main_compiler.cpp
+- ext/mtl/main_simu.cpp
+- ext/mtl/mp3/GTKANAL.H
+- ext/mtl/mp3/LAYER3.C
+- ext/mtl/mp3/TABINIT.C
+- ext/mtl/mp3/common.c
+- ext/mtl/mp3/dct64_i386.c
+- ext/mtl/mp3/decode_i386.c
+- ext/mtl/mp3/huffman.h
+- ext/mtl/mp3/interface.c
+- ext/mtl/mp3/mpg123.h
+- ext/mtl/mp3/mpglib.h
+- ext/mtl/properties.c
+- ext/mtl/properties.h
+- ext/mtl/simu.c
+- ext/mtl/simuaudio.c
+- ext/mtl/simuaudio.h
+- ext/mtl/simunet.c
+- ext/mtl/simunet.h
+- ext/mtl/utils/correct_const.sh
+- ext/mtl/vaudio.c
+- ext/mtl/vaudio.h
+- ext/mtl/vbc.h
+- ext/mtl/vbc_str.h
+- ext/mtl/vcomp/Makefile
+- ext/mtl/vcomp/bootstrap.cpp
+- ext/mtl/vcomp/compiler.cpp
+- ext/mtl/vcomp/compiler.h
+- ext/mtl/vcomp/compiler_file.cpp
+- ext/mtl/vcomp/compiler_prog.cpp
+- ext/mtl/vcomp/compiler_term.cpp
+- ext/mtl/vcomp/compiler_type.cpp
+- ext/mtl/vcomp/compiler_var.cpp
+- ext/mtl/vcomp/file.cpp
+- ext/mtl/vcomp/file.h
+- ext/mtl/vcomp/filesystem.h
+- ext/mtl/vcomp/interpreter.cpp
+- ext/mtl/vcomp/interpreter.h
+- ext/mtl/vcomp/memory.cpp
+- ext/mtl/vcomp/memory.h
+- ext/mtl/vcomp/param.h
+- ext/mtl/vcomp/parser.cpp
+- ext/mtl/vcomp/parser.h
+- ext/mtl/vcomp/parser_xml.cpp
+- ext/mtl/vcomp/prodbuffer.cpp
+- ext/mtl/vcomp/prodbuffer.h
+- ext/mtl/vcomp/resource.h
+- ext/mtl/vcomp/stdlib_core.cpp
+- ext/mtl/vcomp/terminal.cpp
+- ext/mtl/vcomp/terminal.h
+- ext/mtl/vcomp/util.cpp
+- ext/mtl/vcomp/util.h
+- ext/mtl/vinterp.c
+- ext/mtl/vinterp.h
+- ext/mtl/vloader.c
+- ext/mtl/vloader.h
+- ext/mtl/vlog.c
+- ext/mtl/vlog.h
+- ext/mtl/vmem.c
+- ext/mtl/vmem.h
+- ext/mtl/vnet.c
+- ext/mtl/vnet.h
+- lib/nabaztag_hack_kit.rb
+- lib/nabaztag_hack_kit/message.rb
+- lib/nabaztag_hack_kit/message/api.rb
+- lib/nabaztag_hack_kit/message/helper.rb
+- lib/nabaztag_hack_kit/server.rb
+- lib/nabaztag_hack_kit/version.rb
+- nabaztag_hack_kit.gemspec
+- public/bytecode.bin
+- test/bytecode/helper.mtl
+- test/bytecode/native.mtl
+- test/bytecode/test.mtl
+- test/spec_helper.rb
+- test/unit/message_spec.rb
+homepage: https://github.com/rngtng/nabaztag_hack_kit
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.15
+signing_key: 
+specification_version: 3
+summary: Sinatra server to run custom Nabaztag bytecode
+test_files:
+- test/bytecode/helper.mtl
+- test/bytecode/native.mtl
+- test/bytecode/test.mtl
+- test/spec_helper.rb
+- test/unit/message_spec.rb