cql_transform_t cql_transform_create(void)
{
cql_transform_t ct = (cql_transform_t) xmalloc(sizeof(*ct));
ct->tok_cfg = yaz_tok_cfg_create();
ct->w = wrbuf_alloc();
ct->error = 0;
ct->addinfo = 0;
ct->entry = 0;
ct->nmem = nmem_create();
return ct;
}
int ccl_qual_field2(CCL_bibset bibset, const char *cp, const char *qual_name,
const char **addinfo)
{
yaz_tok_cfg_t yt = yaz_tok_cfg_create();
int type_ar[MAX_QUAL];
int value_ar[MAX_QUAL];
char *svalue_ar[MAX_QUAL];
char *attsets[MAX_QUAL];
int pair_no = 0;
char *type_str = 0;
int t;
yaz_tok_parse_t tp;
yaz_tok_cfg_single_tokens(yt, ",=");
tp = yaz_tok_parse_buf(yt, cp);
yaz_tok_cfg_destroy(yt);
*addinfo = 0;
t = yaz_tok_move(tp);
while (t == YAZ_TOK_STRING)
{
/* we don't know what lead is yet */
char *lead_str = xstrdup(yaz_tok_parse_string(tp));
const char *value_str = 0;
int type = 0, value = 0; /* indicates attribute value UNSET */
t = yaz_tok_move(tp);
if (t == ',')
{
/* full attribute spec: set, type = value */
/* lead is attribute set */
attsets[pair_no] = lead_str;
t = yaz_tok_move(tp);
if (t != YAZ_TOK_STRING)
{
*addinfo = "token expected";
goto out;
}
xfree(type_str);
type_str = xstrdup(yaz_tok_parse_string(tp));
if (yaz_tok_move(tp) != '=')
{
*addinfo = "= expected";
goto out;
}
}
else if (t == '=')
{
/* lead is attribute type */
/* attribute set omitted: type = value */
attsets[pair_no] = 0;
xfree(type_str);
type_str = lead_str;
}
else
{
/* lead is first of a list of qualifier aliaeses */
/* qualifier alias: q1 q2 ... */
char *qlist[10];
size_t i = 0;
qlist[i++] = lead_str;
while (t == YAZ_TOK_STRING)
{
if (i < sizeof(qlist)/sizeof(*qlist)-1)
qlist[i++] = xstrdup(yaz_tok_parse_string(tp));
t = yaz_tok_move(tp);
}
qlist[i] = 0;
yaz_tok_parse_destroy(tp);
ccl_qual_add_combi (bibset, qual_name, (const char **) qlist);
for (i = 0; qlist[i]; i++)
xfree(qlist[i]);
return 0;
}
while (1) /* comma separated attribute value list */
{
t = yaz_tok_move(tp);
/* must have a value now */
if (t != YAZ_TOK_STRING)
{
*addinfo = "value token expected";
goto out;
}
value_str = yaz_tok_parse_string(tp);
if (sscanf(type_str, "%d", &type) == 1)
;
else if (strlen(type_str) != 1)
{
*addinfo = "bad attribute type";
goto out;
}
else
{
switch (*type_str)
{
case 'u':
case 'U':
type = CCL_BIB1_USE;
break;
case 'r':
case 'R':
type = CCL_BIB1_REL;
if (!ccl_stricmp (value_str, "o"))
value = CCL_BIB1_REL_ORDER;
else if (!ccl_stricmp (value_str, "r"))
value = CCL_BIB1_REL_PORDER;
else if (!ccl_stricmp (value_str, "omiteq"))
value = CCL_BIB1_REL_OMIT_EQUALS;
break;
case 'p':
case 'P':
type = CCL_BIB1_POS;
break;
case 's':
case 'S':
type = CCL_BIB1_STR;
if (!ccl_stricmp (value_str, "pw"))
value = CCL_BIB1_STR_WP;
if (!ccl_stricmp (value_str, "al"))
value = CCL_BIB1_STR_AND_LIST;
if (!ccl_stricmp (value_str, "ol"))
value = CCL_BIB1_STR_OR_LIST;
if (!ccl_stricmp (value_str, "ag"))
value = CCL_BIB1_STR_AUTO_GROUP;
if (!ccl_stricmp (value_str, "sl"))
value = CCL_BIB1_STR_SPLIT_LIST;
break;
case 't':
case 'T':
type = CCL_BIB1_TRU;
if (!ccl_stricmp (value_str, "l"))
value = CCL_BIB1_TRU_CAN_LEFT;
else if (!ccl_stricmp (value_str, "r"))
value = CCL_BIB1_TRU_CAN_RIGHT;
else if (!ccl_stricmp (value_str, "b"))
value = CCL_BIB1_TRU_CAN_BOTH;
else if (!ccl_stricmp (value_str, "n"))
value = CCL_BIB1_TRU_CAN_NONE;
else if (!ccl_stricmp (value_str, "x"))
value = CCL_BIB1_TRU_CAN_REGEX;
else if (!ccl_stricmp (value_str, "z"))
value = CCL_BIB1_TRU_CAN_Z3958;
break;
case 'c':
case 'C':
type = CCL_BIB1_COM;
break;
}
}
if (type == 0)
{
/* type was not set in switch above */
*addinfo = "bad attribute type";
goto out;
}
type_ar[pair_no] = type;
if (value)
{
value_ar[pair_no] = value;
svalue_ar[pair_no] = 0;
}
else if (*value_str >= '0' && *value_str <= '9')
{
value_ar[pair_no] = atoi (value_str);
svalue_ar[pair_no] = 0;
}
else
{
value_ar[pair_no] = 0;
svalue_ar[pair_no] = xstrdup(value_str);
}
pair_no++;
if (pair_no == MAX_QUAL)
{
*addinfo = "too many attribute values";
goto out;
}
t = yaz_tok_move(tp);
if (t != ',')
break;
attsets[pair_no] = attsets[pair_no-1];
}
}
out:
xfree(type_str);
type_str = 0;
yaz_tok_parse_destroy(tp);
if (*addinfo)
{
int i;
for (i = 0; i<pair_no; i++)
{
xfree(attsets[i]);
xfree(svalue_ar[i]);
}
return -1;
}
ccl_qual_add_set(bibset, qual_name, pair_no, type_ar, value_ar, svalue_ar,
attsets);
return 0;
}
