First version of CCL. Qualifiers aren't handled yet.

[egate.git] / ccl / cclerrms.c

diff --git a/ccl/cclerrms.c b/ccl/cclerrms.c
new file mode 100644 (file)
index 0000000..85a4ce6
--- /dev/null
+++ b/ccl/cclerrms.c
@@ -0,0 +1,22 @@
+/*
+ * Europagate, 1995
+ *
+ * $Log: cclerrms.c,v $
+ * Revision 1.1  1995/02/13 12:35:20  adam
+ * First version of CCL. Qualifiers aren't handled yet.
+ *
+ */
+
+char *err_msg_array[] = {
+    "Ok",
+    "Search word expected",
+    ") expected",
+    "Set name expected",
+    "Operator expected",
+    "Unbalanced )"
+};
+
+const char *ccl_err_msg (int ccl_errno)
+{
+    return err_msg_array[ccl_errno];
+}