UFFI is a package to interface Common Lisp programs with C-language compatible libraries.

Every Common Lisp implementation has a method for interfacing to such libraries.

E>root "objects" {

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

private void GenerateParamValueDomain(XmlElement parent, XmlElement template,
    ElementParamInfo epi)
{
    XmlPattern pvp = new XmlPattern(template, parent);
    pvp.Element.SetAttribute(s_IdAttr, pvp.Element.GetAttribute(s_IdAttr) +
        epi.Rn);
    XmlElement pvevParent;
    XmlElement pvev = pvp.ExtractTemplate(s_ListParamDomainEnumValueId,
        out pvevParent);
    foreach (ParameterValueInfo pvi in epi.Values)
    {
        XmlPattern evp = new XmlPattern(pvev, pvevParent);
        evp.Element.SetAttribute(s_CodeAttr, pvi.Rn.ToString());
        evp.Element.SetAttribute(s_TextAttr, pvi.Caption);
        evp.Element.InnerText = pvi.Caption;
    }
}

E>>root "objects" {

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

# Вызов метода root с двумя параметрами:
# имя "objects" и блок кода в фигурных скобках.
# Так же это можно было бы записать в виде:
root( "objects" ) do

    # Вот этот блок кода может быть вызван внутри метода root
    # для какого-нибудь скрытого объекта. И следующий метод
    # element будет вызыватся для этого объекта с тремя параметрами:
    # именем "object", константой ONE_OR_MORE и блоком кода.
    element( "object", ONE_OR_MORE ) do

        # И здесь все то же самое.
        ...
    end
end

root "object" {
    Element "object", one_or_more { ... }
}

require 'mxx_ru/cpp'

require 'oess_1/util_cpp_serializer/gen'

Mxx_ru::setup_target(
    Mxx_ru::Cpp::Dll_target.new( "aag_3/smpp_smsc/prj.rb" ) {

    required_prj "ace/dll.rb" 

    required_prj "cls_2/prj.rb" 
    required_prj "smart_ref_3/lib.rb" 

    required_prj "threads_1/dll.rb" 

    required_prj "oess_1/defs/prj.rb" 
    required_prj "oess_1/io/prj.rb" 
    required_prj "oess_1/stdsn/prj.rb" 
    required_prj "oess_1/db/prj.rb" 

    required_prj "so_4/prj.rb" 
    required_prj "so_sysconf_2/prj.rb" 
    required_prj "so_log_1/prj.rb" 

    required_prj "mbapi_3/prj.rb" 
    required_prj "mbapi_3_mbox/core/prj.rb" 
    required_prj "mbsms_2/prj.rb" 

    required_prj "gemont_1/prj.rb" 
    required_prj "smpp_pdu_1/prj.rb" 

    required_prj "aag_3/sms_data_type/prj.rb"
    required_prj "aag_3/safe_sms_history/prj.rb"

    target "aag.smpp_smsc" 

    ddl = generator Oess_1::Util_cpp_serializer::Gen.new( self )

    cpp_source "trx_id.cpp"
    ddl.ddl_file "trx_id.ddl"

    sources_root( "impl" ) {
        cpp_source "send_trx_map.cpp" 
        cpp_source "receive_trx_map.cpp" 

        cpp_source "oess_send_trx_map.cpp"
        ddl.ddl_file "oess_send_trx_map.ddl"

        cpp_source "oess_receive_trx_map.cpp"
        ddl.ddl_file "oess_receive_trx_map.ddl"
    }

    cpp_source "cfg.cpp"
    cpp_source "a_channel.cpp"
    cpp_source "a_send_history.cpp"
    cpp_source "a_receive_history.cpp"
    cpp_source "coop_maker.cpp"
    cpp_source "coop_factory.cpp"
})

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

(setq objs
    '("objects"
        ("object" ("name" . "Obj1")
            ("property"
                (("name" . "prop1") ("type" . "int"))
                (("name" . "prop2") ("type" . "string"))
            )
        )
    )
)

<xs:schema id="objects" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
  <xs:element name="objects" msdata:IsDataSet="true" msdata:Locale="ru-RU">
    <xs:complexType>
      <xs:choice maxOccurs="unbounded">
        <xs:element name="object">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="property" minOccurs="0" maxOccurs="unbounded">
                <xs:complexType>
                  <xs:attribute name="name" type="xs:string" />
                  <xs:attribute name="type" type="xs:string" />
                </xs:complexType>
              </xs:element>
            </xs:sequence>
            <xs:attribute name="name" type="xs:string" />
          </xs:complexType>
        </xs:element>
      </xs:choice>
    </xs:complexType>
  </xs:element>
</xs:schema>