rad 0.2.2 → 0.2.9

data/test/test_plugin_loading.rb

@@ -0,0 +1,151 @@
+#!/usr/local/bin/ruby -w
+
+$TESTING = true
+
+# this is a test stub for now
+# lets review these
+# neee to remove this constant from tests and pull it from rad
+PLUGIN_C_VAR_TYPES = "int|void|unsigned|long|short|uint8_t|static|char\\*|byte"
+
+require "rubygems"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/rad_processor.rb"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/rad_rewriter.rb"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/rad_type_checker.rb"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/variable_processing"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/arduino_sketch"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/arduino_plugin"
+require 'test/unit'
+
+
+
+
+class TestPluginLoading < Test::Unit::TestCase
+
+  
+
+
+  def setup
+    $external_var_identifiers = ["__foo", "__toggle", "wiggle"]   
+    $define_types = { "KOOL" => "long", "ZAK" => "str"}
+    $array_types = { "my_array" => "int"}  
+    $plugin_directives = []
+    $plugin_external_variables = []
+    $plugin_signatures =[]
+    $plugin_methods = []
+    $add_to_setup = []
+    $load_libraries = []
+    $plugin_structs = {}
+    $plugin_methods_hash = {}  
+    $plugins_to_load = []  
+    plugin_signatures = []
+    plugin_methods = []
+     
+    @plugin_string =<<-STR
+    class PluginTesting < ArduinoPlugin
+
+
+
+     #
+     #
+     #  BlinkM_funcs.h -- Arduino library to control BlinkM
+     #  --------------
+     #
+     #
+     #  Note: original version of this file lives with the BlinkMTester sketch
+     #
+     #  2007, Tod E. Kurt, ThingM, http://thingm.com/
+     #
+     #  version: 20080203
+     #
+     #  history:
+     #   20080101 - initial release
+     #   20080203 - added setStartupParam(), bugfix receiveBytes() from Dan Julio
+     #	20080727 - ported to rad jd barnhart
+     #
+     #   first step, declare output pin 19 as i2c
+     ##  output_pin 19, :as => :wire, :device => :i2c, :enable => :true # reminder, true issues wire.begin
+
+
+     include_wire
+
+     add_blink_m_struct
+
+
+
+     # Not needed when pin is declared with :enable => :true 
+
+     static int BlinkM_sendBack(byte addr)
+     {
+       int num = 0x11;
+       char buf[5];
+       itoa(num, buf, 16);
+       return "cool"
+     }
+ 
+     static char* another_method(byte addr)
+     {
+       int num = 0x11;
+       char buf[5];
+       itoa(num, buf, 16);
+       return "cool"
+     }
+
+    end
+    STR
+
+    @sketch_string =<<-STR
+    class SanMiquel < ArduinoSketch
+
+     # looking for hints?  check out the examples directory
+     # example sketches can be uploaded to your arduino with
+     # rake make:upload sketch=examples/hello_world
+     # just replace hello_world with other examples
+
+       def loop
+         delay 100
+         my_lcd.home "k"
+         my_lcd.setxy 0,1
+
+         BlinkM_sendBack 10
+         delay 1000
+         test_address
+       end
+
+
+    end
+
+    STR
+    
+  end
+  
+  # remove these external variables and parens on variables
+  # need to actually run code through ruby_to_c for some of these tests
+  
+  def test_int
+    name = "foo_a"
+    # check_for_plugin_use(sketch_string, plugin_string, file_name)
+    ArduinoPlugin.check_for_plugin_use(@sketch_string, @plugin_string, "hello_plugins")
+    value_string = "int(__toggle = 0);"
+    expected =  ["hello_plugins"]
+    result = $plugins_to_load
+    assert_equal(expected, result)
+  end
+  
+  def test_two
+    name = "foo_a"
+    # check_for_plugin_use(sketch_string, plugin_string, file_name)
+    ArduinoPlugin.check_for_plugin_use(@sketch_string, @plugin_string, "hello_plugins")
+    value_string = "int(__toggle = 0);"
+    expected = {"hello_plugins"=>["BlinkM_sendBack", "another_method"]}
+    result = $plugin_methods_hash
+    assert_equal(expected, result)
+  end
+  
+  
+  
+  ## need to look at unsigned long 
+  ## need parens removal tests
+  
+
+
+end

data/test/test_translation_post_processing.rb

