auser-skelerl 0.0.1 → 0.0.2

data/Manifest.txt

@@ -2,16 +2,39 @@ History.txt
 Manifest.txt
 README.txt
 Rakefile
+app_generators/appfile/USAGE
+app_generators/appfile/appfile_generator.rb
+app_generators/appfile/templates/appfile.app
+app_generators/gen_server/USAGE
+app_generators/gen_server/gen_server_generator.rb
+app_generators/gen_server/templates/gen_server.erl
+bin/appfile
 bin/build-app
+bin/erl_runner
+bin/gen_server
 config/hoe.rb
 config/requirements.rb
 ebin/packager.app
+examples/example_runner.rb
 include/empty
 lib/skelerl.rb
+lib/skelerl/core/object.rb
+lib/skelerl/erlpers/core/array.rb
+lib/skelerl/erlpers/core/object.rb
+lib/skelerl/erlpers/erl_mapper.rb
+lib/skelerl/erlpers/mappers/command.rb
+lib/skelerl/erlpers/mappers/context.rb
+lib/skelerl/erlpers/mappers/namespace.rb
+lib/skelerl/init.rb
+script/generate
 setup.rb
 skelerl.gemspec
 src/packager.erl
+tasks/build.rake
 tasks/deployment.rake
 tasks/environment.rake
-tasks/skelerl.rake
+tasks/generate.rake
 tasks/website.rake
+test/erlpers/erl_mapper_spec.rb
+test/erlpers/object_spec.rb
+test/helper.rb

data/README.txt

@@ -14,6 +14,10 @@ h2. Building an application
 3. Type: ./bin/build-app [name] [version]
 4. There is no fourth step
 
+Erlang start script in ruby
+
+Example coming shortly
+
 == INSTALL:
 
 sudo gem install auser-skelerl

data/Rakefile

@@ -1,5 +1,7 @@
-require 'config/requirements'
-require 'config/hoe' # setup Hoe + all gem configuration
-
-Dir['tasks/**/*.rake'].each { |rake| load rake }
+begin
+  require 'config/requirements'
+  require 'config/hoe' # setup Hoe + all gem configuration
+rescue Exception => e
+end
 
+Dir['tasks/**/*.rake'].each { |rake| load rake }

data/app_generators/appfile/USAGE

@@ -0,0 +1,5 @@
+Description:
+  Create a basic .app file for erlang. This is just a quick generator to help get your .app file built
+  
+Usage:
+  ./script/generate appfile <name>

data/app_generators/appfile/appfile_generator.rb

@@ -0,0 +1,61 @@
+class AppfileGenerator < RubiGen::Base
+
+  DEFAULT_SHEBANG = File.join(Config::CONFIG['bindir'],
+                              Config::CONFIG['ruby_install_name'])
+
+  default_options :author => nil
+
+  attr_reader :name
+
+  def initialize(runtime_args, runtime_options = {})
+    super
+    usage if args.empty?
+    @app_name = args.shift
+    @destination_root = File.expand_path(".")
+    @name = base_name    
+    extract_options
+  end
+
+  def manifest
+    record do |m|
+      m.template "appfile.app", "ebin/#{@app_name}.app"
+
+      # m.dependency "install_rubigen_scripts", [destination_root, 'appfile'], :shebang => options[:shebang], :collision => :force
+    end
+  end
+
+  protected
+    def banner
+      <<-EOS
+Creates a basic .app file
+
+USAGE: #{spec.name} name
+EOS
+    end
+
+    def add_options!(opts)
+      opts.separator ''
+      opts.separator 'Options:'
+      # For each option below, place the default
+      # at the top of the file next to "default_options"
+      # opts.on("-a", "--author=\"Your Name\"", String,
+      #         "Some comment about this option",
+      #         "Default: none") { |options[:author]| }
+      opts.on("-n", "--name", "Name the app") { |options[:app_name]| }
+      opts.on("-d", "--desc", "Description of the app") { |options[:description]| }
+      opts.on("-m", "--modules", "Modules used in the application") { |options[:modules]| }
+      opts.on("-r", "--registered", "Modules registered in the application") { |options[:registered]| }
+      opts.on("-v", "--version", "Show the #{File.basename($0)} version number and quit.")
+    end
+
+    def extract_options
+      # for each option, extract it into a local variable (and create an "attr_reader :author" at the top)
+      # Templates can access these value via the attr_reader-generated methods, but not the
+      # raw instance variable value.
+      # @author = options[:author]
+      @description = options[:desc] || "Description of your project"
+      @version = options[:version] || "0.1"
+      @modules = options[:modules] || "#{@name}_app"
+      @registered = options[:registered] || ""
+    end
+end

