madrona-rad 0.2.2

data/bin/rad

@@ -0,0 +1,197 @@
+#!/usr/bin/env ruby
+
+begin
+  require 'rubygems'
+rescue LoadError
+  # no rubygems to load, so we fail silently
+end
+
+require 'optparse'
+require 'fileutils'
+require 'yaml'
+
+
+
+class OptionParser #:nodoc:
+    
+  def self.parse(args)
+    # defaults
+    
+    options = {"hardware" => {
+                "serial_port"      => '/dev/tty.usbserial*', 
+                "mcu"              => "atmega168", 
+                "physical_reset"   => false
+                },
+                "software" => {
+                  "arduino_root"   => "/Applications/arduino-0011"
+                 }
+               }
+    
+    opts = OptionParser.new do |opts|
+      
+      opts.banner = <<-BANNER
+Build a directory for your RAD Project and install RAD in its vendor sub-directory.
+
+Usage: #{File.basename($0)} <sketch_dir_name> <options for config>
+      BANNER
+      
+      opts.on("-p", "--port [SERIAL PORT]", 
+              "Path to your serial port", 
+              "   (default: #{options['hardware']['serial_port']})") do |port|
+              
+        options["hardware"]["serial_port"] = port if port
+      end
+      
+       opts.on("-m", "--mcu [PROCESSOR TYPE]", 
+              "Type of processor on your board", 
+              "   (default: #{options['hardware']['mcu']})") do |port|
+              
+        options["hardware"]["serial_port"] = port if port
+      end
+      
+      opts.on("-r", "--reset [RESET REQUIRED]", 
+              "Require a hardware reset before uploading?",
+              "   (default: #{options['hardware']['physical_reset']})") do |no_reset|
+        options["hardware"]["physical_reset"] = true unless no_reset
+      end
+      
+      opts.on("-a", "--arduino [ARDUINO DIR]", 
+              "Path to your Arduino install",
+              "   (default: #{options['software']['arduino_root']})") do |arduino|
+        options["software"]["arduino_root"] = arduino if arduino
+      end
+
+      opts.on_tail("-h", "--help", "Show this message") do
+        puts opts
+        exit
+      end
+    end
+    
+    opts.parse!(args)
+    [options, opts]
+  end
+  
+end
+
+
+# home = ENV['HOME'] || ENV['USERPROFILE'] || ENV['HOMEPATH']
+# begin
+#   config = YAML::load open(home + "/.rad")
+# rescue
+#   config = false
+# end
+# 
+
+
+# Handle options:
+options, parser = OptionParser.parse(ARGV)
+sketch_name = ARGV[0]
+parser.parse!(["-h"]) unless sketch_name 
+  
+
+# Build vendor/rad:  
+  
+FileUtils.mkdir_p "#{sketch_name}/vendor/rad"
+puts "Successfully created your sketch directory."
+
+FileUtils.cp_r "#{File.dirname(__FILE__)}/../lib/rad/.", "#{sketch_name}/vendor/rad"
+puts "Installed RAD into #{sketch_name}/vendor/rad"
+puts
+
+# Build vendor/libraries:  
+
+FileUtils.mkdir_p "#{sketch_name}/vendor/libraries"
+puts "Successfully created your libraries directory."
+
+
+FileUtils.cp_r "#{File.dirname(__FILE__)}/../lib/libraries/Servo/.", "#{sketch_name}/vendor/libraries/Servo"
+puts "Installed Servo into #{sketch_name}/vendor/libraries"
+puts
+
+FileUtils.cp_r "#{File.dirname(__FILE__)}/../lib/libraries/SWSerLCDpa/.", "#{sketch_name}/vendor/libraries/SWSerLCDpa"
+puts "Installed SWSerLCDpa into #{sketch_name}/vendor/libraries"
+puts
+
+FileUtils.cp_r "#{File.dirname(__FILE__)}/../lib/libraries/SWSerLCDsf/.", "#{sketch_name}/vendor/libraries/SWSerLCDsf"
+puts "Installed SWSerLCDsf into #{sketch_name}/vendor/libraries"
+puts
+
+# Build vendor/plugins:  
+
+FileUtils.mkdir_p "#{sketch_name}/vendor/plugins"
+puts "Successfully created your plugins directory."
+
+FileUtils.cp_r "#{File.dirname(__FILE__)}/../lib/plugins/.", "#{sketch_name}/vendor/plugins"
+puts "Installed Default plugins into #{sketch_name}/vendor/plugins"
+puts
+
+# Build sketch files, etc.:  
+
+FileUtils.touch "#{sketch_name}/#{sketch_name}.rb"
+File.open("#{sketch_name}/#{sketch_name}.rb", "w") do |file|
+  file << <<-EOS
+class #{sketch_name.split("_").collect{|c| c.capitalize}.join("")} < ArduinoSketch
+  
+  # quick overview:
+  # external variables can be added.. use a comma separation, colons are added automatically
+  # 
+  #external_vars :foo => "long unsigned, 0", :bar => "int"
+  # result "long unsigned foo = 0" and "int bar;"
+  # note while this is ruby, many methods and some operators you take for granted are not implemented
+  # some examples: blocks, case statements, +=
+  # keep it simple and remember that the arduino uses a simple loop 
+  # you can branch out with your other methods here or use 
+  # add_to_setup to call a method once (todo: look at signatures)
+  # since all the methods are converted to C, assumptions are made regarding variable types
+  # for example if we need integers to call serial_print hack = input + output + 1
+  # pin examples
+  # input_pin 10, :as => :back_on_button, :latch => :off
+  # input_pin 12, :as => :back_off_button, :latch => :off
+  # output_pin 5, :as => :red_led
+  # input_pin 8, :as => :red_button, :latch => :off, :adjust => 250
+  # output_pin 4, :as => :top_servo, :min => 700, :max => 2200
+  
+  # three line servo (don't forget do declare servo_amount')
+  # sensor_position = analogRead(sensor)
+  # servo_amount = (sensor_position*2 + 500)
+  # move_servo top_servo, servo_amount
+  # one line debounce:
+  # debounce_toggle(button, led)
+  # debounce a read (returns high)
+  # do_something if debounce_read(button, led)
+  
+  
+  
+  # hello world (uncomment to run)
+  
+  #output_pin 13, :as => :led
+  #  def loop
+  #    blink led, 100 
+  #  end
+end
+  EOS
+end
+puts "Added #{sketch_name}/#{sketch_name}.rb"
+
+File.open("#{sketch_name}/Rakefile", 'w') do |file|
+  file << <<-EOS 
+require 'vendor/rad/init.rb'
+  EOS
+end
+puts "Added #{sketch_name}/Rakefile"
+
+FileUtils.mkdir_p "#{sketch_name}/config"
+puts "Added #{sketch_name}/config"
+
+File.open("#{sketch_name}/config/hardware.yml", 'w') do |file|
+  file << options["hardware"].to_yaml
+end
+puts "Added #{sketch_name}/config/hardware.yml"
+
+File.open("#{sketch_name}/config/software.yml", 'w') do |file|
+  file << options["software"].to_yaml
+end
+puts "Added #{sketch_name}/config/software.yml"
+
+puts
+puts "Run 'rake -T' inside your sketch dir to learn how to compile and upload it."

