%run with pdftex or luatex

\ifdefined\outputmode
    \outputmode=1    
    \input luaotfload.sty
    \input Tcode-examples-otfont.tex
    \input Tcode-examples-OTpalatino.tex
\else
    \input Tcode-examples-palatino.tex
\fi
\unless\ifdefined\theend
  \let\theend\end
  \def\begin#1{\csname #1\endcsname} \def\end#1{\csname end#1\endcsname}
\fi

\ifdefined\sizex\sizex
\else\tenrm\fi

\input Tcode.tex
\input pdfcolor-rg.tex

%% Definitions for a supposed language %%
\DefColor{darkred}{0.6, 0, 0}
\DefColor{ident}{0.4, 0.55, 0}
\DefColor{greengray}{0.3, 0.53, 0.25}
\def\FormatComment{\rm\color{greengray}}
\def\FormatKeyword{\bf\color{darkred}}
\def\FormatPunct{\color{darkred}}
\def\FormatIdent{\color{ident}}
\def\FormatStrong{\bf\color{ident}}

\catcode`#=12
\TcodeFormatSpecial={\FormatPunct}
\TcodeFormatSpecial#{\FormatPunct}
\TcodeFormatSpecial!{\FormatPunct}
\catcode`#=6

\DeclareCommentChar{%}
\DeclareNoLetter $(#1){Punct}{Ident}
\DeclareNoLetter $((#1)){Punct}{Strong}
\DeclareNoLetter $#1{Punct}{}

%Keywords
\MakeWord{include}{Keyword}
\MakeWord{jump}{Keyword}
\MakeWord{If}{Keyword}
\MakeWord{Else}{Keyword}
\MakeWord{Elif}{Keyword}
\MakeWord{Endif}{Keyword}
\MakeWord{show}{Keyword}

%%%% End of definitions %%%%

\begin{Code}
% File recursive.config
a=$(a)x

If $(a) = x
	include recursive.config
	a= yy
Elif $(a) != xxxx
jump recursive.config
Endif

b=c
name=$$(b)
$(b)= BBB
a= $((name))
show a
\end{Code}

\theend