doc-src/rail.sty

 % rail.sty - style file to support railroad diagrams
 %
 % 09-Jul-90 L. Rooijakkers
-% 08-Oct-90 L. Rooijakkers	fixed centering bug when \rail@tmpc<0.
-% 07-Feb-91 L. Rooijakkers	added \railoptions command, indexing
-% 08-Feb-91 L. Rooijakkers	minor fixes
-% 28-Jun-94 K. Barthelmann	turned into LaTeX2e package
-% 08-Dec-96 K. Barthelmann	replaced \@writefile
-% 13-Dec-96 K. Barthelmann	cleanup
+% 08-Oct-90 L. Rooijakkers      fixed centering bug when \rail@tmpc<0.
+% 07-Feb-91 L. Rooijakkers      added \railoptions command, indexing
+% 08-Feb-91 L. Rooijakkers      minor fixes
+% 28-Jun-94 K. Barthelmann      turned into LaTeX2e package
+% 08-Dec-96 K. Barthelmann      replaced \@writefile
+% 13-Dec-96 K. Barthelmann      cleanup
 %
 % This style file needs to be used in conjunction with the 'rail'
 % program. Running LaTeX as 'latex file' produces file.rai, which should be
 % processed by Rail with 'rail file'. This produces file.rao, which will
 % be picked up by LaTeX on the next 'latex file' run.

 % \rail@boxlf   : \railboxleft
 % \rail@boxrt   : \railboxright
 % \rail@boxhht  : \railboxheight / 2
 % \rail@ovalsp  : \railovalspace
 % \rail@framesp : \railframespace
-% \rail@textlf	: \railtextleft
-% \rail@textrt	: \railtextright
-% \rail@textup	: \railtextup
+% \rail@textlf  : \railtextleft
+% \rail@textrt  : \railtextright
+% \rail@textup  : \railtextup
 % \rail@joinsz  : \railjoinsize
 % \rail@joinhsz : \railjoinsize / 2
 % \rail@joinadj : \railjoinadjust
 %
 % \railinit : internalize all of the parameters.

 %
 % \railnamefont{TEXT} : set rule name format setup to TEXT
 %
 % \railindexfont{TEXT} : set index entry format setup to TEXT
 
+\def\rail@tokenfont{\ttfamily\upshape}
 \def\rail@termfont{\ttfamily\upshape}
 \def\rail@nontfont{\rmfamily\upshape}
 \def\rail@annofont{\rmfamily\itshape}
 \def\rail@namefont{\rmfamily\itshape}
 \def\rail@indexfont{\rmfamily\itshape}

 %
 % \rail@nr : railroad diagram counter
 %
 % \ifrail@match : current \rail@i{NR}{TEXT} matches
 %
-% \rail@first :	actions to be done first. read in .rao file,
+% \rail@first : actions to be done first. read in .rao file,
 %               open .rai file if \@filesw true, undefine \rail@first.
 %               executed from \begin{rail} and \railtoken.
 %
 % \rail@i{NR}{TEXT} : defines \rail@i@NR as TEXT. written to the .rai
 %                     file by \rail, read from the .rao file by

 %
 % \rail@annote[TEXT] : format TEXT as annotation
 
 \def\rail@token#1[#2]{
 \rail@setbox{%
-{\rail@termfont \rail@expand{#1}}\ifx\@empty#2\else\ {\rail@annofont #2}\fi
+{\rail@tokenfont \rail@expand{#1}}\ifx\@empty#2\else\ {\rail@annofont #2}\fi
 }
 \rail@oval
 }
 
 \def\rail@ctoken#1[#2]{
 \rail@setbox{%
-{\rail@termfont \rail@expand{#1}}\ifx\@empty#2\else\ {\rail@annofont #2}\fi
+{\rail@tokenfont \rail@expand{#1}}\ifx\@empty#2\else\ {\rail@annofont #2}\fi
 }
 \rail@coval
 }
 
 \def\rail@nont#1[#2]{