filament 0.1.0

data/plugins/02javame/lib/filament/javame/mixins/suite_mixin.rb

@@ -0,0 +1,125 @@
+require 'filament/javame/mixins/library_mixin'
+
+class Module
+  def attr_accessor2(*symbols)
+#    attr_writer(*symbols)
+    symbols.each do |sym|
+      attr_sym = "@#{sym.to_s}".to_sym
+      define_method(sym) do |*val|
+        if val.empty?
+          return instance_variable_get(attr_sym)
+        else
+          return instance_variable_set(attr_sym, val.first)
+        end
+      end
+    end
+  end
+end
+
+
+module Filament::JavaME::Mixins
+  module SuiteMixin
+    include JavaME::Mixins::LibraryMixin
+    
+    attr_accessor2 :defaultmidlet_class, 
+                   :suite_version, :suite_name, :suite_icon, :suite_vendor,
+                   :me_configuration, :me_profile
+    
+    # adds a midlet hash with keys :icon, :classname, and :name
+    def add_midlet(midlet)
+      if midlet == :default
+        midlet = { :classname => defaultmidlet_class,
+                   :icon => suite_icon,
+                   :name => suite_name }
+      end
+      
+      @midlets << midlet
+    end
+    
+    def init_suite
+      init_library
+      @descriptor_config = Proc.new {}
+      @package_deps = true
+      @defaultmidlet_class = nil
+      @midlets = []
+      
+      @me_configuration = 'CLDC-1.0'
+      @me_profile = 'MIDP-2.0'
+    end
+    
+    def jad_path
+      jad_name = Pathname.new(jar_path).basename(".*").to_s + '.jad'
+      return "#{output_dir}/#{jad_name}"
+    end
+
+    def manifest_path
+      return "#{working_dir}/MANIFEST.MF"
+    end
+        
+    def descriptor_config(&block)
+      @descriptor_config = block
+    end
+    
+    def define_jad(target)
+    	  # create a list for imported jad configs
+    	  configs = []
+    	  target.flattened_deps.each do |dep|
+    	    # ask each dep for its contribution
+      	config = dep[:jad_config]
+      	configs << config unless config.nil?
+    	  end
+    	  
+    	  full_config = Proc.new do |d|
+    	    d.suite_version = @suite_version
+    	    d.suite_name = @suite_name
+    	    d.suite_icon = @suite_icon
+    	    d.suite_vendor = @suite_vendor
+    	    d.me_configuration = @me_configuration
+    	    d.me_profile = @me_profile
+
+    	    @midlets.each do |midlet|
+    	      d.add_midlet(midlet)
+    	    end
+    	    
+    	    @descriptor_config.call(d)
+    	    
+    	    configs.each do |config|
+    	      config.call(d)
+    	    end
+    	  end
+
+      jad_task = file jad_path => jar_path do |t|
+        JavaME::Tools::write_manifest(manifest_path, &full_config)
+        Java::Tools::Jar.new(jar_path) do |jar|
+          jar.update = true
+          jar.manifest = manifest_path
+        end
+        JavaME::Tools::write_jad(jad_path, jar_path, &full_config)
+      end
+
+      target.output :tag => :jad,
+                    :output => jad_path,
+                    :deployable => true
+
+      @tasks << jad_task
+      return jad_task
+    end
+    
+    def define_suite(target)
+      # define all the tasks
+      # and add extra dependencies
+
+      jad_task = define_jad(target)
+      library_task = define_library(target)
+
+      target.output(:tag => :execute,
+                    :output => Proc.new do; emulate; end)
+
+      return jad_task, library_task
+    end
+    
+    def emulate(midletclass=@defaultmidlet_class)
+      JavaME::Tools::emulate(jad_path, midletclass)
+    end
+  end
+end

data/plugins/02javame/lib/filament/javame/platform.rb

