static void tst2(void) { WRBUF w = wrbuf_alloc(); cql_transform_t ct = 0; const char *srcdir = getenv("srcdir"); if (srcdir) { wrbuf_puts(w, srcdir); wrbuf_puts(w, "/"); } wrbuf_puts(w, "../etc/pqf.properties"); ct = cql_transform_open_fname(wrbuf_cstr(w)); YAZ_CHECK(compare(ct, "@attr 1=4 abc", "dc.title=abc")); YAZ_CHECK(compare(ct, "@attr 1=4 @attr 4=108 abc", "dc.title=/exact abc")); YAZ_CHECK(compare(ct, "@attr 1=4 @attr 3=1 @attr 6=1 abc", "dc.title=abc")); YAZ_CHECK(compare(ct, "@attr 1=4 @attr 4=1 @attr 6=1 abc", "dc.title=abc")); YAZ_CHECK(compare(ct, "@attr 1=1016 abc", "abc")); YAZ_CHECK(compare(ct, "@attr 2=1 @attr 1=30 1980", "dc.date<1980")); YAZ_CHECK(compare(ct, "@attr 1=30 @attr 2=3 1980", "dc.date=1980")); YAZ_CHECK(compare(ct, "@attr 1=30 @attr 2=5 1980", "dc.date>1980")); YAZ_CHECK(compare(ct, "@attr 1=30 @attr 2=2 1980", "dc.date<=1980")); YAZ_CHECK(compare(ct, "@attr 1=30 @attr 2=4 1980", "dc.date>=1980")); YAZ_CHECK(compare(ct, "@attr 2=103 @attr 1=_ALLRECORDS 1", "cql.allRecords=1")); YAZ_CHECK(compare(ct, "@attr 1=500 abc", 0)); cql_transform_close(ct); wrbuf_destroy(w); }
static void tst2(void) { WRBUF w = wrbuf_alloc(); cql_transform_t ct = 0; const char *srcdir = getenv("srcdir"); if (srcdir) { wrbuf_puts(w, srcdir); wrbuf_puts(w, "/"); } wrbuf_puts(w, "../etc/pqf.properties"); ct = cql_transform_open_fname(wrbuf_cstr(w)); YAZ_CHECK(compare(ct, "@attr 1=4 abc", "dc.title=abc")); YAZ_CHECK(compare(ct, "@attr 1=4 @attr 4=108 abc", "dc.title=/exact abc")); YAZ_CHECK(compare(ct, "@attr 1=4 @attr 3=1 @attr 6=1 abc", "dc.title=abc")); YAZ_CHECK(compare(ct, "@attr 1=4 @attr 4=1 @attr 6=1 abc", "dc.title=abc")); YAZ_CHECK(compare(ct, "@attr 1=1016 abc", "abc")); /* Date tests */ YAZ_CHECK(compare(ct, "@attr 1=30 @attr 2=1 1980", "dc.date<1980")); YAZ_CHECK(compare(ct, "@attr 1=30 @attr 2=2 1980", "dc.date<=1980")); YAZ_CHECK(compare(ct, "@attr 1=30 @attr 2=3 1980", "dc.date=1980")); YAZ_CHECK(compare(ct, "@attr 1=30 @attr 2=4 1980", "dc.date>=1980")); YAZ_CHECK(compare(ct, "@attr 1=30 @attr 2=5 1980", "dc.date>1980")); YAZ_CHECK(compare(ct, "@and @attr 1=30 @attr 2=4 234 @attr 1=30 @attr 2=2 1990", "dc.date>=234 and dc.date<=1990")); /* Truncation */ YAZ_CHECK(compare(ct, "@attr 5=1 water", "water*")); YAZ_CHECK(compare(ct, "@attr 5=2 water", "*water")); YAZ_CHECK(compare(ct, "@attr 5=3 water", "*water*")); YAZ_CHECK(compare(ct, "@attr 5=100 water", "water")); YAZ_CHECK(compare(ct, "@attr 5=102 water", "water")); YAZ_CHECK(compare(ct, "@attr 5=104 water", "water")); YAZ_CHECK(compare(ct, "@attr 5=102 wat.*er", "wat*er")); YAZ_CHECK(compare(ct, "@attr 5=104 wat?er", "wat*er")); YAZ_CHECK(compare(ct, "@attr 5=102 wat.er", "wat?er")); YAZ_CHECK(compare(ct, "@attr 5=104 wat#er", "wat?er")); YAZ_CHECK(compare(ct, "@attr 5=102 wat?er", "wat\\?er")); YAZ_CHECK(compare(ct, "@attr 5=104 wat*er", "wat\\*er")); YAZ_CHECK(compare(ct, "@attr 5=102 wat#er", "wat#er")); /* \. is 'eaten' by PQF parser */ YAZ_CHECK(compare(ct, "@attr 5=102 wat\\.er", "wat?er")); /* Escape sequences */ /* note: escape sequences that survive after PQF parse below */ YAZ_CHECK(compare(ct, "@attr 5=102 wat\\\\?er", "wat\\?er")); YAZ_CHECK(compare(ct, "@attr 5=104 wat\\\\?er", "wat\\?er")); YAZ_CHECK(compare(ct, "@attr 5=102 wat\\\\*er", "wat\\*er")); YAZ_CHECK(compare(ct, "@attr 5=104 wat\\\\*er", "wat\\*er")); YAZ_CHECK(compare(ct, "wat\\\\#er", "wat#er")); YAZ_CHECK(compare(ct, "@attr 5=100 wat\\\\#er", "wat#er")); YAZ_CHECK(compare(ct, "@attr 5=102 wat\\\\#er", "wat#er")); YAZ_CHECK(compare(ct, "@attr 5=104 wat\\\\#er", "wat#er")); YAZ_CHECK(compare(ct, "@attr 5=102 wat\\\\.er", "wat.er")); YAZ_CHECK(compare(ct, "@attr 5=104 wat\\\\.er", "wat.er")); /* Quoting */ YAZ_CHECK(compare(ct, "@attr 5=100 \"\"", "\"\"")); YAZ_CHECK(compare(ct, "@attr 5=1 \"\"", "\"*\"")); YAZ_CHECK(compare(ct, "@attr 5=2 \"\"", "\"*\"")); YAZ_CHECK(compare(ct, "@attr 5=3 \"\"", "\"**\"")); YAZ_CHECK(compare(ct, "@attr 5=102 \"\"", "\"\"")); YAZ_CHECK(compare(ct, "@attr 5=104 \"\"", "\"\"")); YAZ_CHECK(compare(ct, "@attr 5=1 \"water basket\"", "\"water basket*\"")); YAZ_CHECK(compare(ct, "@attr 5=2 \"water basket\"", "\"*water basket\"")); YAZ_CHECK(compare(ct, "@attr 5=3 \"water basket\"", "\"*water basket*\"")); /* Other */ YAZ_CHECK(compare(ct, "@attr 2=103 @attr 1=_ALLRECORDS 1", "cql.allRecords=1")); YAZ_CHECK(compare2(ct, "@attr 1=500 abc", 0, 114)); YAZ_CHECK(compare2(ct, "@attr 5=99 x", "99", 120)); cql_transform_close(ct); wrbuf_destroy(w); }
int main(int argc, char **argv) { cql_transform_t ct; int i, iterations = 1; char *query = 0; char *fname = 0; int reverse = 0; int ret; char *arg; while ((ret = options("n:r", argv, argc, &arg)) != -2) { switch (ret) { case 0: if (!fname) fname = arg; else query = arg; break; case 'r': reverse = 1; break; case 'n': iterations = atoi(arg); break; default: usage(); } } if (!fname) usage(); if (!strcmp(fname, "-")) ct = cql_transform_create(); else ct = cql_transform_open_fname(fname); if (!ct) { fprintf(stderr, "failed to read properties %s\n", fname); exit(1); } if (reverse) { if (!query) usage(); else { ODR odr = odr_createmem(ODR_ENCODE); YAZ_PQF_Parser pp = yaz_pqf_create(); Z_RPNQuery *rpn = yaz_pqf_parse(pp, odr, query); if (!rpn) { fprintf(stderr, "PQF syntax error\n"); } else { int ret = cql_transform_rpn2cql_stream(ct, cql_fputs, stdout, rpn); if (ret) { const char *addinfo; int r = cql_transform_error(ct, &addinfo); printf("Transform error %d %s\n", r, addinfo ? addinfo : ""); } else printf("\n"); } yaz_pqf_destroy(pp); odr_destroy(odr); } } else { CQL_parser cp = cql_parser_create(); int r = 0; if (query) { for (i = 0; i<iterations; i++) r = cql_parser_string(cp, query); } else r = cql_parser_stdio(cp, stdin); if (r) fprintf(stderr, "Syntax error\n"); else { r = cql_transform_FILE(ct, cql_parser_result(cp), stdout); printf("\n"); if (r) { const char *addinfo; r = cql_transform_error(ct, &addinfo); printf("Transform error %d %s\n", r, addinfo ? addinfo : ""); } else { FILE *null = fopen("/dev/null", "w"); for (i = 1; i<iterations; i++) cql_transform_FILE(ct, cql_parser_result(cp), null); fclose(null); } } cql_parser_destroy(cp); } cql_transform_close(ct); return 0; }
static void xml_config_read(void) { struct gfs_server **gfsp = &gfs_server_list; struct gfs_listen **gfslp = &gfs_listen_list; xmlNodePtr ptr = xml_config_get_root(); if (!ptr) return; for (ptr = ptr->children; ptr; ptr = ptr->next) { struct _xmlAttr *attr; if (ptr->type != XML_ELEMENT_NODE) continue; attr = ptr->properties; if (!strcmp((const char *) ptr->name, "listen")) { /* <listen id="listenerid">tcp:@:9999</listen> */ const char *id = 0; const char *address = nmem_dup_xml_content(gfs_nmem, ptr->children); for ( ; attr; attr = attr->next) if (!xmlStrcmp(attr->name, BAD_CAST "id") && attr->children && attr->children->type == XML_TEXT_NODE) id = nmem_dup_xml_content(gfs_nmem, attr->children); if (address) { *gfslp = gfs_listen_new(id, address); gfslp = &(*gfslp)->next; *gfslp = 0; /* make listener list consistent for search */ } } else if (!strcmp((const char *) ptr->name, "server")) { xmlNodePtr ptr_server = ptr; xmlNodePtr ptr; const char *listenref = 0; const char *id = 0; struct gfs_server *gfs; for ( ; attr; attr = attr->next) if (!xmlStrcmp(attr->name, BAD_CAST "listenref") && attr->children && attr->children->type == XML_TEXT_NODE) listenref = nmem_dup_xml_content(gfs_nmem, attr->children); else if (!xmlStrcmp(attr->name, BAD_CAST "id") && attr->children && attr->children->type == XML_TEXT_NODE) id = nmem_dup_xml_content(gfs_nmem, attr->children); else yaz_log(YLOG_WARN, "Unknown attribute '%s' for server", attr->name); gfs = *gfsp = gfs_server_new(); gfs->server_node_ptr = ptr_server; if (listenref) { int id_no; struct gfs_listen *gl = gfs_listen_list; for (id_no = 1; gl; gl = gl->next, id_no++) if (gl->id && !strcmp(gl->id, listenref)) { gfs->listen_ref = id_no; break; } if (!gl) yaz_log(YLOG_WARN, "Non-existent listenref '%s' in server " "config element", listenref); } for (ptr = ptr_server->children; ptr; ptr = ptr->next) { if (ptr->type != XML_ELEMENT_NODE) continue; if (!strcmp((const char *) ptr->name, "host")) { gfs->host = nmem_dup_xml_content(gfs_nmem, ptr->children); } else if (!strcmp((const char *) ptr->name, "config")) { strcpy(gfs->cb.configname, nmem_dup_xml_content(gfs_nmem, ptr->children)); } else if (!strcmp((const char *) ptr->name, "cql2rpn")) { gfs->cql_transform = cql_transform_open_fname( nmem_dup_xml_content(gfs_nmem, ptr->children) ); } else if (!strcmp((const char *) ptr->name, "ccl2rpn")) { char *name; FILE *f; name = nmem_dup_xml_content(gfs_nmem, ptr->children); if ((f = fopen(name, "r")) == 0) { yaz_log(YLOG_FATAL, "can't open CCL file '%s'", name); exit(1); } gfs->ccl_transform = ccl_qual_mk(); ccl_qual_file (gfs->ccl_transform, f); fclose(f); } else if (!strcmp((const char *) ptr->name, "directory")) { gfs->directory = nmem_dup_xml_content(gfs_nmem, ptr->children); } else if (!strcmp((const char *) ptr->name, "docpath")) { gfs->docpath = nmem_dup_xml_content(gfs_nmem, ptr->children); } else if (!strcmp((const char *) ptr->name, "maximumrecordsize")) { gfs->cb.maxrecordsize = atoi( nmem_dup_xml_content(gfs_nmem, ptr->children)); } else if (!strcmp((const char *) ptr->name, "stylesheet")) { char *s = nmem_dup_xml_content(gfs_nmem, ptr->children); gfs->stylesheet = (char *) nmem_malloc(gfs_nmem, strlen(s) + 2); sprintf(gfs->stylesheet, "/%s", s); } else if (!strcmp((const char *) ptr->name, "explain")) { ; /* being processed separately */ } else if (!strcmp((const char *) ptr->name, "retrievalinfo")) { if (yaz_retrieval_configure(gfs->retrieval, ptr)) { yaz_log(YLOG_FATAL, "%s in config %s", yaz_retrieval_get_error(gfs->retrieval), control_block.xml_config); exit(1); } } else { yaz_log(YLOG_FATAL, "Unknown element '%s' in config %s", ptr->name, control_block.xml_config); exit(1); } } gfsp = &(*gfsp)->next; } } *gfsp = 0; }