data/app_generators/appfile/templates/appfile.app

@@ -0,0 +1,19 @@
+{application, APPNAME,
+  [
+		% Quick description of the server
+		{description, "Description of the application"},
+		% Version
+		{vsn, "0.0.1"},
+		% All modules used by the application.  
+		{modules, []},
+		% All the registered names in the application
+		{registered, []},
+		% These must be started for application to run
+		{applications, [kernel, stdlib]},
+		% Environment vars
+		{env, []},
+		% Module and Args used to start
+		{mod, {[]}},
+		{start_phases, []}
+	]
+}.

data/app_generators/gen_server/USAGE

@@ -0,0 +1,7 @@
+Description:
+
+Create a skeleton gen_server file
+  
+Usage:
+  
+./script/generate gen_server <name>

data/app_generators/gen_server/gen_server_generator.rb

@@ -0,0 +1,51 @@
+class GenServerGenerator < RubiGen::Base
+
+  DEFAULT_SHEBANG = File.join(Config::CONFIG['bindir'],
+                              Config::CONFIG['ruby_install_name'])
+
+  default_options :author => nil
+
+  attr_reader :name
+
+  def initialize(runtime_args, runtime_options = {})
+    super
+    usage if args.empty?
+    @app_name = args.shift
+    @destination_root = File.expand_path(".")
+    @name = base_name    
+    extract_options
+  end
+
+  def manifest
+    record do |m|
+      m.file "gen_server.erl"
+    end
+  end
+
+  protected
+    def banner
+      <<-EOS
+Creates a skeleton gen_server
+
+USAGE: #{spec.name} name
+EOS
+    end
+
+    def add_options!(opts)
+      opts.separator ''
+      opts.separator 'Options:'
+      # For each option below, place the default
+      # at the top of the file next to "default_options"
+      # opts.on("-a", "--author=\"Your Name\"", String,
+      #         "Some comment about this option",
+      #         "Default: none") { |options[:author]| }
+      opts.on("-v", "--version", "Show the #{File.basename($0)} version number and quit.")
+    end
+
+    def extract_options
+      # for each option, extract it into a local variable (and create an "attr_reader :author" at the top)
+      # Templates can access these value via the attr_reader-generated methods, but not the
+      # raw instance variable value.
+      # @author = options[:author]
+    end
+end

data/bin/appfile

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'rubigen'
+
+if %w(-v --version).include? ARGV.first
+  require 'appfile/version'
+  puts "#{File.basename($0)} #{Appfile::VERSION::STRING}"
+  exit(0)
+end
+
+require 'rubigen/scripts/generate'
+source = RubiGen::PathSource.new(:application, 
+  File.join(File.dirname(__FILE__), "../app_generators"))
+RubiGen::Base.reset_sources
+RubiGen::Base.append_sources source
+RubiGen::Scripts::Generate.new.run(ARGV, :generator => 'appfile')

data/bin/erl_runner

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+require "#{::File.dirname(__FILE__)}/../lib/skelerl"
+require 'rubygems'
+require 'optparse'
+
+@opts = OptionParser.new
+progname = File.basename(__FILE__, File.extname(__FILE__))
+  
+
+@opts.on('-v', '--verbose', 'Be verbose')    { @verbose = true }  
+@opts.on('-t', '--test', 'Put in test mode')    { @testing = true }  
+
+@opts.on_tail("-h", "--help", "Show this message") do
+  puts <<-EOP
+    Usage: #{progname} <filename> [options]
+  EOP
+  exit
+end
+
+@opts.parse(ARGV.dup)
+
+instance_eval open(ARGV.pop).read
+
+mappers.each do |mapper|
+  @testing ? puts(mapper.realize(@testing)) : mapper.realize(@testing)  
+end

