enterprisifier 0.0.1

data/.document

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

data/.gitignore

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

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 gabrielg
+
+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.md

@@ -0,0 +1,3 @@
+= enterprisifier
+
+THIS ISN'T READY TO USE YET DON'T USE IT.

data/Rakefile

@@ -0,0 +1,57 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "enterprisifier"
+    gem.summary = %Q{Makes things enterprisey.}
+    gem.description = %Q{ENTERPRISE}
+    gem.email = "gabriel.gironda@gmail.com"
+    gem.homepage = "http://github.com/gabrielg/enterprisifier"
+    gem.authors = ["gabrielg"]
+    gem.add_dependency "nokogiri"
+    gem.add_dependency "activesupport"
+    gem.add_development_dependency "riot", ">= 0"
+    gem.add_development_dependency "yard", ">= 0"
+    gem.add_development_dependency "ruby-debug", ">= 0"
+    gem.add_development_dependency "faker", ">= 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
+
+begin
+  require 'yard'
+  YARD::Rake::YardocTask.new
+rescue LoadError
+  task :yardoc do
+    abort "YARD is not available. In order to run yardoc, you must: sudo gem install yard"
+  end
+end

data/VERSION

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

data/lib/enterprisifier.rb

@@ -0,0 +1,7 @@
+require 'nokogiri'
+require 'active_support'
+require 'enterprisifier/constants'
+require 'enterprisifier/logging'
+require 'enterprisifier/schema'
+require 'enterprisifier/code_generation'
+require 'enterprisifier/marshalling'

data/lib/enterprisifier/code_generation.rb

@@ -0,0 +1 @@
+require 'enterprisifier/code_generation/generator'

data/lib/enterprisifier/code_generation/code_builder.rb

@@ -0,0 +1,33 @@
+module Enterprisifier
+  module CodeGeneration
+    class CodeBuilder
+      IndentationLevel = 2
+      def initialize(indentation = 0)
+        @code = ''
+        @indentation = indentation
+      end
+
+      def <<(string)
+        string.to_s.each_line do |line|
+          @code << "#{" " * @indentation}#{line.chomp}\n"
+        end
+      end
+
+      def indent
+        @indentation += IndentationLevel
+        yield
+      ensure
+        @indentation -= IndentationLevel
+      end
+
+      def to_s
+        @code
+      end
+
+      def blank?
+        @code.blank?
+      end
+
+    end # CodeBuilder
+  end   # CodeGeneration
+end     # CodeBuilder

data/lib/enterprisifier/code_generation/code_generator.rb