data/lib/libraries/SWSerLCDpa/SWSerLCDpa.cpp

@@ -0,0 +1,267 @@
+/*
+  SWSerLCDpa.cpp - Software serial to Peter Anderson controller chip based
+  LCD display library Adapted from SoftwareSerial.cpp (c) 2006 David A. Mellis
+  by Brian B. Riley, Underhill Center, Vermont, USA, July 2007
+
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Lesser General Public
+  License as published by the Free Software Foundation; either
+  version 2.1 of the License, or (at your option) any later version.
+
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+  Lesser General Public License for more details.
+
+  You should have received a copy of the GNU Lesser General Public
+  License along with this library; if not, write to the Free Software
+  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+*/
+
+/******************************************************************************
+ * Includes
+ ******************************************************************************/
+
+#include "WConstants.h"
+#include "SWSerLCDpa.h"
+
+/******************************************************************************
+ * Definitions
+ ******************************************************************************/
+
+/******************************************************************************
+ * Constructors
+ ******************************************************************************/
+
+SWSerLCDpa::SWSerLCDpa(uint8_t transmitPin)
+{
+  _transmitPin = transmitPin;
+  _baudRate = 0;
+  pinMode(_transmitPin, OUTPUT);
+  _geometry = 0;
+}
+
+SWSerLCDpa::SWSerLCDpa(uint8_t transmitPin, int geometry)
+{
+  _transmitPin = transmitPin;
+  _baudRate = 0;
+  pinMode(_transmitPin, OUTPUT); 
+  _geometry = geometry;
+}
+
+
+
+/******************************************************************************
+ * User API
+ ******************************************************************************/
+
+void SWSerLCDpa::begin(long speed)
+{
+  _baudRate = speed;
+  _bitPeriod = 1000000 / _baudRate;
+
+  digitalWrite(_transmitPin, HIGH);
+  delayMicroseconds( _bitPeriod); // if we were low this establishes the end
+  delay(20);
+  clearscr();
+  if (_geometry)
+  	setgeo(_geometry);
+  	
+}
+
+void SWSerLCDpa::print(uint8_t b)
+{
+  if (_baudRate == 0)
+    return;
+    
+  int bitDelay = _bitPeriod - clockCyclesToMicroseconds(50); // a digitalWrite is about 50 cycles
+  byte mask;
+
+  digitalWrite(_transmitPin, LOW);
+  delayMicroseconds(bitDelay);
+
+  for (mask = 0x01; mask; mask <<= 1) {
+    if (b & mask){ // choose bit
+      digitalWrite(_transmitPin,HIGH); // send 1
+    }
+    else{
+      digitalWrite(_transmitPin,LOW); // send 1
+    }
+    delayMicroseconds(bitDelay);
+  }
+
+  digitalWrite(_transmitPin, HIGH);
+  delayMicroseconds(bitDelay);
+}
+
+void SWSerLCDpa::print(const char *s)
+{
+  while (*s) {
+    print(*s++);
+    delay(1);
+  }
+}
+
+void SWSerLCDpa::print(char c)
+{
+  print((uint8_t) c);
+}
+
+void SWSerLCDpa::print(int n)
+{
+  print((long) n);
+}
+
+void SWSerLCDpa::print(unsigned int n)
+{
+  print((unsigned long) n);
+}
+
+void SWSerLCDpa::print(long n)
+{
+  if (n < 0) {
+    print('-');
+    n = -n;
+  }
+  printNumber(n, 10);
+}
+
+void SWSerLCDpa::print(unsigned long n)
+{
+  printNumber(n, 10);
+}
+
+void SWSerLCDpa::print(long n, int base)
+{
+  if (base == 0)
+    print((char) n);
+  else if (base == 10)
+    print(n);
+  else
+    printNumber(n, base);
+}
+
+// -------- PHA unique codes -------------------------
+void SWSerLCDpa::println(void)
+{
+  print("?n");
+  delay(10);
+}
+
+void SWSerLCDpa::clearscr(void)
+{
+  print("?f");
+  delay(100);
+}
+
+void SWSerLCDpa::home(void)
+{
+  print("?a");
+  delay(10);
+}
+
+
+void SWSerLCDpa::setgeo(int geometry)
+{
+  print("?G");
+  print(geometry);
+  delay(200);
+}
+
+void SWSerLCDpa::setintensity(int intensity)
+{
+  print("?B");
+  if (intensity < 16)
+  	print('0');
+  print(intensity, 16);
+  delay(200);
+}
+
+void SWSerLCDpa::intoBignum(void)
+{
+  print("?>3");
+}
+
+void SWSerLCDpa::outofBignum(void)
+{
+  print("?<");
+}
+
+
+void SWSerLCDpa::setxy(int x, int y)
+{
+  print("?y");
+  print(y);	
+  print("?x");
+  if (x < 10)
+    print('0');
+  print(x);
+  delay(10);
+}
+
+
+void SWSerLCDpa::println(char c)
+{
+  print(c);
+  println();  
+}
+
+void SWSerLCDpa::println(const char c[])
+{
+  print(c);
+  println();
+}
+
+void SWSerLCDpa::println(uint8_t b)
+{
+  print(b);
+  println();
+}
+
+void SWSerLCDpa::println(int n)
+{
+  print(n);
+  println();
+}
+
+void SWSerLCDpa::println(long n)
+{
+  print(n);
+  println();  
+}
+
+void SWSerLCDpa::println(unsigned long n)
+{
+  print(n);
+  println();  
+}
+
+void SWSerLCDpa::println(long n, int base)
+{
+  print(n, base);
+  println();
+}
+
+// Private Methods /////////////////////////////////////////////////////////////
+
+void SWSerLCDpa::printNumber(unsigned long n, uint8_t base)
+{
+  unsigned char buf[8 * sizeof(long)]; // Assumes 8-bit chars. 
+  unsigned long i = 0;  	
+
+  if (n == 0) {
+    print('0');
+    return;
+  } 
+
+  while (n > 0) {
+    buf[i++] = n % base;
+    n /= base;
+  }
+
+  for (; i > 0; i--)
+    print((char) (buf[i - 1] < 10 ? '0' + buf[i - 1] : 'A' + buf[i - 1] - 10));
+  
+  delay(8);
+  
+}