@@ -0,0 +1,185 @@
+#!/usr/local/bin/ruby -w
+
+$TESTING = true
+
+# this is a test stub for now
+# lets review these
+# neee to remove this constant from tests and pull it from rad
+C_VAR_TYPES = "unsigned|int|long|double|str|char|byte|float|bool"
+require "rubygems"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/rad_processor.rb"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/rad_rewriter.rb"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/rad_type_checker.rb"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/variable_processing"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/arduino_sketch"
+require 'test/unit'
+
+
+class TranslationTesting < ArduinoSketch
+
+  def one
+    delay 1
+  end
+  
+  def two
+    delay 1
+    @foo = 1
+  end
+  
+  def three
+    @foo = 1
+    bar = 2
+    baz = wha
+  end
+  
+  def four
+    @foo = 1
+    bar = 2
+    wiggle = wha
+  end
+  
+  def five
+    @foo = 1
+    f = KOOL
+  end
+  
+  def six
+    a = ZAK
+    
+  end
+  
+  def seven(int)
+    # coerce int to long int
+    a = int * 2
+  end
+  
+  def eight(str)
+    # coerce str to string
+    a = ZAK + str
+  end
+  
+  def nine
+    @my_array.each do |a|
+      delay a
+    end
+  end
+  
+
+end
+
+
+
+class TestTranslationPostProcessing < Test::Unit::TestCase
+
+  
+
+
+  def setup
+    $external_var_identifiers = ["__foo", "__toggle", "wiggle"]   
+    $define_types = { "KOOL" => "long", "ZAK" => "str"}
+    $array_types = { "my_array" => "int"}
+    
+    
+  end
+  
+  # remove these external variables and parens on variables
+  # need to actually run code through ruby_to_c for some of these tests
+  
+  def test_int
+    name = "foo_a"
+    value_string = "int(__toggle = 0);"
+    expected = ""
+    result = ArduinoSketch.post_process_ruby_to_c_methods(value_string)
+    assert_equal(expected, result)
+  end
+  
+  def test_bool
+    name = "foo_b"
+    value_string = "bool(__toggle = 0);"
+    expected = ""
+    result = ArduinoSketch.post_process_ruby_to_c_methods(value_string)
+    assert_equal(expected, result)
+  end
+  
+  def test_long
+    name = "foo_c"
+    value_string = "long(__foo = 0);"
+    expected = ""
+    result = ArduinoSketch.post_process_ruby_to_c_methods(value_string)
+    assert_equal(expected, result)
+  end
+  
+  def test_trans_one
+    name = "foo_d"
+    expected = "void\none() {\ndelay(1);\n}"    
+    result = raw_rtc_meth = RADProcessor.translate(TranslationTesting, "one")
+    assert_equal(expected, result)
+  end
+  
+  # notice the nice behavior of @foo
+  def test_trans_two
+    name = "foo_e"
+    expected = "void\ntwo() {\ndelay(1);\n__foo = 1;\n}"    
+    result = raw_rtc_meth = RADProcessor.translate(TranslationTesting, "two")
+    assert_equal(expected, result)
+  end
+  
+  # notice the nice behavior of @foo
+  def test_trans_three
+    name = "foo_f"
+    expected = "void\nthree() {\nlong bar;\nvoid * baz;\n__foo = 1;\nbar = 2;\nbaz = wha();\n}"    
+    result = raw_rtc_meth = RADProcessor.translate(TranslationTesting, "three")
+    assert_equal(expected, result)
+  end
+  
+  # need to take a closer look at this ... include "void * wiggle" regex?
+  # 
+  def test_trans_four
+    name = "foo_f"
+    expected = "void\nfour() {\nlong bar;\nvoid * wiggle;\n__foo = 1;\nbar = 2;\nwiggle = wha();\n}"    
+    result = raw_rtc_meth = RADProcessor.translate(TranslationTesting, "four")
+    assert_equal(expected, result)
+  end
+  
+  def test_trans_five
+    name = "foo_f"
+    expected = "void\nfive() {\nlong f;\n__foo = 1;\nf = KOOL;\n}"
+    result = raw_rtc_meth = RADProcessor.translate(TranslationTesting, "five")
+    assert_equal(expected, result)
+  end
+  
+  def test_trans_six
+    name = "foo_f"
+    expected = "void\nsix() {\nstr a;\na = ZAK;\n}"
+    result = raw_rtc_meth = RADProcessor.translate(TranslationTesting, "six")
+    assert_equal(expected, result)
+  end
+  
+  def test_trans_seven
+    name = "foo_f"
+    expected = "void\nseven(long int) {\nlong a;\na = int * 2;\n}"
+    result = raw_rtc_meth = RADProcessor.translate(TranslationTesting, "seven")
+    assert_equal(expected, result)
+  end
+  
+  def test_trans_eight
+    name = "foo_f"
+    expected = "void\neight(long str) {\nvoid * a;\na = ZAK + str;\n}"
+    result = raw_rtc_meth = RADProcessor.translate(TranslationTesting, "eight")
+    assert_equal(expected, result)
+  end
+  
+  def test_trans_nine
+    name = "foo_f"
+    expected = "void\nnine() {\nunsigned int index_a;\nfor (index_a = 0; index_a < (int) (sizeof(__my_array) / sizeof(__my_array[0])); index_a++) {\nint a = __my_array[index_a];\ndelay(a);\n}\n}"
+    result = raw_rtc_meth = RADProcessor.translate(TranslationTesting, "nine")
+    assert_equal(expected, result)
+  end
+  
+  
+  ## need to look at unsigned long 
+  ## need parens removal tests
+  
+
+
+end

