usr.bin/vgrind/vgrindefs.src

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