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