<xs:schema
        targetNamespace="sample_model"
        xmlns:xs="http://www.w3.org/2001/XMLSchema"
        elementFormDefault="qualified">
    <xs:element name="objects">
        <xs:complexType>
            <xs:all minOccurs="1">
                <xs:element name="object">
                    <xs:complexType>
                        <xs:all minOccurs="1">
                            <xs:element name="property">
                                <xs:complexType name="">
                                    <xs:attribute name="name"/>
                                    <xs:attribute name="type"/>
                                </xs:complexType>
                            </xs:element>
                        </xs:all>
                        <xs:attribute name="name"/>
                    </xs:complexType>
                </xs:element>
            </xs:all>
        </xs:complexType>
    </xs:element>
</xs:schema>

(defun generate-constructor (name propertys) ...)
(defun generate-private-propertys-and-access-methods (propertys) ...)
(defun generate-class-from-normalized (&key name propertys) ...)
(defun generate-classes (description) ...)

C>

C>(defun generate-constructor (name propertys) ...)
C>(defun generate-private-propertys-and-access-methods (propertys) ...)
C>(defun generate-class-from-normalized (&key name propertys) ...)
C>(defun generate-classes (description) ...)
C>

тег objects
(
    тег object[один или больше раз]
    (
        атрибут name
        тег property[один или более раз]
        (
            атрибут name
            атрибут type
        )
    )
)

AVK>тег objects
AVK>(
AVK>    тег object[один или больше раз]
AVK>    (
AVK>        атрибут name
AVK>        тег property[один или более раз]
AVK>        (
AVK>            атрибут name
AVK>            атрибут type
AVK>        )
AVK>    )
AVK>)
AVK>

root "objects" {

    element "object", ONE_OR_MORE {
        attrubute "name"
        element "property", ONE_OR_MORE {
            attribute "name"
            attribute "type"
        }
    }
}

<?xml version="1.0" encoding="ISO-8859-1"?>

  <Order reference="12343-AHSHE-314159">
    <Client>
      <Name>Jean Smith</Name>
      <Address where="home">
        <City>San Mateo</City>
        <State>CA</State>
        <ZIP>94403</ZIP>
        <Street>2000, Alameda de las Pulgas</Street>
      </Address>
      <Address where="work">
        <City>San Francisco</City>
        <State>CA</State>
        <ZIP>94102</ZIP>
        <Street>98765, Fulton Street</Street>
      </Address>
    </Client>

    <Item reference="RF-0001">
      <Description>Stuffed Penguin</Description>
      <Quantity>10</Quantity>
      <UnitPrice>8.95</UnitPrice>
    </Item>

    <Item reference="RF-0034">
      <Description>Chocolate</Description>
      <Quantity>5</Quantity>
      <UnitPrice>28.50</UnitPrice>
    </Item>

    <Item reference="RF-3341">
      <Description>Cookie</Description>
      <Quantity>30</Quantity>
      <UnitPrice>0.85</UnitPrice>
    </Item>

    <Signed-By>
      <Signature>
        <Name>John Doe</Name>
        <Position>product manager</Position>
      </Signature>

      <Signature>
        <Name>Jill Smith</Name>
        <Position>clerk</Position>
      </Signature>

      <Signature>
        <Name>Miles O'Brien</Name>
      </Signature>
    </Signed-By>

  </Order>

require 'xml/mapping'

  # forward declarations
  class Client; end
  class Address; end
  class Item; end
  class Signature; end

  class Order
    include XML::Mapping

    text_node :reference, "@reference"
    object_node :client, "Client", :class=>Client
    hash_node :items, "Item", "@reference", :class=>Item
    array_node :signatures, "Signed-By", "Signature", :class=>Signature, :default_value=>[]

    def total_price
      items.values.map{|i| i.total_price}.inject(0){|x,y|x+y}
    end
  end

  class Client
    include XML::Mapping

    text_node :name, "Name"
    object_node :home_address, "Address[@where='home']", :class=>Address
    object_node :work_address, "Address[@where='work']", :class=>Address, :default_value=>nil
  end

  class Address
    include XML::Mapping

    text_node :city, "City"
    text_node :state, "State"
    numeric_node :zip, "ZIP"
    text_node :street, "Street"
  end

  class Item
    include XML::Mapping

    text_node :descr, "Description"
    numeric_node :quantity, "Quantity"
    numeric_node :unit_price, "UnitPrice"

    def total_price
      quantity*unit_price
    end
  end

  class Signature
    include XML::Mapping

    text_node :name, "Name"
    text_node :position, "Position", :default_value=>"Some Employee"
  end

o.client.name="James T. Kirk"
o.items['RF-4711'] = Item.new
o.items['RF-4711'].descr = 'power transfer grid'
o.items['RF-4711'].quantity = 2
o.items['RF-4711'].unit_price = 29.95

o.reference = "FOOBAR-1234"

o.client = Client.new
o.client.name = 'Ford Prefect'
o.client.home_address = Address.new
o.client.home_address.street = '42 Park Av.'
o.client.home_address.city = 'small planet'
o.client.home_address.zip = 17263
o.client.home_address.state = 'Betelgeuse system'

o.items={'XY-42' => Item.new}
o.items['XY-42'].descr = 'improbability drive'
o.items['XY-42'].quantity = 3
o.items['XY-42'].unit_price = 299.95