Add basic lexer for OpenEdge ABL (formerly known as Progress) language

2 files changed, 49 insertions, 0 deletions

diff --git a/tests/examplefiles/example.cls b/tests/examplefiles/example.cls
new file mode 100644
index 00000000..d36ad6f0
--- /dev/null
+++ b/tests/examplefiles/example.cls
@@ -0,0 +1,15 @@
+USING Progress.Lang.*.
+
+CLASS Test INHERITS Progress.Sucks:
+
+  DEFINE PRIVATE VARIABLE cTest AS CHAR NO-UNDO.
+
+  CONSTRUCTOR PUBLIC Test():
+    SUPER().
+    MESSAGE "Why are you punishing yourself by coding in this language?".
+  END CONSTRUCTOR.
+
+  METHOD PUBLIC LOGICAL Blowup(INPUT iTime AS INT):
+  END.
+
+END CLASS.
diff --git a/tests/examplefiles/example.p b/tests/examplefiles/example.p
new file mode 100644
index 00000000..e8c17e33
--- /dev/null
+++ b/tests/examplefiles/example.p
@@ -0,0 +1,34 @@
+{include.i}
+{nested.i {include.i}}
+
+&SCOPED-DEFINE MY_NAME "Abe"
+
+DEF VAR i AS INT NO-UNDO.
+i = 0xABE + 1337 / (1 * 1.00)
+
+def var clowercasetest as char no-undo.
+DEF VAR vardashtest AS DATETIME-TZ NO-UNDO.
+
+DEFINE TEMP-TABLE ttNames NO-UNDO
+  FIELD cName AS CHAR
+  INDEX IXPK_ttNames IS PRIMARY UNIQUE cName.
+
+/* One-line comment */
+/* Two-line
+   Comment  */
+/*
+  Nested
+  /*
+    Multiline
+    /*
+      Comment
+    */
+  */
+*/
+
+CREATE ttNames.
+ASSIGN ttNames.cName = {&MY_NAME}.
+
+FOR EACH ttNames:
+  MESSAGE "Hello, " + ttNames.cName + '!' VIEW-AS ALERT-BOX.
+END.