1 /*
2 +----------------------------------------------------------------------+
3 | PHP Version 5 |
4 +----------------------------------------------------------------------+
5 | Copyright (c) 1997-2014 The PHP Group |
6 +----------------------------------------------------------------------+
7 | This source file is subject to version 3.01 of the PHP license, |
8 | that is bundled with this package in the file LICENSE, and is |
9 | available through the world-wide-web at the following url: |
10 | http://www.php.net/license/3_01.txt |
11 | If you did not receive a copy of the PHP license and are unable to |
12 | obtain it through the world-wide-web, please send a note to |
13 | license@php.net so we can mail you a copy immediately. |
14 +----------------------------------------------------------------------+
15 | Authors: Brad Lafountain <rodif_bl@yahoo.com> |
16 | Shane Caraveo <shane@caraveo.com> |
17 | Dmitry Stogov <dmitry@zend.com> |
18 +----------------------------------------------------------------------+
19 */
20 /* $Id$ */
21
22 #include "php_soap.h"
23 #include "libxml/uri.h"
24
25 static int schema_simpleType(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr simpleType, sdlTypePtr cur_type);
26 static int schema_complexType(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr compType, sdlTypePtr cur_type);
27 static int schema_list(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr listType, sdlTypePtr cur_type);
28 static int schema_union(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr unionType, sdlTypePtr cur_type);
29 static int schema_simpleContent(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr simpCompType, sdlTypePtr cur_type);
30 static int schema_restriction_simpleContent(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr restType, sdlTypePtr cur_type, int simpleType);
31 static int schema_restriction_complexContent(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr restType, sdlTypePtr cur_type);
32 static int schema_extension_simpleContent(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr extType, sdlTypePtr cur_type);
33 static int schema_extension_complexContent(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr extType, sdlTypePtr cur_type);
34 static int schema_sequence(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr seqType, sdlTypePtr cur_type, sdlContentModelPtr model);
35 static int schema_all(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr extType, sdlTypePtr cur_type, sdlContentModelPtr model);
36 static int schema_choice(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr choiceType, sdlTypePtr cur_type, sdlContentModelPtr model);
37 static int schema_group(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr groupType, sdlTypePtr cur_type, sdlContentModelPtr model);
38 static int schema_any(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr extType, sdlTypePtr cur_type, sdlContentModelPtr model);
39 static int schema_element(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr element, sdlTypePtr cur_type, sdlContentModelPtr model);
40 static int schema_attribute(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr attrType, sdlTypePtr cur_type, sdlCtx *ctx);
41 static int schema_attributeGroup(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr attrType, sdlTypePtr cur_type, sdlCtx *ctx);
42
43 static int schema_restriction_var_int(xmlNodePtr val, sdlRestrictionIntPtr *valptr);
44
45 static int schema_restriction_var_char(xmlNodePtr val, sdlRestrictionCharPtr *valptr);
46
47 static void schema_type_fixup(sdlCtx *ctx, sdlTypePtr type);
48
create_encoder(sdlPtr sdl,sdlTypePtr cur_type,const xmlChar * ns,const xmlChar * type)49 static encodePtr create_encoder(sdlPtr sdl, sdlTypePtr cur_type, const xmlChar *ns, const xmlChar *type)
50 {
51 smart_str nscat = {0};
52 encodePtr enc, *enc_ptr;
53
54 if (sdl->encoders == NULL) {
55 sdl->encoders = emalloc(sizeof(HashTable));
56 zend_hash_init(sdl->encoders, 0, NULL, delete_encoder, 0);
57 }
58 smart_str_appends(&nscat, (char*)ns);
59 smart_str_appendc(&nscat, ':');
60 smart_str_appends(&nscat, (char*)type);
61 smart_str_0(&nscat);
62 if (zend_hash_find(sdl->encoders, nscat.c, nscat.len + 1, (void**)&enc_ptr) == SUCCESS) {
63 enc = *enc_ptr;
64 if (enc->details.ns) {
65 efree(enc->details.ns);
66 }
67 if (enc->details.type_str) {
68 efree(enc->details.type_str);
69 }
70 } else {
71 enc_ptr = NULL;
72 enc = emalloc(sizeof(encode));
73 }
74 memset(enc, 0, sizeof(encode));
75
76 enc->details.ns = estrdup((char*)ns);
77 enc->details.type_str = estrdup((char*)type);
78 enc->details.sdl_type = cur_type;
79 enc->to_xml = sdl_guess_convert_xml;
80 enc->to_zval = sdl_guess_convert_zval;
81
82 if (enc_ptr == NULL) {
83 zend_hash_update(sdl->encoders, nscat.c, nscat.len + 1, &enc, sizeof(encodePtr), NULL);
84 }
85 smart_str_free(&nscat);
86 return enc;
87 }
88
get_create_encoder(sdlPtr sdl,sdlTypePtr cur_type,const xmlChar * ns,const xmlChar * type)89 static encodePtr get_create_encoder(sdlPtr sdl, sdlTypePtr cur_type, const xmlChar *ns, const xmlChar *type)
90 {
91 encodePtr enc = get_encoder(sdl, (char*)ns, (char*)type);
92 if (enc == NULL) {
93 enc = create_encoder(sdl, cur_type, ns, type);
94 }
95 return enc;
96 }
97
schema_load_file(sdlCtx * ctx,xmlAttrPtr ns,xmlChar * location,xmlAttrPtr tns,int import TSRMLS_DC)98 static void schema_load_file(sdlCtx *ctx, xmlAttrPtr ns, xmlChar *location, xmlAttrPtr tns, int import TSRMLS_DC) {
99 if (location != NULL &&
100 !zend_hash_exists(&ctx->docs, (char*)location, xmlStrlen(location)+1)) {
101 xmlDocPtr doc;
102 xmlNodePtr schema;
103 xmlAttrPtr new_tns;
104
105 sdl_set_uri_credentials(ctx, (char*)location TSRMLS_CC);
106 doc = soap_xmlParseFile((char*)location TSRMLS_CC);
107 sdl_restore_uri_credentials(ctx TSRMLS_CC);
108
109 if (doc == NULL) {
110 soap_error1(E_ERROR, "Parsing Schema: can't import schema from '%s'", location);
111 }
112 schema = get_node(doc->children, "schema");
113 if (schema == NULL) {
114 xmlFreeDoc(doc);
115 soap_error1(E_ERROR, "Parsing Schema: can't import schema from '%s'", location);
116 }
117 new_tns = get_attribute(schema->properties, "targetNamespace");
118 if (import) {
119 if (ns != NULL && (new_tns == NULL || xmlStrcmp(ns->children->content, new_tns->children->content) != 0)) {
120 xmlFreeDoc(doc);
121 soap_error2(E_ERROR, "Parsing Schema: can't import schema from '%s', unexpected 'targetNamespace'='%s'", location, ns->children->content);
122 }
123 if (ns == NULL && new_tns != NULL) {
124 xmlFreeDoc(doc);
125 soap_error2(E_ERROR, "Parsing Schema: can't import schema from '%s', unexpected 'targetNamespace'='%s'", location, new_tns->children->content);
126 }
127 } else {
128 new_tns = get_attribute(schema->properties, "targetNamespace");
129 if (new_tns == NULL) {
130 if (tns != NULL) {
131 xmlSetProp(schema, BAD_CAST("targetNamespace"), tns->children->content);
132 }
133 } else if (tns != NULL && xmlStrcmp(tns->children->content, new_tns->children->content) != 0) {
134 xmlFreeDoc(doc);
135 soap_error1(E_ERROR, "Parsing Schema: can't include schema from '%s', different 'targetNamespace'", location);
136 }
137 }
138 zend_hash_add(&ctx->docs, (char*)location, xmlStrlen(location)+1, (void**)&doc, sizeof(xmlDocPtr), NULL);
139 load_schema(ctx, schema TSRMLS_CC);
140 }
141 }
142
143 /*
144 2.6.1 xsi:type
145 2.6.2 xsi:nil
146 2.6.3 xsi:schemaLocation, xsi:noNamespaceSchemaLocation
147 */
148
149 /*
150 <schema
151 attributeFormDefault = (qualified | unqualified) : unqualified
152 blockDefault = (#all | List of (extension | restriction | substitution)) : ''
153 elementFormDefault = (qualified | unqualified) : unqualified
154 finalDefault = (#all | List of (extension | restriction)) : ''
155 id = ID
156 targetNamespace = anyURI
157 version = token
158 xml:lang = language
159 {any attributes with non-schema namespace . . .}>
160 Content: ((include | import | redefine | annotation)*, (((simpleType | complexType | group | attributeGroup) | element | attribute | notation), annotation*)*)
161 </schema>
162 */
load_schema(sdlCtx * ctx,xmlNodePtr schema TSRMLS_DC)163 int load_schema(sdlCtx *ctx, xmlNodePtr schema TSRMLS_DC)
164 {
165 xmlNodePtr trav;
166 xmlAttrPtr tns;
167
168 if (!ctx->sdl->types) {
169 ctx->sdl->types = emalloc(sizeof(HashTable));
170 zend_hash_init(ctx->sdl->types, 0, NULL, delete_type, 0);
171 }
172 if (!ctx->attributes) {
173 ctx->attributes = emalloc(sizeof(HashTable));
174 zend_hash_init(ctx->attributes, 0, NULL, delete_attribute, 0);
175 }
176 if (!ctx->attributeGroups) {
177 ctx->attributeGroups = emalloc(sizeof(HashTable));
178 zend_hash_init(ctx->attributeGroups, 0, NULL, delete_type, 0);
179 }
180
181 tns = get_attribute(schema->properties, "targetNamespace");
182 if (tns == NULL) {
183 tns = xmlSetProp(schema, BAD_CAST("targetNamespace"), BAD_CAST(""));
184 xmlNewNs(schema, BAD_CAST(""), NULL);
185 }
186
187 trav = schema->children;
188 while (trav != NULL) {
189 if (node_is_equal(trav,"include")) {
190 xmlAttrPtr location;
191
192 location = get_attribute(trav->properties, "schemaLocation");
193 if (location == NULL) {
194 soap_error0(E_ERROR, "Parsing Schema: include has no 'schemaLocation' attribute");
195 } else {
196 xmlChar *uri;
197 xmlChar *base = xmlNodeGetBase(trav->doc, trav);
198
199 if (base == NULL) {
200 uri = xmlBuildURI(location->children->content, trav->doc->URL);
201 } else {
202 uri = xmlBuildURI(location->children->content, base);
203 xmlFree(base);
204 }
205 schema_load_file(ctx, NULL, uri, tns, 0 TSRMLS_CC);
206 xmlFree(uri);
207 }
208
209 } else if (node_is_equal(trav,"redefine")) {
210 xmlAttrPtr location;
211
212 location = get_attribute(trav->properties, "schemaLocation");
213 if (location == NULL) {
214 soap_error0(E_ERROR, "Parsing Schema: redefine has no 'schemaLocation' attribute");
215 } else {
216 xmlChar *uri;
217 xmlChar *base = xmlNodeGetBase(trav->doc, trav);
218
219 if (base == NULL) {
220 uri = xmlBuildURI(location->children->content, trav->doc->URL);
221 } else {
222 uri = xmlBuildURI(location->children->content, base);
223 xmlFree(base);
224 }
225 schema_load_file(ctx, NULL, uri, tns, 0 TSRMLS_CC);
226 xmlFree(uri);
227 /* TODO: <redefine> support */
228 }
229
230 } else if (node_is_equal(trav,"import")) {
231 xmlAttrPtr ns, location;
232 xmlChar *uri = NULL;
233
234 ns = get_attribute(trav->properties, "namespace");
235 location = get_attribute(trav->properties, "schemaLocation");
236
237 if (ns != NULL && tns != NULL && xmlStrcmp(ns->children->content, tns->children->content) == 0) {
238 if (location) {
239 soap_error1(E_ERROR, "Parsing Schema: can't import schema from '%s', namespace must not match the enclosing schema 'targetNamespace'", location->children->content);
240 } else {
241 soap_error0(E_ERROR, "Parsing Schema: can't import schema. Namespace must not match the enclosing schema 'targetNamespace'");
242 }
243 }
244 if (location) {
245 xmlChar *base = xmlNodeGetBase(trav->doc, trav);
246
247 if (base == NULL) {
248 uri = xmlBuildURI(location->children->content, trav->doc->URL);
249 } else {
250 uri = xmlBuildURI(location->children->content, base);
251 xmlFree(base);
252 }
253 }
254 schema_load_file(ctx, ns, uri, tns, 1 TSRMLS_CC);
255 if (uri != NULL) {xmlFree(uri);}
256 } else if (node_is_equal(trav,"annotation")) {
257 /* TODO: <annotation> support */
258 /* annotation cleanup
259 xmlNodePtr tmp = trav;
260 trav = trav->next;
261 xmlUnlinkNode(tmp);
262 xmlFreeNode(tmp);
263 continue;
264 */
265 } else {
266 break;
267 }
268 trav = trav->next;
269 }
270
271 while (trav != NULL) {
272 if (node_is_equal(trav,"simpleType")) {
273 schema_simpleType(ctx->sdl, tns, trav, NULL);
274 } else if (node_is_equal(trav,"complexType")) {
275 schema_complexType(ctx->sdl, tns, trav, NULL);
276 } else if (node_is_equal(trav,"group")) {
277 schema_group(ctx->sdl, tns, trav, NULL, NULL);
278 } else if (node_is_equal(trav,"attributeGroup")) {
279 schema_attributeGroup(ctx->sdl, tns, trav, NULL, ctx);
280 } else if (node_is_equal(trav,"element")) {
281 schema_element(ctx->sdl, tns, trav, NULL, NULL);
282 } else if (node_is_equal(trav,"attribute")) {
283 schema_attribute(ctx->sdl, tns, trav, NULL, ctx);
284 } else if (node_is_equal(trav,"notation")) {
285 /* TODO: <notation> support */
286 } else if (node_is_equal(trav,"annotation")) {
287 /* TODO: <annotation> support */
288 } else {
289 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in schema", trav->name);
290 }
291 trav = trav->next;
292 }
293 return TRUE;
294 }
295
296 /*
297 <simpleType
298 final = (#all | (list | union | restriction))
299 id = ID
300 name = NCName
301 {any attributes with non-schema namespace . . .}>
302 Content: (annotation?, (restriction | list | union))
303 </simpleType>
304 */
schema_simpleType(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr simpleType,sdlTypePtr cur_type)305 static int schema_simpleType(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr simpleType, sdlTypePtr cur_type)
306 {
307 xmlNodePtr trav;
308 xmlAttrPtr name, ns;
309
310 ns = get_attribute(simpleType->properties, "targetNamespace");
311 if (ns == NULL) {
312 ns = tns;
313 }
314
315 name = get_attribute(simpleType->properties, "name");
316 if (cur_type != NULL) {
317 /* Anonymous type inside <element> or <restriction> */
318 sdlTypePtr newType, *ptr;
319
320 newType = emalloc(sizeof(sdlType));
321 memset(newType, 0, sizeof(sdlType));
322 newType->kind = XSD_TYPEKIND_SIMPLE;
323 if (name != NULL) {
324 newType->name = estrdup((char*)name->children->content);
325 newType->namens = estrdup((char*)ns->children->content);
326 } else {
327 newType->name = estrdup(cur_type->name);
328 newType->namens = estrdup(cur_type->namens);
329 }
330
331 zend_hash_next_index_insert(sdl->types, &newType, sizeof(sdlTypePtr), (void **)&ptr);
332
333 if (sdl->encoders == NULL) {
334 sdl->encoders = emalloc(sizeof(HashTable));
335 zend_hash_init(sdl->encoders, 0, NULL, delete_encoder, 0);
336 }
337 cur_type->encode = emalloc(sizeof(encode));
338 memset(cur_type->encode, 0, sizeof(encode));
339 cur_type->encode->details.ns = estrdup(newType->namens);
340 cur_type->encode->details.type_str = estrdup(newType->name);
341 cur_type->encode->details.sdl_type = *ptr;
342 cur_type->encode->to_xml = sdl_guess_convert_xml;
343 cur_type->encode->to_zval = sdl_guess_convert_zval;
344 zend_hash_next_index_insert(sdl->encoders, &cur_type->encode, sizeof(encodePtr), NULL);
345
346 cur_type =*ptr;
347
348 } else if (name != NULL) {
349 sdlTypePtr newType, *ptr;
350
351 newType = emalloc(sizeof(sdlType));
352 memset(newType, 0, sizeof(sdlType));
353 newType->kind = XSD_TYPEKIND_SIMPLE;
354 newType->name = estrdup((char*)name->children->content);
355 newType->namens = estrdup((char*)ns->children->content);
356
357 if (cur_type == NULL) {
358 zend_hash_next_index_insert(sdl->types, &newType, sizeof(sdlTypePtr), (void **)&ptr);
359 } else {
360 if (cur_type->elements == NULL) {
361 cur_type->elements = emalloc(sizeof(HashTable));
362 zend_hash_init(cur_type->elements, 0, NULL, delete_type, 0);
363 }
364 zend_hash_update(cur_type->elements, newType->name, strlen(newType->name)+1, &newType, sizeof(sdlTypePtr), (void **)&ptr);
365 }
366 cur_type = (*ptr);
367
368 create_encoder(sdl, cur_type, ns->children->content, name->children->content);
369 } else {
370 soap_error0(E_ERROR, "Parsing Schema: simpleType has no 'name' attribute");
371 }
372
373 trav = simpleType->children;
374 if (trav != NULL && node_is_equal(trav,"annotation")) {
375 /* TODO: <annotation> support */
376 trav = trav->next;
377 }
378 if (trav != NULL) {
379 if (node_is_equal(trav,"restriction")) {
380 schema_restriction_simpleContent(sdl, tns, trav, cur_type, 1);
381 trav = trav->next;
382 } else if (node_is_equal(trav,"list")) {
383 cur_type->kind = XSD_TYPEKIND_LIST;
384 schema_list(sdl, tns, trav, cur_type);
385 trav = trav->next;
386 } else if (node_is_equal(trav,"union")) {
387 cur_type->kind = XSD_TYPEKIND_UNION;
388 schema_union(sdl, tns, trav, cur_type);
389 trav = trav->next;
390 } else {
391 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in simpleType", trav->name);
392 }
393 } else {
394 soap_error0(E_ERROR, "Parsing Schema: expected <restriction>, <list> or <union> in simpleType");
395 }
396 if (trav != NULL) {
397 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in simpleType", trav->name);
398 }
399
400 return TRUE;
401 }
402
403 /*
404 <list
405 id = ID
406 itemType = QName
407 {any attributes with non-schema namespace . . .}>
408 Content: (annotation?, (simpleType?))
409 </list>
410 */
schema_list(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr listType,sdlTypePtr cur_type)411 static int schema_list(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr listType, sdlTypePtr cur_type)
412 {
413 xmlNodePtr trav;
414 xmlAttrPtr itemType;
415
416 itemType = get_attribute(listType->properties, "itemType");
417 if (itemType != NULL) {
418 char *type, *ns;
419 xmlNsPtr nsptr;
420
421 parse_namespace(itemType->children->content, &type, &ns);
422 nsptr = xmlSearchNs(listType->doc, listType, BAD_CAST(ns));
423 if (nsptr != NULL) {
424 sdlTypePtr newType, *tmp;
425
426 newType = emalloc(sizeof(sdlType));
427 memset(newType, 0, sizeof(sdlType));
428
429 newType->name = estrdup(type);
430 newType->namens = estrdup((char*)nsptr->href);
431
432 newType->encode = get_create_encoder(sdl, newType, nsptr->href, BAD_CAST(type));
433
434 if (cur_type->elements == NULL) {
435 cur_type->elements = emalloc(sizeof(HashTable));
436 zend_hash_init(cur_type->elements, 0, NULL, delete_type, 0);
437 }
438 zend_hash_next_index_insert(cur_type->elements, &newType, sizeof(sdlTypePtr), (void **)&tmp);
439 }
440 if (type) {efree(type);}
441 if (ns) {efree(ns);}
442 }
443
444 trav = listType->children;
445 if (trav != NULL && node_is_equal(trav,"annotation")) {
446 /* TODO: <annotation> support */
447 trav = trav->next;
448 }
449 if (trav != NULL && node_is_equal(trav,"simpleType")) {
450 sdlTypePtr newType, *tmp;
451
452 if (itemType != NULL) {
453 soap_error0(E_ERROR, "Parsing Schema: element has both 'itemType' attribute and subtype");
454 }
455
456 newType = emalloc(sizeof(sdlType));
457 memset(newType, 0, sizeof(sdlType));
458
459 {
460 smart_str anonymous = {0};
461
462 smart_str_appendl(&anonymous, "anonymous", sizeof("anonymous")-1);
463 smart_str_append_long(&anonymous, zend_hash_num_elements(sdl->types));
464 smart_str_0(&anonymous);
465 newType->name = anonymous.c;
466 }
467 newType->namens = estrdup((char*)tns->children->content);
468
469 if (cur_type->elements == NULL) {
470 cur_type->elements = emalloc(sizeof(HashTable));
471 zend_hash_init(cur_type->elements, 0, NULL, delete_type, 0);
472 }
473 zend_hash_next_index_insert(cur_type->elements, &newType, sizeof(sdlTypePtr), (void **)&tmp);
474
475 schema_simpleType(sdl, tns, trav, newType);
476
477 trav = trav->next;
478 }
479 if (trav != NULL) {
480 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in list", trav->name);
481 }
482 return TRUE;
483 }
484
485 /*
486 <union
487 id = ID
488 memberTypes = List of QName
489 {any attributes with non-schema namespace . . .}>
490 Content: (annotation?, (simpleType*))
491 </union>
492 */
schema_union(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr unionType,sdlTypePtr cur_type)493 static int schema_union(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr unionType, sdlTypePtr cur_type)
494 {
495 xmlNodePtr trav;
496 xmlAttrPtr memberTypes;
497
498 memberTypes = get_attribute(unionType->properties, "memberTypes");
499 if (memberTypes != NULL) {
500 char *str, *start, *end, *next;
501 char *type, *ns;
502 xmlNsPtr nsptr;
503
504 str = estrdup((char*)memberTypes->children->content);
505 whiteSpace_collapse(BAD_CAST(str));
506 start = str;
507 while (start != NULL && *start != '\0') {
508 end = strchr(start,' ');
509 if (end == NULL) {
510 next = NULL;
511 } else {
512 *end = '\0';
513 next = end+1;
514 }
515
516 parse_namespace(BAD_CAST(start), &type, &ns);
517 nsptr = xmlSearchNs(unionType->doc, unionType, BAD_CAST(ns));
518 if (nsptr != NULL) {
519 sdlTypePtr newType, *tmp;
520
521 newType = emalloc(sizeof(sdlType));
522 memset(newType, 0, sizeof(sdlType));
523
524 newType->name = estrdup(type);
525 newType->namens = estrdup((char*)nsptr->href);
526
527 newType->encode = get_create_encoder(sdl, newType, nsptr->href, BAD_CAST(type));
528
529 if (cur_type->elements == NULL) {
530 cur_type->elements = emalloc(sizeof(HashTable));
531 zend_hash_init(cur_type->elements, 0, NULL, delete_type, 0);
532 }
533 zend_hash_next_index_insert(cur_type->elements, &newType, sizeof(sdlTypePtr), (void **)&tmp);
534 }
535 if (type) {efree(type);}
536 if (ns) {efree(ns);}
537
538 start = next;
539 }
540 efree(str);
541 }
542
543 trav = unionType->children;
544 if (trav != NULL && node_is_equal(trav,"annotation")) {
545 /* TODO: <annotation> support */
546 trav = trav->next;
547 }
548 while (trav != NULL) {
549 if (node_is_equal(trav,"simpleType")) {
550 sdlTypePtr newType, *tmp;
551
552 newType = emalloc(sizeof(sdlType));
553 memset(newType, 0, sizeof(sdlType));
554
555 {
556 smart_str anonymous = {0};
557
558 smart_str_appendl(&anonymous, "anonymous", sizeof("anonymous")-1);
559 smart_str_append_long(&anonymous, zend_hash_num_elements(sdl->types));
560 smart_str_0(&anonymous);
561 newType->name = anonymous.c;
562 }
563 newType->namens = estrdup((char*)tns->children->content);
564
565 if (cur_type->elements == NULL) {
566 cur_type->elements = emalloc(sizeof(HashTable));
567 zend_hash_init(cur_type->elements, 0, NULL, delete_type, 0);
568 }
569 zend_hash_next_index_insert(cur_type->elements, &newType, sizeof(sdlTypePtr), (void **)&tmp);
570
571 schema_simpleType(sdl, tns, trav, newType);
572
573 } else {
574 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in union", trav->name);
575 }
576 trav = trav->next;
577 }
578 if (trav != NULL) {
579 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in union", trav->name);
580 }
581 return TRUE;
582 }
583
584 /*
585 <simpleContent
586 id = ID
587 {any attributes with non-schema namespace . . .}>
588 Content: (annotation?, (restriction | extension))
589 </simpleContent>
590 */
schema_simpleContent(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr simpCompType,sdlTypePtr cur_type)591 static int schema_simpleContent(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr simpCompType, sdlTypePtr cur_type)
592 {
593 xmlNodePtr trav;
594
595 trav = simpCompType->children;
596 if (trav != NULL && node_is_equal(trav,"annotation")) {
597 /* TODO: <annotation> support */
598 trav = trav->next;
599 }
600 if (trav != NULL) {
601 if (node_is_equal(trav, "restriction")) {
602 cur_type->kind = XSD_TYPEKIND_RESTRICTION;
603 schema_restriction_simpleContent(sdl, tns, trav, cur_type, 0);
604 trav = trav->next;
605 } else if (node_is_equal(trav, "extension")) {
606 cur_type->kind = XSD_TYPEKIND_EXTENSION;
607 schema_extension_simpleContent(sdl, tns, trav, cur_type);
608 trav = trav->next;
609 } else {
610 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in simpleContent", trav->name);
611 }
612 } else {
613 soap_error0(E_ERROR, "Parsing Schema: expected <restriction> or <extension> in simpleContent");
614 }
615 if (trav != NULL) {
616 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in simpleContent", trav->name);
617 }
618
619 return TRUE;
620 }
621
622 /*
623 simpleType:<restriction
624 base = QName
625 id = ID
626 {any attributes with non-schema namespace . . .}>
627 Content: (annotation?, (simpleType?, (minExclusive | minInclusive | maxExclusive | maxInclusive | totalDigits | fractionDigits | length | minLength | maxLength | enumeration | whiteSpace | pattern)*)?)
628 </restriction>
629 simpleContent:<restriction
630 base = QName
631 id = ID
632 {any attributes with non-schema namespace . . .}>
633 Content: (annotation?, (simpleType?, (minExclusive | minInclusive | maxExclusive | maxInclusive | totalDigits | fractionDigits | length | minLength | maxLength | enumeration | whiteSpace | pattern)*)?, ((attribute | attributeGroup)*, anyAttribute?))
634 </restriction>
635 */
schema_restriction_simpleContent(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr restType,sdlTypePtr cur_type,int simpleType)636 static int schema_restriction_simpleContent(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr restType, sdlTypePtr cur_type, int simpleType)
637 {
638 xmlNodePtr trav;
639 xmlAttrPtr base;
640
641 base = get_attribute(restType->properties, "base");
642 if (base != NULL) {
643 char *type, *ns;
644 xmlNsPtr nsptr;
645
646 parse_namespace(base->children->content, &type, &ns);
647 nsptr = xmlSearchNs(restType->doc, restType, BAD_CAST(ns));
648 if (nsptr != NULL) {
649 cur_type->encode = get_create_encoder(sdl, cur_type, nsptr->href, BAD_CAST(type));
650 }
651 if (type) {efree(type);}
652 if (ns) {efree(ns);}
653 } else if (!simpleType) {
654 soap_error0(E_ERROR, "Parsing Schema: restriction has no 'base' attribute");
655 }
656
657 if (cur_type->restrictions == NULL) {
658 cur_type->restrictions = emalloc(sizeof(sdlRestrictions));
659 memset(cur_type->restrictions, 0, sizeof(sdlRestrictions));
660 }
661
662 trav = restType->children;
663 if (trav != NULL && node_is_equal(trav, "annotation")) {
664 /* TODO: <annotation> support */
665 trav = trav->next;
666 }
667 if (trav != NULL && node_is_equal(trav, "simpleType")) {
668 schema_simpleType(sdl, tns, trav, cur_type);
669 trav = trav->next;
670 }
671 while (trav != NULL) {
672 if (node_is_equal(trav, "minExclusive")) {
673 schema_restriction_var_int(trav, &cur_type->restrictions->minExclusive);
674 } else if (node_is_equal(trav, "minInclusive")) {
675 schema_restriction_var_int(trav, &cur_type->restrictions->minInclusive);
676 } else if (node_is_equal(trav, "maxExclusive")) {
677 schema_restriction_var_int(trav, &cur_type->restrictions->maxExclusive);
678 } else if (node_is_equal(trav, "maxInclusive")) {
679 schema_restriction_var_int(trav, &cur_type->restrictions->maxInclusive);
680 } else if (node_is_equal(trav, "totalDigits")) {
681 schema_restriction_var_int(trav, &cur_type->restrictions->totalDigits);
682 } else if (node_is_equal(trav, "fractionDigits")) {
683 schema_restriction_var_int(trav, &cur_type->restrictions->fractionDigits);
684 } else if (node_is_equal(trav, "length")) {
685 schema_restriction_var_int(trav, &cur_type->restrictions->length);
686 } else if (node_is_equal(trav, "minLength")) {
687 schema_restriction_var_int(trav, &cur_type->restrictions->minLength);
688 } else if (node_is_equal(trav, "maxLength")) {
689 schema_restriction_var_int(trav, &cur_type->restrictions->maxLength);
690 } else if (node_is_equal(trav, "whiteSpace")) {
691 schema_restriction_var_char(trav, &cur_type->restrictions->whiteSpace);
692 } else if (node_is_equal(trav, "pattern")) {
693 schema_restriction_var_char(trav, &cur_type->restrictions->pattern);
694 } else if (node_is_equal(trav, "enumeration")) {
695 sdlRestrictionCharPtr enumval = NULL;
696
697 schema_restriction_var_char(trav, &enumval);
698 if (cur_type->restrictions->enumeration == NULL) {
699 cur_type->restrictions->enumeration = emalloc(sizeof(HashTable));
700 zend_hash_init(cur_type->restrictions->enumeration, 0, NULL, delete_restriction_var_char, 0);
701 }
702 if (zend_hash_add(cur_type->restrictions->enumeration, enumval->value, strlen(enumval->value)+1, &enumval, sizeof(sdlRestrictionCharPtr), NULL) == FAILURE) {
703 delete_restriction_var_char(&enumval);
704 }
705 } else {
706 break;
707 }
708 trav = trav->next;
709 }
710 if (!simpleType) {
711 while (trav != NULL) {
712 if (node_is_equal(trav,"attribute")) {
713 schema_attribute(sdl, tns, trav, cur_type, NULL);
714 } else if (node_is_equal(trav,"attributeGroup")) {
715 schema_attributeGroup(sdl, tns, trav, cur_type, NULL);
716 } else if (node_is_equal(trav,"anyAttribute")) {
717 /* TODO: <anyAttribute> support */
718 trav = trav->next;
719 break;
720 } else {
721 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in restriction", trav->name);
722 }
723 trav = trav->next;
724 }
725 }
726 if (trav != NULL) {
727 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in restriction", trav->name);
728 }
729
730 return TRUE;
731 }
732
733 /*
734 <restriction
735 base = QName
736 id = ID
737 {any attributes with non-schema namespace . . .}>
738 Content: (annotation?, (group | all | choice | sequence)?, ((attribute | attributeGroup)*, anyAttribute?))
739 </restriction>
740 */
schema_restriction_complexContent(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr restType,sdlTypePtr cur_type)741 static int schema_restriction_complexContent(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr restType, sdlTypePtr cur_type)
742 {
743 xmlAttrPtr base;
744 xmlNodePtr trav;
745
746 base = get_attribute(restType->properties, "base");
747 if (base != NULL) {
748 char *type, *ns;
749 xmlNsPtr nsptr;
750
751 parse_namespace(base->children->content, &type, &ns);
752 nsptr = xmlSearchNs(restType->doc, restType, BAD_CAST(ns));
753 if (nsptr != NULL) {
754 cur_type->encode = get_create_encoder(sdl, cur_type, nsptr->href, BAD_CAST(type));
755 }
756 if (type) {efree(type);}
757 if (ns) {efree(ns);}
758 } else {
759 soap_error0(E_ERROR, "Parsing Schema: restriction has no 'base' attribute");
760 }
761
762 trav = restType->children;
763 if (trav != NULL && node_is_equal(trav,"annotation")) {
764 /* TODO: <annotation> support */
765 trav = trav->next;
766 }
767 if (trav != NULL) {
768 if (node_is_equal(trav,"group")) {
769 schema_group(sdl, tns, trav, cur_type, NULL);
770 trav = trav->next;
771 } else if (node_is_equal(trav,"all")) {
772 schema_all(sdl, tns, trav, cur_type, NULL);
773 trav = trav->next;
774 } else if (node_is_equal(trav,"choice")) {
775 schema_choice(sdl, tns, trav, cur_type, NULL);
776 trav = trav->next;
777 } else if (node_is_equal(trav,"sequence")) {
778 schema_sequence(sdl, tns, trav, cur_type, NULL);
779 trav = trav->next;
780 }
781 }
782 while (trav != NULL) {
783 if (node_is_equal(trav,"attribute")) {
784 schema_attribute(sdl, tns, trav, cur_type, NULL);
785 } else if (node_is_equal(trav,"attributeGroup")) {
786 schema_attributeGroup(sdl, tns, trav, cur_type, NULL);
787 } else if (node_is_equal(trav,"anyAttribute")) {
788 /* TODO: <anyAttribute> support */
789 trav = trav->next;
790 break;
791 } else {
792 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in restriction", trav->name);
793 }
794 trav = trav->next;
795 }
796 if (trav != NULL) {
797 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in restriction", trav->name);
798 }
799
800 return TRUE;
801 }
802
schema_restriction_var_int(xmlNodePtr val,sdlRestrictionIntPtr * valptr)803 static int schema_restriction_var_int(xmlNodePtr val, sdlRestrictionIntPtr *valptr)
804 {
805 xmlAttrPtr fixed, value;
806
807 if ((*valptr) == NULL) {
808 (*valptr) = emalloc(sizeof(sdlRestrictionInt));
809 }
810 memset((*valptr), 0, sizeof(sdlRestrictionInt));
811
812 fixed = get_attribute(val->properties, "fixed");
813 (*valptr)->fixed = FALSE;
814 if (fixed != NULL) {
815 if (!strncmp((char*)fixed->children->content, "true", sizeof("true")) ||
816 !strncmp((char*)fixed->children->content, "1", sizeof("1")))
817 (*valptr)->fixed = TRUE;
818 }
819
820 value = get_attribute(val->properties, "value");
821 if (value == NULL) {
822 soap_error0(E_ERROR, "Parsing Schema: missing restriction value");
823 }
824
825 (*valptr)->value = atoi((char*)value->children->content);
826
827 return TRUE;
828 }
829
schema_restriction_var_char(xmlNodePtr val,sdlRestrictionCharPtr * valptr)830 static int schema_restriction_var_char(xmlNodePtr val, sdlRestrictionCharPtr *valptr)
831 {
832 xmlAttrPtr fixed, value;
833
834 if ((*valptr) == NULL) {
835 (*valptr) = emalloc(sizeof(sdlRestrictionChar));
836 }
837 memset((*valptr), 0, sizeof(sdlRestrictionChar));
838
839 fixed = get_attribute(val->properties, "fixed");
840 (*valptr)->fixed = FALSE;
841 if (fixed != NULL) {
842 if (!strncmp((char*)fixed->children->content, "true", sizeof("true")) ||
843 !strncmp((char*)fixed->children->content, "1", sizeof("1"))) {
844 (*valptr)->fixed = TRUE;
845 }
846 }
847
848 value = get_attribute(val->properties, "value");
849 if (value == NULL) {
850 soap_error0(E_ERROR, "Parsing Schema: missing restriction value");
851 }
852
853 (*valptr)->value = estrdup((char*)value->children->content);
854 return TRUE;
855 }
856
857 /*
858 From simpleContent (not supported):
859 <extension
860 base = QName
861 id = ID
862 {any attributes with non-schema namespace . . .}>
863 Content: (annotation?, ((attribute | attributeGroup)*, anyAttribute?))
864 </extension>
865 */
schema_extension_simpleContent(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr extType,sdlTypePtr cur_type)866 static int schema_extension_simpleContent(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr extType, sdlTypePtr cur_type)
867 {
868 xmlNodePtr trav;
869 xmlAttrPtr base;
870
871 base = get_attribute(extType->properties, "base");
872 if (base != NULL) {
873 char *type, *ns;
874 xmlNsPtr nsptr;
875
876 parse_namespace(base->children->content, &type, &ns);
877 nsptr = xmlSearchNs(extType->doc, extType, BAD_CAST(ns));
878 if (nsptr != NULL) {
879 cur_type->encode = get_create_encoder(sdl, cur_type, nsptr->href, BAD_CAST(type));
880 }
881 if (type) {efree(type);}
882 if (ns) {efree(ns);}
883 } else {
884 soap_error0(E_ERROR, "Parsing Schema: extension has no 'base' attribute");
885 }
886
887 trav = extType->children;
888 if (trav != NULL && node_is_equal(trav,"annotation")) {
889 /* TODO: <annotation> support */
890 trav = trav->next;
891 }
892 while (trav != NULL) {
893 if (node_is_equal(trav,"attribute")) {
894 schema_attribute(sdl, tns, trav, cur_type, NULL);
895 } else if (node_is_equal(trav,"attributeGroup")) {
896 schema_attributeGroup(sdl, tns, trav, cur_type, NULL);
897 } else if (node_is_equal(trav,"anyAttribute")) {
898 /* TODO: <anyAttribute> support */
899 trav = trav->next;
900 break;
901 } else {
902 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in extension", trav->name);
903 }
904 trav = trav->next;
905 }
906 if (trav != NULL) {
907 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in extension", trav->name);
908 }
909 return TRUE;
910 }
911
912 /*
913 From complexContent:
914 <extension
915 base = QName
916 id = ID
917 {any attributes with non-schema namespace . . .}>
918 Content: (annotation?, ((group | all | choice | sequence)?, ((attribute | attributeGroup)*, anyAttribute?)))
919 </extension>
920 */
schema_extension_complexContent(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr extType,sdlTypePtr cur_type)921 static int schema_extension_complexContent(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr extType, sdlTypePtr cur_type)
922 {
923 xmlNodePtr trav;
924 xmlAttrPtr base;
925
926 base = get_attribute(extType->properties, "base");
927 if (base != NULL) {
928 char *type, *ns;
929 xmlNsPtr nsptr;
930
931 parse_namespace(base->children->content, &type, &ns);
932 nsptr = xmlSearchNs(extType->doc, extType, BAD_CAST(ns));
933 if (nsptr != NULL) {
934 cur_type->encode = get_create_encoder(sdl, cur_type, nsptr->href, BAD_CAST(type));
935 }
936 if (type) {efree(type);}
937 if (ns) {efree(ns);}
938 } else {
939 soap_error0(E_ERROR, "Parsing Schema: extension has no 'base' attribute");
940 }
941
942 trav = extType->children;
943 if (trav != NULL && node_is_equal(trav,"annotation")) {
944 /* TODO: <annotation> support */
945 trav = trav->next;
946 }
947 if (trav != NULL) {
948 if (node_is_equal(trav,"group")) {
949 schema_group(sdl, tns, trav, cur_type, NULL);
950 trav = trav->next;
951 } else if (node_is_equal(trav,"all")) {
952 schema_all(sdl, tns, trav, cur_type, NULL);
953 trav = trav->next;
954 } else if (node_is_equal(trav,"choice")) {
955 schema_choice(sdl, tns, trav, cur_type, NULL);
956 trav = trav->next;
957 } else if (node_is_equal(trav,"sequence")) {
958 schema_sequence(sdl, tns, trav, cur_type, NULL);
959 trav = trav->next;
960 }
961 }
962 while (trav != NULL) {
963 if (node_is_equal(trav,"attribute")) {
964 schema_attribute(sdl, tns, trav, cur_type, NULL);
965 } else if (node_is_equal(trav,"attributeGroup")) {
966 schema_attributeGroup(sdl, tns, trav, cur_type, NULL);
967 } else if (node_is_equal(trav,"anyAttribute")) {
968 /* TODO: <anyAttribute> support */
969 trav = trav->next;
970 break;
971 } else {
972 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in extension", trav->name);
973 }
974 trav = trav->next;
975 }
976 if (trav != NULL) {
977 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in extension", trav->name);
978 }
979 return TRUE;
980 }
981
schema_min_max(xmlNodePtr node,sdlContentModelPtr model)982 void schema_min_max(xmlNodePtr node, sdlContentModelPtr model)
983 {
984 xmlAttrPtr attr = get_attribute(node->properties, "minOccurs");
985
986 if (attr) {
987 model->min_occurs = atoi((char*)attr->children->content);
988 } else {
989 model->min_occurs = 1;
990 }
991
992 attr = get_attribute(node->properties, "maxOccurs");
993 if (attr) {
994 if (!strncmp((char*)attr->children->content, "unbounded", sizeof("unbounded"))) {
995 model->max_occurs = -1;
996 } else {
997 model->max_occurs = atoi((char*)attr->children->content);
998 }
999 } else {
1000 model->max_occurs = 1;
1001 }
1002 }
1003
1004 /*
1005 <all
1006 id = ID
1007 maxOccurs = 1 : 1
1008 minOccurs = (0 | 1) : 1
1009 {any attributes with non-schema namespace . . .}>
1010 Content: (annotation?, element*)
1011 </all>
1012 */
schema_all(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr all,sdlTypePtr cur_type,sdlContentModelPtr model)1013 static int schema_all(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr all, sdlTypePtr cur_type, sdlContentModelPtr model)
1014 {
1015 xmlNodePtr trav;
1016 sdlContentModelPtr newModel;
1017
1018 newModel = emalloc(sizeof(sdlContentModel));
1019 newModel->kind = XSD_CONTENT_ALL;
1020 newModel->u.content = emalloc(sizeof(HashTable));
1021 zend_hash_init(newModel->u.content, 0, NULL, delete_model, 0);
1022 if (model == NULL) {
1023 cur_type->model = newModel;
1024 } else {
1025 zend_hash_next_index_insert(model->u.content,&newModel,sizeof(sdlContentModelPtr), NULL);
1026 }
1027
1028 schema_min_max(all, newModel);
1029
1030 trav = all->children;
1031 if (trav != NULL && node_is_equal(trav,"annotation")) {
1032 /* TODO: <annotation> support */
1033 trav = trav->next;
1034 }
1035 while (trav != NULL) {
1036 if (node_is_equal(trav,"element")) {
1037 schema_element(sdl, tns, trav, cur_type, newModel);
1038 } else {
1039 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in all", trav->name);
1040 }
1041 trav = trav->next;
1042 }
1043 return TRUE;
1044 }
1045
1046 /*
1047 <group
1048 name = NCName
1049 Content: (annotation?, (all | choice | sequence))
1050 </group>
1051 <group
1052 name = NCName
1053 ref = QName>
1054 Content: (annotation?)
1055 </group>
1056 */
schema_group(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr groupType,sdlTypePtr cur_type,sdlContentModelPtr model)1057 static int schema_group(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr groupType, sdlTypePtr cur_type, sdlContentModelPtr model)
1058 {
1059 xmlNodePtr trav;
1060 xmlAttrPtr ns, name, ref = NULL;
1061 sdlContentModelPtr newModel;
1062
1063 ns = get_attribute(groupType->properties, "targetNamespace");
1064 if (ns == NULL) {
1065 ns = tns;
1066 }
1067
1068 name = get_attribute(groupType->properties, "name");
1069 if (name == NULL) {
1070 name = ref = get_attribute(groupType->properties, "ref");
1071 }
1072
1073 if (name) {
1074 smart_str key = {0};
1075
1076 if (ref) {
1077 char *type, *ns;
1078 xmlNsPtr nsptr;
1079
1080 parse_namespace(ref->children->content, &type, &ns);
1081 nsptr = xmlSearchNs(groupType->doc, groupType, BAD_CAST(ns));
1082 if (nsptr != NULL) {
1083 smart_str_appends(&key, (char*)nsptr->href);
1084 } else {
1085 xmlAttrPtr ns = get_attribute(groupType->properties, "targetNamespace");
1086 if (ns == NULL) {
1087 ns = tns;
1088 }
1089 if (ns) {
1090 smart_str_appends(&key, (char*)ns->children->content);
1091 }
1092 }
1093 smart_str_appendc(&key, ':');
1094 smart_str_appends(&key, type);
1095 smart_str_0(&key);
1096
1097 newModel = emalloc(sizeof(sdlContentModel));
1098 newModel->kind = XSD_CONTENT_GROUP_REF;
1099 newModel->u.group_ref = estrdup(key.c);
1100
1101 if (type) {efree(type);}
1102 if (ns) {efree(ns);}
1103 } else {
1104 newModel = emalloc(sizeof(sdlContentModel));
1105 newModel->kind = XSD_CONTENT_SEQUENCE; /* will be redefined */
1106 newModel->u.content = emalloc(sizeof(HashTable));
1107 zend_hash_init(newModel->u.content, 0, NULL, delete_model, 0);
1108
1109 smart_str_appends(&key, (char*)ns->children->content);
1110 smart_str_appendc(&key, ':');
1111 smart_str_appends(&key, (char*)name->children->content);
1112 smart_str_0(&key);
1113 }
1114
1115 if (cur_type == NULL) {
1116 sdlTypePtr newType;
1117
1118 newType = emalloc(sizeof(sdlType));
1119 memset(newType, 0, sizeof(sdlType));
1120
1121 if (sdl->groups == NULL) {
1122 sdl->groups = emalloc(sizeof(HashTable));
1123 zend_hash_init(sdl->groups, 0, NULL, delete_type, 0);
1124 }
1125 if (zend_hash_add(sdl->groups, key.c, key.len+1, (void**)&newType, sizeof(sdlTypePtr), NULL) != SUCCESS) {
1126 soap_error1(E_ERROR, "Parsing Schema: group '%s' already defined", key.c);
1127 }
1128
1129 cur_type = newType;
1130 }
1131 smart_str_free(&key);
1132
1133 if (model == NULL) {
1134 cur_type->model = newModel;
1135 } else {
1136 zend_hash_next_index_insert(model->u.content, &newModel, sizeof(sdlContentModelPtr), NULL);
1137 }
1138 } else {
1139 soap_error0(E_ERROR, "Parsing Schema: group has no 'name' nor 'ref' attributes");
1140 }
1141
1142 schema_min_max(groupType, newModel);
1143
1144 trav = groupType->children;
1145 if (trav != NULL && node_is_equal(trav,"annotation")) {
1146 /* TODO: <annotation> support */
1147 trav = trav->next;
1148 }
1149 if (trav != NULL) {
1150 if (node_is_equal(trav,"choice")) {
1151 if (ref != NULL) {
1152 soap_error0(E_ERROR, "Parsing Schema: group has both 'ref' attribute and subcontent");
1153 }
1154 newModel->kind = XSD_CONTENT_CHOICE;
1155 schema_choice(sdl, tns, trav, cur_type, newModel);
1156 trav = trav->next;
1157 } else if (node_is_equal(trav,"sequence")) {
1158 if (ref != NULL) {
1159 soap_error0(E_ERROR, "Parsing Schema: group has both 'ref' attribute and subcontent");
1160 }
1161 newModel->kind = XSD_CONTENT_SEQUENCE;
1162 schema_sequence(sdl, tns, trav, cur_type, newModel);
1163 trav = trav->next;
1164 } else if (node_is_equal(trav,"all")) {
1165 if (ref != NULL) {
1166 soap_error0(E_ERROR, "Parsing Schema: group has both 'ref' attribute and subcontent");
1167 }
1168 newModel->kind = XSD_CONTENT_ALL;
1169 schema_all(sdl, tns, trav, cur_type, newModel);
1170 trav = trav->next;
1171 } else {
1172 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in group", trav->name);
1173 }
1174 }
1175 if (trav != NULL) {
1176 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in group", trav->name);
1177 }
1178 return TRUE;
1179 }
1180 /*
1181 <choice
1182 id = ID
1183 maxOccurs = (nonNegativeInteger | unbounded) : 1
1184 minOccurs = nonNegativeInteger : 1
1185 {any attributes with non-schema namespace . . .}>
1186 Content: (annotation?, (element | group | choice | sequence | any)*)
1187 </choice>
1188 */
schema_choice(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr choiceType,sdlTypePtr cur_type,sdlContentModelPtr model)1189 static int schema_choice(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr choiceType, sdlTypePtr cur_type, sdlContentModelPtr model)
1190 {
1191 xmlNodePtr trav;
1192 sdlContentModelPtr newModel;
1193
1194 newModel = emalloc(sizeof(sdlContentModel));
1195 newModel->kind = XSD_CONTENT_CHOICE;
1196 newModel->u.content = emalloc(sizeof(HashTable));
1197 zend_hash_init(newModel->u.content, 0, NULL, delete_model, 0);
1198 if (model == NULL) {
1199 cur_type->model = newModel;
1200 } else {
1201 zend_hash_next_index_insert(model->u.content,&newModel,sizeof(sdlContentModelPtr), NULL);
1202 }
1203
1204 schema_min_max(choiceType, newModel);
1205
1206 trav = choiceType->children;
1207 if (trav != NULL && node_is_equal(trav,"annotation")) {
1208 /* TODO: <annotation> support */
1209 trav = trav->next;
1210 }
1211 while (trav != NULL) {
1212 if (node_is_equal(trav,"element")) {
1213 schema_element(sdl, tns, trav, cur_type, newModel);
1214 } else if (node_is_equal(trav,"group")) {
1215 schema_group(sdl, tns, trav, cur_type, newModel);
1216 } else if (node_is_equal(trav,"choice")) {
1217 schema_choice(sdl, tns, trav, cur_type, newModel);
1218 } else if (node_is_equal(trav,"sequence")) {
1219 schema_sequence(sdl, tns, trav, cur_type, newModel);
1220 } else if (node_is_equal(trav,"any")) {
1221 schema_any(sdl, tns, trav, cur_type, newModel);
1222 } else {
1223 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in choice", trav->name);
1224 }
1225 trav = trav->next;
1226 }
1227 return TRUE;
1228 }
1229
1230 /*
1231 <sequence
1232 id = ID
1233 maxOccurs = (nonNegativeInteger | unbounded) : 1
1234 minOccurs = nonNegativeInteger : 1
1235 {any attributes with non-schema namespace . . .}>
1236 Content: (annotation?, (element | group | choice | sequence | any)*)
1237 </sequence>
1238 */
schema_sequence(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr seqType,sdlTypePtr cur_type,sdlContentModelPtr model)1239 static int schema_sequence(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr seqType, sdlTypePtr cur_type, sdlContentModelPtr model)
1240 {
1241 xmlNodePtr trav;
1242 sdlContentModelPtr newModel;
1243
1244 newModel = emalloc(sizeof(sdlContentModel));
1245 newModel->kind = XSD_CONTENT_SEQUENCE;
1246 newModel->u.content = emalloc(sizeof(HashTable));
1247 zend_hash_init(newModel->u.content, 0, NULL, delete_model, 0);
1248 if (model == NULL) {
1249 cur_type->model = newModel;
1250 } else {
1251 zend_hash_next_index_insert(model->u.content,&newModel,sizeof(sdlContentModelPtr), NULL);
1252 }
1253
1254 schema_min_max(seqType, newModel);
1255
1256 trav = seqType->children;
1257 if (trav != NULL && node_is_equal(trav,"annotation")) {
1258 /* TODO: <annotation> support */
1259 trav = trav->next;
1260 }
1261 while (trav != NULL) {
1262 if (node_is_equal(trav,"element")) {
1263 schema_element(sdl, tns, trav, cur_type, newModel);
1264 } else if (node_is_equal(trav,"group")) {
1265 schema_group(sdl, tns, trav, cur_type, newModel);
1266 } else if (node_is_equal(trav,"choice")) {
1267 schema_choice(sdl, tns, trav, cur_type, newModel);
1268 } else if (node_is_equal(trav,"sequence")) {
1269 schema_sequence(sdl, tns, trav, cur_type, newModel);
1270 } else if (node_is_equal(trav,"any")) {
1271 schema_any(sdl, tns, trav, cur_type, newModel);
1272 } else {
1273 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in sequence", trav->name);
1274 }
1275 trav = trav->next;
1276 }
1277 return TRUE;
1278 }
1279
1280 /*
1281 <any
1282 id = ID
1283 maxOccurs = (nonNegativeInteger | unbounded) : 1
1284 minOccurs = nonNegativeInteger : 1
1285 namespace = ((##any | ##other) | List of (anyURI | (##targetNamespace | ##local)) ) : ##any
1286 processContents = (lax | skip | strict) : strict
1287 {any attributes with non-schema namespace . . .}>
1288 Content: (annotation?)
1289 </any>
1290 */
schema_any(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr anyType,sdlTypePtr cur_type,sdlContentModelPtr model)1291 static int schema_any(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr anyType, sdlTypePtr cur_type, sdlContentModelPtr model)
1292 {
1293 if (model != NULL) {
1294 sdlContentModelPtr newModel;
1295
1296 newModel = emalloc(sizeof(sdlContentModel));
1297 newModel->kind = XSD_CONTENT_ANY;
1298
1299 schema_min_max(anyType, newModel);
1300
1301 zend_hash_next_index_insert(model->u.content, &newModel, sizeof(sdlContentModelPtr), NULL);
1302 }
1303 return TRUE;
1304 }
1305
1306 /*
1307 <complexContent
1308 id = ID
1309 mixed = boolean
1310 {any attributes with non-schema namespace . . .}>
1311 Content: (annotation?, (restriction | extension))
1312 </complexContent>
1313 */
schema_complexContent(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr compCont,sdlTypePtr cur_type)1314 static int schema_complexContent(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr compCont, sdlTypePtr cur_type)
1315 {
1316 xmlNodePtr trav;
1317
1318 trav = compCont->children;
1319 if (trav != NULL && node_is_equal(trav,"annotation")) {
1320 /* TODO: <annotation> support */
1321 trav = trav->next;
1322 }
1323 if (trav != NULL) {
1324 if (node_is_equal(trav, "restriction")) {
1325 cur_type->kind = XSD_TYPEKIND_RESTRICTION;
1326 schema_restriction_complexContent(sdl, tns, trav, cur_type);
1327 trav = trav->next;
1328 } else if (node_is_equal(trav, "extension")) {
1329 cur_type->kind = XSD_TYPEKIND_EXTENSION;
1330 schema_extension_complexContent(sdl, tns, trav, cur_type);
1331 trav = trav->next;
1332 } else {
1333 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in complexContent", trav->name);
1334 }
1335 } else {
1336 soap_error0(E_ERROR, "Parsing Schema: <restriction> or <extension> expected in complexContent");
1337 }
1338 if (trav != NULL) {
1339 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in complexContent", trav->name);
1340 }
1341
1342 return TRUE;
1343 }
1344
1345 /*
1346 <complexType
1347 abstract = boolean : false
1348 block = (#all | List of (extension | restriction))
1349 final = (#all | List of (extension | restriction))
1350 id = ID
1351 mixed = boolean : false
1352 name = NCName
1353 {any attributes with non-schema namespace . . .}>
1354 Content: (annotation?, (simpleContent | complexContent | ((group | all | choice | sequence)?, ((attribute | attributeGroup)*, anyAttribute?))))
1355 </complexType>
1356 */
schema_complexType(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr compType,sdlTypePtr cur_type)1357 static int schema_complexType(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr compType, sdlTypePtr cur_type)
1358 {
1359 xmlNodePtr trav;
1360 xmlAttrPtr attrs, name, ns;
1361
1362 attrs = compType->properties;
1363 ns = get_attribute(attrs, "targetNamespace");
1364 if (ns == NULL) {
1365 ns = tns;
1366 }
1367
1368 name = get_attribute(attrs, "name");
1369 if (cur_type != NULL) {
1370 /* Anonymous type inside <element> */
1371 sdlTypePtr newType, *ptr;
1372
1373 newType = emalloc(sizeof(sdlType));
1374 memset(newType, 0, sizeof(sdlType));
1375 newType->kind = XSD_TYPEKIND_COMPLEX;
1376 if (name != NULL) {
1377 newType->name = estrdup((char*)name->children->content);
1378 newType->namens = estrdup((char*)ns->children->content);
1379 } else {
1380 newType->name = estrdup(cur_type->name);
1381 newType->namens = estrdup(cur_type->namens);
1382 }
1383
1384 zend_hash_next_index_insert(sdl->types, &newType, sizeof(sdlTypePtr), (void **)&ptr);
1385
1386 if (sdl->encoders == NULL) {
1387 sdl->encoders = emalloc(sizeof(HashTable));
1388 zend_hash_init(sdl->encoders, 0, NULL, delete_encoder, 0);
1389 }
1390 cur_type->encode = emalloc(sizeof(encode));
1391 memset(cur_type->encode, 0, sizeof(encode));
1392 cur_type->encode->details.ns = estrdup(newType->namens);
1393 cur_type->encode->details.type_str = estrdup(newType->name);
1394 cur_type->encode->details.sdl_type = *ptr;
1395 cur_type->encode->to_xml = sdl_guess_convert_xml;
1396 cur_type->encode->to_zval = sdl_guess_convert_zval;
1397 zend_hash_next_index_insert(sdl->encoders, &cur_type->encode, sizeof(encodePtr), NULL);
1398
1399 cur_type =*ptr;
1400
1401 } else if (name) {
1402 sdlTypePtr newType, *ptr;
1403
1404 newType = emalloc(sizeof(sdlType));
1405 memset(newType, 0, sizeof(sdlType));
1406 newType->kind = XSD_TYPEKIND_COMPLEX;
1407 newType->name = estrdup((char*)name->children->content);
1408 newType->namens = estrdup((char*)ns->children->content);
1409
1410 zend_hash_next_index_insert(sdl->types, &newType, sizeof(sdlTypePtr), (void **)&ptr);
1411
1412 cur_type = (*ptr);
1413 create_encoder(sdl, cur_type, ns->children->content, name->children->content);
1414 } else {
1415 soap_error0(E_ERROR, "Parsing Schema: complexType has no 'name' attribute");
1416 return FALSE;
1417 }
1418
1419 trav = compType->children;
1420 if (trav != NULL && node_is_equal(trav, "annotation")) {
1421 /* TODO: <annotation> support */
1422 trav = trav->next;
1423 }
1424 if (trav != NULL) {
1425 if (node_is_equal(trav,"simpleContent")) {
1426 schema_simpleContent(sdl, tns, trav, cur_type);
1427 trav = trav->next;
1428 } else if (node_is_equal(trav,"complexContent")) {
1429 schema_complexContent(sdl, tns, trav, cur_type);
1430 trav = trav->next;
1431 } else {
1432 if (node_is_equal(trav,"group")) {
1433 schema_group(sdl, tns, trav, cur_type, NULL);
1434 trav = trav->next;
1435 } else if (node_is_equal(trav,"all")) {
1436 schema_all(sdl, tns, trav, cur_type, NULL);
1437 trav = trav->next;
1438 } else if (node_is_equal(trav,"choice")) {
1439 schema_choice(sdl, tns, trav, cur_type, NULL);
1440 trav = trav->next;
1441 } else if (node_is_equal(trav,"sequence")) {
1442 schema_sequence(sdl, tns, trav, cur_type, NULL);
1443 trav = trav->next;
1444 }
1445 while (trav != NULL) {
1446 if (node_is_equal(trav,"attribute")) {
1447 schema_attribute(sdl, tns, trav, cur_type, NULL);
1448 } else if (node_is_equal(trav,"attributeGroup")) {
1449 schema_attributeGroup(sdl, tns, trav, cur_type, NULL);
1450 } else if (node_is_equal(trav,"anyAttribute")) {
1451 /* TODO: <anyAttribute> support */
1452 trav = trav->next;
1453 break;
1454 } else {
1455 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in complexType", trav->name);
1456 }
1457 trav = trav->next;
1458 }
1459 }
1460 }
1461 if (trav != NULL) {
1462 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in complexType", trav->name);
1463 }
1464 return TRUE;
1465 }
1466 /*
1467 <element
1468 abstract = boolean : false
1469 block = (#all | List of (extension | restriction | substitution))
1470 default = string
1471 final = (#all | List of (extension | restriction))
1472 fixed = string
1473 form = (qualified | unqualified)
1474 id = ID
1475 maxOccurs = (nonNegativeInteger | unbounded) : 1
1476 minOccurs = nonNegativeInteger : 1
1477 name = NCName
1478 nillable = boolean : false
1479 ref = QName
1480 substitutionGroup = QName
1481 type = QName
1482 {any attributes with non-schema namespace . . .}>
1483 Content: (annotation?, ((simpleType | complexType)?, (unique | key | keyref)*))
1484 </element>
1485 */
schema_element(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr element,sdlTypePtr cur_type,sdlContentModelPtr model)1486 static int schema_element(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr element, sdlTypePtr cur_type, sdlContentModelPtr model)
1487 {
1488 xmlNodePtr trav;
1489 xmlAttrPtr attrs, attr, ns, name, type, ref = NULL;
1490
1491 attrs = element->properties;
1492 ns = get_attribute(attrs, "targetNamespace");
1493 if (ns == NULL) {
1494 ns = tns;
1495 }
1496
1497 name = get_attribute(attrs, "name");
1498 if (name == NULL) {
1499 name = ref = get_attribute(attrs, "ref");
1500 }
1501
1502 if (name) {
1503 HashTable *addHash;
1504 sdlTypePtr newType;
1505 smart_str key = {0};
1506
1507 newType = emalloc(sizeof(sdlType));
1508 memset(newType, 0, sizeof(sdlType));
1509
1510 if (ref) {
1511 smart_str nscat = {0};
1512 char *type, *ns;
1513 xmlNsPtr nsptr;
1514
1515 parse_namespace(ref->children->content, &type, &ns);
1516 nsptr = xmlSearchNs(element->doc, element, BAD_CAST(ns));
1517 if (nsptr != NULL) {
1518 smart_str_appends(&nscat, (char*)nsptr->href);
1519 newType->namens = estrdup((char*)nsptr->href);
1520 } else {
1521 xmlAttrPtr ns = get_attribute(attrs, "targetNamespace");
1522 if (ns == NULL) {
1523 ns = tns;
1524 }
1525 if (ns) {
1526 smart_str_appends(&nscat, (char*)ns->children->content);
1527 }
1528 }
1529 smart_str_appendc(&nscat, ':');
1530 smart_str_appends(&nscat, type);
1531 newType->name = estrdup(type);
1532 smart_str_0(&nscat);
1533 if (type) {efree(type);}
1534 if (ns) {efree(ns);}
1535 newType->ref = estrdup(nscat.c);
1536 smart_str_free(&nscat);
1537 } else {
1538 newType->name = estrdup((char*)name->children->content);
1539 newType->namens = estrdup((char*)ns->children->content);
1540 }
1541
1542 newType->nillable = FALSE;
1543
1544 if (cur_type == NULL) {
1545 if (sdl->elements == NULL) {
1546 sdl->elements = emalloc(sizeof(HashTable));
1547 zend_hash_init(sdl->elements, 0, NULL, delete_type, 0);
1548 }
1549 addHash = sdl->elements;
1550 smart_str_appends(&key, newType->namens);
1551 smart_str_appendc(&key, ':');
1552 smart_str_appends(&key, newType->name);
1553 } else {
1554 if (cur_type->elements == NULL) {
1555 cur_type->elements = emalloc(sizeof(HashTable));
1556 zend_hash_init(cur_type->elements, 0, NULL, delete_type, 0);
1557 }
1558 addHash = cur_type->elements;
1559 smart_str_appends(&key, newType->name);
1560 }
1561
1562 smart_str_0(&key);
1563 if (zend_hash_add(addHash, key.c, key.len + 1, &newType, sizeof(sdlTypePtr), NULL) != SUCCESS) {
1564 if (cur_type == NULL) {
1565 soap_error1(E_ERROR, "Parsing Schema: element '%s' already defined", key.c);
1566 } else {
1567 zend_hash_next_index_insert(addHash, &newType, sizeof(sdlTypePtr), NULL);
1568 }
1569 }
1570 smart_str_free(&key);
1571
1572 if (model != NULL) {
1573 sdlContentModelPtr newModel = emalloc(sizeof(sdlContentModel));
1574
1575 newModel->kind = XSD_CONTENT_ELEMENT;
1576 newModel->u.element = newType;
1577
1578 schema_min_max(element, newModel);
1579
1580
1581 zend_hash_next_index_insert(model->u.content, &newModel, sizeof(sdlContentModelPtr), NULL);
1582 }
1583 cur_type = newType;
1584 } else {
1585 soap_error0(E_ERROR, "Parsing Schema: element has no 'name' nor 'ref' attributes");
1586 }
1587
1588 /* nillable = boolean : false */
1589 attrs = element->properties;
1590 attr = get_attribute(attrs, "nillable");
1591 if (attr) {
1592 if (ref != NULL) {
1593 soap_error0(E_ERROR, "Parsing Schema: element has both 'ref' and 'nillable' attributes");
1594 }
1595 if (!stricmp((char*)attr->children->content, "true") ||
1596 !stricmp((char*)attr->children->content, "1")) {
1597 cur_type->nillable = TRUE;
1598 } else {
1599 cur_type->nillable = FALSE;
1600 }
1601 } else {
1602 cur_type->nillable = FALSE;
1603 }
1604
1605 attr = get_attribute(attrs, "fixed");
1606 if (attr) {
1607 if (ref != NULL) {
1608 soap_error0(E_ERROR, "Parsing Schema: element has both 'ref' and 'fixed' attributes");
1609 }
1610 cur_type->fixed = estrdup((char*)attr->children->content);
1611 }
1612
1613 attr = get_attribute(attrs, "default");
1614 if (attr) {
1615 if (ref != NULL) {
1616 soap_error0(E_ERROR, "Parsing Schema: element has both 'ref' and 'fixed' attributes");
1617 } else if (ref != NULL) {
1618 soap_error0(E_ERROR, "Parsing Schema: element has both 'default' and 'fixed' attributes");
1619 }
1620 cur_type->def = estrdup((char*)attr->children->content);
1621 }
1622
1623 /* form */
1624 attr = get_attribute(attrs, "form");
1625 if (attr) {
1626 if (strncmp((char*)attr->children->content, "qualified", sizeof("qualified")) == 0) {
1627 cur_type->form = XSD_FORM_QUALIFIED;
1628 } else if (strncmp((char*)attr->children->content, "unqualified", sizeof("unqualified")) == 0) {
1629 cur_type->form = XSD_FORM_UNQUALIFIED;
1630 } else {
1631 cur_type->form = XSD_FORM_DEFAULT;
1632 }
1633 } else {
1634 cur_type->form = XSD_FORM_DEFAULT;
1635 }
1636 if (cur_type->form == XSD_FORM_DEFAULT) {
1637 xmlNodePtr parent = element->parent;
1638 while (parent) {
1639 if (node_is_equal_ex(parent, "schema", SCHEMA_NAMESPACE)) {
1640 xmlAttrPtr def;
1641 def = get_attribute(parent->properties, "elementFormDefault");
1642 if(def == NULL || strncmp((char*)def->children->content, "qualified", sizeof("qualified"))) {
1643 cur_type->form = XSD_FORM_UNQUALIFIED;
1644 } else {
1645 cur_type->form = XSD_FORM_QUALIFIED;
1646 }
1647 break;
1648 }
1649 parent = parent->parent;
1650 }
1651 if (parent == NULL) {
1652 cur_type->form = XSD_FORM_UNQUALIFIED;
1653 }
1654 }
1655
1656 /* type = QName */
1657 type = get_attribute(attrs, "type");
1658 if (type) {
1659 char *cptype, *str_ns;
1660 xmlNsPtr nsptr;
1661
1662 if (ref != NULL) {
1663 soap_error0(E_ERROR, "Parsing Schema: element has both 'ref' and 'type' attributes");
1664 }
1665 parse_namespace(type->children->content, &cptype, &str_ns);
1666 nsptr = xmlSearchNs(element->doc, element, BAD_CAST(str_ns));
1667 if (nsptr != NULL) {
1668 cur_type->encode = get_create_encoder(sdl, cur_type, nsptr->href, BAD_CAST(cptype));
1669 }
1670 if (str_ns) {efree(str_ns);}
1671 if (cptype) {efree(cptype);}
1672 }
1673
1674 trav = element->children;
1675 if (trav != NULL && node_is_equal(trav, "annotation")) {
1676 /* TODO: <annotation> support */
1677 trav = trav->next;
1678 }
1679 if (trav != NULL) {
1680 if (node_is_equal(trav,"simpleType")) {
1681 if (ref != NULL) {
1682 soap_error0(E_ERROR, "Parsing Schema: element has both 'ref' attribute and subtype");
1683 } else if (type != NULL) {
1684 soap_error0(E_ERROR, "Parsing Schema: element has both 'type' attribute and subtype");
1685 }
1686 schema_simpleType(sdl, tns, trav, cur_type);
1687 trav = trav->next;
1688 } else if (node_is_equal(trav,"complexType")) {
1689 if (ref != NULL) {
1690 soap_error0(E_ERROR, "Parsing Schema: element has both 'ref' attribute and subtype");
1691 } else if (type != NULL) {
1692 soap_error0(E_ERROR, "Parsing Schema: element has both 'type' attribute and subtype");
1693 }
1694 schema_complexType(sdl, tns, trav, cur_type);
1695 trav = trav->next;
1696 }
1697 }
1698 while (trav != NULL) {
1699 if (node_is_equal(trav,"unique")) {
1700 /* TODO: <unique> support */
1701 } else if (node_is_equal(trav,"key")) {
1702 /* TODO: <key> support */
1703 } else if (node_is_equal(trav,"keyref")) {
1704 /* TODO: <keyref> support */
1705 } else {
1706 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in element", trav->name);
1707 }
1708 trav = trav->next;
1709 }
1710
1711 return TRUE;
1712 }
1713
1714 /*
1715 <attribute
1716 default = string
1717 fixed = string
1718 form = (qualified | unqualified)
1719 id = ID
1720 name = NCName
1721 ref = QName
1722 type = QName
1723 use = (optional | prohibited | required) : optional
1724 {any attributes with non-schema namespace . . .}>
1725 Content: (annotation?, (simpleType?))
1726 </attribute>
1727 */
schema_attribute(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr attrType,sdlTypePtr cur_type,sdlCtx * ctx)1728 static int schema_attribute(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr attrType, sdlTypePtr cur_type, sdlCtx *ctx)
1729 {
1730 sdlAttributePtr newAttr;
1731 xmlAttrPtr attr, name, ref = NULL, type = NULL;
1732 xmlNodePtr trav;
1733
1734 name = get_attribute(attrType->properties, "name");
1735 if (name == NULL) {
1736 name = ref = get_attribute(attrType->properties, "ref");
1737 }
1738 if (name) {
1739 HashTable *addHash;
1740 smart_str key = {0};
1741
1742 newAttr = emalloc(sizeof(sdlAttribute));
1743 memset(newAttr, 0, sizeof(sdlAttribute));
1744
1745 if (ref) {
1746 char *attr_name, *ns;
1747 xmlNsPtr nsptr;
1748
1749 parse_namespace(ref->children->content, &attr_name, &ns);
1750 nsptr = xmlSearchNs(attrType->doc, attrType, BAD_CAST(ns));
1751 if (nsptr != NULL) {
1752 smart_str_appends(&key, (char*)nsptr->href);
1753 newAttr->namens = estrdup((char*)nsptr->href);
1754 } else {
1755 xmlAttrPtr ns = get_attribute(attrType->properties, "targetNamespace");
1756 if (ns == NULL) {
1757 ns = tns;
1758 }
1759 if (ns) {
1760 smart_str_appends(&key, (char*)ns->children->content);
1761 }
1762 }
1763 smart_str_appendc(&key, ':');
1764 smart_str_appends(&key, attr_name);
1765 smart_str_0(&key);
1766 newAttr->ref = estrdup(key.c);
1767 if (attr_name) {efree(attr_name);}
1768 if (ns) {efree(ns);}
1769 } else {
1770 xmlAttrPtr ns;
1771
1772 ns = get_attribute(attrType->properties, "targetNamespace");
1773 if (ns == NULL) {
1774 ns = tns;
1775 }
1776 if (ns != NULL) {
1777 smart_str_appends(&key, (char*)ns->children->content);
1778 smart_str_appendc(&key, ':');
1779 newAttr->namens = estrdup((char*)ns->children->content);
1780 }
1781 smart_str_appends(&key, (char*)name->children->content);
1782 smart_str_0(&key);
1783 }
1784
1785 if (cur_type == NULL) {
1786 addHash = ctx->attributes;
1787 } else {
1788 if (cur_type->attributes == NULL) {
1789 cur_type->attributes = emalloc(sizeof(HashTable));
1790 zend_hash_init(cur_type->attributes, 0, NULL, delete_attribute, 0);
1791 }
1792 addHash = cur_type->attributes;
1793 }
1794
1795 if (zend_hash_add(addHash, key.c, key.len + 1, &newAttr, sizeof(sdlAttributePtr), NULL) != SUCCESS) {
1796 soap_error1(E_ERROR, "Parsing Schema: attribute '%s' already defined", key.c);
1797 }
1798 smart_str_free(&key);
1799 } else{
1800 soap_error0(E_ERROR, "Parsing Schema: attribute has no 'name' nor 'ref' attributes");
1801 }
1802
1803 /* type = QName */
1804 type = get_attribute(attrType->properties, "type");
1805 if (type) {
1806 char *cptype, *str_ns;
1807 xmlNsPtr nsptr;
1808
1809 if (ref != NULL) {
1810 soap_error0(E_ERROR, "Parsing Schema: attribute has both 'ref' and 'type' attributes");
1811 }
1812 parse_namespace(type->children->content, &cptype, &str_ns);
1813 nsptr = xmlSearchNs(attrType->doc, attrType, BAD_CAST(str_ns));
1814 if (nsptr != NULL) {
1815 newAttr->encode = get_create_encoder(sdl, cur_type, nsptr->href, BAD_CAST(cptype));
1816 }
1817 if (str_ns) {efree(str_ns);}
1818 if (cptype) {efree(cptype);}
1819 }
1820
1821 attr = attrType->properties;
1822 while (attr != NULL) {
1823 if (attr_is_equal_ex(attr, "default", SCHEMA_NAMESPACE)) {
1824 newAttr->def = estrdup((char*)attr->children->content);
1825 } else if (attr_is_equal_ex(attr, "fixed", SCHEMA_NAMESPACE)) {
1826 newAttr->fixed = estrdup((char*)attr->children->content);
1827 } else if (attr_is_equal_ex(attr, "form", SCHEMA_NAMESPACE)) {
1828 if (strncmp((char*)attr->children->content, "qualified", sizeof("qualified")) == 0) {
1829 newAttr->form = XSD_FORM_QUALIFIED;
1830 } else if (strncmp((char*)attr->children->content, "unqualified", sizeof("unqualified")) == 0) {
1831 newAttr->form = XSD_FORM_UNQUALIFIED;
1832 } else {
1833 newAttr->form = XSD_FORM_DEFAULT;
1834 }
1835 } else if (attr_is_equal_ex(attr, "id", SCHEMA_NAMESPACE)) {
1836 /* skip */
1837 } else if (attr_is_equal_ex(attr, "name", SCHEMA_NAMESPACE)) {
1838 newAttr->name = estrdup((char*)attr->children->content);
1839 } else if (attr_is_equal_ex(attr, "ref", SCHEMA_NAMESPACE)) {
1840 /* already processed */
1841 } else if (attr_is_equal_ex(attr, "type", SCHEMA_NAMESPACE)) {
1842 /* already processed */
1843 } else if (attr_is_equal_ex(attr, "use", SCHEMA_NAMESPACE)) {
1844 if (strncmp((char*)attr->children->content, "prohibited", sizeof("prohibited")) == 0) {
1845 newAttr->use = XSD_USE_PROHIBITED;
1846 } else if (strncmp((char*)attr->children->content, "required", sizeof("required")) == 0) {
1847 newAttr->use = XSD_USE_REQUIRED;
1848 } else if (strncmp((char*)attr->children->content, "optional", sizeof("optional")) == 0) {
1849 newAttr->use = XSD_USE_OPTIONAL;
1850 } else {
1851 newAttr->use = XSD_USE_DEFAULT;
1852 }
1853 } else {
1854 xmlNsPtr nsPtr = attr_find_ns(attr);
1855
1856 if (strncmp((char*)nsPtr->href, SCHEMA_NAMESPACE, sizeof(SCHEMA_NAMESPACE))) {
1857 smart_str key2 = {0};
1858 sdlExtraAttributePtr ext;
1859 xmlNsPtr nsptr;
1860 char *value, *ns;
1861
1862 ext = emalloc(sizeof(sdlExtraAttribute));
1863 memset(ext, 0, sizeof(sdlExtraAttribute));
1864 parse_namespace(attr->children->content, &value, &ns);
1865 nsptr = xmlSearchNs(attr->doc, attr->parent, BAD_CAST(ns));
1866 if (nsptr) {
1867 ext->ns = estrdup((char*)nsptr->href);
1868 ext->val = estrdup(value);
1869 } else {
1870 ext->val = estrdup((char*)attr->children->content);
1871 }
1872 if (ns) {efree(ns);}
1873 efree(value);
1874
1875 if (!newAttr->extraAttributes) {
1876 newAttr->extraAttributes = emalloc(sizeof(HashTable));
1877 zend_hash_init(newAttr->extraAttributes, 0, NULL, delete_extra_attribute, 0);
1878 }
1879
1880 smart_str_appends(&key2, (char*)nsPtr->href);
1881 smart_str_appendc(&key2, ':');
1882 smart_str_appends(&key2, (char*)attr->name);
1883 smart_str_0(&key2);
1884 zend_hash_add(newAttr->extraAttributes, key2.c, key2.len + 1, &ext, sizeof(sdlExtraAttributePtr), NULL);
1885 smart_str_free(&key2);
1886 }
1887 }
1888 attr = attr->next;
1889 }
1890 if (newAttr->form == XSD_FORM_DEFAULT) {
1891 xmlNodePtr parent = attrType->parent;
1892 while (parent) {
1893 if (node_is_equal_ex(parent, "schema", SCHEMA_NAMESPACE)) {
1894 xmlAttrPtr def;
1895 def = get_attribute(parent->properties, "attributeFormDefault");
1896 if(def == NULL || strncmp((char*)def->children->content, "qualified", sizeof("qualified"))) {
1897 newAttr->form = XSD_FORM_UNQUALIFIED;
1898 } else {
1899 newAttr->form = XSD_FORM_QUALIFIED;
1900 }
1901 break;
1902 }
1903 parent = parent->parent;
1904 }
1905 if (parent == NULL) {
1906 newAttr->form = XSD_FORM_UNQUALIFIED;
1907 }
1908 }
1909 trav = attrType->children;
1910 if (trav != NULL && node_is_equal(trav, "annotation")) {
1911 /* TODO: <annotation> support */
1912 trav = trav->next;
1913 }
1914 if (trav != NULL) {
1915 if (node_is_equal(trav,"simpleType")) {
1916 sdlTypePtr dummy_type;
1917 if (ref != NULL) {
1918 soap_error0(E_ERROR, "Parsing Schema: attribute has both 'ref' attribute and subtype");
1919 } else if (type != NULL) {
1920 soap_error0(E_ERROR, "Parsing Schema: attribute has both 'type' attribute and subtype");
1921 }
1922 dummy_type = emalloc(sizeof(sdlType));
1923 memset(dummy_type, 0, sizeof(sdlType));
1924 {
1925 smart_str anonymous = {0};
1926
1927 smart_str_appendl(&anonymous, "anonymous", sizeof("anonymous")-1);
1928 smart_str_append_long(&anonymous, zend_hash_num_elements(sdl->types));
1929 smart_str_0(&anonymous);
1930 dummy_type->name = anonymous.c;
1931 }
1932 dummy_type->namens = estrdup((char*)tns->children->content);
1933 schema_simpleType(sdl, tns, trav, dummy_type);
1934 newAttr->encode = dummy_type->encode;
1935 delete_type(&dummy_type);
1936 trav = trav->next;
1937 }
1938 }
1939 if (trav != NULL) {
1940 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in attribute", trav->name);
1941 }
1942 return TRUE;
1943 }
1944
schema_attributeGroup(sdlPtr sdl,xmlAttrPtr tns,xmlNodePtr attrGroup,sdlTypePtr cur_type,sdlCtx * ctx)1945 static int schema_attributeGroup(sdlPtr sdl, xmlAttrPtr tns, xmlNodePtr attrGroup, sdlTypePtr cur_type, sdlCtx *ctx)
1946 {
1947 xmlNodePtr trav;
1948 xmlAttrPtr name, ref = NULL;
1949
1950
1951 name = get_attribute(attrGroup->properties, "name");
1952 if (name == NULL) {
1953 name = ref = get_attribute(attrGroup->properties, "ref");
1954 }
1955 if (name) {
1956 if (cur_type == NULL) {
1957 xmlAttrPtr ns;
1958 sdlTypePtr newType;
1959 smart_str key = {0};
1960
1961 ns = get_attribute(attrGroup->properties, "targetNamespace");
1962 if (ns == NULL) {
1963 ns = tns;
1964 }
1965 newType = emalloc(sizeof(sdlType));
1966 memset(newType, 0, sizeof(sdlType));
1967 newType->name = estrdup((char*)name->children->content);
1968 newType->namens = estrdup((char*)ns->children->content);
1969
1970 smart_str_appends(&key, newType->namens);
1971 smart_str_appendc(&key, ':');
1972 smart_str_appends(&key, newType->name);
1973 smart_str_0(&key);
1974
1975 if (zend_hash_add(ctx->attributeGroups, key.c, key.len + 1, &newType, sizeof(sdlTypePtr), NULL) != SUCCESS) {
1976 soap_error1(E_ERROR, "Parsing Schema: attributeGroup '%s' already defined", key.c);
1977 }
1978 cur_type = newType;
1979 smart_str_free(&key);
1980 } else if (ref) {
1981 sdlAttributePtr newAttr;
1982 char *group_name, *ns;
1983 smart_str key = {0};
1984 xmlNsPtr nsptr;
1985
1986 if (cur_type->attributes == NULL) {
1987 cur_type->attributes = emalloc(sizeof(HashTable));
1988 zend_hash_init(cur_type->attributes, 0, NULL, delete_attribute, 0);
1989 }
1990 newAttr = emalloc(sizeof(sdlAttribute));
1991 memset(newAttr, 0, sizeof(sdlAttribute));
1992
1993 parse_namespace(ref->children->content, &group_name, &ns);
1994 nsptr = xmlSearchNs(attrGroup->doc, attrGroup, BAD_CAST(ns));
1995 if (nsptr != NULL) {
1996 smart_str_appends(&key, (char*)nsptr->href);
1997 }
1998 smart_str_appendc(&key, ':');
1999 smart_str_appends(&key, group_name);
2000 smart_str_0(&key);
2001 newAttr->ref = estrdup(key.c);
2002 if (group_name) {efree(group_name);}
2003 if (ns) {efree(ns);}
2004 smart_str_free(&key);
2005
2006 zend_hash_next_index_insert(cur_type->attributes, &newAttr, sizeof(sdlAttributePtr), NULL);
2007 cur_type = NULL;
2008 }
2009 } else{
2010 soap_error0(E_ERROR, "Parsing Schema: attributeGroup has no 'name' nor 'ref' attributes");
2011 }
2012
2013 trav = attrGroup->children;
2014 if (trav != NULL && node_is_equal(trav, "annotation")) {
2015 /* TODO: <annotation> support */
2016 trav = trav->next;
2017 }
2018 while (trav != NULL) {
2019 if (node_is_equal(trav,"attribute")) {
2020 if (ref != NULL) {
2021 soap_error0(E_ERROR, "Parsing Schema: attributeGroup has both 'ref' attribute and subattribute");
2022 }
2023 schema_attribute(sdl, tns, trav, cur_type, NULL);
2024 } else if (node_is_equal(trav,"attributeGroup")) {
2025 if (ref != NULL) {
2026 soap_error0(E_ERROR, "Parsing Schema: attributeGroup has both 'ref' attribute and subattribute");
2027 }
2028 schema_attributeGroup(sdl, tns, trav, cur_type, NULL);
2029 } else if (node_is_equal(trav,"anyAttribute")) {
2030 if (ref != NULL) {
2031 soap_error0(E_ERROR, "Parsing Schema: attributeGroup has both 'ref' attribute and subattribute");
2032 }
2033 /* TODO: <anyAttribute> support */
2034 trav = trav->next;
2035 break;
2036 } else {
2037 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in attributeGroup", trav->name);
2038 }
2039 trav = trav->next;
2040 }
2041 if (trav != NULL) {
2042 soap_error1(E_ERROR, "Parsing Schema: unexpected <%s> in attributeGroup", trav->name);
2043 }
2044 return TRUE;
2045 }
2046
copy_extra_attribute(void * attribute)2047 static void copy_extra_attribute(void *attribute)
2048 {
2049 sdlExtraAttributePtr *attr = (sdlExtraAttributePtr*)attribute;
2050 sdlExtraAttributePtr new_attr;
2051
2052 new_attr = emalloc(sizeof(sdlExtraAttribute));
2053 memcpy(new_attr, *attr, sizeof(sdlExtraAttribute));
2054 *attr = new_attr;
2055 if (new_attr->ns) {
2056 new_attr->ns = estrdup(new_attr->ns);
2057 }
2058 if (new_attr->val) {
2059 new_attr->val = estrdup(new_attr->val);
2060 }
2061 }
2062
schema_find_by_ref(HashTable * ht,char * ref)2063 static void* schema_find_by_ref(HashTable *ht, char *ref)
2064 {
2065 void **tmp;
2066
2067 if (zend_hash_find(ht, ref, strlen(ref)+1, (void**)&tmp) == SUCCESS) {
2068 return tmp;
2069 } else {
2070 ref = strrchr(ref, ':');
2071 if (ref) {
2072 if (zend_hash_find(ht, ref, strlen(ref)+1, (void**)&tmp) == SUCCESS) {
2073 return tmp;
2074 }
2075 }
2076 }
2077 return NULL;
2078 }
2079
schema_attribute_fixup(sdlCtx * ctx,sdlAttributePtr attr)2080 static void schema_attribute_fixup(sdlCtx *ctx, sdlAttributePtr attr)
2081 {
2082 sdlAttributePtr *tmp;
2083
2084 if (attr->ref != NULL) {
2085 if (ctx->attributes != NULL) {
2086 tmp = (sdlAttributePtr*)schema_find_by_ref(ctx->attributes, attr->ref);
2087 if (tmp) {
2088 schema_attribute_fixup(ctx, *tmp);
2089 if ((*tmp)->name != NULL && attr->name == NULL) {
2090 attr->name = estrdup((*tmp)->name);
2091 }
2092 if ((*tmp)->namens != NULL && attr->namens == NULL) {
2093 attr->namens = estrdup((*tmp)->namens);
2094 }
2095 if ((*tmp)->def != NULL && attr->def == NULL) {
2096 attr->def = estrdup((*tmp)->def);
2097 }
2098 if ((*tmp)->fixed != NULL && attr->fixed == NULL) {
2099 attr->fixed = estrdup((*tmp)->fixed);
2100 }
2101 if (attr->form == XSD_FORM_DEFAULT) {
2102 attr->form = (*tmp)->form;
2103 }
2104 if (attr->use == XSD_USE_DEFAULT) {
2105 attr->use = (*tmp)->use;
2106 }
2107 if ((*tmp)->extraAttributes != NULL) {
2108 xmlNodePtr node;
2109
2110 attr->extraAttributes = emalloc(sizeof(HashTable));
2111 zend_hash_init(attr->extraAttributes, zend_hash_num_elements((*tmp)->extraAttributes), NULL, delete_extra_attribute, 0);
2112 zend_hash_copy(attr->extraAttributes, (*tmp)->extraAttributes, copy_extra_attribute, &node, sizeof(xmlNodePtr));
2113 }
2114 attr->encode = (*tmp)->encode;
2115 }
2116 }
2117 if (attr->name == NULL && attr->ref != NULL) {
2118 char *name = strrchr(attr->ref, ':');
2119 if (name) {
2120 attr->name = estrdup(name+1);
2121 } else{
2122 attr->name = estrdup(attr->ref);
2123 }
2124 }
2125 efree(attr->ref);
2126 attr->ref = NULL;
2127 }
2128 }
2129
schema_attributegroup_fixup(sdlCtx * ctx,sdlAttributePtr attr,HashTable * ht)2130 static void schema_attributegroup_fixup(sdlCtx *ctx, sdlAttributePtr attr, HashTable *ht)
2131 {
2132 sdlTypePtr *tmp;
2133 sdlAttributePtr *tmp_attr;
2134
2135 if (attr->ref != NULL) {
2136 if (ctx->attributeGroups != NULL) {
2137 tmp = (sdlTypePtr*)schema_find_by_ref(ctx->attributeGroups, attr->ref);
2138 if (tmp) {
2139 if ((*tmp)->attributes) {
2140 zend_hash_internal_pointer_reset((*tmp)->attributes);
2141 while (zend_hash_get_current_data((*tmp)->attributes,(void**)&tmp_attr) == SUCCESS) {
2142 if (zend_hash_get_current_key_type((*tmp)->attributes) == HASH_KEY_IS_STRING) {
2143 char* key;
2144 uint key_len;
2145 sdlAttributePtr newAttr;
2146
2147 schema_attribute_fixup(ctx,*tmp_attr);
2148
2149 newAttr = emalloc(sizeof(sdlAttribute));
2150 memcpy(newAttr, *tmp_attr, sizeof(sdlAttribute));
2151 if (newAttr->def) {newAttr->def = estrdup(newAttr->def);}
2152 if (newAttr->fixed) {newAttr->fixed = estrdup(newAttr->fixed);}
2153 if (newAttr->namens) {newAttr->namens = estrdup(newAttr->namens);}
2154 if (newAttr->name) {newAttr->name = estrdup(newAttr->name);}
2155 if (newAttr->extraAttributes) {
2156 xmlNodePtr node;
2157 HashTable *ht = emalloc(sizeof(HashTable));
2158 zend_hash_init(ht, zend_hash_num_elements(newAttr->extraAttributes), NULL, delete_extra_attribute, 0);
2159 zend_hash_copy(ht, newAttr->extraAttributes, copy_extra_attribute, &node, sizeof(xmlNodePtr));
2160 newAttr->extraAttributes = ht;
2161 }
2162
2163 zend_hash_get_current_key_ex((*tmp)->attributes, &key, &key_len, NULL, 0, NULL);
2164 zend_hash_add(ht, key, key_len, &newAttr, sizeof(sdlAttributePtr), NULL);
2165
2166 zend_hash_move_forward((*tmp)->attributes);
2167 } else {
2168 ulong index;
2169
2170 schema_attributegroup_fixup(ctx,*tmp_attr, ht);
2171 zend_hash_get_current_key((*tmp)->attributes, NULL, &index, 0);
2172 zend_hash_index_del((*tmp)->attributes, index);
2173 }
2174 }
2175 }
2176 }
2177 }
2178 efree(attr->ref);
2179 attr->ref = NULL;
2180 }
2181 }
2182
schema_content_model_fixup(sdlCtx * ctx,sdlContentModelPtr model)2183 static void schema_content_model_fixup(sdlCtx *ctx, sdlContentModelPtr model)
2184 {
2185 switch (model->kind) {
2186 case XSD_CONTENT_GROUP_REF: {
2187 sdlTypePtr *tmp;
2188
2189 if (ctx->sdl->groups && zend_hash_find(ctx->sdl->groups, model->u.group_ref, strlen(model->u.group_ref)+1, (void**)&tmp) == SUCCESS) {
2190 schema_type_fixup(ctx,*tmp);
2191 efree(model->u.group_ref);
2192 model->kind = XSD_CONTENT_GROUP;
2193 model->u.group = (*tmp);
2194 } else {
2195 soap_error1(E_ERROR, "Parsing Schema: unresolved group 'ref' attribute '%s'", model->u.group_ref);
2196 }
2197 break;
2198 }
2199 case XSD_CONTENT_CHOICE: {
2200 if (model->max_occurs != 1) {
2201 HashPosition pos;
2202 sdlContentModelPtr *tmp;
2203
2204 zend_hash_internal_pointer_reset_ex(model->u.content, &pos);
2205 while (zend_hash_get_current_data_ex(model->u.content, (void**)&tmp, &pos) == SUCCESS) {
2206 (*tmp)->min_occurs = 0;
2207 (*tmp)->max_occurs = model->max_occurs;
2208 zend_hash_move_forward_ex(model->u.content, &pos);
2209 }
2210
2211 model->kind = XSD_CONTENT_ALL;
2212 model->min_occurs = 1;
2213 model->max_occurs = 1;
2214 }
2215 }
2216 case XSD_CONTENT_SEQUENCE:
2217 case XSD_CONTENT_ALL: {
2218 sdlContentModelPtr *tmp;
2219
2220 zend_hash_internal_pointer_reset(model->u.content);
2221 while (zend_hash_get_current_data(model->u.content, (void**)&tmp) == SUCCESS) {
2222 schema_content_model_fixup(ctx, *tmp);
2223 zend_hash_move_forward(model->u.content);
2224 }
2225 break;
2226 }
2227 default:
2228 break;
2229 }
2230 }
2231
schema_type_fixup(sdlCtx * ctx,sdlTypePtr type)2232 static void schema_type_fixup(sdlCtx *ctx, sdlTypePtr type)
2233 {
2234 sdlTypePtr *tmp;
2235 sdlAttributePtr *attr;
2236
2237 if (type->ref != NULL) {
2238 if (ctx->sdl->elements != NULL) {
2239 tmp = (sdlTypePtr*)schema_find_by_ref(ctx->sdl->elements, type->ref);
2240 if (tmp) {
2241 type->kind = (*tmp)->kind;
2242 type->encode = (*tmp)->encode;
2243 if ((*tmp)->nillable) {
2244 type->nillable = 1;
2245 }
2246 if ((*tmp)->fixed) {
2247 type->fixed = estrdup((*tmp)->fixed);
2248 }
2249 if ((*tmp)->def) {
2250 type->def = estrdup((*tmp)->def);
2251 }
2252 type->form = (*tmp)->form;
2253 } else if (strcmp(type->ref, SCHEMA_NAMESPACE ":schema") == 0) {
2254 type->encode = get_conversion(XSD_ANYXML);
2255 } else {
2256 soap_error1(E_ERROR, "Parsing Schema: unresolved element 'ref' attribute '%s'", type->ref);
2257 }
2258 }
2259 efree(type->ref);
2260 type->ref = NULL;
2261 }
2262 if (type->elements) {
2263 zend_hash_internal_pointer_reset(type->elements);
2264 while (zend_hash_get_current_data(type->elements,(void**)&tmp) == SUCCESS) {
2265 schema_type_fixup(ctx,*tmp);
2266 zend_hash_move_forward(type->elements);
2267 }
2268 }
2269 if (type->model) {
2270 schema_content_model_fixup(ctx, type->model);
2271 }
2272 if (type->attributes) {
2273 zend_hash_internal_pointer_reset(type->attributes);
2274 while (zend_hash_get_current_data(type->attributes,(void**)&attr) == SUCCESS) {
2275 if (zend_hash_get_current_key_type(type->attributes) == HASH_KEY_IS_STRING) {
2276 schema_attribute_fixup(ctx,*attr);
2277 zend_hash_move_forward(type->attributes);
2278 } else {
2279 ulong index;
2280
2281 schema_attributegroup_fixup(ctx,*attr,type->attributes);
2282 zend_hash_get_current_key(type->attributes, NULL, &index, 0);
2283 zend_hash_index_del(type->attributes, index);
2284 }
2285 }
2286 }
2287 }
2288
schema_pass2(sdlCtx * ctx)2289 void schema_pass2(sdlCtx *ctx)
2290 {
2291 sdlPtr sdl = ctx->sdl;
2292 sdlAttributePtr *attr;
2293 sdlTypePtr *type;
2294
2295 if (ctx->attributes) {
2296 zend_hash_internal_pointer_reset(ctx->attributes);
2297 while (zend_hash_get_current_data(ctx->attributes,(void**)&attr) == SUCCESS) {
2298 schema_attribute_fixup(ctx,*attr);
2299 zend_hash_move_forward(ctx->attributes);
2300 }
2301 }
2302 if (ctx->attributeGroups) {
2303 zend_hash_internal_pointer_reset(ctx->attributeGroups);
2304 while (zend_hash_get_current_data(ctx->attributeGroups,(void**)&type) == SUCCESS) {
2305 schema_type_fixup(ctx,*type);
2306 zend_hash_move_forward(ctx->attributeGroups);
2307 }
2308 }
2309 if (sdl->elements) {
2310 zend_hash_internal_pointer_reset(sdl->elements);
2311 while (zend_hash_get_current_data(sdl->elements,(void**)&type) == SUCCESS) {
2312 schema_type_fixup(ctx,*type);
2313 zend_hash_move_forward(sdl->elements);
2314 }
2315 }
2316 if (sdl->groups) {
2317 zend_hash_internal_pointer_reset(sdl->groups);
2318 while (zend_hash_get_current_data(sdl->groups,(void**)&type) == SUCCESS) {
2319 schema_type_fixup(ctx,*type);
2320 zend_hash_move_forward(sdl->groups);
2321 }
2322 }
2323 if (sdl->types) {
2324 zend_hash_internal_pointer_reset(sdl->types);
2325 while (zend_hash_get_current_data(sdl->types,(void**)&type) == SUCCESS) {
2326 schema_type_fixup(ctx,*type);
2327 zend_hash_move_forward(sdl->types);
2328 }
2329 }
2330 if (ctx->attributes) {
2331 zend_hash_destroy(ctx->attributes);
2332 efree(ctx->attributes);
2333 }
2334 if (ctx->attributeGroups) {
2335 zend_hash_destroy(ctx->attributeGroups);
2336 efree(ctx->attributeGroups);
2337 }
2338 }
2339
delete_model(void * handle)2340 void delete_model(void *handle)
2341 {
2342 sdlContentModelPtr tmp = *((sdlContentModelPtr*)handle);
2343 switch (tmp->kind) {
2344 case XSD_CONTENT_ELEMENT:
2345 case XSD_CONTENT_GROUP:
2346 break;
2347 case XSD_CONTENT_SEQUENCE:
2348 case XSD_CONTENT_ALL:
2349 case XSD_CONTENT_CHOICE:
2350 zend_hash_destroy(tmp->u.content);
2351 efree(tmp->u.content);
2352 break;
2353 case XSD_CONTENT_GROUP_REF:
2354 efree(tmp->u.group_ref);
2355 break;
2356 default:
2357 break;
2358 }
2359 efree(tmp);
2360 }
2361
delete_model_persistent(void * handle)2362 void delete_model_persistent(void *handle)
2363 {
2364 sdlContentModelPtr tmp = *((sdlContentModelPtr*)handle);
2365 switch (tmp->kind) {
2366 case XSD_CONTENT_ELEMENT:
2367 case XSD_CONTENT_GROUP:
2368 break;
2369 case XSD_CONTENT_SEQUENCE:
2370 case XSD_CONTENT_ALL:
2371 case XSD_CONTENT_CHOICE:
2372 zend_hash_destroy(tmp->u.content);
2373 free(tmp->u.content);
2374 break;
2375 case XSD_CONTENT_GROUP_REF:
2376 free(tmp->u.group_ref);
2377 break;
2378 default:
2379 break;
2380 }
2381 free(tmp);
2382 }
2383
delete_type(void * data)2384 void delete_type(void *data)
2385 {
2386 sdlTypePtr type = *((sdlTypePtr*)data);
2387
2388 if (type->name) {
2389 efree(type->name);
2390 }
2391 if (type->namens) {
2392 efree(type->namens);
2393 }
2394 if (type->def) {
2395 efree(type->def);
2396 }
2397 if (type->fixed) {
2398 efree(type->fixed);
2399 }
2400 if (type->elements) {
2401 zend_hash_destroy(type->elements);
2402 efree(type->elements);
2403 }
2404 if (type->attributes) {
2405 zend_hash_destroy(type->attributes);
2406 efree(type->attributes);
2407 }
2408 if (type->model) {
2409 delete_model((void**)&type->model);
2410 }
2411 if (type->restrictions) {
2412 delete_restriction_var_int(&type->restrictions->minExclusive);
2413 delete_restriction_var_int(&type->restrictions->minInclusive);
2414 delete_restriction_var_int(&type->restrictions->maxExclusive);
2415 delete_restriction_var_int(&type->restrictions->maxInclusive);
2416 delete_restriction_var_int(&type->restrictions->totalDigits);
2417 delete_restriction_var_int(&type->restrictions->fractionDigits);
2418 delete_restriction_var_int(&type->restrictions->length);
2419 delete_restriction_var_int(&type->restrictions->minLength);
2420 delete_restriction_var_int(&type->restrictions->maxLength);
2421 delete_restriction_var_char(&type->restrictions->whiteSpace);
2422 delete_restriction_var_char(&type->restrictions->pattern);
2423 if (type->restrictions->enumeration) {
2424 zend_hash_destroy(type->restrictions->enumeration);
2425 efree(type->restrictions->enumeration);
2426 }
2427 efree(type->restrictions);
2428 }
2429 efree(type);
2430 }
2431
delete_type_persistent(void * data)2432 void delete_type_persistent(void *data)
2433 {
2434 sdlTypePtr type = *((sdlTypePtr*)data);
2435 if (type->name) {
2436 free(type->name);
2437 }
2438 if (type->namens) {
2439 free(type->namens);
2440 }
2441 if (type->def) {
2442 free(type->def);
2443 }
2444 if (type->fixed) {
2445 free(type->fixed);
2446 }
2447 if (type->elements) {
2448 zend_hash_destroy(type->elements);
2449 free(type->elements);
2450 }
2451 if (type->attributes) {
2452 zend_hash_destroy(type->attributes);
2453 free(type->attributes);
2454 }
2455 if (type->model) {
2456 delete_model_persistent((void**)&type->model);
2457 }
2458 if (type->restrictions) {
2459 delete_restriction_var_int_persistent(&type->restrictions->minExclusive);
2460 delete_restriction_var_int_persistent(&type->restrictions->minInclusive);
2461 delete_restriction_var_int_persistent(&type->restrictions->maxExclusive);
2462 delete_restriction_var_int_persistent(&type->restrictions->maxInclusive);
2463 delete_restriction_var_int_persistent(&type->restrictions->totalDigits);
2464 delete_restriction_var_int_persistent(&type->restrictions->fractionDigits);
2465 delete_restriction_var_int_persistent(&type->restrictions->length);
2466 delete_restriction_var_int_persistent(&type->restrictions->minLength);
2467 delete_restriction_var_int_persistent(&type->restrictions->maxLength);
2468 delete_restriction_var_char_persistent(&type->restrictions->whiteSpace);
2469 delete_restriction_var_char_persistent(&type->restrictions->pattern);
2470 if (type->restrictions->enumeration) {
2471 zend_hash_destroy(type->restrictions->enumeration);
2472 free(type->restrictions->enumeration);
2473 }
2474 free(type->restrictions);
2475 }
2476 free(type);
2477 }
2478
delete_extra_attribute(void * attribute)2479 void delete_extra_attribute(void *attribute)
2480 {
2481 sdlExtraAttributePtr attr = *((sdlExtraAttributePtr*)attribute);
2482
2483 if (attr->ns) {
2484 efree(attr->ns);
2485 }
2486 if (attr->val) {
2487 efree(attr->val);
2488 }
2489 efree(attr);
2490 }
2491
delete_extra_attribute_persistent(void * attribute)2492 void delete_extra_attribute_persistent(void *attribute)
2493 {
2494 sdlExtraAttributePtr attr = *((sdlExtraAttributePtr*)attribute);
2495
2496 if (attr->ns) {
2497 free(attr->ns);
2498 }
2499 if (attr->val) {
2500 free(attr->val);
2501 }
2502 free(attr);
2503 }
2504
delete_attribute(void * attribute)2505 void delete_attribute(void *attribute)
2506 {
2507 sdlAttributePtr attr = *((sdlAttributePtr*)attribute);
2508
2509 if (attr->def) {
2510 efree(attr->def);
2511 }
2512 if (attr->fixed) {
2513 efree(attr->fixed);
2514 }
2515 if (attr->name) {
2516 efree(attr->name);
2517 }
2518 if (attr->namens) {
2519 efree(attr->namens);
2520 }
2521 if (attr->ref) {
2522 efree(attr->ref);
2523 }
2524 if (attr->extraAttributes) {
2525 zend_hash_destroy(attr->extraAttributes);
2526 efree(attr->extraAttributes);
2527 }
2528 efree(attr);
2529 }
2530
delete_attribute_persistent(void * attribute)2531 void delete_attribute_persistent(void *attribute)
2532 {
2533 sdlAttributePtr attr = *((sdlAttributePtr*)attribute);
2534
2535 if (attr->def) {
2536 free(attr->def);
2537 }
2538 if (attr->fixed) {
2539 free(attr->fixed);
2540 }
2541 if (attr->name) {
2542 free(attr->name);
2543 }
2544 if (attr->namens) {
2545 free(attr->namens);
2546 }
2547 if (attr->ref) {
2548 free(attr->ref);
2549 }
2550 if (attr->extraAttributes) {
2551 zend_hash_destroy(attr->extraAttributes);
2552 free(attr->extraAttributes);
2553 }
2554 free(attr);
2555 }
2556
delete_restriction_var_int(void * rvi)2557 void delete_restriction_var_int(void *rvi)
2558 {
2559 sdlRestrictionIntPtr ptr = *((sdlRestrictionIntPtr*)rvi);
2560 if (ptr) {
2561 efree(ptr);
2562 }
2563 }
2564
delete_restriction_var_int_persistent(void * rvi)2565 void delete_restriction_var_int_persistent(void *rvi)
2566 {
2567 sdlRestrictionIntPtr ptr = *((sdlRestrictionIntPtr*)rvi);
2568 if (ptr) {
2569 free(ptr);
2570 }
2571 }
2572
delete_restriction_var_char(void * srvc)2573 void delete_restriction_var_char(void *srvc)
2574 {
2575 sdlRestrictionCharPtr ptr = *((sdlRestrictionCharPtr*)srvc);
2576 if (ptr) {
2577 if (ptr->value) {
2578 efree(ptr->value);
2579 }
2580 efree(ptr);
2581 }
2582 }
2583
delete_restriction_var_char_persistent(void * srvc)2584 void delete_restriction_var_char_persistent(void *srvc)
2585 {
2586 sdlRestrictionCharPtr ptr = *((sdlRestrictionCharPtr*)srvc);
2587 if (ptr) {
2588 if (ptr->value) {
2589 free(ptr->value);
2590 }
2591 free(ptr);
2592 }
2593 }
2594
