|
|
@@ -12,6 +12,23 @@
|
|
|
|
|
|
{$IFDEF LIBXML_SCHEMAS_ENABLED}
|
|
|
|
|
|
+{$IFDEF POINTER}
|
|
|
+ xmlSchemaValPtr = ^xmlSchemaVal;
|
|
|
+ xmlSchemaValPtrPtr = ^xmlSchemaValPtr;
|
|
|
+ xmlSchemaTypePtr = ^xmlSchemaType;
|
|
|
+ xmlSchemaFacetPtr = ^xmlSchemaFacet;
|
|
|
+ xmlSchemaAnnotPtr = ^xmlSchemaAnnot;
|
|
|
+ xmlSchemaAttributePtr = ^xmlSchemaAttribute;
|
|
|
+ xmlSchemaAttributeLinkPtr = ^xmlSchemaAttributeLink;
|
|
|
+ xmlSchemaAttributeLinkPtrPtr = ^xmlSchemaAttributeLinkPtr;
|
|
|
+ xmlSchemaWildcardNsPtr = ^xmlSchemaWildcardNs;
|
|
|
+ xmlSchemaWildcardPtr = ^xmlSchemaWildcard;
|
|
|
+ xmlSchemaAttributeGroupPtr = ^xmlSchemaAttributeGroup;
|
|
|
+ xmlSchemaTypeLinkPtr = ^xmlSchemaTypeLink;
|
|
|
+ xmlSchemaFacetLinkPtr = ^xmlSchemaFacetLink;
|
|
|
+ xmlSchemaElementPtr = ^xmlSchemaElement;
|
|
|
+{$ENDIF}
|
|
|
+
|
|
|
{$IFDEF TYPE}
|
|
|
xmlSchemaVal = record end;
|
|
|
|
|
|
@@ -129,93 +146,76 @@
|
|
|
next : xmlSchemaAnnotPtr;
|
|
|
content : xmlNodePtr; (* the annotation *)
|
|
|
end;
|
|
|
+{$ENDIF}
|
|
|
|
|
|
-(**
|
|
|
- * XML_SCHEMAS_ANYATTR_SKIP:
|
|
|
- *
|
|
|
- * Skip unknown attribute from validation
|
|
|
- * Obsolete, not used anymore.
|
|
|
- *)
|
|
|
-{$DEFINE XML_SCHEMAS_ANYATTR_SKIP := 1}
|
|
|
-(**
|
|
|
- * XML_SCHEMAS_ANYATTR_LAX:
|
|
|
- *
|
|
|
- * Ignore validation non definition on attributes
|
|
|
- * Obsolete, not used anymore.
|
|
|
- *)
|
|
|
-{$DEFINE XML_SCHEMAS_ANYATTR_LAX := 2}
|
|
|
-(**
|
|
|
- * XML_SCHEMAS_ANYATTR_STRICT:
|
|
|
- *
|
|
|
- * Apply strict validation rules on attributes
|
|
|
- * Obsolete, not used anymore.
|
|
|
- *)
|
|
|
-{$DEFINE XML_SCHEMAS_ANYATTR_STRICT := 3}
|
|
|
+{$IFDEF CONST}
|
|
|
(**
|
|
|
* XML_SCHEMAS_ANY_SKIP:
|
|
|
*
|
|
|
* Skip unknown attribute from validation
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ANY_SKIP := 1}
|
|
|
+ XML_SCHEMAS_ANY_SKIP = 1;
|
|
|
(**
|
|
|
* XML_SCHEMAS_ANY_LAX:
|
|
|
*
|
|
|
* Used by wildcards.
|
|
|
* Validate if type found, don't worry if not found
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ANY_LAX := 2}
|
|
|
+ XML_SCHEMAS_ANY_LAX = 2;
|
|
|
(**
|
|
|
* XML_SCHEMAS_ANY_STRICT:
|
|
|
*
|
|
|
* Used by wildcards.
|
|
|
* Apply strict validation rules
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ANY_STRICT := 3}
|
|
|
+ XML_SCHEMAS_ANY_STRICT = 3;
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTR_USE_PROHIBITED:
|
|
|
*
|
|
|
* Used by wildcards.
|
|
|
* The attribute is prohibited.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTR_USE_PROHIBITED := 0}
|
|
|
+ XML_SCHEMAS_ATTR_USE_PROHIBITED = 0;
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTR_USE_REQUIRED:
|
|
|
*
|
|
|
* The attribute is required.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTR_USE_REQUIRED := 1}
|
|
|
+ XML_SCHEMAS_ATTR_USE_REQUIRED = 1;
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTR_USE_OPTIONAL:
|
|
|
*
|
|
|
* The attribute is optional.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTR_USE_OPTIONAL := 2}
|
|
|
+ XML_SCHEMAS_ATTR_USE_OPTIONAL = 2;
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTR_GLOBAL:
|
|
|
*
|
|
|
* allow elements in no namespace
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTR_GLOBAL := (1 shl 0)}
|
|
|
+ XML_SCHEMAS_ATTR_GLOBAL = (1 shl 0);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTR_NSDEFAULT:
|
|
|
*
|
|
|
* allow elements in no namespace
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTR_NSDEFAULT := (1 shl 7)}
|
|
|
+ XML_SCHEMAS_ATTR_NSDEFAULT = (1 shl 7);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTR_INTERNAL_RESOLVED:
|
|
|
*
|
|
|
* this is set when the "type" and "ref" references
|
|
|
* have been resolved.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTR_INTERNAL_RESOLVED := (1 shl 8)}
|
|
|
+ XML_SCHEMAS_ATTR_INTERNAL_RESOLVED = (1 shl 8);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTR_FIXED:
|
|
|
*
|
|
|
* the attribute has a fixed value
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTR_FIXED := (1 shl 9)}
|
|
|
+ XML_SCHEMAS_ATTR_FIXED = (1 shl 9);
|
|
|
+{$ENDIF}
|
|
|
|
|
|
+{$IFDEF TYPE}
|
|
|
(**
|
|
|
* xmlSchemaAttribute:
|
|
|
* An attribute definition.
|
|
|
@@ -252,14 +252,18 @@
|
|
|
next : xmlSchemaAttributeLinkPtr;(* the next attribute link ... *)
|
|
|
attr : xmlSchemaAttributePtr;(* the linked attribute *)
|
|
|
end;
|
|
|
+{$ENDIF}
|
|
|
|
|
|
+{$IFDEF CONST}
|
|
|
(**
|
|
|
* XML_SCHEMAS_WILDCARD_COMPLETE:
|
|
|
*
|
|
|
* If the wildcard is complete.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_WILDCARD_COMPLETE := (1 shl 0)}
|
|
|
+ XML_SCHEMAS_WILDCARD_COMPLETE = (1 shl 0);
|
|
|
+{$ENDIF}
|
|
|
|
|
|
+{$IFDEF TYPE}
|
|
|
(**
|
|
|
* xmlSchemaCharValueLink:
|
|
|
* Used to build a list of namespaces on wildcards.
|
|
|
@@ -286,40 +290,43 @@
|
|
|
negNsSet : xmlSchemaWildcardNsPtr; (* The negated namespace *)
|
|
|
flags : cint;
|
|
|
end;
|
|
|
+{$ENDIF}
|
|
|
|
|
|
-
|
|
|
+{$IFDEF CONST}
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTRGROUP_WILDCARD_BUILDED:
|
|
|
*
|
|
|
* The attribute wildcard has been already builded.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTRGROUP_WILDCARD_BUILDED := (1 shl 0)}
|
|
|
+ XML_SCHEMAS_ATTRGROUP_WILDCARD_BUILDED = (1 shl 0);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTRGROUP_GLOBAL:
|
|
|
*
|
|
|
* The attribute wildcard has been already builded.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTRGROUP_GLOBAL := (1 shl 1)}
|
|
|
+ XML_SCHEMAS_ATTRGROUP_GLOBAL = (1 shl 1);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTRGROUP_MARKED:
|
|
|
*
|
|
|
* Marks the attr group as marked; used for circular checks.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTRGROUP_MARKED := (1 shl 2)}
|
|
|
+ XML_SCHEMAS_ATTRGROUP_MARKED = (1 shl 2);
|
|
|
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTRGROUP_REDEFINED:
|
|
|
*
|
|
|
* The attr group was redefined.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTRGROUP_REDEFINED := (1 shl 3)}
|
|
|
+ XML_SCHEMAS_ATTRGROUP_REDEFINED = (1 shl 3);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ATTRGROUP_HAS_REFS:
|
|
|
*
|
|
|
* Whether this attr. group contains attr. group references.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ATTRGROUP_HAS_REFS := (1 shl 4)}
|
|
|
+ XML_SCHEMAS_ATTRGROUP_HAS_REFS = (1 shl 4);
|
|
|
+{$ENDIF}
|
|
|
|
|
|
+{$IFDEF TYPE}
|
|
|
(**
|
|
|
* An attribute group definition.
|
|
|
*
|
|
|
@@ -363,38 +370,33 @@
|
|
|
next : xmlSchemaFacetLinkPtr;(* the next facet link ... *)
|
|
|
facet : xmlSchemaFacetPtr;(* the linked facet *)
|
|
|
end;
|
|
|
+{$ENDIF}
|
|
|
|
|
|
+{$IFDEF CONST}
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_MIXED:
|
|
|
*
|
|
|
* the element content type is mixed
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_MIXED := (1 shl 0)}
|
|
|
+ XML_SCHEMAS_TYPE_MIXED = (1 shl 0);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_DERIVATION_METHOD_EXTENSION:
|
|
|
*
|
|
|
* the simple or complex type has a derivation method of "extension".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_DERIVATION_METHOD_EXTENSION := (1 shl 1)}
|
|
|
+ XML_SCHEMAS_TYPE_DERIVATION_METHOD_EXTENSION = (1 shl 1);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_DERIVATION_METHOD_RESTRICTION:
|
|
|
*
|
|
|
* the simple or complex type has a derivation method of "restriction".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_DERIVATION_METHOD_RESTRICTION := (1 shl 2)}
|
|
|
+ XML_SCHEMAS_TYPE_DERIVATION_METHOD_RESTRICTION = (1 shl 2);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_GLOBAL:
|
|
|
*
|
|
|
* the type is global
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_GLOBAL := (1 shl 3)}
|
|
|
-(**
|
|
|
- * XML_SCHEMAS_TYPE_OWNED_ATTR_WILDCARD:
|
|
|
- *
|
|
|
- * the complexType owns an attribute wildcard, i.e.
|
|
|
- * it can be freed by the complexType
|
|
|
- *)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_OWNED_ATTR_WILDCARD := (1 shl 4)} (* Obsolete. *)
|
|
|
+ XML_SCHEMAS_TYPE_GLOBAL = (1 shl 3);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_VARIETY_ABSENT:
|
|
|
*
|
|
|
@@ -403,161 +405,163 @@
|
|
|
* none of the variety flags occur then it's
|
|
|
* automatically absent.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_VARIETY_ABSENT := (1 shl 5)}
|
|
|
+ XML_SCHEMAS_TYPE_VARIETY_ABSENT = (1 shl 5);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_VARIETY_LIST:
|
|
|
*
|
|
|
* the simpleType has a variety of "list".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_VARIETY_LIST := (1 shl 6)}
|
|
|
+ XML_SCHEMAS_TYPE_VARIETY_LIST = (1 shl 6);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_VARIETY_UNION:
|
|
|
*
|
|
|
* the simpleType has a variety of "union".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_VARIETY_UNION := (1 shl 7)}
|
|
|
+ XML_SCHEMAS_TYPE_VARIETY_UNION = (1 shl 7);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_VARIETY_ATOMIC:
|
|
|
*
|
|
|
* the simpleType has a variety of "union".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_VARIETY_ATOMIC := (1 shl 8)}
|
|
|
+ XML_SCHEMAS_TYPE_VARIETY_ATOMIC = (1 shl 8);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_FINAL_EXTENSION:
|
|
|
*
|
|
|
* the complexType has a final of "extension".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_FINAL_EXTENSION := (1 shl 9)}
|
|
|
+ XML_SCHEMAS_TYPE_FINAL_EXTENSION = (1 shl 9);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_FINAL_RESTRICTION:
|
|
|
*
|
|
|
* the simpleType/complexType has a final of "restriction".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_FINAL_RESTRICTION := (1 shl 10)}
|
|
|
+ XML_SCHEMAS_TYPE_FINAL_RESTRICTION = (1 shl 10);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_FINAL_LIST:
|
|
|
*
|
|
|
* the simpleType has a final of "list".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_FINAL_LIST := (1 shl 11)}
|
|
|
+ XML_SCHEMAS_TYPE_FINAL_LIST = (1 shl 11);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_FINAL_UNION:
|
|
|
*
|
|
|
* the simpleType has a final of "union".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_FINAL_UNION := (1 shl 12)}
|
|
|
+ XML_SCHEMAS_TYPE_FINAL_UNION = (1 shl 12);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_FINAL_DEFAULT:
|
|
|
*
|
|
|
* the simpleType has a final of "default".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_FINAL_DEFAULT := (1 shl 13)}
|
|
|
+ XML_SCHEMAS_TYPE_FINAL_DEFAULT = (1 shl 13);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_BUILTIN_PRIMITIVE:
|
|
|
*
|
|
|
* Marks the item as a builtin primitive.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_BUILTIN_PRIMITIVE := (1 shl 14)}
|
|
|
+ XML_SCHEMAS_TYPE_BUILTIN_PRIMITIVE = (1 shl 14);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_MARKED:
|
|
|
*
|
|
|
* Marks the item as marked; used for circular checks.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_MARKED := (1 shl 16)}
|
|
|
+ XML_SCHEMAS_TYPE_MARKED = (1 shl 16);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_BLOCK_DEFAULT:
|
|
|
*
|
|
|
* the complexType did not specify 'block' so use the default of the
|
|
|
* <schema> item.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_BLOCK_DEFAULT := (1 shl 17)}
|
|
|
+ XML_SCHEMAS_TYPE_BLOCK_DEFAULT = (1 shl 17);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_BLOCK_EXTENSION:
|
|
|
*
|
|
|
* the complexType has a 'block' of "extension".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_BLOCK_EXTENSION := (1 shl 18)}
|
|
|
+ XML_SCHEMAS_TYPE_BLOCK_EXTENSION = (1 shl 18);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_BLOCK_RESTRICTION:
|
|
|
*
|
|
|
* the complexType has a 'block' of "restriction".
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_BLOCK_RESTRICTION := (1 shl 19)}
|
|
|
+ XML_SCHEMAS_TYPE_BLOCK_RESTRICTION = (1 shl 19);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_ABSTRACT:
|
|
|
*
|
|
|
* the simple/complexType is abstract.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_ABSTRACT := (1 shl 20)}
|
|
|
+ XML_SCHEMAS_TYPE_ABSTRACT = (1 shl 20);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_FACETSNEEDVALUE:
|
|
|
*
|
|
|
* indicates if the facets need a computed value
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_FACETSNEEDVALUE := (1 shl 21)}
|
|
|
+ XML_SCHEMAS_TYPE_FACETSNEEDVALUE = (1 shl 21);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_INTERNAL_RESOLVED:
|
|
|
*
|
|
|
* indicates that the type was typefixed
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_INTERNAL_RESOLVED := (1 shl 22)}
|
|
|
+ XML_SCHEMAS_TYPE_INTERNAL_RESOLVED = (1 shl 22);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_INTERNAL_INVALID:
|
|
|
*
|
|
|
* indicates that the type is invalid
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_INTERNAL_INVALID := (1 shl 23)}
|
|
|
+ XML_SCHEMAS_TYPE_INTERNAL_INVALID = (1 shl 23);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_WHITESPACE_PRESERVE:
|
|
|
*
|
|
|
* a whitespace-facet value of "preserve"
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_WHITESPACE_PRESERVE := (1 shl 24)}
|
|
|
+ XML_SCHEMAS_TYPE_WHITESPACE_PRESERVE = (1 shl 24);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_WHITESPACE_REPLACE:
|
|
|
*
|
|
|
* a whitespace-facet value of "replace"
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_WHITESPACE_REPLACE := (1 shl 25)}
|
|
|
+ XML_SCHEMAS_TYPE_WHITESPACE_REPLACE = (1 shl 25);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_WHITESPACE_COLLAPSE:
|
|
|
*
|
|
|
* a whitespace-facet value of "collapse"
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_WHITESPACE_COLLAPSE := (1 shl 26)}
|
|
|
+ XML_SCHEMAS_TYPE_WHITESPACE_COLLAPSE = (1 shl 26);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_HAS_FACETS:
|
|
|
*
|
|
|
* has facets
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_HAS_FACETS := (1 shl 27)}
|
|
|
+ XML_SCHEMAS_TYPE_HAS_FACETS = (1 shl 27);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_NORMVALUENEEDED:
|
|
|
*
|
|
|
* indicates if the facets (pattern) need a normalized value
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_NORMVALUENEEDED := (1 shl 28)}
|
|
|
+ XML_SCHEMAS_TYPE_NORMVALUENEEDED = (1 shl 28);
|
|
|
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_FIXUP_1:
|
|
|
*
|
|
|
* First stage of fixup was done.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_FIXUP_1 := (1 shl 29)}
|
|
|
+ XML_SCHEMAS_TYPE_FIXUP_1 = (1 shl 29);
|
|
|
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_REDEFINED:
|
|
|
*
|
|
|
* The type was redefined.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_TYPE_REDEFINED := (1 shl 30)}
|
|
|
+ XML_SCHEMAS_TYPE_REDEFINED = (1 shl 30);
|
|
|
(**
|
|
|
* XML_SCHEMAS_TYPE_REDEFINING:
|
|
|
*
|
|
|
* The type redefines an other type.
|
|
|
*)
|
|
|
-(* {$DEFINE XML_SCHEMAS_TYPE_REDEFINING := (1 shl 31)} *)
|
|
|
+(* XML_SCHEMAS_TYPE_REDEFINING = (1 shl 31); *)
|
|
|
+{$ENDIF}
|
|
|
|
|
|
+{$IFDEF TYPE}
|
|
|
(**
|
|
|
* _xmlSchemaType:
|
|
|
*
|
|
|
@@ -597,7 +601,9 @@
|
|
|
targetNamespace : xmlCharPtr;
|
|
|
attrUses : pointer;
|
|
|
end;
|
|
|
+{$ENDIF}
|
|
|
|
|
|
+{$IFDEF CONST}
|
|
|
(*
|
|
|
* xmlSchemaElement:
|
|
|
* An element definition.
|
|
|
@@ -610,120 +616,108 @@
|
|
|
*
|
|
|
* the element is nillable
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_NILLABLE := (1 shl 0)}
|
|
|
+ XML_SCHEMAS_ELEM_NILLABLE = (1 shl 0);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_GLOBAL:
|
|
|
*
|
|
|
* the element is global
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_GLOBAL := (1 shl 1)}
|
|
|
+ XML_SCHEMAS_ELEM_GLOBAL = (1 shl 1);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_DEFAULT:
|
|
|
*
|
|
|
* the element has a default value
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_DEFAULT := (1 shl 2)}
|
|
|
+ XML_SCHEMAS_ELEM_DEFAULT = (1 shl 2);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_FIXED:
|
|
|
*
|
|
|
* the element has a fixed value
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_FIXED := (1 shl 3)}
|
|
|
+ XML_SCHEMAS_ELEM_FIXED = (1 shl 3);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_ABSTRACT:
|
|
|
*
|
|
|
* the element is abstract
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_ABSTRACT := (1 shl 4)}
|
|
|
-(**
|
|
|
- * XML_SCHEMAS_ELEM_TOPLEVEL:
|
|
|
- *
|
|
|
- * the element is top level
|
|
|
- * obsolete: use XML_SCHEMAS_ELEM_GLOBAL instead
|
|
|
- *)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_TOPLEVEL := (1 shl 5)}
|
|
|
+ XML_SCHEMAS_ELEM_ABSTRACT = (1 shl 4);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_REF:
|
|
|
*
|
|
|
* the element is a reference to a type
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_REF := (1 shl 6)}
|
|
|
-(**
|
|
|
- * XML_SCHEMAS_ELEM_NSDEFAULT:
|
|
|
- *
|
|
|
- * allow elements in no namespace
|
|
|
- * Obsolete, not used anymore.
|
|
|
- *)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_NSDEFAULT := (1 shl 7)}
|
|
|
+ XML_SCHEMAS_ELEM_REF = (1 shl 6);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_INTERNAL_RESOLVED:
|
|
|
*
|
|
|
* this is set when "type", "ref", "substitutionGroup"
|
|
|
* references have been resolved.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_INTERNAL_RESOLVED := (1 shl 8)}
|
|
|
+ XML_SCHEMAS_ELEM_INTERNAL_RESOLVED = (1 shl 8);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_CIRCULAR:
|
|
|
*
|
|
|
* a helper flag for the search of circular references.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_CIRCULAR := (1 shl 9)}
|
|
|
+ XML_SCHEMAS_ELEM_CIRCULAR = (1 shl 9);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_BLOCK_ABSENT:
|
|
|
*
|
|
|
* the "block" attribute is absent
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_BLOCK_ABSENT := (1 shl 10)}
|
|
|
+ XML_SCHEMAS_ELEM_BLOCK_ABSENT = (1 shl 10);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_BLOCK_EXTENSION:
|
|
|
*
|
|
|
* disallowed substitutions are absent
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_BLOCK_EXTENSION := (1 shl 11)}
|
|
|
+ XML_SCHEMAS_ELEM_BLOCK_EXTENSION = (1 shl 11);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_BLOCK_RESTRICTION:
|
|
|
*
|
|
|
* disallowed substitutions: "restriction"
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_BLOCK_RESTRICTION := (1 shl 12)}
|
|
|
+ XML_SCHEMAS_ELEM_BLOCK_RESTRICTION = (1 shl 12);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_BLOCK_SUBSTITUTION:
|
|
|
*
|
|
|
* disallowed substitutions: "substituion"
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_BLOCK_SUBSTITUTION := (1 shl 13)}
|
|
|
+ XML_SCHEMAS_ELEM_BLOCK_SUBSTITUTION = (1 shl 13);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_FINAL_ABSENT:
|
|
|
*
|
|
|
* substitution group exclusions are absent
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_FINAL_ABSENT := (1 shl 14)}
|
|
|
+ XML_SCHEMAS_ELEM_FINAL_ABSENT = (1 shl 14);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_FINAL_EXTENSION:
|
|
|
*
|
|
|
* substitution group exclusions: "extension"
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_FINAL_EXTENSION := (1 shl 15)}
|
|
|
+ XML_SCHEMAS_ELEM_FINAL_EXTENSION = (1 shl 15);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_FINAL_RESTRICTION:
|
|
|
*
|
|
|
* substitution group exclusions: "restriction"
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_FINAL_RESTRICTION := (1 shl 16)}
|
|
|
+ XML_SCHEMAS_ELEM_FINAL_RESTRICTION = (1 shl 16);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_SUBST_GROUP_HEAD:
|
|
|
*
|
|
|
* the declaration is a substitution group head
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_SUBST_GROUP_HEAD := (1 shl 17)}
|
|
|
+ XML_SCHEMAS_ELEM_SUBST_GROUP_HEAD = (1 shl 17);
|
|
|
(**
|
|
|
* XML_SCHEMAS_ELEM_INTERNAL_CHECKED:
|
|
|
*
|
|
|
* this is set when the elem decl has been checked against
|
|
|
* all constraints
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_ELEM_INTERNAL_CHECKED := (1 shl 18)}
|
|
|
+ XML_SCHEMAS_ELEM_INTERNAL_CHECKED = (1 shl 18);
|
|
|
+{$ENDIF}
|
|
|
|
|
|
+{$IFDEF TYPE}
|
|
|
xmlSchemaElement = record
|
|
|
_type : xmlSchemaTypeType; (* The kind of type *)
|
|
|
next : xmlSchemaTypePtr; (* Not used? *)
|
|
|
@@ -754,31 +748,36 @@
|
|
|
defVal : xmlSchemaValPtr; (* The compiled value contraint. *)
|
|
|
idcs : pointer; (* The identity-constraint defs *)
|
|
|
end;
|
|
|
+{$ENDIF}
|
|
|
|
|
|
+{$IFDEF CONST}
|
|
|
(*
|
|
|
* XML_SCHEMAS_FACET_UNKNOWN:
|
|
|
*
|
|
|
* unknown facet handling
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_FACET_UNKNOWN := (0)}
|
|
|
+ XML_SCHEMAS_FACET_UNKNOWN = (0);
|
|
|
(*
|
|
|
* XML_SCHEMAS_FACET_PRESERVE:
|
|
|
*
|
|
|
* preserve the type of the facet
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_FACET_PRESERVE := (1)}
|
|
|
+ XML_SCHEMAS_FACET_PRESERVE = (1);
|
|
|
(*
|
|
|
* XML_SCHEMAS_FACET_REPLACE:
|
|
|
*
|
|
|
* replace the type of the facet
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_FACET_REPLACE := (2)}
|
|
|
+ XML_SCHEMAS_FACET_REPLACE = (2);
|
|
|
(*
|
|
|
* XML_SCHEMAS_FACET_COLLAPSE:
|
|
|
*
|
|
|
* collapse the types of the facet
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_FACET_COLLAPSE := (3)}
|
|
|
+ XML_SCHEMAS_FACET_COLLAPSE = (3);
|
|
|
+{$ENDIF}
|
|
|
+
|
|
|
+{$IFDEF TYPE}
|
|
|
(**
|
|
|
* A facet definition.
|
|
|
*)
|
|
|
@@ -805,7 +804,9 @@
|
|
|
identifier : xmlCharPtr;
|
|
|
targetNamespace : xmlCharPtr;
|
|
|
end;
|
|
|
+{$ENDIF}
|
|
|
|
|
|
+{$IFDEF CONST}
|
|
|
(*
|
|
|
* TODO: Actually all those flags used for the schema should sit
|
|
|
* on the schema parser context, since they are used only
|
|
|
@@ -818,63 +819,66 @@
|
|
|
* Reflects elementFormDefault == qualified in
|
|
|
* an XML schema document.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_QUALIF_ELEM := (1 shl 0)}
|
|
|
+ XML_SCHEMAS_QUALIF_ELEM = (1 shl 0);
|
|
|
(**
|
|
|
* XML_SCHEMAS_QUALIF_ATTR:
|
|
|
*
|
|
|
* Reflects attributeFormDefault == qualified in
|
|
|
* an XML schema document.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_QUALIF_ATTR := (1 shl 1)}
|
|
|
+ XML_SCHEMAS_QUALIF_ATTR = (1 shl 1);
|
|
|
(**
|
|
|
* XML_SCHEMAS_FINAL_DEFAULT_EXTENSION:
|
|
|
*
|
|
|
* the schema has "extension" in the set of finalDefault.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_FINAL_DEFAULT_EXTENSION := (1 shl 2)}
|
|
|
+ XML_SCHEMAS_FINAL_DEFAULT_EXTENSION = (1 shl 2);
|
|
|
(**
|
|
|
* XML_SCHEMAS_FINAL_DEFAULT_RESTRICTION:
|
|
|
*
|
|
|
* the schema has "restriction" in the set of finalDefault.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_FINAL_DEFAULT_RESTRICTION := (1 shl 3)}
|
|
|
+ XML_SCHEMAS_FINAL_DEFAULT_RESTRICTION = (1 shl 3);
|
|
|
(**
|
|
|
* XML_SCHEMAS_FINAL_DEFAULT_LIST:
|
|
|
*
|
|
|
* the cshema has "list" in the set of finalDefault.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_FINAL_DEFAULT_LIST := (1 shl 4)}
|
|
|
+ XML_SCHEMAS_FINAL_DEFAULT_LIST = (1 shl 4);
|
|
|
(**
|
|
|
* XML_SCHEMAS_FINAL_DEFAULT_UNION:
|
|
|
*
|
|
|
* the schema has "union" in the set of finalDefault.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_FINAL_DEFAULT_UNION := (1 shl 5)}
|
|
|
+ XML_SCHEMAS_FINAL_DEFAULT_UNION = (1 shl 5);
|
|
|
(**
|
|
|
* XML_SCHEMAS_BLOCK_DEFAULT_EXTENSION:
|
|
|
*
|
|
|
* the schema has "extension" in the set of blockDefault.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_BLOCK_DEFAULT_EXTENSION := (1 shl 6)}
|
|
|
+ XML_SCHEMAS_BLOCK_DEFAULT_EXTENSION = (1 shl 6);
|
|
|
(**
|
|
|
* XML_SCHEMAS_BLOCK_DEFAULT_RESTRICTION:
|
|
|
*
|
|
|
* the schema has "restriction" in the set of blockDefault.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_BLOCK_DEFAULT_RESTRICTION := (1 shl 7)}
|
|
|
+ XML_SCHEMAS_BLOCK_DEFAULT_RESTRICTION = (1 shl 7);
|
|
|
(**
|
|
|
* XML_SCHEMAS_BLOCK_DEFAULT_SUBSTITUTION:
|
|
|
*
|
|
|
* the schema has "substitution" in the set of blockDefault.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_BLOCK_DEFAULT_SUBSTITUTION := (1 shl 8)}
|
|
|
+ XML_SCHEMAS_BLOCK_DEFAULT_SUBSTITUTION = (1 shl 8);
|
|
|
(**
|
|
|
* XML_SCHEMAS_INCLUDING_CONVERT_NS:
|
|
|
*
|
|
|
* the schema is currently including an other schema with
|
|
|
* no target namespace.
|
|
|
*)
|
|
|
-{$DEFINE XML_SCHEMAS_INCLUDING_CONVERT_NS := (1 shl 9)}
|
|
|
+ XML_SCHEMAS_INCLUDING_CONVERT_NS = (1 shl 9);
|
|
|
+{$ENDIF}
|
|
|
+
|
|
|
+{$IFDEF TYPE}
|
|
|
(**
|
|
|
* _xmlSchema:
|
|
|
*
|
ivost