This repository has been archived on 2022-08-10. You can view files and clone it, but cannot push or open issues or pull requests.
chez-openbsd/stex/inputs/scheme.hsty
2022-07-29 15:12:07 +02:00

43 lines
1.5 KiB
Text

\def\transerr#1{\raw{<i>}}
\def\transin#1{\raw{<font color="##ff0000">}}
\def\transout#1{\raw{<font color="##0000ff">}}
\def\traceout#1{\raw{<font color="##0000ff">}}
\def\endtranserr#1{\raw{</i>}}
\def\endtransin#1{\raw{</font>}}
\def\endtransout#1{\raw{</font>}}
\def\endtraceout#1{\raw{</font>}}
\def\schemeblankline{{\\\\}}
\def\schemelinestart{}
%%% handle numbered lines in scheme.sty and scheme.hsty
%%% ---have scheme-prep produce only \schemelinestart
% following is probably broken until we have tables, I suspect.
% Actually, the right way to fix this may be to use CSS
\def\schemelinestartnumbered#1{\raw{<table><tr width=20><td>}#1\raw{</td></tr></table>}}
\def\scheme#1{{\tt #1}}
\def\longcode\schemedisplay{\schemedisplay}
\def\noskip\schemedisplay{\schemedisplay}
\def\schemedisplay{\par\begingroup\tt\hardspaces}
\def\endschemedisplay{\endgroup\par}
\def\schemeindent{}
\def\schatsign{\raw{@}}
\def\schbackslash{\raw{\}}
\def\schcarat{\raw{^}}
\def\schdot{\raw{.}}
\def\schlbrace{\raw{&##123;}}
\def\schrbrace{\raw{&##125;}}
\def\schtilde{\raw{~}}
\def\schunderscore{\raw{_}}
\def\becomes{$\rightarrow$}
\def\is{$\Rightarrow$}
\def\si{\raw{<img src="gifs/ghostRightarrow.gif">}}
\def\var#1{\emph{#1}}
% frame="border" rules="all" makes mozilla do it right
% border="1" makes konqueror do it right
\def\startrepl{\raw{<table width="95%"><tr valign=top><td>}}
\def\endrepl{\raw{</td>}}
\def\startinteraction{\raw{<td align="right"><table rules="all" border="1"><tr><td>}}
\def\endinteraction{\raw{</td></tr></table></td></tr></table>}}