home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / tex / lgrind / !lgrind / lgrindefs < prev    next >
Text File  |  1994-05-11  |  15KB  |  324 lines
  1. # Database of program templates for lgrind
  2.  
  3. # $Id: lgrindefs,v 1.2 91/10/01 00:32:49 gvr Exp $
  4.  
  5. a68:\
  6.         :oc:\
  7.         :cb=\|:ce=$:ab=/*:ae=*/:\
  8.         :sb=':se=':lb=":le=":\
  9.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  10.         :kw=ascii block byte end equ globl text data word even long\
  11.         #else #endif #if #ifdef #ifndef #include #undef #define:
  12.  
  13. asm:\
  14.         :oc:\
  15.         :cb=#:ce=$:ab=/*:ae=*/:\
  16.         :sb=':se=':lb=":le=":\
  17.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  18.         :kw=ascii block byte end equ globl text data word even long\
  19.         #else #endif #if #ifdef #ifndef #include #undef #define else endif\
  20.         if ifdef ifndef include undef define:
  21.  
  22. asm68:\
  23.         :pb=(^\d?.proc\d\p\d:\
  24.         :oc:\
  25.         :cb=;:ce=$:\
  26.         :sb=':se=':lb=":le=":\
  27.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  28.         :kw=ascii block byte end equ include long proc word:
  29.  
  30. C|c:\
  31.         :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:\
  32.         :cb=/*:ce=*/:sb=":se=\e":lb=':\
  33.         :le=\e':tl:\
  34.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  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.         #pragma #elif pragma elif\
  41.         #module #dictionary module dictionary\
  42.         variant_struct variant_union\
  43.         noshare readonly globaldef globalref globalvalue main_program:
  44. #Last couple of lines are partial ANSI, plus VAX-C specific
  45.  
  46. C++|c++|CC:\
  47.         :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:\
  48.         :cb=/*:ce=*/:ab=//:ae=$:sb=":se=\e":lb=':\
  49.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  50.         :le=\e':tl:\
  51.         :kw=asm auto break case char continue default do double else enum\
  52.         extern float for fortran goto if int long register return short\
  53.         sizeof static struct switch typedef union unsigned while void #define\
  54.         #else #endif #if #ifdef #ifndef #include #undef # define endif\
  55.         ifdef ifndef include undef defined\
  56.         class const delete friend inline new operator overload private\
  57.         protected public virtual:
  58.  
  59. CSH|csh:\
  60.         :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\
  61.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  62.         :le=\e':tl:\
  63.         :kw=alias alloc break breaksw case cd chdir continue default\
  64.         echo else end endif endsw exec exit foreach \
  65.         glob goto history if logout nice nohup onintr repeat set\
  66.         setenv shift source switch then time \
  67.         while umask unalias unset wait while @ env \
  68.         argv child home ignoreeof noclobber noglob \
  69.         nomatch path prompt shell status verbose :
  70.  
  71. fortran|FORTRAN|f77|fc|f:\
  72.         :pb=(function|subroutine|program)\d\p\d?\(\a?\):\
  73.         :bb=(function|subroutine|program)\d\p\d?\(\a?\):be=^\dend:\
  74.         :cb=^c:\
  75.         :ce=$:\
  76.         :sb=':\
  77.         :se=':\
  78.         :oc:\
  79.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  80.         :kw=call common complex continue dimension do double else elseif\
  81.         end endif equivalence format function\
  82.         goto if include integer \
  83.         parameter precision real return stop subroutine:
  84.  
  85. Icon|icon|I:\
  86.         :pb=^\d?procedure\d\p\d?\(\a?\):\
  87.         :bb=(^\d?procedure\d\p\d?\(\a?\))|{:be=}|(^\d?end\d?$):\
  88.         :cb=#:ce=$:\
  89.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  90.         :sb=":se=\e":lb=':le=\e':tl:\
  91.         :kw=break by case create default do dynamic else end every external\
  92.         fail global if initial local next not of procedure record\
  93.         repeat return static suspend then to until using while\
  94.         &ascii &clock &cset &date &dateline &errout &fail &host &input\
  95.         &lcase &level &main &null &output &pos &random &source &subject\
  96.         &time &trace &ucase &version:
  97.  
  98. ISP|isp|i:\
  99.         :cb=!:ce=!|$:oc:\
  100.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  101.         :kw=and begin decode define end eql eqv geq gtr if leave leq lss mod\
  102.         neq next not or otherwise repeat restart resume sr0 sr1 srd\
  103.         srr sl0 sl1 sld slr tst xor:
  104.  
  105. ldl|LDL:\
  106.         :pb=^\p\::bb=\::be=;:cb=/*:ce=*/:sb=":se=\e":\
  107.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  108.         :kw=constant functions grammar reswords tokens add1 addste\
  109.         car cdr check colno cond cons copy defun divide empty enter\
  110.         eq equal findattr firstchild ge getattr getfield gt hash label\
  111.         lambda lastchild le leftsibling lookone lookup lt minus name ne\
  112.         newnode nextcom nil null parent plus precnl prevcom prog progn\
  113.         quote reglob return rightsibling self set setattr setfield setq\
  114.         stjoin sub1 t times tnull tokno ttype:
  115.  
  116. #Linda is just like C, with a couple of extra keywords.  Note:  The non-
  117. #blocking operations are included, as are the pre-defined VAX Linda-C macros.
  118. linda|l:\
  119.         :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:\
  120.         :cb=/*:ce=*/:sb=":se=\e":lb=':\
  121.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  122.         :le=\e':tl:\
  123.         :kw=asm auto break case char continue default do double else enum\
  124.         extern float for fortran goto if int long register return short\
  125.         sizeof static struct switch typedef union unsigned void while #define\
  126.         #else #endif #if #ifdef #ifndef #include #undef # define else endif\
  127.         if ifdef ifndef include undef\
  128.         #pragma #elif pragma elif #line\
  129.         #module #dictionary module dictionary\
  130.         variant_struct variant_union\
  131.         noshare readonly globaldef globalref globalvalue main_program\
  132.         in inp rd rdp out eval newtype varying nchar\
  133.         $ARR $ARRAY $ARRAY_TYPE $MAKE_ARRAY\
  134.         $STR $STRING $STRING_TYPE $SET_DIM $MAKE_STRING\
  135.         #ttcontext ttcontext:
  136.  
  137. # Use MFT (part of the MetaFontWare package) instead.
  138. mf|metafont:\
  139.         :bb={:be=}:cb=%:ce=$:\
  140.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  141.         :kw=def if else fi for step until endfor\
  142.         input let end:
  143.  
  144. #
  145. # This entry makes use of new capabilities added to support the description
  146. # of lisp-like languages (id, pl, and px).  The set of keywords given is a
  147. # matter of taste.  It would be reasonable to add all the wired functions to
  148. # the list.
  149. MLisp|ml|Emacs Mock Lisp:\
  150.         :cb=;:ce=$:lb=':le=\e':sb=":se=\e":bb=\(:be=\):\
  151.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  152.         :id=_-$#@./,%&?!^*+~`|;<>'\::\
  153.         :kw=defun if progn while:pl:px=\d\(defun:pb=^\d\(\p($|(\d\a$)):
  154.  
  155. lisp|lsp:\
  156.         :cb= ;:ce=$:tb=;:te=$:sb=":se=\e":bb=\(:be=\):\
  157.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  158.         :id=_-$#@./,%&?!^*+~`|;<>'\::\
  159.         :kw=defmacro defun defstruct if progn loop prog cond do fdo let\
  160.             dotimes funcall dolist and or when unless flet labels catch\
  161.             defvar defconstant defparameter open close throw return prog\ 
  162.             prog* lambda\
  163.         :pl:px=\d\(defun|defmacro|defstruct:pb=^\d\(\p($|(\d\a$)):
  164.  
  165. scheme|scheme:\
  166.         :cb=;:ce=$:sb=":se=\e":bb=\(:be=\):\
  167.         :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
  168.         :id=_-$#@./,%&?!^*+~`|;<>'\::\
  169.         :kw= define if  while cond do let let* letrec\
  170.              eval and or when unless lambda\
  171.              open close\
  172.         :pl:px=\d\(define:pb=^\d\(\p($|(\d\a$)):
  173.           
  174. model|mod|m:\
  175.         :pb=^\d(space\d\p\drep)|(\p\dis|inline|public\dbeginproc):\
  176.         :bb=\dbeginproc|space|case\d:be=\dendproc|end\d|;:\
  177.         :cb=\$:ce=\$|$:sb=":se=":lb=':le=\a|$:\
  178.         :kw=abs and array beginproc boolean by case cdnl char copied dispose\
  179.         div do dynamic else elsif end endproc entry external FALSE false\
  180.         fi file for formal fortran global if iff ift\
  181.         in integer include inline is lbnd\
  182.         max min mod new NIL nil noresult not notin od of or procedure public\
  183.         read readln readonly record recursive rem rep repeat res\
  184.         result return set\
  185.         space string subscript such