vgrindefs.src revision 1590
167754Smsmith# Copyright (c) 1987, 1993
267754Smsmith#	The Regents of the University of California.  All rights reserved.
367754Smsmith#
467754Smsmith# Redistribution and use in source and binary forms, with or without
567754Smsmith# modification, are permitted provided that the following conditions
667754Smsmith# are met:
7217365Sjkim# 1. Redistributions of source code must retain the above copyright
8306536Sjkim#    notice, this list of conditions and the following disclaimer.
970243Smsmith# 2. Redistributions in binary form must reproduce the above copyright
1067754Smsmith#    notice, this list of conditions and the following disclaimer in the
11217365Sjkim#    documentation and/or other materials provided with the distribution.
12217365Sjkim# 3. All advertising materials mentioning features or use of this software
13217365Sjkim#    must display the following acknowledgement:
14217365Sjkim#	This product includes software developed by the University of
15217365Sjkim#	California, Berkeley and its contributors.
16217365Sjkim# 4. Neither the name of the University nor the names of its contributors
17217365Sjkim#    may be used to endorse or promote products derived from this software
18217365Sjkim#    without specific prior written permission.
19217365Sjkim#
20217365Sjkim# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21217365Sjkim# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22217365Sjkim# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23217365Sjkim# ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24217365Sjkim# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
2567754Smsmith# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26217365Sjkim# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27217365Sjkim# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28217365Sjkim# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
2967754Smsmith# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30217365Sjkim# SUCH DAMAGE.
31217365Sjkim#
32217365Sjkim#	@(#)vgrindefs.src	8.1 (Berkeley) 6/6/93
33217365Sjkim#
34217365Sjkim
35217365SjkimC|c:\
36217365Sjkim	:pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:sb=":se=\e":lb=':\
37217365Sjkim	:le=\e':tl:\
38217365Sjkim	:kw=asm auto break case char continue default do double else enum\
39217365Sjkim	extern float for fortran goto if int long register return short\
40217365Sjkim	sizeof static struct switch typedef union unsigned void while #define\
41217365Sjkim	#else #endif #if #ifdef #ifndef #include #undef # define else endif\
42217365Sjkim	if ifdef ifndef include undef:
4367754Smsmithmodel|mod|m:\
4467754Smsmith	:pb=^\d(space\d\p\drep)|(\p\dis|inline|public\dbeginproc):\
4567754Smsmith	:bb=\dbeginproc|space|case\d:be=\dendproc|end\d|;:\
4667754Smsmith	:cb=\$:ce=\$|$:sb=":se=":lb=':le=\a|$:\
47167802Sjkim	:kw=abs and array beginproc boolean by case cdnl char copied dispose\
4867754Smsmith	div do dynamic else elsif end endproc entry external FALSE false\
49167802Sjkim	fi file for formal fortran global if iff ift\
50167802Sjkim	in integer include inline is lbnd\
51167802Sjkim	max min mod new NIL nil noresult not notin od of or procedure public\
52167802Sjkim	read readln readonly record recursive rem rep repeat res\
53167802Sjkim	result return set\
54167802Sjkim	space string subscript such then TRUE true type ubnd union until\
55167802Sjkim	varies while width:
56167802Sjkimpascal|pasc|p:\
5799679Siwasaki	:pb=(^\d?procedure|function|program\d\p\d|\(|;|\:)|(=\d?record\d):\
5867754Smsmith	:bb=\dcase|begin\d:be=\dend|forward\d|;:\
5999679Siwasaki	:cb={:ce=}:\
60117521Snjl	:ab=\(*:ae=*\):\
61117521Snjl	:sb=':se=':\
62117521Snjl	:kw=and array assert begin case const div do downto else end file for\
6399679Siwasaki	forward function goto if in label mod nil not of or packed procedure\
64117521Snjl	program record repeat set then to type until var while with oct hex\
65117521Snjl	external:
66117521SnjlISP|isp|i:\
67117521Snjl	:cb=!:ce=!|$:oc:\
6899679Siwasaki	:kw=and begin decode define end eql eqv geq gtr if leave leq lss mod\
6999679Siwasaki	neq next not or otherwise repeat restart resume sr0 sr1 srd srr sl0 sl1\
7099679Siwasaki	sld slr tst xor:
71114237SnjlSH|sh:\
72167802Sjkim	:bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\
73167802Sjkim	:le=\e':tl:\
74167802Sjkim	:kw=break case cd continue do done \
75167802Sjkim	elif else esac eval exec exit export \
76167802Sjkim	fi for if in then while until \
77167802Sjkim	read readonly set shift test trap umask wait:
78167802SjkimCSH|csh:\
79167802Sjkim	:bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\
80167802Sjkim	:le=\e':tl:\
81167802Sjkim	:kw=alias alloc break breaksw case cd chdir continue default\
82167802Sjkim	echo else end endif endsw exec exit foreach \
83167802Sjkim	glob goto history if logout nice nohup onintr repeat set\
84167802Sjkim	setenv shift source switch then time \
85167802Sjkim	while umask unalias unset wait while @ env \
86167802Sjkim	argv child home ignoreeof noclobber noglob \
87167802Sjkim	nomatch path prompt shell status verbose :
88167802Sjkimldl|LDL:\
89167802Sjkim	:pb=^\p\::bb=\::be=;:cb=/*:ce=*/:sb=":se=\e":\
90167802Sjkim	:kw=constant functions grammar reswords tokens add1 addste\
91167802Sjkim	car cdr check colno cond cons copy defun divide empty enter\
92167802Sjkim	eq equal findattr firstchild ge getattr getfield gt hash label\
93167802Sjkim	lambda lastchild le leftsibling lookone lookup lt minus name ne\
94167802Sjkim	newnode nextcom nil null parent plus precnl prevcom prog progn\
95167802Sjkim	quote reglob return rightsibling self set setattr setfield setq\
96167802Sjkim	stjoin sub1 t times tnull tokno ttype:
97167802SjkimIcon|icon|I:\
98167802Sjkim	:pb=^\d?procedure\d\p\d?\(\a?\):\
99167802Sjkim	:bb=(^\d?procedure\d\p\d?\(\a?\))|{:be=}|(^\d?end\d?$):\
100167802Sjkim	:cb=#:ce=$:\
101167802Sjkim	:sb=":se=\e":lb=':le=\e':tl:\
102167802Sjkim	:kw=break by case create default do dynamic else end every external\
103167802Sjkim	fail global if initial local next not of procedure record\
104167802Sjkim	repeat return static suspend then to until using while\
105167802Sjkim	&ascii &clock &cset &date &dateline &errout &fail &host &input\
106167802Sjkim	&lcase &level &main &null &output &pos &random &source &subject\
107167802Sjkim	&time &trace &ucase &version:
108167802Sjkimratfor|rat|r:\
109167802Sjkim	:pb=(subroutine|function)\d\p\d?\(\a?\):\
110167802Sjkim	:bb=(subroutine|function)\d\p\d?\(\a?\):be=^\d?end:\
111167802Sjkim	:cb=#:ce=$:\
112193267Sjkim	:sb=":se=\e":lb=':le=\e':oc:\
113193267Sjkim	:kw=DRETURN DRIVER arith break case character default define do\
114167802Sjkim	else elsedef enddef filedes for function goto if ifdef ifelse\
115167802Sjkim	ifnotdef include incr integer linepointer next opeq pointer\
116167802Sjkim	real repeat return select string subroutine substr until:
117114237Snjlmodula2|mod2|m2:\
11899679Siwasaki	:pb=(^\d?(procedure|function|module)\d\p\d|\(|;|\:):\
119167802Sjkim	:bb=\d(begin|case|for|if|loop|record|repeat|while|with)\d:\
120167802Sjkim	:be=\dend|;:\
121167802Sjkim	:cb={:ce=}:\
122167802Sjkim	:ab=\(*:ae=*\):\
123167802Sjkim	:sb=":se=":\
124114237Snjl	:oc:\
125281075Sdim	:kw=and array begin by case const\
126281075Sdim	definition div do else elsif end exit export\
127167802Sjkim	for from if implementation import in\
128167802Sjkim	loop mod module not of or pointer procedure qualified\
129167802Sjkim	record repeat return set then to type\
130281075Sdim	until var while with:
131167802Sjkimyacc|Yacc|y:\
132167802Sjkim	:cb=/*:ce=*/:sb=":se=\e":lb=':le=\e':tl:\
133114237Snjl	:kw=%{ %} %% %union %token %type\
134281075Sdim	#else #endif #if #ifdef #ifndef #include #undef # define else endif\
135167802Sjkim	if ifdef ifndef include undef:
136212761SjkimC++|c++:\
137212761Sjkim	:pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:ab=//:\
138212761Sjkim	:ae=$:sb=":se=\e":lb=':\
139212761Sjkim	:le=\e':tl:\
140212761Sjkim	:kw=asm auto break case char continue default do double else enum\
141212761Sjkim	extern float for fortran goto if int long register return short\
142212761Sjkim	sizeof static struct switch typedef union unsigned while void #define\
143212761Sjkim	#else #endif #if #ifdef #ifndef #include #undef # define endif\
144212761Sjkim	ifdef ifndef include undef defined\
145167802Sjkim	class const delete friend inline new operator overload private\
146212761Sjkim	protected public virtual:
147167802Sjkim