data/lib/libraries/SWSerLCDpa/SWSerLCDpa.h

@@ -0,0 +1,64 @@
+/*
+  SWSerLCDpa.h - Software serial to Peter Anderson controller chip based
+  LCD display library Adapted from SoftwareSerial.cpp (c) 2006 David A. Mellis
+  by Brian B. Riley, Underhill Center, Vermont, USA, July 2007
+
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Lesser General Public
+  License as published by the Free Software Foundation; either
+  version 2.1 of the License, or (at your option) any later version.
+
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+  Lesser General Public License for more details.
+
+  You should have received a copy of the GNU Lesser General Public
+  License along with this library; if not, write to the Free Software
+  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+*/
+
+#ifndef SWSerLCDpa_h
+#define SWSerLCDpa_h
+
+#include <inttypes.h>
+ 
+class SWSerLCDpa
+{
+  private:
+    uint8_t _transmitPin;
+    long _baudRate;
+    int _bitPeriod;
+    int _geometry;
+    void printNumber(unsigned long, uint8_t);
+  public:
+    SWSerLCDpa(uint8_t, int); 
+    SWSerLCDpa(uint8_t);
+    void begin(long);
+    void print(char);
+    void print(const char[]);
+    void print(uint8_t);
+    void print(int);
+    void print(unsigned int);
+    void print(long);
+    void print(unsigned long);
+    void print(long, int);
+    void println(void);
+	void clearscr(void);
+	void home(void);
+	void setgeo(int);
+	void setintensity(int);
+	void intoBignum(void);
+	void outofBignum(void);
+	void setxy(int, int);
+    void println(char);
+    void println(const char[]);
+    void println(uint8_t);
+    void println(int);
+    void println(long);
+    void println(unsigned long);
+    void println(long, int);
+};
+
+#endif
+