@@ -0,0 +1,105 @@
+require 'filament/platform'
+
+module Filament::JavaME
+  module Tools
+    def self.vendor_dir(name)
+      return "#{$workspace.realpath}/vendor/libraries/javame/#{name}"
+    end
+
+    def self.jsr_classpath(jsr)
+      return ["#{vendor_dir('jsr')}/#{jsr}/#{jsr}.jar"]
+    end
+      
+    SUN_DIR = vendor_dir('sun')
+    MPP_DIR = vendor_dir('mpp-sdk')
+    MOTOROLA_DIR = vendor_dir('motorola')
+
+    TAGS = {
+      :midp1 => ["#{SUN_DIR}/midpapi10.jar"],
+      :midp2 => ["#{SUN_DIR}/midpapi20.jar"],
+      :jsr_75 => jsr_classpath(75),
+      :jsr_82 => jsr_classpath(82),
+      :jsr_120 => jsr_classpath(120),
+      :jsr_135 => jsr_classpath(135),
+      :jsr_172 => jsr_classpath(172),
+      :jsr_184 => jsr_classpath(184),
+    }
+    
+    TARGET_PLATFORMS[:wtk2_2] = { 
+      :tags => [:wtk, :midp2, :jsr_82], 
+      :cldc_version => 1.1
+    }
+
+    TARGET_PLATFORMS[:mpp_sdk] = {
+      :tags => [:mpp, :midp2, :jsr_82],
+      :cldc_version => 1.1
+    }
+
+    TARGET_PLATFORMS[:a1000] = {
+      :tags => [:midp2, :jsr_82, :jsr_120, :jsr_185, :jsr_135],
+      :cldc_version => 1.0
+    }
+    
+    TARGET_PLATFORMS[:weme] = {
+      :tags => [:midp2, :jsr_75, :jsr_172],
+      :cldc_version => 1.1
+    }
+    
+    TARGET_PLATFORMS[:i860] = {
+      :tags => [:iden],
+      :cldc_version => 1.0,
+      :classpath => ["#{MOTOROLA_DIR}/i860/i860.jar"]
+    }
+
+		TARGET_PLATFORMS[:e398] = {
+		  :tags => [:midp2, :jsr_120, :jsr_135],
+      :cldc_version => 1.0
+    }
+		
+    TARGET_PLATFORMS[:e680] = {
+      :tags => [:midp2, :jsr_120, :jsr_135, :jsr_184, :jsr_185],
+      :cldc_version => 1.0
+    }
+    
+    class << self
+      def platform(model)
+        p = TARGET_PLATFORMS[model]
+        raise "Unknown target platform #{model}" if p.nil?
+        return p
+      end
+      
+      def tags_for(model)
+        return platform(model)[:tags].clone
+      end
+      
+      def cldc_version_for(model)
+        return platform(model)[:cldc_version]
+      end
+
+      def classpath_for(model)
+        cldc_version = cldc_version_for(model)
+        
+        base_classpath = platform(model)[:classpath]
+
+        classpath = []
+        classpath += base_classpath unless base_classpath.nil?
+        
+        case cldc_version
+        when 1.0
+          classpath << "#{SUN_DIR}/cldcapi10.jar"
+        when 1.1
+          classpath << "#{SUN_DIR}/cldcapi11.jar"
+        end
+        
+        tags = tags_for(model)
+        
+        tags.each do |tag|
+          tag_classpath = TAGS[tag]
+          classpath += tag_classpath unless tag_classpath.nil?
+        end
+        
+        return classpath
+      end
+    end
+  end
+end

data/plugins/02javame/lib/filament/javame/suite.rb

@@ -0,0 +1,16 @@
+require 'filament/javame/mixins/suite_mixin'
+
+module Filament::JavaME
+  class Suite < Filament::Artifact
+    include JavaME::Mixins::SuiteMixin
+
+    def init
+      init_suite
+    end
+      
+    def build_artifact
+      define_suite(self)
+      invoke_tasks
+    end
+  end
+end

data/plugins/02javame/lib/filament/javame/tasks.rb

@@ -0,0 +1,6 @@
+require 'pathname'
+require 'filament/java/tools'
+
+require 'filament/javame/tools'
+require 'filament/javame/library'
+require 'filament/javame/suite'

data/plugins/02javame/lib/filament/javame/tools/descriptor.rb

