X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=ccl%2Fcclfind.c;h=3fac8e5b03c9ea1a21e32a16dfe413e20c93b906;hb=c3d25c24fb405af98c6879fa7f5f619ccc895151;hp=9d1f1c02cc7fc09c7996b6042586851ca6e5d8cb;hpb=3f6af0f3aa9f114cf562c28f2ed0b954e4c5d659;p=egate.git

diff --git a/ccl/cclfind.c b/ccl/cclfind.c
index 9d1f1c0..3fac8e5 100644
--- a/ccl/cclfind.c
+++ b/ccl/cclfind.c
@@ -1,7 +1,13 @@
 /* CCL find (to rpn conversion)
  * Europagate, 1995
  *
- * cclfind.c,v
+ * $Log: cclfind.c,v $
+ * 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
  * Spell fix.
  *
@@ -570,15 +576,11 @@ struct ccl_rpn_node *ccl_find (CCL_bibset abibset, struct ccl_token *list,
 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;