SRW, CQL, 2003

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

diff --git a/cql/lexer.c b/cql/lexer.c
new file mode 100644 (file)
index 0000000..8a26522
--- /dev/null
+++ b/cql/lexer.c
@@ -0,0 +1,108 @@
+/* $Id: lexer.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.
+*/
+/*
+ * bison lexer for CQL.
+ */
+
+int yylex(YYSTYPE *lval, void *vp)
+{
+    CQL_parser cp = (CQL_parser) vp;
+    int c;
+    do
+    {
+        c = cp->getbyte(cp->client_data);
+        if (c == 0)
+            return 0;
+        if (c == '\n')
+            return 0;
+    } while (isspace(c));
+    lval->rel = 0;
+    lval->len = 0;
+    if (strchr("()=></", c))
+    {
+        int c1;
+        lval->buf[lval->len++] = c;
+        if (c == '>')
+        {
+            c1 = cp->getbyte(cp->client_data);
+            if (c1 == '=')
+            {
+                lval->buf[lval->len++] = c1;
+                lval->buf[lval->len] = 0;
+                return GE;
+            }
+            else
+                cp->ungetbyte(c1, cp->client_data);
+        }
+        else if (c == '<')
+        {
+            c1 = cp->getbyte(cp->client_data);
+            if (c1 == '=')
+            {
+                lval->buf[lval->len++] = c1;
+                lval->buf[lval->len] = 0;
+                return LE;
+            }
+            else if (c1 == '>')
+            {
+                lval->buf[lval->len++] = c1;
+                lval->buf[lval->len] = 0;
+                return NE;
+            }
+            else
+                cp->ungetbyte(c1, cp->client_data);
+        }
+        lval->buf[lval->len] = 0;
+        return c;
+    }
+    if (c == '"')
+    {
+        while ((c = cp->getbyte(cp->client_data)) != EOF && c != '"')
+        {
+            if (c == '\\')
+                c = cp->getbyte(cp->client_data);
+            lval->buf[lval->len++] = c;
+        }
+        lval->buf[lval->len] = 0;
+    }
+    else
+    {
+        lval->buf[lval->len++] = c;
+        while ((c = cp->getbyte(cp->client_data)) != 0 &&
+               !strchr(" \n()=<>/", c))
+        {
+            if (c == '\\')
+                c = cp->getbyte(cp->client_data);
+            lval->buf[lval->len++] = c;
+        }
+        lval->buf[lval->len] = 0;
+#if YYDEBUG
+        printf ("got %s\n", lval->buf);
+#endif
+        if (c != 0)
+            cp->ungetbyte(c, cp->client_data);
+        if (!strcmp(lval->buf, "and"))
+            return AND;
+        if (!strcmp(lval->buf, "or"))
+            return OR;
+        if (!strcmp(lval->buf, "not"))
+            return NOT;
+        if (!strcmp(lval->buf, "exact"))
+            return EXACT;
+        if (!strcmp(lval->buf, "all"))
+            return ALL;
+        if (!strncmp(lval->buf, "prox", 4))
+            return PROX;
+        if (!strcmp(lval->buf, "any"))
+            return ANY;
+        if (!strcmp(lval->buf, "scr"))
+            return SCR;
+    }
+    return TERM;
+}