@@ -0,0 +1,146 @@
+require 'filament/javame/tools'
+
+module Filament::JavaME::Tools
+  class Descriptor
+    SUITE_ENTRIES = { :suite_version => 'MIDlet-Version',
+                      :suite_name => 'MIDlet-Name',
+                      :suite_icon => 'MIDlet-Icon',
+                      :suite_vendor => 'MIDlet-Vendor',
+                      :suite_jar_url => 'MIDlet-Jar-URL',
+                      :suite_jar_size => 'MIDlet-Jar-Size',
+                      :me_configuration => 'MicroEdition-Configuration',
+                      :me_profile => 'MicroEdition-Profile' }
+
+    SUITE_ENTRIES.each do |tag, desc|
+      get_meth = tag
+      set_meth = "#{tag.to_s}=".to_sym
+      define_method(set_meth) do |*args|
+        return @entries.[]=(tag, *args)
+      end
+      
+      define_method(get_meth) do 
+        return @entries[tag]
+      end
+    end
+
+    attr_writer :path
+
+    def initialize(path=nil, jar_path=nil)
+      @custom = Hash.new
+      @entries = Hash.new
+      @midlets = []
+      @path = path
+      
+      self.jar_path = jar_path unless jar_path.nil?
+
+      yield self if block_given?
+    end
+    
+    def jar_path=(path)
+      if path.nil?
+        self.suite_jar_url = nil
+        self.suite_jar_size = nil
+      else
+        jar_pn = Pathname.new(path)
+        self.suite_jar_url = jar_pn.basename.to_s
+        self.suite_jar_size = jar_pn.size
+      end
+    end
+    
+    def write(h = {})
+      pn = Pathname.new(h[:path] || @path)
+      
+      pn.open(File::CREAT|File::TRUNC|File::WRONLY) do |f|
+        f << to_s(h)
+      end
+    end
+    
+    def to_s(h = {})
+      raise "me_profile must be set!" if self.me_profile.nil?
+      raise "me_configuration must be set!" if self.me_configuration.nil?
+
+      s = ""
+      
+      keys = h[:include] || @entries.keys.sort { |a,b| b.to_s <=> a.to_s }
+      if h.key?(:exclude)
+        h[:exclude].each do |exc|
+          keys.delete(exc)
+        end
+      end
+
+      keys.each do |k|
+        v = @entries[k]
+        s << "#{entry_name(k)}: #{v}\n" unless v.nil?
+      end
+      
+      @midlets.each_index do |index|
+        midlet = @midlets[index]
+        s << midlet_entry(index, midlet) << "\n"
+      end
+      
+      return s
+    end
+    
+    def custom_entries(h)
+      h.keys.each do |key|
+        custom(key, h[key])
+      end
+    end
+    
+    def append_entries(h)
+      delim = h[:delim] || ', '
+      h.keys.each do |key|
+        value = h[key]
+        if value.is_a?(Array)
+          value = value.join(delim)
+        end
+        if @entries.key?(key)
+          h[key] = @entries[key] + delim + value 
+        else
+          h[key] = value
+        end          
+      end
+      custom_entries(h)
+    end
+    
+    def custom(name, value=nil, symbol=nil)
+      symbol = name.to_sym if symbol.nil?
+      
+      @custom[symbol] = name
+      @entries[symbol] = value unless value.nil?
+    end
+
+    # adds a midlet hash with keys :icon, :classname, and :name
+    def add_midlet(midlet)
+      @midlets << midlet
+    end
+    
+    def entry_name(symbol)
+      return @custom[symbol] || SUITE_ENTRIES[symbol]
+    end
+    
+    def midlet_entry(index, midlet)
+      return "MIDlet-#{index+1}: #{midlet[:name]},#{midlet[:icon]},#{midlet[:classname]}"
+    end
+  end
+
+  class << self    
+    def write_jad(*args, &block)
+      Descriptor.new(*args) do |d|
+        block.call(d)
+        d.write
+      end
+    end
+    
+    def write_manifest(*args, &block)
+      Descriptor.new(*args) do |d|
+        block.call(d)
+        d.write(:include => [:me_configuration, 
+                             :me_profile, 
+                             :suite_name, 
+                             :suite_vendor,
+                             :suite_version])
+      end
+    end
+  end
+end

data/plugins/02javame/lib/filament/javame/tools/emulator.rb