data/bin/gen_server

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'rubigen'
+
+if %w(-v --version).include? ARGV.first
+  require 'gen_server/version'
+  puts "#{File.basename($0)} #{GenServer::VERSION::STRING}"
+  exit(0)
+end
+
+require 'rubigen/scripts/generate'
+source = RubiGen::PathSource.new(:application, 
+  File.join(File.dirname(__FILE__), "../app_generators"))
+RubiGen::Base.reset_sources
+RubiGen::Base.append_sources source
+RubiGen::Scripts::Generate.new.run(ARGV, :generator => 'gen_server')

data/config/requirements.rb

@@ -6,9 +6,9 @@ require 'rubygems'
   begin
     require req_gem
   rescue LoadError
-    puts "This Rakefile requires the '#{req_gem}' RubyGem."
-    puts "Installation: gem install #{req_gem} -y"
-    exit
+    # puts "This Rakefile requires the '#{req_gem}' RubyGem."
+    # puts "Installation: gem install #{req_gem} -y"
+    # exit
   end
 end
 

data/examples/example_runner.rb

@@ -0,0 +1,24 @@
+$:.unshift(File.dirname(__FILE__)+"/../lib")
+require "rubygems"
+require "skelerl"
+
+erlang do
+  testing true
+  
+  options :path => "./ebin", :cookie => "chordjerl"
+  
+  with_node(:node0, :stop => false) do
+    start
+  end
+  
+  with_node(:node2) do
+    erlang_module.go
+  end
+  
+  with_node(:node1) do
+    namespace :erlang_module do
+      start
+    end
+  end
+  
+end

data/lib/skelerl.rb

@@ -1,10 +1,22 @@
-$:.unshift(File.dirname(__FILE__)) unless
-  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+[File.expand_path(File.dirname(__FILE__))].each do |dir|
+  $:.unshift(dir) unless $:.include?(dir)
+end
+
+require "rubygems"
+%w(dslify rubigen).each do |gem|
+  begin;require "#{gem}";rescue Exception => e;puts "Error: #{e}";end
+end
+
+require "skelerl/init"
+
+%w(build).each do |rake|
+  load "#{File.dirname(__FILE__)}/../tasks/#{rake}.rake"
+end
 
 module Skelerl
   
   module VERSION
-    STRING = "0.0.1"
+    STRING = "0.0.2"
   end
   
 end

data/lib/skelerl/core/object.rb

@@ -0,0 +1,27 @@
+class Object
+  # The hidden singleton lurks behind everyone
+  def metaclass; class << self; self; end; end
+  def meta_eval &blk; metaclass.instance_eval &blk; end
+
+  # Adds methods to a metaclass
+  def meta_def name, &blk
+    meta_eval { define_method name, &blk }
+  end
+  
+  def meta_undef name
+    meta_eval { remove_method name }
+  end
+
+  # Defines an instance method within a class
+  def class_def name, &blk
+    class_eval { define_method name, &blk }
+  end
+  
+  def run_in_context(context=self, &block)
+    name="temp_#{self.class}_#{respond_to?(:parent) ? parent.to_s : Time.now.to_i}".to_sym
+    meta_def name, &block
+    self.send name, context
+    # self.instance_eval &block if block
+    meta_undef name rescue ""
+  end
+end

data/lib/skelerl/erlpers/core/array.rb

@@ -0,0 +1,10 @@
+class Array
+  
+  def to_s
+    self.join(" ")
+  end
+  def strip
+    self.to_s.strip    
+  end
+  
+end

data/lib/skelerl/erlpers/core/object.rb

