peto 0.1.0

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,21 @@
+## MAC OS
+.DS_Store
+
+## TEXTMATE
+*.tmproj
+tmtags
+
+## EMACS
+*~
+\#*
+.\#*
+
+## VIM
+*.swp
+
+## PROJECT::GENERAL
+coverage
+rdoc
+pkg
+
+## PROJECT::SPECIFIC

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Toshiyuki Hirooka
+
+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/README.rdoc

@@ -0,0 +1,17 @@
+= peto
+
+Description goes here.
+
+== Note on Patches/Pull Requests
+ 
+* Fork the project.
+* Make your feature addition or bug fix.
+* Add tests for it. This is important so I don't break it in a
+  future version unintentionally.
+* Commit, do not mess with rakefile, version, or history.
+  (if you want to have your own version, that is fine but bump version in a commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.
+
+== Copyright
+
+Copyright (c) 2010 Toshiyuki Hirooka. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,53 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "peto"
+    gem.summary = %Q{contract code generator}
+    gem.description = %Q{contract code generator for multi-language}
+    gem.email = "toshi.hirooka@gmail.com"
+    gem.homepage = "http://github.com/tosik/peto"
+    gem.authors = ["Toshiyuki Hirooka"]
+    gem.add_development_dependency "thoughtbot-shoulda", ">= 0"
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/test_*.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+task :test => :check_dependencies
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "peto #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.1.0

data/bin/peto

@@ -0,0 +1,8 @@
+#!/bin/ruby
+
+require "peto"
+
+peto = Peto::Master.new
+peto.load(ARGV.first)
+puts peto.generate
+

data/examples/generated.rb

@@ -0,0 +1,151 @@
+require "peto/mixin/peto_class"
+require "peto/mixin/peto_errorable"
+
+module Peto
+  class TypeA
+    include PetoClass
+    def initialize(args={})
+      @foo = nil
+      @bar = nil
+      @baz = [] # for Fixnum
+
+      set_by_hash(args)
+      raise_errors unless valid?
+    end
+
+    attr_reader :foo
+    attr_reader :bar
+    attr_reader :baz
+
+    def members
+      [:foo,:bar,:baz]
+    end
+
+    def types
+      {:foo => Fixnum,:bar => String,:baz => Array}
+    end
+
+    def arrays
+      {:baz => Fixnum}
+    end
+  end
+  class TypeB
+    include PetoClass
+    def initialize(args={})
+      @foo = nil
+
+      set_by_hash(args)
+      raise_errors unless valid?
+    end
+
+    attr_reader :foo
+
+    def members
+      [:foo]
+    end
+
+    def types
+      {:foo => String}
+    end
+
+    def arrays
+      {}
+    end
+  end
+  class TypeC
+    include PetoClass
+    def initialize(args={})
+      @foo = [] # for String
+
+      set_by_hash(args)
+      raise_errors unless valid?
+    end
+
+    attr_reader :foo
+
+    def members
+      [:foo]
+    end
+
+    def types
+      {:foo => Array}
+    end
+
+    def arrays
+      {:foo => String}
+    end
+  end
+end
+
+module Peto
+  class Generating
+    extend PetoErrorable
+    def self.do_a(a,b,c)
+      invalid_type("a", Fixnum, a) unless a.class == Fixnum
+      invalid_type("b", String, b) unless b.class == String
+      invalid_type("c", TypeB, c) unless c.class == TypeB
+      raise_errors unless errors.empty?
+
+      return {
+        :procedure => "do_a",
+        :args => {
+          :a => hashize(a),
+          :b => hashize(b),
+          :c => hashize(c),
+        }
+      }
+    end
+
+    def self.do_a_error_not_found(message)
+      invalid_type("message", String, message) unless message.class == String
+      raise_errors unless errors.empty?
+
+      return {
+        :procedure => "do_a_error_not_found",
+        :args => {
+          :message => hashize(message),
+        }
+      }
+    end
+
+    def self.do_a_error_invalid_id(message)
+      invalid_type("message", String, message) unless message.class == String
+      raise_errors unless errors.empty?
+
+      return {
+        :procedure => "do_a_error_invalid_id",
+        :args => {
+          :message => hashize(message),
+        }
+      }
+    end
+
+    def self.do_b(a)
+      invalid_type("a", TypeA, a) unless a.class == TypeA
+      raise_errors unless errors.empty?
+
+      return {
+        :procedure => "do_b",
+        :args => {
+          :a => hashize(a),
+        }
+      }
+    end
+
+    def self.do_c()
+      raise_errors unless errors.empty?
+
+      return {
+        :procedure => "do_c",
+        :args => {
+        }
+      }
+    end
+
+
+    def self.hashize(var)
+      return var if [Fixnum, String].include?(var.class)
+      var.to_hash
+    end
+  end
+end

data/lib/peto/generator.rb

@@ -0,0 +1,68 @@
+
+require "erb"
+require "active_support/inflector"
+require "active_support/core_ext/array/access"
+require "pp"
+
+class String
+  def to_method_name
+    underscore.split(" ").join("_")
+  end
+  def to_class_type
+    case self
+    when "s32"
+      "Fixnum"
+    else
+      classify
+    end
+  end
+end
+
+module Peto
+  class Generator
+    def initialize(contract)
+      @contract = contract
+    end
+
+    def generate(template_filename)
+      erb = ERB.new(IO.read(template_filename), nil, "-")
+      erb.result(binding)
+    end
+
+
+    def class_name
+      @contract["name"].to_class_type
+    end
+
+    def args(string_args)
+      string_args.map do |str|
+        splitted = str.split(":")
+        arg(splitted.first, splitted.second, :array_type => splitted.third)
+      end
+    end
+
+    def arg(name, type, options={})
+      array_type = options.delete(:array_type)
+      {
+        :name => name,
+        :type => type.to_class_type,
+        :array_type => array_type.nil? ? nil : array_type.to_class_type,
+      }
+    end
+
+    def each_types
+      @contract["types"].each do |name, args|
+        yield name.to_class_type, args(args)
+      end
+    end
+
+    def each_procedures
+      @contract["procedures"].each do |name, procedure|
+        yield name.to_method_name, args(procedure["args"])
+        procedure["errors"].each do |error|
+          yield "#{name} error #{error}".to_method_name, [arg("message", "string")]
+        end
+      end
+    end
+  end
+end

data/lib/peto/master.rb

@@ -0,0 +1,17 @@
+require "pathname"
+require "yaml"
+require "peto/generator"
+
+module Peto
+  class Master
+    def load(filename)
+      @contract = YAML.load(IO.read(Pathname(filename)))
+    end
+    attr_reader :contract
+
+    def generate
+      Generator.new(@contract).generate("lib/templates/rb_procedures.erb")
+    end
+  end
+end
+

data/lib/peto/mixin/peto_class.rb

@@ -0,0 +1,40 @@
+require "peto/mixin/peto_errorable"
+
+module PetoClass
+  include PetoErrorable
+
+  def set_by_hash(hash)
+    hash.each do |key, value|
+      var = instance_variable_get("@#{key}")
+      invalid_type(key, types[key], value) unless value.class == types[key] || value.nil?
+      raise_errors unless errors.empty?
+      instance_variable_set("@#{key}", value)
+    end
+  end
+
+  def inspect
+    "#{self.class}(#{to_hash})"
+  end
+
+  def to_hash
+    inners = members.inject({}) {|result, member|
+      result[member] = instance_variable_get("@#{member}")
+      result
+    }
+  end
+
+  def valid?
+    to_hash.each do |key, value|
+      var = instance_variable_get("@#{key}")
+      invalid_type(key, types[key], value) unless value.class == types[key] || value.nil?
+    end
+
+    arrays.each do |array, klass|
+      var = instance_variable_get("@#{array}")
+      invalid_type(array, klass, var.first) unless var.empty? || var.first.class == klass
+    end
+
+    errors.empty?
+  end
+end
+

data/lib/peto/mixin/peto_errorable.rb

@@ -0,0 +1,17 @@
+module PetoErrorable
+  def errors
+    @errors ||= []
+  end
+
+  def add_error(error)
+    errors << error
+  end
+
+  def raise_errors
+    raise errors.join("\n")
+  end
+
+  def invalid_type(name, expect, real)
+    add_error(["invalid type : #{name}.class is expected #{expect}, but was #{real.class}"])
+  end
+end

data/lib/peto/rails/helper.rb

@@ -0,0 +1,22 @@
+
+require "active_support/inflector"
+
+module Peto
+  module RailsHelper
+    def contract
+      :procedures
+    end
+
+    def call_procedure_response(procedure_name, *args)
+      "Peto::#{contract.to_s.camelize}".constantize.send("#{procedure_name}", args.join(","))
+    end
+
+    def respond(*args)
+      call_procedure_response(:response, *args)
+    end
+
+    def error(error_name, *messages)
+      call_procedure_response("error_#{error_name}", messages.join(","))
+    end
+  end
+end

data/lib/peto.rb

@@ -0,0 +1,3 @@
+require "peto/master"
+require "peto/generator"
+

data/lib/templates/rb_procedures.erb

@@ -0,0 +1,67 @@
+require "peto/mixin/peto_class"
+require "peto/mixin/peto_errorable"
+
+module Peto
+  <%- each_types do |name, args| -%>
+  class <%= name %>
+    include PetoClass
+    def initialize(args={})
+      <%- args.each do |arg| -%>
+        <%- if arg[:array_type] -%>
+      @<%= arg[:name] %> = [] # for <%= arg[:array_type] %>
+        <%- else -%>
+      @<%= arg[:name] %> = nil
+        <%- end -%>
+      <%- end -%>
+
+      set_by_hash(args)
+      raise_errors unless valid?
+    end
+
+    <%- args.each do |arg| -%>
+    attr_reader :<%= arg[:name] %>
+    <%- end -%>
+
+    def members
+      [<%= args.map{|arg| ":#{arg[:name]}"}.join(",") %>]
+    end
+
+    def types
+      {<%= args.map{|arg| ":#{arg[:name]} => #{arg[:type]}"}.join(",") %>}
+    end
+
+    def arrays
+      {<%= args.select{|arg|arg[:array_type]}.map{|arg| ":#{arg[:name]} => #{arg[:array_type]}"}.join(",") %>}
+    end
+  end
+  <%- end -%>
+end
+
+module Peto
+  class <%= class_name %>
+    extend PetoErrorable
+    <%- each_procedures do |name, args| -%>
+    def self.<%= name %>(<%= args.map{|arg| arg[:name]}.join(",") %>)
+      <%- args.each do |arg| -%>
+      invalid_type("<%= arg[:name] %>", <%= arg[:type] %>, <%= arg[:name] %>) unless <%= arg[:name] %>.class == <%= arg[:type] %>
+      <%- end -%>
+      raise_errors unless errors.empty?
+
+      return {
+        :procedure => "<%=name%>",
+        :args => {
+          <%- args.each do |arg| -%>
+          :<%=arg[:name]%> => hashize(<%=arg[:name]%>),
+          <%- end -%>
+        }
+      }
+    end
+
+    <%- end -%>
+
+    def self.hashize(var)
+      return var if [Fixnum, String].include?(var.class)
+      var.to_hash
+    end
+  end
+end

data/test/contracts/generating.yml

@@ -0,0 +1,24 @@
+
+name: generating
+
+types:
+  type_a: [foo:s32, bar:string, baz:array:s32]
+  type_b: [foo:string]
+  type_c: [foo:array:string]
+
+procedures:
+  do_a:
+    args: [a:s32, b:string, c:type_b]
+    returns: [d:s32, e:type_a]
+    errors: [not found, invalid id]
+
+  do_b:
+    args: [a:type_a]
+    returns: []
+    errors: []
+
+  do_c:
+    args: []
+    returns: []
+    errors: []
+

data/test/contracts/loading.yml

@@ -0,0 +1,3 @@
+
+name: loading
+

data/test/helper.rb

@@ -0,0 +1,11 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+require "pp"
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'peto'
+
+class Test::Unit::TestCase
+end

data/test/test_peto.rb

@@ -0,0 +1,49 @@
+require 'helper'
+
+class Closed
+end
+
+class TestPeto < Test::Unit::TestCase
+  context "Master instance" do
+    setup do
+      @peto = Peto::Master.new
+    end
+
+    context "load contract yaml file" do
+      setup do
+        @peto.load("test/contracts/loading.yml")
+      end
+      should ".contract returns loaded contract" do
+        assert_equal({ "name" => "loading" }, @peto.contract)
+      end
+    end
+
+    context "generate procedures" do
+      setup do
+        @peto.load("test/contracts/generating.yml")
+      end
+      should "returns string by loaded contract" do
+        assert_equal String, @peto.generate.class
+      end
+    end
+  end
+
+  context "Generated ruby script" do
+    setup do
+      @peto = Peto::Master.new
+      @peto.load("test/contracts/generating.yml")
+      @generated = @peto.generate
+    end
+    should "is readable as ruby" do
+      Closed.class_eval(@generated)
+      assert_equal({
+        :procedure => "do_a",
+        :args => {
+          :a => 1,
+          :b => "two",
+          :c => {:foo=>"foo"},
+        }
+      }, Closed::Peto::Generating.do_a(1, "two", Closed::Peto::TypeB.new(:foo=>"foo")))
+    end
+  end
+end

metadata

@@ -0,0 +1,97 @@
+--- !ruby/object:Gem::Specification 
+name: peto
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  - 0
+  version: 0.1.0
+platform: ruby
+authors: 
+- Toshiyuki Hirooka
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-10-31 00:00:00 +09:00
+default_executable: peto
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: thoughtbot-shoulda
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  version_requirements: *id001
+description: contract code generator for multi-language
+email: toshi.hirooka@gmail.com
+executables: 
+- peto
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- .document
+- .gitignore
+- LICENSE
+- README.rdoc
+- Rakefile
+- VERSION
+- bin/peto
+- lib/peto.rb
+- lib/peto/generator.rb
+- lib/peto/master.rb
+- lib/peto/mixin/peto_class.rb
+- lib/peto/mixin/peto_errorable.rb
+- lib/peto/rails/helper.rb
+- lib/templates/rb_procedures.erb
+- test/contracts/generating.yml
+- test/contracts/loading.yml
+- test/helper.rb
+- test/test_peto.rb
+- examples/generated.rb
+has_rdoc: true
+homepage: http://github.com/tosik/peto
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: contract code generator
+test_files: 
+- test/helper.rb
+- test/test_peto.rb
+- examples/generated.rb