@@ -0,0 +1,36 @@
+require 'filament/javame/tools'
+require 'filament/javame/platform'
+
+module Filament::JavaME::Tools
+  class << self
+    def emulate(*args)
+      Emulator.emulate(*args)
+    end
+  end
+  
+  class Emulator
+    @@emulators = {}
+    
+    def self.inherited(subklass)
+      name = subklass.name.split(/::/).last
+      name = name.split(/Emulator/).first
+      @@emulators[name.to_sym] = subklass
+    end
+    
+    def self.set_type(type)
+      @@type = type.to_sym
+    end
+    
+    def self.emulate(jad_path, midletclass=nil)
+      emulator = @@emulators[@@type]
+      emulator.new(jad_path, midletclass).run
+    end
+    
+    attr_writer :jad_path, :midletclass
+    
+    def initialize(jad_path, midletclass=nil)
+      @jad_path = fix_paths(jad_path)
+      @midletclass = midletclass
+    end
+  end
+end

data/plugins/02javame/lib/filament/javame/tools/external/mpp_sdk.rb

@@ -0,0 +1,39 @@
+require 'filament/javame/platform'
+require 'filament/javame/tools/emulator'
+
+module Filament::JavaME::Tools
+  module MppSdk
+    def self.home
+      mpp_home_env = ENV['MPP_SDK_HOME']
+      
+      return mpp_home_env unless mpp_home_env.nil?
+      
+      base_dir = "#{$workspace.realpath}/vendor/applications/mpp-sdk"
+      version = Pathname.new("#{base_dir}/VERSION").read.chomp
+      
+      return "#{base_dir}/#{version}"
+    end
+  
+    class MppSdkEmulator < Emulator
+      def run
+        cd MppSdk::home do |d|
+          c = "java -jar player.jar #{@jad_path}"
+          sys c
+        end
+      end
+    end
+    
+    class MppSdkPreverifier < Preverifier
+    		def preverify
+    			raise "MppSdkPreverifier only works on darwin" unless darwin?
+    			
+    			c = "#{MppSdk::home}/osx/preverify/preverify"
+    			c << " -classpath #{join_paths(@classpath)}" unless @classpath.empty?
+    			c << " -d #{fix_paths(@output_dir)}"
+    			c << " -cldc1.0" if @cldc_version == 1.0
+    			c << " #{fix_paths(@classes)}"
+    			sys c
+    		end
+    end
+  end
+end

data/plugins/02javame/lib/filament/javame/tools/external/wtk.rb

@@ -0,0 +1,60 @@
+require 'filament/javame/platform'
+require 'filament/javame/tools/emulator'
+require 'filament/javame/tools/preverifier'
+
+module Filament::JavaME::Tools
+  module Wtk
+    def self.home
+      wtk_home_env = ENV['WTK_HOME']
+      
+      return wtk_home_env unless wtk_home_env.nil?
+      
+      wtk_base = "#{$workspace.realpath}/vendor/applications/wtk"
+      
+      return "#{wtk_base}/windows/2.3" if windows?
+      return "#{wtk_base}/linux/2.2"
+    end
+    
+    def self.bin(path=nil)
+      wtk_bin = home + '/bin'
+      return wtk_bin if path.nil?        
+      return to_exec_path("#{wtk_bin}/#{path}")
+    end
+    
+    class WtkEmulator < Emulator
+      def run
+        raise "Wtk does not support darwin" if darwin?
+        
+        if windows?
+          c = Wtk.bin('emulator.exe')
+        else
+          c = "sh " + Wtk.bin('emulator')
+        end
+        
+        c << " -Xdescriptor:#{@jad_path} "
+        c << " -Xdomain:maximum "
+        c << " #{@midletclass}" unless @midletclass.nil?
+        
+        sys c
+      end
+    end
+    
+    class WtkPreverifier < Preverifier
+      def preverify
+        raise "Wtk does not support darwin" if darwin?
+        
+        if windows?
+          c = Wtk.bin('preverify.exe')
+        else
+          c = Wtk.bin('preverify')
+        end
+        
+        # TODO cldc_version is not used!
+        c << " -classpath #{join_paths(@classpath)}" unless @classpath.empty?
+        c << " -d #{fix_paths(@output_dir)}"
+        c << " #{fix_paths(@classes)}"
+        sys c
+      end
+    end
+  end
+end

data/plugins/02javame/lib/filament/javame/tools/preverifier.rb

@@ -0,0 +1,43 @@
+require 'filament/javame/platform'
+
+module Filament::JavaME::Tools
+  class << self
+    def preverify(*args, &block)
+      Preverifier.preverify(*args, &block)
+    end
+  end
+  
+  # preverify class files or an entire directory
+  class Preverifier
+    @@preverifiers = {}
+    
+    def self.inherited(subklass)
+      name = subklass.name.split(/::/).last
+      name = name.split(/Preverifier/).first
+      @@preverifiers[name.to_sym] = subklass
+    end
+    
+    def self.set_type(type)
+      @@type = type.to_sym
+    end
+    
+    def self.preverify(classes=nil, output_dir=nil, &block)
+      preverifier = @@preverifiers[@@type]
+      preverifier.new(classes, output_dir, &block)
+    end
+    
+    attr_writer :output_dir, :cldc_version, :classpath, :classes
+    
+    def initialize(classes=nil, output_dir=nil, &block)
+      @classes = classes
+      @output_dir = output_dir
+      @cldc_version = nil
+      @classpath = []
+
+      yield self if block_given?
+
+      preverify unless @classes.nil? or @output_dir.nil?
+    end
+
+  end
+end

data/plugins/02javame/lib/filament/javame/tools.rb

@@ -0,0 +1,8 @@
+module Filament::JavaME
+  module Tools; end
+end
+
+require 'filament/javame/tools/descriptor'
+
+require 'filament/javame/tools/external/wtk'
+require 'filament/javame/tools/external/mpp_sdk'

data/plugins/02javame/lib/init.rb

@@ -0,0 +1,27 @@
+require 'pathname'
+
+require 'filament/platform'
+
+module Filament::JavaME
+  HOME = Pathname.new(__FILE__).parent.parent.realpath
+end
+require 'filament/javame/tools'
+require 'filament/javame/tasks'
+
+def default_emulator
+  return :MppSdk if darwin?
+  return :Wtk
+end
+
+def default_preverifier
+  return :MppSdk if darwin?
+  return :Wtk
+end
+
+module Filament::JavaME
+  emulator = ENV['JAVAME_EMULATOR'] || default_emulator
+  Tools::Emulator::set_type(emulator.to_sym)
+
+  preverifier = ENV['JAVAME_PREVERIFIER'] || default_preverifier
+  Tools::Preverifier::set_type(preverifier.to_sym)
+end

data/plugins/05push/lib/bluetooth.rb

@@ -0,0 +1,66 @@
+class Bluetooth
+  def self.add_adapter(adapter_class)
+    @@adapters ||= []
+    @@adapters << adapter_class
+  end
+  
+  def self.get_adapter
+    @@adapters.each do |adapter|
+      if adapter.applicable?
+        return adapter.new
+      end
+    end
+  end
+end
+
+class BlueZ < Bluetooth
+  Bluetooth.add_adapter(self)
+  
+  def self.applicable?
+    return /linux/ =~ PLATFORM
+  end
+  
+  def push_file(h)
+    file = h[:file]
+    bluetooth_device = h[:device] || ENV['BLUETOOTH_DEVICE']
+    bluetooth_channel = h[:channel] || ENV['BLUETOOTH_CHANNEL']
+          
+    raise "BLUETOOTH_DEVICE must be set" if bluetooth_device.nil?
+    raise "BLUETOOTH_CHANNEL must be set" if bluetooth_channel.nil?
+    
+    file_name = File.basename(file)
+    
+    puts "sending #{file} to #{bluetooth_device} (#{bluetooth_channel}) as #{file_name} ..."
+    system("ussp-push \"#{bluetooth_device}\"@#{bluetooth_channel} #{file} #{file_name}")          
+  end
+end
+
+class BluetoothOSX < Bluetooth
+  Bluetooth.add_adapter(self)
+  
+  def self.applicable?
+    return /darwin/ =~ PLATFORM
+  end
+  
+  def running?
+    s = IO.popen('ps x | grep -v grep | grep "Bluetooth File Exchange"', 'r')
+    data = s.read.strip
+    s.close
+    
+    return data != ""
+  end
+  
+  def push_file(h)
+    file = h[:file]
+    STDOUT.write("sending #{file} ...")
+
+    system("open -a /Applications/Utilities/Bluetooth\\ File\\ Exchange.app '#{file}'")
+    while running?
+      sleep(3)
+      STDOUT.write(".")
+      STDOUT.flush
+    end
+    puts "done"
+  end
+end
+