BSD 4_3_Net_2 release
[unix-history] / usr / src / usr.bin / vgrind / vgrindefs.src
CommitLineData
0fc6e47b 1# Copyright (c) 1987 The Regents of the University of California.
be2b3938
KB
2# All rights reserved.
3#
af359dea
C
4# Redistribution and use in source and binary forms, with or without
5# modification, are permitted provided that the following conditions
6# are met:
7# 1. Redistributions of source code must retain the above copyright
8# notice, this list of conditions and the following disclaimer.
9# 2. Redistributions in binary form must reproduce the above copyright
10# notice, this list of conditions and the following disclaimer in the
11# documentation and/or other materials provided with the distribution.
12# 3. All advertising materials mentioning features or use of this software
13# must display the following acknowledgement:
14# This product includes software developed by the University of
15# California, Berkeley and its contributors.
16# 4. Neither the name of the University nor the names of its contributors
17# may be used to endorse or promote products derived from this software
18# without specific prior written permission.
be2b3938 19#
af359dea
C
20# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23# ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30# SUCH DAMAGE.
be2b3938 31#
af359dea 32# @(#)vgrindefs.src 1.15 (Berkeley) 4/16/91
be2b3938 33#
16b6eaa3 34
be2b3938
KB
35C|c:\
36 :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:sb=":se=\e":lb=':\
37 :le=\e':tl:\
38 :kw=asm auto break case char continue default do double else enum\
39 extern float for fortran goto if int long register return short\
40 sizeof static struct switch typedef union unsigned void while #define\
41 #else #endif #if #ifdef #ifndef #include #undef # define else endif\
42 if ifdef ifndef include undef:
422bd3c1 43model|mod|m:\
3ec286de
KM
44 :pb=^\d(space\d\p\drep)|(\p\dis|inline|public\dbeginproc):\
45 :bb=\dbeginproc|space|case\d:be=\dendproc|end\d|;:\
d46cc691 46 :cb=\$:ce=\$|$:sb=":se=":lb=':le=\a|$:\
422bd3c1 47 :kw=abs and array beginproc boolean by case cdnl char copied dispose\
3ec286de
KM
48 div do dynamic else elsif end endproc entry external FALSE false\
49 fi file for formal fortran global if iff ift\
50 in integer include inline is lbnd\
422bd3c1 51 max min mod new NIL nil noresult not notin od of or procedure public\
3ec286de
KM
52 read readln readonly record recursive rem rep repeat res\
53 result return set\
422bd3c1 54 space string subscript such then TRUE true type ubnd union until\
3ec286de 55 varies while width:
422bd3c1
BJ
56pascal|pasc|p:\
57 :pb=(^\d?procedure|function|program\d\p\d|\(|;|\:)|(=\d?record\d):\
58 :bb=\dcase|begin\d:be=\dend|forward\d|;:\
7dabc86f
DP
59 :cb={:ce=}:\
60 :ab=\(*:ae=*\):\
61 :sb=':se=':\
422bd3c1
BJ
62 :kw=and array assert begin case const div do downto else end file for\
63 forward function goto if in label mod nil not of or packed procedure\
64 program record repeat set then to type until var while with oct hex\
65 external:
54ce819f 66ISP|isp|i:\
6e21a864 67 :cb=!:ce=!|$:oc:\
422bd3c1
BJ
68 :kw=and begin decode define end eql eqv geq gtr if leave leq lss mod\
69 neq next not or otherwise repeat restart resume sr0 sr1 srd srr sl0 sl1\
70 sld slr tst xor:
3a5acf9d 71SH|sh:\
04b968ac 72 :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\
3a5acf9d
DP
73 :le=\e':tl:\
74 :kw=break case cd continue do done \
75 elif else esac eval exec exit export \
76 fi for if in then while until \
77 read readonly set shift test trap umask wait:
78CSH|csh:\
04b968ac 79 :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\
3a5acf9d 80 :le=\e':tl:\
04b968ac 81 :kw=alias alloc break breaksw case cd chdir continue default\
3a5acf9d 82 echo else end endif endsw exec exit foreach \
04b968ac 83 glob goto history if logout nice nohup onintr repeat set\
3a5acf9d
DP
84 setenv shift source switch then time \
85 while umask unalias unset wait while @ env \
86 argv child home ignoreeof noclobber noglob \
87 nomatch path prompt shell status verbose :
3ec286de
KM
88ldl|LDL:\
89 :pb=^\p\::bb=\::be=;:cb=/*:ce=*/:sb=":se=\e":\
90 :kw=constant functions grammar reswords tokens add1 addste\
91 car cdr check colno cond cons copy defun divide empty enter\
92 eq equal findattr firstchild ge getattr getfield gt hash label\
93 lambda lastchild le leftsibling lookone lookup lt minus name ne\
94 newnode nextcom nil null parent plus precnl prevcom prog progn\
95 quote reglob return rightsibling self set setattr setfield setq\
96 stjoin sub1 t times tnull tokno ttype:
afc7a1cf
MD
97Icon|icon|I:\
98 :pb=^\d?procedure\d\p\d?\(\a?\):\
99 :bb=(^\d?procedure\d\p\d?\(\a?\))|{:be=}|(^\d?end\d?$):\
100 :cb=#:ce=$:\
101 :sb=":se=\e":lb=':le=\e':tl:\
102 :kw=break by case create default do dynamic else end every external\
103 fail global if initial local next not of procedure record\
104 repeat return static suspend then to until using while\
105 &ascii &clock &cset &date &dateline &errout &fail &host &input\
106 &lcase &level &main &null &output &pos &random &source &subject\
107 &time &trace &ucase &version:
108ratfor|rat|r:\
109 :pb=(subroutine|function)\d\p\d?\(\a?\):\
110 :bb=(subroutine|function)\d\p\d?\(\a?\):be=^\d?end:\
111 :cb=#:ce=$:\
112 :sb=":se=\e":lb=':le=\e':oc:\
113 :kw=DRETURN DRIVER arith break case character default define do\
114 else elsedef enddef filedes for function goto if ifdef ifelse\
115 ifnotdef include incr integer linepointer next opeq pointer\
116 real repeat return select string subroutine substr until:
592aa20b
RH
117modula2|mod2|m2:\
118 :pb=(^\d?(procedure|function|module)\d\p\d|\(|;|\:):\
119 :bb=\d(begin|case|for|if|loop|record|repeat|while|with)\d:\
120 :be=\dend|;:\
121 :cb={:ce=}:\
122 :ab=\(*:ae=*\):\
123 :sb=":se=":\
124 :oc:\
125 :kw=and array begin by case const\
126 definition div do else elsif end exit export\
127 for from if implementation import in\
128 loop mod module not of or pointer procedure qualified\
129 record repeat return set then to type\
130 until var while with:
131yacc|Yacc|y:\
132 :cb=/*:ce=*/:sb=":se=\e":lb=':le=\e':tl:\
133 :kw=%{ %} %% %union %token %type\
134 #else #endif #if #ifdef #ifndef #include #undef # define else endif\
135 if ifdef ifndef include undef:
be2b3938
KB
136C++|c++:\
137 :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:ab=//:\
138 :ae=$:sb=":se=\e":lb=':\
139 :le=\e':tl:\
140 :kw=asm auto break case char continue default do double else enum\
141 extern float for fortran goto if int long register return short\
142 sizeof static struct switch typedef union unsigned while void #define\
143 #else #endif #if #ifdef #ifndef #include #undef # define endif\
144 ifdef ifndef include undef defined\
145 class const delete friend inline new operator overload private\
146 protected public virtual: