Support read/write MARCXML collections.

[yaz-moved-to-github.git] / util / cclsh.c

diff --git a/util/cclsh.c b/util/cclsh.c
index 0d89350..b9aafc0 100644 (file)
--- a/util/cclsh.c
+++ b/util/cclsh.c
@@ -44,7 +44,7 @@
 /* CCL shell.
  * Europagate 1995
  *
- * $Id: cclsh.c,v 1.5 2007-01-08 10:48:08 adam Exp $
+ * $Id: cclsh.c,v 1.8 2007-05-01 12:22:11 adam Exp $
  *
  * Old Europagate Log:
  *
@@ -104,11 +104,11 @@ static char *prog;
 
 void usage(const char *prog)
 {
-    fprintf (stderr, "%s: [-d] [-b configfile] [-x xmlconfig]\n", prog);
-    exit (1);
+    fprintf(stderr, "%s: [-d] [-b configfile] [-x xmlconfig]\n", prog);
+    exit(1);
 }
 
-int main (int argc, char **argv)
+int main(int argc, char **argv)
 {
     CCL_bibset bibset;
     FILE *bib_inf;
@@ -122,7 +122,7 @@ int main (int argc, char **argv)
     WRBUF q_wrbuf = 0;
 
     prog = *argv;
-    bibset = ccl_qual_mk ();    
+    bibset = ccl_qual_mk();    
     
     while ((ret = options("db:x:", argv, argc, &arg)) != -2)
     {
@@ -133,15 +133,15 @@ int main (int argc, char **argv)
             break;
         case 'b':
             bib_fname = arg;
-            bib_inf = fopen (bib_fname, "r");
+            bib_inf = fopen(bib_fname, "r");
             if (!bib_inf)
             {
-                fprintf (stderr, "%s: cannot open %s\n", prog,
+                fprintf(stderr, "%s: cannot open %s\n", prog,
                          bib_fname);
-                exit (1);
+                exit(1);
             }
-            ccl_qual_file (bibset, bib_inf);
-            fclose (bib_inf);
+            ccl_qual_file(bibset, bib_inf);
+            fclose(bib_inf);
             break;
 #if YAZ_HAVE_XML2
         case 'x':
@@ -172,38 +172,27 @@ int main (int argc, char **argv)
     }
     if (q_wrbuf)
     {
-        CCL_parser cclp = ccl_parser_create ();
-        struct ccl_token *list;
+        CCL_parser cclp = ccl_parser_create(bibset);
         int error;
         struct ccl_rpn_node *rpn;
         
-        cclp->bibset = bibset;
-        
-        list = ccl_parser_tokenize (cclp, wrbuf_cstr(q_wrbuf));
-        rpn = ccl_parser_find (cclp, list);
+        rpn = ccl_parser_find_str(cclp, wrbuf_cstr(q_wrbuf));
         
-        error = cclp->error_code;
+        error = ccl_parser_get_error(cclp, 0);
         
         if (error)
         {
-            printf ("%s\n", ccl_err_msg (error));
+            printf("%s\n", ccl_err_msg(error));
         }
         else
         {
             if (rpn)
             {
-                ccl_pr_tree (rpn, stdout);
-                printf ("\n");
+                ccl_pr_tree(rpn, stdout);
+                printf("\n");
             }
         }
-        if (debug)
-        {
-            struct ccl_token *lp;
-            for (lp = list; lp; lp = lp->next)
-                printf ("%d %.*s\n", lp->kind, (int) (lp->len), lp->name);
-        }
-        ccl_token_del (list);
-        ccl_parser_destroy (cclp);
+        ccl_parser_destroy(cclp);
         if (rpn)
             ccl_rpn_delete(rpn);
         wrbuf_destroy(q_wrbuf);
@@ -212,7 +201,7 @@ int main (int argc, char **argv)
     while (1)
     {
         char buf[1000];
-        int i, error, pos;
+        int i, error;
         struct ccl_rpn_node *rpn;
 
 #if HAVE_READLINE_READLINE_H
@@ -229,53 +218,62 @@ int main (int argc, char **argv)
                 break;
             }
             strcpy(buf,line_in);
-            free (line_in);
+            free(line_in);
 #else    
-        printf ("CCLSH>"); fflush (stdout);
-        if (!fgets (buf, 999, stdin))
+        printf("CCLSH>"); fflush(stdout);
+        if (!fgets(buf, 999, stdin))
             break;
 #endif 
 
         for (i = 0; i<1; i++)
         {
-            CCL_parser cclp = ccl_parser_create ();
-            struct ccl_token *list;
+            CCL_parser cclp = ccl_parser_create(bibset);
+            int pos;
             
-            cclp->bibset = bibset;
+            rpn = ccl_parser_find_str(cclp, buf);
             
-            list = ccl_parser_tokenize (cclp, buf);
-            rpn = ccl_parser_find (cclp, list);
-            
-            error = cclp->error_code;
-            if (error)
-                pos = cclp->error_pos - buf;
+            error = ccl_parser_get_error(cclp, &pos);
 
             if (error)
             {
-                printf ("%*s^ - ", 6+pos, " ");
-                printf ("%s\n", ccl_err_msg (error));
+                printf("%*s^ - ", 6+pos, " ");
+                printf("%s\n", ccl_err_msg(error));
             }
             else
             {
                 if (rpn && i == 0)
                 {
-                    ccl_pr_tree (rpn, stdout);
-                    printf ("\n");
+                    ccl_stop_words_t csw = ccl_stop_words_create();
+                    int idx = 0;
+                    printf("First:\n");
+                    ccl_pr_tree(rpn, stdout);
+                    if (ccl_stop_words_tree(csw, bibset, &rpn))
+                    {
+                        printf("Second:\n");
+                        ccl_pr_tree(rpn, stdout);
+                        printf("\n");
+                        
+                        for (idx = 0; ; idx++)
+                        {
+                            const char *qname;
+                            const char *term;
+                            if (!ccl_stop_words_info(csw, idx,
+                                                     &qname, &term))
+                                break;
+                            printf("Removed from %s: %s\n", 
+                                   qname ? qname : "none", term);
+                        }
+                    }
+                    ccl_stop_words_destroy(csw);
                 }
             }
-            if (debug)
-            {
-                struct ccl_token *lp;
-                for (lp = list; lp; lp = lp->next)
-                    printf ("%d %.*s\n", lp->kind, (int) (lp->len), lp->name);
-            }
-            ccl_token_del (list);
-            ccl_parser_destroy (cclp);
+            ccl_parser_destroy(cclp);
             if (rpn)
                 ccl_rpn_delete(rpn);
         }
     }
-    printf ("\n");
+    printf("\n");
+    ccl_qual_rm(&bibset);
     return 0;
 }
 /*