@@ -0,0 +1,34 @@
+class Object
+  # Erlang block where you can register map erlang directives
+  # Usage:
+  #   erlang do
+  #     with_node(:node0) do
+  #       start
+  #     end
+  #   end
+  def erlang parent=self, &block
+    context_stack.push parent
+    mapper = block ? ErlMapper.new(&block) : nil
+    mappers << mapper
+    context_stack.pop
+    
+    testing ? puts(mapper.realize(true)) : mapper.realize(false)  
+  end
+  
+  def testing bool=false
+    $testing ||= bool
+  end
+  
+  def mappers
+    $mappers ||= []
+  end
+  
+  # Context stack so we can keep track of the context
+  def context_stack
+    @@context_stack ||= []
+  end
+  
+  def parent
+    @@context_stack.first
+  end
+end

data/lib/skelerl/erlpers/erl_mapper.rb

@@ -0,0 +1,66 @@
+Dir["#{File.dirname(__FILE__)}/core/*.rb"].each {|f| require f if ::File.file? f}
+
+class ErlMapper
+  include Dslify
+
+  def initialize(opts={}, &block)
+    @opts = opts
+    instance_eval &block if block
+  end
+  
+  default_options({
+    :path => "./ebin",
+    :sname => "node0",
+    :cookie => nil,
+    :stop => true
+  })
+  
+  def opts;@opts ||= {};end
+  
+  def self.erl_methods(hash={})
+    hash.each {|k,v| define_method "erl_#{k}" do;"#{v}";end}
+  end
+  
+  erl_methods(:path => "pa", :cookie => "setcookie")
+  
+  def options(opts={}, &block)
+    set_vars_from_options opts
+    instance_eval &block if block
+  end
+  
+  def contexts
+    @contexts ||= []
+  end
+  
+  def namespace name, &block
+    Namespace.new(name, @opts, &block)
+  end
+  
+  def with_node(name="node0", opts={}, &block)
+    returning MappingContext.new(name, __options.merge(opts), &block) do |mc|
+      contexts << mc
+    end
+  end
+  
+  def realize(force_testing=false)
+    contexts.collect {|mc| (force_testing || testing) ? mc.string : daemonize(mc.string) }
+  end
+  
+  def daemonize(cmd, &block)
+    pid = fork do
+      Signal.trap('HUP', 'IGNORE') # Don't die upon logout
+      File.open("/dev/null", "r+") do |devnull|
+        $stdout.reopen(devnull)
+        $stderr.reopen(devnull)
+        $stdin.reopen(devnull) unless @use_stdin
+      end
+      Kernel.system cmd
+      block.call if block
+    end
+    Process.detach(pid)
+    pid
+  end
+  
+end
+
+Dir["#{File.dirname(__FILE__)}/mappers/*.rb"].each {|f| require f if ::File.file? f}

data/lib/skelerl/erlpers/mappers/command.rb

@@ -0,0 +1,13 @@
+class Command < Array
+  def initialize(name=nil, *args)
+    self << name.to_s
+    self << args unless args.empty?
+  end
+  def method_missing(m, *args, &block)
+    m = m.to_s
+    self << (args.empty? ? [m] : [m, args]).flatten
+  end
+  def to_s
+    self.flatten.join(" ")
+  end
+end

data/lib/skelerl/erlpers/mappers/context.rb

@@ -0,0 +1,39 @@
+class MappingContext < ErlMapper
+  attr_accessor :sname, :parent
+  
+  def initialize(name, opts={}, &block)
+    @__name = name
+    @opts = opts
+    instance_eval &block if block
+    @sname ||= @__name
+  end
+  
+  def string
+    returning Array.new do |arr|
+      %w(build_string start_commands final_commands).each {|meth| arr << self.send(meth).strip }
+    end.join(" ").strip
+  end
+  
+  def final_commands
+    returning Array.new do |arr|
+      arr << "-s init stop" if (opts.has_key?(:stop) && opts[:stop])
+    end.join(" ")
+  end
+    
+  def build_string
+    @build_string ||= 
+      "erl #{opts.map {|k,v| "-#{get_opt_name(k)} #{v}" if v && v.is_a?(String)}.join(" ")}"
+  end
+  
+  def get_opt_name(k);methods.include?("erl_#{k}") ? self.send("erl_#{k}".to_sym) : "#{k}";end
+    
+  def start_commands;commands.map {|c| "-s #{c}"}.join(" ");end
+  def commands;@commands ||= [];end
+  def parent_string; parent ? parent.__name : nil; end
+  
+  def method_missing(m, *args, &block)
+    command = Command.new(m, args).flatten
+    commands.include?(command) ? super : commands.push(command)
+    command
+  end
+end

data/lib/skelerl/erlpers/mappers/namespace.rb

@@ -0,0 +1,8 @@
+class Namespace < MappingContext
+  def namespace_string
+    @__name ? @__name : parent_string
+  end
+  def start_commands
+    commands.map {|c| "-s #{namespace_string}:#{c}"}
+  end
+end

data/lib/skelerl/init.rb

@@ -0,0 +1,3 @@
+%w(core erlpers).each do |dir|
+  Dir["#{File.dirname(__FILE__)}/#{dir}/*.rb"].each {|f| require f if ::File.file? f}
+end

data/script/generate

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/generate'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:appfile, :test_unit]
+RubiGen::Scripts::Generate.new.run(ARGV)

data/skelerl.gemspec

@@ -1,35 +1,36 @@
+# -*- encoding: utf-8 -*-
+
 Gem::Specification.new do |s|
   s.name = %q{skelerl}
-  s.version = "0.0.1"
+  s.version = "0.0.2"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Ari Lerner"]
-  s.date = %q{2009-01-21}
-  s.default_executable = %q{build-app}
+  s.date = %q{2009-02-04}
   s.description = %q{This skeleton app takes care of everything you'd need in an erlang application, but don't want to do yourself... hopefully.}
   s.email = ["arilerner@mac.com"]
-  s.executables = ["build-app"]
+  s.executables = ["appfile", "build-app", "erl_runner", "gen_server"]
   s.extra_rdoc_files = ["History.txt", "Manifest.txt", "README.txt"]
-  s.files = ["History.txt", "Manifest.txt", "README.txt", "Rakefile", "bin/build-app", "config/hoe.rb", "config/requirements.rb", "ebin/packager.app", "include/empty", "lib/skelerl.rb", "setup.rb", "skelerl.gemspec", "src/packager.erl", "tasks/deployment.rake", "tasks/environment.rake", "tasks/skelerl.rake", "tasks/website.rake"]
+  s.files = ["History.txt", "Manifest.txt", "README.txt", "Rakefile", "app_generators/appfile/USAGE", "app_generators/appfile/appfile_generator.rb", "app_generators/appfile/templates/appfile.app", "app_generators/gen_server/USAGE", "app_generators/gen_server/gen_server_generator.rb", "app_generators/gen_server/templates/gen_server.erl", "bin/appfile", "bin/build-app", "bin/erl_runner", "bin/gen_server", "config/hoe.rb", "config/requirements.rb", "ebin/packager.app", "examples/example_runner.rb", "include/empty", "lib/skelerl.rb", "lib/skelerl/core/object.rb", "lib/skelerl/erlpers/core/array.rb", "lib/skelerl/erlpers/core/object.rb", "lib/skelerl/erlpers/erl_mapper.rb", "lib/skelerl/erlpers/mappers/command.rb", "lib/skelerl/erlpers/mappers/context.rb", "lib/skelerl/erlpers/mappers/namespace.rb", "lib/skelerl/init.rb", "script/generate", "setup.rb", "skelerl.gemspec", "src/packager.erl", "tasks/build.rake", "tasks/deployment.rake", "tasks/environment.rake", "tasks/generate.rake", "tasks/website.rake", "test/erlpers/erl_mapper_spec.rb", "test/erlpers/object_spec.rb", "test/helper.rb"]
   s.has_rdoc = true
   s.homepage = %q{http://skelerl.rubyforge.org}
   s.post_install_message = %q{}
   s.rdoc_options = ["--main", "README.txt"]
   s.require_paths = ["lib"]
   s.rubyforge_project = %q{skelerl}
-  s.rubygems_version = %q{1.2.0}
+  s.rubygems_version = %q{1.3.1}
   s.summary = %q{This skeleton app takes care of everything you'd need in an erlang application, but don't want to do yourself... hopefully.}
 
   if s.respond_to? :specification_version then
     current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
     s.specification_version = 2
 
-    if current_version >= 3 then
-      s.add_development_dependency(%q<hoe>, [">= 1.8.2"])
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<hoe>, [">= 1.8.0"])
     else
