free( (char *) array );
}
+/*
+ * Now come the parsers. There is one parser for each entity type:
+ * objectclasses, attributetypes, etc.
+ *
+ * Each of them is written as a recursive-descent parser, except that
+ * none of them is really recursive. But the idea is kept: there
+ * is one routine per non-terminal that eithers gobbles lexical tokens
+ * or calls lower-level routines, etc.
+ *
+ * The scanner is implemented in the routine get_token. Actually,
+ * get_token is more than a scanner and will return tokens that are
+ * in fact non-terminals in the grammar. So you can see the whole
+ * approach as the combination of a low-level bottom-up recognizer
+ * combined with a scanner and a number of top-down parsers. Or just
+ * consider that the real grammars recognized by the parsers are not
+ * those of the standards. As a matter of fact, our parsers are more
+ * liberal than the spec when there is no ambiguity.
+ *
+ * The difference is pretty academic (modulo bugs or incorrect
+ * interpretation of the specs).
+ */
+
#define TK_NOENDQUOTE -2
#define TK_OUTOFMEM -1
#define TK_EOS 0
while (**sp) {
if ( !isdigit(**sp) ) {
/* Initial char is not a digit or char after dot is not a digit */
- *code = SCHEMA_ERR_NODIGIT;
+ *code = LDAP_SCHERR_NODIGIT;
return NULL;
}
(*sp)++;
len = *sp - start;
res = malloc(len+1);
if (!res) {
- *code = SCHEMA_ERR_OUTOFMEM;
+ *code = LDAP_SCHERR_OUTOFMEM;
return(NULL);
}
strncpy(res,start,len);
size = 3;
res = calloc(3,sizeof(char *));
if ( !res ) {
- *code = SCHEMA_ERR_OUTOFMEM;
+ *code = LDAP_SCHERR_OUTOFMEM;
return NULL;
}
pos = 0;
res1 = realloc(res,size*sizeof(char *));
if ( !res1 ) {
charray_free(res);
- *code = SCHEMA_ERR_OUTOFMEM;
+ *code = LDAP_SCHERR_OUTOFMEM;
return(NULL);
}
res = res1;
parse_whsp(sp);
} else {
charray_free(res);
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
return(NULL);
}
}
} else if ( kind == TK_QDESCR ) {
res = calloc(2,sizeof(char *));
if ( !res ) {
- *code = SCHEMA_ERR_OUTOFMEM;
+ *code = LDAP_SCHERR_OUTOFMEM;
return NULL;
}
res[0] = sval;
parse_whsp(sp);
return res;
} else {
- *code = SCHEMA_ERR_BADNAME;
+ *code = LDAP_SCHERR_BADNAME;
return NULL;
}
}
parse_whsp(sp);
kind = get_token(sp, &sval);
if ( kind != TK_BAREWORD ) {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
return NULL;
}
parse_whsp(sp);
*len = 0;
kind = get_token(sp, &sval);
if ( kind != TK_BAREWORD ) {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
return NULL;
}
if ( **sp == '{' ) {
(*sp)++;
(*sp)++;
if ( **sp != '}' ) {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
ldap_memfree(sval);
return NULL;
}
size = 3;
res = calloc(3,sizeof(char *));
if ( !res ) {
- *code = SCHEMA_ERR_OUTOFMEM;
+ *code = LDAP_SCHERR_OUTOFMEM;
return NULL;
}
pos = 0;
res[pos] = sval;
pos++;
} else {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
charray_free(res);
return NULL;
}
res1 = realloc(res,size*sizeof(char *));
if ( !res1 ) {
charray_free(res);
- *code = SCHEMA_ERR_OUTOFMEM;
+ *code = LDAP_SCHERR_OUTOFMEM;
return(NULL);
}
res = res1;
res[pos] = sval;
pos++;
} else {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
charray_free(res);
return NULL;
}
parse_whsp(sp);
} else {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
charray_free(res);
return NULL;
}
} else if ( kind == TK_BAREWORD ) {
res = calloc(2,sizeof(char *));
if ( !res ) {
- *code = SCHEMA_ERR_OUTOFMEM;
+ *code = LDAP_SCHERR_OUTOFMEM;
return NULL;
}
res[0] = sval;
parse_whsp(sp);
return res;
} else {
- *code = SCHEMA_ERR_BADNAME;
+ *code = LDAP_SCHERR_BADNAME;
return NULL;
}
}
at = calloc(1,sizeof(LDAP_ATTRIBUTE_TYPE));
if ( !at ) {
- *code = SCHEMA_ERR_OUTOFMEM;
+ *code = LDAP_SCHERR_OUTOFMEM;
return NULL;
}
kind = get_token(&ss,&sval);
if ( kind != TK_LEFTPAREN ) {
- *code = SCHEMA_ERR_NOLEFTPAREN;
+ *code = LDAP_SCHERR_NOLEFTPAREN;
free_at(at);
return NULL;
}
kind = get_token(&ss,&sval);
switch (kind) {
case TK_EOS:
- *code = SCHEMA_ERR_NORIGHTPAREN;
+ *code = LDAP_SCHERR_NORIGHTPAREN;
*errp = ss;
free_at(at);
return NULL;
case TK_BAREWORD:
if ( !strcmp(sval,"NAME") ) {
if ( seen_name ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
seen_name = 1;
at->at_names = parse_qdescrs(&ss,code);
if ( !at->at_names ) {
- if ( *code != SCHEMA_ERR_OUTOFMEM )
- *code = SCHEMA_ERR_BADNAME;
+ if ( *code != LDAP_SCHERR_OUTOFMEM )
+ *code = LDAP_SCHERR_BADNAME;
*errp = ss;
free_at(at);
return NULL;
}
} else if ( !strcmp(sval,"DESC") ) {
if ( seen_desc ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
parse_whsp(&ss);
kind = get_token(&ss,&sval);
if ( kind != TK_QDSTRING ) {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
*errp = ss;
free_at(at);
return NULL;
parse_whsp(&ss);
} else if ( !strcmp(sval,"OBSOLETE") ) {
if ( seen_obsolete ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
parse_whsp(&ss);
} else if ( !strcmp(sval,"SUP") ) {
if ( seen_sup ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
}
} else if ( !strcmp(sval,"EQUALITY") ) {
if ( seen_equality ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
}
} else if ( !strcmp(sval,"ORDERING") ) {
if ( seen_ordering ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
}
} else if ( !strcmp(sval,"SUBSTR") ) {
if ( seen_substr ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
}
} else if ( !strcmp(sval,"SYNTAX") ) {
if ( seen_syntax ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
}
} else if ( !strcmp(sval,"SINGLE-VALUE") ) {
if ( at->at_single_value ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
parse_whsp(&ss);
} else if ( !strcmp(sval,"COLLECTIVE") ) {
if ( at->at_collective ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
parse_whsp(&ss);
} else if ( !strcmp(sval,"NO-USER-MODIFICATION") ) {
if ( at->at_no_user_mod ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
parse_whsp(&ss);
} else if ( !strcmp(sval,"USAGE") ) {
if ( seen_usage ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_at(at);
return(NULL);
parse_whsp(&ss);
kind = get_token(&ss,&sval);
if ( kind != TK_BAREWORD ) {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
*errp = ss;
free_at(at);
return NULL;
else if ( !strcasecmp(sval,"dSAOperation") )
at->at_usage = 3;
else {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
*errp = ss;
free_at(at);
return NULL;
}
} else {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
*errp = ss;
free_at(at);
return NULL;
}
break;
default:
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
*errp = ss;
free_at(at);
return NULL;
oc = calloc(1,sizeof(LDAP_OBJECT_CLASS));
if ( !oc ) {
- *code = SCHEMA_ERR_OUTOFMEM;
+ *code = LDAP_SCHERR_OUTOFMEM;
return NULL;
}
kind = get_token(&ss,&sval);
if ( kind != TK_LEFTPAREN ) {
- *code = SCHEMA_ERR_NOLEFTPAREN;
+ *code = LDAP_SCHERR_NOLEFTPAREN;
free_oc(oc);
return NULL;
}
kind = get_token(&ss,&sval);
switch (kind) {
case TK_EOS:
- *code = SCHEMA_ERR_NORIGHTPAREN;
+ *code = LDAP_SCHERR_NORIGHTPAREN;
*errp = ss;
free_oc(oc);
return NULL;
case TK_BAREWORD:
if ( !strcmp(sval,"NAME") ) {
if ( seen_name ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_oc(oc);
return(NULL);
seen_name = 1;
oc->oc_names = parse_qdescrs(&ss,code);
if ( !oc->oc_names ) {
- if ( *code != SCHEMA_ERR_OUTOFMEM )
- *code = SCHEMA_ERR_BADNAME;
+ if ( *code != LDAP_SCHERR_OUTOFMEM )
+ *code = LDAP_SCHERR_BADNAME;
*errp = ss;
free_oc(oc);
return NULL;
}
} else if ( !strcmp(sval,"DESC") ) {
if ( seen_desc ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_oc(oc);
return(NULL);
parse_whsp(&ss);
kind = get_token(&ss,&sval);
if ( kind != TK_QDSTRING ) {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
*errp = ss;
free_oc(oc);
return NULL;
parse_whsp(&ss);
} else if ( !strcmp(sval,"OBSOLETE") ) {
if ( seen_obsolete ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_oc(oc);
return(NULL);
parse_whsp(&ss);
} else if ( !strcmp(sval,"SUP") ) {
if ( seen_sup ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_oc(oc);
return(NULL);
}
} else if ( !strcmp(sval,"ABSTRACT") ) {
if ( seen_kind ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_oc(oc);
return(NULL);
parse_whsp(&ss);
} else if ( !strcmp(sval,"STRUCTURAL") ) {
if ( seen_kind ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_oc(oc);
return(NULL);
parse_whsp(&ss);
} else if ( !strcmp(sval,"AUXILIARY") ) {
if ( seen_kind ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_oc(oc);
return(NULL);
parse_whsp(&ss);
} else if ( !strcmp(sval,"MUST") ) {
if ( seen_must ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_oc(oc);
return(NULL);
parse_whsp(&ss);
} else if ( !strcmp(sval,"MAY") ) {
if ( seen_may ) {
- *code = SCHEMA_ERR_DUPOPT;
+ *code = LDAP_SCHERR_DUPOPT;
*errp = ss;
free_oc(oc);
return(NULL);
}
parse_whsp(&ss);
} else {
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
*errp = ss;
free_oc(oc);
return NULL;
}
break;
default:
- *code = SCHEMA_ERR_UNEXPTOKEN;
+ *code = LDAP_SCHERR_UNEXPTOKEN;
*errp = ss;
free_oc(oc);
return NULL;