From 2d09f19cb79b18ccf10b0150a8b1487fde498678 Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Wed, 15 Feb 1995 17:43:08 +0000
Subject: [PATCH] Minor changes to the ccl interface. Bug fix in iso2709
 module.

---
 include/ccl.h      |   16 ++++++++++++++--
 include/iso2709p.h |   13 +++++++++----
 2 files changed, 23 insertions(+), 6 deletions(-)

diff --git a/include/ccl.h b/include/ccl.h
index dacc22e..ce53b80 100644
--- a/include/ccl.h
+++ b/include/ccl.h
@@ -2,7 +2,10 @@
  * Europagate, 1995
  *
  * $Log: ccl.h,v $
- * Revision 1.1  1995/02/14 19:55:21  adam
+ * Revision 1.2  1995/02/15 17:43:08  adam
+ * Minor changes to the ccl interface. Bug fix in iso2709 module.
+ *
+ * Revision 1.1  1995/02/14  19:55:21  adam
  * Header files ccl.h/cclp.h are gone! They have been merged an
  * moved to ../include/ccl.h.
  *
@@ -128,15 +131,24 @@ struct ccl_token *ccl_tokenize (const char *command);
 
 struct ccl_rpn_node *ccl_find_str (CCL_bibset bibset,
                                    const char *str, int *error, int *pos);
+
+struct ccl_rpn_node *ccl_find (CCL_bibset abibset, struct ccl_token *list,
+                               int *error, const char **pos);
 char *ccl_err_msg (int ccl_errno);
 void ccl_rpn_delete (struct ccl_rpn_node *rpn);
-void ccl_pr_tree (struct ccl_rpn_node *rpn);
+void ccl_pr_tree (struct ccl_rpn_node *rpn, FILE *fd_out);
 
 void ccl_qual_add (CCL_bibset b, const char *name, int no, int *attr);
 void ccl_qual_file (CCL_bibset bibset, FILE *inf);
 CCL_bibset ccl_qual_mk (void);
 void ccl_qual_rm (CCL_bibset *b);
 
+extern const char *ccl_token_and;
+extern const char *ccl_token_or;
+extern const char *ccl_token_not;
+extern const char *ccl_token_set;
+
+
 struct ccl_rpn_attr *ccl_qual_search (CCL_bibset b, const char *name, int len);
 #endif
 
diff --git a/include/iso2709p.h b/include/iso2709p.h
index 3fd4558..b2a47ac 100644
--- a/include/iso2709p.h
+++ b/include/iso2709p.h
@@ -4,11 +4,14 @@
    Europagate, 1994-1995.
 
    $Log: iso2709p.h,v $
-   Revision 1.2  1995/02/10 16:50:26  adam
-   Indicator field moved to 'struct iso2709_dir' from 'struct
-   iso2709_field'.
-   Function iso2709_rm implemented - to delete a MARC record.
+   Revision 1.3  1995/02/15 17:43:08  adam
+   Minor changes to the ccl interface. Bug fix in iso2709 module.
 
+ * Revision 1.2  1995/02/10  16:50:26  adam
+ * Indicator field moved to 'struct iso2709_dir' from 'struct
+ * iso2709_field'.
+ * Function iso2709_rm implemented - to delete a MARC record.
+ *
  * Revision 1.1.1.1  1995/02/09  17:27:12  adam
  * Initial version of email gateway under CVS control.
  *
@@ -51,7 +54,9 @@ struct iso2709_rec {
     struct iso2709_dir *directory;
 };
 
+#define ISO2709_RS 035
 #define ISO2709_FS 036
 #define ISO2709_IDFS 037
 
+
 #endif
-- 
1.7.10.4