-      s.add_dependency(%q<hoe>, [">= 1.8.2"])
+      s.add_dependency(%q<hoe>, [">= 1.8.0"])
     end
   else
-    s.add_dependency(%q<hoe>, [">= 1.8.2"])
+    s.add_dependency(%q<hoe>, [">= 1.8.0"])
   end
 end

data/tasks/{skelerl.rake → build.rake}

@@ -1,32 +1,62 @@
+# modified from http://21ccw.blogspot.com/2008/04/using-rake-for-erlang-unit-testing.html
 require 'rake/clean'
+require 'pp'
 
-INCLUDE = "include"
+INCLUDE    = File.dirname(__FILE__) + "/include"
 ERLC_FLAGS = "-I#{INCLUDE} +warn_unused_vars +warn_unused_import"
 
-SRC = FileList['src/*.erl']
-OBJ = SRC.pathmap("%{src,ebin}X.beam")
-CLEAN.include("ebin/*.beam")
+SRC        = FileList['src/*.erl']
+SRC_OBJ    = SRC.pathmap("%{src,ebin}X.beam")
+
+TEST       = FileList['test/src/*.erl']
+TEST_OBJ   = TEST.pathmap("%{src,ebin}X.beam")
+
+CLEAN.include("ebin/*.beam", "test/ebin/*.beam")
 
 directory 'ebin'
+directory 'test/ebin'
+
+rule( ".beam" => ["%{ebin,src}X.erl"] ) do |t|
+  testing  = t.source =~ /test\// ? true : false
+  eunit    = testing ? "-D EUNIT "  : ""
+  ebin_dir = testing ? "test/ebin"  : "ebin"
+  cmd = "erlc #{eunit}-pa ebin -W #{ERLC_FLAGS} -o #{ebin_dir} #{t.source}"
+  puts cmd
+  sh cmd
+end
+
+desc "Compile everything"
+task :compile   => ["src:compile", "test:compile"]
+task :recompile => ["clean", "src:compile", "test:compile"]
 
-rule ".beam" =>  ["%{ebin,src}X.erl"] do |t|
-  sh "erlc -pa ebin -W #{ERLC_FLAGS} -o ebin #{t.source}"
+namespace :src do
+  desc "Compile src"
+  task :compile => ['ebin'] + SRC_OBJ
 end
 
-task :default => :compile
+namespace :test do
+  desc "Compile tests"
+  task :compile => ['test/ebin'] + TEST_OBJ
+end
 
-desc "Run the tests"
-task :run_tests => [:compile] do
-  OBJ.each do |obj|
+desc "Run all tests"
+task :run_tests => :compile do
+  puts "Modules under test:"
+  TEST_OBJ.each do |obj|
     obj[%r{.*/(.*).beam}]
     mod = $1
-    test_output = `erl -pa ebin -run #{mod} test -run init stop`
+    test_cmd = "erl -pa ebin -pa test/ebin -run #{mod} test -run init stop"
+    test_output = `#{test_cmd}`
+    
+    puts test_output if Rake.application.options.trace
 
     if /\*failed\*/ =~ test_output
       test_output[/(Failed.*Aborted.*Skipped.*Succeeded.*$)/]
     else
       test_output[/1>\s*(.*)\n/]
     end
+
+    puts "#{mod}: #{$1}"
   end
 end
 
@@ -39,9 +69,6 @@ end
 desc "Recompile the sources"
 task :recompile => [:clean, :compile]
 
-desc "Compile all the sources"
-task :compile => ['ebin'] + OBJ
-
 desc "Compile with the DEBUG flag set to true"
 task :compile_debug do
   Dir["#{::File.dirname(__FILE__)}/src/*.erl"].each do |t|
@@ -65,10 +92,4 @@ desc "Rebuild and repackage"
 task :repackage => [:build_boot_scripts] do  
   cmd = "erl -pa ./ebin -s packager start -s init stop"
   Kernel.system cmd
