<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">%
% $Header: swedish.tex,v 1.3 86/11/04 21:02:49 sven Exp $
%
% $Log:	swedish.tex,v $
% Revision 1.3  86/11/04  21:02:49  sven
% Fixed !input&lt;file&gt; bug, by letting \bgroup and \egroup to the new
% group characters. /Sven 861104
% 
% Revision 1.2  86/09/14  00:19:57  sven
% Initial revision, LaTeX 2.09
% 
% Revision 1.1  86/01/15  22:36:34  sven
% Initial revision, LaTeX 2.08
% 
%
% Change escape character from '\' to '!', grouping characters from
% '{}' to '&lt;&gt;' and set up Swedish characters at [{]}\|.

\typeout{Change national characters to Swedish.}

% Make some special characters accesible

%\def\bang{{\char'041}}
\let\bang=!
\def\|{\relax\ifmmode\vert\else$\vert$\fi}

% The following two are already defined in lplain.tex
%\def\{{\relax\ifmmode\lbrace\else$\lbrace$\fi}
%\def\}{\relax\ifmmode\rbrace\else$\rbrace$\fi}

\def\&lt;{&lt;} \def\&gt;{&gt;}
%\def\lt{{\char'074}} \def\gt{{\char'076}}
%\let\&lt;=&lt; \let\&gt;=&gt;
\let\lt=&lt; \let\gt=&gt;

% \! was neg. thin space in math-mode but !! cannot be used as it is a
% special LaTeX command. Thus \! is replaced by \nspace

\def\nspace{\mskip-\thinmuskip}

\escapechar`\!
\catcode`\!=0 \catcode`\&lt;=1 \catcode`\&gt;=2
!catcode`!{=12 !catcode`!\=12 !catcode`!}=12

% Make national characters active

!def!svenska&lt;!catcode`{=13 !catcode`|=13 !catcode`}=13
              !catcode`[=13 !catcode`\=13 !catcode`]=13&gt;

!svenska

% Map active characters

!def{&lt;!sveae&gt; !def|&lt;!sveoe&gt; !def}&lt;!sveaa&gt;
              !def[&lt;!sveAE&gt; !def\&lt;!sveOE&gt; !def]&lt;!sveAA&gt;

!catcode`{=12 !catcode`|=12 !catcode`}=12
!catcode`[=12 !catcode`\=12 !catcode`]=12

% Define national characters

!def!sveae&lt;!accent"7F a&gt;
!def!sveaa&lt;!accent'27 a&gt;
!def!sveoe&lt;!accent"7F o&gt;
!def!sveAE&lt;!accent"7F A&gt;
!def!sveOE&lt;!accent"7F O&gt;
!def!sveAA&lt;!accent'27 A&gt;

%!newdimen!ringoffset
%!newdimen!dotoffset

% Twiddle with the placement of the ring and the dots for } and {

%!def!sveae&lt;!leavevmode!rlap&lt;!kern!dotoffset!hbox&lt;!char'177&gt;&gt;a&gt;
%!def!sveaa&lt;!leavevmode!rlap&lt;!ringfont!kern!ringoffset!hbox&lt;!char'27&gt;&gt;a&gt;

%!def!rm&lt;!ringoffset=-0.16em !dotoffset=-0.03em
%        !let !ringfont=!rmfont !fam0 !rmfont&gt;
%!def!sl&lt;!ringoffset=-0.06em !dotoffset=-0.03em
%        !let !ringfont=!rmfont !fam!slfam !slfont&gt;
%!def!it&lt;!ringoffset=-0.00em !dotoffset=-0.03em
%        !let !ringfont=!rmfont !fam!itfam !itfont&gt;
%!def!bf&lt;!ringoffset=-0.16em !dotoffset=-0.03em
%        !let !ringfont=!bffont !fam!bffam !bffont&gt;
%!def!tt&lt;!fam!ttfam !ttfont&gt;

!svenska

% Change implicit characters
!let!bgroup=&lt; !let!egroup=&gt;
</pre></body></html>