summaryrefslogtreecommitdiff
path: root/language/swedish/swetex/modes.tex
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}%