2 * schemastypes.c : implementation of the XML Schema Datatypes
3 * definition and validity checking
5 * See Copyright for the status of this software.
7 * Daniel Veillard <veillard@redhat.com>
13 #ifdef LIBXML_SCHEMAS_ENABLED
16 #include <libxml/xmlmemory.h>
17 #include <libxml/parser.h>
18 #include <libxml/parserInternals.h>
19 #include <libxml/hash.h>
20 #include <libxml/valid.h>
21 #include <libxml/xpath.h>
22 #include <libxml/uri.h>
24 #include <libxml/xmlschemas.h>
25 #include <libxml/schemasInternals.h>
26 #include <libxml/xmlschemastypes.h>
37 #ifndef LIBXML_XPATH_ENABLED
38 extern double xmlXPathNAN
;
39 extern double xmlXPathPINF
;
40 extern double xmlXPathNINF
;
44 xmlGenericError(xmlGenericErrorContext, \
45 "Unimplemented block at %s:%d\n", \
48 #define XML_SCHEMAS_NAMESPACE_NAME \
49 (const xmlChar *)"http://www.w3.org/2001/XMLSchema"
51 #define IS_WSP_REPLACE_CH(c) ((((c) == 0x9) || ((c) == 0xa)) || \
54 #define IS_WSP_SPACE_CH(c) ((c) == 0x20)
56 #define IS_WSP_BLANK_CH(c) IS_BLANK_CH(c)
59 typedef struct _xmlSchemaValDate xmlSchemaValDate
;
60 typedef xmlSchemaValDate
*xmlSchemaValDatePtr
;
61 struct _xmlSchemaValDate
{
63 unsigned int mon
:4; /* 1 <= mon <= 12 */
64 unsigned int day
:5; /* 1 <= day <= 31 */
65 unsigned int hour
:5; /* 0 <= hour <= 23 */
66 unsigned int min
:6; /* 0 <= min <= 59 */
68 unsigned int tz_flag
:1; /* is tzo explicitely set? */
69 signed int tzo
:12; /* -1440 <= tzo <= 1440;
70 currently only -840 to +840 are needed */
74 typedef struct _xmlSchemaValDuration xmlSchemaValDuration
;
75 typedef xmlSchemaValDuration
*xmlSchemaValDurationPtr
;
76 struct _xmlSchemaValDuration
{
77 long mon
; /* mon stores years also */
79 double sec
; /* sec stores min and hour also */
82 typedef struct _xmlSchemaValDecimal xmlSchemaValDecimal
;
83 typedef xmlSchemaValDecimal
*xmlSchemaValDecimalPtr
;
84 struct _xmlSchemaValDecimal
{
85 /* would use long long but not portable */
95 typedef struct _xmlSchemaValQName xmlSchemaValQName
;
96 typedef xmlSchemaValQName
*xmlSchemaValQNamePtr
;
97 struct _xmlSchemaValQName
{
102 typedef struct _xmlSchemaValHex xmlSchemaValHex
;
103 typedef xmlSchemaValHex
*xmlSchemaValHexPtr
;
104 struct _xmlSchemaValHex
{
109 typedef struct _xmlSchemaValBase64 xmlSchemaValBase64
;
110 typedef xmlSchemaValBase64
*xmlSchemaValBase64Ptr
;
111 struct _xmlSchemaValBase64
{
116 struct _xmlSchemaVal
{
117 xmlSchemaValType type
;
118 struct _xmlSchemaVal
*next
;
120 xmlSchemaValDecimal decimal
;
121 xmlSchemaValDate date
;
122 xmlSchemaValDuration dur
;
123 xmlSchemaValQName qname
;
125 xmlSchemaValBase64 base64
;
133 static int xmlSchemaTypesInitialized
= 0;
134 static xmlHashTablePtr xmlSchemaTypesBank
= NULL
;
139 static xmlSchemaTypePtr xmlSchemaTypeStringDef
= NULL
;
140 static xmlSchemaTypePtr xmlSchemaTypeAnyTypeDef
= NULL
;
141 static xmlSchemaTypePtr xmlSchemaTypeAnySimpleTypeDef
= NULL
;
142 static xmlSchemaTypePtr xmlSchemaTypeDecimalDef
= NULL
;
143 static xmlSchemaTypePtr xmlSchemaTypeDatetimeDef
= NULL
;
144 static xmlSchemaTypePtr xmlSchemaTypeDateDef
= NULL
;
145 static xmlSchemaTypePtr xmlSchemaTypeTimeDef
= NULL
;
146 static xmlSchemaTypePtr xmlSchemaTypeGYearDef
= NULL
;
147 static xmlSchemaTypePtr xmlSchemaTypeGYearMonthDef
= NULL
;
148 static xmlSchemaTypePtr xmlSchemaTypeGDayDef
= NULL
;
149 static xmlSchemaTypePtr xmlSchemaTypeGMonthDayDef
= NULL
;
150 static xmlSchemaTypePtr xmlSchemaTypeGMonthDef
= NULL
;
151 static xmlSchemaTypePtr xmlSchemaTypeDurationDef
= NULL
;
152 static xmlSchemaTypePtr xmlSchemaTypeFloatDef
= NULL
;
153 static xmlSchemaTypePtr xmlSchemaTypeBooleanDef
= NULL
;
154 static xmlSchemaTypePtr xmlSchemaTypeDoubleDef
= NULL
;
155 static xmlSchemaTypePtr xmlSchemaTypeHexBinaryDef
= NULL
;
156 static xmlSchemaTypePtr xmlSchemaTypeBase64BinaryDef
= NULL
;
157 static xmlSchemaTypePtr xmlSchemaTypeAnyURIDef
= NULL
;
162 static xmlSchemaTypePtr xmlSchemaTypePositiveIntegerDef
= NULL
;
163 static xmlSchemaTypePtr xmlSchemaTypeNonPositiveIntegerDef
= NULL
;
164 static xmlSchemaTypePtr xmlSchemaTypeNegativeIntegerDef
= NULL
;
165 static xmlSchemaTypePtr xmlSchemaTypeNonNegativeIntegerDef
= NULL
;
166 static xmlSchemaTypePtr xmlSchemaTypeIntegerDef
= NULL
;
167 static xmlSchemaTypePtr xmlSchemaTypeLongDef
= NULL
;
168 static xmlSchemaTypePtr xmlSchemaTypeIntDef
= NULL
;
169 static xmlSchemaTypePtr xmlSchemaTypeShortDef
= NULL
;
170 static xmlSchemaTypePtr xmlSchemaTypeByteDef
= NULL
;
171 static xmlSchemaTypePtr xmlSchemaTypeUnsignedLongDef
= NULL
;
172 static xmlSchemaTypePtr xmlSchemaTypeUnsignedIntDef
= NULL
;
173 static xmlSchemaTypePtr xmlSchemaTypeUnsignedShortDef
= NULL
;
174 static xmlSchemaTypePtr xmlSchemaTypeUnsignedByteDef
= NULL
;
175 static xmlSchemaTypePtr xmlSchemaTypeNormStringDef
= NULL
;
176 static xmlSchemaTypePtr xmlSchemaTypeTokenDef
= NULL
;
177 static xmlSchemaTypePtr xmlSchemaTypeLanguageDef
= NULL
;
178 static xmlSchemaTypePtr xmlSchemaTypeNameDef
= NULL
;
179 static xmlSchemaTypePtr xmlSchemaTypeQNameDef
= NULL
;
180 static xmlSchemaTypePtr xmlSchemaTypeNCNameDef
= NULL
;
181 static xmlSchemaTypePtr xmlSchemaTypeIdDef
= NULL
;
182 static xmlSchemaTypePtr xmlSchemaTypeIdrefDef
= NULL
;
183 static xmlSchemaTypePtr xmlSchemaTypeIdrefsDef
= NULL
;
184 static xmlSchemaTypePtr xmlSchemaTypeEntityDef
= NULL
;
185 static xmlSchemaTypePtr xmlSchemaTypeEntitiesDef
= NULL
;
186 static xmlSchemaTypePtr xmlSchemaTypeNotationDef
= NULL
;
187 static xmlSchemaTypePtr xmlSchemaTypeNmtokenDef
= NULL
;
188 static xmlSchemaTypePtr xmlSchemaTypeNmtokensDef
= NULL
;
190 /************************************************************************
192 * Datatype error handlers *
194 ************************************************************************/
196 * xmlSchemaTypeErrMemory:
197 * @extra: extra informations
199 * Handle an out of memory condition
202 xmlSchemaTypeErrMemory(xmlNodePtr node
, const char *extra
)
204 __xmlSimpleError(XML_FROM_DATATYPE
, XML_ERR_NO_MEMORY
, node
, NULL
, extra
);
207 /************************************************************************
209 * Base types support *
211 ************************************************************************/
215 * @type: the value type
217 * Allocate a new simple type value
219 * Returns a pointer to the new value or NULL in case of error
221 static xmlSchemaValPtr
222 xmlSchemaNewValue(xmlSchemaValType type
) {
223 xmlSchemaValPtr value
;
225 value
= (xmlSchemaValPtr
) xmlMalloc(sizeof(xmlSchemaVal
));
229 memset(value
, 0, sizeof(xmlSchemaVal
));
234 static xmlSchemaFacetPtr
235 xmlSchemaNewMinLengthFacet(int value
)
237 xmlSchemaFacetPtr ret
;
239 ret
= xmlSchemaNewFacet();
243 ret
->type
= XML_SCHEMA_FACET_MINLENGTH
;
244 ret
->val
= xmlSchemaNewValue(XML_SCHEMAS_NNINTEGER
);
245 ret
->val
->value
.decimal
.lo
= value
;
250 * xmlSchemaInitBasicType:
251 * @name: the type name
252 * @type: the value type associated
254 * Initialize one primitive built-in type
256 static xmlSchemaTypePtr
257 xmlSchemaInitBasicType(const char *name
, xmlSchemaValType type
,
258 xmlSchemaTypePtr baseType
) {
259 xmlSchemaTypePtr ret
;
261 ret
= (xmlSchemaTypePtr
) xmlMalloc(sizeof(xmlSchemaType
));
263 xmlSchemaTypeErrMemory(NULL
, "could not initialize basic types");
266 memset(ret
, 0, sizeof(xmlSchemaType
));
267 ret
->name
= (const xmlChar
*)name
;
268 ret
->targetNamespace
= XML_SCHEMAS_NAMESPACE_NAME
;
269 ret
->type
= XML_SCHEMA_TYPE_BASIC
;
270 ret
->baseType
= baseType
;
271 ret
->contentType
= XML_SCHEMA_CONTENT_BASIC
;
276 case XML_SCHEMAS_STRING
:
277 case XML_SCHEMAS_DECIMAL
:
278 case XML_SCHEMAS_DATE
:
279 case XML_SCHEMAS_DATETIME
:
280 case XML_SCHEMAS_TIME
:
281 case XML_SCHEMAS_GYEAR
:
282 case XML_SCHEMAS_GYEARMONTH
:
283 case XML_SCHEMAS_GMONTH
:
284 case XML_SCHEMAS_GMONTHDAY
:
285 case XML_SCHEMAS_GDAY
:
286 case XML_SCHEMAS_DURATION
:
287 case XML_SCHEMAS_FLOAT
:
288 case XML_SCHEMAS_DOUBLE
:
289 case XML_SCHEMAS_BOOLEAN
:
290 case XML_SCHEMAS_ANYURI
:
291 case XML_SCHEMAS_HEXBINARY
:
292 case XML_SCHEMAS_BASE64BINARY
:
293 case XML_SCHEMAS_QNAME
:
294 case XML_SCHEMAS_NOTATION
:
295 ret
->flags
|= XML_SCHEMAS_TYPE_BUILTIN_PRIMITIVE
;
304 case XML_SCHEMAS_ANYTYPE
:
305 case XML_SCHEMAS_ANYSIMPLETYPE
:
307 case XML_SCHEMAS_IDREFS
:
308 case XML_SCHEMAS_NMTOKENS
:
309 case XML_SCHEMAS_ENTITIES
:
310 ret
->flags
|= XML_SCHEMAS_TYPE_VARIETY_LIST
;
311 ret
->facets
= xmlSchemaNewMinLengthFacet(1);
312 ret
->flags
|= XML_SCHEMAS_TYPE_HAS_FACETS
;
315 ret
->flags
|= XML_SCHEMAS_TYPE_VARIETY_ATOMIC
;
318 xmlHashAddEntry2(xmlSchemaTypesBank
, ret
->name
,
319 XML_SCHEMAS_NAMESPACE_NAME
, ret
);
320 ret
->builtInType
= type
;
325 * WARNING: Those type reside normally in xmlschemas.c but are
326 * redefined here locally in oder of being able to use them for xs:anyType-
327 * TODO: Remove those definition if we move the types to a header file.
328 * TODO: Always keep those structs up-to-date with the originals.
330 #define UNBOUNDED (1 << 30)
332 typedef struct _xmlSchemaTreeItem xmlSchemaTreeItem
;
333 typedef xmlSchemaTreeItem
*xmlSchemaTreeItemPtr
;
334 struct _xmlSchemaTreeItem
{
335 xmlSchemaTypeType type
;
336 xmlSchemaAnnotPtr annot
;
337 xmlSchemaTreeItemPtr next
;
338 xmlSchemaTreeItemPtr children
;
341 typedef struct _xmlSchemaParticle xmlSchemaParticle
;
342 typedef xmlSchemaParticle
*xmlSchemaParticlePtr
;
343 struct _xmlSchemaParticle
{
344 xmlSchemaTypeType type
;
345 xmlSchemaAnnotPtr annot
;
346 xmlSchemaTreeItemPtr next
;
347 xmlSchemaTreeItemPtr children
;
353 typedef struct _xmlSchemaModelGroup xmlSchemaModelGroup
;
354 typedef xmlSchemaModelGroup
*xmlSchemaModelGroupPtr
;
355 struct _xmlSchemaModelGroup
{
356 xmlSchemaTypeType type
;
357 xmlSchemaAnnotPtr annot
;
358 xmlSchemaTreeItemPtr next
;
359 xmlSchemaTreeItemPtr children
;
363 static xmlSchemaParticlePtr
364 xmlSchemaAddParticle(void)
366 xmlSchemaParticlePtr ret
= NULL
;
368 ret
= (xmlSchemaParticlePtr
)
369 xmlMalloc(sizeof(xmlSchemaParticle
));
371 xmlSchemaTypeErrMemory(NULL
, "allocating particle component");
374 memset(ret
, 0, sizeof(xmlSchemaParticle
));
375 ret
->type
= XML_SCHEMA_TYPE_PARTICLE
;
382 * xmlSchemaInitTypes:
384 * Initialize the default XML Schemas type library
387 xmlSchemaInitTypes(void)
389 if (xmlSchemaTypesInitialized
!= 0)
391 xmlSchemaTypesBank
= xmlHashCreate(40);
395 * 3.4.7 Built-in Complex Type Definition
397 xmlSchemaTypeAnyTypeDef
= xmlSchemaInitBasicType("anyType",
400 xmlSchemaTypeAnyTypeDef
->baseType
= xmlSchemaTypeAnyTypeDef
;
401 xmlSchemaTypeAnyTypeDef
->contentType
= XML_SCHEMA_CONTENT_MIXED
;
403 * Init the content type.
405 xmlSchemaTypeAnyTypeDef
->contentType
= XML_SCHEMA_CONTENT_MIXED
;
407 xmlSchemaParticlePtr particle
;
408 xmlSchemaModelGroupPtr sequence
;
409 xmlSchemaWildcardPtr wild
;
410 /* First particle. */
411 particle
= xmlSchemaAddParticle();
412 if (particle
== NULL
)
414 xmlSchemaTypeAnyTypeDef
->subtypes
= (xmlSchemaTypePtr
) particle
;
415 /* Sequence model group. */
416 sequence
= (xmlSchemaModelGroupPtr
)
417 xmlMalloc(sizeof(xmlSchemaModelGroup
));
418 if (sequence
== NULL
) {
419 xmlSchemaTypeErrMemory(NULL
, "allocating model group component");
422 memset(sequence
, 0, sizeof(xmlSchemaModelGroup
));
423 sequence
->type
= XML_SCHEMA_TYPE_SEQUENCE
;
424 particle
->children
= (xmlSchemaTreeItemPtr
) sequence
;
425 /* Second particle. */
426 particle
= xmlSchemaAddParticle();
427 if (particle
== NULL
)
429 particle
->minOccurs
= 0;
430 particle
->maxOccurs
= UNBOUNDED
;
431 sequence
->children
= (xmlSchemaTreeItemPtr
) particle
;
433 wild
= (xmlSchemaWildcardPtr
) xmlMalloc(sizeof(xmlSchemaWildcard
));
435 xmlSchemaTypeErrMemory(NULL
, "allocating wildcard component");
438 memset(wild
, 0, sizeof(xmlSchemaWildcard
));
439 wild
->type
= XML_SCHEMA_TYPE_ANY
;
441 wild
->processContents
= XML_SCHEMAS_ANY_LAX
;
442 particle
->children
= (xmlSchemaTreeItemPtr
) wild
;
444 * Create the attribute wildcard.
446 wild
= (xmlSchemaWildcardPtr
) xmlMalloc(sizeof(xmlSchemaWildcard
));
448 xmlSchemaTypeErrMemory(NULL
, "could not create an attribute "
449 "wildcard on anyType");
452 memset(wild
, 0, sizeof(xmlSchemaWildcard
));
454 wild
->processContents
= XML_SCHEMAS_ANY_LAX
;
455 xmlSchemaTypeAnyTypeDef
->attributeWildcard
= wild
;
457 xmlSchemaTypeAnySimpleTypeDef
= xmlSchemaInitBasicType("anySimpleType",
458 XML_SCHEMAS_ANYSIMPLETYPE
,
459 xmlSchemaTypeAnyTypeDef
);
461 * primitive datatypes
463 xmlSchemaTypeStringDef
= xmlSchemaInitBasicType("string",
465 xmlSchemaTypeAnySimpleTypeDef
);
466 xmlSchemaTypeDecimalDef
= xmlSchemaInitBasicType("decimal",
468 xmlSchemaTypeAnySimpleTypeDef
);
469 xmlSchemaTypeDateDef
= xmlSchemaInitBasicType("date",
471 xmlSchemaTypeAnySimpleTypeDef
);
472 xmlSchemaTypeDatetimeDef
= xmlSchemaInitBasicType("dateTime",
473 XML_SCHEMAS_DATETIME
,
474 xmlSchemaTypeAnySimpleTypeDef
);
475 xmlSchemaTypeTimeDef
= xmlSchemaInitBasicType("time",
477 xmlSchemaTypeAnySimpleTypeDef
);
478 xmlSchemaTypeGYearDef
= xmlSchemaInitBasicType("gYear",
480 xmlSchemaTypeAnySimpleTypeDef
);
481 xmlSchemaTypeGYearMonthDef
= xmlSchemaInitBasicType("gYearMonth",
482 XML_SCHEMAS_GYEARMONTH
,
483 xmlSchemaTypeAnySimpleTypeDef
);
484 xmlSchemaTypeGMonthDef
= xmlSchemaInitBasicType("gMonth",
486 xmlSchemaTypeAnySimpleTypeDef
);
487 xmlSchemaTypeGMonthDayDef
= xmlSchemaInitBasicType("gMonthDay",
488 XML_SCHEMAS_GMONTHDAY
,
489 xmlSchemaTypeAnySimpleTypeDef
);
490 xmlSchemaTypeGDayDef
= xmlSchemaInitBasicType("gDay",
492 xmlSchemaTypeAnySimpleTypeDef
);
493 xmlSchemaTypeDurationDef
= xmlSchemaInitBasicType("duration",
494 XML_SCHEMAS_DURATION
,
495 xmlSchemaTypeAnySimpleTypeDef
);
496 xmlSchemaTypeFloatDef
= xmlSchemaInitBasicType("float",
498 xmlSchemaTypeAnySimpleTypeDef
);
499 xmlSchemaTypeDoubleDef
= xmlSchemaInitBasicType("double",
501 xmlSchemaTypeAnySimpleTypeDef
);
502 xmlSchemaTypeBooleanDef
= xmlSchemaInitBasicType("boolean",
504 xmlSchemaTypeAnySimpleTypeDef
);
505 xmlSchemaTypeAnyURIDef
= xmlSchemaInitBasicType("anyURI",
507 xmlSchemaTypeAnySimpleTypeDef
);
508 xmlSchemaTypeHexBinaryDef
= xmlSchemaInitBasicType("hexBinary",
509 XML_SCHEMAS_HEXBINARY
,
510 xmlSchemaTypeAnySimpleTypeDef
);
511 xmlSchemaTypeBase64BinaryDef
512 = xmlSchemaInitBasicType("base64Binary", XML_SCHEMAS_BASE64BINARY
,
513 xmlSchemaTypeAnySimpleTypeDef
);
514 xmlSchemaTypeNotationDef
= xmlSchemaInitBasicType("NOTATION",
515 XML_SCHEMAS_NOTATION
,
516 xmlSchemaTypeAnySimpleTypeDef
);
517 xmlSchemaTypeQNameDef
= xmlSchemaInitBasicType("QName",
519 xmlSchemaTypeAnySimpleTypeDef
);
524 xmlSchemaTypeIntegerDef
= xmlSchemaInitBasicType("integer",
526 xmlSchemaTypeDecimalDef
);
527 xmlSchemaTypeNonPositiveIntegerDef
=
528 xmlSchemaInitBasicType("nonPositiveInteger",
529 XML_SCHEMAS_NPINTEGER
,
530 xmlSchemaTypeIntegerDef
);
531 xmlSchemaTypeNegativeIntegerDef
=
532 xmlSchemaInitBasicType("negativeInteger", XML_SCHEMAS_NINTEGER
,
533 xmlSchemaTypeNonPositiveIntegerDef
);
534 xmlSchemaTypeLongDef
=
535 xmlSchemaInitBasicType("long", XML_SCHEMAS_LONG
,
536 xmlSchemaTypeIntegerDef
);
537 xmlSchemaTypeIntDef
= xmlSchemaInitBasicType("int", XML_SCHEMAS_INT
,
538 xmlSchemaTypeLongDef
);
539 xmlSchemaTypeShortDef
= xmlSchemaInitBasicType("short",
541 xmlSchemaTypeIntDef
);
542 xmlSchemaTypeByteDef
= xmlSchemaInitBasicType("byte",
544 xmlSchemaTypeShortDef
);
545 xmlSchemaTypeNonNegativeIntegerDef
=
546 xmlSchemaInitBasicType("nonNegativeInteger",
547 XML_SCHEMAS_NNINTEGER
,
548 xmlSchemaTypeIntegerDef
);
549 xmlSchemaTypeUnsignedLongDef
=
550 xmlSchemaInitBasicType("unsignedLong", XML_SCHEMAS_ULONG
,
551 xmlSchemaTypeNonNegativeIntegerDef
);
552 xmlSchemaTypeUnsignedIntDef
=
553 xmlSchemaInitBasicType("unsignedInt", XML_SCHEMAS_UINT
,
554 xmlSchemaTypeUnsignedLongDef
);
555 xmlSchemaTypeUnsignedShortDef
=
556 xmlSchemaInitBasicType("unsignedShort", XML_SCHEMAS_USHORT
,
557 xmlSchemaTypeUnsignedIntDef
);
558 xmlSchemaTypeUnsignedByteDef
=
559 xmlSchemaInitBasicType("unsignedByte", XML_SCHEMAS_UBYTE
,
560 xmlSchemaTypeUnsignedShortDef
);
561 xmlSchemaTypePositiveIntegerDef
=
562 xmlSchemaInitBasicType("positiveInteger", XML_SCHEMAS_PINTEGER
,
563 xmlSchemaTypeNonNegativeIntegerDef
);
564 xmlSchemaTypeNormStringDef
= xmlSchemaInitBasicType("normalizedString",
565 XML_SCHEMAS_NORMSTRING
,
566 xmlSchemaTypeStringDef
);
567 xmlSchemaTypeTokenDef
= xmlSchemaInitBasicType("token",
569 xmlSchemaTypeNormStringDef
);
570 xmlSchemaTypeLanguageDef
= xmlSchemaInitBasicType("language",
571 XML_SCHEMAS_LANGUAGE
,
572 xmlSchemaTypeTokenDef
);
573 xmlSchemaTypeNameDef
= xmlSchemaInitBasicType("Name",
575 xmlSchemaTypeTokenDef
);
576 xmlSchemaTypeNmtokenDef
= xmlSchemaInitBasicType("NMTOKEN",
578 xmlSchemaTypeTokenDef
);
579 xmlSchemaTypeNCNameDef
= xmlSchemaInitBasicType("NCName",
581 xmlSchemaTypeNameDef
);
582 xmlSchemaTypeIdDef
= xmlSchemaInitBasicType("ID", XML_SCHEMAS_ID
,
583 xmlSchemaTypeNCNameDef
);
584 xmlSchemaTypeIdrefDef
= xmlSchemaInitBasicType("IDREF",
586 xmlSchemaTypeNCNameDef
);
587 xmlSchemaTypeEntityDef
= xmlSchemaInitBasicType("ENTITY",
589 xmlSchemaTypeNCNameDef
);
591 * Derived list types.
594 xmlSchemaTypeEntitiesDef
= xmlSchemaInitBasicType("ENTITIES",
595 XML_SCHEMAS_ENTITIES
,
596 xmlSchemaTypeAnySimpleTypeDef
);
597 xmlSchemaTypeEntitiesDef
->subtypes
= xmlSchemaTypeEntityDef
;
599 xmlSchemaTypeIdrefsDef
= xmlSchemaInitBasicType("IDREFS",
601 xmlSchemaTypeAnySimpleTypeDef
);
602 xmlSchemaTypeIdrefsDef
->subtypes
= xmlSchemaTypeIdrefDef
;
605 xmlSchemaTypeNmtokensDef
= xmlSchemaInitBasicType("NMTOKENS",
606 XML_SCHEMAS_NMTOKENS
,
607 xmlSchemaTypeAnySimpleTypeDef
);
608 xmlSchemaTypeNmtokensDef
->subtypes
= xmlSchemaTypeNmtokenDef
;
610 xmlSchemaTypesInitialized
= 1;
614 * xmlSchemaCleanupTypes:
616 * Cleanup the default XML Schemas type library
619 xmlSchemaCleanupTypes(void) {
620 if (xmlSchemaTypesInitialized
== 0)
626 xmlSchemaParticlePtr particle
;
627 /* Attribute wildcard. */
628 xmlSchemaFreeWildcard(xmlSchemaTypeAnyTypeDef
->attributeWildcard
);
630 particle
= (xmlSchemaParticlePtr
) xmlSchemaTypeAnyTypeDef
->subtypes
;
632 xmlSchemaFreeWildcard((xmlSchemaWildcardPtr
)
633 particle
->children
->children
->children
);
634 xmlFree((xmlSchemaParticlePtr
) particle
->children
->children
);
635 /* Sequence model group. */
636 xmlFree((xmlSchemaModelGroupPtr
) particle
->children
);
637 xmlFree((xmlSchemaParticlePtr
) particle
);
638 xmlSchemaTypeAnyTypeDef
->subtypes
= NULL
;
640 xmlHashFree(xmlSchemaTypesBank
, (xmlHashDeallocator
) xmlSchemaFreeType
);
641 xmlSchemaTypesInitialized
= 0;
645 * xmlSchemaIsBuiltInTypeFacet:
646 * @type: the built-in type
647 * @facetType: the facet type
649 * Evaluates if a specific facet can be
650 * used in conjunction with a type.
652 * Returns 1 if the facet can be used with the given built-in type,
653 * 0 otherwise and -1 in case the type is not a built-in type.
656 xmlSchemaIsBuiltInTypeFacet(xmlSchemaTypePtr type
, int facetType
)
660 if (type
->type
!= XML_SCHEMA_TYPE_BASIC
)
662 switch (type
->builtInType
) {
663 case XML_SCHEMAS_BOOLEAN
:
664 if ((facetType
== XML_SCHEMA_FACET_PATTERN
) ||
665 (facetType
== XML_SCHEMA_FACET_WHITESPACE
))
669 case XML_SCHEMAS_STRING
:
670 case XML_SCHEMAS_NOTATION
:
671 case XML_SCHEMAS_QNAME
:
672 case XML_SCHEMAS_ANYURI
:
673 case XML_SCHEMAS_BASE64BINARY
:
674 case XML_SCHEMAS_HEXBINARY
:
675 if ((facetType
== XML_SCHEMA_FACET_LENGTH
) ||
676 (facetType
== XML_SCHEMA_FACET_MINLENGTH
) ||
677 (facetType
== XML_SCHEMA_FACET_MAXLENGTH
) ||
678 (facetType
== XML_SCHEMA_FACET_PATTERN
) ||
679 (facetType
== XML_SCHEMA_FACET_ENUMERATION
) ||
680 (facetType
== XML_SCHEMA_FACET_WHITESPACE
))
684 case XML_SCHEMAS_DECIMAL
:
685 if ((facetType
== XML_SCHEMA_FACET_TOTALDIGITS
) ||
686 (facetType
== XML_SCHEMA_FACET_FRACTIONDIGITS
) ||
687 (facetType
== XML_SCHEMA_FACET_PATTERN
) ||
688 (facetType
== XML_SCHEMA_FACET_WHITESPACE
) ||
689 (facetType
== XML_SCHEMA_FACET_ENUMERATION
) ||
690 (facetType
== XML_SCHEMA_FACET_MAXINCLUSIVE
) ||
691 (facetType
== XML_SCHEMA_FACET_MAXEXCLUSIVE
) ||
692 (facetType
== XML_SCHEMA_FACET_MININCLUSIVE
) ||
693 (facetType
== XML_SCHEMA_FACET_MINEXCLUSIVE
))
697 case XML_SCHEMAS_TIME
:
698 case XML_SCHEMAS_GDAY
:
699 case XML_SCHEMAS_GMONTH
:
700 case XML_SCHEMAS_GMONTHDAY
:
701 case XML_SCHEMAS_GYEAR
:
702 case XML_SCHEMAS_GYEARMONTH
:
703 case XML_SCHEMAS_DATE
:
704 case XML_SCHEMAS_DATETIME
:
705 case XML_SCHEMAS_DURATION
:
706 case XML_SCHEMAS_FLOAT
:
707 case XML_SCHEMAS_DOUBLE
:
708 if ((facetType
== XML_SCHEMA_FACET_PATTERN
) ||
709 (facetType
== XML_SCHEMA_FACET_ENUMERATION
) ||
710 (facetType
== XML_SCHEMA_FACET_WHITESPACE
) ||
711 (facetType
== XML_SCHEMA_FACET_MAXINCLUSIVE
) ||
712 (facetType
== XML_SCHEMA_FACET_MAXEXCLUSIVE
) ||
713 (facetType
== XML_SCHEMA_FACET_MININCLUSIVE
) ||
714 (facetType
== XML_SCHEMA_FACET_MINEXCLUSIVE
))
725 * xmlSchemaGetBuiltInType:
726 * @type: the type of the built in type
728 * Gives you the type struct for a built-in
729 * type by its type id.
731 * Returns the type if found, NULL otherwise.
734 xmlSchemaGetBuiltInType(xmlSchemaValType type
)
736 if (xmlSchemaTypesInitialized
== 0)
737 xmlSchemaInitTypes();
740 case XML_SCHEMAS_ANYSIMPLETYPE
:
741 return (xmlSchemaTypeAnySimpleTypeDef
);
742 case XML_SCHEMAS_STRING
:
743 return (xmlSchemaTypeStringDef
);
744 case XML_SCHEMAS_NORMSTRING
:
745 return (xmlSchemaTypeNormStringDef
);
746 case XML_SCHEMAS_DECIMAL
:
747 return (xmlSchemaTypeDecimalDef
);
748 case XML_SCHEMAS_TIME
:
749 return (xmlSchemaTypeTimeDef
);
750 case XML_SCHEMAS_GDAY
:
751 return (xmlSchemaTypeGDayDef
);
752 case XML_SCHEMAS_GMONTH
:
753 return (xmlSchemaTypeGMonthDef
);
754 case XML_SCHEMAS_GMONTHDAY
:
755 return (xmlSchemaTypeGMonthDayDef
);
756 case XML_SCHEMAS_GYEAR
:
757 return (xmlSchemaTypeGYearDef
);
758 case XML_SCHEMAS_GYEARMONTH
:
759 return (xmlSchemaTypeGYearMonthDef
);
760 case XML_SCHEMAS_DATE
:
761 return (xmlSchemaTypeDateDef
);
762 case XML_SCHEMAS_DATETIME
:
763 return (xmlSchemaTypeDatetimeDef
);
764 case XML_SCHEMAS_DURATION
:
765 return (xmlSchemaTypeDurationDef
);
766 case XML_SCHEMAS_FLOAT
:
767 return (xmlSchemaTypeFloatDef
);
768 case XML_SCHEMAS_DOUBLE
:
769 return (xmlSchemaTypeDoubleDef
);
770 case XML_SCHEMAS_BOOLEAN
:
771 return (xmlSchemaTypeBooleanDef
);
772 case XML_SCHEMAS_TOKEN
:
773 return (xmlSchemaTypeTokenDef
);
774 case XML_SCHEMAS_LANGUAGE
:
775 return (xmlSchemaTypeLanguageDef
);
776 case XML_SCHEMAS_NMTOKEN
:
777 return (xmlSchemaTypeNmtokenDef
);
778 case XML_SCHEMAS_NMTOKENS
:
779 return (xmlSchemaTypeNmtokensDef
);
780 case XML_SCHEMAS_NAME
:
781 return (xmlSchemaTypeNameDef
);
782 case XML_SCHEMAS_QNAME
:
783 return (xmlSchemaTypeQNameDef
);
784 case XML_SCHEMAS_NCNAME
:
785 return (xmlSchemaTypeNCNameDef
);
787 return (xmlSchemaTypeIdDef
);
788 case XML_SCHEMAS_IDREF
:
789 return (xmlSchemaTypeIdrefDef
);
790 case XML_SCHEMAS_IDREFS
:
791 return (xmlSchemaTypeIdrefsDef
);
792 case XML_SCHEMAS_ENTITY
:
793 return (xmlSchemaTypeEntityDef
);
794 case XML_SCHEMAS_ENTITIES
:
795 return (xmlSchemaTypeEntitiesDef
);
796 case XML_SCHEMAS_NOTATION
:
797 return (xmlSchemaTypeNotationDef
);
798 case XML_SCHEMAS_ANYURI
:
799 return (xmlSchemaTypeAnyURIDef
);
800 case XML_SCHEMAS_INTEGER
:
801 return (xmlSchemaTypeIntegerDef
);
802 case XML_SCHEMAS_NPINTEGER
:
803 return (xmlSchemaTypeNonPositiveIntegerDef
);
804 case XML_SCHEMAS_NINTEGER
:
805 return (xmlSchemaTypeNegativeIntegerDef
);
806 case XML_SCHEMAS_NNINTEGER
:
807 return (xmlSchemaTypeNonNegativeIntegerDef
);
808 case XML_SCHEMAS_PINTEGER
:
809 return (xmlSchemaTypePositiveIntegerDef
);
810 case XML_SCHEMAS_INT
:
811 return (xmlSchemaTypeIntDef
);
812 case XML_SCHEMAS_UINT
:
813 return (xmlSchemaTypeUnsignedIntDef
);
814 case XML_SCHEMAS_LONG
:
815 return (xmlSchemaTypeLongDef
);
816 case XML_SCHEMAS_ULONG
:
817 return (xmlSchemaTypeUnsignedLongDef
);
818 case XML_SCHEMAS_SHORT
:
819 return (xmlSchemaTypeShortDef
);
820 case XML_SCHEMAS_USHORT
:
821 return (xmlSchemaTypeUnsignedShortDef
);
822 case XML_SCHEMAS_BYTE
:
823 return (xmlSchemaTypeByteDef
);
824 case XML_SCHEMAS_UBYTE
:
825 return (xmlSchemaTypeUnsignedByteDef
);
826 case XML_SCHEMAS_HEXBINARY
:
827 return (xmlSchemaTypeHexBinaryDef
);
828 case XML_SCHEMAS_BASE64BINARY
:
829 return (xmlSchemaTypeBase64BinaryDef
);
830 case XML_SCHEMAS_ANYTYPE
:
831 return (xmlSchemaTypeAnyTypeDef
);
838 * xmlSchemaValueAppend:
840 * @cur: the value to be appended
842 * Appends a next sibling to a list of computed values.
844 * Returns 0 if succeeded and -1 on API errors.
847 xmlSchemaValueAppend(xmlSchemaValPtr prev
, xmlSchemaValPtr cur
) {
849 if ((prev
== NULL
) || (cur
== NULL
))
856 * xmlSchemaValueGetNext:
859 * Accessor for the next sibling of a list of computed values.
861 * Returns the next value or NULL if there was none, or on
865 xmlSchemaValueGetNext(xmlSchemaValPtr cur
) {
873 * xmlSchemaValueGetAsString:
876 * Accessor for the string value of a computed value.
878 * Returns the string value or NULL if there was none, or on
882 xmlSchemaValueGetAsString(xmlSchemaValPtr val
)
887 case XML_SCHEMAS_STRING
:
888 case XML_SCHEMAS_NORMSTRING
:
889 case XML_SCHEMAS_ANYSIMPLETYPE
:
890 case XML_SCHEMAS_TOKEN
:
891 case XML_SCHEMAS_LANGUAGE
:
892 case XML_SCHEMAS_NMTOKEN
:
893 case XML_SCHEMAS_NAME
:
894 case XML_SCHEMAS_NCNAME
:
896 case XML_SCHEMAS_IDREF
:
897 case XML_SCHEMAS_ENTITY
:
898 case XML_SCHEMAS_ANYURI
:
899 return (BAD_CAST val
->value
.str
);
907 * xmlSchemaValueGetAsBoolean:
910 * Accessor for the boolean value of a computed value.
912 * Returns 1 if true and 0 if false, or in case of an error. Hmm.
915 xmlSchemaValueGetAsBoolean(xmlSchemaValPtr val
)
917 if ((val
== NULL
) || (val
->type
!= XML_SCHEMAS_BOOLEAN
))
919 return (val
->value
.b
);
923 * xmlSchemaNewStringValue:
924 * @type: the value type
927 * Allocate a new simple type value. The type can be
928 * of XML_SCHEMAS_STRING.
929 * WARNING: This one is intended to be expanded for other
930 * string based types. We need this for anySimpleType as well.
931 * The given value is consumed and freed with the struct.
933 * Returns a pointer to the new value or NULL in case of error
936 xmlSchemaNewStringValue(xmlSchemaValType type
,
937 const xmlChar
*value
)
941 if (type
!= XML_SCHEMAS_STRING
)
943 val
= (xmlSchemaValPtr
) xmlMalloc(sizeof(xmlSchemaVal
));
947 memset(val
, 0, sizeof(xmlSchemaVal
));
949 val
->value
.str
= (xmlChar
*) value
;
954 * xmlSchemaNewNOTATIONValue:
955 * @name: the notation name
956 * @ns: the notation namespace name or NULL
958 * Allocate a new NOTATION value.
959 * The given values are consumed and freed with the struct.
961 * Returns a pointer to the new value or NULL in case of error
964 xmlSchemaNewNOTATIONValue(const xmlChar
*name
,
969 val
= xmlSchemaNewValue(XML_SCHEMAS_NOTATION
);
973 val
->value
.qname
.name
= (xmlChar
*)name
;
975 val
->value
.qname
.uri
= (xmlChar
*)ns
;
980 * xmlSchemaNewQNameValue:
981 * @namespaceName: the namespace name
982 * @localName: the local name
984 * Allocate a new QName value.
985 * The given values are consumed and freed with the struct.
987 * Returns a pointer to the new value or NULL in case of an error.
990 xmlSchemaNewQNameValue(const xmlChar
*namespaceName
,
991 const xmlChar
*localName
)
995 val
= xmlSchemaNewValue(XML_SCHEMAS_QNAME
);
999 val
->value
.qname
.name
= (xmlChar
*) localName
;
1000 val
->value
.qname
.uri
= (xmlChar
*) namespaceName
;
1005 * xmlSchemaFreeValue:
1006 * @value: the value to free
1008 * Cleanup the default XML Schemas type library
1011 xmlSchemaFreeValue(xmlSchemaValPtr value
) {
1012 xmlSchemaValPtr prev
;
1014 while (value
!= NULL
) {
1015 switch (value
->type
) {
1016 case XML_SCHEMAS_STRING
:
1017 case XML_SCHEMAS_NORMSTRING
:
1018 case XML_SCHEMAS_TOKEN
:
1019 case XML_SCHEMAS_LANGUAGE
:
1020 case XML_SCHEMAS_NMTOKEN
:
1021 case XML_SCHEMAS_NMTOKENS
:
1022 case XML_SCHEMAS_NAME
:
1023 case XML_SCHEMAS_NCNAME
:
1024 case XML_SCHEMAS_ID
:
1025 case XML_SCHEMAS_IDREF
:
1026 case XML_SCHEMAS_IDREFS
:
1027 case XML_SCHEMAS_ENTITY
:
1028 case XML_SCHEMAS_ENTITIES
:
1029 case XML_SCHEMAS_ANYURI
:
1030 case XML_SCHEMAS_ANYSIMPLETYPE
:
1031 if (value
->value
.str
!= NULL
)
1032 xmlFree(value
->value
.str
);
1034 case XML_SCHEMAS_NOTATION
:
1035 case XML_SCHEMAS_QNAME
:
1036 if (value
->value
.qname
.uri
!= NULL
)
1037 xmlFree(value
->value
.qname
.uri
);
1038 if (value
->value
.qname
.name
!= NULL
)
1039 xmlFree(value
->value
.qname
.name
);
1041 case XML_SCHEMAS_HEXBINARY
:
1042 if (value
->value
.hex
.str
!= NULL
)
1043 xmlFree(value
->value
.hex
.str
);
1045 case XML_SCHEMAS_BASE64BINARY
:
1046 if (value
->value
.base64
.str
!= NULL
)
1047 xmlFree(value
->value
.base64
.str
);
1053 value
= value
->next
;
1059 * xmlSchemaGetPredefinedType:
1060 * @name: the type name
1061 * @ns: the URI of the namespace usually "http://www.w3.org/2001/XMLSchema"
1063 * Lookup a type in the default XML Schemas type library
1065 * Returns the type if found, NULL otherwise
1068 xmlSchemaGetPredefinedType(const xmlChar
*name
, const xmlChar
*ns
) {
1069 if (xmlSchemaTypesInitialized
== 0)
1070 xmlSchemaInitTypes();
1073 return((xmlSchemaTypePtr
) xmlHashLookup2(xmlSchemaTypesBank
, name
, ns
));
1077 * xmlSchemaGetBuiltInListSimpleTypeItemType:
1078 * @type: the built-in simple type.
1082 * Returns the item type of @type as defined by the built-in datatype
1083 * hierarchy of XML Schema Part 2: Datatypes, or NULL in case of an error.
1086 xmlSchemaGetBuiltInListSimpleTypeItemType(xmlSchemaTypePtr type
)
1088 if ((type
== NULL
) || (type
->type
!= XML_SCHEMA_TYPE_BASIC
))
1090 switch (type
->builtInType
) {
1091 case XML_SCHEMAS_NMTOKENS
:
1092 return (xmlSchemaTypeNmtokenDef
);
1093 case XML_SCHEMAS_IDREFS
:
1094 return (xmlSchemaTypeIdrefDef
);
1095 case XML_SCHEMAS_ENTITIES
:
1096 return (xmlSchemaTypeEntityDef
);
1102 /****************************************************************
1104 * Convenience macros and functions *
1106 ****************************************************************/
1108 #define IS_TZO_CHAR(c) \
1109 ((c == 0) || (c == 'Z') || (c == '+') || (c == '-'))
1111 #define VALID_YEAR(yr) (yr != 0)
1112 #define VALID_MONTH(mon) ((mon >= 1) && (mon <= 12))
1113 /* VALID_DAY should only be used when month is unknown */
1114 #define VALID_DAY(day) ((day >= 1) && (day <= 31))
1115 #define VALID_HOUR(hr) ((hr >= 0) && (hr <= 23))
1116 #define VALID_MIN(min) ((min >= 0) && (min <= 59))
1117 #define VALID_SEC(sec) ((sec >= 0) && (sec < 60))
1118 #define VALID_TZO(tzo) ((tzo > -840) && (tzo < 840))
1119 #define IS_LEAP(y) \
1120 (((y % 4 == 0) && (y % 100 != 0)) || (y % 400 == 0))
1122 static const unsigned int daysInMonth
[12] =
1123 { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
1124 static const unsigned int daysInMonthLeap
[12] =
1125 { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
1127 #define MAX_DAYINMONTH(yr,mon) \
1128 (IS_LEAP(yr) ? daysInMonthLeap[mon - 1] : daysInMonth[mon - 1])
1130 #define VALID_MDAY(dt) \
1131 (IS_LEAP(dt->year) ? \
1132 (dt->day <= daysInMonthLeap[dt->mon - 1]) : \
1133 (dt->day <= daysInMonth[dt->mon - 1]))
1135 #define VALID_DATE(dt) \
1136 (VALID_YEAR(dt->year) && VALID_MONTH(dt->mon) && VALID_MDAY(dt))
1138 #define VALID_TIME(dt) \
1139 (VALID_HOUR(dt->hour) && VALID_MIN(dt->min) && \
1140 VALID_SEC(dt->sec) && VALID_TZO(dt->tzo))
1142 #define VALID_DATETIME(dt) \
1143 (VALID_DATE(dt) && VALID_TIME(dt))
1145 #define SECS_PER_MIN (60)
1146 #define SECS_PER_HOUR (60 * SECS_PER_MIN)
1147 #define SECS_PER_DAY (24 * SECS_PER_HOUR)
1149 static const long dayInYearByMonth
[12] =
1150 { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 };
1151 static const long dayInLeapYearByMonth
[12] =
1152 { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 };
1154 #define DAY_IN_YEAR(day, month, year) \
1156 dayInLeapYearByMonth[month - 1] : \
1157 dayInYearByMonth[month - 1]) + day)
1160 #define DEBUG_DATE(dt) \
1161 xmlGenericError(xmlGenericErrorContext, \
1162 "type=%o %04ld-%02u-%02uT%02u:%02u:%03f", \
1163 dt->type,dt->value.date.year,dt->value.date.mon, \
1164 dt->value.date.day,dt->value.date.hour,dt->value.date.min, \
1165 dt->value.date.sec); \
1166 if (dt->value.date.tz_flag) \
1167 if (dt->value.date.tzo != 0) \
1168 xmlGenericError(xmlGenericErrorContext, \
1169 "%+05d\n",dt->value.date.tzo); \
1171 xmlGenericError(xmlGenericErrorContext, "Z\n"); \
1173 xmlGenericError(xmlGenericErrorContext,"\n")
1175 #define DEBUG_DATE(dt)
1179 * _xmlSchemaParseGYear:
1180 * @dt: pointer to a date structure
1181 * @str: pointer to the string to analyze
1183 * Parses a xs:gYear without time zone and fills in the appropriate
1184 * field of the @dt structure. @str is updated to point just after the
1185 * xs:gYear. It is supposed that @dt->year is big enough to contain
1188 * Returns 0 or the error code
1191 _xmlSchemaParseGYear (xmlSchemaValDatePtr dt
, const xmlChar
**str
) {
1192 const xmlChar
*cur
= *str
, *firstChar
;
1193 int isneg
= 0, digcnt
= 0;
1195 if (((*cur
< '0') || (*cur
> '9')) &&
1196 (*cur
!= '-') && (*cur
!= '+'))
1206 while ((*cur
>= '0') && (*cur
<= '9')) {
1207 dt
->year
= dt
->year
* 10 + (*cur
- '0');
1212 /* year must be at least 4 digits (CCYY); over 4
1213 * digits cannot have a leading zero. */
1214 if ((digcnt
< 4) || ((digcnt
> 4) && (*firstChar
== '0')))
1218 dt
->year
= - dt
->year
;
1220 if (!VALID_YEAR(dt
->year
))
1229 * @num: the integer to fill in
1230 * @cur: an #xmlChar *
1231 * @invalid: an integer
1233 * Parses a 2-digits integer and updates @num with the value. @cur is
1234 * updated to point just after the integer.
1235 * In case of error, @invalid is set to %TRUE, values of @num and
1236 * @cur are undefined.
1238 #define PARSE_2_DIGITS(num, cur, invalid) \
1239 if ((cur[0] < '0') || (cur[0] > '9') || \
1240 (cur[1] < '0') || (cur[1] > '9')) \
1243 num = (cur[0] - '0') * 10 + (cur[1] - '0'); \
1248 * @num: the double to fill in
1249 * @cur: an #xmlChar *
1250 * @invalid: an integer
1252 * Parses a float and updates @num with the value. @cur is
1253 * updated to point just after the float. The float must have a
1254 * 2-digits integer part and may or may not have a decimal part.
1255 * In case of error, @invalid is set to %TRUE, values of @num and
1256 * @cur are undefined.
1258 #define PARSE_FLOAT(num, cur, invalid) \
1259 PARSE_2_DIGITS(num, cur, invalid); \
1260 if (!invalid && (*cur == '.')) { \
1263 if ((*cur < '0') || (*cur > '9')) \
1265 while ((*cur >= '0') && (*cur <= '9')) { \
1267 num += (*cur - '0') * mult; \
1273 * _xmlSchemaParseGMonth:
1274 * @dt: pointer to a date structure
1275 * @str: pointer to the string to analyze
1277 * Parses a xs:gMonth without time zone and fills in the appropriate
1278 * field of the @dt structure. @str is updated to point just after the
1281 * Returns 0 or the error code
1284 _xmlSchemaParseGMonth (xmlSchemaValDatePtr dt
, const xmlChar
**str
) {
1285 const xmlChar
*cur
= *str
;
1287 unsigned int value
= 0;
1289 PARSE_2_DIGITS(value
, cur
, ret
);
1293 if (!VALID_MONTH(value
))
1303 * _xmlSchemaParseGDay:
1304 * @dt: pointer to a date structure
1305 * @str: pointer to the string to analyze
1307 * Parses a xs:gDay without time zone and fills in the appropriate
1308 * field of the @dt structure. @str is updated to point just after the
1311 * Returns 0 or the error code
1314 _xmlSchemaParseGDay (xmlSchemaValDatePtr dt
, const xmlChar
**str
) {
1315 const xmlChar
*cur
= *str
;
1317 unsigned int value
= 0;
1319 PARSE_2_DIGITS(value
, cur
, ret
);
1323 if (!VALID_DAY(value
))
1332 * _xmlSchemaParseTime:
1333 * @dt: pointer to a date structure
1334 * @str: pointer to the string to analyze
1336 * Parses a xs:time without time zone and fills in the appropriate
1337 * fields of the @dt structure. @str is updated to point just after the
1339 * In case of error, values of @dt fields are undefined.
1341 * Returns 0 or the error code
1344 _xmlSchemaParseTime (xmlSchemaValDatePtr dt
, const xmlChar
**str
) {
1345 const xmlChar
*cur
= *str
;
1349 PARSE_2_DIGITS(value
, cur
, ret
);
1354 if (!VALID_HOUR(value
))
1358 /* the ':' insures this string is xs:time */
1361 PARSE_2_DIGITS(value
, cur
, ret
);
1364 if (!VALID_MIN(value
))
1372 PARSE_FLOAT(dt
->sec
, cur
, ret
);
1376 if ((!VALID_SEC(dt
->sec
)) || (!VALID_TZO(dt
->tzo
)))
1384 * _xmlSchemaParseTimeZone:
1385 * @dt: pointer to a date structure
1386 * @str: pointer to the string to analyze
1388 * Parses a time zone without time zone and fills in the appropriate
1389 * field of the @dt structure. @str is updated to point just after the
1392 * Returns 0 or the error code
1395 _xmlSchemaParseTimeZone (xmlSchemaValDatePtr dt
, const xmlChar
**str
) {
1417 int isneg
= 0, tmp
= 0;
1418 isneg
= (*cur
== '-');
1422 PARSE_2_DIGITS(tmp
, cur
, ret
);
1425 if (!VALID_HOUR(tmp
))
1434 PARSE_2_DIGITS(tmp
, cur
, ret
);
1437 if (!VALID_MIN(tmp
))
1442 dt
->tzo
= - dt
->tzo
;
1444 if (!VALID_TZO(dt
->tzo
))
1459 * _xmlSchemaBase64Decode:
1462 * Converts a base64 encoded character to its base 64 value.
1464 * Returns 0-63 (value), 64 (pad), or -1 (not recognized)
1467 _xmlSchemaBase64Decode (const xmlChar ch
) {
1468 if (('A' <= ch
) && (ch
<= 'Z')) return ch
- 'A';
1469 if (('a' <= ch
) && (ch
<= 'z')) return ch
- 'a' + 26;
1470 if (('0' <= ch
) && (ch
<= '9')) return ch
- '0' + 52;
1471 if ('+' == ch
) return 62;
1472 if ('/' == ch
) return 63;
1473 if ('=' == ch
) return 64;
1477 /****************************************************************
1479 * XML Schema Dates/Times Datatypes Handling *
1481 ****************************************************************/
1485 * @num: the integer to fill in
1486 * @cur: an #xmlChar *
1487 * @num_type: an integer flag
1489 * Parses a digits integer and updates @num with the value. @cur is
1490 * updated to point just after the integer.
1491 * In case of error, @num_type is set to -1, values of @num and
1492 * @cur are undefined.
1494 #define PARSE_DIGITS(num, cur, num_type) \
1495 if ((*cur < '0') || (*cur > '9')) \
1498 while ((*cur >= '0') && (*cur <= '9')) { \
1499 num = num * 10 + (*cur - '0'); \
1505 * @num: the double to fill in
1506 * @cur: an #xmlChar *
1507 * @num_type: an integer flag
1509 * Parses a float or integer and updates @num with the value. @cur is
1510 * updated to point just after the number. If the number is a float,
1511 * then it must have an integer part and a decimal part; @num_type will
1512 * be set to 1. If there is no decimal part, @num_type is set to zero.
1513 * In case of error, @num_type is set to -1, values of @num and
1514 * @cur are undefined.
1516 #define PARSE_NUM(num, cur, num_type) \
1518 PARSE_DIGITS(num, cur, num_type); \
1519 if (!num_type && (*cur == '.')) { \
1522 if ((*cur < '0') || (*cur > '9')) \
1526 while ((*cur >= '0') && (*cur <= '9')) { \
1528 num += (*cur - '0') * mult; \
1534 * xmlSchemaValidateDates:
1535 * @type: the expected type or XML_SCHEMAS_UNKNOWN
1536 * @dateTime: string to analyze
1537 * @val: the return computed value
1539 * Check that @dateTime conforms to the lexical space of one of the date types.
1540 * if true a value is computed and returned in @val.
1542 * Returns 0 if this validates, a positive error code number otherwise
1543 * and -1 in case of internal or API error.
1546 xmlSchemaValidateDates (xmlSchemaValType type
,
1547 const xmlChar
*dateTime
, xmlSchemaValPtr
*val
,
1551 const xmlChar
*cur
= dateTime
;
1553 #define RETURN_TYPE_IF_VALID(t) \
1554 if (IS_TZO_CHAR(*cur)) { \
1555 ret = _xmlSchemaParseTimeZone(&(dt->value.date), &cur); \
1564 if (dateTime
== NULL
)
1568 while IS_WSP_BLANK_CH(*cur
) cur
++;
1570 if ((*cur
!= '-') && (*cur
< '0') && (*cur
> '9'))
1573 dt
= xmlSchemaNewValue(XML_SCHEMAS_UNKNOWN
);
1577 if ((cur
[0] == '-') && (cur
[1] == '-')) {
1579 * It's an incomplete date (xs:gMonthDay, xs:gMonth or
1584 /* is it an xs:gDay? */
1586 if (type
== XML_SCHEMAS_GMONTH
)
1589 ret
= _xmlSchemaParseGDay(&(dt
->value
.date
), &cur
);
1593 RETURN_TYPE_IF_VALID(XML_SCHEMAS_GDAY
);
1599 * it should be an xs:gMonthDay or xs:gMonth
1601 ret
= _xmlSchemaParseGMonth(&(dt
->value
.date
), &cur
);
1606 * a '-' char could indicate this type is xs:gMonthDay or
1607 * a negative time zone offset. Check for xs:gMonthDay first.
1608 * Also the first three char's of a negative tzo (-MM:SS) can
1609 * appear to be a valid day; so even if the day portion
1610 * of the xs:gMonthDay verifies, we must insure it was not
1614 const xmlChar
*rewnd
= cur
;
1617 ret
= _xmlSchemaParseGDay(&(dt
->value
.date
), &cur
);
1618 if ((ret
== 0) && ((*cur
== 0) || (*cur
!= ':'))) {
1621 * we can use the VALID_MDAY macro to validate the month
1622 * and day because the leap year test will flag year zero
1623 * as a leap year (even though zero is an invalid year).
1624 * FUTURE TODO: Zero will become valid in XML Schema 1.1
1627 if (VALID_MDAY((&(dt
->value
.date
)))) {
1629 RETURN_TYPE_IF_VALID(XML_SCHEMAS_GMONTHDAY
);
1636 * not xs:gMonthDay so rewind and check if just xs:gMonth
1637 * with an optional time zone.
1642 RETURN_TYPE_IF_VALID(XML_SCHEMAS_GMONTH
);
1648 * It's a right-truncated date or an xs:time.
1649 * Try to parse an xs:time then fallback on right-truncated dates.
1651 if ((*cur
>= '0') && (*cur
<= '9')) {
1652 ret
= _xmlSchemaParseTime(&(dt
->value
.date
), &cur
);
1654 /* it's an xs:time */
1655 RETURN_TYPE_IF_VALID(XML_SCHEMAS_TIME
);
1659 /* fallback on date parsing */
1662 ret
= _xmlSchemaParseGYear(&(dt
->value
.date
), &cur
);
1666 /* is it an xs:gYear? */
1667 RETURN_TYPE_IF_VALID(XML_SCHEMAS_GYEAR
);
1673 ret
= _xmlSchemaParseGMonth(&(dt
->value
.date
), &cur
);
1677 /* is it an xs:gYearMonth? */
1678 RETURN_TYPE_IF_VALID(XML_SCHEMAS_GYEARMONTH
);
1684 ret
= _xmlSchemaParseGDay(&(dt
->value
.date
), &cur
);
1685 if ((ret
!= 0) || !VALID_DATE((&(dt
->value
.date
))))
1688 /* is it an xs:date? */
1689 RETURN_TYPE_IF_VALID(XML_SCHEMAS_DATE
);
1695 /* it should be an xs:dateTime */
1696 ret
= _xmlSchemaParseTime(&(dt
->value
.date
), &cur
);
1700 ret
= _xmlSchemaParseTimeZone(&(dt
->value
.date
), &cur
);
1702 while IS_WSP_BLANK_CH(*cur
) cur
++;
1703 if ((ret
!= 0) || (*cur
!= 0) || (!(VALID_DATETIME((&(dt
->value
.date
))))))
1707 dt
->type
= XML_SCHEMAS_DATETIME
;
1711 if ((type
!= XML_SCHEMAS_UNKNOWN
) && (type
!= dt
->type
))
1715 * insure the parsed type is equal to or less significant (right
1716 * truncated) than the desired type.
1718 if ((type
!= XML_SCHEMAS_UNKNOWN
) && (type
!= dt
->type
)) {
1720 /* time only matches time */
1721 if ((type
== XML_SCHEMAS_TIME
) && (dt
->type
== XML_SCHEMAS_TIME
))
1724 if ((type
== XML_SCHEMAS_DATETIME
) &&
1725 ((dt
->type
!= XML_SCHEMAS_DATE
) ||
1726 (dt
->type
!= XML_SCHEMAS_GYEARMONTH
) ||
1727 (dt
->type
!= XML_SCHEMAS_GYEAR
)))
1730 if ((type
== XML_SCHEMAS_DATE
) &&
1731 ((dt
->type
!= XML_SCHEMAS_GYEAR
) ||
1732 (dt
->type
!= XML_SCHEMAS_GYEARMONTH
)))
1735 if ((type
== XML_SCHEMAS_GYEARMONTH
) && (dt
->type
!= XML_SCHEMAS_GYEAR
))
1738 if ((type
== XML_SCHEMAS_GMONTHDAY
) && (dt
->type
!= XML_SCHEMAS_GMONTH
))
1746 xmlSchemaFreeValue(dt
);
1752 xmlSchemaFreeValue(dt
);
1757 * xmlSchemaValidateDuration:
1758 * @type: the predefined type
1759 * @duration: string to analyze
1760 * @val: the return computed value
1762 * Check that @duration conforms to the lexical space of the duration type.
1763 * if true a value is computed and returned in @val.
1765 * Returns 0 if this validates, a positive error code number otherwise
1766 * and -1 in case of internal or API error.
1769 xmlSchemaValidateDuration (xmlSchemaTypePtr type ATTRIBUTE_UNUSED
,
1770 const xmlChar
*duration
, xmlSchemaValPtr
*val
,
1772 const xmlChar
*cur
= duration
;
1773 xmlSchemaValPtr dur
;
1775 unsigned int seq
= 0;
1777 int num_type
= 0; /* -1 = invalid, 0 = int, 1 = floating */
1778 const xmlChar desig
[] = {'Y', 'M', 'D', 'H', 'M', 'S'};
1779 const double multi
[] = { 0.0, 0.0, 86400.0, 3600.0, 60.0, 1.0, 0.0};
1781 if (duration
== NULL
)
1785 while IS_WSP_BLANK_CH(*cur
) cur
++;
1792 /* duration must start with 'P' (after sign) */
1799 dur
= xmlSchemaNewValue(XML_SCHEMAS_DURATION
);
1805 /* input string should be empty or invalid date/time item */
1806 if (seq
>= sizeof(desig
))
1809 /* T designator must be present for time items */
1816 } else if (seq
== 3)
1819 /* parse the number portion of the item */
1820 PARSE_NUM(num
, cur
, num_type
);
1822 if ((num_type
== -1) || (*cur
== 0))
1825 /* update duration based on item type */
1826 while (seq
< sizeof(desig
)) {
1827 if (*cur
== desig
[seq
]) {
1829 /* verify numeric type; only seconds can be float */
1830 if ((num_type
!= 0) && (seq
< (sizeof(desig
)-1)))
1835 dur
->value
.dur
.mon
= (long)num
* 12;
1838 dur
->value
.dur
.mon
+= (long)num
;
1841 /* convert to seconds using multiplier */
1842 dur
->value
.dur
.sec
+= num
* multi
[seq
];
1847 break; /* exit loop */
1849 /* no date designators found? */
1850 if ((++seq
== 3) || (seq
== 6))
1855 while IS_WSP_BLANK_CH(*cur
) cur
++;
1859 dur
->value
.dur
.mon
= -dur
->value
.dur
.mon
;
1860 dur
->value
.dur
.day
= -dur
->value
.dur
.day
;
1861 dur
->value
.dur
.sec
= -dur
->value
.dur
.sec
;
1867 xmlSchemaFreeValue(dur
);
1873 xmlSchemaFreeValue(dur
);
1881 * Removes the leading and ending spaces of a string
1883 * Returns the new string or NULL if no change was required.
1886 xmlSchemaStrip(const xmlChar
*value
) {
1887 const xmlChar
*start
= value
, *end
, *f
;
1889 if (value
== NULL
) return(NULL
);
1890 while ((*start
!= 0) && (IS_BLANK_CH(*start
))) start
++;
1892 while (*end
!= 0) end
++;
1895 while ((end
> start
) && (IS_BLANK_CH(*end
))) end
--;
1897 if ((start
== value
) && (f
== end
)) return(NULL
);
1898 return(xmlStrndup(start
, end
- start
));
1902 * xmlSchemaWhiteSpaceReplace:
1905 * Replaces 0xd, 0x9 and 0xa with a space.
1907 * Returns the new string or NULL if no change was required.
1910 xmlSchemaWhiteSpaceReplace(const xmlChar
*value
) {
1911 const xmlChar
*cur
= value
;
1912 xmlChar
*ret
= NULL
, *mcur
;
1917 while ((*cur
!= 0) &&
1918 (((*cur
) != 0xd) && ((*cur
) != 0x9) && ((*cur
) != 0xa))) {
1923 ret
= xmlStrdup(value
);
1924 /* TODO FIXME: I guess gcc will bark at this. */
1925 mcur
= (xmlChar
*) (ret
+ (cur
- value
));
1927 if ( ((*mcur
) == 0xd) || ((*mcur
) == 0x9) || ((*mcur
) == 0xa) )
1930 } while (*mcur
!= 0);
1935 * xmlSchemaCollapseString:
1938 * Removes and normalize white spaces in the string
1940 * Returns the new string or NULL if no change was required.
1943 xmlSchemaCollapseString(const xmlChar
*value
) {
1944 const xmlChar
*start
= value
, *end
, *f
;
1948 if (value
== NULL
) return(NULL
);
1949 while ((*start
!= 0) && (IS_BLANK_CH(*start
))) start
++;
1952 if ((*end
== ' ') && (IS_BLANK_CH(end
[1]))) {
1955 } else if ((*end
== 0xa) || (*end
== 0x9) || (*end
== 0xd)) {
1964 while ((end
> start
) && (IS_BLANK_CH(*end
))) end
--;
1966 if ((start
== value
) && (f
== end
)) return(NULL
);
1967 return(xmlStrndup(start
, end
- start
));
1969 start
= xmlStrdup(start
);
1970 if (start
== NULL
) return(NULL
);
1971 g
= (xmlChar
*) (start
+ col
);
1974 if (IS_BLANK_CH(*end
)) {
1976 while (IS_BLANK_CH(*end
)) end
++;
1983 return((xmlChar
*) start
);
1987 * xmlSchemaValAtomicListNode:
1988 * @type: the predefined atomic type for a token in the list
1989 * @value: the list value to check
1990 * @ret: the return computed value
1991 * @node: the node containing the value
1993 * Check that a value conforms to the lexical space of the predefined
1994 * list type. if true a value is computed and returned in @ret.
1996 * Returns the number of items if this validates, a negative error code
2000 xmlSchemaValAtomicListNode(xmlSchemaTypePtr type
, const xmlChar
*value
,
2001 xmlSchemaValPtr
*ret
, xmlNodePtr node
) {
2002 xmlChar
*val
, *cur
, *endval
;
2006 if (value
== NULL
) {
2009 val
= xmlStrdup(value
);
2020 while (IS_BLANK_CH(*cur
)) *cur
++ = 0;
2022 if (IS_BLANK_CH(*cur
)) {
2025 while (IS_BLANK_CH(*cur
)) *cur
++ = 0;
2029 while ((*cur
!= 0) && (!IS_BLANK_CH(*cur
))) cur
++;
2032 if (nb_values
== 0) {
2038 while ((*cur
== 0) && (cur
!= endval
)) cur
++;
2039 while (cur
!= endval
) {
2040 tmp
= xmlSchemaValPredefTypeNode(type
, cur
, NULL
, node
);
2043 while (*cur
!= 0) cur
++;
2044 while ((*cur
== 0) && (cur
!= endval
)) cur
++;
2046 /* TODO what return value ? c.f. bug #158628
2057 * xmlSchemaParseUInt:
2058 * @str: pointer to the string R/W
2059 * @llo: pointer to the low result
2060 * @lmi: pointer to the mid result
2061 * @lhi: pointer to the high result
2063 * Parse an unsigned long into 3 fields.
2065 * Returns the number of significant digits in the number or
2066 * -1 if overflow of the capacity and -2 if it's not a number.
2069 xmlSchemaParseUInt(const xmlChar
**str
, unsigned long *llo
,
2070 unsigned long *lmi
, unsigned long *lhi
) {
2071 unsigned long lo
= 0, mi
= 0, hi
= 0;
2072 const xmlChar
*tmp
, *cur
= *str
;
2075 if (!((*cur
>= '0') && (*cur
<= '9')))
2078 while (*cur
== '0') { /* ignore leading zeroes */
2082 while ((*tmp
!= 0) && (*tmp
>= '0') && (*tmp
<= '9')) {
2090 hi
= hi
* 10 + (*cur
++ - '0');
2094 mi
= mi
* 10 + (*cur
++ - '0');
2098 lo
= lo
* 10 + (*cur
++ - '0');
2110 * xmlSchemaValAtomicType:
2111 * @type: the predefined type
2112 * @value: the value to check
2113 * @val: the return computed value
2114 * @node: the node containing the value
2115 * flags: flags to control the vlidation
2117 * Check that a value conforms to the lexical space of the atomic type.
2118 * if true a value is computed and returned in @val.
2119 * This checks the value space for list types as well (IDREFS, NMTOKENS).
2121 * Returns 0 if this validates, a positive error code number otherwise
2122 * and -1 in case of internal or API error.
2125 xmlSchemaValAtomicType(xmlSchemaTypePtr type
, const xmlChar
* value
,
2126 xmlSchemaValPtr
* val
, xmlNodePtr node
, int flags
,
2127 xmlSchemaWhitespaceValueType ws
,
2128 int normOnTheFly
, int applyNorm
, int createStringValue
)
2131 xmlChar
*norm
= NULL
;
2134 if (xmlSchemaTypesInitialized
== 0)
2135 xmlSchemaInitTypes();
2140 * validating a non existant text node is similar to validating
2144 value
= BAD_CAST
"";
2148 if ((flags
== 0) && (value
!= NULL
)) {
2150 if ((type
->builtInType
!= XML_SCHEMAS_STRING
) &&
2151 (type
->builtInType
!= XML_SCHEMAS_ANYTYPE
) &&
2152 (type
->builtInType
!= XML_SCHEMAS_ANYSIMPLETYPE
)) {
2153 if (type
->builtInType
== XML_SCHEMAS_NORMSTRING
)
2154 norm
= xmlSchemaWhiteSpaceReplace(value
);
2156 norm
= xmlSchemaCollapseString(value
);
2162 switch (type
->builtInType
) {
2163 case XML_SCHEMAS_UNKNOWN
:
2165 case XML_SCHEMAS_ANYTYPE
:
2166 case XML_SCHEMAS_ANYSIMPLETYPE
:
2167 if ((createStringValue
) && (val
!= NULL
)) {
2168 v
= xmlSchemaNewValue(XML_SCHEMAS_ANYSIMPLETYPE
);
2170 v
->value
.str
= xmlStrdup(value
);
2177 case XML_SCHEMAS_STRING
:
2178 if (! normOnTheFly
) {
2179 const xmlChar
*cur
= value
;
2181 if (ws
== XML_SCHEMA_WHITESPACE_REPLACE
) {
2183 if ((*cur
== 0xd) || (*cur
== 0xa) || (*cur
== 0x9)) {
2189 } else if (ws
== XML_SCHEMA_WHITESPACE_COLLAPSE
) {
2191 if ((*cur
== 0xd) || (*cur
== 0xa) || (*cur
== 0x9)) {
2193 } else if IS_WSP_SPACE_CH(*cur
) {
2195 if IS_WSP_SPACE_CH(*cur
)
2203 if (createStringValue
&& (val
!= NULL
)) {
2205 if (ws
== XML_SCHEMA_WHITESPACE_COLLAPSE
)
2206 norm
= xmlSchemaCollapseString(value
);
2207 else if (ws
== XML_SCHEMA_WHITESPACE_REPLACE
)
2208 norm
= xmlSchemaWhiteSpaceReplace(value
);
2212 v
= xmlSchemaNewValue(XML_SCHEMAS_STRING
);
2214 v
->value
.str
= xmlStrdup(value
);
2221 case XML_SCHEMAS_NORMSTRING
:{
2224 if (ws
== XML_SCHEMA_WHITESPACE_COLLAPSE
)
2225 norm
= xmlSchemaCollapseString(value
);
2227 norm
= xmlSchemaWhiteSpaceReplace(value
);
2232 const xmlChar
*cur
= value
;
2234 if ((*cur
== 0xd) || (*cur
== 0xa) || (*cur
== 0x9)) {
2242 v
= xmlSchemaNewValue(XML_SCHEMAS_NORMSTRING
);
2244 v
->value
.str
= xmlStrdup(value
);
2252 case XML_SCHEMAS_DECIMAL
:{
2253 const xmlChar
*cur
= value
;
2254 unsigned int len
, neg
, integ
, hasLeadingZeroes
;
2256 xmlChar
*cptr
= cval
;
2258 if ((cur
== NULL
) || (*cur
== 0))
2262 * xs:decimal has a whitespace-facet value of 'collapse'.
2265 while IS_WSP_BLANK_CH(*cur
) cur
++;
2268 * First we handle an optional sign.
2274 } else if (*cur
== '+')
2277 * Disallow: "", "-", "- "
2282 * Next we "pre-parse" the number, in preparation for calling
2283 * the common routine xmlSchemaParseUInt. We get rid of any
2284 * leading zeroes (because we have reserved only 25 chars),
2285 * and note the position of a decimal point.
2289 hasLeadingZeroes
= 0;
2291 * Skip leading zeroes.
2293 while (*cur
== '0') {
2295 hasLeadingZeroes
= 1;
2299 if ((*cur
>= '0') && (*cur
<= '9')) {
2302 } else if (*cur
== '.') {
2306 if ((*cur
>= '0') && (*cur
<= '9')) {
2313 * Disallow "." but allow "00."
2315 if ((len
== 0) && (!hasLeadingZeroes
))
2323 while IS_WSP_BLANK_CH(*cur
) cur
++;
2325 goto return1
; /* error if any extraneous chars */
2327 v
= xmlSchemaNewValue(XML_SCHEMAS_DECIMAL
);
2330 * Now evaluate the significant digits of the number
2336 * Get rid of trailing zeroes in the
2339 while ((len
!= integ
) && (*(cptr
-1) == '0')) {
2345 * Terminate the (preparsed) string.
2351 xmlSchemaParseUInt((const xmlChar
**)&cptr
,
2352 &v
->value
.decimal
.lo
,
2353 &v
->value
.decimal
.mi
,
2354 &v
->value
.decimal
.hi
);
2358 * Set the total digits to 1 if a zero value.
2360 v
->value
.decimal
.sign
= neg
;
2362 /* Speedup for zero values. */
2363 v
->value
.decimal
.total
= 1;
2365 v
->value
.decimal
.total
= len
;
2367 v
->value
.decimal
.frac
= 0;
2369 v
->value
.decimal
.frac
= len
- integ
;
2376 case XML_SCHEMAS_TIME
:
2377 case XML_SCHEMAS_GDAY
:
2378 case XML_SCHEMAS_GMONTH
:
2379 case XML_SCHEMAS_GMONTHDAY
:
2380 case XML_SCHEMAS_GYEAR
:
2381 case XML_SCHEMAS_GYEARMONTH
:
2382 case XML_SCHEMAS_DATE
:
2383 case XML_SCHEMAS_DATETIME
:
2384 ret
= xmlSchemaValidateDates(type
->builtInType
, value
, val
,
2387 case XML_SCHEMAS_DURATION
:
2388 ret
= xmlSchemaValidateDuration(type
, value
, val
,
2391 case XML_SCHEMAS_FLOAT
:
2392 case XML_SCHEMAS_DOUBLE
: {
2393 const xmlChar
*cur
= value
;
2395 int digits_before
= 0;
2396 int digits_after
= 0;
2399 while IS_WSP_BLANK_CH(*cur
) cur
++;
2401 if ((cur
[0] == 'N') && (cur
[1] == 'a') && (cur
[2] == 'N')) {
2406 if (type
== xmlSchemaTypeFloatDef
) {
2407 v
= xmlSchemaNewValue(XML_SCHEMAS_FLOAT
);
2409 v
->value
.f
= (float) xmlXPathNAN
;
2411 xmlSchemaFreeValue(v
);
2415 v
= xmlSchemaNewValue(XML_SCHEMAS_DOUBLE
);
2417 v
->value
.d
= xmlXPathNAN
;
2419 xmlSchemaFreeValue(v
);
2431 if ((cur
[0] == 'I') && (cur
[1] == 'N') && (cur
[2] == 'F')) {
2436 if (type
== xmlSchemaTypeFloatDef
) {
2437 v
= xmlSchemaNewValue(XML_SCHEMAS_FLOAT
);
2440 v
->value
.f
= (float) xmlXPathNINF
;
2442 v
->value
.f
= (float) xmlXPathPINF
;
2444 xmlSchemaFreeValue(v
);
2448 v
= xmlSchemaNewValue(XML_SCHEMAS_DOUBLE
);
2451 v
->value
.d
= xmlXPathNINF
;
2453 v
->value
.d
= xmlXPathPINF
;
2455 xmlSchemaFreeValue(v
);
2463 if ((neg
== 0) && (*cur
== '+'))
2465 if ((cur
[0] == 0) || (cur
[0] == '+') || (cur
[0] == '-'))
2467 while ((*cur
>= '0') && (*cur
<= '9')) {
2473 while ((*cur
>= '0') && (*cur
<= '9')) {
2478 if ((digits_before
== 0) && (digits_after
== 0))
2480 if ((*cur
== 'e') || (*cur
== 'E')) {
2482 if ((*cur
== '-') || (*cur
== '+'))
2484 while ((*cur
>= '0') && (*cur
<= '9'))
2488 while IS_WSP_BLANK_CH(*cur
) cur
++;
2493 if (type
== xmlSchemaTypeFloatDef
) {
2494 v
= xmlSchemaNewValue(XML_SCHEMAS_FLOAT
);
2497 * TODO: sscanf seems not to give the correct
2498 * value for extremely high/low values.
2499 * E.g. "1E-149" results in zero.
2501 if (sscanf((const char *) value
, "%f",
2502 &(v
->value
.f
)) == 1) {
2505 xmlSchemaFreeValue(v
);
2512 v
= xmlSchemaNewValue(XML_SCHEMAS_DOUBLE
);
2515 * TODO: sscanf seems not to give the correct
2516 * value for extremely high/low values.
2518 if (sscanf((const char *) value
, "%lf",
2519 &(v
->value
.d
)) == 1) {
2522 xmlSchemaFreeValue(v
);
2532 case XML_SCHEMAS_BOOLEAN
:{
2533 const xmlChar
*cur
= value
;
2536 while IS_WSP_BLANK_CH(*cur
) cur
++;
2540 } else if (*cur
== '1') {
2543 } else if (*cur
== 't') {
2545 if ((*cur
++ == 'r') && (*cur
++ == 'u') &&
2550 } else if (*cur
== 'f') {
2552 if ((*cur
++ == 'a') && (*cur
++ == 'l') &&
2553 (*cur
++ == 's') && (*cur
++ == 'e')) {
2560 while IS_WSP_BLANK_CH(*cur
) cur
++;
2565 if ((cur
[0] == '0') && (cur
[1] == 0))
2567 else if ((cur
[0] == '1') && (cur
[1] == 0))
2569 else if ((cur
[0] == 't') && (cur
[1] == 'r')
2570 && (cur
[2] == 'u') && (cur
[3] == 'e')
2573 else if ((cur
[0] == 'f') && (cur
[1] == 'a')
2574 && (cur
[2] == 'l') && (cur
[3] == 's')
2575 && (cur
[4] == 'e') && (cur
[5] == 0))
2581 v
= xmlSchemaNewValue(XML_SCHEMAS_BOOLEAN
);
2591 case XML_SCHEMAS_TOKEN
:{
2592 const xmlChar
*cur
= value
;
2594 if (! normOnTheFly
) {
2596 if ((*cur
== 0xd) || (*cur
== 0xa) || (*cur
== 0x9)) {
2598 } else if (*cur
== ' ') {
2610 v
= xmlSchemaNewValue(XML_SCHEMAS_TOKEN
);
2612 v
->value
.str
= xmlStrdup(value
);
2620 case XML_SCHEMAS_LANGUAGE
:
2622 norm
= xmlSchemaCollapseString(value
);
2626 if (xmlCheckLanguageID(value
) == 1) {
2628 v
= xmlSchemaNewValue(XML_SCHEMAS_LANGUAGE
);
2630 v
->value
.str
= xmlStrdup(value
);
2639 case XML_SCHEMAS_NMTOKEN
:
2640 if (xmlValidateNMToken(value
, 1) == 0) {
2642 v
= xmlSchemaNewValue(XML_SCHEMAS_NMTOKEN
);
2644 v
->value
.str
= xmlStrdup(value
);
2653 case XML_SCHEMAS_NMTOKENS
:
2654 ret
= xmlSchemaValAtomicListNode(xmlSchemaTypeNmtokenDef
,
2661 case XML_SCHEMAS_NAME
:
2662 ret
= xmlValidateName(value
, 1);
2663 if ((ret
== 0) && (val
!= NULL
) && (value
!= NULL
)) {
2664 v
= xmlSchemaNewValue(XML_SCHEMAS_NAME
);
2666 const xmlChar
*start
= value
, *end
;
2667 while (IS_BLANK_CH(*start
)) start
++;
2669 while ((*end
!= 0) && (!IS_BLANK_CH(*end
))) end
++;
2670 v
->value
.str
= xmlStrndup(start
, end
- start
);
2677 case XML_SCHEMAS_QNAME
:{
2678 const xmlChar
*uri
= NULL
;
2679 xmlChar
*local
= NULL
;
2681 ret
= xmlValidateQName(value
, 1);
2688 local
= xmlSplitQName2(value
, &prefix
);
2689 ns
= xmlSearchNs(node
->doc
, node
, prefix
);
2690 if ((ns
== NULL
) && (prefix
!= NULL
)) {
2702 v
= xmlSchemaNewValue(XML_SCHEMAS_QNAME
);
2709 v
->value
.qname
.name
= local
;
2711 v
->value
.qname
.name
= xmlStrdup(value
);
2713 v
->value
.qname
.uri
= xmlStrdup(uri
);
2720 case XML_SCHEMAS_NCNAME
:
2721 ret
= xmlValidateNCName(value
, 1);
2722 if ((ret
== 0) && (val
!= NULL
)) {
2723 v
= xmlSchemaNewValue(XML_SCHEMAS_NCNAME
);
2725 v
->value
.str
= xmlStrdup(value
);
2732 case XML_SCHEMAS_ID
:
2733 ret
= xmlValidateNCName(value
, 1);
2734 if ((ret
== 0) && (val
!= NULL
)) {
2735 v
= xmlSchemaNewValue(XML_SCHEMAS_ID
);
2737 v
->value
.str
= xmlStrdup(value
);
2743 if ((ret
== 0) && (node
!= NULL
) &&
2744 (node
->type
== XML_ATTRIBUTE_NODE
)) {
2745 xmlAttrPtr attr
= (xmlAttrPtr
) node
;
2748 * NOTE: the IDness might have already be declared in the DTD
2750 if (attr
->atype
!= XML_ATTRIBUTE_ID
) {
2754 strip
= xmlSchemaStrip(value
);
2755 if (strip
!= NULL
) {
2756 res
= xmlAddID(NULL
, node
->doc
, strip
, attr
);
2759 res
= xmlAddID(NULL
, node
->doc
, value
, attr
);
2763 attr
->atype
= XML_ATTRIBUTE_ID
;
2768 case XML_SCHEMAS_IDREF
:
2769 ret
= xmlValidateNCName(value
, 1);
2770 if ((ret
== 0) && (val
!= NULL
)) {
2771 v
= xmlSchemaNewValue(XML_SCHEMAS_IDREF
);
2774 v
->value
.str
= xmlStrdup(value
);
2777 if ((ret
== 0) && (node
!= NULL
) &&
2778 (node
->type
== XML_ATTRIBUTE_NODE
)) {
2779 xmlAttrPtr attr
= (xmlAttrPtr
) node
;
2782 strip
= xmlSchemaStrip(value
);
2783 if (strip
!= NULL
) {
2784 xmlAddRef(NULL
, node
->doc
, strip
, attr
);
2787 xmlAddRef(NULL
, node
->doc
, value
, attr
);
2788 attr
->atype
= XML_ATTRIBUTE_IDREF
;
2791 case XML_SCHEMAS_IDREFS
:
2792 ret
= xmlSchemaValAtomicListNode(xmlSchemaTypeIdrefDef
,
2798 if ((ret
== 0) && (node
!= NULL
) &&
2799 (node
->type
== XML_ATTRIBUTE_NODE
)) {
2800 xmlAttrPtr attr
= (xmlAttrPtr
) node
;
2802 attr
->atype
= XML_ATTRIBUTE_IDREFS
;
2805 case XML_SCHEMAS_ENTITY
:{
2808 ret
= xmlValidateNCName(value
, 1);
2809 if ((node
== NULL
) || (node
->doc
== NULL
))
2814 strip
= xmlSchemaStrip(value
);
2815 if (strip
!= NULL
) {
2816 ent
= xmlGetDocEntity(node
->doc
, strip
);
2819 ent
= xmlGetDocEntity(node
->doc
, value
);
2821 if ((ent
== NULL
) ||
2823 XML_EXTERNAL_GENERAL_UNPARSED_ENTITY
))
2826 if ((ret
== 0) && (val
!= NULL
)) {
2829 if ((ret
== 0) && (node
!= NULL
) &&
2830 (node
->type
== XML_ATTRIBUTE_NODE
)) {
2831 xmlAttrPtr attr
= (xmlAttrPtr
) node
;
2833 attr
->atype
= XML_ATTRIBUTE_ENTITY
;
2837 case XML_SCHEMAS_ENTITIES
:
2838 if ((node
== NULL
) || (node
->doc
== NULL
))
2840 ret
= xmlSchemaValAtomicListNode(xmlSchemaTypeEntityDef
,
2846 if ((ret
== 0) && (node
!= NULL
) &&
2847 (node
->type
== XML_ATTRIBUTE_NODE
)) {
2848 xmlAttrPtr attr
= (xmlAttrPtr
) node
;
2850 attr
->atype
= XML_ATTRIBUTE_ENTITIES
;
2853 case XML_SCHEMAS_NOTATION
:{
2854 xmlChar
*uri
= NULL
;
2855 xmlChar
*local
= NULL
;
2857 ret
= xmlValidateQName(value
, 1);
2858 if ((ret
== 0) && (node
!= NULL
)) {
2861 local
= xmlSplitQName2(value
, &prefix
);
2862 if (prefix
!= NULL
) {
2865 ns
= xmlSearchNs(node
->doc
, node
, prefix
);
2868 else if (val
!= NULL
)
2869 uri
= xmlStrdup(ns
->href
);
2871 if ((local
!= NULL
) && ((val
== NULL
) || (ret
!= 0)))
2876 if ((node
== NULL
) || (node
->doc
== NULL
))
2879 ret
= xmlValidateNotationUse(NULL
, node
->doc
, value
);
2885 if ((ret
== 0) && (val
!= NULL
)) {
2886 v
= xmlSchemaNewValue(XML_SCHEMAS_NOTATION
);
2889 v
->value
.qname
.name
= local
;
2891 v
->value
.qname
.name
= xmlStrdup(value
);
2893 v
->value
.qname
.uri
= uri
;
2906 case XML_SCHEMAS_ANYURI
:{
2909 xmlChar
*tmpval
, *cur
;
2911 norm
= xmlSchemaCollapseString(value
);
2915 tmpval
= xmlStrdup(value
);
2916 for (cur
= tmpval
; *cur
; ++cur
) {
2917 if (*cur
< 32 || *cur
>= 127 || *cur
== ' ' ||
2918 *cur
== '<' || *cur
== '>' || *cur
== '"' ||
2919 *cur
== '{' || *cur
== '}' || *cur
== '|' ||
2920 *cur
== '\\' || *cur
== '^' || *cur
== '`' ||
2924 uri
= xmlParseURI((const char *) tmpval
);
2932 v
= xmlSchemaNewValue(XML_SCHEMAS_ANYURI
);
2935 v
->value
.str
= xmlStrdup(value
);
2940 case XML_SCHEMAS_HEXBINARY
:{
2941 const xmlChar
*cur
= value
, *start
;
2949 while IS_WSP_BLANK_CH(*cur
) cur
++;
2952 while (((*cur
>= '0') && (*cur
<= '9')) ||
2953 ((*cur
>= 'A') && (*cur
<= 'F')) ||
2954 ((*cur
>= 'a') && (*cur
<= 'f'))) {
2959 while IS_WSP_BLANK_CH(*cur
) cur
++;
2968 v
= xmlSchemaNewValue(XML_SCHEMAS_HEXBINARY
);
2972 * Copy only the normalized piece.
2973 * CRITICAL TODO: Check this.
2975 cur
= xmlStrndup(start
, i
);
2977 xmlSchemaTypeErrMemory(node
, "allocating hexbin data");
2982 total
= i
/ 2; /* number of octets */
2984 base
= (xmlChar
*) cur
;
2987 *base
= *base
- ('a' - 'A');
2991 v
->value
.hex
.str
= (xmlChar
*) cur
;
2992 v
->value
.hex
.total
= total
;
2997 case XML_SCHEMAS_BASE64BINARY
:{
3000 * Ignore all stray characters? (yes, currently)
3001 * Worry about long lines? (no, currently)
3005 * "The encoded output stream must be represented in lines of
3006 * no more than 76 characters each. All line breaks or other
3007 * characters not found in Table 1 must be ignored by decoding
3008 * software. In base64 data, characters other than those in
3009 * Table 1, line breaks, and other white space probably
3010 * indicate a transmission error, about which a warning
3011 * message or even a message rejection might be appropriate
3012 * under some circumstances." */
3013 const xmlChar
*cur
= value
;
3015 int total
, i
= 0, pad
= 0;
3020 for (; *cur
; ++cur
) {
3023 decc
= _xmlSchemaBase64Decode(*cur
);
3030 for (; *cur
; ++cur
) {
3033 decc
= _xmlSchemaBase64Decode(*cur
);
3041 /* rfc2045.txt: "Special processing is performed if fewer than
3042 * 24 bits are available at the end of the data being encoded.
3043 * A full encoding quantum is always completed at the end of a
3044 * body. When fewer than 24 input bits are available in an
3045 * input group, zero bits are added (on the right) to form an
3046 * integral number of 6-bit groups. Padding at the end of the
3047 * data is performed using the "=" character. Since all
3048 * base64 input is an integral number of octets, only the
3049 * following cases can arise: (1) the final quantum of
3050 * encoding input is an integral multiple of 24 bits; here,
3051 * the final unit of encoded output will be an integral
3052 * multiple ofindent: Standard input:701: Warning:old style
3053 * assignment ambiguity in "=*". Assuming "= *" 4 characters
3054 * with no "=" padding, (2) the final
3055 * quantum of encoding input is exactly 8 bits; here, the
3056 * final unit of encoded output will be two characters
3057 * followed by two "=" padding characters, or (3) the final
3058 * quantum of encoding input is exactly 16 bits; here, the
3059 * final unit of encoded output will be three characters
3060 * followed by one "=" padding character." */
3062 total
= 3 * (i
/ 4);
3066 } else if (pad
== 1) {
3071 for (decc
= _xmlSchemaBase64Decode(*cur
);
3072 (decc
< 0) || (decc
> 63);
3073 decc
= _xmlSchemaBase64Decode(*cur
))
3075 /* 16bits in 24bits means 2 pad bits: nnnnnn nnmmmm mmmm00*/
3076 /* 00111100 -> 0x3c */
3080 } else if (pad
== 2) {
3085 for (decc
= _xmlSchemaBase64Decode(*cur
);
3086 (decc
< 0) || (decc
> 63);
3087 decc
= _xmlSchemaBase64Decode(*cur
))
3089 /* 8bits in 12bits means 4 pad bits: nnnnnn nn0000 */
3090 /* 00110000 -> 0x30 */
3098 v
= xmlSchemaNewValue(XML_SCHEMAS_BASE64BINARY
);
3102 (xmlChar
*) xmlMallocAtomic((i
+ pad
+ 1) *
3105 xmlSchemaTypeErrMemory(node
, "allocating base64 data");
3109 v
->value
.base64
.str
= base
;
3110 for (cur
= value
; *cur
; ++cur
)
3111 if (_xmlSchemaBase64Decode(*cur
) >= 0) {
3116 v
->value
.base64
.total
= total
;
3121 case XML_SCHEMAS_INTEGER
:
3122 case XML_SCHEMAS_PINTEGER
:
3123 case XML_SCHEMAS_NPINTEGER
:
3124 case XML_SCHEMAS_NINTEGER
:
3125 case XML_SCHEMAS_NNINTEGER
:{
3126 const xmlChar
*cur
= value
;
3127 unsigned long lo
, mi
, hi
;
3133 while IS_WSP_BLANK_CH(*cur
) cur
++;
3137 } else if (*cur
== '+')
3139 ret
= xmlSchemaParseUInt(&cur
, &lo
, &mi
, &hi
);
3143 while IS_WSP_BLANK_CH(*cur
) cur
++;
3146 if (type
->builtInType
== XML_SCHEMAS_NPINTEGER
) {
3148 ((hi
!= 0) || (mi
!= 0) || (lo
!= 0)))
3150 } else if (type
->builtInType
== XML_SCHEMAS_PINTEGER
) {
3153 if ((hi
== 0) && (mi
== 0) && (lo
== 0))
3155 } else if (type
->builtInType
== XML_SCHEMAS_NINTEGER
) {
3158 if ((hi
== 0) && (mi
== 0) && (lo
== 0))
3160 } else if (type
->builtInType
== XML_SCHEMAS_NNINTEGER
) {
3162 ((hi
!= 0) || (mi
!= 0) || (lo
!= 0)))
3166 v
= xmlSchemaNewValue(type
->builtInType
);
3170 v
->value
.decimal
.lo
= lo
;
3171 v
->value
.decimal
.mi
= mi
;
3172 v
->value
.decimal
.hi
= hi
;
3173 v
->value
.decimal
.sign
= sign
;
3174 v
->value
.decimal
.frac
= 0;
3175 v
->value
.decimal
.total
= ret
;
3181 case XML_SCHEMAS_LONG
:
3182 case XML_SCHEMAS_BYTE
:
3183 case XML_SCHEMAS_SHORT
:
3184 case XML_SCHEMAS_INT
:{
3185 const xmlChar
*cur
= value
;
3186 unsigned long lo
, mi
, hi
;
3194 } else if (*cur
== '+')
3196 ret
= xmlSchemaParseUInt(&cur
, &lo
, &mi
, &hi
);
3201 if (type
->builtInType
== XML_SCHEMAS_LONG
) {
3205 if (mi
>= 33720368) {
3208 if ((sign
== 0) && (lo
> 54775807))
3210 if ((sign
== 1) && (lo
> 54775808))
3214 } else if (type
->builtInType
== XML_SCHEMAS_INT
) {
3220 if ((sign
== 0) && (lo
> 47483647))
3222 if ((sign
== 1) && (lo
> 47483648))
3225 } else if (type
->builtInType
== XML_SCHEMAS_SHORT
) {
3226 if ((mi
!= 0) || (hi
!= 0))
3228 if ((sign
== 1) && (lo
> 32768))
3230 if ((sign
== 0) && (lo
> 32767))
3232 } else if (type
->builtInType
== XML_SCHEMAS_BYTE
) {
3233 if ((mi
!= 0) || (hi
!= 0))
3235 if ((sign
== 1) && (lo
> 128))
3237 if ((sign
== 0) && (lo
> 127))
3241 v
= xmlSchemaNewValue(type
->builtInType
);
3243 v
->value
.decimal
.lo
= lo
;
3244 v
->value
.decimal
.mi
= mi
;
3245 v
->value
.decimal
.hi
= hi
;
3246 v
->value
.decimal
.sign
= sign
;
3247 v
->value
.decimal
.frac
= 0;
3248 v
->value
.decimal
.total
= ret
;
3254 case XML_SCHEMAS_UINT
:
3255 case XML_SCHEMAS_ULONG
:
3256 case XML_SCHEMAS_USHORT
:
3257 case XML_SCHEMAS_UBYTE
:{
3258 const xmlChar
*cur
= value
;
3259 unsigned long lo
, mi
, hi
;
3263 ret
= xmlSchemaParseUInt(&cur
, &lo
, &mi
, &hi
);
3268 if (type
->builtInType
== XML_SCHEMAS_ULONG
) {
3272 if (mi
>= 67440737) {
3279 } else if (type
->builtInType
== XML_SCHEMAS_UINT
) {
3288 } else if (type
->builtInType
== XML_SCHEMAS_USHORT
) {
3289 if ((mi
!= 0) || (hi
!= 0))
3293 } else if (type
->builtInType
== XML_SCHEMAS_UBYTE
) {
3294 if ((mi
!= 0) || (hi
!= 0))
3300 v
= xmlSchemaNewValue(type
->builtInType
);
3302 v
->value
.decimal
.lo
= lo
;
3303 v
->value
.decimal
.mi
= mi
;
3304 v
->value
.decimal
.hi
= hi
;
3305 v
->value
.decimal
.sign
= 0;
3306 v
->value
.decimal
.frac
= 0;
3307 v
->value
.decimal
.total
= ret
;
3338 * xmlSchemaValPredefTypeNode:
3339 * @type: the predefined type
3340 * @value: the value to check
3341 * @val: the return computed value
3342 * @node: the node containing the value
3344 * Check that a value conforms to the lexical space of the predefined type.
3345 * if true a value is computed and returned in @val.
3347 * Returns 0 if this validates, a positive error code number otherwise
3348 * and -1 in case of internal or API error.
3351 xmlSchemaValPredefTypeNode(xmlSchemaTypePtr type
, const xmlChar
*value
,
3352 xmlSchemaValPtr
*val
, xmlNodePtr node
) {
3353 return(xmlSchemaValAtomicType(type
, value
, val
, node
, 0,
3354 XML_SCHEMA_WHITESPACE_UNKNOWN
, 1, 1, 0));
3358 * xmlSchemaValPredefTypeNodeNoNorm:
3359 * @type: the predefined type
3360 * @value: the value to check
3361 * @val: the return computed value
3362 * @node: the node containing the value
3364 * Check that a value conforms to the lexical space of the predefined type.
3365 * if true a value is computed and returned in @val.
3366 * This one does apply any normalization to the value.
3368 * Returns 0 if this validates, a positive error code number otherwise
3369 * and -1 in case of internal or API error.
3372 xmlSchemaValPredefTypeNodeNoNorm(xmlSchemaTypePtr type
, const xmlChar
*value
,
3373 xmlSchemaValPtr
*val
, xmlNodePtr node
) {
3374 return(xmlSchemaValAtomicType(type
, value
, val
, node
, 1,
3375 XML_SCHEMA_WHITESPACE_UNKNOWN
, 1, 0, 1));
3379 * xmlSchemaValidatePredefinedType:
3380 * @type: the predefined type
3381 * @value: the value to check
3382 * @val: the return computed value
3384 * Check that a value conforms to the lexical space of the predefined type.
3385 * if true a value is computed and returned in @val.
3387 * Returns 0 if this validates, a positive error code number otherwise
3388 * and -1 in case of internal or API error.
3391 xmlSchemaValidatePredefinedType(xmlSchemaTypePtr type
, const xmlChar
*value
,
3392 xmlSchemaValPtr
*val
) {
3393 return(xmlSchemaValPredefTypeNode(type
, value
, val
, NULL
));
3397 * xmlSchemaCompareDecimals:
3398 * @x: a first decimal value
3399 * @y: a second decimal value
3401 * Compare 2 decimals
3403 * Returns -1 if x < y, 0 if x == y, 1 if x > y and -2 in case of error
3406 xmlSchemaCompareDecimals(xmlSchemaValPtr x
, xmlSchemaValPtr y
)
3408 xmlSchemaValPtr swp
;
3409 int order
= 1, integx
, integy
, dlen
;
3410 unsigned long hi
, mi
, lo
;
3413 * First test: If x is -ve and not zero
3415 if ((x
->value
.decimal
.sign
) &&
3416 ((x
->value
.decimal
.lo
!= 0) ||
3417 (x
->value
.decimal
.mi
!= 0) ||
3418 (x
->value
.decimal
.hi
!= 0))) {
3420 * Then if y is -ve and not zero reverse the compare
3422 if ((y
->value
.decimal
.sign
) &&
3423 ((y
->value
.decimal
.lo
!= 0) ||
3424 (y
->value
.decimal
.mi
!= 0) ||
3425 (y
->value
.decimal
.hi
!= 0)))
3428 * Otherwise (y >= 0) we have the answer
3433 * If x is not -ve and y is -ve we have the answer
3435 } else if ((y
->value
.decimal
.sign
) &&
3436 ((y
->value
.decimal
.lo
!= 0) ||
3437 (y
->value
.decimal
.mi
!= 0) ||
3438 (y
->value
.decimal
.hi
!= 0))) {
3442 * If it's not simply determined by a difference in sign,
3443 * then we need to compare the actual values of the two nums.
3444 * To do this, we start by looking at the integral parts.
3445 * If the number of integral digits differ, then we have our
3448 integx
= x
->value
.decimal
.total
- x
->value
.decimal
.frac
;
3449 integy
= y
->value
.decimal
.total
- y
->value
.decimal
.frac
;
3451 * NOTE: We changed the "total" for values like "0.1"
3452 * (or "-0.1" or ".1") to be 1, which was 2 previously.
3453 * Therefore the special case, when such values are
3454 * compared with 0, needs to be handled separately;
3455 * otherwise a zero would be recognized incorrectly as
3456 * greater than those values. This has the nice side effect
3457 * that we gain an overall optimized comparison with zeroes.
3458 * Note that a "0" has a "total" of 1 already.
3461 if (x
->value
.decimal
.lo
== 0) {
3464 else if (y
->value
.decimal
.lo
!= 0)
3471 if (y
->value
.decimal
.lo
== 0) {
3474 else if (x
->value
.decimal
.lo
!= 0)
3481 if (integx
> integy
)
3483 else if (integy
> integx
)
3487 * If the number of integral digits is the same for both numbers,
3488 * then things get a little more complicated. We need to "normalize"
3489 * the numbers in order to properly compare them. To do this, we
3490 * look at the total length of each number (length => number of
3491 * significant digits), and divide the "shorter" by 10 (decreasing
3492 * the length) until they are of equal length.
3494 dlen
= x
->value
.decimal
.total
- y
->value
.decimal
.total
;
3495 if (dlen
< 0) { /* y has more digits than x */
3497 hi
= y
->value
.decimal
.hi
;
3498 mi
= y
->value
.decimal
.mi
;
3499 lo
= y
->value
.decimal
.lo
;
3502 } else { /* x has more digits than y */
3504 hi
= x
->value
.decimal
.hi
;
3505 mi
= x
->value
.decimal
.mi
;
3506 lo
= x
->value
.decimal
.lo
;
3508 while (dlen
> 8) { /* in effect, right shift by 10**8 */
3515 unsigned long rem1
, rem2
;
3516 rem1
= (hi
% 10) * 100000000L;
3518 rem2
= (mi
% 10) * 100000000L;
3519 mi
= (mi
+ rem1
) / 10;
3520 lo
= (lo
+ rem2
) / 10;
3523 if (hi
> swp
->value
.decimal
.hi
) {
3525 } else if (hi
== swp
->value
.decimal
.hi
) {
3526 if (mi
> swp
->value
.decimal
.mi
) {
3528 } else if (mi
== swp
->value
.decimal
.mi
) {
3529 if (lo
> swp
->value
.decimal
.lo
) {
3531 } else if (lo
== swp
->value
.decimal
.lo
) {
3532 if (x
->value
.decimal
.total
== y
->value
.decimal
.total
) {
3544 * xmlSchemaCompareDurations:
3545 * @x: a first duration value
3546 * @y: a second duration value
3548 * Compare 2 durations
3550 * Returns -1 if x < y, 0 if x == y, 1 if x > y, 2 if x <> y, and -2 in
3554 xmlSchemaCompareDurations(xmlSchemaValPtr x
, xmlSchemaValPtr y
)
3556 long carry
, mon
, day
;
3559 long xmon
, xday
, myear
, minday
, maxday
;
3560 static const long dayRange
[2][12] = {
3561 { 0, 28, 59, 89, 120, 150, 181, 212, 242, 273, 303, 334, },
3562 { 0, 31, 62, 92, 123, 153, 184, 215, 245, 276, 306, 337} };
3564 if ((x
== NULL
) || (y
== NULL
))
3568 mon
= x
->value
.dur
.mon
- y
->value
.dur
.mon
;
3571 sec
= x
->value
.dur
.sec
- y
->value
.dur
.sec
;
3572 carry
= (long)(sec
/ SECS_PER_DAY
);
3573 sec
-= ((double)carry
) * SECS_PER_DAY
;
3576 day
= x
->value
.dur
.day
- y
->value
.dur
.day
+ carry
;
3594 if ((day
>= 0) && (sec
>= 0.0))
3600 } else if ((day
<= 0) && (sec
<= 0.0)) {
3613 maxday
= 366 * ((myear
+ 3) / 4) +
3614 365 * ((myear
- 1) % 4);
3615 minday
= maxday
- 1;
3619 minday
+= dayRange
[0][xmon
];
3620 maxday
+= dayRange
[1][xmon
];
3622 if ((maxday
== minday
) && (maxday
== xday
))
3623 return(0); /* can this really happen ? */
3634 * macros for adding date/times and durations
3636 #define FQUOTIENT(a,b) (floor(((double)a/(double)b)))
3637 #define MODULO(a,b) (a - FQUOTIENT(a,b) * b)
3638 #define FQUOTIENT_RANGE(a,low,high) (FQUOTIENT((a-low),(high-low)))
3639 #define MODULO_RANGE(a,low,high) ((MODULO((a-low),(high-low)))+low)
3643 * @v: the #xmlSchemaValPtr value to duplicate
3645 * Makes a copy of @v. The calling program is responsible for freeing
3646 * the returned value.
3648 * returns a pointer to a duplicated #xmlSchemaValPtr or NULL if error.
3650 static xmlSchemaValPtr
3651 xmlSchemaDupVal (xmlSchemaValPtr v
)
3653 xmlSchemaValPtr ret
= xmlSchemaNewValue(v
->type
);
3657 memcpy(ret
, v
, sizeof(xmlSchemaVal
));
3663 * xmlSchemaCopyValue:
3664 * @val: the precomputed value to be copied
3666 * Copies the precomputed value. This duplicates any string within.
3668 * Returns the copy or NULL if a copy for a data-type is not implemented.
3671 xmlSchemaCopyValue(xmlSchemaValPtr val
)
3673 xmlSchemaValPtr ret
= NULL
, prev
= NULL
, cur
;
3676 * Copy the string values.
3678 while (val
!= NULL
) {
3679 switch (val
->type
) {
3680 case XML_SCHEMAS_ANYTYPE
:
3681 case XML_SCHEMAS_IDREFS
:
3682 case XML_SCHEMAS_ENTITIES
:
3683 case XML_SCHEMAS_NMTOKENS
:
3684 xmlSchemaFreeValue(ret
);
3686 case XML_SCHEMAS_ANYSIMPLETYPE
:
3687 case XML_SCHEMAS_STRING
:
3688 case XML_SCHEMAS_NORMSTRING
:
3689 case XML_SCHEMAS_TOKEN
:
3690 case XML_SCHEMAS_LANGUAGE
:
3691 case XML_SCHEMAS_NAME
:
3692 case XML_SCHEMAS_NCNAME
:
3693 case XML_SCHEMAS_ID
:
3694 case XML_SCHEMAS_IDREF
:
3695 case XML_SCHEMAS_ENTITY
:
3696 case XML_SCHEMAS_NMTOKEN
:
3697 case XML_SCHEMAS_ANYURI
:
3698 cur
= xmlSchemaDupVal(val
);
3699 if (val
->value
.str
!= NULL
)
3700 cur
->value
.str
= xmlStrdup(BAD_CAST val
->value
.str
);
3702 case XML_SCHEMAS_QNAME
:
3703 case XML_SCHEMAS_NOTATION
:
3704 cur
= xmlSchemaDupVal(val
);
3705 if (val
->value
.qname
.name
!= NULL
)
3706 cur
->value
.qname
.name
=
3707 xmlStrdup(BAD_CAST val
->value
.qname
.name
);
3708 if (val
->value
.qname
.uri
!= NULL
)
3709 cur
->value
.qname
.uri
=
3710 xmlStrdup(BAD_CAST val
->value
.qname
.uri
);
3712 case XML_SCHEMAS_HEXBINARY
:
3713 cur
= xmlSchemaDupVal(val
);
3714 if (val
->value
.hex
.str
!= NULL
)
3715 cur
->value
.hex
.str
= xmlStrdup(BAD_CAST val
->value
.hex
.str
);
3717 case XML_SCHEMAS_BASE64BINARY
:
3718 cur
= xmlSchemaDupVal(val
);
3719 if (val
->value
.base64
.str
!= NULL
)
3720 cur
->value
.base64
.str
=
3721 xmlStrdup(BAD_CAST val
->value
.base64
.str
);
3724 cur
= xmlSchemaDupVal(val
);
3738 * _xmlSchemaDateAdd:
3739 * @dt: an #xmlSchemaValPtr
3740 * @dur: an #xmlSchemaValPtr of type #XS_DURATION
3742 * Compute a new date/time from @dt and @dur. This function assumes @dt
3743 * is either #XML_SCHEMAS_DATETIME, #XML_SCHEMAS_DATE, #XML_SCHEMAS_GYEARMONTH,
3744 * or #XML_SCHEMAS_GYEAR. The returned #xmlSchemaVal is the same type as
3745 * @dt. The calling program is responsible for freeing the returned value.
3747 * Returns a pointer to a new #xmlSchemaVal or NULL if error.
3749 static xmlSchemaValPtr
3750 _xmlSchemaDateAdd (xmlSchemaValPtr dt
, xmlSchemaValPtr dur
)
3752 xmlSchemaValPtr ret
, tmp
;
3753 long carry
, tempdays
, temp
;
3754 xmlSchemaValDatePtr r
, d
;
3755 xmlSchemaValDurationPtr u
;
3757 if ((dt
== NULL
) || (dur
== NULL
))
3760 ret
= xmlSchemaNewValue(dt
->type
);
3764 /* make a copy so we don't alter the original value */
3765 tmp
= xmlSchemaDupVal(dt
);
3767 xmlSchemaFreeValue(ret
);
3771 r
= &(ret
->value
.date
);
3772 d
= &(tmp
->value
.date
);
3773 u
= &(dur
->value
.dur
);
3779 /* normalize for time zone offset */
3780 u
->sec
-= (d
->tzo
* 60);
3788 carry
= d
->mon
+ u
->mon
;
3789 r
->mon
= (unsigned int) MODULO_RANGE(carry
, 1, 13);
3790 carry
= (long) FQUOTIENT_RANGE(carry
, 1, 13);
3792 /* year (may be modified later) */
3793 r
->year
= d
->year
+ carry
;
3803 r
->tz_flag
= d
->tz_flag
;
3806 r
->sec
= d
->sec
+ u
->sec
;
3807 carry
= (long) FQUOTIENT((long)r
->sec
, 60);
3808 if (r
->sec
!= 0.0) {
3809 r
->sec
= MODULO(r
->sec
, 60.0);
3814 r
->min
= (unsigned int) MODULO(carry
, 60);
3815 carry
= (long) FQUOTIENT(carry
, 60);
3819 r
->hour
= (unsigned int) MODULO(carry
, 24);
3820 carry
= (long)FQUOTIENT(carry
, 24);
3824 * Note we use tempdays because the temporary values may need more
3827 if ((VALID_YEAR(r
->year
)) && (VALID_MONTH(r
->mon
)) &&
3828 (d
->day
> MAX_DAYINMONTH(r
->year
, r
->mon
)))
3829 tempdays
= MAX_DAYINMONTH(r
->year
, r
->mon
);
3830 else if (d
->day
< 1)
3835 tempdays
+= u
->day
+ carry
;
3839 long tmon
= (long) MODULO_RANGE((int)r
->mon
-1, 1, 13);
3840 long tyr
= r
->year
+ (long)FQUOTIENT_RANGE((int)r
->mon
-1, 1, 13);
3844 * Coverity detected an overrun in daysInMonth
3845 * of size 12 at position 12 with index variable "((r)->mon - 1)"
3851 tempdays
+= MAX_DAYINMONTH(tyr
, tmon
);
3853 } else if (tempdays
> (long) MAX_DAYINMONTH(r
->year
, r
->mon
)) {
3854 tempdays
= tempdays
- MAX_DAYINMONTH(r
->year
, r
->mon
);
3859 temp
= r
->mon
+ carry
;
3860 r
->mon
= (unsigned int) MODULO_RANGE(temp
, 1, 13);
3861 r
->year
= r
->year
+ (unsigned int) FQUOTIENT_RANGE(temp
, 1, 13);
3873 * adjust the date/time type to the date values
3875 if (ret
->type
!= XML_SCHEMAS_DATETIME
) {
3876 if ((r
->hour
) || (r
->min
) || (r
->sec
))
3877 ret
->type
= XML_SCHEMAS_DATETIME
;
3878 else if (ret
->type
!= XML_SCHEMAS_DATE
) {
3879 if ((r
->mon
!= 1) && (r
->day
!= 1))
3880 ret
->type
= XML_SCHEMAS_DATE
;
3881 else if ((ret
->type
!= XML_SCHEMAS_GYEARMONTH
) && (r
->mon
!= 1))
3882 ret
->type
= XML_SCHEMAS_GYEARMONTH
;
3886 xmlSchemaFreeValue(tmp
);
3892 * xmlSchemaDateNormalize:
3893 * @dt: an #xmlSchemaValPtr of a date/time type value.
3894 * @offset: number of seconds to adjust @dt by.
3896 * Normalize @dt to GMT time. The @offset parameter is subtracted from
3897 * the return value is a time-zone offset is present on @dt.
3899 * Returns a normalized copy of @dt or NULL if error.
3901 static xmlSchemaValPtr
3902 xmlSchemaDateNormalize (xmlSchemaValPtr dt
, double offset
)
3904 xmlSchemaValPtr dur
, ret
;
3909 if (((dt
->type
!= XML_SCHEMAS_TIME
) &&
3910 (dt
->type
!= XML_SCHEMAS_DATETIME
) &&
3911 (dt
->type
!= XML_SCHEMAS_DATE
)) || (dt
->value
.date
.tzo
== 0))
3912 return xmlSchemaDupVal(dt
);
3914 dur
= xmlSchemaNewValue(XML_SCHEMAS_DURATION
);
3918 dur
->value
.date
.sec
-= offset
;
3920 ret
= _xmlSchemaDateAdd(dt
, dur
);
3924 xmlSchemaFreeValue(dur
);
3926 /* ret->value.date.tzo = 0; */
3931 * _xmlSchemaDateCastYMToDays:
3932 * @dt: an #xmlSchemaValPtr
3934 * Convert mon and year of @dt to total number of days. Take the
3935 * number of years since (or before) 1 AD and add the number of leap
3936 * years. This is a function because negative
3937 * years must be handled a little differently and there is no zero year.
3939 * Returns number of days.
3942 _xmlSchemaDateCastYMToDays (const xmlSchemaValPtr dt
)
3947 mon
= dt
->value
.date
.mon
;
3948 if (mon
<= 0) mon
= 1; /* normalization */
3950 if (dt
->value
.date
.year
<= 0)
3951 ret
= (dt
->value
.date
.year
* 365) +
3952 (((dt
->value
.date
.year
+1)/4)-((dt
->value
.date
.year
+1)/100)+
3953 ((dt
->value
.date
.year
+1)/400)) +
3954 DAY_IN_YEAR(0, mon
, dt
->value
.date
.year
);
3956 ret
= ((dt
->value
.date
.year
-1) * 365) +
3957 (((dt
->value
.date
.year
-1)/4)-((dt
->value
.date
.year
-1)/100)+
3958 ((dt
->value
.date
.year
-1)/400)) +
3959 DAY_IN_YEAR(0, mon
, dt
->value
.date
.year
);
3966 * @dt: an #xmlSchemaValPtr
3968 * Calculates the number of seconds in the time portion of @dt.
3972 #define TIME_TO_NUMBER(dt) \
3973 ((double)((dt->value.date.hour * SECS_PER_HOUR) + \
3974 (dt->value.date.min * SECS_PER_MIN) + \
3975 (dt->value.date.tzo * SECS_PER_MIN)) + \
3979 * xmlSchemaCompareDates:
3980 * @x: a first date/time value
3981 * @y: a second date/time value
3983 * Compare 2 date/times
3985 * Returns -1 if x < y, 0 if x == y, 1 if x > y, 2 if x <> y, and -2 in
3989 xmlSchemaCompareDates (xmlSchemaValPtr x
, xmlSchemaValPtr y
)
3991 unsigned char xmask
, ymask
, xor_mask
, and_mask
;
3992 xmlSchemaValPtr p1
, p2
, q1
, q2
;
3993 long p1d
, p2d
, q1d
, q2d
;
3995 if ((x
== NULL
) || (y
== NULL
))
3998 if (x
->value
.date
.tz_flag
) {
4000 if (!y
->value
.date
.tz_flag
) {
4001 p1
= xmlSchemaDateNormalize(x
, 0);
4002 p1d
= _xmlSchemaDateCastYMToDays(p1
) + p1
->value
.date
.day
;
4003 /* normalize y + 14:00 */
4004 q1
= xmlSchemaDateNormalize(y
, (14 * SECS_PER_HOUR
));
4006 q1d
= _xmlSchemaDateCastYMToDays(q1
) + q1
->value
.date
.day
;
4008 xmlSchemaFreeValue(p1
);
4009 xmlSchemaFreeValue(q1
);
4011 } else if (p1d
== q1d
) {
4014 sec
= TIME_TO_NUMBER(p1
) - TIME_TO_NUMBER(q1
);
4016 xmlSchemaFreeValue(p1
);
4017 xmlSchemaFreeValue(q1
);
4021 /* normalize y - 14:00 */
4022 q2
= xmlSchemaDateNormalize(y
, -(14 * SECS_PER_HOUR
));
4023 q2d
= _xmlSchemaDateCastYMToDays(q2
) + q2
->value
.date
.day
;
4026 else if (p1d
== q2d
) {
4027 sec
= TIME_TO_NUMBER(p1
) - TIME_TO_NUMBER(q2
);
4031 ret
= 2; /* indeterminate */
4033 xmlSchemaFreeValue(p1
);
4034 xmlSchemaFreeValue(q1
);
4035 xmlSchemaFreeValue(q2
);
4040 xmlSchemaFreeValue(p1
);
4041 xmlSchemaFreeValue(q1
);
4044 } else if (y
->value
.date
.tz_flag
) {
4045 q1
= xmlSchemaDateNormalize(y
, 0);
4046 q1d
= _xmlSchemaDateCastYMToDays(q1
) + q1
->value
.date
.day
;
4048 /* normalize x - 14:00 */
4049 p1
= xmlSchemaDateNormalize(x
, -(14 * SECS_PER_HOUR
));
4050 p1d
= _xmlSchemaDateCastYMToDays(p1
) + p1
->value
.date
.day
;
4053 xmlSchemaFreeValue(p1
);
4054 xmlSchemaFreeValue(q1
);
4056 } else if (p1d
== q1d
) {
4059 sec
= TIME_TO_NUMBER(p1
) - TIME_TO_NUMBER(q1
);
4061 xmlSchemaFreeValue(p1
);
4062 xmlSchemaFreeValue(q1
);
4066 /* normalize x + 14:00 */
4067 p2
= xmlSchemaDateNormalize(x
, (14 * SECS_PER_HOUR
));
4068 p2d
= _xmlSchemaDateCastYMToDays(p2
) + p2
->value
.date
.day
;
4072 } else if (p2d
== q1d
) {
4073 sec
= TIME_TO_NUMBER(p2
) - TIME_TO_NUMBER(q1
);
4077 ret
= 2; /* indeterminate */
4079 xmlSchemaFreeValue(p1
);
4080 xmlSchemaFreeValue(q1
);
4081 xmlSchemaFreeValue(p2
);
4086 xmlSchemaFreeValue(p1
);
4087 xmlSchemaFreeValue(q1
);
4092 * if the same type then calculate the difference
4094 if (x
->type
== y
->type
) {
4096 q1
= xmlSchemaDateNormalize(y
, 0);
4097 q1d
= _xmlSchemaDateCastYMToDays(q1
) + q1
->value
.date
.day
;
4099 p1
= xmlSchemaDateNormalize(x
, 0);
4100 p1d
= _xmlSchemaDateCastYMToDays(p1
) + p1
->value
.date
.day
;
4104 } else if (p1d
> q1d
) {
4109 sec
= TIME_TO_NUMBER(p1
) - TIME_TO_NUMBER(q1
);
4116 xmlSchemaFreeValue(p1
);
4117 xmlSchemaFreeValue(q1
);
4122 case XML_SCHEMAS_DATETIME
:
4125 case XML_SCHEMAS_DATE
:
4128 case XML_SCHEMAS_GYEAR
:
4131 case XML_SCHEMAS_GMONTH
:
4134 case XML_SCHEMAS_GDAY
:
4137 case XML_SCHEMAS_GYEARMONTH
:
4140 case XML_SCHEMAS_GMONTHDAY
:
4143 case XML_SCHEMAS_TIME
:
4152 case XML_SCHEMAS_DATETIME
:
4155 case XML_SCHEMAS_DATE
:
4158 case XML_SCHEMAS_GYEAR
:
4161 case XML_SCHEMAS_GMONTH
:
4164 case XML_SCHEMAS_GDAY
:
4167 case XML_SCHEMAS_GYEARMONTH
:
4170 case XML_SCHEMAS_GMONTHDAY
:
4173 case XML_SCHEMAS_TIME
:
4181 xor_mask
= xmask
^ ymask
; /* mark type differences */
4182 and_mask
= xmask
& ymask
; /* mark field specification */
4186 return 2; /* indeterminate */
4187 else if (and_mask
& 1) {
4188 if (x
->value
.date
.year
< y
->value
.date
.year
)
4190 else if (x
->value
.date
.year
> y
->value
.date
.year
)
4196 return 2; /* indeterminate */
4197 else if (and_mask
& 2) {
4198 if (x
->value
.date
.mon
< y
->value
.date
.mon
)
4200 else if (x
->value
.date
.mon
> y
->value
.date
.mon
)
4206 return 2; /* indeterminate */
4207 else if (and_mask
& 4) {
4208 if (x
->value
.date
.day
< y
->value
.date
.day
)
4210 else if (x
->value
.date
.day
> y
->value
.date
.day
)
4216 return 2; /* indeterminate */
4217 else if (and_mask
& 8) {
4218 if (x
->value
.date
.hour
< y
->value
.date
.hour
)
4220 else if (x
->value
.date
.hour
> y
->value
.date
.hour
)
4222 else if (x
->value
.date
.min
< y
->value
.date
.min
)
4224 else if (x
->value
.date
.min
> y
->value
.date
.min
)
4226 else if (x
->value
.date
.sec
< y
->value
.date
.sec
)
4228 else if (x
->value
.date
.sec
> y
->value
.date
.sec
)
4236 * xmlSchemaComparePreserveReplaceStrings:
4237 * @x: a first string value
4238 * @y: a second string value
4239 * @invert: inverts the result if x < y or x > y.
4241 * Compare 2 string for their normalized values.
4242 * @x is a string with whitespace of "preserve", @y is
4243 * a string with a whitespace of "replace". I.e. @x could
4244 * be an "xsd:string" and @y an "xsd:normalizedString".
4246 * Returns -1 if x < y, 0 if x == y, 1 if x > y, and -2 in
4250 xmlSchemaComparePreserveReplaceStrings(const xmlChar
*x
,
4256 while ((*x
!= 0) && (*y
!= 0)) {
4257 if (IS_WSP_REPLACE_CH(*y
)) {
4258 if (! IS_WSP_SPACE_CH(*x
)) {
4259 if ((*x
- 0x20) < 0) {
4305 * xmlSchemaComparePreserveCollapseStrings:
4306 * @x: a first string value
4307 * @y: a second string value
4309 * Compare 2 string for their normalized values.
4310 * @x is a string with whitespace of "preserve", @y is
4311 * a string with a whitespace of "collapse". I.e. @x could
4312 * be an "xsd:string" and @y an "xsd:normalizedString".
4314 * Returns -1 if x < y, 0 if x == y, 1 if x > y, and -2 in
4318 xmlSchemaComparePreserveCollapseStrings(const xmlChar
*x
,
4325 * Skip leading blank chars of the collapsed string.
4327 while IS_WSP_BLANK_CH(*y
)
4330 while ((*x
!= 0) && (*y
!= 0)) {
4331 if IS_WSP_BLANK_CH(*y
) {
4332 if (! IS_WSP_SPACE_CH(*x
)) {
4334 * The yv character would have been replaced to 0x20.
4336 if ((*x
- 0x20) < 0) {
4351 * Skip contiguous blank chars of the collapsed string.
4353 while IS_WSP_BLANK_CH(*y
)
4379 * Skip trailing blank chars of the collapsed string.
4381 while IS_WSP_BLANK_CH(*y
)
4394 * xmlSchemaComparePreserveCollapseStrings:
4395 * @x: a first string value
4396 * @y: a second string value
4398 * Compare 2 string for their normalized values.
4399 * @x is a string with whitespace of "preserve", @y is
4400 * a string with a whitespace of "collapse". I.e. @x could
4401 * be an "xsd:string" and @y an "xsd:normalizedString".
4403 * Returns -1 if x < y, 0 if x == y, 1 if x > y, and -2 in
4407 xmlSchemaCompareReplaceCollapseStrings(const xmlChar
*x
,
4414 * Skip leading blank chars of the collapsed string.
4416 while IS_WSP_BLANK_CH(*y
)
4419 while ((*x
!= 0) && (*y
!= 0)) {
4420 if IS_WSP_BLANK_CH(*y
) {
4421 if (! IS_WSP_BLANK_CH(*x
)) {
4423 * The yv character would have been replaced to 0x20.
4425 if ((*x
- 0x20) < 0) {
4440 * Skip contiguous blank chars of the collapsed string.
4442 while IS_WSP_BLANK_CH(*y
)
4445 if IS_WSP_BLANK_CH(*x
) {
4447 * The xv character would have been replaced to 0x20.
4449 if ((0x20 - *y
) < 0) {
4476 * Skip trailing blank chars of the collapsed string.
4478 while IS_WSP_BLANK_CH(*y
)
4492 * xmlSchemaCompareReplacedStrings:
4493 * @x: a first string value
4494 * @y: a second string value
4496 * Compare 2 string for their normalized values.
4498 * Returns -1 if x < y, 0 if x == y, 1 if x > y, and -2 in
4502 xmlSchemaCompareReplacedStrings(const xmlChar
*x
,
4507 while ((*x
!= 0) && (*y
!= 0)) {
4508 if IS_WSP_BLANK_CH(*y
) {
4509 if (! IS_WSP_BLANK_CH(*x
)) {
4510 if ((*x
- 0x20) < 0)
4516 if IS_WSP_BLANK_CH(*x
) {
4517 if ((0x20 - *y
) < 0)
4539 * xmlSchemaCompareNormStrings:
4540 * @x: a first string value
4541 * @y: a second string value
4543 * Compare 2 string for their normalized values.
4545 * Returns -1 if x < y, 0 if x == y, 1 if x > y, and -2 in
4549 xmlSchemaCompareNormStrings(const xmlChar
*x
,
4553 while (IS_BLANK_CH(*x
)) x
++;
4554 while (IS_BLANK_CH(*y
)) y
++;
4555 while ((*x
!= 0) && (*y
!= 0)) {
4556 if (IS_BLANK_CH(*x
)) {
4557 if (!IS_BLANK_CH(*y
)) {
4561 while (IS_BLANK_CH(*x
)) x
++;
4562 while (IS_BLANK_CH(*y
)) y
++;
4572 while (IS_BLANK_CH(*x
)) x
++;
4577 while (IS_BLANK_CH(*y
)) y
++;
4585 * xmlSchemaCompareFloats:
4586 * @x: a first float or double value
4587 * @y: a second float or double value
4591 * Returns -1 if x < y, 0 if x == y, 1 if x > y, 2 if x <> y, and -2 in
4595 xmlSchemaCompareFloats(xmlSchemaValPtr x
, xmlSchemaValPtr y
) {
4598 if ((x
== NULL
) || (y
== NULL
))
4602 * Cast everything to doubles.
4604 if (x
->type
== XML_SCHEMAS_DOUBLE
)
4606 else if (x
->type
== XML_SCHEMAS_FLOAT
)
4611 if (y
->type
== XML_SCHEMAS_DOUBLE
)
4613 else if (y
->type
== XML_SCHEMAS_FLOAT
)
4619 * Check for special cases.
4621 if (xmlXPathIsNaN(d1
)) {
4622 if (xmlXPathIsNaN(d2
))
4626 if (xmlXPathIsNaN(d2
))
4628 if (d1
== xmlXPathPINF
) {
4629 if (d2
== xmlXPathPINF
)
4633 if (d2
== xmlXPathPINF
)
4635 if (d1
== xmlXPathNINF
) {
4636 if (d2
== xmlXPathNINF
)
4640 if (d2
== xmlXPathNINF
)
4644 * basic tests, the last one we should have equality, but
4645 * portability is more important than speed and handling
4646 * NaN or Inf in a portable way is always a challenge, so ...
4658 * xmlSchemaCompareValues:
4660 * @xvalue: the first value as a string (optional)
4661 * @xwtsp: the whitespace type
4662 * @y: a second value
4663 * @xvalue: the second value as a string (optional)
4664 * @ywtsp: the whitespace type
4668 * Returns -1 if x < y, 0 if x == y, 1 if x > y, 2 if x <> y, 3 if not
4669 * comparable and -2 in case of error
4672 xmlSchemaCompareValuesInternal(xmlSchemaValType xtype
,
4674 const xmlChar
*xvalue
,
4675 xmlSchemaWhitespaceValueType xws
,
4676 xmlSchemaValType ytype
,
4678 const xmlChar
*yvalue
,
4679 xmlSchemaWhitespaceValueType yws
)
4682 case XML_SCHEMAS_UNKNOWN
:
4683 case XML_SCHEMAS_ANYTYPE
:
4685 case XML_SCHEMAS_INTEGER
:
4686 case XML_SCHEMAS_NPINTEGER
:
4687 case XML_SCHEMAS_NINTEGER
:
4688 case XML_SCHEMAS_NNINTEGER
:
4689 case XML_SCHEMAS_PINTEGER
:
4690 case XML_SCHEMAS_INT
:
4691 case XML_SCHEMAS_UINT
:
4692 case XML_SCHEMAS_LONG
:
4693 case XML_SCHEMAS_ULONG
:
4694 case XML_SCHEMAS_SHORT
:
4695 case XML_SCHEMAS_USHORT
:
4696 case XML_SCHEMAS_BYTE
:
4697 case XML_SCHEMAS_UBYTE
:
4698 case XML_SCHEMAS_DECIMAL
:
4699 if ((x
== NULL
) || (y
== NULL
))
4702 return(xmlSchemaCompareDecimals(x
, y
));
4703 if ((ytype
== XML_SCHEMAS_DECIMAL
) ||
4704 (ytype
== XML_SCHEMAS_INTEGER
) ||
4705 (ytype
== XML_SCHEMAS_NPINTEGER
) ||
4706 (ytype
== XML_SCHEMAS_NINTEGER
) ||
4707 (ytype
== XML_SCHEMAS_NNINTEGER
) ||
4708 (ytype
== XML_SCHEMAS_PINTEGER
) ||
4709 (ytype
== XML_SCHEMAS_INT
) ||
4710 (ytype
== XML_SCHEMAS_UINT
) ||
4711 (ytype
== XML_SCHEMAS_LONG
) ||
4712 (ytype
== XML_SCHEMAS_ULONG
) ||
4713 (ytype
== XML_SCHEMAS_SHORT
) ||
4714 (ytype
== XML_SCHEMAS_USHORT
) ||
4715 (ytype
== XML_SCHEMAS_BYTE
) ||
4716 (ytype
== XML_SCHEMAS_UBYTE
))
4717 return(xmlSchemaCompareDecimals(x
, y
));
4719 case XML_SCHEMAS_DURATION
:
4720 if ((x
== NULL
) || (y
== NULL
))
4722 if (ytype
== XML_SCHEMAS_DURATION
)
4723 return(xmlSchemaCompareDurations(x
, y
));
4725 case XML_SCHEMAS_TIME
:
4726 case XML_SCHEMAS_GDAY
:
4727 case XML_SCHEMAS_GMONTH
:
4728 case XML_SCHEMAS_GMONTHDAY
:
4729 case XML_SCHEMAS_GYEAR
:
4730 case XML_SCHEMAS_GYEARMONTH
:
4731 case XML_SCHEMAS_DATE
:
4732 case XML_SCHEMAS_DATETIME
:
4733 if ((x
== NULL
) || (y
== NULL
))
4735 if ((ytype
== XML_SCHEMAS_DATETIME
) ||
4736 (ytype
== XML_SCHEMAS_TIME
) ||
4737 (ytype
== XML_SCHEMAS_GDAY
) ||
4738 (ytype
== XML_SCHEMAS_GMONTH
) ||
4739 (ytype
== XML_SCHEMAS_GMONTHDAY
) ||
4740 (ytype
== XML_SCHEMAS_GYEAR
) ||
4741 (ytype
== XML_SCHEMAS_DATE
) ||
4742 (ytype
== XML_SCHEMAS_GYEARMONTH
))
4743 return (xmlSchemaCompareDates(x
, y
));
4746 * Note that we will support comparison of string types against
4747 * anySimpleType as well.
4749 case XML_SCHEMAS_ANYSIMPLETYPE
:
4750 case XML_SCHEMAS_STRING
:
4751 case XML_SCHEMAS_NORMSTRING
:
4752 case XML_SCHEMAS_TOKEN
:
4753 case XML_SCHEMAS_LANGUAGE
:
4754 case XML_SCHEMAS_NMTOKEN
:
4755 case XML_SCHEMAS_NAME
:
4756 case XML_SCHEMAS_NCNAME
:
4757 case XML_SCHEMAS_ID
:
4758 case XML_SCHEMAS_IDREF
:
4759 case XML_SCHEMAS_ENTITY
:
4760 case XML_SCHEMAS_ANYURI
:
4762 const xmlChar
*xv
, *yv
;
4773 * TODO: Compare those against QName.
4775 if (ytype
== XML_SCHEMAS_QNAME
) {
4781 if ((ytype
== XML_SCHEMAS_ANYSIMPLETYPE
) ||
4782 (ytype
== XML_SCHEMAS_STRING
) ||
4783 (ytype
== XML_SCHEMAS_NORMSTRING
) ||
4784 (ytype
== XML_SCHEMAS_TOKEN
) ||
4785 (ytype
== XML_SCHEMAS_LANGUAGE
) ||
4786 (ytype
== XML_SCHEMAS_NMTOKEN
) ||
4787 (ytype
== XML_SCHEMAS_NAME
) ||
4788 (ytype
== XML_SCHEMAS_NCNAME
) ||
4789 (ytype
== XML_SCHEMAS_ID
) ||
4790 (ytype
== XML_SCHEMAS_IDREF
) ||
4791 (ytype
== XML_SCHEMAS_ENTITY
) ||
4792 (ytype
== XML_SCHEMAS_ANYURI
)) {
4794 if (xws
== XML_SCHEMA_WHITESPACE_PRESERVE
) {
4796 if (yws
== XML_SCHEMA_WHITESPACE_PRESERVE
) {
4797 /* TODO: What about x < y or x > y. */
4798 if (xmlStrEqual(xv
, yv
))
4802 } else if (yws
== XML_SCHEMA_WHITESPACE_REPLACE
)
4803 return (xmlSchemaComparePreserveReplaceStrings(xv
, yv
, 0));
4804 else if (yws
== XML_SCHEMA_WHITESPACE_COLLAPSE
)
4805 return (xmlSchemaComparePreserveCollapseStrings(xv
, yv
, 0));
4807 } else if (xws
== XML_SCHEMA_WHITESPACE_REPLACE
) {
4809 if (yws
== XML_SCHEMA_WHITESPACE_PRESERVE
)
4810 return (xmlSchemaComparePreserveReplaceStrings(yv
, xv
, 1));
4811 if (yws
== XML_SCHEMA_WHITESPACE_REPLACE
)
4812 return (xmlSchemaCompareReplacedStrings(xv
, yv
));
4813 if (yws
== XML_SCHEMA_WHITESPACE_COLLAPSE
)
4814 return (xmlSchemaCompareReplaceCollapseStrings(xv
, yv
, 0));
4816 } else if (xws
== XML_SCHEMA_WHITESPACE_COLLAPSE
) {
4818 if (yws
== XML_SCHEMA_WHITESPACE_PRESERVE
)
4819 return (xmlSchemaComparePreserveCollapseStrings(yv
, xv
, 1));
4820 if (yws
== XML_SCHEMA_WHITESPACE_REPLACE
)
4821 return (xmlSchemaCompareReplaceCollapseStrings(yv
, xv
, 1));
4822 if (yws
== XML_SCHEMA_WHITESPACE_COLLAPSE
)
4823 return (xmlSchemaCompareNormStrings(xv
, yv
));
4830 case XML_SCHEMAS_QNAME
:
4831 case XML_SCHEMAS_NOTATION
:
4832 if ((x
== NULL
) || (y
== NULL
))
4834 if ((ytype
== XML_SCHEMAS_QNAME
) ||
4835 (ytype
== XML_SCHEMAS_NOTATION
)) {
4836 if ((xmlStrEqual(x
->value
.qname
.name
, y
->value
.qname
.name
)) &&
4837 (xmlStrEqual(x
->value
.qname
.uri
, y
->value
.qname
.uri
)))
4842 case XML_SCHEMAS_FLOAT
:
4843 case XML_SCHEMAS_DOUBLE
:
4844 if ((x
== NULL
) || (y
== NULL
))
4846 if ((ytype
== XML_SCHEMAS_FLOAT
) ||
4847 (ytype
== XML_SCHEMAS_DOUBLE
))
4848 return (xmlSchemaCompareFloats(x
, y
));
4850 case XML_SCHEMAS_BOOLEAN
:
4851 if ((x
== NULL
) || (y
== NULL
))
4853 if (ytype
== XML_SCHEMAS_BOOLEAN
) {
4854 if (x
->value
.b
== y
->value
.b
)
4856 if (x
->value
.b
== 0)
4861 case XML_SCHEMAS_HEXBINARY
:
4862 if ((x
== NULL
) || (y
== NULL
))
4864 if (ytype
== XML_SCHEMAS_HEXBINARY
) {
4865 if (x
->value
.hex
.total
== y
->value
.hex
.total
) {
4866 int ret
= xmlStrcmp(x
->value
.hex
.str
, y
->value
.hex
.str
);
4872 else if (x
->value
.hex
.total
> y
->value
.hex
.total
)
4878 case XML_SCHEMAS_BASE64BINARY
:
4879 if ((x
== NULL
) || (y
== NULL
))
4881 if (ytype
== XML_SCHEMAS_BASE64BINARY
) {
4882 if (x
->value
.base64
.total
== y
->value
.base64
.total
) {
4883 int ret
= xmlStrcmp(x
->value
.base64
.str
,
4884 y
->value
.base64
.str
);
4892 else if (x
->value
.base64
.total
> y
->value
.base64
.total
)
4898 case XML_SCHEMAS_IDREFS
:
4899 case XML_SCHEMAS_ENTITIES
:
4900 case XML_SCHEMAS_NMTOKENS
:
4908 * xmlSchemaCompareValues:
4910 * @y: a second value
4914 * Returns -1 if x < y, 0 if x == y, 1 if x > y, 2 if x <> y, and -2 in
4918 xmlSchemaCompareValues(xmlSchemaValPtr x
, xmlSchemaValPtr y
) {
4919 xmlSchemaWhitespaceValueType xws
, yws
;
4921 if ((x
== NULL
) || (y
== NULL
))
4923 if (x
->type
== XML_SCHEMAS_STRING
)
4924 xws
= XML_SCHEMA_WHITESPACE_PRESERVE
;
4925 else if (x
->type
== XML_SCHEMAS_NORMSTRING
)
4926 xws
= XML_SCHEMA_WHITESPACE_REPLACE
;
4928 xws
= XML_SCHEMA_WHITESPACE_COLLAPSE
;
4930 if (y
->type
== XML_SCHEMAS_STRING
)
4931 yws
= XML_SCHEMA_WHITESPACE_PRESERVE
;
4932 else if (x
->type
== XML_SCHEMAS_NORMSTRING
)
4933 yws
= XML_SCHEMA_WHITESPACE_REPLACE
;
4935 yws
= XML_SCHEMA_WHITESPACE_COLLAPSE
;
4937 return(xmlSchemaCompareValuesInternal(x
->type
, x
, NULL
, xws
, y
->type
,
4942 * xmlSchemaCompareValuesWhtsp:
4944 * @xws: the whitespace value of x
4945 * @y: a second value
4946 * @yws: the whitespace value of y
4950 * Returns -1 if x < y, 0 if x == y, 1 if x > y, 2 if x <> y, and -2 in
4954 xmlSchemaCompareValuesWhtsp(xmlSchemaValPtr x
,
4955 xmlSchemaWhitespaceValueType xws
,
4957 xmlSchemaWhitespaceValueType yws
)
4959 if ((x
== NULL
) || (y
== NULL
))
4961 return(xmlSchemaCompareValuesInternal(x
->type
, x
, NULL
, xws
, y
->type
,
4966 * xmlSchemaCompareValuesWhtspExt:
4968 * @xws: the whitespace value of x
4969 * @y: a second value
4970 * @yws: the whitespace value of y
4974 * Returns -1 if x < y, 0 if x == y, 1 if x > y, 2 if x <> y, and -2 in
4978 xmlSchemaCompareValuesWhtspExt(xmlSchemaValType xtype
,
4980 const xmlChar
*xvalue
,
4981 xmlSchemaWhitespaceValueType xws
,
4982 xmlSchemaValType ytype
,
4984 const xmlChar
*yvalue
,
4985 xmlSchemaWhitespaceValueType yws
)
4987 return(xmlSchemaCompareValuesInternal(xtype
, x
, xvalue
, xws
, ytype
, y
,
4995 * Computes the UTF8 length of the normalized value of the string
4997 * Returns the length or -1 in case of error.
5000 xmlSchemaNormLen(const xmlChar
*value
) {
5007 while (IS_BLANK_CH(*utf
)) utf
++;
5009 if (utf
[0] & 0x80) {
5010 if ((utf
[1] & 0xc0) != 0x80)
5012 if ((utf
[0] & 0xe0) == 0xe0) {
5013 if ((utf
[2] & 0xc0) != 0x80)
5015 if ((utf
[0] & 0xf0) == 0xf0) {
5016 if ((utf
[0] & 0xf8) != 0xf0 || (utf
[3] & 0xc0) != 0x80)
5025 } else if (IS_BLANK_CH(*utf
)) {
5026 while (IS_BLANK_CH(*utf
)) utf
++;
5038 * xmlSchemaGetFacetValueAsULong:
5039 * @facet: an schemas type facet
5041 * Extract the value of a facet
5043 * Returns the value as a long
5046 xmlSchemaGetFacetValueAsULong(xmlSchemaFacetPtr facet
)
5049 * TODO: Check if this is a decimal.
5053 return ((unsigned long) facet
->val
->value
.decimal
.lo
);
5057 * xmlSchemaValidateListSimpleTypeFacet:
5058 * @facet: the facet to check
5059 * @value: the lexical repr of the value to validate
5060 * @actualLen: the number of list items
5061 * @expectedLen: the resulting expected number of list items
5063 * Checks the value of a list simple type against a facet.
5065 * Returns 0 if the value is valid, a positive error code
5066 * number otherwise and -1 in case of an internal error.
5069 xmlSchemaValidateListSimpleTypeFacet(xmlSchemaFacetPtr facet
,
5070 const xmlChar
*value
,
5071 unsigned long actualLen
,
5072 unsigned long *expectedLen
)
5077 * TODO: Check if this will work with large numbers.
5078 * (compare value.decimal.mi and value.decimal.hi as well?).
5080 if (facet
->type
== XML_SCHEMA_FACET_LENGTH
) {
5081 if (actualLen
!= facet
->val
->value
.decimal
.lo
) {
5082 if (expectedLen
!= NULL
)
5083 *expectedLen
= facet
->val
->value
.decimal
.lo
;
5084 return (XML_SCHEMAV_CVC_LENGTH_VALID
);
5086 } else if (facet
->type
== XML_SCHEMA_FACET_MINLENGTH
) {
5087 if (actualLen
< facet
->val
->value
.decimal
.lo
) {
5088 if (expectedLen
!= NULL
)
5089 *expectedLen
= facet
->val
->value
.decimal
.lo
;
5090 return (XML_SCHEMAV_CVC_MINLENGTH_VALID
);
5092 } else if (facet
->type
== XML_SCHEMA_FACET_MAXLENGTH
) {
5093 if (actualLen
> facet
->val
->value
.decimal
.lo
) {
5094 if (expectedLen
!= NULL
)
5095 *expectedLen
= facet
->val
->value
.decimal
.lo
;
5096 return (XML_SCHEMAV_CVC_MAXLENGTH_VALID
);
5100 * NOTE: That we can pass NULL as xmlSchemaValPtr to
5101 * xmlSchemaValidateFacet, since the remaining facet types
5102 * are: XML_SCHEMA_FACET_PATTERN, XML_SCHEMA_FACET_ENUMERATION.
5104 return(xmlSchemaValidateFacet(NULL
, facet
, value
, NULL
));
5109 * xmlSchemaValidateLengthFacet:
5110 * @type: the built-in type
5111 * @facet: the facet to check
5112 * @value: the lexical repr. of the value to be validated
5113 * @val: the precomputed value
5114 * @ws: the whitespace type of the value
5115 * @length: the actual length of the value
5117 * Checka a value against a "length", "minLength" and "maxLength"
5118 * facet; sets @length to the computed length of @value.
5120 * Returns 0 if the value is valid, a positive error code
5121 * otherwise and -1 in case of an internal or API error.
5124 xmlSchemaValidateLengthFacetInternal(xmlSchemaFacetPtr facet
,
5125 xmlSchemaValType valType
,
5126 const xmlChar
*value
,
5127 xmlSchemaValPtr val
,
5128 unsigned long *length
,
5129 xmlSchemaWhitespaceValueType ws
)
5131 unsigned int len
= 0;
5133 if ((length
== NULL
) || (facet
== NULL
))
5136 if ((facet
->type
!= XML_SCHEMA_FACET_LENGTH
) &&
5137 (facet
->type
!= XML_SCHEMA_FACET_MAXLENGTH
) &&
5138 (facet
->type
!= XML_SCHEMA_FACET_MINLENGTH
))
5142 * TODO: length, maxLength and minLength must be of type
5143 * nonNegativeInteger only. Check if decimal is used somehow.
5145 if ((facet
->val
== NULL
) ||
5146 ((facet
->val
->type
!= XML_SCHEMAS_DECIMAL
) &&
5147 (facet
->val
->type
!= XML_SCHEMAS_NNINTEGER
)) ||
5148 (facet
->val
->value
.decimal
.frac
!= 0)) {
5151 if ((val
!= NULL
) && (val
->type
== XML_SCHEMAS_HEXBINARY
))
5152 len
= val
->value
.hex
.total
;
5153 else if ((val
!= NULL
) && (val
->type
== XML_SCHEMAS_BASE64BINARY
))
5154 len
= val
->value
.base64
.total
;
5157 case XML_SCHEMAS_STRING
:
5158 case XML_SCHEMAS_NORMSTRING
:
5159 if (ws
== XML_SCHEMA_WHITESPACE_UNKNOWN
) {
5161 * This is to ensure API compatibility with the old
5162 * xmlSchemaValidateLengthFacet(). Anyway, this was and
5163 * is not the correct handling.
5164 * TODO: Get rid of this case somehow.
5166 if (valType
== XML_SCHEMAS_STRING
)
5167 len
= xmlUTF8Strlen(value
);
5169 len
= xmlSchemaNormLen(value
);
5170 } else if (value
!= NULL
) {
5171 if (ws
== XML_SCHEMA_WHITESPACE_COLLAPSE
)
5172 len
= xmlSchemaNormLen(value
);
5175 * Should be OK for "preserve" as well.
5177 len
= xmlUTF8Strlen(value
);
5180 case XML_SCHEMAS_IDREF
:
5181 case XML_SCHEMAS_TOKEN
:
5182 case XML_SCHEMAS_LANGUAGE
:
5183 case XML_SCHEMAS_NMTOKEN
:
5184 case XML_SCHEMAS_NAME
:
5185 case XML_SCHEMAS_NCNAME
:
5186 case XML_SCHEMAS_ID
:
5188 * FIXME: What exactly to do with anyURI?
5190 case XML_SCHEMAS_ANYURI
:
5192 len
= xmlSchemaNormLen(value
);
5194 case XML_SCHEMAS_QNAME
:
5195 case XML_SCHEMAS_NOTATION
:
5197 * For QName and NOTATION, those facets are
5198 * deprecated and should be ignored.
5205 *length
= (unsigned long) len
;
5207 * TODO: Return the whole expected value, i.e. "lo", "mi" and "hi".
5209 if (facet
->type
== XML_SCHEMA_FACET_LENGTH
) {
5210 if (len
!= facet
->val
->value
.decimal
.lo
)
5211 return(XML_SCHEMAV_CVC_LENGTH_VALID
);
5212 } else if (facet
->type
== XML_SCHEMA_FACET_MINLENGTH
) {
5213 if (len
< facet
->val
->value
.decimal
.lo
)
5214 return(XML_SCHEMAV_CVC_MINLENGTH_VALID
);
5216 if (len
> facet
->val
->value
.decimal
.lo
)
5217 return(XML_SCHEMAV_CVC_MAXLENGTH_VALID
);
5224 * xmlSchemaValidateLengthFacet:
5225 * @type: the built-in type
5226 * @facet: the facet to check
5227 * @value: the lexical repr. of the value to be validated
5228 * @val: the precomputed value
5229 * @length: the actual length of the value
5231 * Checka a value against a "length", "minLength" and "maxLength"
5232 * facet; sets @length to the computed length of @value.
5234 * Returns 0 if the value is valid, a positive error code
5235 * otherwise and -1 in case of an internal or API error.
5238 xmlSchemaValidateLengthFacet(xmlSchemaTypePtr type
,
5239 xmlSchemaFacetPtr facet
,
5240 const xmlChar
*value
,
5241 xmlSchemaValPtr val
,
5242 unsigned long *length
)
5246 return (xmlSchemaValidateLengthFacetInternal(facet
,
5247 type
->builtInType
, value
, val
, length
,
5248 XML_SCHEMA_WHITESPACE_UNKNOWN
));
5252 * xmlSchemaValidateLengthFacetWhtsp:
5253 * @facet: the facet to check
5254 * @valType: the built-in type
5255 * @value: the lexical repr. of the value to be validated
5256 * @val: the precomputed value
5257 * @ws: the whitespace type of the value
5258 * @length: the actual length of the value
5260 * Checka a value against a "length", "minLength" and "maxLength"
5261 * facet; sets @length to the computed length of @value.
5263 * Returns 0 if the value is valid, a positive error code
5264 * otherwise and -1 in case of an internal or API error.
5267 xmlSchemaValidateLengthFacetWhtsp(xmlSchemaFacetPtr facet
,
5268 xmlSchemaValType valType
,
5269 const xmlChar
*value
,
5270 xmlSchemaValPtr val
,
5271 unsigned long *length
,
5272 xmlSchemaWhitespaceValueType ws
)
5274 return (xmlSchemaValidateLengthFacetInternal(facet
, valType
, value
, val
,
5279 * xmlSchemaValidateFacetInternal:
5280 * @facet: the facet to check
5281 * @fws: the whitespace type of the facet's value
5282 * @valType: the built-in type of the value
5283 * @value: the lexical repr of the value to validate
5284 * @val: the precomputed value
5285 * @ws: the whitespace type of the value
5287 * Check a value against a facet condition
5289 * Returns 0 if the element is schemas valid, a positive error code
5290 * number otherwise and -1 in case of internal or API error.
5293 xmlSchemaValidateFacetInternal(xmlSchemaFacetPtr facet
,
5294 xmlSchemaWhitespaceValueType fws
,
5295 xmlSchemaValType valType
,
5296 const xmlChar
*value
,
5297 xmlSchemaValPtr val
,
5298 xmlSchemaWhitespaceValueType ws
)
5305 switch (facet
->type
) {
5306 case XML_SCHEMA_FACET_PATTERN
:
5308 * NOTE that for patterns, the @value needs to be the normalized
5309 * value, *not* the lexical initial value or the canonical value.
5313 ret
= xmlRegexpExec(facet
->regexp
, value
);
5317 return(XML_SCHEMAV_CVC_PATTERN_VALID
);
5319 case XML_SCHEMA_FACET_MAXEXCLUSIVE
:
5320 ret
= xmlSchemaCompareValues(val
, facet
->val
);
5325 return(XML_SCHEMAV_CVC_MAXEXCLUSIVE_VALID
);
5326 case XML_SCHEMA_FACET_MAXINCLUSIVE
:
5327 ret
= xmlSchemaCompareValues(val
, facet
->val
);
5330 if ((ret
== -1) || (ret
== 0))
5332 return(XML_SCHEMAV_CVC_MAXINCLUSIVE_VALID
);
5333 case XML_SCHEMA_FACET_MINEXCLUSIVE
:
5334 ret
= xmlSchemaCompareValues(val
, facet
->val
);
5339 return(XML_SCHEMAV_CVC_MINEXCLUSIVE_VALID
);
5340 case XML_SCHEMA_FACET_MININCLUSIVE
:
5341 ret
= xmlSchemaCompareValues(val
, facet
->val
);
5344 if ((ret
== 1) || (ret
== 0))
5346 return(XML_SCHEMAV_CVC_MININCLUSIVE_VALID
);
5347 case XML_SCHEMA_FACET_WHITESPACE
:
5348 /* TODO whitespaces */
5350 * NOTE: Whitespace should be handled to normalize
5351 * the value to be validated against a the facets;
5352 * not to normalize the value in-between.
5355 case XML_SCHEMA_FACET_ENUMERATION
:
5356 if (ws
== XML_SCHEMA_WHITESPACE_UNKNOWN
) {
5358 * This is to ensure API compatibility with the old
5359 * xmlSchemaValidateFacet().
5360 * TODO: Get rid of this case.
5362 if ((facet
->value
!= NULL
) &&
5363 (xmlStrEqual(facet
->value
, value
)))
5366 ret
= xmlSchemaCompareValuesWhtspExt(facet
->val
->type
,
5367 facet
->val
, facet
->value
, fws
, valType
, val
,
5374 return(XML_SCHEMAV_CVC_ENUMERATION_VALID
);
5375 case XML_SCHEMA_FACET_LENGTH
:
5377 * SPEC (1.3) "if {primitive type definition} is QName or NOTATION,
5378 * then any {value} is facet-valid."
5380 if ((valType
== XML_SCHEMAS_QNAME
) ||
5381 (valType
== XML_SCHEMAS_NOTATION
))
5383 /* No break on purpose. */
5384 case XML_SCHEMA_FACET_MAXLENGTH
:
5385 case XML_SCHEMA_FACET_MINLENGTH
: {
5386 unsigned int len
= 0;
5388 if ((valType
== XML_SCHEMAS_QNAME
) ||
5389 (valType
== XML_SCHEMAS_NOTATION
))
5392 * TODO: length, maxLength and minLength must be of type
5393 * nonNegativeInteger only. Check if decimal is used somehow.
5395 if ((facet
->val
== NULL
) ||
5396 ((facet
->val
->type
!= XML_SCHEMAS_DECIMAL
) &&
5397 (facet
->val
->type
!= XML_SCHEMAS_NNINTEGER
)) ||
5398 (facet
->val
->value
.decimal
.frac
!= 0)) {
5401 if ((val
!= NULL
) && (val
->type
== XML_SCHEMAS_HEXBINARY
))
5402 len
= val
->value
.hex
.total
;
5403 else if ((val
!= NULL
) && (val
->type
== XML_SCHEMAS_BASE64BINARY
))
5404 len
= val
->value
.base64
.total
;
5407 case XML_SCHEMAS_STRING
:
5408 case XML_SCHEMAS_NORMSTRING
:
5409 if (ws
== XML_SCHEMA_WHITESPACE_UNKNOWN
) {
5411 * This is to ensure API compatibility with the old
5412 * xmlSchemaValidateFacet(). Anyway, this was and
5413 * is not the correct handling.
5414 * TODO: Get rid of this case somehow.
5416 if (valType
== XML_SCHEMAS_STRING
)
5417 len
= xmlUTF8Strlen(value
);
5419 len
= xmlSchemaNormLen(value
);
5420 } else if (value
!= NULL
) {
5421 if (ws
== XML_SCHEMA_WHITESPACE_COLLAPSE
)
5422 len
= xmlSchemaNormLen(value
);
5425 * Should be OK for "preserve" as well.
5427 len
= xmlUTF8Strlen(value
);
5430 case XML_SCHEMAS_IDREF
:
5431 case XML_SCHEMAS_TOKEN
:
5432 case XML_SCHEMAS_LANGUAGE
:
5433 case XML_SCHEMAS_NMTOKEN
:
5434 case XML_SCHEMAS_NAME
:
5435 case XML_SCHEMAS_NCNAME
:
5436 case XML_SCHEMAS_ID
:
5437 case XML_SCHEMAS_ANYURI
:
5439 len
= xmlSchemaNormLen(value
);
5445 if (facet
->type
== XML_SCHEMA_FACET_LENGTH
) {
5446 if (len
!= facet
->val
->value
.decimal
.lo
)
5447 return(XML_SCHEMAV_CVC_LENGTH_VALID
);
5448 } else if (facet
->type
== XML_SCHEMA_FACET_MINLENGTH
) {
5449 if (len
< facet
->val
->value
.decimal
.lo
)
5450 return(XML_SCHEMAV_CVC_MINLENGTH_VALID
);
5452 if (len
> facet
->val
->value
.decimal
.lo
)
5453 return(XML_SCHEMAV_CVC_MAXLENGTH_VALID
);
5457 case XML_SCHEMA_FACET_TOTALDIGITS
:
5458 case XML_SCHEMA_FACET_FRACTIONDIGITS
:
5460 if ((facet
->val
== NULL
) ||
5461 ((facet
->val
->type
!= XML_SCHEMAS_PINTEGER
) &&
5462 (facet
->val
->type
!= XML_SCHEMAS_NNINTEGER
)) ||
5463 (facet
->val
->value
.decimal
.frac
!= 0)) {
5466 if ((val
== NULL
) ||
5467 ((val
->type
!= XML_SCHEMAS_DECIMAL
) &&
5468 (val
->type
!= XML_SCHEMAS_INTEGER
) &&
5469 (val
->type
!= XML_SCHEMAS_NPINTEGER
) &&
5470 (val
->type
!= XML_SCHEMAS_NINTEGER
) &&
5471 (val
->type
!= XML_SCHEMAS_NNINTEGER
) &&
5472 (val
->type
!= XML_SCHEMAS_PINTEGER
) &&
5473 (val
->type
!= XML_SCHEMAS_INT
) &&
5474 (val
->type
!= XML_SCHEMAS_UINT
) &&
5475 (val
->type
!= XML_SCHEMAS_LONG
) &&
5476 (val
->type
!= XML_SCHEMAS_ULONG
) &&
5477 (val
->type
!= XML_SCHEMAS_SHORT
) &&
5478 (val
->type
!= XML_SCHEMAS_USHORT
) &&
5479 (val
->type
!= XML_SCHEMAS_BYTE
) &&
5480 (val
->type
!= XML_SCHEMAS_UBYTE
))) {
5483 if (facet
->type
== XML_SCHEMA_FACET_TOTALDIGITS
) {
5484 if (val
->value
.decimal
.total
> facet
->val
->value
.decimal
.lo
)
5485 return(XML_SCHEMAV_CVC_TOTALDIGITS_VALID
);
5487 } else if (facet
->type
== XML_SCHEMA_FACET_FRACTIONDIGITS
) {
5488 if (val
->value
.decimal
.frac
> facet
->val
->value
.decimal
.lo
)
5489 return(XML_SCHEMAV_CVC_FRACTIONDIGITS_VALID
);
5500 * xmlSchemaValidateFacet:
5501 * @base: the base type
5502 * @facet: the facet to check
5503 * @value: the lexical repr of the value to validate
5504 * @val: the precomputed value
5506 * Check a value against a facet condition
5508 * Returns 0 if the element is schemas valid, a positive error code
5509 * number otherwise and -1 in case of internal or API error.
5512 xmlSchemaValidateFacet(xmlSchemaTypePtr base
,
5513 xmlSchemaFacetPtr facet
,
5514 const xmlChar
*value
,
5515 xmlSchemaValPtr val
)
5518 * This tries to ensure API compatibility regarding the old
5519 * xmlSchemaValidateFacet() and the new xmlSchemaValidateFacetInternal() and
5520 * xmlSchemaValidateFacetWhtsp().
5523 return(xmlSchemaValidateFacetInternal(facet
,
5524 XML_SCHEMA_WHITESPACE_UNKNOWN
, val
->type
, value
, val
,
5525 XML_SCHEMA_WHITESPACE_UNKNOWN
));
5526 else if (base
!= NULL
)
5527 return(xmlSchemaValidateFacetInternal(facet
,
5528 XML_SCHEMA_WHITESPACE_UNKNOWN
, base
->builtInType
, value
, val
,
5529 XML_SCHEMA_WHITESPACE_UNKNOWN
));
5534 * xmlSchemaValidateFacetWhtsp:
5535 * @facet: the facet to check
5536 * @fws: the whitespace type of the facet's value
5537 * @valType: the built-in type of the value
5538 * @value: the lexical (or normalized for pattern) repr of the value to validate
5539 * @val: the precomputed value
5540 * @ws: the whitespace type of the value
5542 * Check a value against a facet condition. This takes value normalization
5543 * according to the specified whitespace types into account.
5544 * Note that @value needs to be the *normalized* value if the facet
5545 * is of type "pattern".
5547 * Returns 0 if the element is schemas valid, a positive error code
5548 * number otherwise and -1 in case of internal or API error.
5551 xmlSchemaValidateFacetWhtsp(xmlSchemaFacetPtr facet
,
5552 xmlSchemaWhitespaceValueType fws
,
5553 xmlSchemaValType valType
,
5554 const xmlChar
*value
,
5555 xmlSchemaValPtr val
,
5556 xmlSchemaWhitespaceValueType ws
)
5558 return(xmlSchemaValidateFacetInternal(facet
, fws
, valType
,
5567 #define DBL_EPSILON 1E-9
5570 #define INTEGER_DIGITS DBL_DIG
5571 #define FRACTION_DIGITS (DBL_DIG + 1)
5572 #define EXPONENT_DIGITS (3 + 2)
5575 * xmlXPathFormatNumber:
5576 * @number: number to format
5577 * @buffer: output buffer
5578 * @buffersize: size of output buffer
5580 * Convert the number into a string representation.
5583 xmlSchemaFormatFloat(double number
, char buffer
[], int buffersize
)
5585 switch (xmlXPathIsInf(number
)) {
5587 if (buffersize
> (int)sizeof("INF"))
5588 snprintf(buffer
, buffersize
, "INF");
5591 if (buffersize
> (int)sizeof("-INF"))
5592 snprintf(buffer
, buffersize
, "-INF");
5595 if (xmlXPathIsNaN(number
)) {
5596 if (buffersize
> (int)sizeof("NaN"))
5597 snprintf(buffer
, buffersize
, "NaN");
5598 } else if (number
== 0) {
5599 snprintf(buffer
, buffersize
, "0.0E0");
5601 /* 3 is sign, decimal point, and terminating zero */
5602 char work
[DBL_DIG
+ EXPONENT_DIGITS
+ 3];
5603 int integer_place
, fraction_place
;
5605 char *after_fraction
;
5606 double absolute_value
;
5609 absolute_value
= fabs(number
);
5612 * Result is in work, and after_fraction points
5613 * just past the fractional part.
5614 * Use scientific notation
5616 integer_place
= DBL_DIG
+ EXPONENT_DIGITS
+ 1;
5617 fraction_place
= DBL_DIG
- 1;
5618 snprintf(work
, sizeof(work
),"%*.*e",
5619 integer_place
, fraction_place
, number
);
5620 after_fraction
= strchr(work
+ DBL_DIG
, 'e');
5621 /* Remove fractional trailing zeroes */
5622 ptr
= after_fraction
;
5623 while (*(--ptr
) == '0')
5627 while ((*ptr
++ = *after_fraction
++) != 0);
5629 /* Finally copy result back to caller */
5630 size
= strlen(work
) + 1;
5631 if (size
> buffersize
) {
5632 work
[buffersize
- 1] = 0;
5635 memmove(buffer
, work
, size
);
5643 * xmlSchemaGetCanonValue:
5644 * @val: the precomputed value
5645 * @retValue: the returned value
5647 * Get a the cononical lexical representation of the value.
5648 * The caller has to FREE the returned retValue.
5650 * WARNING: Some value types are not supported yet, resulting
5651 * in a @retValue of "???".
5653 * TODO: XML Schema 1.0 does not define canonical representations
5654 * for: duration, gYearMonth, gYear, gMonthDay, gMonth, gDay,
5655 * anyURI, QName, NOTATION. This will be fixed in XML Schema 1.1.
5658 * Returns 0 if the value could be built, 1 if the value type is
5659 * not supported yet and -1 in case of API errors.
5662 xmlSchemaGetCanonValue(xmlSchemaValPtr val
, const xmlChar
**retValue
)
5664 if ((retValue
== NULL
) || (val
== NULL
))
5667 switch (val
->type
) {
5668 case XML_SCHEMAS_STRING
:
5669 if (val
->value
.str
== NULL
)
5670 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST
"");
5673 BAD_CAST
xmlStrdup((const xmlChar
*) val
->value
.str
);
5675 case XML_SCHEMAS_NORMSTRING
:
5676 if (val
->value
.str
== NULL
)
5677 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST
"");
5679 *retValue
= xmlSchemaWhiteSpaceReplace(
5680 (const xmlChar
*) val
->value
.str
);
5681 if ((*retValue
) == NULL
)
5682 *retValue
= BAD_CAST
xmlStrdup(
5683 (const xmlChar
*) val
->value
.str
);
5686 case XML_SCHEMAS_TOKEN
:
5687 case XML_SCHEMAS_LANGUAGE
:
5688 case XML_SCHEMAS_NMTOKEN
:
5689 case XML_SCHEMAS_NAME
:
5690 case XML_SCHEMAS_NCNAME
:
5691 case XML_SCHEMAS_ID
:
5692 case XML_SCHEMAS_IDREF
:
5693 case XML_SCHEMAS_ENTITY
:
5694 case XML_SCHEMAS_NOTATION
: /* Unclear */
5695 case XML_SCHEMAS_ANYURI
: /* Unclear */
5696 if (val
->value
.str
== NULL
)
5699 BAD_CAST
xmlSchemaCollapseString(BAD_CAST val
->value
.str
);
5700 if (*retValue
== NULL
)
5702 BAD_CAST
xmlStrdup((const xmlChar
*) val
->value
.str
);
5704 case XML_SCHEMAS_QNAME
:
5705 /* TODO: Unclear in XML Schema 1.0. */
5706 if (val
->value
.qname
.uri
== NULL
) {
5707 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST val
->value
.qname
.name
);
5710 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST
"{");
5711 *retValue
= BAD_CAST
xmlStrcat((xmlChar
*) (*retValue
),
5712 BAD_CAST val
->value
.qname
.uri
);
5713 *retValue
= BAD_CAST
xmlStrcat((xmlChar
*) (*retValue
),
5715 *retValue
= BAD_CAST
xmlStrcat((xmlChar
*) (*retValue
),
5716 BAD_CAST val
->value
.qname
.uri
);
5719 case XML_SCHEMAS_DECIMAL
:
5721 * TODO: Lookout for a more simple implementation.
5723 if ((val
->value
.decimal
.total
== 1) &&
5724 (val
->value
.decimal
.lo
== 0)) {
5725 *retValue
= xmlStrdup(BAD_CAST
"0.0");
5727 xmlSchemaValDecimal dec
= val
->value
.decimal
;
5729 char *buf
= NULL
, *offs
;
5731 /* Add room for the decimal point as well. */
5732 bufsize
= dec
.total
+ 2;
5735 /* Add room for leading/trailing zero. */
5736 if ((dec
.frac
== 0) || (dec
.frac
== dec
.total
))
5738 buf
= xmlMalloc(bufsize
);
5744 if (dec
.frac
== dec
.total
) {
5749 snprintf(offs
, bufsize
- (offs
- buf
),
5750 "%lu%lu%lu", dec
.hi
, dec
.mi
, dec
.lo
);
5751 else if (dec
.mi
!= 0)
5752 snprintf(offs
, bufsize
- (offs
- buf
),
5753 "%lu%lu", dec
.mi
, dec
.lo
);
5755 snprintf(offs
, bufsize
- (offs
- buf
),
5758 if (dec
.frac
!= 0) {
5759 if (dec
.frac
!= dec
.total
) {
5760 int diff
= dec
.total
- dec
.frac
;
5762 * Insert the decimal point.
5764 memmove(offs
+ diff
+ 1, offs
+ diff
, dec
.frac
+1);
5769 * Insert missing zeroes behind the decimal point.
5771 while (*(offs
+ i
) != 0)
5773 if (i
< dec
.total
) {
5774 memmove(offs
+ (dec
.total
- i
), offs
, i
+1);
5775 memset(offs
, '0', dec
.total
- i
);
5780 * Append decimal point and zero.
5782 offs
= buf
+ bufsize
- 1;
5787 *retValue
= BAD_CAST buf
;
5790 case XML_SCHEMAS_INTEGER
:
5791 case XML_SCHEMAS_PINTEGER
:
5792 case XML_SCHEMAS_NPINTEGER
:
5793 case XML_SCHEMAS_NINTEGER
:
5794 case XML_SCHEMAS_NNINTEGER
:
5795 case XML_SCHEMAS_LONG
:
5796 case XML_SCHEMAS_BYTE
:
5797 case XML_SCHEMAS_SHORT
:
5798 case XML_SCHEMAS_INT
:
5799 case XML_SCHEMAS_UINT
:
5800 case XML_SCHEMAS_ULONG
:
5801 case XML_SCHEMAS_USHORT
:
5802 case XML_SCHEMAS_UBYTE
:
5803 if ((val
->value
.decimal
.total
== 1) &&
5804 (val
->value
.decimal
.lo
== 0))
5805 *retValue
= xmlStrdup(BAD_CAST
"0");
5807 xmlSchemaValDecimal dec
= val
->value
.decimal
;
5808 int bufsize
= dec
.total
+ 1;
5810 /* Add room for the decimal point as well. */
5813 *retValue
= xmlMalloc(bufsize
);
5814 if (*retValue
== NULL
)
5818 snprintf((char *) *retValue
, bufsize
,
5819 "-%lu%lu%lu", dec
.hi
, dec
.mi
, dec
.lo
);
5821 snprintf((char *) *retValue
, bufsize
,
5822 "%lu%lu%lu", dec
.hi
, dec
.mi
, dec
.lo
);
5823 } else if (dec
.mi
!= 0) {
5825 snprintf((char *) *retValue
, bufsize
,
5826 "-%lu%lu", dec
.mi
, dec
.lo
);
5828 snprintf((char *) *retValue
, bufsize
,
5829 "%lu%lu", dec
.mi
, dec
.lo
);
5832 snprintf((char *) *retValue
, bufsize
, "-%lu", dec
.lo
);
5834 snprintf((char *) *retValue
, bufsize
, "%lu", dec
.lo
);
5838 case XML_SCHEMAS_BOOLEAN
:
5840 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST
"true");
5842 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST
"false");
5844 case XML_SCHEMAS_DURATION
: {
5847 unsigned long mon
, day
, hour
= 0, min
= 0;
5848 double sec
= 0, left
;
5850 /* TODO: Unclear in XML Schema 1.0 */
5852 * TODO: This results in a normalized output of the value
5853 * - which is NOT conformant to the spec -
5854 * since the exact values of each property are not
5855 * recoverable. Think about extending the structure to
5856 * provide a field for every property.
5858 year
= (unsigned long) FQUOTIENT(labs(val
->value
.dur
.mon
), 12);
5859 mon
= labs(val
->value
.dur
.mon
) - 12 * year
;
5861 day
= (unsigned long) FQUOTIENT(fabs(val
->value
.dur
.sec
), 86400);
5862 left
= fabs(val
->value
.dur
.sec
) - day
* 86400;
5864 hour
= (unsigned long) FQUOTIENT(left
, 3600);
5865 left
= left
- (hour
* 3600);
5867 min
= (unsigned long) FQUOTIENT(left
, 60);
5868 sec
= left
- (min
* 60);
5871 if ((val
->value
.dur
.mon
< 0) || (val
->value
.dur
.sec
< 0))
5872 snprintf(buf
, 100, "P%luY%luM%luDT%luH%luM%.14gS",
5873 year
, mon
, day
, hour
, min
, sec
);
5875 snprintf(buf
, 100, "-P%luY%luM%luDT%luH%luM%.14gS",
5876 year
, mon
, day
, hour
, min
, sec
);
5877 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST buf
);
5880 case XML_SCHEMAS_GYEAR
: {
5882 /* TODO: Unclear in XML Schema 1.0 */
5883 /* TODO: What to do with the timezone? */
5884 snprintf(buf
, 30, "%04ld", val
->value
.date
.year
);
5885 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST buf
);
5888 case XML_SCHEMAS_GMONTH
: {
5889 /* TODO: Unclear in XML Schema 1.0 */
5890 /* TODO: What to do with the timezone? */
5891 *retValue
= xmlMalloc(6);
5892 if (*retValue
== NULL
)
5894 snprintf((char *) *retValue
, 6, "--%02u",
5895 val
->value
.date
.mon
);
5898 case XML_SCHEMAS_GDAY
: {
5899 /* TODO: Unclear in XML Schema 1.0 */
5900 /* TODO: What to do with the timezone? */
5901 *retValue
= xmlMalloc(6);
5902 if (*retValue
== NULL
)
5904 snprintf((char *) *retValue
, 6, "---%02u",
5905 val
->value
.date
.day
);
5908 case XML_SCHEMAS_GMONTHDAY
: {
5909 /* TODO: Unclear in XML Schema 1.0 */
5910 /* TODO: What to do with the timezone? */
5911 *retValue
= xmlMalloc(8);
5912 if (*retValue
== NULL
)
5914 snprintf((char *) *retValue
, 8, "--%02u-%02u",
5915 val
->value
.date
.mon
, val
->value
.date
.day
);
5918 case XML_SCHEMAS_GYEARMONTH
: {
5920 /* TODO: Unclear in XML Schema 1.0 */
5921 /* TODO: What to do with the timezone? */
5922 if (val
->value
.date
.year
< 0)
5923 snprintf(buf
, 35, "-%04ld-%02u",
5924 labs(val
->value
.date
.year
),
5925 val
->value
.date
.mon
);
5927 snprintf(buf
, 35, "%04ld-%02u",
5928 val
->value
.date
.year
, val
->value
.date
.mon
);
5929 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST buf
);
5932 case XML_SCHEMAS_TIME
:
5936 if (val
->value
.date
.tz_flag
) {
5937 xmlSchemaValPtr norm
;
5939 norm
= xmlSchemaDateNormalize(val
, 0);
5943 * TODO: Check if "%.14g" is portable.
5946 "%02u:%02u:%02.14gZ",
5947 norm
->value
.date
.hour
,
5948 norm
->value
.date
.min
,
5949 norm
->value
.date
.sec
);
5950 xmlSchemaFreeValue(norm
);
5953 "%02u:%02u:%02.14g",
5954 val
->value
.date
.hour
,
5955 val
->value
.date
.min
,
5956 val
->value
.date
.sec
);
5958 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST buf
);
5961 case XML_SCHEMAS_DATE
:
5965 if (val
->value
.date
.tz_flag
) {
5966 xmlSchemaValPtr norm
;
5968 norm
= xmlSchemaDateNormalize(val
, 0);
5972 * TODO: Append the canonical value of the
5973 * recoverable timezone and not "Z".
5977 norm
->value
.date
.year
, norm
->value
.date
.mon
,
5978 norm
->value
.date
.day
);
5979 xmlSchemaFreeValue(norm
);
5983 val
->value
.date
.year
, val
->value
.date
.mon
,
5984 val
->value
.date
.day
);
5986 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST buf
);
5989 case XML_SCHEMAS_DATETIME
:
5993 if (val
->value
.date
.tz_flag
) {
5994 xmlSchemaValPtr norm
;
5996 norm
= xmlSchemaDateNormalize(val
, 0);
6000 * TODO: Check if "%.14g" is portable.
6003 "%04ld:%02u:%02uT%02u:%02u:%02.14gZ",
6004 norm
->value
.date
.year
, norm
->value
.date
.mon
,
6005 norm
->value
.date
.day
, norm
->value
.date
.hour
,
6006 norm
->value
.date
.min
, norm
->value
.date
.sec
);
6007 xmlSchemaFreeValue(norm
);
6010 "%04ld:%02u:%02uT%02u:%02u:%02.14g",
6011 val
->value
.date
.year
, val
->value
.date
.mon
,
6012 val
->value
.date
.day
, val
->value
.date
.hour
,
6013 val
->value
.date
.min
, val
->value
.date
.sec
);
6015 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST buf
);
6018 case XML_SCHEMAS_HEXBINARY
:
6019 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST val
->value
.hex
.str
);
6021 case XML_SCHEMAS_BASE64BINARY
:
6023 * TODO: Is the following spec piece implemented?:
6024 * SPEC: "Note: For some values the canonical form defined
6025 * above does not conform to [RFC 2045], which requires breaking
6026 * with linefeeds at appropriate intervals."
6028 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST val
->value
.base64
.str
);
6030 case XML_SCHEMAS_FLOAT
: {
6033 * |m| < 16777216, -149 <= e <= 104.
6034 * TODO: Handle, NaN, INF, -INF. The format is not
6035 * yet conformant. The c type float does not cover
6038 snprintf(buf
, 30, "%01.14e", val
->value
.f
);
6039 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST buf
);
6042 case XML_SCHEMAS_DOUBLE
: {
6044 /* |m| < 9007199254740992, -1075 <= e <= 970 */
6046 * TODO: Handle, NaN, INF, -INF. The format is not
6047 * yet conformant. The c type float does not cover
6050 snprintf(buf
, 40, "%01.14e", val
->value
.d
);
6051 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST buf
);
6055 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST
"???");
6058 if (*retValue
== NULL
)
6064 * xmlSchemaGetCanonValueWhtsp:
6065 * @val: the precomputed value
6066 * @retValue: the returned value
6067 * @ws: the whitespace type of the value
6069 * Get a the cononical representation of the value.
6070 * The caller has to free the returned @retValue.
6072 * Returns 0 if the value could be built, 1 if the value type is
6073 * not supported yet and -1 in case of API errors.
6076 xmlSchemaGetCanonValueWhtsp(xmlSchemaValPtr val
,
6077 const xmlChar
**retValue
,
6078 xmlSchemaWhitespaceValueType ws
)
6080 if ((retValue
== NULL
) || (val
== NULL
))
6082 if ((ws
== XML_SCHEMA_WHITESPACE_UNKNOWN
) ||
6083 (ws
> XML_SCHEMA_WHITESPACE_COLLAPSE
))
6087 switch (val
->type
) {
6088 case XML_SCHEMAS_STRING
:
6089 if (val
->value
.str
== NULL
)
6090 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST
"");
6091 else if (ws
== XML_SCHEMA_WHITESPACE_COLLAPSE
)
6092 *retValue
= xmlSchemaCollapseString(val
->value
.str
);
6093 else if (ws
== XML_SCHEMA_WHITESPACE_REPLACE
)
6094 *retValue
= xmlSchemaWhiteSpaceReplace(val
->value
.str
);
6095 if ((*retValue
) == NULL
)
6096 *retValue
= BAD_CAST
xmlStrdup(val
->value
.str
);
6098 case XML_SCHEMAS_NORMSTRING
:
6099 if (val
->value
.str
== NULL
)
6100 *retValue
= BAD_CAST
xmlStrdup(BAD_CAST
"");
6102 if (ws
== XML_SCHEMA_WHITESPACE_COLLAPSE
)
6103 *retValue
= xmlSchemaCollapseString(val
->value
.str
);
6105 *retValue
= xmlSchemaWhiteSpaceReplace(val
->value
.str
);
6106 if ((*retValue
) == NULL
)
6107 *retValue
= BAD_CAST
xmlStrdup(val
->value
.str
);
6111 return (xmlSchemaGetCanonValue(val
, retValue
));
6117 * xmlSchemaGetValType:
6118 * @val: a schemas value
6120 * Accessor for the type of a value
6122 * Returns the xmlSchemaValType of the value
6125 xmlSchemaGetValType(xmlSchemaValPtr val
)
6128 return(XML_SCHEMAS_UNKNOWN
);
6132 #define bottom_xmlschemastypes
6133 #include "elfgcchack.h"
6134 #endif /* LIBXML_SCHEMAS_ENABLED */