diff options
author | Angelo Mantellini <angelo.mantellini@irt-systemx.fr> | 2018-03-21 14:16:02 +0100 |
---|---|---|
committer | Angelo Mantellini <angelo.mantellini@irt-systemx.fr> | 2018-03-21 20:46:00 +0100 |
commit | 5d308865d0783d0cd70f7453c77980835ac5648e (patch) | |
tree | aea91e7109a81669e5b19443296cf1dec6876532 /external/libxml2_android/jni/libxml2/rngparser.c | |
parent | e90a1ec7c82519127b63931a96535ad4bc31342d (diff) |
update android-sdk. Now it is possible to compile with clangandroid-sdk/master
Change-Id: I156aa48dd90467a2a7540eec11839c0111b13bd2
Signed-off-by: Angelo Mantellini <angelo.mantellini@irt-systemx.fr>
Diffstat (limited to 'external/libxml2_android/jni/libxml2/rngparser.c')
-rw-r--r-- | external/libxml2_android/jni/libxml2/rngparser.c | 1595 |
1 files changed, 0 insertions, 1595 deletions
diff --git a/external/libxml2_android/jni/libxml2/rngparser.c b/external/libxml2_android/jni/libxml2/rngparser.c deleted file mode 100644 index 7731d4dd..00000000 --- a/external/libxml2_android/jni/libxml2/rngparser.c +++ /dev/null @@ -1,1595 +0,0 @@ -/** - * rngparser.c: parser for the Relax-NG compact syntax. - * - * Based on: - * RELAX NG Compact Syntax - * Committee Specification 21 November 2002 - * http://www.oasis-open.org/committees/relax-ng/compact-20021121.html - * - * See Copyright for the status of this software. - * - * Daniel Veillard <veillard@redhat.com> - */ - -#include <string.h> - -#include <libxml/parser.h> -#include <libxml/parserInternals.h> -#include <libxml/relaxng.h> -#include <libxml/dict.h> - -#define TODO \ - xmlGenericError(xmlGenericErrorContext, \ - "Unimplemented block at %s:%d\n", \ - __FILE__, __LINE__); - -#define MAX_TOKEN 10 - -typedef enum { - CRNG_NONE = 0, - CRNG_OP = 1, - CRNG_KEYWORD, - CRNG_IDENTIFIER, - CRNG_LITERAL_SEGMENT, - CRNG_CNAME, - CRNG_QNAME, - CRNG_NSNAME, - CRNG_DOCUMENTATION -} xmlCRNGTokType; - -typedef enum { - CRNG_OKAY = 0, - CRNG_MEMORY_ERROR, - CRNG_INVALID_CHAR_ERROR, - CRNG_END_ERROR, - CRNG_ENCODING_ERROR -} xmlCRNGError; - -typedef enum { - XML_CRNG_ERROR = -1, - XML_CRNG_OK = 0, - XML_CRNG_EOF = 1 -} xmlCRelaxNGParserState; - -typedef struct _token _token; -typedef _token *tokenPtr; -struct _token { - xmlCRNGTokType toktype; - int toklen; - const xmlChar *token; - const xmlChar *prefix; -}; - -typedef struct _xmlCRelaxNGParserCtxt xmlCRelaxNGParserCtxt; -typedef xmlCRelaxNGParserCtxt *xmlCRelaxNGParserCtxtPtr; -struct _xmlCRelaxNGParserCtxt { - void *userData; /* user specific data block */ - xmlRelaxNGValidityErrorFunc error; /* the callback in case of errors */ - xmlRelaxNGValidityWarningFunc warning;/* the callback in case of warning */ - xmlRelaxNGValidErr err; - - const xmlChar *compact; - const xmlChar *end; - const xmlChar *cur; - int isElem; - int lineno; - const xmlChar *linestart; - const char *filename; - - int nbTokens; - int firstToken; - _token tokens[MAX_TOKEN]; - int totalToken; - - xmlCRelaxNGParserState state; - - int nbErrors; - - xmlDocPtr res; /* the result */ - xmlNodePtr ins; /* the current insertion node */ - - xmlNsPtr nsDef; - tokenPtr token; - - xmlHashTablePtr namespaces; - xmlHashTablePtr datatypes; - - /* - * dictionary and keywords - */ - xmlDictPtr dict; - const xmlChar *key_attribute; - const xmlChar *key_default; - const xmlChar *key_datatypes; - const xmlChar *key_div; - const xmlChar *key_element; - const xmlChar *key_empty; - const xmlChar *key_external; - const xmlChar *key_grammar; - const xmlChar *key_include; - const xmlChar *key_inherit; - const xmlChar *key_list; - const xmlChar *key_mixed; - const xmlChar *key_namespace; - const xmlChar *key_notAllowed; - const xmlChar *key_parent; - const xmlChar *key_start; - const xmlChar *key_string; - const xmlChar *key_text; - const xmlChar *key_token; - const xmlChar *key_equal; - const xmlChar *key_orequal; - const xmlChar *key_andequal; - const xmlChar *key_combine; - const xmlChar *key_or; - const xmlChar *key_comma; - const xmlChar *key_and; - const xmlChar *key_choice; - const xmlChar *key_group; - const xmlChar *key_interleave; - const xmlChar *key_ref; - const xmlChar *key_define; - - /* results */ - xmlDocPtr doc; /* the resulting doc */ - xmlNodePtr insert; /* the insertion point */ - xmlAttrPtr attrs; /* pending attributes */ -}; - -static const xmlChar *xmlCRelaxNGInherit = BAD_CAST "Inherit string"; -static const xmlChar *xmlCRelaxNGDefault = BAD_CAST "Default string"; - -#define CUR_CHAR(l) xmlXPathCurrentChar(ctxt, &l) -/** - * IS_BLANK: - * @c: an UNICODE value (int) - * - * Macro to check the following production in the XML spec: - * - * [3] S ::= (#x20 | #x9 | #xD | #xA)+ - */ -#ifndef IS_BLANK -#define IS_BLANK(c) (((c) == 0x20) || ((c) == 0x09) || ((c) == 0xA) || \ - ((c) == 0x0D)) -#endif -#define IS_SEPARATOR(c) (((c) == 0x20) || ((c) == 0x09) || ((c) == 0xA) || \ - ((c) == 0x0D) || (c == '#')) - -#define CRNG_ERROR0(X) \ - { xmlCRNGErr(ctxt, X, NULL); return(0); } -#define CRNG_ERROR(X) \ - { xmlCRNGErr(ctxt, X, NULL); } - -#define CRNG_MEM_ERROR0() \ - { xmlCRNGErr(ctxt, CRNG_MEMORY_ERROR, NULL); return(0); } -#define CRNG_MEM_ERROR() \ - { xmlCRNGErr(ctxt, CRNG_MEMORY_ERROR, NULL); } - -#define ERROR(str) xmlCRNGErr(ctxt, 0, str); - -static void -xmlCRNGErr(xmlCRelaxNGParserCtxtPtr ctxt, int err_no, const char *err_msg) { - const xmlChar *cur; - xmlChar buffer[150]; - int i, l; - - if (ctxt != NULL) { - if (ctxt->filename != NULL) - fprintf(stderr, "%s:%d ", ctxt->filename, ctxt->lineno); - } - if (err_msg != NULL) { - fprintf(stderr, "error: %s\n", err_msg); - } else if (err_no != 0) - fprintf(stderr, "error %d\n", err_no); - cur = ctxt->cur; - while ((*cur != '\n') && (*cur != '\r') && (ctxt->cur - cur < 80)) cur--; - l = ctxt->cur - cur; - cur++; - for (i = 0; i < 100;i++) { - if ((*cur == '\n') || (*cur == '\r')) break; - buffer[i] = *cur++; - } - buffer[i] = 0; - fprintf(stderr, "%s\n", buffer); - for (i = 0; i < l;i++) buffer[i] = ' '; - buffer[i++] = '^'; - buffer[i++] = 0; - fprintf(stderr, "%s\n", buffer); -} - -/** - * IS_OP - * @c: an UNICODE value (int) - * - * Macro to check for operator value - */ -#ifndef IS_OP -#define IS_OP(c) (((c) == ',') || ((c) == '&') || ((c) == '|') || \ - ((c) == '?') || ((c) == '-') || ((c) == '*') || \ - ((c) == '{') || ((c) == '}') || ((c) == '(') || \ - ((c) == ')') || ((c) == '+') || ((c) == '=') || \ - ((c) == ':')) -#endif - -static int -xmlCRNGIsKeyword(xmlCRelaxNGParserCtxtPtr ctxt, const xmlChar *str) { - if ((str == ctxt->key_attribute) || - (str == ctxt->key_default) || - (str == ctxt->key_datatypes) || - (str == ctxt->key_div) || - (str == ctxt->key_element) || - (str == ctxt->key_empty) || - (str == ctxt->key_external) || - (str == ctxt->key_grammar) || - (str == ctxt->key_include) || - (str == ctxt->key_inherit) || - (str == ctxt->key_list) || - (str == ctxt->key_mixed) || - (str == ctxt->key_namespace) || - (str == ctxt->key_notAllowed) || - (str == ctxt->key_parent) || - (str == ctxt->key_start) || - (str == ctxt->key_string) || - (str == ctxt->key_text) || - (str == ctxt->key_token)) - return(1); - return(0); - -} - -/* - * xmlCRNGNextToken: - * ctxt: a compact RNG parser context - * - * Scan the schema to get the next token - * - * Return 0 if success and -1 in case of error - */ - -static int -xmlCRNGNextToken(xmlCRelaxNGParserCtxtPtr ctxt) { - const xmlChar *cur; - tokenPtr token; - - if (ctxt == NULL) return(-1); - if (ctxt->nbTokens >= MAX_TOKEN) return(-1); - token = &(ctxt->tokens[(ctxt->firstToken + ctxt->nbTokens) % MAX_TOKEN]); - token->toktype = CRNG_NONE; - - if (ctxt->cur == NULL) { - ctxt->cur = ctxt->compact; - } -retry: - if (ctxt->cur >= ctxt->end) { - ctxt->state = XML_CRNG_EOF; - return(-1); - } - while ((ctxt->cur < ctxt->end) && - (IS_BLANK(*ctxt->cur))) ctxt->cur++; - if (ctxt->cur >= ctxt->end) { - ctxt->state = XML_CRNG_EOF; - return(-1); - } - if (*ctxt->cur == '#') { - cur = ctxt->cur; - cur++; - while ((cur < ctxt->end) && (*cur != '\n') && (*cur != '\r')) - cur++; - ctxt->cur = cur; - goto retry; - } else if (*ctxt->cur == '"') { - /* string, check for '"""' */ - ctxt->cur++; - if (ctxt->cur >= ctxt->end) goto eof; - cur = ctxt->cur; - if ((ctxt->end - ctxt->end > 2) && - (*cur == '"') && (cur[1] == '"')) { - TODO - } else { - while ((cur < ctxt->end) && (*cur != '"')) cur++; - if (cur >= ctxt->end) goto eof; - token->toklen = cur - ctxt->cur; - token->token = xmlDictLookup(ctxt->dict, ctxt->cur, token->toklen); - token->toktype = CRNG_LITERAL_SEGMENT; - token->prefix = NULL; - cur++; - ctxt->cur = cur; - } - } else if (*ctxt->cur == '\'') { - /* string, check for "'''" */ - TODO - } else if ((IS_OP(*ctxt->cur)) || (*ctxt->cur == ':')) { - cur = ctxt->cur; - cur++; - if ((cur < ctxt->end) && - (((*cur == '=') && - ((*ctxt->cur == '|') || (*ctxt->cur == '&'))) || - ((*cur == '*') && (*ctxt->cur == ':')))) { - token->toklen = 2; - } else { - token->toklen = 1; - } - token->token = xmlDictLookup(ctxt->dict, ctxt->cur, token->toklen); - token->toktype = CRNG_OP; - token->prefix = NULL; - ctxt->cur += token->toklen; - } else { - int escape = 0; - - cur = ctxt->cur; - if (*cur == '\\') { - escape = 1; - cur++; - ctxt->cur++; - } - while ((cur < ctxt->end) && - (!(IS_SEPARATOR(*cur))) && (!(IS_OP(*cur)))) cur++; - - token->toklen = cur - ctxt->cur; - token->token = xmlDictLookup(ctxt->dict, ctxt->cur, token->toklen); - token->prefix = NULL; - ctxt->cur = cur; - if ((escape == 0) && (xmlCRNGIsKeyword(ctxt, token->token))) - token->toktype = CRNG_KEYWORD; - else { - token->toktype = CRNG_IDENTIFIER; - } - if (*ctxt->cur == ':') { - ctxt->cur++; - if (*ctxt->cur == '*') { - ctxt->cur++; - token->toktype = CRNG_NSNAME; - } else { - cur = ctxt->cur; - while ((cur < ctxt->end) && - (!(IS_SEPARATOR(*cur))) && (!(IS_OP(*cur)))) cur++; - token->prefix = token->token; - token->toklen = cur - ctxt->cur; - token->token = xmlDictLookup(ctxt->dict, ctxt->cur, - token->toklen); - ctxt->cur = cur; - if (xmlValidateNCName(token->token, 0) == 0) - token->toktype = CRNG_QNAME; - else { - TODO /* sounds like an error ! */ - token->toktype = CRNG_IDENTIFIER; - } - } - } - } - ctxt->nbTokens++; - return(0); -eof: - ctxt->state = XML_CRNG_EOF; - CRNG_ERROR(CRNG_END_ERROR); - return(-1); -} - -/** - * xmlParseCRNGGetToken: - * @ctxt: a compact RNG parser context - * @no: the number of the token from 1 for the first one - * and 2, 3 ... for read-ahead - * - * Token reading interface - * - * returns a pointer to the new token, or NULL in case of error or EOF - */ -static tokenPtr -xmlParseCRNGGetToken(xmlCRelaxNGParserCtxtPtr ctxt, int no) { - tokenPtr ret; - int res; - - if ((no <= 0) || (no >= MAX_TOKEN)) return(NULL); - no--; - while (ctxt->nbTokens <= no) { - res = xmlCRNGNextToken(ctxt); - if (res < 0) - return(NULL); - } - ret = &(ctxt->tokens[(ctxt->firstToken + no) % MAX_TOKEN]); - return(ret); -} - -/** - * xmlParseCRNGDropTokens: - * @ctxt: a compact RNG parser context - * @nr: the number of token marked as read - * - * mark a number of token as read and consumed. - * - * Returns -1 in case of error and 0 otherwise - */ -static int -xmlParseCRNGDropTokens(xmlCRelaxNGParserCtxtPtr ctxt, int nr) { - if ((nr <= 0) || (nr >= MAX_TOKEN)) return(-1); - while ((ctxt->nbTokens >0) && (nr > 0)) { - ctxt->firstToken++; - nr--; - ctxt->nbTokens--; - ctxt->totalToken++; - if (ctxt->totalToken == 384) - fprintf(stderr, "found\n"); - } - ctxt->firstToken = ctxt->firstToken % MAX_TOKEN; - return(0); -} - -static void -xmlParseCRNGTokenize(xmlCRelaxNGParserCtxtPtr ctxt) { - tokenPtr token; - - token = xmlParseCRNGGetToken(ctxt, 1); - while (token != NULL) { - switch (token->toktype) { - case CRNG_NONE: printf("none"); break; - case CRNG_OP: printf("op"); break; - case CRNG_KEYWORD: printf("keyword"); break; - case CRNG_IDENTIFIER: printf("identifier"); break; - case CRNG_LITERAL_SEGMENT: printf("literal"); break; - case CRNG_CNAME: printf("cname"); break; - case CRNG_QNAME: printf("qname"); break; - case CRNG_NSNAME: printf("nsname"); break; - case CRNG_DOCUMENTATION: printf("doc"); break; - } - printf(":%s\n", token->token); - xmlParseCRNGDropTokens(ctxt, 1); - token = xmlParseCRNGGetToken(ctxt, 1); - } -} - -/** - * xmlParseCRNG_attribute: - * @ctxt: a compact RNG parser context - * @name: the attribute name - * @ns: the attribute namespace - * @value: the attribute value - * - * implements attribute of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_attribute(xmlCRelaxNGParserCtxtPtr ctxt, - const xmlChar *name, - xmlNsPtr ns, - const xmlChar *value) -{ - xmlAttrPtr attr; - - attr = xmlNewNsPropEatName(NULL, ns, (xmlChar *) name, value); - if (attr == NULL) CRNG_MEM_ERROR0(); - attr->next = ctxt->attrs; - if (ctxt->attrs != NULL) - ctxt->attrs->prev = attr; - ctxt->attrs = attr; - return(0); -} - -/** - * xmlParseCRNG_bindPrefix: - * @ctxt: a compact RNG parser context - * @prefix: the namespace prefix or NULL - * @namespace: the namespace name - * - * implements bindPrefix of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_bindPrefix(xmlCRelaxNGParserCtxtPtr ctxt, - const xmlChar *prefix, - const xmlChar *namespace) -{ - int ret; - - if ((prefix != NULL) && (xmlStrEqual(prefix, BAD_CAST "xml")) && - (!xmlStrEqual(namespace, XML_XML_NAMESPACE))) { - ERROR("The \"xml\" prefix must be bound to \"http://www.w3.org/XML/1998/namespace\""); - return(-1); - } else if ((xmlStrEqual(namespace, XML_XML_NAMESPACE)) && - (!xmlStrEqual(prefix, BAD_CAST "xml"))) { - ERROR("The \"http://www.w3.org/XML/1998/namespace\" name must be bound to \"xml\" prefix"); - return(-1); - } - if (ctxt->namespaces == NULL) - ctxt->namespaces = xmlHashCreate(10); - if (ctxt->namespaces == NULL) { - ERROR("Failed to create namespace hash table"); - return(-1); - } - if (prefix == NULL) - ret = xmlHashAddEntry(ctxt->namespaces, xmlCRelaxNGDefault, - (void *) namespace); - else - ret = xmlHashAddEntry(ctxt->namespaces, prefix, - (void *) namespace); - if (ret < 0) { - if (prefix == NULL) { - ERROR("Redefinition of default namespace"); - } else { - ERROR("Redefinition of namespace"); - } - return(-1); - } - - return(0); -} - -/** - * xmlParseCRNG_bindDatatypePrefix: - * @ctxt: a compact RNG parser context - * @prefix: the datatype prefix - * @namespace: the datatype identifier - * - * implements bindDatatypePrefix of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_bindDatatypePrefix(xmlCRelaxNGParserCtxtPtr ctxt ATTRIBUTE_UNUSED, - const xmlChar *prefix, - const xmlChar *namespace) -{ - int ret; - - if ((prefix != NULL) && (xmlStrEqual(prefix, BAD_CAST "xsd")) && - (!xmlStrEqual(namespace, - BAD_CAST "http://www.w3.org/2001/XMLSchema-datatypes"))) { - ERROR("The \"xsd\" prefix must be bound to \"http://www.w3.org/2001/XMLSchema-datatypes\""); - return(-1); - } - if (ctxt->datatypes == NULL) - ctxt->datatypes = xmlHashCreate(10); - if (ctxt->datatypes == NULL) { - ERROR("Failed to create namespace hash table"); - return(-1); - } - ret = xmlHashAddEntry(ctxt->datatypes, prefix, - (void *) namespace); - if (ret < 0) { - ERROR("Redefinition of datatype"); - return(-1); - } - return(0); -} - -/** - * xmlParseCRNG_lookupPrefix: - * @ctxt: a compact RNG parser context - * @prefix: the namespace prefix or NULL - * - * implements lookupPrefix of the RELAX NG Compact Syntax Appendix A - * - * Returns the prefix in case of success or NULL in case of error - */ -static const xmlChar * -xmlParseCRNG_lookupPrefix(xmlCRelaxNGParserCtxtPtr ctxt ATTRIBUTE_UNUSED, - const xmlChar *prefix) -{ - const xmlChar *ret; - - if (prefix == NULL) - ret = xmlHashLookup(ctxt->namespaces, xmlCRelaxNGDefault); - else - ret = xmlHashLookup(ctxt->namespaces, prefix); - return(ret); -} - -/** - * xmlParseCRNG_lookupDatatypePrefix: - * @ctxt: a compact RNG parser context - * @prefix: the namespace prefix or NULL - * - * implements lookupDatatypePrefix of the RELAX NG Compact Syntax Appendix A - * - * Returns the prefix in case of success or NULL in case of error - */ -static const xmlChar * -xmlParseCRNG_lookupDatatypePrefix(xmlCRelaxNGParserCtxtPtr ctxt ATTRIBUTE_UNUSED, - const xmlChar *prefix) -{ - const xmlChar *ret; - ret = xmlHashLookup(ctxt->datatypes, prefix); - return(ret); -} - -/** - * xmlParseCRNG_datatypeAttributes: - * @ctxt: a compact RNG parser context - * @prefix: the namespace prefix or NULL - * - * implements lookupPrefix of the RELAX NG Compact Syntax Appendix A - * - * Returns the prefix in case of success or NULL in case of error - */ -static xmlAttrPtr -xmlParseCRNG_datatypeAttributes(xmlCRelaxNGParserCtxtPtr ctxt ATTRIBUTE_UNUSED, - const xmlChar *library, const xmlChar *type) -{ - xmlAttrPtr lib, typ; - - lib = xmlNewNsProp(NULL, NULL, BAD_CAST "datatypeLibrary", library); - if (lib == NULL) { - CRNG_MEM_ERROR(); - return(NULL); - } - typ = xmlNewNsProp(NULL, NULL, BAD_CAST "type", type); - if (typ == NULL) { - CRNG_MEM_ERROR(); - return(lib); - } - lib->next = typ; - - return(lib); -} - -/** - * xmlParseCRNG_XXX: - * @ctxt: a compact RNG parser context - * - * Parse XXX of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_XXX(xmlCRelaxNGParserCtxtPtr ctxt ATTRIBUTE_UNUSED) -{ - return(0); -} - -static int xmlParseCRNG_pattern(xmlCRelaxNGParserCtxtPtr ctxt); -static int xmlParseCRNG_nameClass(xmlCRelaxNGParserCtxtPtr ctxt); - -/** - * xmlParseCRNG_params: - * @ctxt: a compact RNG parser context - * - * Parse params of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_params(xmlCRelaxNGParserCtxtPtr ctxt ATTRIBUTE_UNUSED) -{ - TODO - return(0); -} - -/** - * xmlParseCRNG_exceptNameClass: - * @ctxt: a compact RNG parser context - * - * Parse exceptNameClass of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_exceptNameClass(xmlCRelaxNGParserCtxtPtr ctxt ATTRIBUTE_UNUSED) -{ - tokenPtr token; - xmlNodePtr insert = ctxt->insert, cur; - - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype == CRNG_OP) && - (token->token[0] == '-') && (token->token[1] == 0)) { - xmlParseCRNGDropTokens(ctxt, 1); - cur = xmlNewNode(NULL, BAD_CAST "except"); - if (cur == NULL) CRNG_MEM_ERROR0(); - if (ctxt->insert != NULL) - xmlAddChild(ctxt->insert, cur); - ctxt->insert = cur; - xmlParseCRNG_nameClass(ctxt); - } - ctxt->insert = insert; - return(0); -} - -/** - * xmlParseCRNG_innerNameClass: - * @ctxt: a compact RNG parser context - * - * Parse innerNameClass of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_innerNameClass(xmlCRelaxNGParserCtxtPtr ctxt) -{ - tokenPtr token; - xmlNodePtr cur; - - token = xmlParseCRNGGetToken(ctxt, 1); - if (token->toktype == CRNG_OP) { - if ((token->token[0] == '(') && (token->token[1] == 0)) { - xmlParseCRNGDropTokens(ctxt, 1); - xmlParseCRNG_nameClass(ctxt); - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype != CRNG_OP) || - (token->token[0] != ')') || (token->token[1] != 0)) { - ERROR("Expecting \")\" here"); - } - xmlParseCRNGDropTokens(ctxt, 1); - } else if ((token->token[0] == '*') && (token->token[1] == 0)) { - xmlParseCRNGDropTokens(ctxt, 1); - cur = xmlNewNode(NULL, BAD_CAST "anyName"); - if (cur == NULL) CRNG_MEM_ERROR0(); - if (ctxt->insert != NULL) - xmlAddChild(ctxt->insert, cur); - ctxt->insert = cur; - xmlParseCRNG_exceptNameClass(ctxt); - } else { - TODO - } - } else if ((token->toktype == CRNG_IDENTIFIER) || - (token->toktype == CRNG_KEYWORD)) { - cur = xmlNewNode(NULL, BAD_CAST "name"); - if (cur == NULL) CRNG_MEM_ERROR0(); - if (ctxt->isElem) { - xmlSetProp(cur, BAD_CAST "ns", - xmlParseCRNG_lookupPrefix(ctxt, NULL)); - } else { - xmlSetProp(cur, BAD_CAST "ns", BAD_CAST ""); - } - xmlNodeAddContent(cur, token->token); - if (ctxt->insert != NULL) - xmlAddChild(ctxt->insert, cur); - ctxt->insert = cur; - xmlParseCRNGDropTokens(ctxt, 1); - } else if (token->toktype == CRNG_CNAME) { - TODO - } else if (token->toktype == CRNG_NSNAME) { - cur = xmlNewNode(NULL, BAD_CAST "nsName"); - if (cur == NULL) CRNG_MEM_ERROR0(); - xmlSetProp(cur, BAD_CAST "ns", - xmlParseCRNG_lookupPrefix(ctxt, token->token)); - if (ctxt->insert != NULL) - xmlAddChild(ctxt->insert, cur); - ctxt->insert = cur; - xmlParseCRNGDropTokens(ctxt, 1); - xmlParseCRNG_exceptNameClass(ctxt); - } else { - TODO /* probably an error */ - } - - return(0); -} - -/** - * xmlParseCRNG_nameClass: - * @ctxt: a compact RNG parser context - * - * Parse nameClass of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_nameClass(xmlCRelaxNGParserCtxtPtr ctxt) -{ - tokenPtr token; - xmlNodePtr insert = ctxt->insert, last, choice; - - ctxt->insert = NULL; - xmlParseCRNG_innerNameClass(ctxt); - last = ctxt->insert; - token = xmlParseCRNGGetToken(ctxt, 1); - while ((token->toktype == CRNG_OP) && - (token->token[0] == '|') && (token->token[1] == 0)) { - choice = xmlNewNodeEatName(NULL, (xmlChar *) ctxt->key_choice); - xmlParseCRNGDropTokens(ctxt, 1); - if (choice == NULL) CRNG_MEM_ERROR0(); - ctxt->insert = NULL; - xmlParseCRNG_innerNameClass(ctxt); - xmlAddChild(choice, last); - xmlAddChild(choice, ctxt->insert); - last = choice; - token = xmlParseCRNGGetToken(ctxt, 1); - } - xmlAddChild(insert, last); - - ctxt->insert = insert; - return(0); -} - -/** - * xmlParseCRNG_patternBlock: - * @ctxt: a compact RNG parser context - * - * Parse a pattern block of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_patternBlock(xmlCRelaxNGParserCtxtPtr ctxt) -{ - tokenPtr token; - - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype != CRNG_OP) || - (token->token[0] != '{') || (token->token[1] != 0)) { - ERROR("Expecting \"{\" here"); - } - xmlParseCRNGDropTokens(ctxt, 1); - xmlParseCRNG_pattern(ctxt); - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype != CRNG_OP) || - (token->token[0] != '}') || (token->token[1] != 0)) { - ERROR("Expecting \"}\" here"); - } - xmlParseCRNGDropTokens(ctxt, 1); - return(0); -} - -/** - * xmlParseCRNG_datatype: - * @ctxt: a compact RNG parser context - * - * Parse datatype of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_datatype(xmlCRelaxNGParserCtxtPtr ctxt ATTRIBUTE_UNUSED) -{ - tokenPtr token; - xmlAttrPtr attrs = NULL; - - token = xmlParseCRNGGetToken(ctxt, 1); - if (token->toktype == CRNG_KEYWORD) { - if (token->token == ctxt->key_string) { - attrs = xmlParseCRNG_datatypeAttributes(ctxt, BAD_CAST "", - token->token); - xmlParseCRNGDropTokens(ctxt, 1); - } else if (token->token == ctxt->key_token) { - attrs = xmlParseCRNG_datatypeAttributes(ctxt, BAD_CAST "", - token->token); - xmlParseCRNGDropTokens(ctxt, 1); - } else { - TODO /* probably an error */ - } - } else if (token->toktype == CRNG_LITERAL_SEGMENT) { - ctxt->insert = xmlNewNode(NULL, BAD_CAST "value"); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - xmlNodeAddContent(ctxt->insert, token->token); - } else if (token->toktype == CRNG_QNAME) { - attrs = xmlParseCRNG_datatypeAttributes(ctxt, - xmlParseCRNG_lookupDatatypePrefix(ctxt, token->prefix), - token->token); - } else { - TODO - } - if (attrs != NULL) { - token = xmlParseCRNGGetToken(ctxt, 1); - if (token->toktype == CRNG_LITERAL_SEGMENT) { - ctxt->insert = xmlNewNode(NULL, BAD_CAST "value"); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) { - xmlFreePropList(attrs); - CRNG_MEM_ERROR0(); - } - ctxt->insert->properties = attrs; - xmlNodeAddContent(ctxt->insert, token->token); - } else if ((token->toktype == CRNG_OP) && - (token->token[0] == '{') && (token->token[0] == 0)) { - ctxt->insert = xmlNewNode(NULL, BAD_CAST "data"); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) { - xmlFreePropList(attrs); - CRNG_MEM_ERROR0(); - } - ctxt->insert->properties = attrs; - xmlParseCRNG_params(ctxt); - } else { - ctxt->insert = xmlNewNode(NULL, BAD_CAST "data"); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) { - xmlFreePropList(attrs); - CRNG_MEM_ERROR0(); - } - ctxt->insert->properties = attrs; - xmlNodeAddContent(ctxt->insert, token->token); - } - } - return(0); -} - -/** - * xmlParseCRNG_primary: - * @ctxt: a compact RNG parser context - * - * Parse primary of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_primary(xmlCRelaxNGParserCtxtPtr ctxt ATTRIBUTE_UNUSED) -{ - tokenPtr token; - - token = xmlParseCRNGGetToken(ctxt, 1); - if (token == NULL) - return(0); - if (token->toktype == CRNG_KEYWORD) { - if (token->token == ctxt->key_element) { - ctxt->insert = xmlNewNodeEatName(NULL, (xmlChar *) token->token); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - ctxt->isElem = 1; - xmlParseCRNG_nameClass(ctxt); - xmlParseCRNG_patternBlock(ctxt); - } else if (token->token == ctxt->key_attribute) { - ctxt->insert = xmlNewNodeEatName(NULL, (xmlChar *) token->token); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - ctxt->isElem = 0; - xmlParseCRNG_nameClass(ctxt); - xmlParseCRNG_patternBlock(ctxt); - } else if (token->token == ctxt->key_mixed) { - ctxt->insert = xmlNewNodeEatName(NULL, (xmlChar *) token->token); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - xmlParseCRNG_patternBlock(ctxt); - } else if (token->token == ctxt->key_list) { - ctxt->insert = xmlNewNodeEatName(NULL, (xmlChar *) token->token); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - xmlParseCRNG_patternBlock(ctxt); - } else if (token->token == ctxt->key_empty) { - ctxt->insert = xmlNewNodeEatName(NULL, (xmlChar *) token->token); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - } else if (token->token == ctxt->key_notAllowed) { - ctxt->insert = xmlNewNodeEatName(NULL, (xmlChar *) token->token); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - } else if (token->token == ctxt->key_text) { - ctxt->insert = xmlNewNodeEatName(NULL, (xmlChar *) token->token); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - } else if (token->token == ctxt->key_parent) { - ctxt->insert = xmlNewNodeEatName(NULL, (xmlChar *) token->token); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - TODO - } else if (token->token == ctxt->key_grammar) { - ctxt->insert = xmlNewNodeEatName(NULL, (xmlChar *) token->token); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - TODO - } else if (token->token == ctxt->key_external) { - ctxt->insert = xmlNewNode(NULL, BAD_CAST "externalRef"); - xmlParseCRNGDropTokens(ctxt, 1); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - TODO - } else { - TODO - } - } else if (token->toktype == CRNG_IDENTIFIER) { - ctxt->insert = xmlNewNodeEatName(NULL, (xmlChar *) ctxt->key_ref); - if (ctxt->insert == NULL) CRNG_MEM_ERROR0(); - xmlSetProp(ctxt->insert, BAD_CAST "name", token->token); - xmlParseCRNGDropTokens(ctxt, 1); - } else if (token->toktype == CRNG_QNAME) { - xmlParseCRNG_datatype(ctxt); - } else if (token->toktype == CRNG_LITERAL_SEGMENT) { - xmlParseCRNG_datatype(ctxt); - } else if ((token->toktype == CRNG_OP) && - (token->token[0] == '(') && (token->token[1] == 0)) { - xmlParseCRNGDropTokens(ctxt, 1); - xmlParseCRNG_pattern(ctxt); - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype != CRNG_OP) || - (token->token[0] != ')') || (token->token[1] != 0)) { - ERROR("Expecting \")\" here"); - } - xmlParseCRNGDropTokens(ctxt, 1); - } - return(0); -} - -/** - * xmlParseCRNG_particle: - * @ctxt: a compact RNG parser context - * - * Parse particle of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_particle(xmlCRelaxNGParserCtxtPtr ctxt) -{ - tokenPtr token; - xmlNodePtr insert = ctxt->insert, res, tmp = NULL; - - ctxt->insert = NULL; - xmlParseCRNG_primary(ctxt); - res = ctxt->insert; - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token != NULL) && (token->toktype == CRNG_OP)) { - if ((token->token[0] == '*') && (token->token[1] == 0)) { - tmp = xmlNewNode(NULL, BAD_CAST "zeroOrMore"); - if (tmp == NULL) CRNG_MEM_ERROR0(); - } else if ((token->token[0] == '+') && (token->token[1] == 0)) { - tmp = xmlNewNode(NULL, BAD_CAST "oneOrMore"); - if (tmp == NULL) CRNG_MEM_ERROR0(); - } else if ((token->token[0] == '?') && (token->token[1] == 0)) { - tmp = xmlNewNode(NULL, BAD_CAST "optional"); - if (tmp == NULL) CRNG_MEM_ERROR0(); - } - if (tmp != NULL) { - xmlAddChild(tmp, res); - res = tmp; - xmlParseCRNGDropTokens(ctxt, 1); - } - } - if (insert != NULL) { - xmlAddChild(insert, res); - ctxt->insert = insert; - } else - ctxt->insert = res; - return(0); -} - -/** - * xmlParseCRNG_pattern: - * @ctxt: a compact RNG parser context - * - * Parse pattern of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_pattern(xmlCRelaxNGParserCtxtPtr ctxt) -{ - tokenPtr token; - xmlNodePtr insert = ctxt->insert, prev, grp; - - ctxt->insert = NULL; - xmlParseCRNG_particle(ctxt); - prev = ctxt->insert; - token = xmlParseCRNGGetToken(ctxt, 1); - while ((prev != NULL) && (token != NULL) && (token->toktype == CRNG_OP)) { - if (token->token == ctxt->key_or) { - grp = xmlNewNodeEatName(NULL, (xmlChar *) ctxt->key_choice); - if (grp == NULL) CRNG_MEM_ERROR0(); - } else if (token->token == ctxt->key_and) { - grp = xmlNewNodeEatName(NULL, (xmlChar *) ctxt->key_interleave); - if (grp == NULL) CRNG_MEM_ERROR0(); - } else if (token->token == ctxt->key_comma) { - grp = xmlNewNodeEatName(NULL, (xmlChar *) ctxt->key_group); - if (grp == NULL) CRNG_MEM_ERROR0(); - } else - break; - xmlParseCRNGDropTokens(ctxt, 1); - ctxt->insert = NULL; - xmlParseCRNG_particle(ctxt); - xmlAddChild(grp, prev); - xmlAddChild(grp, ctxt->insert); - prev = grp; - token = xmlParseCRNGGetToken(ctxt, 1); - } - if (insert != NULL) { - xmlAddChild(insert, prev); - ctxt->insert = insert; - } else { - ctxt->insert = prev; - } - - return(0); -} - -/** - * xmlParseCRNG_component: - * @ctxt: a compact RNG parser context - * - * Parse component of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_component(xmlCRelaxNGParserCtxtPtr ctxt) -{ - tokenPtr token, tok2; - xmlNodePtr insert = ctxt->insert; - - token = xmlParseCRNGGetToken(ctxt, 1); - if (token == NULL) - return(0); - if (token->toktype == CRNG_KEYWORD) { - if (token->token == ctxt->key_start) { - xmlNodePtr start; - - start = xmlNewNodeEatName(NULL, (xmlChar *) ctxt->key_start); - if (start == NULL) CRNG_MEM_ERROR0(); - if (ctxt->insert != NULL) - xmlAddChild(ctxt->insert, start); - ctxt->insert = start; - xmlParseCRNGDropTokens(ctxt, 1); - token = xmlParseCRNGGetToken(ctxt, 1); - - if ((token->toktype == CRNG_OP) && - (token->token == ctxt->key_equal)) { - } else if ((token->toktype == CRNG_OP) && - (token->token == ctxt->key_orequal)) { - xmlParseCRNG_attribute(ctxt, ctxt->key_combine, NULL, - BAD_CAST "choice"); - } else if ((token->toktype == CRNG_OP) && - (token->token == ctxt->key_andequal)) { - xmlParseCRNG_attribute(ctxt, ctxt->key_combine, NULL, - BAD_CAST "interleave"); - } else { - ERROR("expecting \"=\" or \"&=\" or \"|=\" here") - return(-1); - } - start->properties = ctxt->attrs; - ctxt->attrs = NULL; - xmlParseCRNGDropTokens(ctxt, 1); - xmlParseCRNG_pattern(ctxt); - - } else if (token->token == ctxt->key_include) { - TODO - } else if (token->token == ctxt->key_div) { - TODO - } else { - return(-1); - } - } else if (token->toktype == CRNG_IDENTIFIER) { - xmlNodePtr define; - const xmlChar *identifier; - - identifier = token->token; - tok2 = xmlParseCRNGGetToken(ctxt, 2); - if ((tok2->toktype == CRNG_OP) && - (tok2->token == ctxt->key_equal)) { - } else if ((tok2->toktype == CRNG_OP) && - (tok2->token == ctxt->key_orequal)) { - xmlParseCRNG_attribute(ctxt, ctxt->key_combine, NULL, - BAD_CAST "choice"); - } else if ((tok2->toktype == CRNG_OP) && - (tok2->token == ctxt->key_andequal)) { - xmlParseCRNG_attribute(ctxt, ctxt->key_combine, NULL, - BAD_CAST "interleave"); - } else { - ERROR("expecting \"=\" or \"&=\" or \"|=\" here") - return(-1); - } - xmlParseCRNGDropTokens(ctxt, 2); - - define = xmlNewNodeEatName(NULL, (xmlChar *) ctxt->key_define); - if (define == NULL) CRNG_MEM_ERROR0(); - define->properties = ctxt->attrs; - ctxt->attrs = NULL; - xmlSetProp(define, BAD_CAST "name", identifier); - if (ctxt->insert != NULL) - xmlAddChild(ctxt->insert, define); - ctxt->insert = define; - xmlParseCRNG_pattern(ctxt); - } else { - return(-1); - } - ctxt->insert = insert; - return(0); -} - -/** - * xmlParseCRNG_grammar: - * @ctxt: a compact RNG parser context - * - * Parse grammar of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_grammar(xmlCRelaxNGParserCtxtPtr ctxt ATTRIBUTE_UNUSED) -{ - tokenPtr token; - int ret; - - token = xmlParseCRNGGetToken(ctxt, 1); - while (token != NULL) { - ret = xmlParseCRNG_component(ctxt); - if (ret != 0) - break; - token = xmlParseCRNGGetToken(ctxt, 1); - } - return(0); -} - -/** - * xmlParseCRNG_topLevelBody: - * @ctxt: a compact RNG parser context - * - * Parse topLevelBody of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_topLevelBody(xmlCRelaxNGParserCtxtPtr ctxt) -{ - tokenPtr token, tok2; - - token = xmlParseCRNGGetToken(ctxt, 1); - if (token->toktype == CRNG_KEYWORD) { - if ((token->token == ctxt->key_start) || - (token->token == ctxt->key_include) || - (token->token == ctxt->key_div)) { - xmlNodePtr grammar; - - grammar = xmlNewNodeEatName(NULL, (xmlChar *) ctxt->key_grammar); - if (grammar == NULL) CRNG_MEM_ERROR0(); - xmlDocSetRootElement(ctxt->doc, grammar); - ctxt->insert = grammar; - - xmlParseCRNG_grammar(ctxt); - } else { - xmlParseCRNG_pattern(ctxt); - } - } else { - tok2 = xmlParseCRNGGetToken(ctxt, 2); - if ((tok2->toktype == CRNG_OP) && - ((tok2->token == ctxt->key_equal) || - (tok2->token == ctxt->key_orequal) || - (tok2->token == ctxt->key_andequal))) { - xmlNodePtr grammar; - - grammar = xmlNewNodeEatName(NULL, (xmlChar *) ctxt->key_grammar); - if (grammar == NULL) CRNG_MEM_ERROR0(); - xmlDocSetRootElement(ctxt->doc, grammar); - ctxt->insert = grammar; - - xmlParseCRNG_grammar(ctxt); - } else { - xmlParseCRNG_pattern(ctxt); - } - } - return(0); -} - -/** - * xmlParseCRNG_namespacePrefix: - * @ctxt: a compact RNG parser context - * - * Parse namespacePrefix of the RELAX NG Compact Syntax Appendix A - * - * Returns the prefix or NULL in case of error - */ -static const xmlChar * -xmlParseCRNG_namespacePrefix(xmlCRelaxNGParserCtxtPtr ctxt) -{ - tokenPtr token; - const xmlChar *prefix = NULL; - - token = xmlParseCRNGGetToken(ctxt, 1); - if (token->toktype == CRNG_IDENTIFIER) { - prefix = token->token; - } else if (token->toktype == CRNG_OP) { - if ((token->token[0] == '=') && (token->token[1] == 0)) - return(NULL); - prefix = token->token; - } else { - ERROR("Expecting a namespace prefix"); - return(NULL); - } - xmlParseCRNGDropTokens(ctxt, 1); - - if (xmlStrEqual(prefix, BAD_CAST "xmlns")) { - ERROR("Namespace prefix \"xmlns\" is forbidden"); - } - return(prefix); -} - -/** - * xmlParseCRNG_decl: - * @ctxt: a compact RNG parser context - * - * Parse decl of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_decl(xmlCRelaxNGParserCtxtPtr ctxt) -{ - const xmlChar *prefix = NULL; - const xmlChar *namespace = NULL; - tokenPtr token; - - token = xmlParseCRNGGetToken(ctxt, 1); - if (token->toktype != CRNG_KEYWORD) return(-1); - if (token->token == ctxt->key_default) { - xmlParseCRNGDropTokens(ctxt, 1); - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype != CRNG_KEYWORD) || - (token->token != ctxt->key_namespace)) { - ERROR("Expecting keyword \"namespace\" after \"default\""); - } - xmlParseCRNGDropTokens(ctxt, 1); - prefix = xmlParseCRNG_namespacePrefix(ctxt); - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype != CRNG_OP) || - (token->token[0] != '=') || (token->token[1] != 0)) { - ERROR("Expecting keyword \"=\" here"); - } - xmlParseCRNGDropTokens(ctxt, 1); - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype == CRNG_KEYWORD) && - (token->token == ctxt->key_inherit)) { - namespace = xmlCRelaxNGInherit; - } else if (token->toktype == CRNG_LITERAL_SEGMENT) { - namespace = token->token; - } else { - ERROR("Expecting an URI or \"inherit\" value"); - } - xmlParseCRNGDropTokens(ctxt, 1); - if (namespace != NULL) { - if (prefix != NULL) - xmlParseCRNG_bindPrefix(ctxt, prefix, namespace); - xmlParseCRNG_bindPrefix(ctxt, NULL, namespace); - } - } else if (token->token == ctxt->key_namespace) { - xmlParseCRNGDropTokens(ctxt, 1); - prefix = xmlParseCRNG_namespacePrefix(ctxt); - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype != CRNG_OP) || - (token->token[0] != '=') || (token->token[1] != 0)) { - ERROR("Expecting keyword \"=\" here"); - } - xmlParseCRNGDropTokens(ctxt, 1); - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype == CRNG_KEYWORD) && - (token->token == ctxt->key_inherit)) { - namespace = xmlCRelaxNGInherit; - } else if (token->toktype == CRNG_LITERAL_SEGMENT) { - namespace = token->token; - } else { - ERROR("Expecting an URI or \"inherit\" value"); - } - xmlParseCRNGDropTokens(ctxt, 1); - if (namespace != NULL) - xmlParseCRNG_bindPrefix(ctxt, prefix, namespace); - } else if (token->token == ctxt->key_datatypes) { - xmlParseCRNGDropTokens(ctxt, 1); - - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype != CRNG_KEYWORD) && - (token->toktype != CRNG_IDENTIFIER)) { - ERROR("Expecting a datatype prefix identifier here"); - } else - prefix = token->token; - xmlParseCRNGDropTokens(ctxt, 1); - token = xmlParseCRNGGetToken(ctxt, 1); - if ((token->toktype != CRNG_OP) || - (token->token[0] != '=') || (token->token[1] != 0)) { - ERROR("Expecting keyword \"=\" here"); - } - xmlParseCRNGDropTokens(ctxt, 1); - token = xmlParseCRNGGetToken(ctxt, 1); - if (token->toktype == CRNG_LITERAL_SEGMENT) { - namespace = token->token; - } else { - ERROR("Expecting a literal value for the datatype identifier"); - } - xmlParseCRNGDropTokens(ctxt, 1); - if ((namespace != NULL) && (prefix != NULL)) - xmlParseCRNG_bindDatatypePrefix(ctxt, prefix, namespace); - } - - return(0); -} - -/** - * xmlParseCRNG_preamble: - * @ctxt: a compact RNG parser context - * - * Parse preamble of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_preamble(xmlCRelaxNGParserCtxtPtr ctxt) -{ - tokenPtr token; - - token = xmlParseCRNGGetToken(ctxt, 1); - while (token != NULL) { - if (token == NULL) return(-1); - if ((token->toktype == CRNG_KEYWORD) && - ((token->token == ctxt->key_default) || - (token->token == ctxt->key_namespace) || - (token->token == ctxt->key_datatypes))) { - xmlParseCRNG_decl(ctxt); - } else - break; - token = xmlParseCRNGGetToken(ctxt, 1); - } - return(0); -} - -/** - * xmlParseCRNG_topLevel: - * @ctxt: a compact RNG parser context - * - * Parse topLevel of the RELAX NG Compact Syntax Appendix A - * - * Returns 0 in case of success and -1 in case of error - */ -static int -xmlParseCRNG_topLevel(xmlCRelaxNGParserCtxtPtr ctxt) -{ - xmlParseCRNG_preamble(ctxt); - xmlParseCRNG_topLevelBody(ctxt); - return(0); -} - -/** - * xmlConvertCRNG: - * @schemas: pointer to the text of the compact schemas - * @len: length of the schemas in bytes (or 0) - * @encoding: encoding indicated by the context or NULL - * - * Compiles the schemas into the equivalent Relax-NG XML structure - * - * Returns the xmlDocPtr resulting from the compilation or - * NULL in case of error - */ -xmlDocPtr -xmlConvertCRNG(const char *schemas, int len, const char *encoding) { - struct _xmlCRelaxNGParserCtxt ctxt; - xmlDocPtr ret = NULL; - - if (schemas == NULL) return(NULL); - if (len <= 5) len = xmlStrlen((const unsigned char *) schemas); - if (len <= 0) return(NULL); - - memset(&ctxt, 0, sizeof(ctxt)); - ctxt.compact = (const unsigned char *) schemas; - ctxt.cur = (const unsigned char *) schemas; - ctxt.end = (const unsigned char *) &schemas[len]; - ctxt.dict = xmlDictCreate(); - if (ctxt.dict == NULL) - return(NULL); - ctxt.doc = xmlNewDoc(NULL); - if (ctxt.doc == NULL) { - xmlDictFree(ctxt.dict); - return(NULL); - } - ctxt.doc->dict = ctxt.dict; - xmlDictReference(ctxt.dict); - - ctxt.nbTokens = 0; - ctxt.firstToken = 0; - ctxt.key_attribute = xmlDictLookup(ctxt.dict, BAD_CAST "attribute", -1); - ctxt.key_default = xmlDictLookup(ctxt.dict, BAD_CAST "default", -1); - ctxt.key_datatypes = xmlDictLookup(ctxt.dict, BAD_CAST "datatypes", -1); - ctxt.key_div = xmlDictLookup(ctxt.dict, BAD_CAST "div", -1); - ctxt.key_element = xmlDictLookup(ctxt.dict, BAD_CAST "element", -1); - ctxt.key_empty = xmlDictLookup(ctxt.dict, BAD_CAST "empty", -1); - ctxt.key_external = xmlDictLookup(ctxt.dict, BAD_CAST "external", -1); - ctxt.key_grammar = xmlDictLookup(ctxt.dict, BAD_CAST "grammar", -1); - ctxt.key_include = xmlDictLookup(ctxt.dict, BAD_CAST "include", -1); - ctxt.key_inherit = xmlDictLookup(ctxt.dict, BAD_CAST "inherit", -1); - ctxt.key_list = xmlDictLookup(ctxt.dict, BAD_CAST "list", -1); - ctxt.key_mixed = xmlDictLookup(ctxt.dict, BAD_CAST "mixed", -1); - ctxt.key_namespace = xmlDictLookup(ctxt.dict, BAD_CAST "namespace", -1); - ctxt.key_notAllowed = xmlDictLookup(ctxt.dict, BAD_CAST "notAllowed", -1); - ctxt.key_parent = xmlDictLookup(ctxt.dict, BAD_CAST "parent", -1); - ctxt.key_start = xmlDictLookup(ctxt.dict, BAD_CAST "start", -1); - ctxt.key_string = xmlDictLookup(ctxt.dict, BAD_CAST "string", -1); - ctxt.key_text = xmlDictLookup(ctxt.dict, BAD_CAST "text", -1); - ctxt.key_token = xmlDictLookup(ctxt.dict, BAD_CAST "token", -1); - ctxt.key_equal = xmlDictLookup(ctxt.dict, BAD_CAST "=", 1); - ctxt.key_orequal = xmlDictLookup(ctxt.dict, BAD_CAST "|=", 2); - ctxt.key_andequal = xmlDictLookup(ctxt.dict, BAD_CAST "&=", 2); - ctxt.key_combine = xmlDictLookup(ctxt.dict, BAD_CAST "&=", 2); - ctxt.key_or = xmlDictLookup(ctxt.dict, BAD_CAST "|", 1); - ctxt.key_comma = xmlDictLookup(ctxt.dict, BAD_CAST ",", 1); - ctxt.key_and = xmlDictLookup(ctxt.dict, BAD_CAST "&", 1); - ctxt.key_choice = xmlDictLookup(ctxt.dict, BAD_CAST "choice", -1); - ctxt.key_group = xmlDictLookup(ctxt.dict, BAD_CAST "group", -1); - ctxt.key_interleave = xmlDictLookup(ctxt.dict, BAD_CAST "interleave", -1); - ctxt.key_ref = xmlDictLookup(ctxt.dict, BAD_CAST "ref", 3); - ctxt.key_define = xmlDictLookup(ctxt.dict, BAD_CAST "define", 6); - - /* xmlConvertCRNGTokenize(&ctxt); */ - xmlConvertCRNG_topLevel(&ctxt); - - xmlDictFree(ctxt.dict); - - ret = ctxt.doc; - return(ret); -} - -/** - * xmlConvertCRNGFile: - * @URL: URL or filename for the resource - * @encoding: encoding indicated by the context or NULL - * - * Compiles the schemas into the equivalent Relax-NG XML structure - * - * Returns the xmlDocPtr resulting from the compilation or - * NULL in case of error - */ -xmlDocPtr -xmlConvertCRNGFile(const char *URL, const char *encoding) { -} - -#ifdef STANDALONE -const xmlChar *schemas = -"# RELAX NG XML syntax specified in compact syntax.\n\ -\n\ -default namespace rng = \"http://relaxng.org/ns/structure/1.0\"\n\ -namespace local = \"\"\n\ -datatypes xsd = \"http://www.w3.org/2001/XMLSchema-datatypes\"\n\ -\n\ -start = pattern\n\ -\n\ -pattern =\n\ - element element { (nameQName | nameClass), (common & pattern+) }\n\ - | element attribute { (nameQName | nameClass), (common & pattern?) }\n\ - | element group|interleave|choice|optional\n\ - |zeroOrMore|oneOrMore|list|mixed { common & pattern+ }\n\ - | element ref|parentRef { nameNCName, common }\n\ - | element empty|notAllowed|text { common }\n\ - | element data { type, param*, (common & exceptPattern?) }\n\ - | element value { commonAttributes, type?, xsd:string }\n\ - | element externalRef { href, common }\n\ - | element grammar { common & grammarContent* }\n\ -\n\ -param = element param { commonAttributes, nameNCName, xsd:string }\n\ -\n\ -exceptPattern = element except { common & pattern+ }\n\ -\n\ -grammarContent =\n\ - definition\n\ - | element div { common & grammarContent* }\n\ - | element include { href, (common & includeContent*) }\n\ -\n\ -includeContent =\n\ - definition\n\ - | element div { common & includeContent* }\n\ -\n\ -definition =\n\ - element start { combine?, (common & pattern+) }\n\ - | element define { nameNCName, combine?, (common & pattern+) }\n\ -\n\ -combine = attribute combine { \"choice\" | \"interleave\" }\n\ -\n\ -nameClass =\n\ - element name { commonAttributes, xsd:QName }\n\ - | element anyName { common & exceptNameClass? }\n\ - | element nsName { common & exceptNameClass? }\n\ - | element choice { common & nameClass+ }\n\ -\n\ -exceptNameClass = element except { common & nameClass+ }\n\ -\n\ -nameQName = attribute name { xsd:QName }\n\ -nameNCName = attribute name { xsd:NCName }\n\ -href = attribute href { xsd:anyURI }\n\ -type = attribute type { xsd:NCName }\n\ -\n\ -common = commonAttributes, foreignElement*\n\ -\n\ -commonAttributes =\n\ - attribute ns { xsd:string }?,\n\ - attribute datatypeLibrary { xsd:anyURI }?,\n\ - foreignAttribute*\n\ -\n\ -foreignElement = element * - rng:* { (anyAttribute | text | anyElement)* }\n\ -foreignAttribute = attribute * - (rng:*|local:*) { text }\n\ -anyElement = element * { (anyAttribute | text | anyElement)* }\n\ -anyAttribute = attribute * { text }\n\ -"; - -int main(int argc ATTRIBUTE_UNUSED, char **argv ATTRIBUTE_UNUSED) { - xmlDocPtr res; - - res = xmlConvertCRNG(schemas, -1); - if (res != NULL) { - xmlDocFormatDump(stdout, res, 1); - xmlFreeDoc(res); - } - return(0); -} -#endif -#define bottom_rngparser -#include "elfgcchack.h" |