--- /dev/null
+# Database of program templates for lgrind
+# $Id: lgrindef,v 1.1 2006/09/03 14:38:10 kaashoek Exp $
+
+Ada:\
+ :pb=(^\d?procedure|function\d\p\d|\():\
+ :np=;\d?$:id=_.:\
+ :bb=\d(begin|case|do|if|loop|select)\d:be=\dend\d|;:\
+ :rb=(\=|\:|\d|^)(protected|record):\
+ :oc:\
+ :cb=--:ce=$:ab=--:ae=$:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :sb=":se=":lb=':le=':\
+ :kw=abort abs accept access aliased all and array at begin body case\
+ constant declare delay delta digits do else elsif end entry exception exit\
+ for function generic goto if in is limited loop mod new not null of or\
+ others out package pragma private procedure protected raise range record\
+ rem renames requeue return reverse select separate subtype tagged task\
+ terminate then type until use when while with xor:
+
+Asm:\
+ :oc:\
+ :cb=#:ce=$:ab=/*:ae=*/:\
+ :sb=':se=':lb=":le=":\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=ascii block byte end equ globl text data word even long\
+ #else #endif #if #ifdef #ifndef #include #undef #define else endif\
+ if ifdef ifndef include undef define:
+
+Asm68:\
+ :pb=(^\d?.proc\d\p\d:\
+ :oc:\
+ :cb=;:ce=$:\
+ :sb=':se=':lb=":le=":\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=ascii block byte end equ include long proc word:
+
+# JL - Added QBASIC Aug 95
+BASIC:\
+ :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:\
+ :cb=':ce=$:sb=":se=":\
+ :le=\e':tl:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw= ABS APPEND ABSOLUTE AS ACCESS ASC AND ATN ANY \
+ BASE BLOAD BEEP BSAVE BINARY \
+ CALL COLOR CALL ABSOLUTE COM CASE COMMON CDBL CONST\
+ CHAIN COS CHDIR CSNG CHR$ CSRLIN CINT CVD CIRCLE CVDMBF\
+ CLEAR CVI CLNG CVL CLOSE CVS CLS CVSMBF \
+ DATA DEFLNG DEFSNG DATE$ DEFSTR DATE$ DIM DECLARE DO LOOP\
+ DEF FNDOUBLE DEF SEG DRAW DEFDBL $DYNAMIC DEFINT \
+ ELSE ERDEV ELSEIF ERDEV$ END ERL ENVIRON ERR ENVIRON$ \
+ ERROR EOF EXIT EQV EXP ERASE \
+ FIELD FOR NEXT FILEATTR FRE FILES FREEFILE FIX FUNCTION\
+ GET GOSUB GET GOTO \
+ HEX$ IF THEN ELSE INSTR IMP INT INKEY$ INTEGER \
+ INP IOCTL INPUT IOCTL$ INPUT$ IS \
+ KEY KILL KEY \
+ LBOUND LOCK UNLOCK LCASE$ LOF LEFT$ LOG LEN LONG LET LOOP\
+ LINE LPOS LINE INPUT LPRINT LIST LPRINT USING LOC LSET LOCATE LTRIM$\
+ MID$ MKI$ MID$ MKL$ MKD$ MKS$ MKDIR MKSMBF$ MKDMBF$ MOD \
+ NAME NOT NEXT \
+ OCT$ ON TIMER OFF ON GOSUB ON COM ON GOTO ON ERROR OPEN \
+ ON OPEN COM ON KEY OPTION BASE ON PEN OR ON PLAY OUT ON STRIG OUTPUT \
+ PAINT POINT PALETTE POKE PCOPY POS PEEK PRESET PEN PRINT \
+ PEN PRINT USING PLAY PSET PLAY PUT PLAY PUT PMAP \
+ RANDOM RETURN RANDOMIZE RIGHT$ READ RMDIR REDIM RND REM RSET RESET \
+ RTRIM$ RESTORE RUN RESUME \
+ SCREEN SQR STATIC SEEK $STATIC SEEK STEP SELECT CASE STICK SGN STOP \
+ SHARED STR$ SHELL STRIG SIN STRIG SINGLE STRING SLEEP STRING$ \
+ SOUND SUB SPACE$ SWAP SPC SYSTEM \
+ TAB TIMER TAN TO THEN TROFF TIME$ TRON TIME$ TYPE TIMER \
+ UBOUND UNTIL UCASE$ USING UNLOCK \
+ VAL VARSEG VARPTR VIEW VARPTR$ VIEW \
+ WAIT WIDTH WEND WINDOW WHILE WEND WRITE \
+ XOR :
+
+# DOS Batch file language description for the LGrind pretty-printer
+# Jim Green <j.j.green@shef.ac.uk> 11/15/96 Notice that the tex block
+# is a triple-precent rather than a double, and that `program text
+# within a comment' also has an added percent (to avoid conflicts with
+# environmental variables and `@echo off' statements respectively).
+# This assumes that it is possible to write a batch file sufficiently
+# complex to need such explanation.
+Batch|bat:\
+ :pb=^\d?\:\p\d?$:\
+ :cb=rem :ce=$:\
+ :sb=echo:se=$:\
+ :zb=%@:ze=%@:tb=%%%:te=%%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=call do echo @echo exist for goto if in not pause rem shift:
+
+C:\
+ :pb=\p\d?\(:cf:np=\)\d?;:bb={:be=}:\
+ :cb=/*:ce=*/:sb=":se=\e":lb=':le=\e':\
+ :tl:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=asm auto break case cdecl char continue default do double else\
+ enum extern far float for fortran goto huge if int interrupt long\
+ near pascal register return short signed 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 #pragma #elif pragma elif\
+ #module #dictionary module dictionary\
+ variant_struct variant_union\
+ noshare readonly globaldef globalref globalvalue main_program:
+#Last couple of lines are partial ANSI, plus VAX-C specific
+
+C++|CC:\
+ :pb=\p\d?\(:cf:np=\)\d?;:bb={:be=}:\
+ :cb=/*:ce=*/:ab=//:ae=$:sb=":se=\e":lb=':le=\e':\
+ :tl:id=_~\::\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=and and_eq asm auto bitand bitor bool break case catch char class\
+ compl const const_cast continue default delete do double dynamic_cast\
+ else enum explicit export extern false float for friend goto if inline\
+ int long mutable namespace new not not_eq operator or or_eq private\
+ private\: protected protected\: public public\: register\
+ reinterpret_cast return short signed sizeof static static_cast struct\
+ switch template this throw true try typedef typeid typename union\
+ unsigned using virtual void volatile wchar_t while xor xor_eq\
+ static_cast const_cast dynamic_cast reinterpret_cast\
+ #define #else #endif #if #ifdef #ifndef #include #undef #pragma #\
+ define else endif if ifdef ifndef include undef defined:
+
+csh:\
+ :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :le=\e':tl:\
+ :kw=alias alloc break breaksw case cd chdir continue default\
+ echo else end endif endsw exec exit foreach \
+ glob goto history if logout nice nohup onintr repeat set\
+ setenv shift source switch then time \
+ while umask unalias unset wait while @ env \
+ argv child home ignoreeof noclobber noglob \
+ nomatch path prompt shell status verbose :
+
+FORTRAN|f77|f:\
+ :pb=(function|subroutine|program)\d\p\d?\(\a?\):\
+ :bb=(function|subroutine|program)\d\p\d?\(\a?\):be=^\dend\d:\
+ :cb=^(c|C|*):ce=$:\
+ :sb=':se=':\
+ :oc:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=call character close common complex continue data dimension do\
+ double else elseif end enddo endif entry equivalence format function\
+ goto if implicit include integer logical open pause parameter print\
+ precision program read real return stop subroutine then write\
+ gt ge lt le eq ne and or not false true:
+# The last should contain a lot more periods. But LGrind's parser doesn't like
+# them. So you can't use 'gt' as identifier. (Who would want to, anyway?)
+
+Gnuplot:\
+ :pb=\d?\p\(\a\)=:\
+ :cb=#:ce=$:\
+ :sb=("|'):se=("|'):\
+ :zb=@:ze=@:\
+ :tb=%%:te=%%::mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=cd clear exit load pause plot pwd quit replot save set showsplot\
+ title using with:
+
+Icon:\
+ :pb=^\d?procedure\d\p\d?\(\a?\):\
+ :bb=(^\d?procedure\d\p\d?\(\a?\))|{:be=}|(^\d?end\d?$):\
+ :cb=#:ce=$:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :sb=":se=\e":lb=':le=\e':tl:\
+ :kw=break by case create default do dynamic else end every external\
+ fail global if initial local next not of procedure record\
+ repeat return static suspend then to until using while\
+ &ascii &clock &cset &date &dateline &errout &fail &host &input\
+ &lcase &level &main &null &output &pos &random &source &subject\
+ &time &trace &ucase &version:
+
+# Written by Diego Berrueta <diego@berrueta.net>
+IDL:\
+ :pb=\p\d?\(:cf:np=\)\d?;:bb={:be=}:\
+ :cb=/*:ce=*/:ab=//:ae=$:sb=":se=\e":lb=':le=\e':\
+ :tl:id=_~\::\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=abstract any attribute boolean case char const context \
+ custom default double exception enum factory FALSE fixed float \
+ in inout interface local long module native Object\
+ octet oneway out private public raises readonly sequence short \
+ string struct supports switch TRUE truncatable typedef unsigned \
+ union ValueBase valuetype void wchar wstring\
+ #define #else #endif #if #ifdef #ifndef #include #undef #pragma #\
+ define else endif if ifdef ifndef include undef defined:
+
+ISP:\
+ :cb=!:ce=!|$:oc:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=and begin decode define end eql eqv geq gtr if leave leq lss mod\
+ neq next not or otherwise repeat restart resume sr0 sr1 srd\
+ srr sl0 sl1 sld slr tst xor:
+
+Java:\
+ :pb=\p\d?\(:cf:np=\)\d?;:bb={:be=}:\
+ :cb=/*:ce=*/:ab=//:ae=$:sb=":se=\e":lb=':\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :le=\e':tl:id=_~\:\
+ :kw=abstract boolean break byte byvalue case catch char class const\
+ continue default do double else extends false final finally float for goto\
+ if implements import instanceof int interface long native new null package\
+ private protected public return short static super switch synchronized this\
+ throw throws true try void volatile while:
+# Somewhere these come from, but they are not in my Java book.
+# :kw=cast future generic inner rest transient var:
+
+
+Kimwitu++|kimw:\
+ :pb=\p\d?\(:cf:np=\)\d?;:bb={:be=}:\
+ :cb=/*:ce=*/:ab=//:ae=$:sb=":se=\e":lb=':le=\e':\
+ :tl:id=_~\::\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=and and_eq asm auto bitand bitor bool break case catch char class\
+ compl const const_cast continue default delete do double dynamic_cast\
+ else enum explicit export extern false float for foreach friend goto\
+ if inline int long mutable namespace new not not_eq operator or or_eq\
+ private private\: protected protected\: provided public public\:\
+ register reinterpret_cast return rview short signed sizeof static\
+ static_cast struct switch template this throw true try typedef typeid\
+ typename union unsigned using uview virtual void volatile wchar_t\
+ while with xor xor_eq\
+ static_cast const_cast dynamic_cast reinterpret_cast\
+ #define #else #endif #if #ifdef #ifndef #include #undef #pragma #\
+ define else endif if ifdef ifndef include undef defined:
+
+# JL - Jan 96 Added LaTeX
+# JL - May 96 LaTeX-2e additions
+LaTeX:\
+ :tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :cb=%:ce=$:kw=\
+ abstract addcontentsline addtocontents addtocounter address addtolength \
+ addvspace alph appendix arabic array article author begin bf bfseries \
+ bibitem bigskip book \
+ cdots center centering circle cite cleardoublepage clearpage \
+ cline closing color colorbox dashbox date ddots definecolor description \
+ displaymath document documentclass documentstyle dotfill em emph end \
+ enumerate eqnarray equation fbox fcolorbox figure flushbottom flushleft \
+ flushright fnsymbol footnote footnotemark footnotesize footnotetext frac \
+ frame framebox hfill hline hhline hrulefill hspace huge Huge hyphenation \
+ include includeonly indent input it itemize itshape kill label large \
+ Large LARGE ldots letter line linebreak linethickness list location \
+ makebox maketitle mark mbox mdseries medskip minipage multicols \
+ multicolumn multiput newcommand newcounter newenvironment newfont \
+ newlength newline newpage newsavebox newtheorem nocite noindent \
+ nolinebreak normalfont normalsize nopagebreak onecolumn opening oval \
+ overbrace overline pagebreak pagecolor pagenumbering pageref pagestyle \
+ par parbox picture put quotation quote raggedbottom raggedleft \
+ raggedright raisebox ref report resizebox rm rmfamily roman rotatebox \
+ rule savebox sc scriptsize setcounter setlength settowidth scalebox \
+ sf sffamily shortstack signature sl slshape small smallskip sqrt \
+ tabbing table tabular telephone \
+ textbf textit textmd textrm textsc textsf textsl texttt textup \
+ thanks thebibliography theorem thispagestyle tiny title titlepage \
+ tt ttfamily twocolumn typeout typein \
+ underbrace underline upshape usebox usecounter usepackage \
+ value vdots vector verb \
+ verbatim verse vfill vline vspace :
+
+LDL:\
+ :pb=^\p\::bb=\::be=;:cb=/*:ce=*/:sb=":se=\e":\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=constant functions grammar reswords tokens add1 addste\
+ car cdr check colno cond cons copy defun divide empty enter\
+ eq equal findattr firstchild ge getattr getfield gt hash label\
+ lambda lastchild le leftsibling lookone lookup lt minus name ne\
+ newnode nextcom nil null parent plus precnl prevcom prog progn\
+ quote reglob return rightsibling self set setattr setfield setq\
+ stjoin sub1 t times tnull tokno ttype:
+
+Lex:\
+ :lb=[|':le=]|\e':tc=C++:
+
+#Linda is just like C, with a couple of extra keywords. Note: The non-
+#blocking operations are included, as are the pre-defined VAX Linda-C macros.
+Linda:\
+ :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:\
+ :cb=/*:ce=*/:sb=":se=\e":lb=':\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :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\
+ #pragma #elif pragma elif #line\
+ #module #dictionary module dictionary\
+ variant_struct variant_union\
+ noshare readonly globaldef globalref globalvalue main_program\
+ in inp rd rdp out eval newtype varying nchar\
+ $ARR $ARRAY $ARRAY_TYPE $MAKE_ARRAY\
+ $STR $STRING $STRING_TYPE $SET_DIM $MAKE_STRING\
+ #ttcontext ttcontext:
+
+make:\
+ :cb=#:ce=$:\
+ :sb=':se=':lb=":le=":\
+ :id=-_:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=define endef ifeq ifneq else endif include override export unexport vpath\
+ subst patsubst strip findstring filter filter-out sort dir notdir suffix basename\
+ addsuffix addprefix join word words firstword wildcard shell origin foreach:
+
+# JL - 'masm' (Microsoft Assembler) by way of
+# modification of 'asm' style provided above.
+# The instructions are *not* defined as keywords here.
+MASM:\
+ :oc:\
+ :cb=;:ce=$:ab=/*:ae=*/:\
+ :sb=':se=':lb=":le=":\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=ascii block globl even long\
+ 286 386 486 \
+ code data dosseg end endp equ \
+ huge large medium model proc small stack tiny title :
+
+# JL - Added MATLAB Jan 96
+# Note: the string delimiter ' is also used as a transpose operator
+# causing the rest of the line to be interpreted as a string.
+MATLAB:\
+ :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:\
+ :cb=%:ce=$:sb=':se='|$|;:\
+ :le=\e':tl:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw= \
+ abs acos acosh acot acoth acsc acsch \
+ airfoil all andrew angle angle ans any arith \
+ asec asech asin asinh atan atan2 atanh auread \
+ auwrite axes axis balance bar bartlett bench bessel \
+ bessela besselap besself besseli besselj besselk bessely beta \
+ betacore betainc betaln bilinear blackman blanks blt bone \
+ boxcar break brighten bucky buttap butter buttonv buttord \
+ cart2pol cart2sph caxis cceps cd cdf2rdf cedit ceil \
+ census censusex cheb1ap cheb1ord cheb2ap cheb2ord chebwin cheby1 \
+ cheby2 choices choicex chol cinvert cla clabel clc \
+ clear clf clg clock close cohere colmmd colon \
+ colormap colormenu colperm colstyle comet comet3 compan compass \
+ computer cond condest conj contour contour3 contourc contrast \
+ conv conv conv2 conv2 convmtx cool copper corrcoef \
+ corrcoef cos cosh cot coth cov cov cplxdemo \
+ cplxgrid cplxmap cplxpair cplxpair cplxroot cputime cross csc \
+ csch csd cumprod cumsum cylinder czt cztdemo d \
+ datalist date dbclear dbcont dbdown dbquit dbstack dbstatus \
+ dbstep dbstop dbtype dbup dc2sc dct deblank debug \
+ dec2hex decimate deconv deconv del2 delete delsq delsqdemo \
+ delsqshow demo demod det detrend dftmtx diag diary \
+ diff dir diric disp dmperm dos drawnow earthex \
+ earthmap echo eig eigmovie ellip ellipap ellipj ellipk \
+ ellipke ellipord else elseif end eps erf erfc \
+ erfcore erfcx erfinv error errorbar etime etree etreeplot \
+ eval exist exp expm expm1 expm2 expm3 eye \
+ fclose feather feof ferror feval fft fft fft2 \
+ fft2 fftdemo fftfilt fftshift fftshift fftshift fgetl fgets \
+ figtext figure fill fill3 filtdemo filter filter filter2 \
+ filtfilt filtic find findstr finite fir1 fir2 firls \
+ fitdemo fitfun fix flag fliplr flipud floor flops \
+ fmin fmins fopen foptions for format fourier fplot \
+ fplotdemo fprintf fread freqs freqspace freqz frewind fscanf \
+ fseek ftell full function funm fwrite fzero gallery \
+ gamma gammainc gammaln gca gcd gcf get getenv \
+ getframe ginput global gplot gradient gray graymon grid \
+ griddata grpdelay gtext hadamard hamming hankel hanning hardcopy \
+ help hess hex2dec hex2num hidden highlight hilb hilbert \
+ hint hist hold home hostid hot hsv hsv2rgb \
+ humps i icubic idct ident if ifft ifft \
+ ifft2 ifft2 iffuse imag image imagedemo imageext imagesc \
+ impinvar impz imread imtext imwrite inf info input \
+ inquire int2str interp interp1 interp1 interp2 interp3 interp4 \
+ interp5 interpft intfilt intro inv inverf invfreqs invfreqz \
+ invhilb isempty isglobal ishold isieee isinf isletter isnan \
+ issparse isstr isunix j jet kaiser keyboard knot \
+ kron lalala lasterr lcm legend length levinson life lifeloop \
+ lin2mu line linspace load loadwave log log10 log2 \
+ loglog logm logspace lookfor lorenz lorenzeq lotka lower \
+ lp2bp lp2bs lp2hp lp2lp lpc ls lscov lu \
+ magic man mathlist matlabro max mean medfilt1 median \
+ membrane memory menu mesh meshc meshdom meshgrid meshz \
+ meta min mkpp mmove2 moddemo modulate more movie \
+ moviein mu2lin nalist nan nargchk nargin nargout nestdiss \
+ nested newplot nextpow2 nnls nnz nonzeros norm normest \
+ null num2str numgrid nzmax ode23 ode23p ode45 odedemo \
+ ones orient orth pack paren pascal patch path \
+ pause pcolor peaks penny pi pink pinv planerot \
+ plot plot3 pol2cart polar poly poly2rc polyder polyfit \
+ polyline polymark polystab polyval polyvalm pow2 ppval print \
+ printopt prism prod prony psd punct puzzle pwd \
+ qr qrdelete qrinsert quad quad8 quad8stp quaddemo quadstp \
+ quake quit quiver qz rand randn randperm rank \
+ rat rats rbbox rc2poly rceps rcond readme real \
+ realmax realmin relop rem remez remezord resample reset \
+ reshape resi2 residue residuez return rgb2hsv rgbplot rjr \
+ roots rose rosser rot90 round rref rrefmovie rsf2csf \
+ save savewave sawtooth saxis sc2dc schur script sec \
+ sech semilogx semilogy sepdemo sepplot set setstr shading \
+ shg showwind sig1help sig2help sigdemo1 sigdemo2 sign sin \
+ sinc sinh size slash slice sort sos2ss sos2tf \
+ sos2zp sound sounddemo soundext spalloc sparlist sparse sparsfun \
+ sparsity spaugment spconvert spdiags specgram specials spectrum specular \
+ speye spfun sph2cart sphere spinmap spiral spline spline \
+ spline2d spones spparms sprandn sprandsym sprank sprintf spy \
+ spypart sqdemo sqrt sqrtm square ss2sos ss2tf ss2zp \
+ sscanf stairs std stem stem stmcb str2mat str2num \
+ strcmp strings strips subplot subscribe subspace sum sunspots \
+ superquad surf surface surfc surfl surfnorm svd swapprev \
+ symbfact symmmd symrcm table1 table2 tan tanh tempdir \
+ tempname terminal text tf2ss tf2zp tfe tffunc tic \
+ title toc toeplitz trace trapz treelayout treeplot triang \
+ tril triu type uicontrol uigetfile uimenu uiputfile uisetcolor \
+ uisetfont unix unmesh unmkpp unwrap unwrap upper vander \
+ vco ver version vibes view viewmtx waterfall what \
+ whatsnew which while white whitebg who whos why \
+ wilkinson xcorr xcorr2 xcov xlabel xor xyzchk ylabel \
+ yulewalk zerodemo zeros zlabel zp2sos zp2ss zp2tf zplane :
+
+# Courtesy of Dominique de Waleffe (ddw@miscrit.be)
+Mercury:\
+ :bb=\:-:be=.:cb=%:ce=$:ab=/*:ae=*/:\
+ :zb=@:ze=@:tb=%*%:te=%*%:mb=%*\$:me=\*$%:vb=%*\|:ve=\|*%:\
+ :sb=":se=\e":lb=':le=\e':oc:\
+ :kw=pred type module import_module mode \:\: -> --> ---> \:-\
+ pragma func lambda det semidet multi cc_multi failure nondet\
+ true fail is in out di uo ui interface implementation:
+
+# This entry makes use of new capabilities added to support the description
+# of lisp-like languages (id, pl, and px). The set of keywords given is a
+# matter of taste. It would be reasonable to add all the wired functions to
+# the list.
+MLisp|Emacs Mock Lisp:\
+ :cb=;:ce=$:lb=':le=\e':sb=":se=\e":bb=\(:be=\):\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :id=_-$#@./,%&?!^*+~`|;<>'\::\
+ :kw=defun if progn while:pl:px=\d\(defun:pb=^\d\(\p($|(\d\a$)):
+
+SML/NJ:ML:\
+ :cb=\(\*:ce=\*\):\
+ :pb=fun:\
+ :id=_':\
+ :lb=(#)":le=":sb=":se=\e":\
+ :kw=fun let in end if then else andalso orelse and val fun structure\
+ exception infix infixr nonfix type abstype datatype withtype with\
+ local rec open use sig eqtype functor signature handle raise fn while\
+ do case of as \:\: ... => -> |:
+
+# Scheme has a funky character quoting mechanism, 'a' in C is #\a in
+# Scheme. Lgrind doesn't deal with this well. I tried a few different
+# things, and decided the best option was to punt.
+Scheme|scm:\
+ :cb=;:ce=$:\
+ :lb=(#):le=(\\):\
+ :sb=":se=\e":\
+ :id=_-$#@./,%&?!^*+~`|;<>'\::\
+ :pb=\(define\d\(:\
+ :kw=define lambda let:
+
+model:\
+ :pb=^\d(space\d\p\drep)|(\p\dis|inline|public\dbeginproc):\
+ :bb=\dbeginproc|space|case\d:be=\dendproc|end\d|;:\
+ :cb=\$:ce=\$|$:sb=":se=":lb=':le=\a|$:\
+ :kw=abs and array beginproc boolean by case cdnl char copied dispose\
+ div do dynamic else elsif end endproc entry external FALSE false\
+ fi file for formal fortran global if iff ift\
+ in integer include inline is lbnd\
+ max min mod new NIL nil noresult not notin od of or procedure public\
+ read readln readonly record recursive rem rep repeat res\
+ result return set\
+ space string subscript such then TRUE true type ubnd union until\
+ varies while width:
+
+Modula2|mod2|m2:\
+ :pb=(^\d?(PROCEDURE|MODULE)\d\p\d|\(|;|\:)|(=|\:\d?RECORD\d):\
+ :np=FORWARD:id=_.:\
+ :bb=\d(BEGIN|CASE|FOR|IF|LOOP|WHILE|WITH|CLASS)\d:\
+ :be=\dEND\d|;:\
+ :cb=\(*:ce=*\):\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :sb=":se=":lb=':le=':\
+ :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:
+
+# Of course this is not simple Pascal anymore. Borland set THE standard
+# for a modern Pascal. Available as Delphi or Free Pascal.
+Pascal|pas|p|bp:\
+ :pb=(^\d?procedure|function|constructor|destructor\d\p\d|\(|;|\:):\
+ :np=forward:id=_.:\
+ :bb=\d(case|begin|asm)\d:be=\dend\d|;:\
+ :rb=(\=|\:|\d|^)(record|object(\(\a\))?)(\d|$):\
+ :oc:\
+ :cb={:ce=}:ab=\(*:ae=*\):\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :sb=':se=':\
+ :kw=and asm array begin case const constructor destructor div do\
+ downto else end end. exports file for function goto if implementation\
+ in inherited inline interface label library mod nil not object of or\
+ packed procedure program record repeat set shl shr then to type unit\
+ until uses var while with xor\
+ $ifdef $ifndef $ifopt $else $endif\
+ absolute assembler export external far forward index interrupt\
+ name near private public resident virtual\
+ break continue exit halt:
+# The last four are not keywords, but procedures, but they are far more than
+# normal and deserve to be treated as if (at least by a pretty printer).
+# The 14 modifiers in the last two lines but one also should be treated
+# specially though they are not keywords. "string", on the other hand, IS
+# a keyword, but since "integer", "boolean" etc. are not, along with any
+# self defined type whatsoever, it is not in this list.
+
+#Perl definition; snarfed from the net
+PERL|pl:\
+ :pb=^\d?sub\d\p(\d|{):\
+ :bb={:be=}:cb=\d#:ce=$:sb=":se=\e":lb=':le=\e':\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :tl:\
+ :kw=if until while elsif else unless for foreach continue sub\
+ accept and atan2 bind chdir chmod chop chown chroot close\
+ closedir cmp connect cos crypt dbmclose dbmopen defined delete die\
+ do dump each eof eq eval exec exit exp fcntl fileno flock fork\
+ getc getlogin getpeername getpgrp getppid getpriority getpwnam\
+ getgrnam gethostbyname getnetbyname getprotobyname getpwuid getgrgid\
+ getservbyname gethostbyaddr getnetbyaddr getprotobynumber\
+ getservbyport getpwent getgrent gethostent getnetent getprotoent\
+ getservent gt setpwent setgrent sethostent setnetent setprotoent\
+ setservent endpwent endgrent endhostent endnetent endprotoent\
+ endservent ge getsockname getsockopt gmtime goto grep hex ioctl\
+ index int join keys kill last le length link listen local localtime\
+ log lstat lt m mkdir ne next not oct open opendir or ord pack pop print printf\
+ push q qq rand read readdir readlink recv redo rename reset return\
+ reverse rewinddir rindex rmdir s seek seekdir select setpgrp send\
+ setpriority setsockopt shift shutdown sin sleep socket socketpair\
+ sort split sprintf sqrt srand stat study substr syscall system\
+ symlink tell telldir time times tr y umask undef unlink unpack\
+ unshift utime values vec wait wantarray warn write x xor:
+
+PostScript|ps:\
+ :oc:\
+ :cb=%:ce=$:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :sb=\(:se=\e\):\
+ :kw=forall array null dict begin end def store string \
+ exec if ifelse repeat for loop exit stop stopped quit \
+ start save restore gsave grestore grestoreall definefont \
+ newpath initgraphics erasepage showpage copypage initclip \
+ clip eoclip fill eofill stroke image imagemask:
+
+PROLOG:\
+ :bb=\:-:be=.$:cb=%:ce=$:ab=/*:ae=*/:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :sb=":se=\e":lb=':le=\e':oc:\
+ :kw=op mod abort ancestors arg ascii ask assert asserta assertz\
+ atom atomic char clause close concat consult ed ef em eof fail\
+ file findall write functor getc integer is length listing load name\
+ nl nonvar not numbervars op or pp prin print private prompt putc\
+ ratom read read_from_this_file rename repeat retract retractall\
+ save see seeing seen sh skip statistics subgoal_of system tab\
+ tell telling time told trace true unload untrace var write:
+
+Python|py:\
+ :pb=^\d?(def|class)\d\p(\d|\\|\(|\:):\
+ :cb=#:ce=$:sb=":se=\e":lb=':le=\e':\
+ :kw=accept and break class continue def del elif else except\
+ exec finally for from global if import in is lambda not or\
+ pass print raise return try while:
+
+RATFOR:\
+ :pb=^\d?program|subroutine|function|(integer|real|complex|character\dfunction)\d\p\d|\(:\
+ :bb={:be=}:cb=#:ce=$:sb=":se=":lb=':le=':oc:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw= break call case character common complex data default define\
+ dimension do else end equivalence external false for function go\
+ goto if implicit include integer logical next pause program read\
+ real repeat return rewind stop string subroutine switch true until\
+ while write:
+
+# RLaB language description for the LGrind pretty-printer
+# Jim Green <j.j.green@shef.ac.uk> 10/15/96
+RLaB:\
+ :pb=^\d?\p\d?=\d?function\d?\(:\
+ :bb={:be=}:\
+ :cb=//:ce=$:\
+ :sb=":se=":\
+ :tl:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw= \
+ abs acos all any asin asinh atan atan2 atanh autospec \
+ avsmooth backsub balance bandred banner besselj bessely \
+ bodetf break cd ceil center chol choose chop class clear \
+ clearall close command command_ compan compleme complex \
+ conditio conj continua continue corr cos cosh cross cumprod \
+ cumsum czt det detrend diag diary diff disp division dlopen \
+ dot eig epsilon erf error errors eval examples exist exp \
+ expm eye factor faxis fft fftplot files filter find finite \
+ fix fliplr flipud floor fmin for format fprintf fread frexp \
+ fseek function funm fvscope gamma getb getenv getline \
+ getplot global hankel help hess hex hilb hilbert house if \
+ ifft imag in inf input int int2str intersec intro inv isempty \
+ isinf isnan isreal issymm join jordan keywords lagrange \
+ lcheck length lininsrt linspace lintrp list lmsale load \
+ loaddir local log log10 log2 logb logm logspace lu lyap max \
+ max2 maxi mdsmax mdsmooth mean median members min min2 mini \
+ mod mret nan nextpow2 nmsmax norm num2str ode ode4 ode78 \
+ ones open operator pascal pause pclose pend pinv plalt \
+ plaspect plaxis plaz plclose plcont plegend plend plerry \
+ plfont plgrid plgrid3 plhist plhistx plhold plhold_o plimits \
+ plline plmesh plot plot3 plplot plpoint plprint plptex \
+ plscol0 plsfile plstart plstyle pltitle plwid plwin poly \
+ printf printmat prod pstart ptitle putenv pwin qq_norma qr \
+ quadr rand rank rcond read readb readm real redit \
+ relation rem replot require reshape return rfile rk4 rlab roots \
+ rot90 round save scalars schord schur section set set3d show \
+ show_pro showpwin sign sin sinh size sizeof solve sort \
+ spectrog sprintf sqrt srand static std steng stmag string \
+ strsplt strtod stzcr subplot sum surspl svd sylv symm system \
+ tan tanh temp tempacosh tempangle tic tmpnam toc toeplitz \
+ trace transpos trapz trig tril triu type union variable \
+ vector while window write writeb writem xlabel \
+ ylabel zeros zlabel:
+
+# It's not obvious what constitutes a "procedure definition" in Russell.
+# This entry doesn't even try...
+Russell:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :cb=\(*:ce=*\):kw=cand cor do od if fi else enum record prod union\
+ extend export hide with constants let use in ni val var func type\
+ field characters readonly:sb=":se=":lb=':le=':
+
+SAS:\
+ :pb=(^\d?(data|start|%macro)\d\p\d|\(|;):\
+ :cb=/*:ce=*/:\
+ :ab=^\d?*:ae=;:\
+ :sb=":se=":lb=':le=':\
+ :oc:\
+ :bb=\d(do|select)\d:\
+ :be=\dend;:\
+ :kw=proc data by cards do drop else end file filename format go if \
+ input infile keep label length libname merge options output put \
+ retain rename run then title to select set stop until update \
+ when where while %include %macro %mend %do %end %if %then %let:
+
+SDL:\
+ :cb=/*:ce=*/:\
+ :ab=comment:ae=;:\
+ :sb=":se=":lb=':le=':\
+ :oc:\
+ :kw=task else nextstate in out with from interface to via env and use fpar \
+ process procedure block system service type endprocess endprocedure endblock \
+ endsystem endservice package endpackage channel endchannel signalroute connect \
+ synonym dcl signal gate timer signallist create output set reset call operators \
+ literals all state endstate input start stop return none decision enddecision \
+ join virtual redefined finalized adding inherits remote exported imported:
+
+sh:\
+ :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :le=\e':tl:\
+ :kw=break case cd continue do done \
+ elif else esac eval exec exit export \
+ fi for if in then while until \
+ read readonly set shift test trap umask wait:
+
+SICStus:\
+ :bb=\:-:be=.$:cb=%:ce=$:ab=/*:ae=*/:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :sb=":se=\e":lb=':le=\e':\
+ :kw=abolish abort absolute_file_name ancestors arg assert\
+ asserta assertz at_end_of_stream at_end_of_line atom\
+ atom_chars atomic bagof block break call callable call_residue\
+ character_count clause close compare compile compound consult\
+ copy_term current_atom current_host current_input current_input\
+ current_key current_module current_op current_output\
+ current_predicate current_stream debug debugging depth dif\
+ display dynamic ensure_loaded erase error_exception expand_term\
+ fail false fcompile fileerrors findall float flush_output\
+ foreign foreign_file format freeze frozen functor\
+ garbage_collect gc get get0 ground halt help if\
+ incore initialization instance integer is keysort leash\
+ length library_directory line_count line_position listing\
+ load load_foreign_files maxdepth meta_predicate mod\
+ module mode multifile name nl nodebug nofileerrors nogc nonvar\
+ nospy nospyall notrace number number_chars numbervars\
+ on_exception op open open_null_stream otherwise peek_char\
+ phrase plsys portray portray_clause portray_message\
+ predicate_property prepare_foreign_files print print_message\
+ profile_data profile_reset prolog_flag prompt put public\
+ raise_exception read read_term reconsult recorda recorded\
+ recordz reinitialize repeat require restore retract retractall\
+ save save_program see seeing seek seen set_input set_output\
+ set_stream_position setarg setof simple skip skip_line socket\
+ socket_accept socket_bind socket_connect socket_interrupt\
+ socket_listen socket_select sort source_file spy spypoint\
+ statistics stream_code stream_position subgoal_of subsumes_chk\
+ tab tell telling term_expansion term_hash term_subsume time_out\
+ told trace true ttyflush ttyget ttyget0 ttynl ttyput ttyskip\
+ ttytab undo unix unknown unknown_predicate_handler use_module\
+ user_help var version when write write_canonical write_term\
+ writeq:
+
+src:\
+ :kw=:
+
+# Very incomplete...
+SQL:\
+ :oc:ab=/*:ae=*/:\
+ :sb=':se=':lb=":le=":\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw=select where from as group by order asc desc union insert values\
+ delete into create table integer varchar primary key not null float\
+ default:
+
+# A.Bednarz@kfa-juelich.de
+# Received Jan 97
+Tcl/Tk|tcl|tk:\
+ :bb={:be=}:cb=\d#:ce=$:sb=":se=\e":lb=':\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :le=\e':tl:pb=\d?proc\d\p\d{:id=-$_.,:\
+ :kw=after append array auto_execok auto_load auto_mkindex \
+auto_reset bell bind bindtags break button canvas case catch cd \
+checkbutton clipboard close concat continue destroy entry eof error \
+eval exec exit expr file fileevent flush focus for foreach format \
+frame gets glob global grab history if image incr info join label \
+lappend lindex linsert list listbox llength lower lrange lreplace \
+lsearch lsort menu menubutton message open option pack pid place \
+proc puts pwd radiobutton raise read regexp regsub rename return \
+scale scan scrollbar seek selection send set source split string \
+subst switch tell text time tk tkButtonDown tkButtonEnter tkButtonInvoke \
+tkButtonLeave tkButtonUp tkCancelRepeat tkCheckRadioInvoke tkEntryAutoScan \
+tkEntryBackspace tkEntryButton1 tkEntryClipboardKeysyms tkEntryInsert \
+tkEntryKeySelect tkEntryMouseSelect tkEntrySeeInsert tkEntrySetCursor \
+tkEntryTranspose tkFirstMenu tkListboxAutoScan tkListboxBeginExtend \
+tkListboxBeginSelect tkListboxBeginToggle tkListboxCancel tkListboxDataExtend \
+tkListboxExtendUpDown tkListboxMotion tkListboxSelectAll tkListboxUpDown \
+tkMbButtonUp tkMbEnter tkMbLeave tkMbMotion tkMbPost tkMenuButtonDown \
+tkMenuEscape tkMenuFind tkMenuFindName tkMenuFirstEntry tkMenuInvoke \
+tkMenuLeave tkMenuLeftRight tkMenuMotion tkMenuNextEntry tkMenuUnpost \
+tkPostOverPoint tkSaveGrabInfo tkScaleActivate tkScaleButton2Down \
+tkScaleButtonDown tkScaleControlPress tkScaleDrag tkScaleEndDrag \
+tkScaleIncrement tkScreenChanged tkScrollButton2Down tkScrollButtonDown \
+tkScrollButtonUp tkScrollByPages tkScrollByUnits tkScrollDrag \
+tkScrollEndDrag tkScrollSelect tkScrollStartDrag tkScrollToPos \
+tkScrollTopBottom tkTextAutoScan tkTextButton1 tkTextClipboardKeysyms \
+tkTextInsert tkTextKeyExtend tkTextKeySelect tkTextNextPara tkTextPrevPara \
+tkTextResetAnchor tkTextScrollPages tkTextSelectTo tkTextSetCursor \
+tkTextTranspose tkTextUpDownLine tkTraverseToMenu tkTraverseWithinMenu \
+tk_popup tkwait toplevel trace unknown unset update uplevel upvar while winfo wm:
+
+
+# JL - Added visbasic 6 Aug 1996. Note: this is not complete!
+VisualBasic|vbasic:\
+ :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:\
+ :cb=':ce=$:sb=":se=":\
+ :le=\e':tl:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :kw= Access And As Asc Boolean Byte Call Case Chr Close Currency Debug \
+ Declare Dim Do Double Else ElseIf End Exit False For Format Function \
+ Get If Input Integer Left Len Line Long Loop Lset Ltrim Mid Mod Next \
+ Not Object On Open Or Output Print Private Pset Public Put Read Right \
+ Rset Rtrim Select Single Static Str String Sub Then To Trim True Type \
+ Until Val Variant Wend While :
+
+VMSasm:\
+ :pb=^\d?.entry\d\p(\d|,|$|;):\
+ :oc:\
+ :cb=;:ce=$:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :sb=(.ident|.asci(x|c|d|i|z))\d:se=$:\
+ :kw=.address .align .ascix .ascic .ascid .ascii .asciz \
+ .blkx .byte .cross .debug .default .d_floating .double \
+ .disable .enable .end .endc .endm .endr .entry .error \
+ .even .external .f_floating .float .g_floating .ident .if \
+ .if_x .iff .irp .irpc .library .link .list .long .macro \
+ .mask .mcall .mdelete .mexit .narg .nchr .nlist .nocross \
+ .noshow .ntype .octa .odd .opdef .packed .page .print \
+ .psect .quad .refn .repeat .restore_psect .save_psect \
+ .show .signed_byte .signed_word .subtitle .title .transfer \
+ .warn .weak .word:
+
+yacc|y:\
+ :zb=@:ze=@:tb=%%:te=%%:mb=%\$:me=\$%:vb=%\|:ve=\|%:\
+ :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:
+
+
+EndOfLanguageDefinitions:
+#
+# The following entries are NOT language definitions,
+# but configuration specifications for the LGrind program
+#
+BeginOfConfigurationItems:
+
+# a list of extensions and the language that belongs to them
+# these can be wrong or too system specific
+# recommendations appreciated
+extensions:\
+ :c=c:\
+ :C=c++:cpp=c++:cc=c++:h=c++:\
+ :pas=pascal:\
+ :ads=ada:adb=ada:\
+ :tcl=tcl/tk:\
+ :y=yacc:\
+ :tex=latex:\
+ :java=java:\
+ :mod=modula2:\
+ :bas=visualbasic:\
+ :ps=postscript:eps=postscript:pfa=postscript:\
+ :pro=prolog:\
+ :scm=scheme:\
+ :m=matlab:\
+ :ml=sml/nj:\
+ :f=f77:F=f77:for=f77:\
+ :l=lex:\
+ :k=kimwitu++:\
+ :py=python:
+
+# character substitution table
+chartab:\
+:84="a:94="o:81="u:e1="s:8e="A:99="O:9a="U:e0=$\\alpha$:
+
+# preamble to put at the beginning of a stand-alone listing
+firstpreamble:\
+\\documentclass[twoside]{article}\n\
+\\usepackage[procnames,noindent]{lgrind}\n\
+\\usepackage{fancyhdr}\n\
+\\usepackage{makeidx}\n\
+\\pagestyle{fancy}\n\n\
+\\makeindex\n\n\
+\\begin{document}\n
+
+# postamble to put at the very end of a stand-alone listing
+postamble:\
+\\printindex\n\
+\\end{document}
+
+# preamble to put before each file in a stand-alone listing
+filepreamble:\
+\\renewcommand{\\footrulewidth}{0.4pt}\n\
+\\fancyhead[C]{\\lgrindhead}\n\
+\\fancyhead[LO,RE]{\\lgrindfilesize~Bytes\\\\\\lgrindmodtime}\n\
+\\fancyhead[RO,LE]{\\bfseries \\lgrindfilename\\\\\
+\\lgrindmodday.\\lgrindmodmonth.\\lgrindmodyear}\n\
+\\fancyfoot[C]{\\bfseries\\thepage}\n\
+\\setlength{\\headheight}{24pt}\n
+
+# preferences for line numbering, changing fonts etc.
+# (comes after "\begin{lgrind}")
+configuration:
+
projects / cs3210-lab1.git / commitdiff