diff --git a/autotests/folding/test.clist.fold b/autotests/folding/test.clist.fold new file mode 100644 --- /dev/null +++ b/autotests/folding/test.clist.fold @@ -0,0 +1,7 @@ +PROC 2 USER TOTAL +CONTROL NOCAPS +WRITE *** Protecting users &USER 1 to &USER &TOTAL +DO &COUNT = 1 TO &TOTAL + ALU &USER&COUNT NOPASS +END +WRITE *** DONE diff --git a/autotests/html/test.clist.html b/autotests/html/test.clist.html new file mode 100644 --- /dev/null +++ b/autotests/html/test.clist.html @@ -0,0 +1,14 @@ + + + +test.clist + +
+PROC 2 USER TOTAL                                 
+CONTROL NOCAPS                                    
+WRITE *** Protecting users &USER 1 to &USER &TOTAL
+DO &COUNT = 1 TO &TOTAL                           
+   ALU &USER&COUNT NOPASS                         
+END                                               
+WRITE *** DONE                                    
+
diff --git a/autotests/input/test.clist b/autotests/input/test.clist new file mode 100644 --- /dev/null +++ b/autotests/input/test.clist @@ -0,0 +1,7 @@ +PROC 2 USER TOTAL +CONTROL NOCAPS +WRITE *** Protecting users &USER 1 to &USER &TOTAL +DO &COUNT = 1 TO &TOTAL + ALU &USER&COUNT NOPASS +END +WRITE *** DONE \ No newline at end of file diff --git a/autotests/reference/test.clist.ref b/autotests/reference/test.clist.ref new file mode 100644 --- /dev/null +++ b/autotests/reference/test.clist.ref @@ -0,0 +1,7 @@ +PROC 2 USER TOTAL
+CONTROL NOCAPS
+WRITE *** Protecting users &USER 1 to &USER &TOTAL
+DO &COUNT = 1 TO &TOTAL
+ ALU &USER&COUNT NOPASS
+END
+WRITE *** DONE
diff --git a/data/syntax/clist.xml b/data/syntax/clist.xml new file mode 100644 --- /dev/null +++ b/data/syntax/clist.xml @@ -0,0 +1,87 @@ + + + + + + + ATTN + CONTROL + DATA-ENDDATA + DATA-PROMPT + ERROR + EXIT + GLOBAL + GOTO + NGLOBAL + PROC + RETURN + SYSCALL + SYSREF + TERMIN + WRITE + WRITENR + + + READ + READDVAL + SET + LISTDSI + + + DO + IF + TO + THEN + END + ELSE + SELECT + + + CLOSFILE + GETFILE + OPENFILE + PUTFILE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +