mappum 0.2.0

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,44 @@
+<?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:element name="spouse" minOccurs="0" maxOccurs="5">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element name="name" type="xsd:string"/>
+            <xsd:element name="type" type="xsd:string" minOccurs="0"/>
+          </xsd:sequence>
+        </xsd:complexType>
+        <xsd:element>
+      </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_conversions.rb

@@ -0,0 +1,12 @@
+require 'date'
+
+Mappum.catalogue_add do
+
+  map :typed,:stringed do |t,s|
+     map t.date(Date) <=> s.date(String)
+     map t.time(Time) <=> s.time(String)
+     map t.fixnum(Fixnum) <=> s.fixnum(String)
+     map t.float(Float) >> s.float(String)
+     map t.float(Float) << s.float(String)
+  end
+end

data/sample/example_map.rb

@@ -0,0 +1,92 @@
+# 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.find{|cp|cp.type == "Wife"} do |ps,cp|
+      map ps.name <=> cp.name
+      map "Wife" >> cp.type
+    end
+    map p.spouse(ERP::Person) <=> c.partners.find{|cp|cp.type == "Friend"} do |ps,cp|
+      map ps.name <=> cp.name
+      map "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
+  `Example of submaps autodiscovery`
+  map :Group, :ClientList do |g,cl|
+    map g.main(ERP::Person) <=> cl.leader(CRM::Client)
+    map g.list(ERP::Person)[] <=> cl.clients(CRM::Client)[]
+  end
+end

data/sample/example_notypes.rb

@@ -0,0 +1,77 @@
+# 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|
+    name_map_prefix :notype
+    name_map :<=>, :notype_person_client
+    name_map :<, :notype_client_to_person
+    #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
+    
+    map p.spouse <=> c.partners do |ps,cp|
+
+      map ps.self <=> cp.partner[1] do |ps1,cp1|
+        map ps1.name <=> cp1.xmlattr_name
+        map "Wife" >> cp1.xmlattr_type
+      end 
+      map ps.self <=> cp.partner[1] do |ps2,cp2|
+        map ps2.name <=> cp2.xmlattr_name
+        map "Friend" >> cp2.xmlattr_type
+      end 
+
+    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/example_when.rb

@@ -0,0 +1,13 @@
+Mappum.catalogue_add do
+  map :foo, :bar do |f, b|
+    map_when(:>){|foo| foo.age < 10}
+
+    #map f.mem <=> b.tem, :when_l2r => lambda {|mem| mem > 10}
+    #or the same
+    map f.mem <=> b.tem do 
+       map_when(:>) {|mem| mem > 10}
+    end
+    map f.mem <=> b.gem, :when_l2r => lambda {|mem| mem <= 10}
+    map f.pol >> b.gol, :when => lambda {|pol| pol != 0}
+  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,26 @@
+<?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>
+  <spouse>
+  	<name>Mary</name>
+  </spouse>	
+</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 Time.now >> 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