summaryrefslogtreecommitdiff
path: root/obsolete/macros/latex209/contrib/ml/babel.com
blob: b1c6936d47ae4c5793a639651c85f91d3d19f516 (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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
%% 
%% This is file `babel.com', generated 
%% on <1993/12/9> with the docstrip utility (2.1e).
%% 
%% The original source files were:
%% 
%% babel.doc  (with options: `code')
%% 
%% Copyright (C) 1989-1993 by Johannes Braams. 
%% All rights reserved. 
%% 
%% This file is part of the Babel package, version 3.3. 
%% 
%% IMPORTANT NOTICE: 
%% 
%% You are not allowed to change this file. You may however copy 
%% this file to a file with a different name and then change the copy 
%% if you obey the restrictions on file changes described in 
%% readme.babel. 
%% 
%% You are allowed to distribute this file under the condition that 
%% it is distributed together with all files mentioned in readme.babel. 
%% If you receive only some of these files from someone, complain!
%% 
%% You are NOT ALLOWED to distribute this file alone. You are NOT 
%% ALLOWED to take money for the distribution or use of either this 
%% file or a changed version, except for a nominal charge for copying 
%% etc. 
%% 
%% For error reports in case of UNCHANGED versions see readme files. 
%% 
%% Please do not request updates from me directly. Distribution is 
%% done through Mail-Servers and TeX organizations. 
%% 
%%%\iffalse
%%%  @LaTeX-file{
%%%     author          = "Johannes L. Braams",
%%%     version         = "3.3.2",
%%%     date            = "23 September 1993",
%%%     time            = "23:26:20 MET",
%%%     filename        = "babel.doc",
%%%     address         = "PTT Research
%%%                        St. Paulusstraat 4
%%%                        2264 XZ Leidschendam
%%%                        The Netherlands",
%%%     telephone       = "(70) 3325051",
%%%     FAX             = "(70) 3326477",
%%%     checksum        = "52222 1292 6341 53569",
%%%     email           = "J.L.Braams@research.ptt.nl (Internet)",
%%%     codetable       = "ISO/ASCII",
%%%     keywords        = "babel",
%%%     supported       = "yes",
%%%     docstring       = "This file ,babel.doc contains the core of
%%%                        the babel system as it was described in
%%%                        TuGboat Volume 12 no 2 and Volume 14 no 1.
%%%
%%%                        The checksum field above contains a CRC-16
%%%                        checksum as the first value, followed by the
%%%                        equivalent of the standard UNIX wc (word
%%%                        count) utility output of lines, words, and
%%%                        characters.  This is produced by Robert
%%%                        Solovay's checksum utility.",
%%%      }
%%% \fi
%%
\def\fileversion{babel-3.3.2}
\def\filedate{23 september 1993}
\wlog{Style option `babel' version \fileversion\space <\filedate>}
\ifx\undefined\iflanguage
  \input babel.switch\relax
\fi
\let\babel@core@loaded\relax
\def\babel@add@special#1{\begingroup
    \def\do{\noexpand\do\noexpand}%
    \def\@makeother{\noexpand\@makeother\noexpand}%
    \edef\x{\endgroup
      \def\noexpand\dospecials{\dospecials\do#1}%
      \expandafter\ifx\csname @sanitize\endcsname\relax \else
        \def\noexpand\@sanitize{\@sanitize\@makeother#1}%
      \fi}%
  \x}
\def\babel@remove@special#1{\begingroup
    \def\x##1##2{\ifnum`#1=`##2\noexpand\empty
                 \else\noexpand##1\noexpand##2\fi}%
    \def\do{\x\do}%
    \def\@makeother{\x\@makeother}%
    \edef\x{\endgroup
      \def\noexpand\dospecials{\dospecials}%
      \expandafter\ifx\csname @sanitize\endcsname\relax \else
        \def\noexpand\@sanitize{\@sanitize}%
      \fi}%
  \x}
\def\babel@beginsave{\babel@savecnt\z@}
\newcount\babel@savecnt
\babel@beginsave
\def\babel@save#1{%
  \expandafter\let\csname babel@\number\babel@savecnt\endcsname #1\relax
  \begingroup
    \toks@\expandafter{\originalTeX \let#1=}%
    \edef\x{\endgroup
      \def\noexpand\originalTeX{\the\toks@ \expandafter\noexpand
         \csname babel@\number\babel@savecnt\endcsname\relax}}%
  \x
  \advance\babel@savecnt\@ne}
\def\babel@savevariable#1{\begingroup
    \toks@\expandafter{\originalTeX #1=}%
    \edef\x{\endgroup
      \def\noexpand\originalTeX{\the\toks@ \the#1\relax}}%
  \x}
\def\addto#1#2{%
  \ifx\undefined#1\def#1{#2}\else
    \expandafter\def\expandafter#1\expandafter{#1#2}%
  \fi
}
\def\allowhyphens{\penalty\@M \hskip\z@skip}
\def\set@low@box#1{\setbox\tw@\hbox{,}\setbox\z@\hbox{#1}%
    \dimen\z@\ht\z@ \advance\dimen\z@ -\ht\tw@%
    \setbox\z@\hbox{\lower\dimen\z@ \box\z@}\ht\z@\ht\tw@ \dp\z@\dp\tw@}
\def\save@sf@q#1{{\ifhmode
    \edef\@SF{\spacefactor\the\spacefactor}\else
    \let\@SF\empty \fi \leavevmode #1\@SF}}
{\def\format{lplain}
\ifx\fmtname\format
\else
  \aftergroup\endinput
\fi}
\long\def\babel@sanitize@arg#1#2{\bgroup\def\@tempa{#2}%
  \expandafter\babel@strip@meaning\meaning\@tempa\relax{#1}}
\def\babel@strip@meaning#1->#2\relax#3{\egroup #3{#2}}
\let\LTX@label=\label
\def\label#1{\babel@sanitize@arg\LTX@label{#1}}
\let\LTX@newlabel=\newlabel
\def\newlabel#1#2{\babel@sanitize@arg\LTX@newlabel{#1}{#2}}
\let\LTX@ref=\ref
\def\ref#1{\babel@sanitize@arg\LTX@ref{#1}}
\let\LTX@pageref=\pageref
\def\pageref#1{\babel@sanitize@arg\LTX@pageref{#1}}
\let\LTX@@citex\@citex
\def\@citex[#1]#2{\babel@sanitize@arg{\LTX@@citex[#1]}{#2}}
\let\LTX@nocite\nocite
\def\nocite#1{\babel@sanitize@arg\LTX@nocite{#1}}
\let\LTX@bibcite\bibcite
\def\bibcite#1#2{\babel@sanitize@arg\LTX@bibcite{#1}{#2}}
\let\LTX@@bibitem\@bibitem
\def\@bibitem#1{\babel@sanitize@arg\LTX@@bibitem{#1}}
\let\LTX@@lbibitem\@lbibitem
\def\@lbibitem[#1]#2{\babel@sanitize@arg{\LTX@@lbibitem[#1]}{#2}}
\let\LTX@@testdef=\@testdef
\def\@testdef#1#2{\babel@sanitize@arg{\LTX@@testdef{#1}}{#2}}
\endinput
%% 
%% End of file `babel.com'.