auser-skelerl 0.0.4 → 0.0.5

data/skelerl.gemspec

@@ -1,36 +0,0 @@
-# -*- encoding: utf-8 -*-
-
-Gem::Specification.new do |s|
-  s.name = %q{skelerl}
-  s.version = "0.0.4"
-
-  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
-  s.authors = ["Ari Lerner"]
-  s.date = %q{2009-02-09}
-  s.description = %q{This skeleton app takes care of everything you'd need in an erlang application, but don't want to do yourself... Check out the README for more!   Mon Feb 09 18:49:15 -0800 2009}
-  s.email = ["arilerner@mac.com"]
-  s.executables = ["gen_server", "skelerl"]
-  s.extra_rdoc_files = ["History.txt", "Manifest.txt", "README.txt", "generators/skeleton/templates/README.txt"]
-  s.files = ["History.txt", "Manifest.txt", "README.txt", "Rakefile", "bin/gen_server", "bin/skelerl", "config/hoe.rb", "config/requirements.rb", "ebin/packager.app", "examples/example_runner.rb", "generators/appfile/USAGE", "generators/appfile/appfile_generator.rb", "generators/appfile/templates/appfile.app", "generators/gen_server/USAGE", "generators/gen_server/gen_server_generator.rb", "generators/gen_server/templates/gen_server.erl", "generators/skeleton/USAGE", "generators/skeleton/skeleton_generator.rb", "generators/skeleton/templates/README.txt", "generators/skeleton/templates/Rakefile", "generators/skeleton/templates/gitignore", "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.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... Check out the README for more!   Mon Feb 09 18:49:15 -0800 2009}
-
-  if s.respond_to? :specification_version then
-    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
-    s.specification_version = 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.0"])
-    end
-  else
-    s.add_dependency(%q<hoe>, [">= 1.8.0"])
-  end
-end

data/src/packager.erl

@@ -1,75 +0,0 @@
--module (packager).
--compile(export_all).
--behaviour(application).
-
-%% Application callbacks
--export([start/1, start/2, stop/1]).
-
-start(Name) -> 
-	[N,V] = Name,
-	start(N, V).
-%%====================================================================
-%% Application callbacks
-%%====================================================================
-%%--------------------------------------------------------------------
-%% Function: start(Type, StartArgs) -> {ok, Pid} |
-%%                                     {ok, Pid, State} |
-%%                                     {error, Reason}
-%% Description: This function is called whenever an application
-%% is started using application:start/1,2, and should start the processes
-%% of the application. If the application is structured according to the
-%% OTP design principles as a supervision tree, this means starting the
-%% top supervisor of the tree.
-%%--------------------------------------------------------------------
-start(Name, Version) -> 	
-	recompile_scripts(Name, Version).
-
-%%--------------------------------------------------------------------
-%% Function: stop(State) -> void()
-%% Description: This function is called whenever an application
-%% has stopped. It is intended to be the opposite of Module:start/2 and
-%% should do any necessary cleaning up. The return value is ignored.
-%%--------------------------------------------------------------------
-stop(_State) ->
-  ok.
-
-%%====================================================================
-%% Internal functions
-%%====================================================================
-
-gen_rel(Name, Vers) ->
-		RelName = gen_rel_name(Name, Vers),
-    F = lists:append(["{release, {\"",Name,"\",\"",Vers,"\"}, ",
-                      "{erts,\"",erlang:system_info(version),"\"},"
-                      "[{kernel,\"",get_vsn(kernel),"\"},",
-                      "{stdlib,\"",get_vsn(stdlib),"\"},",
-                      "{inets,\"",get_vsn(inets),"\"},",
-                      "{crypto,\"",get_vsn(crypto),"\"},",
-                      "{sasl,\"",get_vsn(sasl),"\"},",
-                      "{",Name,",\"",Vers,"\"}]}."]),
-	file:write_file( lists:append(["ebin/", RelName, ".rel"]),F).
-
-% Recompiles the boot scripts
-recompile_scripts(Name, Vers) ->
-	gen_rel(Name, Vers),
-	ScriptName = gen_rel_name(Name, Vers),
-	systools:make_script(ScriptName, [local,{path,["ebin"]}]).
-
-package_scripts(Name, Vers) ->
-	ScriptName = lists:append(["ebin/", gen_rel_name(Name, Vers)]),
-	systools:make_tar(ScriptName).
-
-get_vsn(Module) ->
-    AppFile = code:lib_dir(Module)++"/ebin/"++atom_to_list(Module)++".app",
-    {ok,[{application,_App,Attrs}]} = file:consult(AppFile),
-    {value,{vsn,Vsn}} = lists:keysearch(vsn,1,Attrs),
-    Vsn.
-
-gen_rel_name(Name, Vers) -> lists:append([Name,"_rel-",Vers]).
-
-install_messenger(Vers) ->
-	Root = code:root_dir(),
-	io:format("~p root: "++Root, [Vers]),
-	ok.
-
-% Tests

data/tasks/deployment.rake

@@ -1,43 +0,0 @@
-desc 'Release the website and new gem version'
-task :deploy => [:check_version, :website, :release] do
-  puts "Remember to create SVN tag:"
-  puts "svn copy svn+ssh://#{rubyforge_username}@rubyforge.org/var/svn/#{PATH}/trunk " +
-    "svn+ssh://#{rubyforge_username}@rubyforge.org/var/svn/#{PATH}/tags/REL-#{VERS} "
-  puts "Suggested comment:"
-  puts "Tagging release #{CHANGES}"
-end
-
-desc 'Runs tasks website_generate and install_gem as a local deployment of the gem'
-task :local_deploy => [:website_generate, :install_gem]
-
-task :check_version do
-  unless ENV['VERSION']
-    puts 'Must pass a VERSION=x.y.z release version'
-    exit
-  end
-  unless ENV['VERSION'] == VERS
-    puts "Please update your version.rb to match the release version, currently #{VERS}"
-    exit
-  end
-end
-
-desc 'Install the package as a gem, without generating documentation(ri/rdoc)'
-task :install_gem_no_doc => [:clean, :package] do
-  sh "#{'sudo ' unless Hoe::WINDOZE }gem install pkg/*.gem --no-rdoc --no-ri"
-end
-
-namespace :manifest do
-  desc 'Recreate Manifest.txt to include ALL files'
-  task :refresh do
-    `rake check_manifest | patch -p0 > Manifest.txt`
-  end
-end
-
-desc "Generate gemspec"
-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|
-    f << res
-  end
-end

data/test/erlpers/erl_mapper_spec.rb

@@ -1,113 +0,0 @@
-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

@@ -1,26 +0,0 @@
-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

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