XML Schema support was improved: support for <element> default, fixed and nillable

This commit is contained in:
Dmitry Stogov 2004-02-24 09:02:33 +00:00
parent ac92c47b84
commit feed42e062
3 changed files with 54 additions and 4 deletions

View file

@ -41,7 +41,7 @@ Encoding
SOAP 1.2 doesn't support partially transmitted and sparse arrays
- references to external resources
? support for "nillable" and "nil"
- default values of <element>
? default values of <element>
? provide schema 1999/2001 support???
? make internal refrences for soap encoding (use seralization logic)???
? provide user space overriding of serialization certin objects and types???

View file

@ -791,7 +791,24 @@ static void model_to_zval_object(zval *ret, sdlContentModelPtr model, xmlNodePtr
if (node) {
zval *val;
val = master_to_zval(model->u.element->encode, node);
if (node && node->children && node->children->content) {
if (model->u.element->fixed && strcmp(model->u.element->fixed,node->children->content) != 0) {
php_error(E_ERROR,"SOAP-ERROR: Encoding: Element '%s' has fixed value '%s' (value '%s' is not allowed)",model->u.element->name,model->u.element->fixed,node->children->content);
}
val = master_to_zval(model->u.element->encode, node);
} else if (model->u.element->fixed) {
xmlNodePtr dummy = xmlNewNode(NULL, "BOGUS");
xmlNodeSetContent(dummy, model->u.element->fixed);
val = master_to_zval(model->u.element->encode, dummy);
xmlFreeNode(dummy);
} else if (model->u.element->def && !model->u.element->nillable) {
xmlNodePtr dummy = xmlNewNode(NULL, "BOGUS");
xmlNodeSetContent(dummy, model->u.element->def);
val = master_to_zval(model->u.element->encode, dummy);
xmlFreeNode(dummy);
} else {
val = master_to_zval(model->u.element->encode, node);
}
if ((node = get_node(node->next, model->u.element->name)) != NULL) {
zval *array;
@ -799,7 +816,24 @@ static void model_to_zval_object(zval *ret, sdlContentModelPtr model, xmlNodePtr
array_init(array);
add_next_index_zval(array, val);
do {
val = master_to_zval(model->u.element->encode, node);
if (node && node->children && node->children->content) {
if (model->u.element->fixed && strcmp(model->u.element->fixed,node->children->content) != 0) {
php_error(E_ERROR,"SOAP-ERROR: Encoding: Element '%s' has fixed value '%s' (value '%s' is not allowed)",model->u.element->name,model->u.element->fixed,node->children->content);
}
val = master_to_zval(model->u.element->encode, node);
} else if (model->u.element->fixed) {
xmlNodePtr dummy = xmlNewNode(NULL, "BOGUS");
xmlNodeSetContent(dummy, model->u.element->fixed);
val = master_to_zval(model->u.element->encode, dummy);
xmlFreeNode(dummy);
} else if (model->u.element->def && !model->u.element->nillable) {
xmlNodePtr dummy = xmlNewNode(NULL, "BOGUS");
xmlNodeSetContent(dummy, model->u.element->def);
val = master_to_zval(model->u.element->encode, dummy);
xmlFreeNode(dummy);
} else {
val = master_to_zval(model->u.element->encode, node);
}
add_next_index_zval(array, val);
} while ((node = get_node(node->next, model->u.element->name)) != NULL);
val = array;
@ -912,6 +946,8 @@ static zval *to_zval_object(encodeTypePtr type, xmlNodePtr data)
if ((*attr)->fixed && strcmp((*attr)->fixed,str_val) != 0) {
php_error(E_ERROR,"SOAP-ERROR: Encoding: Attribute '%s' has fixed value '%s' (value '%s' is not allowed)",(*attr)->name,(*attr)->fixed,str_val);
}
} else if ((*attr)->fixed) {
str_val = (*attr)->fixed;
} else if ((*attr)->def) {
str_val = (*attr)->def;
}
@ -983,6 +1019,10 @@ static int model_to_xml_object(xmlNodePtr node, sdlContentModelPtr model, HashTa
}
} else {
property = master_to_xml(enc, *val, style, node);
if (property->children && property->children->content &&
model->u.element->fixed && strcmp(model->u.element->fixed,property->children->content) != 0) {
php_error(E_ERROR,"SOAP-ERROR: Encoding: Element '%s' has fixed value '%s' (value '%s' is not allowed)",model->u.element->name,model->u.element->fixed,property->children->content);
}
}
xmlNodeSetName(property, model->u.element->name);
if (style == SOAP_LITERAL && model->u.element->namens) {
@ -1003,6 +1043,10 @@ static int model_to_xml_object(xmlNodePtr node, sdlContentModelPtr model, HashTa
}
} else {
property = master_to_xml(enc, *data, style, node);
if (property->children && property->children->content &&
model->u.element->fixed && strcmp(model->u.element->fixed,property->children->content) != 0) {
php_error(E_ERROR,"SOAP-ERROR: Encoding: Element '%s' has fixed value '%s' (value '%s' is not allowed)",model->u.element->name,model->u.element->fixed,property->children->content);
}
}
xmlNodeSetName(property, model->u.element->name);
if (style == SOAP_LITERAL && model->u.element->namens) {

View file

@ -2133,11 +2133,17 @@ static void schema_type_fixup(sdlCtx *ctx, sdlTypePtr type)
if (type->ref != NULL) {
if (ctx->sdl->elements != NULL) {
if (zend_hash_find(ctx->sdl->elements, type->ref, strlen(type->ref)+1, (void**)&tmp) == SUCCESS) {
type->kind = (*tmp)->kind;
type->encode = (*tmp)->encode;
/* TODO: nillable */
if ((*tmp)->nillable) {
type->nillable = 1;
}
if ((*tmp)->fixed) {
type->fixed = estrdup((*tmp)->fixed);
}
if ((*tmp)->def) {
type->def = estrdup((*tmp)->def);
}
} else {
php_error(E_ERROR, "SOAP-ERROR: Parsing Schema: unresolved element 'ref' attribute");
}