data/test/test_variable_processing.rb

@@ -0,0 +1,238 @@
+#!/usr/local/bin/ruby -w
+
+$TESTING = true
+
+# need to tell it where we are
+# lets review these
+# neee to remove this constant from tests and pull it from rad
+C_VAR_TYPES = "unsigned|int|long|double|str|char|byte|float|bool"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/variable_processing"
+require "#{File.expand_path(File.dirname(__FILE__))}/../lib/rad/arduino_sketch"
+require 'test/unit'
+
+
+
+class TestVariableProcessing < Test::Unit::TestCase
+
+  def setup
+    @t = ArduinoSketch.new
+  end
+  
+  # question for brian... do we need variable assignment with no value when
+  # we have "" and 0
+  
+
+
+  def test_int_as_int
+    name = "foo_a"
+    value_string = 1
+    expected = "int __foo_a = 1;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_string_as_int
+    name = "foo_b"
+    value_string = "1"
+    expected = "int __foo_b = 1;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_float_as_float
+    name = "foo_c"
+    value_string = 0.10
+    expected = "float __foo_c = 0.1;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_string_as_float
+    name = "foo_d"
+    value_string = "0.10"
+    expected = "float __foo_d = 0.1;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_byte # would this to return hex
+    name = "foo_f"
+    value_string = 0x00
+    expected = "int __foo_f = 0;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_byte_with_string_input
+    name = "foo_g"
+    value_string = "0x00"
+    expected = "byte __foo_g = 0x00;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_string
+    name = "foo_h"
+    value_string = "arduino"
+    expected = "char* __foo_h = \"arduino\";"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_int_with_type
+    name = "foo_i"
+    value_string = "int"
+    expected = "int __foo_i;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_odd_name
+    name = "bacon_j"
+    value_string = "arduino"
+    expected = "char* __bacon_j = \"arduino\";"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_int_with_type_two
+    name = "foo_k"
+    value_string = "2, int"
+    expected = "int __foo_k = 2;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_int_with_long
+    name = "foo_l"
+    value_string = "2, int"
+    expected = "int __foo_l = 2;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_int_with_byte
+    name = "foo_m"
+    value_string = "2, byte"
+    expected = "byte __foo_m = 2;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_int_with_unsigned_int
+    name = "foo_n"
+    value_string = "2, unsigned int"
+    expected = "unsigned int __foo_n = 2;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_int_with_unsigned_long
+    name = "foo_o"
+    value_string = "2, unsigned long"
+    expected = "unsigned long __foo_o = 2;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_int_with_short_int
+    name = "foo_q"
+    value_string = "2, short int"
+    expected = "short int __foo_q = 2;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_int_with_unsigned_short_int
+    name = "foo_r"
+    value_string = "2, unsigned short int"
+    expected = "unsigned short int __foo_r = 2;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_float_with_type
+    name = "foo_s"
+    value_string = "2.0, float"
+    expected = "float __foo_s = 2.0;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_true
+    name = "foo_t"
+    value_string = true
+    expected = "bool __foo_t = 1;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_false
+    name = "foo_v"
+    value_string = false
+    expected = "bool __foo_v = 0;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_negative_int_string
+    name = "foo_w"
+    value_string = "-1, int"
+    expected = "int __foo_w = -1;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_negative_float_string
+    name = "foo_x"
+    value_string = "-0.1, float"
+    expected = "float __foo_x = -0.1;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_negative_larger_float_string
+    name = "foo_y"
+    value_string = "-1000.01, float"
+    expected = "float __foo_y = -1000.01;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_negative_long_string
+    name = "foo_z"
+    value_string = "-.0991, float"
+    expected = "float __foo_z = -0.0991;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_negative_float_string_two
+    name = "foo_aa"
+    value_string = "-.01, float"
+    expected = "float __foo_aa = -0.01;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_negative_interter_string
+    name = "foo_bb"
+    value_string = "-.01, float"
+    expected = "float __foo_bb = -0.01;"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  def test_dash_string
+    name = "foo_cc"
+    value_string = "-hmmm"
+    expected = "char* __foo_cc = \"-hmmm\";"
+    result = @t.pre_process_vars(name, value_string)
+    assert_equal(expected, result[0])
+  end
+  
+  
+  
+
+  
+end