-end
-
-desc "Install messenger"
-task :install_messenger do
-  cmd = "erl -pa ./ebin/ -run packager install_messenger #{@version} -run init stop -noshell"
-  Kernel.system cmd
 end

data/tasks/deployment.rake

@@ -34,7 +34,7 @@ namespace :manifest do
 end
 
 desc "Generate gemspec"
-task :gemspec  => [:"manifest:refresh", :package] do |t|
+task :gemspec  => [:"manifest:refresh"] do |t|
   res = %x[rake debug_gem]
   res = res.split("\n")[1..-1].join("\n")
   ::File.open("#{GEM_NAME.downcase}.gemspec", "w+") do |f|

data/tasks/generate.rake

@@ -0,0 +1,5 @@
+desc "Generate a basic app file"
+task :appfile do
+  @name = ENV["NAME"].empty? ? ::File.basename(::File.dirname( root_dir )) : ENV["NAME"]
+  Kernel.system "#{::File.dirname(__FILE__)}/../bin/appfile #{@name}"
+end

data/test/erlpers/erl_mapper_spec.rb

@@ -0,0 +1,113 @@
+require "#{File.dirname(__FILE__)}/../helper"
+
+class ErlMapperTest < Test::Unit::TestCase
+  context "ErlMapper" do    
+    context "methods" do
+      
+      context "options" do
+        
+        setup do;@mapper = ErlMapper.new do;a "a";b = nil;end;end
+        describe "passed in with a hash" do
+          it "should set the option on the ErlMapper" do;@mapper.a.should == "a";end
+          it "should not set the option when passed a nil value" do;@mapper.b.should == nil;end
+        end
+        describe "passed in on the block" do          
+          it "should set the option on the ErlMapper" do;@mapper.a.should == "a";end
+          it "should not set the option when passed a nil value" do;@mapper.b.should == nil;end
+        end
+      end
+      
+      context "with_node" do
+        setup do;@mapper = ErlMapper.new do;with_node(:node0) do; "hi";end;end;end
+        describe "on call" do
+          it "should create a MappingContext" do
+            assert_equal @mapper.with_node(:node0).class, MappingContext
+          end
+          it "should store the MappingContext's name" do
+            assert_equal @mapper.with_node(:node0).sname, :node0
+          end
+          it "should append the name to the MappingContext's string" do
+            assert_equal @mapper.with_node(:node0).build_string.strip, "erl -sname node0 -pa ./ebin"
+          end
+          
+          context "context" do
+            setup do;@context = @mapper.with_node(:node0) do;start;end;end
+            
+            describe "with start_commands" do            
+              it "should have the start_commands on the MappingContext" do              
+                assert_equal @context.commands.flatten, ["start"]
+              end
+              it "should have multiple when multiple are called" do
+                @context.instance_eval do
+                  chordjerl_srv.start_link
+                end
+                assert_equal ["start","chordjerl_srv","start_link"], @context.commands.flatten
+              end
+              it "should include arguments" do
+                @context = @mapper.with_node(:node0) do
+                  dark.and_stormy "night"
+                end
+                assert_equal [["dark",["and_stormy","night"]]], @context.commands
+              end
+              it "should build the commands with 1 -s" do
+                @context = @mapper.with_node(:node0, :stop => false) do
+                  everything.but_the "sink"
+                end
+                assert_equal "erl -sname node0 -pa ./ebin -s everything but_the sink", @context.string
+              end
+              it "should build the commands without an argument" do
+                @context = @mapper.with_node(:node0, :stop => false) do
+                  once.in_a_lifetime
+                end
+                assert_equal "erl -sname node0 -pa ./ebin -s once in_a_lifetime", @context.string
+              end
+            end
+            
+            describe "with final_commands" do
+              it "should have the default final_commands as -s init stop" do
+                assert_equal @context.final_commands, "-s init stop"
+              end
+              it "should not have the final_commands with stop if stop is false" do
+                cont = MappingContext.new :node1, {:stop => false} do                  
+                end
+                assert_equal cont.final_commands, ""
+              end
+              it "with stop if stop is true" do
+                cont = MappingContext.new :node2, {:stop => true} do                  
+                end
+                assert_equal cont.final_commands, "-s init stop"
+              end
+            end
+            
+          end
+          
+        end
+      end
+    end
+    
+    context "Namespace" do
+      setup do
+        @namespace = Namespace.new("chordjerl_srv") do
+          start
+        end
+      end
+      it "should keep the namespace on the command" do
+        assert_equal "erl -s chordjerl_srv:start", @namespace.string
+      end
+    end
+    
+    describe "Called from an object" do
+      setup do
+        @o = Object.new
+      end
+      
+      it "should not fail" do
+        blk = Proc.new {}
+        lambda {@o.erlang(&blk)}.should_not raise_error
+      end
+      
+    end    
+    
+  end
+  
+end

