written by Mark Horton; add Berkeley copyright

[unix-history] / usr / src / usr.bin / vgrind / vgrindefs.src

diff --git a/usr/src/usr.bin/vgrind/vgrindefs.src b/usr/src/usr.bin/vgrind/vgrindefs.src
index 1bf38ff..93bf65b 100644 (file)
--- a/usr/src/usr.bin/vgrind/vgrindefs.src
+++ b/usr/src/usr.bin/vgrind/vgrindefs.src
@@ -1,3 +1,30 @@
+#
+# Copyright (c) 1987 Regents of the University of California.
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms are permitted
+# provided that the above copyright notice and this paragraph are
+# duplicated in all such forms and that any documentation,
+# advertising materials, and other materials related to such
+# distribution and use acknowledge that the software was developed
+# by the University of California, Berkeley.  The name of the
+# University may not be used to endorse or promote products derived
+# from this software without specific prior written permission.
+# THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+#
+#      @(#)vgrindefs.src       1.14 (Berkeley) %G%
+#
+
+C|c:\
+       :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:sb=":se=\e":lb=':\
+       :le=\e':tl:\
+       :kw=asm auto break case char continue default do double else enum\
+       extern float for fortran goto if int long register return short\
+       sizeof static struct switch typedef union unsigned void while #define\
+       #else #endif #if #ifdef #ifndef #include #undef # define else endif\
+       if ifdef ifndef include undef:

 model|mod|m:\
        :pb=^\d(space\d\p\drep)|(\p\dis|inline|public\dbeginproc):\
        :bb=\dbeginproc|space|case\d:be=\dendproc|end\d|;:\
 model|mod|m:\
        :pb=^\d(space\d\p\drep)|(\p\dis|inline|public\dbeginproc):\
        :bb=\dbeginproc|space|case\d:be=\dendproc|end\d|;:\


@@ -21,14 +48,6 @@ pascal|pasc|p:\
        forward function goto if in label mod nil not of or packed procedure\
        program record repeat set then to type until var while with oct hex\
        external:
        forward function goto if in label mod nil not of or packed procedure\
        program record repeat set then to type until var while with oct hex\
        external:

-C|c:\
-       :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:sb=":se=\e":lb=':\
-       :le=\e':tl:\
-       :kw=asm auto break case char continue default do double else enum\
-       extern float for fortran goto if int long register return short\
-       sizeof static struct switch typedef union unsigned void while #define\
-       #else #endif #if #ifdef #ifndef #include #undef # define else endif\
-       if ifdef ifndef include undef:

 ISP|isp|i:\
        :cb=!:ce=!|$:oc:\
        :kw=and begin decode define end eql eqv geq gtr if leave leq lss mod\
 ISP|isp|i:\
        :cb=!:ce=!|$:oc:\
        :kw=and begin decode define end eql eqv geq gtr if leave leq lss mod\


@@ -80,3 +99,33 @@ ratfor|rat|r:\
        else elsedef enddef filedes for function goto if ifdef ifelse\
        ifnotdef include incr integer linepointer next opeq pointer\
        real repeat return select string subroutine substr until:
        else elsedef enddef filedes for function goto if ifdef ifelse\
        ifnotdef include incr integer linepointer next opeq pointer\
        real repeat return select string subroutine substr until:

+modula2|mod2|m2:\
+       :pb=(^\d?(procedure|function|module)\d\p\d|\(|;|\:):\
+       :bb=\d(begin|case|for|if|loop|record|repeat|while|with)\d:\
+       :be=\dend|;:\
+       :cb={:ce=}:\
+       :ab=\(*:ae=*\):\
+       :sb=":se=":\
+       :oc:\
+       :kw=and array begin by case const\
+       definition div do else elsif end exit export\
+       for from if implementation import in\
+       loop mod module not of or pointer procedure qualified\
+       record repeat return set then to type\
+       until var while with:
+yacc|Yacc|y:\
+       :cb=/*:ce=*/:sb=":se=\e":lb=':le=\e':tl:\
+       :kw=%{ %} %% %union %token %type\
+       #else #endif #if #ifdef #ifndef #include #undef # define else endif\
+       if ifdef ifndef include undef:
+C++|c++:\
+       :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:ab=//:\
+       :ae=$:sb=":se=\e":lb=':\
+       :le=\e':tl:\
+       :kw=asm auto break case char continue default do double else enum\
+       extern float for fortran goto if int long register return short\
+       sizeof static struct switch typedef union unsigned while void #define\
+       #else #endif #if #ifdef #ifndef #include #undef # define endif\
+       ifdef ifndef include undef defined\
+       class const delete friend inline new operator overload private\
+       protected public virtual: