goodbye lgrind
This commit is contained in:
rsc
parent
f3fc72c5b6
commit
e9d2250e15
2 changed files with 0 additions and 1079 deletions
230
lgrind.sty
230
lgrind.sty
|
|
@ -1,230 +0,0 @@
|
||||||
%%
|
|
||||||
%% This is file `lgrind.sty',
|
|
||||||
%% generated with the docstrip utility.
|
|
||||||
%%
|
|
||||||
%% The original source files were:
|
|
||||||
%%
|
|
||||||
%% lgrind.dtx (with options: `package')
|
|
||||||
%%
|
|
||||||
%% LGrind is used to format source code of different programming
|
|
||||||
%% languages for LaTeX.
|
|
||||||
%%
|
|
||||||
%% LGrind is a major adaptation of Jerry Leichter's tgrind for LaTeX,
|
|
||||||
%% which was a notable improvement upon Van Jacobsen's tgrind for
|
|
||||||
%% plain TeX, which was adapted from vgrind, a troff prettyprinter.
|
|
||||||
%%
|
|
||||||
%% LGrind contains non-free code written by Van Jacobson, who does not answer
|
|
||||||
%% to any request for changing his licence. This software is therefore not
|
|
||||||
%% maintained. I also do not accept any cheques anymore.
|
|
||||||
%% Based on Van Jacobson's ``tgrindmac'', a macro package for TeX.
|
|
||||||
%% Modified, 1987 by Jerry Leichter. Put '@' in all internal names.
|
|
||||||
%% Modified, 1991 by George Reilly. Changed name from tgrind to lgrind.
|
|
||||||
%% Modified, 1995 by Michael Piefel. Made it work with \LaTeXe.
|
|
||||||
%% -1999 Hundreds of bells and whistles. No changelog here.
|
|
||||||
\NeedsTeXFormat{LaTeX2e}[1996/06/01]
|
|
||||||
\ProvidesPackage{lgrind}
|
|
||||||
[2002/01/28 v3.67 LGrind environment and supporting stuff]
|
|
||||||
%%stopzone % VIM syncing
|
|
||||||
\newcount\lc@unt
|
|
||||||
\newcount\ln@xt
|
|
||||||
\newcount\LGnuminterval
|
|
||||||
\LGnuminterval=10
|
|
||||||
\DeclareOption{nolineno}{\LGnuminterval=50000}
|
|
||||||
\DeclareOption{lineno5}{\LGnuminterval=5}
|
|
||||||
\newif\ifLGleftnum
|
|
||||||
\DeclareOption{leftno}{\LGleftnumtrue}
|
|
||||||
\newskip\LGindent
|
|
||||||
\LGindent=1.6667\parindent
|
|
||||||
\DeclareOption{noindent}{\LGindent=0pt}
|
|
||||||
\newif\ifLGnorules
|
|
||||||
\DeclareOption{norules}{\LGnorulestrue}
|
|
||||||
\newlength{\LGsloppy}
|
|
||||||
\setlength{\LGsloppy}{7.2pt}
|
|
||||||
\DeclareOption{fussy}{\LGsloppy=0pt}
|
|
||||||
\newcommand{\DefaultProc}{\@gobble}
|
|
||||||
\newcommand{\DefaultProcCont}{\@gobble}
|
|
||||||
\DeclareOption{procnames}{
|
|
||||||
\renewcommand{\DefaultProc}[1]{\renewcommand{\Procname}{#1}%
|
|
||||||
\global\setbox\procbox=\hbox{\PNsize #1}}
|
|
||||||
\renewcommand{\DefaultProcCont}[1]{\renewcommand\Procname{#1}
|
|
||||||
\global\setbox\procbox=\hbox{\PNsize\dots #1}}}
|
|
||||||
\newbox\procbox
|
|
||||||
\newcommand{\Procname}{}
|
|
||||||
\newif\ifLGnoprocindex
|
|
||||||
\DeclareOption{noprocindex}{\LGnoprocindextrue}
|
|
||||||
\ProcessOptions
|
|
||||||
\def\BGfont{\sffamily}
|
|
||||||
\def\CMfont{\rmfamily\itshape}
|
|
||||||
\def\NOfont{\sffamily}
|
|
||||||
\def\KWfont{\rmfamily\bfseries}
|
|
||||||
\def\STfont{\ttfamily}
|
|
||||||
\def\TTfont{\ttfamily\upshape}
|
|
||||||
\def\VRfont{\rmfamily}
|
|
||||||
\def\PNsize{\BGfont\small}
|
|
||||||
\def\LGsize{\small}
|
|
||||||
\def\LGfsize{\footnotesize}
|
|
||||||
\newif\ifLGinline
|
|
||||||
\newif\ifLGd@fault
|
|
||||||
\def\LGbegin{\ifLGinline$\hbox\else$$\vbox\fi\bgroup\LGd@faulttrue}
|
|
||||||
\def\LGend{\ifLGd@fault\egroup\ifLGinline$\else$$\fi\LGd@faultfalse\fi}
|
|
||||||
%%stopzone % VIM syncing
|
|
||||||
\newif\ifc@mment
|
|
||||||
\newif\ifstr@ng
|
|
||||||
\newif\ifright@
|
|
||||||
\newbox\ls@far
|
|
||||||
\newbox\tb@x
|
|
||||||
\newdimen\TBw@d
|
|
||||||
\newdimen\@ts
|
|
||||||
{\catcode`\_=\active \gdef\@setunder{\let_=\sp@ce}}
|
|
||||||
\newcommand{\lgrindhead}{}
|
|
||||||
\newcommand{\lgrindfilename}{}\newcommand{\lgrindfilesize}{}
|
|
||||||
\newcommand{\lgrindmodyear}{}\newcommand{\lgrindmodmonth}{}
|
|
||||||
\newcommand{\lgrindmodday}{}\newcommand{\lgrindmodtime}{}
|
|
||||||
\newenvironment{lgrind}[1][1]{%
|
|
||||||
\def\Line##1{\L{\LB{##1}}}%
|
|
||||||
\newcommand{\Head}[1]{\gdef\lgrindhead{##1}}%
|
|
||||||
\newcommand{\File}[6]{\gdef\lgrindfilename{##1}\message{(LGround: ##1)}%
|
|
||||||
\gdef\lgrindmodyear{##2}\gdef\lgrindmodmonth{##3}%
|
|
||||||
\gdef\lgrindmodday{##4}\gdef\lgrindmodtime{##5}%
|
|
||||||
\gdef\lgrindfilesize{##6}}%
|
|
||||||
\let\Proc=\DefaultProc%
|
|
||||||
\let\ProcCont=\DefaultProcCont%
|
|
||||||
\ifLGnoprocindex%
|
|
||||||
\let\index\@gobble%
|
|
||||||
\fi%
|
|
||||||
\hfuzz=\LGsloppy%
|
|
||||||
\def\NewPage{\filbreak\bigskip}%
|
|
||||||
\ifLGinline%
|
|
||||||
\def\L##1{\setbox\ls@far\null{\CF\strut##1}\ignorespaces}%
|
|
||||||
\else%
|
|
||||||
\let\r@ghtlno\relax\let\l@ftlno\relax%
|
|
||||||
\ifnum\LGnuminterval>\z@%
|
|
||||||
\ifLGleftnum%
|
|
||||||
\def\l@ftlno{\ifnum\lc@unt>\ln@xt%
|
|
||||||
\global\advance\ln@xt by\LGnuminterval%
|
|
||||||
\llap{{\normalfont\scriptsize\the\lc@unt\quad}}\fi}%
|
|
||||||
\def\r@ghtlno{\rlap{\enspace\box\procbox}}%
|
|
||||||
\else%
|
|
||||||
\def\r@ghtlno{\ifnum\lc@unt>\ln@xt%
|
|
||||||
\global\advance\ln@xt by\LGnuminterval%
|
|
||||||
\rlap{{\normalfont\scriptsize\enspace\the\lc@unt%
|
|
||||||
\enspace\box\procbox}}%
|
|
||||||
\else\rlap{\enspace\box\procbox}\fi}%
|
|
||||||
\fi%
|
|
||||||
\fi%
|
|
||||||
\def\L##1{\@@par\setbox\ls@far=\null\strut%
|
|
||||||
\global\advance\lc@unt by1%
|
|
||||||
\hbox to \linewidth{\hskip\LGindent\l@ftlno ##1\egroup%
|
|
||||||
\hfil\r@ghtlno}%
|
|
||||||
\ignorespaces}%
|
|
||||||
\fi%
|
|
||||||
\lc@unt=#1\advance\lc@unt by-1%
|
|
||||||
\ln@xt=\LGnuminterval\advance\ln@xt by-1%
|
|
||||||
\loop\ifnum\lc@unt>\ln@xt\advance\ln@xt by\LGnuminterval\repeat%
|
|
||||||
\def\LB{\hbox\bgroup\bgroup\box\ls@far\CF\let\next=}%
|
|
||||||
\def\Tab##1{\egroup\setbox\tb@x=\lastbox\TBw@d=\wd\tb@x%
|
|
||||||
\advance\TBw@d by 1\@ts\ifdim\TBw@d>##1\@ts%
|
|
||||||
\setbox\ls@far=\hbox{\box\ls@far \box\tb@x \sp@ce}\else%
|
|
||||||
\setbox\ls@far=\hbox to ##1\@ts{\box\ls@far \box\tb@x \hfil}\fi\LB}%
|
|
||||||
\ifLGinline\def\sp@ce{{\hskip .3333em}}%
|
|
||||||
\else \setbox\tb@x=\hbox{\texttt{0}}%
|
|
||||||
\@ts=0.8\wd\tb@x \def\sp@ce{{\hskip 1\@ts}}\fi%
|
|
||||||
\catcode`\_=\active \@setunder%
|
|
||||||
\def\CF{\ifc@mment\CMfont\else\ifstr@ng\STfont\fi\fi}%
|
|
||||||
\def\N##1{{\NOfont ##1}\global\futurelet\next\ic@r}%
|
|
||||||
\def\K##1{{\KWfont ##1}\global\futurelet\next\ic@r}%
|
|
||||||
\def\V##1{{\VRfont ##1}\global\futurelet\next\ic@r}%
|
|
||||||
\def\ic@r{\let\@tempa\/\ifx.\next\let\@tempa\relax%
|
|
||||||
\else\ifx,\next\let\@tempa\relax\fi\fi\@tempa}%
|
|
||||||
\def\C{\egroup\bgroup\CMfont \global\c@mmenttrue \global\right@false}%
|
|
||||||
\def\CE{\egroup\bgroup \global\c@mmentfalse}%
|
|
||||||
\def\S{\egroup\bgroup\STfont \global\str@ngtrue}%
|
|
||||||
\def\SE{\egroup\bgroup \global\str@ngfalse}%
|
|
||||||
\def\,{\relax \ifmmode\mskip\thinmuskip \else\thinspace \fi}%
|
|
||||||
\def\!{\relax \ifmmode\mskip-\thinmuskip \else\negthinspace \fi}%
|
|
||||||
%%stopzone % VIM syncing
|
|
||||||
\def\CH##1##2##3{\relax\ifmmode ##1\relax%
|
|
||||||
\else\ifstr@ng ##2\relax\else$##3$\fi\fi }%
|
|
||||||
\def\|{\CH|||}% not necessary for T1
|
|
||||||
\def\<{\CH<<<}% dto.
|
|
||||||
\def\>{\CH>>>}% dto.
|
|
||||||
\def\-{\CH---}% minus sign nicer than hyphen
|
|
||||||
\def\_{\ifstr@ng {\char'137}\else%
|
|
||||||
\leavevmode \kern.06em \vbox{\hrule width.35em}%
|
|
||||||
\ifdim\fontdimen\@ne\font=\z@ \kern.06em \fi\fi }%
|
|
||||||
\def\#{{\STfont\char'043}}%
|
|
||||||
\def\2{\CH\backslash {\char'134}\backslash }% % \
|
|
||||||
\def\3{\ifc@mment\ifright@ ''\global\right@false%
|
|
||||||
\else``\global\right@true \fi%
|
|
||||||
\else{\texttt{\char'042}}\fi}% % "
|
|
||||||
\def\5{{\texttt{\char'136}}}% % ^
|
|
||||||
\parindent\z@\parskip\z@ plus 1pt%
|
|
||||||
\bgroup\BGfont%
|
|
||||||
}
|
|
||||||
{\egroup\@@par\newpage} % end of environment lgrind
|
|
||||||
\def\lgrinde{\ifLGinline\else\LGsize\fi\begin{lgrind}}
|
|
||||||
\def\endlgrinde{\end{lgrind}}
|
|
||||||
\def\lagrind{\@ifstar{\@slagrind}{\@lagrind}}
|
|
||||||
\def\@lagrind{\@ifnextchar[{\@@lagrind}{\@@lagrind[t]}}
|
|
||||||
\def\@slagrind{\@ifnextchar[{\@@slagrind}{\@@slagrind[t]}}
|
|
||||||
\def\@@lagrind[#1]#2#3#4{%
|
|
||||||
\begin{figure}[#1]
|
|
||||||
\ifLGnorules\else\hrule\fi
|
|
||||||
\vskip .5\baselineskip
|
|
||||||
\begin{minipage}\columnwidth\LGsize\LGindent\z@
|
|
||||||
\begin{lgrind}
|
|
||||||
\input #2\relax
|
|
||||||
\end{lgrind}
|
|
||||||
\end{minipage}
|
|
||||||
\vskip .5\baselineskip plus .5\baselineskip
|
|
||||||
\ifLGnorules\else\hrule\fi\vskip .5\baselineskip
|
|
||||||
\begingroup
|
|
||||||
\setbox\z@=\hbox{#4}%
|
|
||||||
\ifdim\wd\z@>\z@
|
|
||||||
\caption{#3}%
|
|
||||||
\label{#4}%
|
|
||||||
\else
|
|
||||||
\captcont{#3}%
|
|
||||||
\fi
|
|
||||||
\endgroup
|
|
||||||
\vskip 2pt
|
|
||||||
\end{figure}
|
|
||||||
}
|
|
||||||
\def\@@slagrind[#1]#2#3#4{%
|
|
||||||
\begin{figure*}[#1]
|
|
||||||
\ifLGnorules\else\hrule\fi
|
|
||||||
\vskip .5\baselineskip
|
|
||||||
\begin{minipage}\linewidth\LGsize\LGindent\z@
|
|
||||||
\begin{lgrind}
|
|
||||||
\input #2\relax
|
|
||||||
\end{lgrind}
|
|
||||||
\end{minipage}
|
|
||||||
\vskip .5\baselineskip plus .5\baselineskip
|
|
||||||
\ifLGnorules\else\hrule\fi\vskip .5\baselineskip
|
|
||||||
\begingroup
|
|
||||||
\setbox\z@=\hbox{#4}%
|
|
||||||
\ifdim\wd\z@>\z@
|
|
||||||
\caption{#3}%
|
|
||||||
\label{#4}%
|
|
||||||
\else
|
|
||||||
\captcont{#3}%
|
|
||||||
\fi
|
|
||||||
\endgroup
|
|
||||||
\vskip 2pt
|
|
||||||
\end{figure*}
|
|
||||||
}
|
|
||||||
\def\lgrindfile#1{%
|
|
||||||
\par\addvspace{0.1in}
|
|
||||||
\ifLGnorules\else\hrule\fi
|
|
||||||
\vskip .5\baselineskip
|
|
||||||
\begingroup\LGfsize\LGindent\z@
|
|
||||||
\begin{lgrind}
|
|
||||||
\input #1\relax
|
|
||||||
\end{lgrind}
|
|
||||||
\endgroup
|
|
||||||
\vskip .5\baselineskip
|
|
||||||
\ifLGnorules\else\hrule\vspace{0.1in}\fi
|
|
||||||
}
|
|
||||||
\endinput
|
|
||||||
%%
|
|
||||||
%% End of file `lgrind.sty'.
|
|
||||||
849
lgrindef
849
lgrindef
|
|
@ -1,849 +0,0 @@
|
||||||
# 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:
|
|
||||||
|
|
||||||
Loading…
Reference in a new issue