summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/mex/base/lamex.tex
blob: 469e6cd5ea28c529f2ed2bd37f2f89a9bc309c83 (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
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
% This is LaMeX.TeX - the Polish LaTeX format.
% (The version number and date is at the end of the file)
%
% Authors: Marek Ry\'cko & Bogus\l{}aw Jackowski
%
% This macro file belongs to the public domain
% under the conditions specified by the author of TeX:
%
%   ``Macro files like PLAIN.TEX should not be changed in any way,
%     except with respect to preloaded fonts,
%     unless the changes are authorized by the authors of the macros.''
%
%                                           Donald E. Knuth
%
% For details see MEXINFO.ENG or MEXINFO.POL.
%
\catcode`\{=1 % left brace is begin-group character
\catcode`\}=2 % right brace is end-group character
\message{Preloading the LaMeX format:}
%
\input mex1

% redefinition of the macro /
\@ct\/ % make slash active
\let\P@lch\l@slash
\let/\P@lch

% reading LPLAIN with `\input hyphen' eliminated
\let\@ridump\dump \let\dump\endinput
\let\of@n\font \let\font\f@n
\let\i@t\input
\let\i@tf H% input file type
\def\input#1 {%
    \if\i@tf H\let\i@tf F\message{SKIPPED}%
    \else\if\i@tf F\let\i@tf T\i@t\lf@nts \relax
    \else\if\i@tf T\let\i@tf X\let\input\i@t \input\l@tex \relax
    \else\message{This can't happen!!!}%
    \fi\fi\fi}%
    % in LPLAIN there will be three \input-s:
    % \input hyphen  \input lfonts  \input latex
    % (each followed by a space token)
\i@t \lpl@in \relax
\catcode`@=11 % @ is again a letter
\let\font\of@n \let\f@n\undefined
\let\i@t\undefined
\let\dump\@ridump
\let\@ridump\undefined

% Fonts loaded on demand:
% In the following definition copied directly from the file `LFONTS.TEX'
% there is only one change:
%   \global\expandafter\font
% is changed to
%   \expandafter\f@@nt
% (see MEX1.TEX file for the definition of \f@@nt).
\def\@getfont#1#2#3#4{\@ifundefined{\string #1\string #3}{\expandafter
    \f@@nt \csname \string #1\string #3\endcsname #4\relax
    \@addfontinfo#3{\textfont #2\csname \string #1\string #3\endcsname
    \scriptfont #2\csname \string #1\string #3\endcsname
    \scriptscriptfont #2\csname \string #1\string #3\endcsname
    \def#1{\fam #2\csname\string #1\string #3\endcsname}}}{}#3#1}
% redefinitions:
% (see MEX1.TEX file for the definition of \redeff@nt).
\redeff@nt\@mbi
\redeff@nt\@mbsy
% there is no need to redefine \@mcsc and \@mss.

% If prefixing is used then the macros writing index and glossary
% should use the slash of category ``other''
% (and active slash should expand to ``other'' slash --
% this makes possible to use macros containing active slash
% in their replacement text):
\expandafter\def\expandafter\@sanitize\expandafter
{\@sanitize \ifx\pr@fix T\@makeother\/\let/\normalslash\fi}

% the  \LaMeX logo:
\def\LaMeX{{\rm L\kern-.345em\raise.3ex\hbox{\sc a}\kern-.16em
     M\kern-.111em\lower.6ex\hbox{E}\kern-.075emX}}%

\input mex2

\let\emulateLaTeX\emulateplain

% Dates and captions (following the ideas of J. Shrod and H. Partl):
% (for use with special style files:
% IARTICLE.STY, IREPORT.STY, IBOOK.STY, ILETTER.STY,
% IPROC.STY, IMAKEIDX.STY).

\gdef\datepolish{\def\today{\number\day~\ifcase\month\or
  stycznia\or lutego\or marca\or kwietnia\or maja\or czerwca\or
  lipca\or sierpnia\or wrze\pslash snia\or pa\pslash xdziernika\or
  listopada\or grudnia\fi~\number\year~r.}}

\gdef\dateenglish{\def\today{\ifcase\month\or
 January\or February\or March\or April\or May\or June\or
 July\or August\or September\or October\or November\or
 December\fi~\number\day,~\number\year}}

\gdef\captionsenglish{%
\def\refname{References}%
\def\abstractname{Abstract}%
\def\bibname{Bibliography}%
\def\chaptername{Chapter}%
\def\appendixname{Appendix}%
\def\contentsname{Contents}%
\def\listfigurename{List of Figures}%
\def\listtablename{List of Tables}%
\def\indexname{Index}%
\def\figurename{Figure}%
\def\tablename{Table}%
\def\partname{Part}%
\def\enclname{encl}%
\def\ccname{cc}%
\def\headtoname{To}%
\def\pagename{Page}%
\def\seename{see}}

\gdef\captionspolish{%
\def\refname{Cytowana literatura}%
\def\abstractname{Streszczenie}%
\def\bibname{Bibliografia}%
\def\chaptername{Rozdzia\pslash l}%
\def\appendixname{Dodatek}%
\def\contentsname{Spis tre\pslash sci}%
\def\listfigurename{Wykaz ilustracji}%
\def\listtablename{Wykaz tablic}%
\def\indexname{Skorowidz}%
\def\figurename{Rysunek}%
\def\tablename{Tablica}%
\def\partname{Cz\pslash e\pslash s\pslash c}%
\def\enclname{Za\pslash l.}%
\def\ccname{Do wiadomo\pslash sci}%
\def\headtoname{Do}%
\def\pagename{Strona}%
\def\seename{patrz}}

\datepolish \captionspolish

% LaMeX version of the Polish special discretionary:
\let\sdiscret\= \def\={\protect\sdiscret}
% In LaMeX \@acciii stores the new meaning of \= (a special discretionary).
% In tabbing environment, where \= has a different meaning
% one may use \a= as the special discretionary.
\let\@acciii\=
\expandafter\let\csname a=\endcsname\=

% Format identification:
%
\begingroup \let~\space \def\'{\string\'} \catcode`\&=12 % other
%
% identification data:
\def\a{LaMeX}      % format name
\def\b{1.05}       % format version
\def\c{18~XII~1993} % format date
%
\edef\x{\a~Version~\b~~\c~(B.~Jackowski~&~M.~Ry\'cko)}
\edef\z{\the\everyjob\immediate\write16{\x}\noexpand\the\everyjob}
\global\everyjob\expandafter{\z}
\newtoks\everyjob\global\everyjob{}
%
\global\let\plainfmtname\fmtname
\global\let\plainfmtversion\fmtversion
\xdef\fmtname{\a}
\xdef\fmtversion{\b}% identifies the current format
%
\endgroup

\@th\@% @ are no longer letters