neo_rad 0.4.0

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

data/website/examples/assembler_test.rb.html

@@ -0,0 +1,73 @@
+<html>
+  <head>
+    <title>assembler_test.rb.html</title
+    <style type="text/css">
+
+	.ruby .normal {}
+	.ruby .comment { color: #888; font-style: italic; }
+	.ruby .keyword { color: #A00; font-weight: bold; }
+	.ruby .method { color: #077; }
+	.ruby .class { color: #074; }
+	.ruby .module { color: #050; }
+	.ruby .punct { color: #447; font-weight: bold; }
+	.ruby .symbol { color: #099; }
+	.ruby .string { color: #944; }
+	.ruby .char { color: #F07; }
+	.ruby .ident { color: #004; }
+	.ruby .constant { color: #07F; }
+	.ruby .regex { color: #B66; }
+	.ruby .number { color: #D55; }
+	.ruby .attribute { color: #377; }
+	.ruby .global { color: #3B7; }
+	.ruby .expr { color: #227; }
+    </style>
+  </head>
+  <body>
+    <pre class="ruby">
+<pre><span class="comment"># Hardware: Connect to serial output with screen:</span>
+<span class="comment">#           $ screen /dev/tty/path.to.your.usb 9600</span>
+
+<span class="keyword">class </span><span class="class">AssemblerTest</span> <span class="punct">&lt;</span> <span class="constant">ArduinoSketch</span>
+  <span class="ident">vars</span> <span class="symbol">:a</span> <span class="punct">=&gt;</span> <span class="number">10</span><span class="punct">,</span> <span class="symbol">:b</span> <span class="punct">=&gt;</span> <span class="number">4</span>
+  <span class="ident">serial_begin</span>
+  
+  <span class="keyword">def </span><span class="method">loop</span>
+    <span class="ident">serial_println</span> <span class="ident">product</span><span class="punct">(</span><span class="ident">a</span><span class="punct">,</span><span class="ident">b</span><span class="punct">)</span>
+  <span class="keyword">end</span>
+  
+  <span class="ident">assembler</span><span class="punct">(</span> <span class="symbol">:product</span><span class="punct">,</span> <span class="punct">&quot;</span><span class="string">int product(int a, int b);</span><span class="punct">&quot;,</span>
+    <span class="punct">&lt;&lt;-</span><span class="constant">CODE</span><span class="string">
+    product:
+      	mov  r18,r24	; move a to another register
+      	ldi  r24,0		; clear running sum, used to coalesce product
+      	ldi  r25,0		; sum = 0
+      
+      .loop:
+      	tst  r18		  ; is a = 0? if so, we're done
+      	breq .end
+      
+      	mov  r19,r18	; copy a
+      	andi r19,1		; is a % 2 == 0
+      	breq .skip		
+      
+      	add  r24,r22	; add b to sum
+      	adc  r25,r23
+      
+      .skip:
+      	lsr  r18		  ; divide a by 2
+      
+      	clc			
+      	rol  r22		  ; multiply b by 2
+      	rol  r23
+      	rjmp .loop
+      
+      .end:
+      	ret
+      	.size product, .-product
+</span><span class="constant">    CODE</span>
+  <span class="punct">)</span>
+<span class="keyword">end</span>
+</pre>
+    </pre>
+  </body>
+</html>

data/website/examples/gps_reader.rb.html

@@ -0,0 +1,39 @@
+<html>
+  <head>
+    <title>gps_reader.rb.html</title
+    <style type="text/css">
+
+	.ruby .normal {}
+	.ruby .comment { color: #888; font-style: italic; }
+	.ruby .keyword { color: #A00; font-weight: bold; }
+	.ruby .method { color: #077; }
+	.ruby .class { color: #074; }
+	.ruby .module { color: #050; }
+	.ruby .punct { color: #447; font-weight: bold; }
+	.ruby .symbol { color: #099; }
+	.ruby .string { color: #944; }
+	.ruby .char { color: #F07; }
+	.ruby .ident { color: #004; }
+	.ruby .constant { color: #07F; }
+	.ruby .regex { color: #B66; }
+	.ruby .number { color: #D55; }
+	.ruby .attribute { color: #377; }
+	.ruby .global { color: #3B7; }
+	.ruby .expr { color: #227; }
+    </style>
+  </head>
+  <body>
+    <pre class="ruby">
+<pre><span class="keyword">class </span><span class="class">GpsReader</span> <span class="punct">&lt;</span> <span class="constant">ArduinoSketch</span>
+  <span class="ident">output_pin</span> <span class="number">13</span><span class="punct">,</span> <span class="symbol">:as</span> <span class="punct">=&gt;</span> <span class="symbol">:led</span>
+  <span class="ident">software_serial</span> <span class="number">6</span><span class="punct">,</span> <span class="number">7</span><span class="punct">,</span> <span class="symbol">:as</span> <span class="punct">=&gt;</span> <span class="symbol">:gps</span>
+  <span class="ident">serial_begin</span>
+
+  <span class="keyword">def </span><span class="method">loop</span>
+    <span class="ident">digitalWrite</span><span class="punct">(</span><span class="ident">led</span><span class="punct">,</span> <span class="constant">true</span><span class="punct">)</span>
+    <span class="ident">serial_print</span><span class="punct">(</span><span class="ident">gps</span><span class="punct">.</span><span class="ident">read</span><span class="punct">)</span>
+  <span class="keyword">end</span>
+<span class="keyword">end</span></pre>
+    </pre>
+  </body>
+</html>