simcha-mappum 0.1.0

data/mappum.gemspec

@@ -0,0 +1,89 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{mappum}
+  s.version = "0.1.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Jan Topi\305\204ski"]
+  s.date = %q{2009-06-29}
+  s.default_executable = %q{mapserver.rb}
+  s.description = %q{}
+  s.email = %q{jtopinski@chatka.org}
+  s.executables = ["mapserver.rb"]
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README"
+  ]
+  s.files = [
+    ".gitignore",
+     "LICENSE",
+     "README",
+     "Rakefile",
+     "VERSION",
+     "bin/mapserver.rb",
+     "lib/mappum.rb",
+     "lib/mappum/dsl.rb",
+     "lib/mappum/map.rb",
+     "lib/mappum/mapserver/mapgraph.rb",
+     "lib/mappum/mapserver/mapserver.rb",
+     "lib/mappum/mapserver/views/transform-ws.wsdl.erb",
+     "lib/mappum/mapserver/views/ws-error.erb",
+     "lib/mappum/open_xml_object.rb",
+     "lib/mappum/ruby_transform.rb",
+     "lib/mappum/xml_transform.rb",
+     "mappum.gemspec",
+     "sample/address_fixture.xml",
+     "sample/crm.rb",
+     "sample/crm_client.xsd",
+     "sample/erp.rb",
+     "sample/erp_person.xsd",
+     "sample/example_map.rb",
+     "sample/example_notypes.rb",
+     "sample/person_fixture.xml",
+     "sample/person_fixture_any.xml",
+     "sample/server/map/example_any.rb",
+     "sample/server/map/example_soap4r.rb",
+     "sample/server/mapserver.sh",
+     "sample/server/schema/crm_client.xsd",
+     "sample/server/schema/erp/erp_person.xsd",
+     "test/test_example.rb",
+     "test/test_openstruct.rb",
+     "test/test_soap4r.rb",
+     "test/test_xml_any.rb"
+  ]
+  s.has_rdoc = true
+  s.homepage = %q{http://wiki.github.com/simcha/mappum}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.1}
+  s.summary = %q{Mappum is the tree to tree (object, bean etc.) mapping DSL.}
+  s.test_files = [
+    "test/test_example.rb",
+     "test/test_openstruct.rb",
+     "test/test_xml_any.rb",
+     "test/test_soap4r.rb"
+  ]
+
+  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_runtime_dependency(%q<facets>, [">= 2.5.2"])
+      s.add_runtime_dependency(%q<soap4r>, [">= 1.5.8"])
+      s.add_runtime_dependency(%q<sinatra>, [">= 0.9.2"])
+      s.add_runtime_dependency(%q<thin>, [">= 1.2.2"])
+    else
+      s.add_dependency(%q<facets>, [">= 2.5.2"])
+      s.add_dependency(%q<soap4r>, [">= 1.5.8"])
+      s.add_dependency(%q<sinatra>, [">= 0.9.2"])
+      s.add_dependency(%q<thin>, [">= 1.2.2"])
+    end
+  else
+    s.add_dependency(%q<facets>, [">= 2.5.2"])
+    s.add_dependency(%q<soap4r>, [">= 1.5.8"])
+    s.add_dependency(%q<sinatra>, [">= 0.9.2"])
+    s.add_dependency(%q<thin>, [">= 1.2.2"])
+  end
+end

data/sample/address_fixture.xml

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<address>
+  <country>poland</country>
+  <zip_code>01-217</zip_code>
+  <city>Warsaw</city>
+  <street>Kolejowa</street>
+  <house>
+  	<number>5/7</number>
+  	<flat>1</flat>
+  </house>
+</address>

data/sample/crm.rb

@@ -0,0 +1,9 @@
+module CRM
+  class Client
+    attr_accessor :title, :id,  :key, :first_name, :surname, :address,
+      :sex_id, :phones, :emails, :main_phone, :main_phone_type, :company, :company_suffix, :order_by, :updated, :partners
+  end
+  class Address
+    attr_accessor :street
+  end
+end

data/sample/crm_client.xsd

@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsd:schema version="1.0" 
+            xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <xsd:element name="client">
+    <xsd:complexType>
+      <xsd:sequence>
+        <xsd:element name="title" type="xsd:string" maxOccurs="1"/>
+        <xsd:element name="id" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="first_name" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="surname" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="sex_id" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="phones" type="xsd:string" minOccurs="0" maxOccurs="20"/>
+        <xsd:element name="emails" type="xsd:string" minOccurs="0" maxOccurs="3"/>
+        <xsd:element name="main_phone" type="xsd:string" minOccurs="0" maxOccurs="3"/>
+        <xsd:element name="main_phone_type" type="xsd:string" minOccurs="0" maxOccurs="3"/>
+        <xsd:element name="address" minOccurs="0" maxOccurs="1">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element name="street" type="xsd:string"/>
+            <xsd:element name="city" type="xsd:string" minOccurs="0"/>
+          </xsd:sequence>
+        </xsd:complexType>
+        </xsd:element> 
+      </xsd:sequence> 
+    </xsd:complexType>
+  </xsd:element> 
+</xsd:schema>
+

data/sample/erp.rb

@@ -0,0 +1,7 @@
+module ERP
+  Person = Struct.new(:title, :type,:date_updated, :person_id,  :id2, :name, :address, :sex,
+      :phones, :email1, :email2, :email3, :main_phone, :corporation, :spouse)
+  Address = Struct.new(:street)
+  Phone = Struct.new(:number, :extension, :type)
+
+end

data/sample/erp_person.xsd

@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsd:schema version="1.0" 
+            xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <xsd:element name="person">
+    <xsd:complexType>
+      <xsd:sequence>
+        <xsd:element name="title" type="xsd:string" maxOccurs="1"/>
+        <xsd:element name="person_id" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="name" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="surname" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="sex" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="email1" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="email2" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="email3" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="main_phone" type="phone" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="address" minOccurs="0" maxOccurs="1">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element name="street" type="xsd:string"/>
+            <xsd:element name="city" type="xsd:string" minOccurs="0"/>
+          </xsd:sequence>
+        </xsd:complexType>
+        </xsd:element> 
+        <xsd:element name="phones" type="phone" minOccurs="0" maxOccurs="5"/>
+      </xsd:sequence> 
+    </xsd:complexType>
+  </xsd:element>
+        <xsd:complexType name="phone">
+          <xsd:sequence>
+            <xsd:element name="number" type="xsd:string"/>
+            <xsd:element name="extension" type="xsd:string" minOccurs="0"/>
+            <xsd:element name="type" type="xsd:string" minOccurs="0"/>
+          </xsd:sequence>
+        </xsd:complexType>
+</xsd:schema>
+

data/sample/example_map.rb

@@ -0,0 +1,87 @@
+# Example of map for given object domains CRM and ERP
+require 'mappum'
+require 'sample/erp'
+require 'sample/crm'
+require 'date'
+
+Mappum.catalogue_add "CRM-ERP" do
+
+  map ERP::Person, CRM::Client do |p, c|
+
+    #simple mapping
+    map p.title <=> c.title
+
+    #map with simple function call
+    map p.person_id << c.id.downcase
+    map p.person_id.upcase >> c.id
+    
+    #dictionary use
+    map p.sex <=> c.sex_id, :dict => {"F" => "1", "M" => "2"}
+
+    #submaps
+    map p.address(ERP::Address) <=> c.address(CRM::Address) do |a, b|
+      map a.street <=> b.street
+      #etc.
+    end
+
+    #compicated finc call
+    map p.name >> c.surname do |name|
+      name + "ski"
+    end
+    map p.name << c.surname do |name|
+      if name =~ /ski/
+        name[0..-4]
+      else
+        name
+      end
+    end
+    #field to array and array to field
+    map p.email1 <=> c.emails[0]
+    map p.email2 <=> c.emails[1]
+    map p.email3 <=> c.emails[2]
+    
+    map p.spouse(ERP::Person) <=> c.partners[0] do |ps,cp|
+      map ps.name <=> cp.name
+      "Wife" >> cp.type
+    end
+    map p.spouse(ERP::Person) <=> c.partners[1] do |ps,cp|
+      map ps.name <=> cp.name
+      "Friend" >> cp.type
+    end   
+    map p.phones(ERP::Phone)[] <=> c.phones[] do |a, b|
+      map a.number <=> b.self
+    end
+
+    #subobject to fields
+    map p.main_phone(ERP::Phone) <=> c.self do |a, b|
+      map a.number <=> b.main_phone
+      map a.type <=> b.main_phone_type
+    end
+
+    #TODO one to many
+    #map p.name << [c.first_name, c.surname] do |fname, surname|
+    #  fname + " " + surname
+    #end
+    #map p.name.split >> [c.first_name, c.surname]
+    map p.corporation << c.self do |client|
+      "#{client.company} #{client.company_suffix}" unless client.company.nil?
+    end
+    map p.corporation >> c.company do |corpo|
+      corpo.split(" ")[0]
+    end
+    map p.corporation >> c.company_suffix do |corpo|
+      corpo.split(" ")[1]
+    end
+    #constants 
+    map p.type << "NaN"
+    map "Last" >> c.order_by
+    
+    #func 
+    map p.date_updated << func do
+      Date.today
+    end
+    map func >> c.updated do 
+      Time.now
+    end
+  end
+end

data/sample/example_notypes.rb

@@ -0,0 +1,61 @@
+# Example of map for given object domains CRM and ERP
+require 'mappum'
+
+
+Mappum.catalogue_add "NOTYPE-CRM-ERP" do
+
+  map :person, :client do |p, c|
+
+    #simple mapping
+    map p.title <=> c.title
+    
+    #map with simple function call
+    map p.person_id << c.id.downcase
+    map p.person_id.upcase >> c.id
+
+    #dictionary use
+    map p.sex <=> c.sex_id, :dict => {"F" => "1", "M" => "2"}
+
+    #submaps
+    map p.address <=> c.address do |a, b|
+      map a.street <=> b.street
+      #etc.
+    end
+    
+    #xml attributes
+    map p.xmlattr_id <=>  c.xmlattr_ident
+    
+    #compicated finc call
+    map p.name >> c.surname do |name|
+      name + "ski"
+    end
+    map p.name << c.surname do |name|
+      if name =~ /ski/
+        name[0..-4]
+      else
+        name
+      end
+    end
+    #field to array and array to field
+    map p.email1 <=> c.emails[0]
+    map p.email2 <=> c.emails[1]
+    map p.email3 <=> c.emails[2]
+
+    map p.phones[] <=> c.phones[] do |a, b|
+      map a.number <=> b.self
+    end
+
+    #subobject to fields
+    map p.main_phone <=> c.self do |a, b|
+      map a.number <=> b.main_phone
+      map a.type <=> b.main_phone_type
+    end
+
+    #TODO one to many
+    #map p.name << [c.first_name, c.surname] do |fname, surname|
+    #  fname + " " + surname
+    #end
+    #map p.name.split >> [c.first_name, c.surname]
+
+  end
+end

data/sample/person_fixture.xml

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<n1:person xmlns:n1="http://mappum.ivmx.pl/person">
+  <title>sir</title>
+  <person_id>asddsa</person_id>
+  <name>Skory</name>
+  <sex>M</sex>
+  <email1>j@j.com</email1>
+  <email2>k@k.com</email2>
+  <email3>l@l.com</email3>
+  <main_phone>
+    <number>09876567</number>
+    <type>mobile</type>
+  </main_phone>
+  <address>
+    <street>Victoria</street>
+  </address>
+  <phones>
+    <number>21311231</number>
+  </phones>
+  <phones>
+    <number>21311232</number>
+  </phones>
+</n1:person>

data/sample/person_fixture_any.xml

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<person id="123212">
+  <title>sir</title>
+  <person_id>asddsa</person_id>
+  <name>Skory</name>
+  <sex>M</sex>
+  <email1>j@j.com</email1>
+  <email2>k@k.com</email2>
+  <email3>l@l.com</email3>
+  <main_phone>
+    <number>09876567</number>
+    <type>mobile</type>
+  </main_phone>
+  <address>
+    <street>Victoria</street>
+  </address>
+  <phones>
+    <number>21311231</number>
+  </phones>
+  <phones>
+    <number>21311232</number>
+  </phones>
+</person>

data/sample/server/map/example_any.rb

@@ -0,0 +1,28 @@
+# Example of map for any type
+
+Mappum.catalogue_add do
+
+  map :address, :adresse do |e, f|
+
+    #simple mapping
+    map e.city <=> f.ville
+    map e.street <=> f.rue
+    map e.zip_code <=> f.code_postale
+
+    #map with simple function call
+    map e.country << f.pays.downcase
+    map e.country.upcase >> f.pays
+
+    #submaps
+    map e.house <=> f.maison do |h, m|
+      map h.number <=> m.numero
+      map h.flat <=> m.appartement 
+    end
+    `Current time`
+    map e.updated << func do
+      Time.now
+    end
+    map "oui" >> f.correct
+  end
+
+end

data/sample/server/map/example_soap4r.rb

@@ -0,0 +1,59 @@
+# Example of map for given object domains CRM and ERP
+
+Mappum.catalogue_add do
+  `
+  Mapping Erp system Person to Crm Client
+  `
+  map Erp::Person, Client do |p, c|
+
+    #simple mapping
+    map p.title <=> c.title
+
+    #map with simple function call
+    map p.person_id << c.id.downcase
+    map p.person_id.upcase >> c.id
+
+    `Map F to 1 and M to 2`
+    map p.sex <=> c.sex_id, :dict => {"F" => "1", "M" => "2"}
+
+    #submaps
+    map p.address(Erp::Person::Address) <=> c.address(Client::Address) do |a, b|
+      map a.street <=> b.street
+      #etc.
+    end
+
+    `Add 'ski' to name`
+    map p.name >> c.surname do |name|
+      name + "ski"
+    end
+    `Remove "ski" from surname`
+    map p.name << c.surname do |name|
+      if name =~ /ski/
+        name[0..-4]
+      else
+        name
+      end
+    end
+    #field to array and array to field
+    map p.email1 <=> c.emails[0]
+    map p.email2 <=> c.emails[1]
+    map p.email3 <=> c.emails[2]
+
+    map p.phones(Erp::Phone)[] <=> c.phones[] do |a, b|
+      map a.number <=> b.self
+    end
+
+    #subobject to fields
+    map p.main_phone(Erp::Phone) <=> c.self do |a, b|
+      map a.number <=> b.main_phone
+      map a.type <=> b.main_phone_type
+    end
+
+    #TODO one to many
+    #map p.name << [c.first_name, c.surname] do |fname, surname|
+    #  fname + " " + surname
+    #end
+    #map p.name.split >> [c.first_name, c.surname]
+
+  end
+end