data/test/erlpers/object_spec.rb

@@ -0,0 +1,26 @@
+require "#{File.dirname(__FILE__)}/../helper"
+
+class ObjectTest < Test::Unit::TestCase
+  context "Object" do
+    setup do
+      @o = Object.new
+    end
+    
+    context "for method erlang" do
+      should "respond to :erlang" do
+        assert_respond_to @o, :erlang
+      end
+      
+      should "create a new ErlMapper" do
+        blk = Proc.new {}
+        assert_equal ErlMapper, @o.erlang(&blk).class
+      end
+      
+      should "not create a new ErlMapper if there is no block passed" do
+        assert_equal @o.erlang, nil
+      end
+    end    
+    
+  end
+  
+end

data/test/helper.rb

@@ -0,0 +1,10 @@
+$:.unshift "#{::File.dirname(__FILE__)}/../lib"
+require "rubygems"
+
+require 'test/unit'
+require 'matchy'
+require 'context'
+
+require "skelerl"
+
+testing true

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: auser-skelerl
 version: !ruby/object:Gem::Version 
-  version: 0.0.1
+  version: 0.0.2
 platform: ruby
 authors: 
 - Ari Lerner
@@ -9,8 +9,8 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-01-21 00:00:00 -08:00
-default_executable: build-app
+date: 2009-02-04 00:00:00 -08:00
+default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
   name: hoe
@@ -19,13 +19,16 @@ dependencies:
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        version: 1.8.2
+        version: 1.8.0
     version: 
 description: This skeleton app takes care of everything you'd need in an erlang application, but don't want to do yourself... hopefully.
 email: 
 - arilerner@mac.com
 executables: 
+- appfile
 - build-app
+- erl_runner
+- gen_server
 extensions: []
 
 extra_rdoc_files: 
@@ -37,19 +40,42 @@ files:
 - Manifest.txt
 - README.txt
 - Rakefile
+- app_generators/appfile/USAGE
+- app_generators/appfile/appfile_generator.rb
+- app_generators/appfile/templates/appfile.app
+- app_generators/gen_server/USAGE
+- app_generators/gen_server/gen_server_generator.rb
+- app_generators/gen_server/templates/gen_server.erl
+- bin/appfile
 - bin/build-app
+- bin/erl_runner
+- bin/gen_server
 - config/hoe.rb
 - config/requirements.rb
 - ebin/packager.app
+- examples/example_runner.rb
 - include/empty
 - lib/skelerl.rb
+- lib/skelerl/core/object.rb
+- lib/skelerl/erlpers/core/array.rb
+- lib/skelerl/erlpers/core/object.rb
+- lib/skelerl/erlpers/erl_mapper.rb
+- lib/skelerl/erlpers/mappers/command.rb
+- lib/skelerl/erlpers/mappers/context.rb
+- lib/skelerl/erlpers/mappers/namespace.rb
+- lib/skelerl/init.rb
+- script/generate
 - setup.rb
 - skelerl.gemspec
 - src/packager.erl
+- tasks/build.rake
 - tasks/deployment.rake
 - tasks/environment.rake
-- tasks/skelerl.rake
+- tasks/generate.rake
 - tasks/website.rake
+- test/erlpers/erl_mapper_spec.rb
+- test/erlpers/object_spec.rb
+- test/helper.rb
 has_rdoc: true
 homepage: http://skelerl.rubyforge.org
 post_install_message: ""