Commit | Line | Data |
---|---|---|
0fc6e47b | 1 | # Copyright (c) 1987 The Regents of the University of California. |
be2b3938 KB |
2 | # All rights reserved. |
3 | # | |
0fc6e47b | 4 | # %sccs.include.redist.sh% |
be2b3938 | 5 | # |
0fc6e47b | 6 | # @(#)vgrindefs.src 1.15 (Berkeley) %G% |
be2b3938 | 7 | # |
16b6eaa3 | 8 | |
be2b3938 KB |
9 | C|c:\ |
10 | :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:sb=":se=\e":lb=':\ | |
11 | :le=\e':tl:\ | |
12 | :kw=asm auto break case char continue default do double else enum\ | |
13 | extern float for fortran goto if int long register return short\ | |
14 | sizeof static struct switch typedef union unsigned void while #define\ | |
15 | #else #endif #if #ifdef #ifndef #include #undef # define else endif\ | |
16 | if ifdef ifndef include undef: | |
422bd3c1 | 17 | model|mod|m:\ |
3ec286de KM |
18 | :pb=^\d(space\d\p\drep)|(\p\dis|inline|public\dbeginproc):\ |
19 | :bb=\dbeginproc|space|case\d:be=\dendproc|end\d|;:\ | |
d46cc691 | 20 | :cb=\$:ce=\$|$:sb=":se=":lb=':le=\a|$:\ |
422bd3c1 | 21 | :kw=abs and array beginproc boolean by case cdnl char copied dispose\ |
3ec286de KM |
22 | div do dynamic else elsif end endproc entry external FALSE false\ |
23 | fi file for formal fortran global if iff ift\ | |
24 | in integer include inline is lbnd\ | |
422bd3c1 | 25 | max min mod new NIL nil noresult not notin od of or procedure public\ |
3ec286de KM |
26 | read readln readonly record recursive rem rep repeat res\ |
27 | result return set\ | |
422bd3c1 | 28 | space string subscript such then TRUE true type ubnd union until\ |
3ec286de | 29 | varies while width: |
422bd3c1 BJ |
30 | pascal|pasc|p:\ |
31 | :pb=(^\d?procedure|function|program\d\p\d|\(|;|\:)|(=\d?record\d):\ | |
32 | :bb=\dcase|begin\d:be=\dend|forward\d|;:\ | |
7dabc86f DP |
33 | :cb={:ce=}:\ |
34 | :ab=\(*:ae=*\):\ | |
35 | :sb=':se=':\ | |
422bd3c1 BJ |
36 | :kw=and array assert begin case const div do downto else end file for\ |
37 | forward function goto if in label mod nil not of or packed procedure\ | |
38 | program record repeat set then to type until var while with oct hex\ | |
39 | external: | |
54ce819f | 40 | ISP|isp|i:\ |
6e21a864 | 41 | :cb=!:ce=!|$:oc:\ |
422bd3c1 BJ |
42 | :kw=and begin decode define end eql eqv geq gtr if leave leq lss mod\ |
43 | neq next not or otherwise repeat restart resume sr0 sr1 srd srr sl0 sl1\ | |
44 | sld slr tst xor: | |
3a5acf9d | 45 | SH|sh:\ |
04b968ac | 46 | :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\ |
3a5acf9d DP |
47 | :le=\e':tl:\ |
48 | :kw=break case cd continue do done \ | |
49 | elif else esac eval exec exit export \ | |
50 | fi for if in then while until \ | |
51 | read readonly set shift test trap umask wait: | |
52 | CSH|csh:\ | |
04b968ac | 53 | :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\ |
3a5acf9d | 54 | :le=\e':tl:\ |
04b968ac | 55 | :kw=alias alloc break breaksw case cd chdir continue default\ |
3a5acf9d | 56 | echo else end endif endsw exec exit foreach \ |
04b968ac | 57 | glob goto history if logout nice nohup onintr repeat set\ |
3a5acf9d DP |
58 | setenv shift source switch then time \ |
59 | while umask unalias unset wait while @ env \ | |
60 | argv child home ignoreeof noclobber noglob \ | |
61 | nomatch path prompt shell status verbose : | |
3ec286de KM |
62 | ldl|LDL:\ |
63 | :pb=^\p\::bb=\::be=;:cb=/*:ce=*/:sb=":se=\e":\ | |
64 | :kw=constant functions grammar reswords tokens add1 addste\ | |
65 | car cdr check colno cond cons copy defun divide empty enter\ | |
66 | eq equal findattr firstchild ge getattr getfield gt hash label\ | |
67 | lambda lastchild le leftsibling lookone lookup lt minus name ne\ | |
68 | newnode nextcom nil null parent plus precnl prevcom prog progn\ | |
69 | quote reglob return rightsibling self set setattr setfield setq\ | |
70 | stjoin sub1 t times tnull tokno ttype: | |
afc7a1cf MD |
71 | Icon|icon|I:\ |
72 | :pb=^\d?procedure\d\p\d?\(\a?\):\ | |
73 | :bb=(^\d?procedure\d\p\d?\(\a?\))|{:be=}|(^\d?end\d?$):\ | |
74 | :cb=#:ce=$:\ | |
75 | :sb=":se=\e":lb=':le=\e':tl:\ | |
76 | :kw=break by case create default do dynamic else end every external\ | |
77 | fail global if initial local next not of procedure record\ | |
78 | repeat return static suspend then to until using while\ | |
79 | &ascii &clock &cset &date &dateline &errout &fail &host &input\ | |
80 | &lcase &level &main &null &output &pos &random &source &subject\ | |
81 | &time &trace &ucase &version: | |
82 | ratfor|rat|r:\ | |
83 | :pb=(subroutine|function)\d\p\d?\(\a?\):\ | |
84 | :bb=(subroutine|function)\d\p\d?\(\a?\):be=^\d?end:\ | |
85 | :cb=#:ce=$:\ | |
86 | :sb=":se=\e":lb=':le=\e':oc:\ | |
87 | :kw=DRETURN DRIVER arith break case character default define do\ | |
88 | else elsedef enddef filedes for function goto if ifdef ifelse\ | |
89 | ifnotdef include incr integer linepointer next opeq pointer\ | |
90 | real repeat return select string subroutine substr until: | |
592aa20b RH |
91 | modula2|mod2|m2:\ |
92 | :pb=(^\d?(procedure|function|module)\d\p\d|\(|;|\:):\ | |
93 | :bb=\d(begin|case|for|if|loop|record|repeat|while|with)\d:\ | |
94 | :be=\dend|;:\ | |
95 | :cb={:ce=}:\ | |
96 | :ab=\(*:ae=*\):\ | |
97 | :sb=":se=":\ | |
98 | :oc:\ | |
99 | :kw=and array begin by case const\ | |
100 | definition div do else elsif end exit export\ | |
101 | for from if implementation import in\ | |
102 | loop mod module not of or pointer procedure qualified\ | |
103 | record repeat return set then to type\ | |
104 | until var while with: | |
105 | yacc|Yacc|y:\ | |
106 | :cb=/*:ce=*/:sb=":se=\e":lb=':le=\e':tl:\ | |
107 | :kw=%{ %} %% %union %token %type\ | |
108 | #else #endif #if #ifdef #ifndef #include #undef # define else endif\ | |
109 | if ifdef ifndef include undef: | |
be2b3938 KB |
110 | C++|c++:\ |
111 | :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:ab=//:\ | |
112 | :ae=$:sb=":se=\e":lb=':\ | |
113 | :le=\e':tl:\ | |
114 | :kw=asm auto break case char continue default do double else enum\ | |
115 | extern float for fortran goto if int long register return short\ | |
116 | sizeof static struct switch typedef union unsigned while void #define\ | |
117 | #else #endif #if #ifdef #ifndef #include #undef # define endif\ | |
118 | ifdef ifndef include undef defined\ | |
119 | class const delete friend inline new operator overload private\ | |
120 | protected public virtual: |