SRW, CQL, 2003

[yaz-moved-to-github.git] / cql / cql2pqf.c

diff --git a/cql/cql2pqf.c b/cql/cql2pqf.c
new file mode 100644 (file)
index 0000000..e5a3731
--- /dev/null
+++ b/cql/cql2pqf.c
@@ -0,0 +1,52 @@
+/* $Id: cql2pqf.c,v 1.1 2003-01-06 08:20:27 adam Exp $
+   Copyright (C) 2002-2003
+   Index Data Aps
+
+This file is part of the YAZ toolkit.
+
+See the file LICENSE.
+*/
+
+#include <stdlib.h>
+#include <stdio.h>
+
+#include <yaz/cql.h>
+
+int main(int argc, char **argv)
+{
+    cql_transform_t ct;
+    int r;
+    CQL_parser cp = cql_parser_create();
+
+    if (argc < 2)
+    {
+        fprintf (stderr, "usage\n cqltransform <properties> [<query>]\n");
+        exit (1);
+    }
+    ct = cql_transform_open_fname(argv[1]);
+    if (!ct)
+    {
+        fprintf (stderr, "failed to read properties %s\n", argv[1]);
+        exit (1);
+    }
+    if (argc == 3)
+        r = cql_parser_string(cp, argv[2]);
+    else
+        r = cql_parser_stdio(cp, stdin);
+    if (r)
+        fprintf (stderr, "Syntax error\n");
+    else
+    {
+        r = cql_transform_FILE(ct, cql_parser_result(cp), stdout);
+       printf("\n");
+        if (r)
+        {
+            const char *addinfo;
+            cql_transform_error(ct, &addinfo);
+            printf ("Transform error %d %s\n", r, addinfo ? addinfo : "");
+        }
+    }
+    cql_transform_close(ct);
+    cql_parser_destroy(cp);
+    return 0;
+}