pallet-ops 0.0.1

data/.bnsignore

@@ -0,0 +1,22 @@
+# The list of files that should be ignored by Mr Bones.
+# Lines that start with '#' are comments.
+#
+# A .gitignore file can be used instead by setting it as the ignore
+# file in your Rakefile:
+#
+#   Bones {
+#     ignore_file  '.gitignore'
+#   }
+#
+# For a project with a C extension, the following would be a good set of
+# exclude patterns (uncomment them if you want to use them):
+# *.[oa]
+# *~
+announcement.txt
+coverage
+doc
+pkg
+project.clj
+notes.txt
+src
+test/pallet/*.clj

data/.gitignore

@@ -0,0 +1,6 @@
+lib/*.jar
+ext/*.jar
+classes
+pkg
+logs
+notes.txt

data/History.txt

@@ -0,0 +1,4 @@
+== 1.0.0 / 2010-10-31
+
+* 1 major enhancement
+  * Birthday!

data/README.txt

@@ -0,0 +1,48 @@
+pallet-jruby
+    by Hugo Duncan
+    FIXME (url)
+
+== DESCRIPTION:
+
+A gem for using pallet
+
+== FEATURES/PROBLEMS:
+
+* FIXME (list of features or problems)
+
+== SYNOPSIS:
+
+  FIXME (code sample of usage)
+
+== REQUIREMENTS:
+
+* FIXME (list of requirements)
+
+== INSTALL:
+
+* FIXME (sudo gem install, anything else)
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2009, 2010 FIXME (different license?)
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,17 @@
+
+begin
+  require 'bones'
+rescue LoadError
+  abort '### Please install the "bones" gem ###'
+end
+
+task :default => 'test:run'
+task 'gem:release' => 'test:run'
+
+Bones {
+  name  'pallet-ops'
+  authors  'Hugo Duncan'
+  email    'pallet@cloudhoist.org'
+  url      'http://github.com/hugoduncan/pallet-jruby'
+}
+

data/bin/pallet

@@ -0,0 +1,6 @@
+#!/usr/bin/env jruby
+require 'yaml'
+require 'rubygems'
+require 'pallet-ops'
+
+PalletOps::main(ARGV)

data/lib/log4j.xml

@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<!DOCTYPE log4j:configuration SYSTEM "log4j.dtd">
+
+<log4j:configuration xmlns:log4j="http://jakarta.apache.org/log4j/">
+  <appender name="console" class="org.apache.log4j.ConsoleAppender">
+    <param name="Target" value="System.out"/>
+    <param name="Threshold" value="INFO" />
+    <layout class="org.apache.log4j.PatternLayout">
+      <param name="ConversionPattern" value="%-5p %c{1} - %m%n"/>
+    </layout>
+  </appender>
+
+  <appender name="COMPUTEFILE" class="org.apache.log4j.DailyRollingFileAppender">
+    <param name="File" value="logs/jclouds-compute.log" />
+    <param name="Append" value="true" />
+    <param name="DatePattern" value="'.'yyyy-MM-dd" />
+    <param name="Threshold" value="TRACE" />
+    <layout class="org.apache.log4j.PatternLayout">
+      <param name="ConversionPattern" value="%d %-5p [%c] (%t) %m%n" />
+    </layout>
+  </appender>
+
+  <appender name="WIREFILE" class="org.apache.log4j.DailyRollingFileAppender">
+    <param name="File" value="logs/jclouds-wire.log" />
+    <param name="Append" value="true" />
+
+    <!-- Rollover at midnight each day -->
+    <param name="DatePattern" value="'.'yyyy-MM-dd" />
+
+    <param name="Threshold" value="TRACE" />
+
+    <layout class="org.apache.log4j.PatternLayout">
+      <!-- The default pattern: Date Priority [Category] Message\n -->
+      <param name="ConversionPattern" value="%d %-5p [%c] (%t) %m%n" />
+
+      <!--
+          The full pattern: Date MS Priority [Category]
+          (Thread:NDC) Message\n <param name="ConversionPattern"
+          value="%d %-5r %-5p [%c] (%t:%x) %m%n"/>
+      -->
+    </layout>
+  </appender>
+
+  <appender name="PALLETFILE" class="org.apache.log4j.DailyRollingFileAppender">
+    <param name="File" value="logs/pallet.log" />
+    <param name="Append" value="true" />
+    <param name="DatePattern" value="'.'yyyy-MM-dd" />
+    <param name="Threshold" value="TRACE" />
+    <layout class="org.apache.log4j.PatternLayout">
+      <param name="ConversionPattern" value="%d %-5p [%c] (%t) %m%n" />
+    </layout>
+  </appender>
+
+  <appender name="CLOUDHOISTFILE" class="org.apache.log4j.DailyRollingFileAppender">
+    <param name="File" value="logs/cloudhoist.log" />
+    <param name="Append" value="true" />
+    <param name="DatePattern" value="'.'yyyy-MM-dd" />
+    <param name="Threshold" value="TRACE" />
+    <layout class="org.apache.log4j.PatternLayout">
+      <param name="ConversionPattern" value="%d %-5p [%c] (%t) %m%n" />
+    </layout>
+  </appender>
+
+  <appender name="ASYNCCOMPUTE" class="org.apache.log4j.AsyncAppender">
+    <appender-ref ref="COMPUTEFILE" />
+  </appender>
+
+  <appender name="ASYNCWIRE" class="org.apache.log4j.AsyncAppender">
+    <appender-ref ref="WIREFILE" />
+  </appender>
+
+  <appender name="ASYNCCLOUDHOIST" class="org.apache.log4j.AsyncAppender">
+    <appender-ref ref="CLOUDHOISTFILE" />
+  </appender>
+
+  <category name="jclouds.headers">
+    <priority value="DEBUG" />
+    <appender-ref ref="ASYNCWIRE" />
+  </category>
+
+  <category name="jclouds.wire">
+    <priority value="DEBUG" />
+    <appender-ref ref="ASYNCWIRE" />
+  </category>
+
+  <category name="jclouds.compute">
+    <priority value="TRACE" />
+    <appender-ref ref="ASYNCCOMPUTE" />
+    <appender-ref ref="console" />
+  </category>
+
+  <category name="pallet">
+    <priority value="TRACE" />
+    <appender-ref ref="PALLETFILE" />
+  </category>
+
+  <category name="com.cloudhoist">
+    <priority value="TRACE" />
+    <appender-ref ref="ASYNCCLOUDHOIST" />
+  </category>
+
+  <category name="jclouds.ssh">
+    <priority value="DEBUG" />
+    <appender-ref ref="ASYNCCOMPUTE" />
+  </category>
+
+  <root>
+    <priority value ="info" />
+    <appender-ref ref="console" />
+  </root>
+
+
+
+</log4j:configuration>

data/lib/pallet-ops.rb

@@ -0,0 +1,25 @@
+PALLET_HOME = File.expand_path(File.dirname(__FILE__) + '/..') unless defined?(PALLET_HOME)
+
+require 'java'
+require 'pallet-ops/clojure'
+require 'pallet-ops/compute'
+
+module PalletOps
+
+  def self.compute_service(options)
+    # PalletOps::Compute.new(
+    #   PalletOps::Clojure::COMPUTE_SERVICE.invoke(
+    #     "",
+    #     PalletOps::Clojure::IDENTITY, "",
+    #     PalletOps::Clojure::CREDENTIAL, ""))
+  end
+
+  def self.main(args)
+    config = PalletOps::Compute::load_config
+    if config
+      args.concat(["-defaults", PalletOps::Clojure::KW_MAP_STR.invoke(config)])
+    end
+    PalletOps::Clojure::APPLY.invoke(PalletOps::Clojure::MAIN, args)
+  end
+end
+

data/lib/pallet-ops/clojure.rb

@@ -0,0 +1,42 @@
+# Require all jar files, and include clojure.lang.RT
+include Java::JRuby
+
+Dir[PALLET_HOME+"/ext/*.jar"].each { |jar|
+  JRuby.runtime.jruby_class_loader.addURL(java.io.File.new(jar).to_url)
+}
+
+module PalletOps
+  module Clojure
+    REQUIRE = Java::clojure::lang::RT.var("clojure.core","require")
+    SYMBOL = Java::clojure::lang::RT.var("clojure.core","symbol")
+    EVAL = Java::clojure::lang::RT.var("clojure.core","eval")
+    APPLY = Java::clojure::lang::RT.var("clojure.core","apply")
+    READ_STRING = Java::clojure::lang::RT.var("clojure.core","read-string")
+    KEYWORD = Java::clojure::lang::RT.var("clojure.core","keyword")
+    PR_STR = Java::clojure::lang::RT.var("clojure.core","pr-str")
+
+    REQUIRE.invoke(SYMBOL.invoke("pallet.main"))
+    REQUIRE.invoke(SYMBOL.invoke("pallet.core"))
+    REQUIRE.invoke(SYMBOL.invoke("pallet.compute"))
+    REQUIRE.invoke(SYMBOL.invoke("pallet.compute.jclouds"))
+    REQUIRE.invoke(SYMBOL.invoke("pallet.blobstore.jclouds"))
+    REQUIRE.invoke(SYMBOL.invoke("pallet.jruby"))
+
+    KW_MAP_STR = Java::clojure::lang::RT.var("pallet.jruby","kw-map-str")
+    COMPUTE_SERVICE_FROM_MAP = Java::clojure::lang::RT.var("pallet.compute",
+                                                           "compute-service-from-map")
+    COMPUTE_SERVICE = Java::clojure::lang::RT.var("pallet.compute", "compute-service")
+    COMPUTE_NODES = Java::clojure::lang::RT.var("pallet.compute", "nodes")
+    CORE_LIFT = Java::clojure::lang::RT.var("pallet.core", "lift")
+    MAIN = Java::clojure::lang::RT.var("pallet.main", "-main")
+
+    IDENTITY = PalletOps::Clojure::KEYWORD.invoke("identity")
+    CREDENTIAL = PalletOps::Clojure::KEYWORD.invoke("credential")
+
+    def self.clj_eval(s)
+      cmd=Java::clojure::lang::RT.readString(s)
+      eval=Java::clojure::lang::RT.var("clojure.core","eval")
+      eval.invoke(cmd)
+    end
+  end
+end

data/lib/pallet-ops/compute.rb

@@ -0,0 +1,26 @@
+require 'yaml'
+require 'pallet-ops/clojure'
+
+module PalletOps
+  class Compute
+    attr_accessor :service
+
+    def initialize(service)
+      self.service = service
+    end
+
+    def nodes
+      PalletOps::Clojure::COMPUTE_NODES.invoke(self.service)
+    end
+
+    def self.load_config
+      config = File.join(Java::java::lang::System.getProperty("user.home"),
+                         ".pallet","config.yml")
+      begin
+        YAML.load_file(config)
+      rescue
+        nil
+      end
+    end
+  end
+end

data/spec/log4j.xml

@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<!DOCTYPE log4j:configuration SYSTEM "log4j.dtd">
+
+<log4j:configuration xmlns:log4j="http://jakarta.apache.org/log4j/">
+  <appender name="console" class="org.apache.log4j.ConsoleAppender">
+    <param name="Target" value="System.out"/>
+    <param name="Threshold" value="INFO" />
+    <layout class="org.apache.log4j.PatternLayout">
+      <param name="ConversionPattern" value="%-5p %c{1} - %m%n"/>
+    </layout>
+  </appender>
+
+  <appender name="COMPUTEFILE" class="org.apache.log4j.DailyRollingFileAppender">
+    <param name="File" value="logs/jclouds-compute.log" />
+    <param name="Append" value="true" />
+    <param name="DatePattern" value="'.'yyyy-MM-dd" />
+    <param name="Threshold" value="TRACE" />
+    <layout class="org.apache.log4j.PatternLayout">
+      <param name="ConversionPattern" value="%d %-5p [%c] (%t) %m%n" />
+    </layout>
+  </appender>
+
+  <appender name="WIREFILE" class="org.apache.log4j.DailyRollingFileAppender">
+    <param name="File" value="logs/jclouds-wire.log" />
+    <param name="Append" value="true" />
+
+    <!-- Rollover at midnight each day -->
+    <param name="DatePattern" value="'.'yyyy-MM-dd" />
+
+    <param name="Threshold" value="TRACE" />
+
+    <layout class="org.apache.log4j.PatternLayout">
+      <!-- The default pattern: Date Priority [Category] Message\n -->
+      <param name="ConversionPattern" value="%d %-5p [%c] (%t) %m%n" />
+
+      <!--
+          The full pattern: Date MS Priority [Category]
+          (Thread:NDC) Message\n <param name="ConversionPattern"
+          value="%d %-5r %-5p [%c] (%t:%x) %m%n"/>
+      -->
+    </layout>
+  </appender>
+
+  <appender name="PALLETFILE" class="org.apache.log4j.DailyRollingFileAppender">
+    <param name="File" value="logs/pallet.log" />
+    <param name="Append" value="true" />
+    <param name="DatePattern" value="'.'yyyy-MM-dd" />
+    <param name="Threshold" value="TRACE" />
+    <layout class="org.apache.log4j.PatternLayout">
+      <param name="ConversionPattern" value="%d %-5p [%c] (%t) %m%n" />
+    </layout>
+  </appender>
+
+  <appender name="CLOUDHOISTFILE" class="org.apache.log4j.DailyRollingFileAppender">
+    <param name="File" value="logs/cloudhoist.log" />
+    <param name="Append" value="true" />
+    <param name="DatePattern" value="'.'yyyy-MM-dd" />
+    <param name="Threshold" value="TRACE" />
+    <layout class="org.apache.log4j.PatternLayout">
+      <param name="ConversionPattern" value="%d %-5p [%c] (%t) %m%n" />
+    </layout>
+  </appender>
+
+  <appender name="ASYNCCOMPUTE" class="org.apache.log4j.AsyncAppender">
+    <appender-ref ref="COMPUTEFILE" />
+  </appender>
+
+  <appender name="ASYNCWIRE" class="org.apache.log4j.AsyncAppender">
+    <appender-ref ref="WIREFILE" />
+  </appender>
+
+  <appender name="ASYNCCLOUDHOIST" class="org.apache.log4j.AsyncAppender">
+    <appender-ref ref="CLOUDHOISTFILE" />
+  </appender>
+
+  <category name="jclouds.headers">
+    <priority value="DEBUG" />
+    <appender-ref ref="ASYNCWIRE" />
+  </category>
+
+  <category name="jclouds.wire">
+    <priority value="DEBUG" />
+    <appender-ref ref="ASYNCWIRE" />
+  </category>
+
+  <category name="jclouds.compute">
+    <priority value="TRACE" />
+    <appender-ref ref="ASYNCCOMPUTE" />
+    <appender-ref ref="console" />
+  </category>
+
+  <category name="pallet">
+    <priority value="TRACE" />
+    <appender-ref ref="PALLETFILE" />
+  </category>
+
+  <category name="com.cloudhoist">
+    <priority value="TRACE" />
+    <appender-ref ref="ASYNCCLOUDHOIST" />
+  </category>
+
+  <category name="jclouds.ssh">
+    <priority value="DEBUG" />
+    <appender-ref ref="ASYNCCOMPUTE" />
+  </category>
+
+  <root>
+    <priority value ="info" />
+    <appender-ref ref="console" />
+  </root>
+
+
+
+</log4j:configuration>

data/spec/pallet-ops_spec.rb

@@ -0,0 +1,16 @@
+
+require File.join(File.dirname(__FILE__), %w[spec_helper])
+require 'pallet-ops'
+
+describe PalletOps do
+   it "evals" do
+    PalletOps::Clojure::clj_eval '(println "hello")'
+    service = PalletOps::compute_service({:a,1})
+    print service.nodes
+  end
+
+   it "should call main" do
+    PalletOps::main(["help"])
+  end
+end
+

data/spec/spec_helper.rb

@@ -0,0 +1,15 @@
+
+require File.expand_path(
+    File.join(File.dirname(__FILE__), %w[.. lib pallet-ops]))
+
+Spec::Runner.configure do |config|
+  # == Mock Framework
+  #
+  # RSpec uses it's own mocking framework by default. If you prefer to
+  # use mocha, flexmock or RR, uncomment the appropriate line:
+  #
+  # config.mock_with :mocha
+  # config.mock_with :flexmock
+  # config.mock_with :rr
+end
+

data/version.txt

@@ -0,0 +1 @@
+0.0.1

metadata

@@ -0,0 +1,156 @@
+--- !ruby/object:Gem::Specification 
+name: pallet-ops
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+    - 0
+    - 0
+    - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+  - Hugo Duncan
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-11-14 00:00:00 -05:00
+default_executable: 
+dependencies: 
+  - !ruby/object:Gem::Dependency 
+    name: bones
+    prerelease: false
+    requirement: &id001 !ruby/object:Gem::Requirement 
+      requirements: 
+        - - ">="
+          - !ruby/object:Gem::Version 
+            segments: 
+              - 3
+              - 5
+              - 1
+            version: 3.5.1
+    type: :development
+    version_requirements: *id001
+description: A gem for using pallet
+email: pallet@cloudhoist.org
+executables: 
+  - pallet
+extensions: []
+
+extra_rdoc_files: 
+  - History.txt
+  - README.txt
+  - bin/pallet
+  - lib/log4j.xml
+  - version.txt
+files: 
+  - .bnsignore
+  - .gitignore
+  - History.txt
+  - README.txt
+  - Rakefile
+  - bin/pallet
+  - ext/aopalliance-1.0.jar
+  - ext/bcprov-jdk15-1.44.jar
+  - ext/classworlds-1.1-alpha-2.jar
+  - ext/clj-http-0.1.1.jar
+  - ext/clj-ssh-0.2.0.jar
+  - ext/clojure-1.2.0.jar
+  - ext/clojure-contrib-1.2.0.jar
+  - ext/commons-codec-1.4.jar
+  - ext/commons-io-1.4.jar
+  - ext/commons-logging-1.1.1.jar
+  - ext/enlive-1.0.0.jar
+  - ext/gson-1.5.jar
+  - ext/guava-r06.jar
+  - ext/guice-2.1-r1201.jar
+  - ext/httpclient-4.0.1.jar
+  - ext/httpcore-4.0.1.jar
+  - ext/inject-1.0.jar
+  - ext/java-xmlbuilder-0.3.jar
+  - ext/jclouds-all-1.0-SNAPSHOT.jar
+  - ext/jclouds-allblobstore-1.0-20101113.063119-132.jar
+  - ext/jclouds-allcompute-1.0-20101113.063119-133.jar
+  - ext/jclouds-atmos-1.0-20101113.063119-135.jar
+  - ext/jclouds-aws-1.0-20101113.063119-135.jar
+  - ext/jclouds-azure-1.0-20101113.063119-135.jar
+  - ext/jclouds-blobstore-1.0-beta-8.jar
+  - ext/jclouds-bluelock-1.0-20101113.063119-133.jar
+  - ext/jclouds-bouncycastle-1.0-beta-8.jar
+  - ext/jclouds-compute-1.0-beta-8.jar
+  - ext/jclouds-core-1.0-20101113.063119-141.jar
+  - ext/jclouds-enterprise-1.0-beta-8.jar
+  - ext/jclouds-filesystem-1.0-20101113.063119-97.jar
+  - ext/jclouds-gogrid-1.0-20101113.063119-133.jar
+  - ext/jclouds-joda-1.0-beta-8.jar
+  - ext/jclouds-jsch-1.0-SNAPSHOT.jar
+  - ext/jclouds-log4j-1.0-SNAPSHOT.jar
+  - ext/jclouds-rackspace-1.0-20101113.063119-135.jar
+  - ext/jclouds-rimuhosting-1.0-20101113.063119-134.jar
+  - ext/jclouds-scriptbuilder-1.0-beta-8.jar
+  - ext/jclouds-slicehost-1.0-20101113.063119-133.jar
+  - ext/jclouds-terremark-1.0-20101113.063119-133.jar
+  - ext/jclouds-vcloud-1.0-20101113.063119-133.jar
+  - ext/jersey-core-1.4-ea06.jar
+  - ext/joda-time-1.6.jar
+  - ext/jsch-0.1.42.jar
+  - ext/jsr250-api-1.0.jar
+  - ext/jsr305-1.3.9.jar
+  - ext/junit-3.8.1.jar
+  - ext/log4j-1.2.14.jar
+  - ext/maven-model-2.0.10.jar
+  - ext/maven-settings-2.0.10.jar
+  - ext/oauth-20100527.jar
+  - ext/pallet-0.3.0-SNAPSHOT.jar
+  - ext/pallet-jruby-0.1.0-SNAPSHOT.jar
+  - ext/plexus-container-default-1.0-alpha-9-stable-1.jar
+  - ext/plexus-interpolation-1.1.jar
+  - ext/plexus-utils-1.5.5.jar
+  - ext/tagsoup-1.2.jar
+  - lib/log4j.xml
+  - lib/pallet-ops.rb
+  - lib/pallet-ops/clojure.rb
+  - lib/pallet-ops/compute.rb
+  - logs/cloudhoist.log
+  - logs/jclouds-compute.log
+  - logs/jclouds-wire.log
+  - logs/pallet.log
+  - spec/log4j.xml
+  - spec/pallet-ops_spec.rb
+  - spec/spec_helper.rb
+  - test/test_pallet-jruby.rb
+  - version.txt
+has_rdoc: true
+homepage: http://github.com/hugoduncan/pallet-jruby
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+  - --main
+  - README.txt
+require_paths: 
+  - lib
+  - ext
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+          - 0
+        version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+          - 0
+        version: "0"
+requirements: []
+
+rubyforge_project: pallet-ops
+rubygems_version: 1.3.6
+signing_key: 
+specification_version: 3
+summary: A gem for using pallet
+test_files: 
+  - test/test_pallet-jruby.rb