X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=src%2Fcclqual.c;h=f771013225b3dcc461cd9ea48f000ac77202b944;hb=3b792849c676d96918850e2f1e0af87a75278501;hp=f187c5e00c706a24f13fe841e6cf6aa1c3665cc2;hpb=048b6fc3d9fca5ac8fad4943031db503170e928d;p=yaz-moved-to-github.git diff --git a/src/cclqual.c b/src/cclqual.c index f187c5e..f771013 100644 --- a/src/cclqual.c +++ b/src/cclqual.c @@ -48,7 +48,7 @@ /* CCL qualifiers * Europagate, 1995 * - * $Id: cclqual.c,v 1.7 2007-04-26 22:11:32 adam Exp $ + * $Id: cclqual.c,v 1.12 2007-05-06 20:12:20 adam Exp $ * * Old Europagate Log: * @@ -85,7 +85,8 @@ #include #include #include - +#include +#include #include "cclp.h" /** CCL Qualifier */ @@ -108,7 +109,7 @@ struct ccl_qualifiers { /** CCL Qualifier special */ struct ccl_qualifier_special { char *name; - char *value; + const char **values; struct ccl_qualifier_special *next; }; @@ -123,67 +124,68 @@ static struct ccl_qualifier *ccl_qual_lookup(CCL_bibset b, return q; } -/** \brief specifies special qualifier - \param bibset Bibset - \param n name of special (without leading @) - \param v value of special -*/ -void ccl_qual_add_special(CCL_bibset bibset, const char *n, const char *v) +void ccl_qual_add_special_ar(CCL_bibset bibset, const char *n, + const char **values) { struct ccl_qualifier_special *p; - const char *pe; - for (p = bibset->special; p && strcmp(p->name, n); p = p->next) ; if (p) - xfree(p->value); + { + if (p->values) + { + int i; + for (i = 0; p->values[i]; i++) + xfree((char *) p->values[i]); + xfree((char **)p->values); + } + } else { p = (struct ccl_qualifier_special *) xmalloc(sizeof(*p)); p->name = xstrdup(n); - p->value = 0; p->next = bibset->special; bibset->special = p; } - while (strchr(" \t", *v)) - ++v; - for (pe = v + strlen(v); pe != v; --pe) - if (!strchr(" \n\r\t", pe[-1])) - break; - p->value = (char*) xmalloc(pe - v + 1); - if (pe - v) - memcpy(p->value, v, pe - v); - p->value[pe - v] = '\0'; + p->values = values; } -static int next_token(const char **cpp, const char **dst) +void ccl_qual_add_special(CCL_bibset bibset, const char *n, const char *cp) { - int len = 0; - const char *cp = *cpp; - while (*cp && strchr(" \r\n\t\f", *cp)) - cp++; - if (dst) - *dst = cp; - len = 0; - while (*cp && !strchr(" \r\n\t\f", *cp)) + size_t no = 2; + char **vlist = (char **) xmalloc(no * sizeof(*vlist)); + yaz_tok_cfg_t yt = yaz_tok_cfg_create(); + int t; + size_t i = 0; + + yaz_tok_parse_t tp = yaz_tok_parse_buf(yt, cp); + + yaz_tok_cfg_destroy(yt); + + t = yaz_tok_move(tp); + while (t == YAZ_TOK_STRING) { - cp++; - len++; + if (i >= no-1) + vlist = (char **) xrealloc(vlist, (no = no * 2) * sizeof(*vlist)); + vlist[i++] = xstrdup(yaz_tok_parse_string(tp)); + t = yaz_tok_move(tp); } - *cpp = cp; - return len; + vlist[i] = 0; + ccl_qual_add_special_ar(bibset, n, (const char **) vlist); + + yaz_tok_parse_destroy(tp); } + /** \brief adds specifies qualifier aliases \param b bibset \param n qualifier name \param names list of qualifier aliases */ -void ccl_qual_add_combi(CCL_bibset b, const char *n, const char *names) +void ccl_qual_add_combi(CCL_bibset b, const char *n, const char **names) { - const char *cp, *cp1; - int i, len; + int i; struct ccl_qualifier *q; for (q = b->list; q && strcmp(q->name, n); q = q->next) ; @@ -195,17 +197,13 @@ void ccl_qual_add_combi(CCL_bibset b, const char *n, const char *names) q->next = b->list; b->list = q; - cp = names; - for (i = 0; next_token(&cp, 0); i++) + for (i = 0; names[i]; i++) ; q->no_sub = i; - q->sub = (struct ccl_qualifier **) xmalloc(sizeof(*q->sub) * - (1+q->no_sub)); - cp = names; - for (i = 0; (len = next_token(&cp, &cp1)); i++) - { - q->sub[i] = ccl_qual_lookup(b, cp1, len); - } + q->sub = (struct ccl_qualifier **) + xmalloc(sizeof(*q->sub) * (1+q->no_sub)); + for (i = 0; names[i]; i++) + q->sub[i] = ccl_qual_lookup(b, names[i], strlen(names[i])); } /** \brief adds specifies attributes for qualifier @@ -320,62 +318,74 @@ void ccl_qual_rm(CCL_bibset *b) { sp1 = sp->next; xfree(sp->name); - xfree(sp->value); + if (sp->values) + { + int i; + for (i = 0; sp->values[i]; i++) + xfree((char*) sp->values[i]); + xfree((char **)sp->values); + } xfree(sp); } xfree(*b); *b = NULL; } -/** \brief searches for qualifier attributes - \param cclp CCL parser - \param name qualifier name to for search (length given by len) - \param len length of name - \param seq attribute index (0=first, 1=second, ..) - \returns attribute or NULL if none is found -*/ -struct ccl_rpn_attr *ccl_qual_search(CCL_parser cclp, const char *name, - size_t len, int seq) +ccl_qualifier_t ccl_qual_search(CCL_parser cclp, const char *name, + size_t name_len, int seq) { - struct ccl_qualifier *q; - const char *aliases; + struct ccl_qualifier *q = 0; + const char **aliases; int case_sensitive = cclp->ccl_case_sensitive; ccl_assert(cclp); if (!cclp->bibset) - return NULL; + return 0; aliases = ccl_qual_search_special(cclp->bibset, "case"); if (aliases) - case_sensitive = atoi(aliases); + case_sensitive = atoi(aliases[0]); for (q = cclp->bibset->list; q; q = q->next) - if (strlen(q->name) == len) + if (strlen(q->name) == name_len) { if (case_sensitive) { - if (!memcmp(name, q->name, len)) + if (!memcmp(name, q->name, name_len)) break; } else { - if (!ccl_memicmp(name, q->name, len)) + if (!ccl_memicmp(name, q->name, name_len)) break; } } if (q) { - if (q->attr_list && seq == 0) - return q->attr_list; - if (seq < q->no_sub && q->sub[seq]) + if (q->no_sub) { - return q->sub[seq]->attr_list; + if (seq < q->no_sub) + q = q->sub[seq]; + else + q = 0; } + else if (seq) + q = 0; } - return 0; + return q; +} + +struct ccl_rpn_attr *ccl_qual_get_attr(ccl_qualifier_t q) +{ + return q->attr_list; +} + +const char *ccl_qual_get_name(ccl_qualifier_t q) +{ + return q->name; } -const char *ccl_qual_search_special(CCL_bibset b, const char *name) +const char **ccl_qual_search_special(CCL_bibset b, const char *name) { struct ccl_qualifier_special *q; if (!b) @@ -383,9 +393,34 @@ const char *ccl_qual_search_special(CCL_bibset b, const char *name) for (q = b->special; q && strcmp(q->name, name); q = q->next) ; if (q) - return q->value; + return q->values; return 0; } + +int ccl_search_stop(CCL_bibset bibset, const char *qname, + const char *src_str, size_t src_len) +{ + const char **slist = 0; + if (qname) + { + char qname_buf[80]; + yaz_snprintf(qname_buf, sizeof(qname_buf)-1, "stop.%s", + qname); + slist = ccl_qual_search_special(bibset, qname_buf); + } + if (!slist) + slist = ccl_qual_search_special(bibset, "stop.*"); + if (slist) + { + int i; + for (i = 0; slist[i]; i++) + if (src_len == strlen(slist[i]) + && ccl_memicmp(slist[i], src_str, src_len) == 0) + return 1; + } + return 0; +} + /* * Local variables: * c-basic-offset: 4