Scaffolding closed. See found solution above
XSD - DDL (Draft 0.1)

Mapping XML Documents on Relational DB
Document and documentFragment serialization from DB Tables
Creating DDL, database schema from XSD

Note: this document is just a scaffolding

The best article found : Automation of Metadata Repository Development with XML Schema

Tables

• nodesTable

  
  
  
  
  
  
  
  
  
  
• descrTable

  
  
  
  
  
  
  
  
  
  
• dataTable

  One dataTable for each xml schema simpleType ref/def within the schema/include(s)/import(s)
  + dedicated ones for CDATASection, Comments, PI

  
  
  
  
• constrainingFacets

  
  
  
  
  
  
• identityConstraints

  
  
  
  
  
  
  
  
  
• identityFields

  
  
  
  
  
• schemaInformation

  
  
  
  
  
  
  
• 
  
• nameSpaceTable

  
  
  
  
  
  
  


Tables

Constraints, Database triggers, Stored procedures

Depend on target DB
To be defined later

Xml serialization: xmlsql

Returns either XML_Document or XML_DocumentFragment
importRef(): List of QNames of elements to be included when a reference to occurs via IDREF(S) or keyref
They are included with their descendants (deep mechanism) and their parent are append to top level XML element

Usage:

1. aDocument = xmlsql (null, null, aList, null, false)
2. aFragment = xmlsql (createElement('topElementName'), "select * from nodesTable where localName in someList", aList, null, false)

