* Europagate, 1995
*
* $Log: cclfind.c,v $
- * Revision 1.11 1995/02/23 08:31:59 adam
+ * Revision 1.12 1995/03/20 15:27:43 adam
+ * Minor changes.
+ *
+ * Revision 1.11 1995/02/23 08:31:59 adam
* Changed header.
*
* Revision 1.9 1995/02/16 13:20:06 adam
struct ccl_rpn_node *ccl_find_str (CCL_bibset bibset, const char *str,
int *error, int *pos)
{
- struct ccl_token *list, *li;
+ struct ccl_token *list;
struct ccl_rpn_node *rpn;
const char *char_pos;
list = ccl_tokenize (str);
-#if 0
- for (li = list; li; li = li->next)
- printf ("kind=%d, str='%.*s'\n", li->kind, li->len, li->name);
-#endif
rpn = ccl_find (bibset, list, error, &char_pos);
if (*error)
*pos = char_pos - str;