diff options
Diffstat (limited to 'tests/lexers/easytrieve')
| -rw-r--r-- | tests/lexers/easytrieve/example.txt | 224 | ||||
| -rw-r--r-- | tests/lexers/easytrieve/example2.txt | 45 |
2 files changed, 269 insertions, 0 deletions
diff --git a/tests/lexers/easytrieve/example.txt b/tests/lexers/easytrieve/example.txt new file mode 100644 index 00000000..6b251ad8 --- /dev/null +++ b/tests/lexers/easytrieve/example.txt @@ -0,0 +1,224 @@ +---input--- +* Easytrieve Plus example programm. + +* Environtment section. +PARM DEBUG(FLOW FLDCHK) + +* Library Section. +FILE PERSNL FB(150 1800) + NAME 17 8 A + EMP# 9 5 N * Note: '#' is a valid character for names. + DEPT 98 3 N. GROSS 94 4 P 2 + * ^ 2 field definitions in 1 line. + +* Call macro in example.mac. +FILE EXAMPLE FB(80 200) +%EXAMPLE SOMEFILE SOME + +* Activity Section. +JOB INPUT PERSNL NAME FIRST-PROGRAM START AT-START FINISH AT_FINISH + PRINT PAY-RPT +REPORT PAY-RPT LINESIZE 80 + TITLE 01 'PERSONNEL REPORT EXAMPLE-1' + LINE 01 DEPT NAME EMP# GROSS + +* Procedure declarations. +AT-START. PROC + DISPLAY 'PROCESSING...' +END-PROC + +AT-FINISH +PROC + DISPLAY 'DONE.' +END-PROC + +---tokens--- +'* Easytrieve Plus example programm.\n' Comment.Single + +'\n' Text.Whitespace + +'* Environtment section.\n' Comment.Single + +'PARM' Keyword.Declaration +' ' Operator +'DEBUG' Name +'(' Operator +'FLOW' Name +' ' Text.Whitespace +'FLDCHK' Name +')' Operator +'\n\n' Text.Whitespace + +'* Library Section.\n' Comment.Single + +'FILE' Keyword.Declaration +' ' Text.Whitespace +'PERSNL' Name.Function +' ' Text.Whitespace +'FB' Name +'(' Operator +'150' Literal.Number.Integer +' ' Text.Whitespace +'1800' Literal.Number.Integer +')' Operator +'\n' Text.Whitespace + +' ' Text.Whitespace +'NAME' Name +' ' Text.Whitespace +'17' Literal.Number.Integer +' ' Text.Whitespace +'8' Literal.Number.Integer +' ' Text.Whitespace +'A' Name +'\n' Text.Whitespace + +' ' Text.Whitespace +'EMP#' Name +' ' Text.Whitespace +'9' Literal.Number.Integer +' ' Text.Whitespace +'5' Literal.Number.Integer +' ' Text.Whitespace +'N' Name +' ' Text.Whitespace +"* Note: '#' is a valid character for names.\n" Comment.Single + +' ' Text.Whitespace +'DEPT' Name +' ' Text.Whitespace +'98' Literal.Number.Integer +' ' Text.Whitespace +'3' Literal.Number.Integer +' ' Text.Whitespace +'N' Name +'.' Operator +' ' Text.Whitespace +'GROSS' Name +' ' Text.Whitespace +'94' Literal.Number.Integer +' ' Text.Whitespace +'4' Literal.Number.Integer +' ' Text.Whitespace +'P' Name +' ' Text.Whitespace +'2' Literal.Number.Integer +'\n' Text.Whitespace + +' ' Text.Whitespace +'* ^ 2 field definitions in 1 line.\n' Comment.Single + +'\n' Text.Whitespace + +'* Call macro in example.mac.\n' Comment.Single + +'FILE' Keyword.Declaration +' ' Text.Whitespace +'EXAMPLE' Name.Function +' ' Text.Whitespace +'FB' Name +'(' Operator +'80' Literal.Number.Integer +' ' Text.Whitespace +'200' Literal.Number.Integer +')' Operator +'\n' Text.Whitespace + +'%EXAMPLE' Name.Variable +' ' Text.Whitespace +'SOMEFILE' Name +' ' Text.Whitespace +'SOME' Name +'\n\n' Text.Whitespace + +'* Activity Section.\n' Comment.Single + +'JOB' Keyword.Declaration +' ' Operator +'INPUT' Name +' ' Text.Whitespace +'PERSNL' Name +' ' Text.Whitespace +'NAME' Name +' ' Text.Whitespace +'FIRST-PROGRAM' Name +' ' Text.Whitespace +'START' Name +' ' Text.Whitespace +'AT-START' Name +' ' Text.Whitespace +'FINISH' Name +' ' Text.Whitespace +'AT_FINISH' Name +'\n' Text.Whitespace + +' ' Text.Whitespace +'PRINT' Keyword.Reserved +' ' Operator +'PAY-RPT' Name +'\n' Text.Whitespace + +'REPORT' Keyword.Declaration +' ' Text.Whitespace +'PAY-RPT' Name.Function +' ' Text.Whitespace +'LINESIZE' Name +' ' Text.Whitespace +'80' Literal.Number.Integer +'\n' Text.Whitespace + +' ' Text.Whitespace +'TITLE' Keyword.Reserved +' ' Operator +'01' Literal.Number.Integer +' ' Text.Whitespace +"'PERSONNEL REPORT EXAMPLE-1'" Literal.String +'\n' Text.Whitespace + +' ' Text.Whitespace +'LINE' Keyword.Reserved +' ' Operator +'01' Literal.Number.Integer +' ' Text.Whitespace +'DEPT' Name +' ' Text.Whitespace +'NAME' Name +' ' Text.Whitespace +'EMP#' Name +' ' Text.Whitespace +'GROSS' Name +'\n\n' Text.Whitespace + +'* Procedure declarations.\n' Comment.Single + +'AT-START' Name.Function +'.' Operator +' ' Text.Whitespace +'PROC' Keyword.Declaration +'\n' Text.Whitespace + +' ' Text.Whitespace +'DISPLAY' Keyword.Reserved +' ' Operator +"'PROCESSING...'" Literal.String +'\n' Text.Whitespace + +'END-PROC' Keyword.Reserved +'\n' Operator + +'\n' Text.Whitespace + +'AT-FINISH' Name.Function +'\n' Text.Whitespace + +'PROC' Keyword.Declaration +'\n' Text.Whitespace + +' ' Text.Whitespace +'DISPLAY' Keyword.Reserved +' ' Operator +"'DONE.'" Literal.String +'\n' Text.Whitespace + +'END-PROC' Keyword.Reserved +'\n' Operator diff --git a/tests/lexers/easytrieve/example2.txt b/tests/lexers/easytrieve/example2.txt new file mode 100644 index 00000000..2906d999 --- /dev/null +++ b/tests/lexers/easytrieve/example2.txt @@ -0,0 +1,45 @@ +---input--- +* Example Easytrieve macro declaration. For an example on calling this +* macro, see example.ezt. +MACRO FILENAME PREFIX +&FILENAME. +&PREFIX.-LINE 1 80 A +&PREFIX.-KEY 1 8 A + +---tokens--- +'* Example Easytrieve macro declaration. For an example on calling this\n' Comment.Single + +'* macro, see example.ezt.\n' Comment.Single + +'MACRO' Keyword.Declaration +' ' Text.Whitespace +'FILENAME' Name.Function +' ' Text.Whitespace +'PREFIX' Name +'\n' Text.Whitespace + +'&FILENAME.' Name.Variable +'\n' Text.Whitespace + +'&PREFIX.' Name.Variable +'-' Operator +'LINE' Keyword.Reserved +' ' Operator +'1' Literal.Number.Integer +' ' Text.Whitespace +'80' Literal.Number.Integer +' ' Text.Whitespace +'A' Name +'\n' Text.Whitespace + +'&PREFIX.' Name.Variable +'-' Operator +'KEY' Keyword.Reserved +' ' Operator +' ' Text.Whitespace +'1' Literal.Number.Integer +' ' Text.Whitespace +'8' Literal.Number.Integer +' ' Text.Whitespace +'A' Name +'\n' Text.Whitespace |