blob: 046902c15ba946d174914e7b2e74fea17f220fba (
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
% This file contains macros interfacing between US-TeX and SWE-TeX.
% The macro \usinput may be used to read a file containing
% macros written in US-TeX.
%
% By Lennart B\"orjeson, Elmer KTH
%
\def\dospecials{\do\ \do\\\do\{\do\}\do\$\do\&% Include Swedish symbols
\do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~%
\do\/\do\<\do\>\do\|\do\]\do\[}%
%
\def\lt{<}%
\def\gt{>}%
%
\def\swedishmode{% This makes TeX know Swedish...
\catcode`\/=0 \catcode`\<=1 \catcode`\>=2
\catcode`\}=13 \catcode`\{=13 \catcode`\|=13
\catcode`\]=13 \catcode`\[=13 \catcode`\\=13
\escapechar`\/}%
%
\def\usmode{% ...and this switches back...
\catcode`\/=12 \catcode`\<=12 \catcode`\>=12
\catcode`\}=2 \catcode`\{=1 \catcode`\|=12
\catcode`\]=12 \catcode`\[=12 \catcode`\\=0
\escapechar`\\}%
%
\swedishmode % ...this defines our Swedish characters.
/let}=/aa /def{</"a>/def|</"o>%
/let]=/AA /def[</"A>/def\</"O>%
/usmode
%
\def\ifswedishmode{\ifnum\the\escapechar=47\relax }%
\def\ifusmode{\ifnum\the\escapechar=92\relax }%
%
\def\usinput#1{% This \inputs a file in US-mode.
\ifswedishmode
\let\callingmode=\swedishmode
\else
\let\callingmode=\usmode
\fi
\usmode
\input #1
\callingmode}%
%
\def\sweinput#1{% This /inputs in Swedish mode.
\ifswedishmode
\let\callingmode=\swedishmode
\else
\let\callingmode=\usmode
\fi
\swedishmode
\input #1
\callingmode}%
|