blob: 1a744df2189abcdf9f34c4b557818ec972752109 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
%==================================================================
% A P L S T Y L E
%==================================================================
% A.Hohti/O.Kanerva University of Helsinki April 6 1987
% revised August 19 1987
%
% APL symbols are represented by the Digital (VAX) APL
% replacement symbols. The standard escape character is
% changed to "@" (at sign) in accordance with the usage
% in Digital APL.
%
\font\apl=cmapl10 % The APL font of typewriter type
%
%
% The following macro \choosett switches the typewriter-like
% font used within verbatim:
%
\def\ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax}
\newif\ifapl \def\aplname{apl}
\outer\def\choosett#1{\ifundefined{#1}%
\message{Undefined font(?), replaced with cmtt10}%
\let\tt=\tentt
\else
\def\tt{\expandafter\csname#1\endcsname}%
\def\ttname{#1}%
\ifx\ttname\aplname\apltrue\else\aplfalse\fi\fi}
%
\choosett{tentt} % default value
%
\input versatim % a slightly modified version of verbatim
\input apldef % control sequences for APL symbols
|
