-
Notifications
You must be signed in to change notification settings - Fork 117
/
Copy pathpl1.uew
executable file
·115 lines (110 loc) · 7.46 KB
/
pl1.uew
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
/L13"IBM Enterprise PL/I for z/OS 5.3" Nocase Block Comment On = /* Block Comment Off = */ String Chars = "' File Extensions = pli cpy inc mac
/TGBegin "Procedures"
/TGFindStr = "^[ \t]*([\w_]*):\s*(?:proc(?:edure)?|entry)[ \t]*(?:reorder\s*)?;"
/TGFindStr = "^[ \t]*([\w_]*):\s*(?:proc(?:edure)?|entry)[ \t]*\([^\);]*\)[ \t]*(?:reorder\s*)?;"
/TGFindStr = "^[ \t]*([\w_]*):\s*(?:proc(?:edure)?|entry)[ \t]+options[ \t]*\([^\);]*\)[ \t]*(?:reorder\s*)?;"
/TGFindStr = "^[ \t]*([\w_]*):\s*(?:proc(?:edure)?|entry)[ \t]*\([^\);]*\)[ \t]+options[ \t]*\([^\);]*\)[ \t]*(?:reorder\s*)?;"
/TGBegin "Parameters"
/TGFindStr = "([^,\s;^)]+\b(?!;))"
/TGFindBStart = "(?:proc(?:edure)?|entry)[ \t]*\(?(?:reorder)?"
/TGFindBEnd = "(?<=#|\w)\)?(?= +returns| +options|;)"
/TGEnd
/TGEnd
/TGBegin "Functions"
/TGFindStr = "^[ \t]*([\w_]*):\s*proc\s*\([^\);]*\)\s*returns\s*\([^;]*;"
/TGFindStr = "^[ \t]*[declar]+\s+([\w_]*)\s+[^;]+returns\s*\([^;]*;"
/TGFindStr = "^[ \t]*([\w_]*):\s*proc\s*returns\s*\([^;]*;"
/TGBegin "Parameters"
/TGFindStr = "([^, \(]+)"
/TGFindBStart = "proc\b"
/TGFindBEnd = "\)?\s*returns"
/TGEnd
/TGEnd
/Function String = "%[a-zA-Z_]"
/Open Fold Strings = "begin" "do" "if" "select"
/Close Fold Strings = "end" "then"
/Indent Strings = "begin;" "do;" "if"
/Unindent Strings = "else" " end"
/Delimiters = ()+-*/<>=!~;:.'@,"#$^&|{}?[]¬\?
/Regexp Type = Perl
/C1"Source Language Keywords"
abnormal addbuff alias aligned all allocate alloc ascii assembler asm assert assignable asgn attach automatic auto
backward based begin binary bin bit bkwd blksize buffered buf buffers buffoff bufnd bufni bufsp builtin by byaddr byvalue
call cdecl cdecl16 character char chargraphic charg cics close cobol consecutive column col complex cplx cond connected conn constant controlled ctl copy ctlasa
db data decimal dec declare dcl default dft define defined def delay delete descriptor detach descriptors dimension dim direct display do downthru
edit else end entry environment env event exclusive exec exit exports external ext
fb fs fbs fastcall16 fetch fetchable file fixed float flow forever format fortran free from fromalien
generic genkey get go goto graphic
handle hexadec
ieee if ignore in indexed indexarea initial init input inline inter internal int into irreducible irred iterate
keyed keyfrom keylength keys keyloc keyto
label leave like limited line linkage linesize list locate loop
main margins mar
native ncp nochargraphic nocharg noconversion noconv nodescriptor noexecops nofixedoverflow nofofl noinline noinvalidop nolock nonassignable nonasgn nonconnected nonconn nonnative nonvarying nonvar nooverflow noofl norescan normal nosize nostringrange nostrg nostringsize nostrz nosubscriptrange nosubrg note nounderflow noufl nowrite nozerodivide nozdiv noscan
offset on open optional options optlink order ordinal organization otherwise other output
package page pagesize parameter pascal16 password pending picture pic pointer ptr position pos precision prec print priority procedure proc put
range read real recsize recursive reducible red reentrant refer regional relative release reorder repeat reply reread rescan reserves resignal retcode return returns reuse revert rewrite
scalarvarying scan segmented select sequential seql set signal signed sis skip snap sql statement static stop storage stream string stringrange strg stringsize strz structure subscriptrange subrg system
task task then thread title to total tp transmit trkofl tstack type
unaligned unal unbuffered unbuf undefinedfile undf underflow ufl union unlock unsigned until update upthru
vb vs vbs value variable varying var varyingz varz vsam
wait when while write
/C2"Build in Functions"
abs acos add addr addrdata all allcompare alloc31 alloc allocate allocation allocn allocnext allocsize any asin atan atand atanh automatic auto availablearea
base64decode base64decode8 base64decode16 base64encode base64encode8 base64encode16 between betweenexclusive betweenleftexclusive betweenrightexclusive binary bin binaryvalue binvalue binsearch binsearchx bit bitlocation bitloc bool byte bytelength
cds ceil centerleft centreleft center centerright centreright character char chargraphic charg charval checkstg checksum codepage collate collapse compare complex cplx conjg copy cos cosd cosh count cs currentsize currentstorage cstg
datafield date datetime days daystodate daystomicrosecs daystosecs decimal dec dimension dim divide
edit empty endfile entryaddr epsilon erf erfc exp exponent
fileddint fileddtest fileddword fileid filenew fileopen fileread fileseek filetell filewrite fixed fixedbin fixeddec float floatbin floatdec floor foldedfullmatch foldedsimplematch
gamma getenv getjclsymbol getsysint getsysword graphic
handle hbound hboundacross hex hex8 hexdecode hexdecodeb heximage heximage8 high huge
iand iclz ieor ifthenelse imag inarray index indexr indicators inlist inot ior isfinite isigned isinf isll isjclsymbol ismain isnan isnormal isrl iszero iunsigned
jsongetarrayend jsongetarraystart jsongetcolon jsongetcomma jsongetmember jsongetobjectend jsongetobjectstart jsongetvalue jsonputarrayend jsonputarraystart jsonputcolon jsonputcomma jsonputmember jsonputobjectend jsonputobjectstart jsonputvalue jsonvalid juliantosmf
lbound lboundacross left length lineno location loc locnewspace locnewvalue locstg locval log loggamma log2 log10 low lowerascii lowercase lowerlatin1 lower2
mainname max maxdate maxexp maxval maxlength memconvert memcollapse memcu12 memcu14 memcu21 memcu24 memcu41 memcu42 memindex memreplace memsearch memsearchr memsqeeze memverify memverifyr microsecs microsecstodate microsecstodays min mindate minexp minval mod mpstr multiply
null nullentry
offset offsetadd offsetdiff offsetsubtract offsetvalue omitted onactual onarea onchar oncode oncondcond oncondid oncount onexpected onfile ongsource onkey online onloc onoffset onoperator onpackage onprocedure onproc onsource onsubcode onsubcode2 ontext onuchar onusource onwchar onwsource ordinalname ordinalpred ordinalsucc
packagename pageno picspec places pliascii pliattn plicanc plickpt plidelete plidump pliebcdic plifill plifree plimove pliover plirest pliretc pliretv plisaxa plisaxb plisaxc plisaxd plisrta plisrtb plisrtc plisrtd plistck plistcke plistckelocal plistckeutc plistckf plistcklocal plistckutc plitran11 plitran12 plitran21 plitran22 pointer pred ptr pointeradd ptradd pointerdiff ptrdiff pointersubtract ptrsubtract pointervalue ptrvalue poly popcnt precval precision prec present procedurename procname prod putenv
quicksort quicksortx
radix raise2 random rank real reg12 regex rem repattern repeat replace replaceby2 reverse right round roundawayfromzero roundtoeven
samekey scrubout scale scaleval search searchr secs secstodate secstodays sign signed sin sind sinh size smftojulian sourcefile sourceline squeeze sqrt sqrtf stackaddr stcketodate stcktodate storage string stg substr subto subtract succ sum sysnull system
tally tan tand tanh threadid time timestamp tiny translate trim trunc type
uhigh ulength ulength8 ulength16 ulow unallocated unhex unsigned unspec upos upperascii uppercase upperlatin1 usubstr usupplementary utcdatetime utcmicrosecs utcsecs utf8 utf8stg utf8tochar utf8towchar uuid uuid4 uvalid uwidth
valid validdate validvalue varglist vargsize verify verifyr
wcharval weekday widechar wchar whigh wscollapse wscollapse16 wsreplace wsreplace16 widechar wlow
xmlchar xmlscrub xmlscrub16 xmluchar
y4date y4julian y4year
/C3"TYPE function names"
bind
cast
first
last
new
respec
size
value
/C4"Preprocessor"
** %
/C5"Operators"
! !!
&
* **
+
-
// /
<
=
>
<=
>=
<>
¬=
¬<
¬>
^=
^>
^<
\
^
| ||
¬