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);
}
cql_transform_t cql_transform_open_FILE(FILE *f)
{
cql_transform_t ct = cql_transform_create();
char line[1024];
yaz_tok_cfg_single_tokens(ct->tok_cfg, "=");
while (fgets(line, sizeof(line)-1, f))
{
yaz_tok_parse_t tp = yaz_tok_parse_buf(ct->tok_cfg, line);
int t;
wrbuf_rewind(ct->w);
t = yaz_tok_move(tp);
if (t == YAZ_TOK_STRING)
{
char * pattern = xstrdup(yaz_tok_parse_string(tp));
t = yaz_tok_move(tp);
if (t != '=')
{
yaz_tok_parse_destroy(tp);
cql_transform_close(ct);
return 0;
}
if (cql_transform_parse_tok_line(ct, pattern, tp))
{
yaz_tok_parse_destroy(tp);
cql_transform_close(ct);
return 0;
}
xfree(pattern);
}
else if (t != YAZ_TOK_EOF)
{
yaz_tok_parse_destroy(tp);
cql_transform_close(ct);
return 0;
}
yaz_tok_parse_destroy(tp);
}
return ct;
}
static void tst1(void)
{
cql_transform_t ct = cql_transform_create();
YAZ_CHECK(compare(ct, "abc", "abc"));
YAZ_CHECK(compare(ct, "\"a b c\"", "\"a b c\""));
YAZ_CHECK(compare(ct, "@and a b", "a and b"));
YAZ_CHECK(compare(ct, "@attr 1=field abc", "field=abc"));
YAZ_CHECK(compare(ct, "@attr 1=4 abc", 0)); /* should fail */
cql_transform_define_pattern(ct, "index.title", "1=4");
YAZ_CHECK(compare(ct, "@attr 1=4 abc", "title=abc"));
cql_transform_define_pattern(ct, "index.foo", "1=bar");
YAZ_CHECK(compare(ct, "@attr 1=bar abc", "foo=abc"));
cql_transform_close(ct);
}
static void tst1(void)
{
cql_transform_t ct = cql_transform_create();
YAZ_CHECK(compare(ct, "abc", "abc"));
YAZ_CHECK(compare(ct, "\"a b c\"", "\"a b c\""));
YAZ_CHECK(compare(ct, "@and a b", "a and b"));
YAZ_CHECK(compare(ct, "@or a @and b c", "a or (b and c)"));
YAZ_CHECK(compare(ct, "@or @and a b @and c d", "(a and b) or (c and d)"));
YAZ_CHECK(compare(ct, "@or @or a b @or c d", "(a or b) or (c or d)"));
YAZ_CHECK(compare(ct, "@and @and a b @and c d", "(a and b) and (c and d)"));
YAZ_CHECK(compare(ct, "@attr 1=field abc", "field=abc"));
YAZ_CHECK(compare2(ct, "@attr 1=4 abc", 0, 114)); /* should fail */
cql_transform_define_pattern(ct, "index.title", "1=4");
YAZ_CHECK(compare(ct, "@attr 1=4 abc", "title=abc"));
cql_transform_define_pattern(ct, "index.foo", "1=bar");
YAZ_CHECK(compare(ct, "@attr 1=bar abc", "foo=abc"));
cql_transform_close(ct);
}
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;
}
