Hallo !
Der Fehler XQST0054 soll aussagen: A global variable depends on itself. This may be triggered by a circular variable definition.
Nun verwende ich gar keine globale Variable.
Die Aufgabe ist einfach: Ein XML-Schema (xsd) soll geparst werden und die Abhängigkeit der Elemente (xsd:element) in eine gewünschte Darstellung gebracht werden. Etwa so:
<XSDBaum> <elem name="ElNameX1" min="" max=""> <elem name=" ElNameX2" min="0" max="1"/> <elem name=" ElNameX3" min="0" max="1">
Der Fehler tritt erst auf, wenn die Stelle im xml-File bearbeitet wird. Blendet man diese aus, gibt es keine Fehler-Meldung von BaseX.
Fehlermeldung mit:
if ( name($node) = "xsd:element") then erg:element($root, $node)
Keine Fehlermeldung mit:
if ( name($node) = "xsd:elementAUSBLENDEN") then erg:element($root, $node)
Die problemeatische Stelle im xml-File sieht in etwa folgendermaßen aus:
<xsd:complexType name="CTName1"> xsd:sequence <xsd:choice minOccurs="0" maxOccurs="unbounded"> <xsd:element name="eLName1" type="ns:ELName1" minOccurs="1" maxOccurs="1" /> <xsd:element name="eLName2" type="ns:ELName2" minOccurs="1" maxOccurs="1" /> </xsd:choice> <xsd:choice minOccurs="0" maxOccurs="1"> <xsd:element name="eLName5" type="ns:ELName5" minOccurs="1" maxOccurs="1" /> <xsd:element name="eLName6" type="ns:ELName6" minOccurs="1" maxOccurs="1" /> </xsd:choice> </xsd:sequence> </xsd:complexType>
Die Bearbeitung stockt demzufolge nach xsd:choice, auf die Ebene xsd:element.
Die Abfrage:
declare namespace xsd="http://www.w3.org/2001/XMLSchema"; declare namespace erg="http://www.MB.org/OTXErg";
declare function erg:next( $root , $CC) { for $node in $CC return <ende>{$node}</ende> };
declare function erg:all( $root , $CC) { for $node in $CC/* return
if ( name($node) = "xsd:element") then erg:element( $root , $node)
else <endeAll>{$node}</endeAll> };
declare function erg:getCTName( $n) { let $CTNAME := substring($n/@type,5,string-length($n/@type)) return $CTNAME };
declare function erg:choice( $root , $CC) {
<choice min="{$CC/@minOccurs}" max="{$CC/@maxOccurs}">
{
for $node in $CC/* return
if ( name($node) = "xsd:element") then erg:element($root, $node)
else <endeCC nodeName="{name($node)}"></endeCC>
} </choice>
};
declare function erg:sequence( $root , $CC) { for $node in $CC/* return
if ( name($node) = "xsd:element") then erg:element( $root , $node)
else if ( name($node) = "xsd:choice") then erg:choice( $root , $node)
else if ( name($node) = "xsd:any") then ()
else <endeSEQ>{$node}</endeSEQ>
};
declare function erg:extension( $root , $CC) { for $node in $CC/* return if ( name($node) = "xsd:sequence") then erg:sequence($root, $node) else if ( name($node) = "xsd:attribute") then () else <endeEXT>{$node}</endeEXT> };
declare function erg:complexContent( $root , $CC) { for $node in $CC/* return if ( name($node) = "xsd:extension") then erg:extension($root, $node) else <endeCC>{$node}</endeCC> };
declare function erg:complexType( $root , $CTName) { for $node in $root/xsd:complexType[ @name=$CTName]/* return
if ( name($node) = "xsd:complexContent") then erg:complexContent($root, $node) else if ( name($node) = "xsd:sequence") then erg:sequence($root, $node) else if ( name($node) = "xsd:choice") then erg:choice($root, $node) else if ( name($node) = "xsd:anyAttribute") then () else if ( name($node) = "xsd:attribute") then () else if ( name($node) = "xsd:attributeGroup") then ()
else if ( name($node) = "xsd:all") then erg:all($root, $node) else <endeCT>{$node}</endeCT> };
declare function erg:element( $root , $elem ) { let $CTName := erg:getCTName($elem) return <elem name="{$elem/@name}" min="{$elem/@minOccurs}" max="{$elem/@maxOccurs}" >{erg:complexType( $root, $CTName)}</elem> };
<XSDBaum> {
let $elem := //xsd:element[@name='otx'] return erg:element( /* , $elem)
} </XSDBaum>
Mit freundlichen Grüßen Michael