@@ -0,0 +1,281 @@
+require 'enterprisifier/code_generation/code_builder'
+
+#
+# @todo - this fucking sucks too
+module Enterprisifier
+  module CodeGeneration
+    class CodeGenerator
+      FacetElements = %w[enumeration fractionDigits length maxExclusive maxInclusive maxLength
+                         minExclusive minInclusive minLength pattern totalDigits whiteSpace]
+
+      attr_reader :dependencies
+
+      class_inheritable_hash :registered_types
+      write_inheritable_hash :registered_types, {}
+
+      class_inheritable_accessor :registered_as
+      class_inheritable_accessor :extension_type
+
+      class_inheritable_hash :registration_options
+      write_inheritable_hash :registration_options, {}
+
+      write_inheritable_array :macro_mappings, []
+
+      class << self
+
+        def extends(extension_type)
+          self.extension_type = extension_type
+        end
+
+        def register(xsd_type, opts = {})
+          self.registered_as = xsd_type.to_sym
+          write_inheritable_hash(:registration_options, opts)
+          CodeGenerator.registered_types[xsd_type.to_sym] = self
+        end
+
+        def macro_mappings(*mappings)
+          write_inheritable_array :macro_mappings, mappings
+        end
+
+        def build(generator, node, mod_name, entity_name = nil)
+          if code_generator = CodeGenerator.registered_types[node.registered_as.to_sym]
+            code_generator.new(generator, node, mod_name, entity_name)
+          else
+            raise NotImplementedError, "No generator for '#{node.registered_as}' found."
+          end
+        end
+      end # << self
+
+      attr_reader :entity_name
+
+      def initialize(generator, node, mod_name = nil, entity_name = nil)
+        @generator = generator
+        @base_mod, @mod_name, @entity_name, @node = generator.base_module, mod_name, entity_name, node
+        @dependencies = []
+        @built = false
+        @code = CodeBuilder.new
+      end
+
+      def name
+        @node.name
+      end
+
+      def entity_or_attr_name
+        entity_name || begin
+          name ? name[:value] : nil
+        end
+      end
+
+      def to_s
+        to_ruby.to_s
+      end
+
+      def to_ruby
+        return @code.to_s if @built
+        entity_name ? build_qualified_ruby : build_unqualified_ruby
+        @built = true
+        @code.to_s
+      end
+
+      def requires
+        @requires ||= ([extension_require, macro_reference_require] + child_generators.map(&:requires)).flatten.compact.uniq.sort
+      end
+
+      def extension_require
+        extension_type.split("::").map(&:underscore).join("/")
+      end
+
+      def macro_reference_require
+        return nil unless macro_reference_type
+        macro_reference_type.split("::").map(&:underscore).join("/")
+      end
+
+      def write_file
+        return nil unless filesystem_path
+        @generator.write_file(filesystem_path, to_ruby)
+      end
+
+    private
+
+      def parent_ns
+        registration_options[:in] || (registration_options[:namespace] ? registered_as.to_s.gsub(/[^a-z0-9]/i, "_").camelize.pluralize : nil)
+      end
+
+      def build_qualified_ruby
+        write_requires
+        namespaced(parent_ns) do
+          comment(@node.documentation)
+          new_class(constantized_name, extension_type) { write_full_implementation }
+        end
+      end
+
+      def build_unqualified_ruby
+        comment(@node.documentation)
+        write_partial_implementation
+      end
+
+      def child_generators
+        @child_generators ||= begin
+          [].tap do |a|
+            @node.each_child(true) do |child|
+              next if facet_element?(child)
+              a << @generator.code_generator.build(@generator, child, @mod_name)
+            end
+          end
+        end
+      end
+
+      def facet_element?(node)
+        FacetElements.include?(node.registered_as.to_s)
+      end
+
+      def filesystem_path
+        return nil unless module_path
+        module_path.split("::").map(&:underscore).join("/")
+      end
+
+      def module_path
+        return nil unless constantized_name && @base_mod && @mod_name && parent_ns
+        [@base_mod, @mod_name, parent_ns, constantized_name].compact.join("::")
+      end
+
+      def constantized_name
+        return nil unless entity_name
+        @constantized_name ||= entity_name.gsub(/[^a-z0-9]/i, "_").camelize
+      end
+
+      def namespaced(*extra_mods)
+        new_module(*([@base_mod, @mod_name, *extra_mods].compact)) { yield }
+      end
+
+      def new_module(*mod_names, &block)
+        if mod_names.empty?
+          block.call
+        else
+          write("module #{mod_names[0]}", "end") { new_module(*mod_names[1..-1], &block) }
+        end
+      end
+
+      def new_class(class_name, extends = nil)
+        class_def = "class #{class_name}"
+        class_def << " < #{extends}" if extends
+        write(class_def, "end") { yield if block_given? }
+      end
+
+      def write_full_implementation
+        write_namespace
+        write_macros
+        write_children
+      end
+
+      def write_partial_implementation
+        if child_generators.empty?
+          write_macros
+        else
+          write_macros { write_children }
+        end
+      end
+
+      def write_requires
+        requires.each do |req|
+          write("require #{req.inspect}")
+        end
+        write("\n\n")
+      end
+
+      def write_namespace
+        write("namespace #{@mod_name.underscore.inspect} => #{@node.default_namespace.inspect}")
+      end
+
+      def write_macros
+        if macros.empty? && !block_given?
+          write("#{macro_setup_code}\n\n")
+        else
+          write("#{macro_setup_code} do", "end") do
+            macros.each { |(k,v)| write("#{k} #{v}") }
+            yield if block_given?
+          end
+        end
+      end
+
+      def macro_setup_code
+        if entity_or_attr_name && macro_reference_type
+          "#{macro_setup_name} #{entity_or_attr_name.inspect} => #{macro_reference_type}"
+        elsif entity_or_attr_name
+          "#{macro_setup_name} #{entity_or_attr_name.inspect}"
+        elsif macro_reference_type
+          "#{macro_setup_name} #{macro_reference_type}"
+        else
+          macro_setup_name
+        end
+      end
+
+      def macro_setup_name
+        registered_as.to_s.underscore
+      end
+
+      def macro_reference_type
+        if @node.base
+          @generator.modularize_type(@node.base, @mod_name, "Types")
+        else
+          nil
+        end
+      end
+
+      def write_children
+        child_generators.each { |child_gen| write(child_gen.to_ruby) }
+      end
+
+      def macros
+        @macros ||= attribute_macros + facet_macros
+      end
+
+      def attribute_macros
+        @attribute_macros ||= [].tap do |m|
+          self.class.read_inheritable_attribute(:macro_mappings).each do |mm|
+            m << [mm, @node.send(mm).inspect] if @node.send(mm)
+          end
+        end
+      end
+
+      def facet_macros
+        @facet_macros ||= [].tap do |m|
+          @node.each_child(true) do |child|
+            next unless facet_element?(child)
+            m << [child.registered_as.to_s.underscore, child.value.inspect]
+          end
+        end
+      end
+
+      def indent
+        @code.indent { yield }
+      end
+
+      def write(string, end_string = nil)
+        if block_given? && end_string
+          write(string)
+          indent { yield }
+          write(end_string)
+        else
+          @code << string
+        end
+      end
+
+      def comment(docs)
+        return nil unless docs
+        wrap_text(docs).each_line do |line|
+          next if line.blank?
+          write("# #{line.strip}")
+        end
+      end
+
+      # http://blog.macromates.com/2006/wrapping-text-with-regular-expressions/
+      def wrap_text(txt, col = 80)
+        txt.gsub(/(.{1,#{col}})( +|$\n?)|(.{1,#{col}})/, "\\1\\3\n")
+      end
+
+    end # CodeBuilder
+  end   # CodeGeneration
+end     # CodeBuilder
+
+Dir["#{File.dirname(__FILE__)}/generators/*.rb"].each { |f| require f }

data/lib/enterprisifier/code_generation/generator.rb

@@ -0,0 +1,102 @@
+require 'enterprisifier/code_generation/code_generator'
+require 'pathname'
+
+module Enterprisifier
+  module CodeGeneration
+    class Generator
+      attr_accessor :base_module, :output_directory
+
+      def initialize(schema)
+        @schema = schema
+        @modules_for_namespaces = {}
+        @generated = []
+        yield(self)
+        self.output_directory = Pathname(output_directory.to_s).expand_path if output_directory
+      end
+
+      def add_module_for_namespace(namespace, mod_name)
+        @modules_for_namespaces[namespace] = mod_name
+      end
+
+      def module_for_namespace(namespace)
+        @modules_for_namespaces[namespace]
+      end
+
+      def to_ruby
+        build
+        @generated.to_s
+      end
+
+      def build
+        @generated.clear
+        @schema.registries.each do |namespace,registry|
+          mod_name = module_for_namespace(namespace)
+          raise "No module for namespace '#{namespace}' is known. Try setting one with add_module_for_namespace." unless mod_name
+          registry.each do |xsd_type,nodes|
+            nodes.each do |name,node|
+              @generated << code_generator.build(self, node, mod_name, name)
+            end
+          end
+        end
+      end
+
+      def write_files
+        raise "An output directory must be provided" unless output_directory
+        build
+        output_directory.mkpath
+        @generated.each { |g| g.write_file }
+      end
+
+      def write_file(fs_path, code)
+        raise "An output directory must be provided" unless output_directory
+        output_file = Pathname((output_directory + fs_path).expand_path.to_s + ".rb")
+        output_file.parent.mkpath
+        raise "Output file already exists at #{output_file}" if output_file.exist?
+        output_file.open('w') do |f|
+          f << code
+        end
+      end
+
+      #
+      # @todo - this fucking sucks
+      def resolve_type(type_name)
+        found_ns = @schema.namespaces.detect do |ns|
+          ns[0] == type_name[:namespace]
+        end
+
+        ns_aliases = @schema.namespaces.select do |ns|
+          ns != found_ns && ns.last == found_ns.last
+        end if found_ns
+
+        mod_for_ns = @modules_for_namespaces.detect do |(url, mod_name)|
+          url == found_ns.last
+        end unless ns_aliases.empty?
+
+        raise "Couldn't resolve #{type_name.inspect}" unless mod_for_ns
+        mod_for_ns.last
+      end
+
+      def xsd_namespace?(namespace_ref)
+        @schema.xsd_namespace?(namespace_ref)
+      end
+
+      def code_generator
+        Enterprisifier::CodeGeneration::CodeGenerator
+      end
+
+      def modularize_type(type_name, mod_name, type_ns = "Types")
+        camelized = type_name[:value].camelize
+        if xsd_namespace?(type_name[:namespace])
+          "Enterprisifier::Marshalling::XSD::#{type_ns}::#{camelized}"
+        elsif !type_name[:namespace] || mod_name == resolve_type(type_name)
+          "#{@base_module}::#{mod_name}::#{type_ns}::#{camelized}"
+        elsif type_name[:namespace] && resolved = resolve_type(type_name)
+          "#{@base_module}::#{resolved}::#{type_ns}::#{camelized}"
+        else
+          raise "Wuh-oh."
+        end
+      end
+
+    end # Generator
+  end   # CodeGeneration
+end     # Enterprisifier