• xmlsql

  pNode Element node target parent when importMode is false sqlNode row of nodesTable importRef() list of keyref, IDREF, IREFS whose references will be included in the serialized result rNode Element node parent target for referenced nodes importMode Indicates processing of referenced nodes inclusion function xmlsql (pNode, sqlNode, importRef(), rNode, importMode) return XML_node if (importNode) then sNode = rNode else sNode = pNode endif if (sNode == null) then nTS = rowSet ("select * from nodesTable where fk = null") /* starts with top */ return xmlsql (createDocument(), nTS.firstRow(), importRef(), rNode, importFlag) end if nTS = rowSet ("select * from nodesTable where fkParent = $pNode.pk" order by rank) /* sNode children, attrs have a -1 rank */ for each nT in nTS /* for each child */ dSS = rowset("select * from descrTable where pk = $nT.ds") /* children descriptors */ dTS = rowset("select * from $nT.container where (fk,rk) = nT.(pk,rk)") /* children data child*/ for each (dS, dT) in (dSS,dTS) /* each couple of (child, child data if any */ select dS.nodeType case XML_Document /* must not occur, see usage */ raiseError () case XML_DocumentFragment sNode.appendChild(createDocumentFragment()) case XML_DocumentType sNode.appendChild(createNodeDocumentType()) case XML_ProcessingInstruction sNode.appendChild(createProcessingInstruction(dT.data)) case XML_EntityReference sNode.appendChild(createEntityReference(dT.data)) case XML_Element if (nT.xmlns) then sNode.appendChild(createElementNS(dS.xmlns, concat(nT.prefix, ':', nt.localName))) else sNode.appendChild(createElement(nT.localName)) end if case XML_Attr if (nT.xmlns) then sNode.appendChild(createAttributeNS(dS.xmlns, concat(nT.prefix, ':', nt.localName))) else sNode.appendChild(createEAttribute(nT.localName)) end if sNode.lastChild.appendChild(createTextNode(dT.data)) case XML_Text sNode.lastChild.appendChild(createTextNode(dT.data)) case XML_CDATASection sNode.appendChild(createCDATASection(dT.data)) case XML_Comment sNode.appendChild(createComment(dT.data)) case XML_Entity /* not supported by various interfaces */ sNode.appendChild(createEntity()) case XML_Notation /* does it needed ? */ end select select ds.nodeType case XML_Entity, XML_Element, XML_DocumentFragment xmlsql (sNode.lastChild(), nT, importRef, rNode, importMode) end select /* Include referenced nodes by keyref (deep) */ if (pNode.fkRef is not null) and (ds.localName in importRef()) then kTS = rowSet("select * from nodesTable where pk=$pNode.fkRef") kT = kTS.firstRow() if (rNode == null) then rNode =ddlxml.createElement('ddlxml__refs') pNode.document.documentElement.appendChild(rNode) rNode.ID = 'ddlxml__refs' rNode.appendChild(createElement('ddlxml__refsID')) rNode.lastChild.ID = 'ddlxml__refsID' end if /* test if already inserted */ if (sNode.document.getElementById(concat('ddlxml__refsID',concat(kT.prefix, ':', kT.localName))) == null) then if (kT.xmlns) then sNode.document.getElementById('ddlxml__refsID').appendChild(createElementNS('ddlxml__refID') else sNode.document.getElementById('ddlxml__refsID').appendChild(createElement('ddlxml__refID') end if sNode.document.getElementById('ddlxml__refsID').lastChild.ID = concat('ddlxml__refsID', kT.pk.toString()) if (kT.xmlns) then rNode.appendChild(createElementNS(xmlns, concat(kT.prefix, ':', kT.localName))) else rNode.appendChild(createElement(kT.localName)) end if xmlsql (sNode, kT, importRef, rNode.lastChild, true) end if /* Include referenced nodes (deep) by IDREF(S) */ if (ds.isIDRef and ds.ID in importRef()) then iDS = rowSet("select * from nodesTable where fk=$dT.ID") kT = kTS.firstRow() fTS = rowSet("select * from identityFields where fk=$kT.pk order by rk") for ft in fTS /* IDREF append - Not yet well designed */ end for end if end for end for return sNode end function

DDL generation from XSD

• XMLSchema = "http://www.w3.org/2001/XMLSchema" XMLSchema_instance = "http://www.w3.org/2001/XMLSchema-instance" XSchema { schema xmlDocument targetNameSpace xsdPrefix xsiPrefix ddlxml xmlDocument simpleTypes identities redefines xmlnsSet } mainSchema mainSchemaLocation function main () mainSchema = new XSchema () build (mainSchema, mainSchemaLocation) end function function build (xschema, mainSchemaLocation) xschema.ddlxml = new xmlDocument() xschema.simpleTypes = xschema.ddlxml.appendChild (xschema.ddlxml.createElement('simpleTypes')) xschema.identities = xschema.ddlxml.appendChild (xschema.ddlxml.createElement('identities')) xschema.xmlnsSet = xschema.ddlxml.appendChild (xschema.ddlxml.createElement('xmlnsset')) xmlnsLoad (xschema) start = iri (xschema) /* include redefine import */ c = start while (c) select c.localName case XS_simpleType : simpleType (xschema, c) case XS_complexType : complexType (xschema, c) case XS_group : group (xschema, c) case XS_attributeGroup : attributeGroup (xschema, c) case XS_element : element (xschema, c) case XS_attribute : attribute (xschema, c) case XS_notation : notation (xschema, c) case XS_annotation : annotation (xschema, c) end select end while end function function xmlnsLoad (xschema) for each elt in xschema.schema.documentElement.getAttributes select true case elt.QName.startsWith(XS_xmlns) xmlns = ddlxml.createElement(XS_xmlns) nameSpace = elt.nodeValue prefix = elt.QName.substring(elt.QName.indexOf (':')+1) if (nameSpace == XMLSchema) then xschema.xsdPrefix = prefix end if if (nameSpace == XMLSchema_instance) then xschema.xsiPrefix = prefix end if defAttribute (xmlns, 'prefix', prefix) defAttribute (xmlns, 'xmlns', nameSpace) xmlns.ID = ddlxmlPrefix + nameSpace xschema.xmlnsSet.appendChild (xmlns) case elt.QName in (XS_targetNameSpace, XS_version, XS_xmllang, XS_attributeFormDefault, elementFormDefault) defAttribute (xschema.schema, elt.QName, elt.nodeValue) end for for each elt in xschema.schema.documentElement.getAttributes if (elt.QName.startWith(xschema.xsiPrefix + ':schemaLocation') then nLl = elt.nodeValue.split(' ') for x=0 to nL.length step 2 xmlns = xschema.ddlxml.getElementByID (ddlxmlPrefix + nL(x)) if (xmlns) then defAttribute (xmlns, 'schemaLocation', nL (x+1)) else warning ('Wrong schemaLocation specification ' + nL(x)) end if end for end if end for end function function iriLoad (xschema) /* include refdefine import */ c = xschema.schema.firstChild while (c.localName in (XS_annotation, XS_include, XS_import, XS_redefine) select c.localName case XS_include : includes (xschema, c) case XS_redefine : redefines (xschema, c) case XS_import : imports (xschema, c) end select end while return c end function function imports (xschema, import) location = getLocation (import) importSchema = new XSchema () build (importSchema, location) nameSpace = import.getAttribute (XS_nameSpace) ddlCopy (importSchema, xschema, nameSpace) end function function includes (xschema, include) location = getLocation (include) includeSchema = new XSchema () build (includeSchema, location) ddlCopy (importSchema, xschema, xschema.targetNameSpace) end function function redefines (schema, redefine) location = getLocation (redefine) redefineSchema = new XSchema () build (redefineSchema, location) for each c in redefine.children /* a little bit complicated */ end for end function function identitiesLoad (xschema) for each xmlns in xschema.xmlnsSet for each id in ('unique', 'key', 'keyref') for each t in xschema.ddlxml.getElementsByTagNameNS (id, XMLSchema) identity (xschema, t, null) end if end for end function function simpleType (xschema, s, ds) if (ds == null) then name = s.getAttribute('name') ds = xschema.ddlxml.createElement (XS_simpleType) xschema.simpleTypes.appendChild (ds) if (name != '') then defAttribute (xschema, ds, 'name', name) ds.ID = s.nameSpaceUrl + toLocal (name) end if subtreeSimpleType (xschema, s, ds) end function function subtreeSimpleType (xschema, s, ds) for each c in s.children select c.localName case XS_restriction restriction (xschema, c, ds.appendChild (createElement(XS_restriction)), ds) case XS_union union (xschema, c, ds.appendChild (createElement(XS_union)), ds) case XS_list list (xschema, c, ds.appendChild (createElement(XL_list)), ds) end select end for end function function restriction (xschema, r, dr, ds) for each c in r.children select c.localName case XS__simpleType : subtreeSimpleType (xschema, c, dr) case XS_annotation : other : dc = xschema.ddlxml.createElement (c.localName) copyAttributes (xschema, dc, r, 'name fixed value') dc.ID = r.ID dr.appendChild(dc) end select end for if (r.getAttribute('base')) then appendType (xschema, simpleTypeRef (xschema, r.getAttribute('base'), ds) end if end function function simpleTypeRef (xschema, QName, ds) if (xschema.ddlxml.getElementByID (xmlnsGet(QName) + toLocal (QName))) then return xschema.ddlxml.getElementByID (xmlnsGet (QName) + toLocal (QName)) end if if r.base.startsWith (xschema.XSDPrefix) then appendType (xschema, r.base, ds) return r.base end if s = getNode ("*/@name=$QName") if (s == null) then return 'undefinedType' return simpleTypeDef (xschema, s,null) end function function union (xschema, u, du, ds) du.ID = u.ID if (u.getAttributes('memberTypes') then for each t in u.getAttributes ('memberTypes') appendType (xschema, t, ds, XS_memberTypes) end for else for each c in u.children if (c.localName == XS_simpleType) then appendType (xschema, simpleTypeDef(c), ds, c.localName) end if end for end if end function function list (xschema, i, dl, ds) dl.ID = i.ID if (u.getAttribute('itemType')) then appendType (xschema, u.getAttribute('itemType'), dl, XS_itemType) end if end function function attribute (xschema, a) at = xschema.ddlxml.createElement (a.localName) copyAttributes (xschema, at, a, 'default fixed name type') xschema.attributes.appendChild (at) if (a.getAttribute('type') == '') then for each c in a .children select a.locaName case XS__annotation : case XS__simpleType : subtreeSimpleType (xschema, c, at) end select end for else appendType (xschema, simpleTypeRef (xschema, a.getAttribute('type'), at) end if end function function element (xschema, e) et = xschema.ddlxml.createElement (e.localName) copyAttributes (xschema, et, a, '*') xschema.elements.appendChild (et) select true case e.getAttribute('ref') != '' : elementRef (xschema, e.getAttribute('ref'), et) case e.getAttribute('type') != '' : typeRef (xschema, e.getAttribute('type'), et) end select for c in et.children select case c.localName case XS__annotation : case XS__simpleType : simpleType (xschema, c, et) case XS__complexType : complexType (xschema, c, et) case XS__unique : unique (xschema, c, et) case XS__key : key case XS__keyref : end select end for end function function appendType (xschema, t, ds, name) ds.types.appendChild (createElement(name)) ds.types.lastChild.appendChild.createTextNode (t) end function function identity (xschema, k) dk = xschema.ddlxml.createElement (k.localName) copyAttributes (xschema, dk, k, 'localName name refer') dk.ID = k.ID defAttribute (xschema, dk, 'isDBConstraint', false) xschema.identities.appendChild (dk) s = k.firstChild for c in k.children if (c.localName == XS_selector or c.localName == XS__field) then ds = xschema.ddlxml.createElement (c.localName) ds.ID = c.ID ds.appendChild (createTextNode (c.getAttribute(xpath))) dk.appendChild (ds) end if end for xschema.identities.appendChild(dk) end function function defAttribute (xschema, elt, attrName, attrValue) attr = xschema.ddlxm.createAttribute (attrName) attr.nodeValue = attrValue return elt.setAttribute(attr) end function function copyAttributes (xschema, target, source, attrsList) attrs = attrsList.split(' ') for each attr in attrs tg = xschema.ddlxml.createAttribute(attr) tg.nodeValue = source.getAttribute(attr) target.setAttribute(tg) end for return target end function function toLocal (n) return n.substring(n.indexOf(':')+1) end function function schemaProcessing (xschema, src, elt, parentID, topID) eltID = null newTop =false select elt.localName case XS_all case XS_group case XS_any case XS_choice case XS_sequence case XS_annotation, XS_appinfo, XS_documentation, XS_notation eltID = append (notes, elt, src) case XS_anyAttribute case XS_attribute newTop = isAttributeDef eltID = append (attributes, elt, src, topID) case XS_attributeGroup case XS_complexContent case XS_simpleContent case XS_simpleType eltID = append (types, elt, src, topID) newTop = isTypeDef case XS_complexType case XS_element newTop = isElementDef case XS_extension case XS_import : imports (xschema, elt) case XS_include : includes (xschema, elt) case XS_redefine : redefines (xschema, elt) case XS_unique case XS_key case XS_keyref case XS_selector case XS_field case XS_list case XS_union case XS_restriction if (elt.getAttribute(XS_base) then end if case XS_enumeration, XS_fractionDigits, XS_maxExclusive, XS_maxInclusive, XS_maxLength, XS_minExclusive, XS_minInclusive, XS_minLength, XS_totalDigits, XS_length, XS_pattern, XS_whiteSpace eltID = append (constraints, elt, src, topID) case XS_schema other warning ('Unexpected schema element' + elt.localName) end select for each c in elt.children schemaProcessing (xschema, src, c, eltID, topID) end for end function function typesSet (t, cur) for each c in cur.children select c.getAttribute(XS_name) case XS_restriction : appendAttribute (t, 'XS_types', c.getAttribute(XS_base)) case XS_simpleType : case XS_union : appendAttribute (t, 'XS_types', c.getAttribute(XS_memberTypes)) case XS_list : appendAttribute (t, 'XS_types', c.getAttribute(XS_itemType)) end select end for end function function typesFix () for each t in types.children typesSet (t, t) st = t.getAttribute('XS_types')) if (st == '') then warning ('Undefined type ' + t.localName) else sts = st.split(' ') if sts.length > 1 then t.multitypes = true else if st.startsWith (XSDPrefix) then t.ddlType = convertType (st) else nodes = XPath ("types/type[@name=$st and @nameSpace=$t.nameSpace]") end if end if end for end function

End