Minor change.
[egate.git] / ccl / cclsh.c
index 7f5d6b0..e1500e7 100644 (file)
@@ -2,7 +2,19 @@
  * Europagate 1995
  *
  * $Log: cclsh.c,v $
- * Revision 1.5  1995/02/14 16:20:57  adam
+ * Revision 1.9  1995/02/23 08:32:00  adam
+ * Changed header.
+ *
+ * Revision 1.7  1995/02/15  17:42:16  adam
+ * Minor changes of the api of this module. FILE* argument added
+ * to ccl_pr_tree.
+ *
+ * Revision 1.6  1995/02/14  19:55:13  adam
+ * Header files ccl.h/cclp.h are gone! They have been merged an
+ * moved to ../include/ccl.h.
+ * Node kind(s) in ccl_rpn_node have changed names.
+ *
+ * Revision 1.5  1995/02/14  16:20:57  adam
  * Qualifiers are read from a file now.
  *
  * Revision 1.4  1995/02/14  14:12:42  adam
 #include <stdlib.h>
 #include <assert.h>
 
-#include "ccl.h"
+#include <ccl.h>
 
 static int debug = 0;
 static char *prog;
 
-static int ti_attr[] = {
-    CCL_BIB1_USE, 4,
-    CCL_BIB1_STR, CCL_BIB1_STR_WP
-};
-
-static int au_attr[] = {
-    CCL_BIB1_USE, 1,
-    CCL_BIB1_STR, CCL_BIB1_STR_WP
-};
-
-static int pd_attr[] = {
-    CCL_BIB1_USE, 31,
-    CCL_BIB1_REL, CCL_BIB1_REL_ORDER
-};
-
 int main (int argc, char **argv)
 {
     CCL_bibset bibset;
@@ -113,7 +110,7 @@ int main (int argc, char **argv)
         else
         {
             assert (rpn);
-            ccl_pr_tree (rpn);
+            ccl_pr_tree (rpn, stdout);
             putchar ('\n');
         }
     }