+
+CCL_parser ccl_parser_create (void)
+{
+ CCL_parser p = malloc (sizeof(*p));
+ if (!p)
+ return p;
+ p->look_token = NULL;
+ p->error_code = 0;
+ p->error_pos = NULL;
+ p->bibset = NULL;
+
+ p->ccl_token_and = "and";
+ p->ccl_token_or = "or";
+ p->ccl_token_not = "not andnot";
+ p->ccl_token_set = "set";
+ p->ccl_case_sensitive = 1;
+
+ return p;
+}
+
+void ccl_parser_destroy (CCL_parser p)
+{
+ if (!p)
+ return;
+ free (p);
+}
+