summaryrefslogtreecommitdiff
path: root/macros/inrstex/inrstex/multlang.tex
blob: d392568de35285ca6a1f0f6cba707fe1411d1d34 (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
%-*-tex-*-
% Copyright Michael J. Ferguson, INRS-Telecommunications
% All rights reserved. 

% ====== Multiple Language Support =========
% This is done via an internal change to TeX itself or through the
% introduction of a counter called \language. If Bilingual TeX exists,
% then \language has been defined. 

\ifundefined{language} \n@ewcount\language \language=0 \fi 

\def\englishversion{\input english \relax}
\def\versionfrancaise{\input francais \relax}



%======= are some commands for << and >> in French ======
% ======== can be made neater when we modify fonts
% \newcount\language % ..... this is necessary if NOT running Multilingual TeX
\language = 0   % 0-english 1-french ...
\def\d@qf{\raise .5ex\hbox{$\scriptscriptstyle{\langle\!\langle}$}\kern.25em}
\def\g@qf{\kern.25em\raise .5ex\hbox{$\scriptscriptstyle{\rangle\!\rangle}$}}
\def\ldq{\ifcase\language
                \lq\lq \else\d@qf\fi} %changes < into `` in english
\def\rdq{\ifcase\language
                          \rq\rq\else\g@qf\fi} %changes > into '' in english