]> matita.cs.unibo.it Git - helm.git/blob - helm/papers/matita/klups.sty
- s/decompilation/cleaning/
[helm.git] / helm / papers / matita / klups.sty
1
2 %
3 % This input file (c) Kluwer Academic Publishers.
4 % You are free to use this file as you see fit, provided 
5 % that you do not make changes. 
6 % If you DO make changes, you are required to rename the files.
7 %        
8 % \changes{1998/02/04}{Removed oldstyle numerals}
9 %
10 \def\fileversion{1.15}
11 \def\filedate{1998/03/13}
12 \NeedsTeXFormat{LaTeX2e}
13 %
14 %
15 % Options: mathtime's options
16 % exported commands: \rmgreek (decl) \greekrm (#1)                           
17 %
18 %
19 \ProvidesPackage{klups}[\filedate\space\fileversion\space
20  Kluwer PSfonts package]
21                                                                
22 \DeclareOption{uprightgreek}{%
23     \AtEndOfPackage{\rmgreek@redefs}}
24 \DeclareOption*{\PassOptionsToPackage\CurrentOption{mathtime}}
25 \ProcessOptions\relax
26
27 % Sans Serifs in 90% Helvetica
28 % Running text Times-Roman
29 % Typewriter Courier narrowed
30 %                                                        
31                   
32 \def\spaces{\space\space\space\space\space} 
33 \def\@fontwarnings{}
34 \def\@addtofontwarning#1{\g@addto@macro
35         \@fontwarnings{.\MessageBreak #1}}
36                                         
37 \renewcommand{\sfdefault}{phv}                         
38 \renewcommand{\rmdefault}{ptm}
39 \renewcommand{\ttdefault}{pcr}
40 \newif\if@couriernarrow \@couriernarrowtrue
41 \normalfont
42 % Try loading T1 font-encoding (only if psnfss installed)
43
44 \IfFileExists{T1ptm.fd}{\RequirePackage[T1]{fontenc}}{%
45     \IfFileExists{t1ptm.fd}{\RequirePackage[T1]{fontenc}
46         \let\@acci\`
47         \let\@accii\'
48         \let\@acciii\=
49         }{%
50      \PackageError{klups}{%
51      No encoding for T1 PostScript fonts found}{%
52      Please check your distribution of LaTeX thoroughly!\MessageBreak%
53      There seem to be some files missing the implement the\MessageBreak%
54      new 256 character font encodings
55      }}}%                   
56
57 % Try loading text companion fonts (only if psnfss installed)
58
59
60 \IfFileExists{TS1ptm.fd}{\RequirePackage{textcomp}}{%
61     \IfFileExists{ts1ptm.fd}{\RequirePackage{textcomp}}{%
62             \PassOptionsToPackage{noTS1}{mathtime}%    
63             \@addtofontwarning{%
64             No text companion fonts for Times found,\MessageBreak%
65             \spaces not loading textcomp style}}}
66
67           
68 % fontdim5=ex-height
69 \def\klutest@font#1#2{\def\klu@font@error{n}%
70     \batchmode \font\klutch=#1 \errorstopmode
71     \ifdim \the\fontdimen5\klutch < 1pt   
72         \def\klu@font@error{y}%
73         \@addtofontwarning{%
74         Font #2 is not available}%                                            
75     \fi \let\klutch\relax
76     }                 
77                          
78 \def\eightt{8t}
79 \batchmode \font\klutch=ptmr8t \errorstopmode
80 \ifdim \the\fontdimen5\klutch < 1pt   
81     \batchmode \font\klutch=ptmrq \errorstopmode
82     \ifdim \the\fontdimen5\klutch < 1pt    %%EEKS
83     \else
84     \gdef\eightt{q}%
85     \@addtofontwarning{%
86     Using old PostScript metrics,\MessageBreak 
87     \spaces consider updating your LaTeX fonts}%
88     \fi                                                             
89 \fi 
90 \let\klutch\relax
91
92 \def\hvtmpl{7tn}
93 \def\hvtmph{\eightt n}
94 {\def\@tempa{OT1}
95 \ifx \@tempa\encodingdefault
96     \batchmode \font\klutch=phvr7tn \errorstopmode
97     \ifdim \the\fontdimen5\klutch < 1pt   
98         \batchmode \font\klutch=phvrn7t \errorstopmode
99         \ifdim \the\fontdimen5\klutch < 1pt   
100             \@addtofontwarning{%
101             Font Helvetica Narrow is not available}% 
102         \else
103             \gdef\hvtmpl{n7t}
104             \gdef\hvtmph{n\eightt}
105         \fi
106     \fi 
107     \let\klutch\relax
108     \klutest@font{phvl7t}{Helvetica Light}
109     \klutest@font{pcrr7tn}{Courier Narrow}
110     \if y\klu@font@error
111      \global\@couriernarrowfalse
112     \fi
113 \else
114     \batchmode \font\klutch=phvr\eightt n \errorstopmode
115     \ifdim \the\fontdimen5\klutch < 1pt   
116         \batchmode \font\klutch=phvrn\eightt \errorstopmode
117         \ifdim \the\fontdimen5\klutch < 1pt   
118             \@addtofontwarning{%
119             Font Helvetica Narrow is not available}% 
120         \else
121             \gdef\hvtmpl{n7t}
122             \gdef\hvtmph{n\eightt}
123         \fi
124     \fi 
125     \klutest@font{phvl\eightt}{Helvetica Light}
126     \klutest@font{pcrr8tn}{Courier Narrow}
127     \if y\klu@font@error
128       \global\@couriernarrowfalse
129     \fi
130 \fi 
131 }
132
133 \newif\if@OSF \@OSFfalse
134 %\klutest@font{ptmr8dc}{Times SmallCaps and OSF}
135 %\if y\klu@font@error
136 %    \global\@OSFfalse
137 %\fi
138                                            
139 \if@OSF       
140     \DeclareTextFontCommand{\textbo}{\boseries}
141     \DeclareTextFontCommand{\textmo}{\moseries}
142     \DeclareRobustCommand\boseries
143         {\not@math@alphabet\boseries\relax
144          \fontseries{bo}\selectfont}
145     \DeclareRobustCommand\moseries
146         {\not@math@alphabet\moseries\relax
147          \fontseries{mo}\selectfont}
148     \def\oldstyle#1{{\fontseries{\f@series o}\selectfont #1}} 
149     \def\oldseries{\fontseries{\f@series o}\selectfont} 
150     \let\i@oldseries\oldseries
151 \fi                                                           
152 % start .fd files
153
154                                          
155 \begingroup \nfss@catcodes
156
157 %% Times
158 \if@OSF
159
160 \DeclareFontFamily{T1}{ptm}{}
161
162 \DeclareFontShape{T1}{ptm}{b}{n}{<-> ptmb8t}{}
163 \DeclareFontShape{T1}{ptm}{b}{sc}{<-> ptmb8dc}{}
164 \DeclareFontShape{T1}{ptm}{b}{sl}{<-> ptmbo8t}{}
165 \DeclareFontShape{T1}{ptm}{b}{it}{<-> ptmbi8t}{}
166                              
167 \DeclareFontShape{T1}{ptm}{bo}{n}{<-> ptmb8d}{}
168 \DeclareFontShape{T1}{ptm}{bo}{sc}{<-> ptmb8dc}{}
169 \DeclareFontShape{T1}{ptm}{bo}{sl}{<-> ptmbi8d}{}
170 \DeclareFontShape{T1}{ptm}{bo}{it}{<-> ptmbi8d}{}
171
172 \DeclareFontShape{T1}{ptm}{m}{n}{<-> ptmr8t}{}
173 \DeclareFontShape{T1}{ptm}{m}{sc}{<-> ptmr8dc}{}
174 \DeclareFontShape{T1}{ptm}{m}{sl}{<-> ptmro8t}{}
175 \DeclareFontShape{T1}{ptm}{m}{it}{<-> ptmri8t}{}
176                              
177 \DeclareFontShape{T1}{ptm}{mo}{n}{<-> ptmr8d}{}
178 \DeclareFontShape{T1}{ptm}{mo}{sc}{<-> ptmr8dc}{}
179 \DeclareFontShape{T1}{ptm}{mo}{sl}{<-> ptmri8d}{}
180 \DeclareFontShape{T1}{ptm}{mo}{it}{<-> ptmri8d}{}
181
182 \DeclareFontShape{T1}{ptm}{bx}{n}{<->ssub * ptm/b/n}{}
183 \DeclareFontShape{T1}{ptm}{bx}{sc}{<->ssub * ptm/b/sc}{}
184 \DeclareFontShape{T1}{ptm}{bx}{sl}{<->ssub * ptm/b/sl}{}
185 \DeclareFontShape{T1}{ptm}{bx}{it}{<->ssub * ptm/b/it}{}
186           
187 \DeclareFontShape{T1}{ptm}{bxo}{n}{<->ssub * ptm/bo/n}{}
188 \DeclareFontShape{T1}{ptm}{bxo}{sc}{<->ssub * ptm/bo/sc}{}
189 \DeclareFontShape{T1}{ptm}{bxo}{sl}{<->ssub * ptm/bo/sl}{}
190 \DeclareFontShape{T1}{ptm}{bxo}{it}{<->ssub * ptm/bo/it}{}
191
192 \DeclareFontShape{T1}{ptm}{l}{n}{<->ssub * ptm/m/n}{}
193 \DeclareFontShape{T1}{ptm}{l}{sc}{<->ssub * ptm/m/sc}{}
194 \DeclareFontShape{T1}{ptm}{l}{sl}{<->ssub * ptm/m/sl}{}
195 \DeclareFontShape{T1}{ptm}{l}{it}{<->ssub * ptm/m/it}{}
196
197 \DeclareFontShape{T1}{ptm}{lo}{n}{<->ssub * ptm/mo/n}{}
198 \DeclareFontShape{T1}{ptm}{lo}{sc}{<->ssub * ptm/mo/sc}{}
199 \DeclareFontShape{T1}{ptm}{lo}{sl}{<->ssub * ptm/mo/sl}{}
200 \DeclareFontShape{T1}{ptm}{lo}{it}{<->ssub * ptm/mo/it}{}
201
202 \fi
203                        
204 %% OT1 Courier
205
206 \DeclareFontFamily{OT1}{pcr}{\hyphenchar \font =-1}%
207
208 \DeclareFontShape{OT1}{pcr}{b}{sc}{<-> pcrbc7t}{}%
209 \DeclareFontShape{OT1}{pcr}{m}{sc}{<-> pcrrc7t}{}%
210 %%%% condensed courier
211 \if@couriernarrow
212 \DeclareFontShape{OT1}{pcr}{m}{n}{<-> pcrr7tn}{}%
213 \DeclareFontShape{OT1}{pcr}{b}{n}{<-> pcrb7tn}{}%
214 \DeclareFontShape{OT1}{pcr}{b}{sl}{<-> pcrbo7tn}{}%
215 \DeclareFontShape{OT1}{pcr}{m}{sl}{<-> pcrro7tn}{}%
216 \else                                         
217 \DeclareFontShape{OT1}{pcr}{m}{n}{<-> pcrr7t}{}%
218 \DeclareFontShape{OT1}{pcr}{b}{n}{<-> pcrb7t}{}%
219 \DeclareFontShape{OT1}{pcr}{b}{sl}{<-> pcrbo7t}{}%
220 \DeclareFontShape{OT1}{pcr}{m}{sl}{<-> pcrro7t}{}%
221 \fi
222 %%%% substitutions
223 \DeclareFontShape{OT1}{pcr}{bx}{it}{<->ssub * pcr/b/it}{}%
224 \DeclareFontShape{OT1}{pcr}{bx}{n}{<->ssub * pcr/b/n}{}%
225 \DeclareFontShape{OT1}{pcr}{bx}{sc}{<->ssub * pcr/b/sc}{}%
226 \DeclareFontShape{OT1}{pcr}{bx}{sl}{<->ssub * pcr/b/sl}{}%
227 \DeclareFontShape{OT1}{pcr}{b}{it}{<->ssub * pcr/b/sl}{}%
228 \DeclareFontShape{OT1}{pcr}{b}{ui}{<->ssub * pcr/b/it}{}
229 \DeclareFontShape{OT1}{pcr}{l}{it}{<->ssub * pcr/m/it}{}
230 \DeclareFontShape{OT1}{pcr}{l}{n}{<->ssub * pcr/m/n}{}
231 \DeclareFontShape{OT1}{pcr}{l}{sc}{<->ssub * pcr/m/sc}{}
232 \DeclareFontShape{OT1}{pcr}{l}{sl}{<->ssub * pcr/m/sl}{}
233 \DeclareFontShape{OT1}{pcr}{m}{it}{<->ssub * pcr/m/sl}{}
234 \DeclareFontShape{OT1}{pcr}{m}{ui}{<->ssub * pcr/m/it}{}
235
236 %%%% T1 courier
237
238 \DeclareFontFamily{T1}{pcr}{\hyphenchar \font =-1}%
239
240 \DeclareFontShape{T1}{pcr}{b}{sc}{<-> pcrbc\eightt}{}%
241 \DeclareFontShape{T1}{pcr}{m}{sc}{<-> pcrrc\eightt}{}%
242 %%%% condensed courier
243 \if@couriernarrow
244 \DeclareFontShape{T1}{pcr}{m}{n}{<-> pcrr8tn}{}%
245 \DeclareFontShape{T1}{pcr}{b}{n}{<-> pcrb8tn}{}%
246 \DeclareFontShape{T1}{pcr}{b}{sl}{<-> pcrbo8tn}{}%
247 \DeclareFontShape{T1}{pcr}{m}{sl}{<-> pcrro8tn}{}%
248 \else                                              
249 \DeclareFontShape{T1}{pcr}{b}{n}{<-> pcrb\eightt}{}%
250 \DeclareFontShape{T1}{pcr}{b}{sl}{<-> pcrbo\eightt}{}%
251 \DeclareFontShape{T1}{pcr}{m}{sl}{<-> pcrro\eightt}{}%
252 \DeclareFontShape{T1}{pcr}{m}{n}{<-> pcrr\eightt}{}%
253 \fi                                                  
254 %%%% substitutions
255 \DeclareFontShape{T1}{pcr}{bx}{n}{<->ssub * pcr/b/n}{}
256 \DeclareFontShape{T1}{pcr}{bx}{sc}{<->ssub * pcr/b/sc}{}
257 \DeclareFontShape{T1}{pcr}{bx}{sl}{<->ssub * pcr/b/sl}{}
258 \DeclareFontShape{T1}{pcr}{b}{it}{<->ssub * pcr/b/sl}{}
259 \DeclareFontShape{T1}{pcr}{bx}{it}{<->ssub * pcr/b/it}{}
260 \DeclareFontShape{T1}{pcr}{l}{n}{<->ssub * pcr/m/n}{}
261 \DeclareFontShape{T1}{pcr}{l}{sc}{<->ssub * pcr/m/sc}{}
262 \DeclareFontShape{T1}{pcr}{l}{sl}{<->ssub * pcr/m/sl}{}
263 \DeclareFontShape{T1}{pcr}{m}{it}{<->ssub * pcr/m/sl}{}
264 \DeclareFontShape{T1}{pcr}{l}{it}{<->ssub * pcr/m/it}{}
265
266 % OT1 Helvetica
267
268 \DeclareFontFamily{OT1}{phv}{}
269 \DeclareFontShape{OT1}{phv}{b}{n}{<-> s * [.9] phvb7t}{}
270 \DeclareFontShape{OT1}{phv}{b}{sc}{<-> s * [.9] phvbc7t}{}
271 \DeclareFontShape{OT1}{phv}{b}{sl}{<-> s * [.9] phvbo7t}{}
272 \DeclareFontShape{OT1}{phv}{bc}{n}{<-> s * [.9] phvb\hvtmpl}{}
273 \DeclareFontShape{OT1}{phv}{bc}{sc}{<-> s * [.9] phvbc\hvtmpl}{}
274 \DeclareFontShape{OT1}{phv}{bc}{sl}{<-> s * [.9] phvbo\hvtmpl}{}
275 \DeclareFontShape{OT1}{phv}{l}{n}{<-> s * [.9] phvl7t}{}
276 \DeclareFontShape{OT1}{phv}{l}{sc}{<-> s * [.9] phvlc7t}{}
277 \DeclareFontShape{OT1}{phv}{l}{sl}{<-> s * [.9] phvlo7t}{}
278 \DeclareFontShape{OT1}{phv}{m}{n}{<-> s * [.9] phvr7t}{}
279 \DeclareFontShape{OT1}{phv}{m}{sc}{<-> s * [.9] phvrc7t}{}
280 \DeclareFontShape{OT1}{phv}{m}{sl}{<-> s * [.9] phvro7t}{}
281 \DeclareFontShape{OT1}{phv}{mc}{n}{<-> s * [.9] phvr\hvtmpl}{}
282 \DeclareFontShape{OT1}{phv}{mc}{sc}{<-> s * [.9] phvrc\hvtmpl}{}
283 \DeclareFontShape{OT1}{phv}{mc}{sl}{<-> s * [.9] phvro\hvtmpl}{}
284
285 \DeclareFontShape{OT1}{phv}{bx}{n}{<->ssub * phv/b/n}{}
286 \DeclareFontShape{OT1}{phv}{bx}{sc}{<->ssub * phv/b/sc}{}
287 \DeclareFontShape{OT1}{phv}{bx}{sl}{<->ssub * phv/b/sl}{}
288 \DeclareFontShape{OT1}{phv}{b}{it}{<->ssub * phv/b/sl}{}
289 \DeclareFontShape{OT1}{phv}{bx}{it}{<->ssub * phv/b/it}{}
290 \DeclareFontShape{OT1}{phv}{bc}{it}{<->ssub * phv/bc/sl}{}
291 \DeclareFontShape{OT1}{phv}{l}{it}{<->ssub * phv/l/sl}{}
292 \DeclareFontShape{OT1}{phv}{m}{it}{<->ssub * phv/m/sl}{}
293 \DeclareFontShape{OT1}{phv}{mc}{it}{<->ssub * phv/mc/sl}{}
294 \DeclareFontShape{OT1}{phv}{m}{ui}{<->ssub * phv/m/it}{}
295 \DeclareFontShape{OT1}{phv}{b}{ui}{<->ssub * phv/b/it}{}
296                                       
297 %%%% T1 Helvetica
298
299
300 \DeclareFontFamily{T1}{phv}{}
301
302 \DeclareFontShape{T1}{phv}{b}{n}{<-> s * [.9] phvb\eightt}{}
303 \DeclareFontShape{T1}{phv}{b}{sc}{<-> s * [.9] phvbc\eightt}{}
304 \DeclareFontShape{T1}{phv}{b}{sl}{<-> s * [.9] phvbo\eightt}{}
305 \DeclareFontShape{T1}{phv}{bc}{n}{<-> s * [.9] phvb\hvtmph}{}
306 \DeclareFontShape{T1}{phv}{bc}{sc}{<-> s * [.9] phvbc\hvtmph}{}
307 \DeclareFontShape{T1}{phv}{bc}{sl}{<-> s * [.9] phvbo\hvtmph}{}
308 \DeclareFontShape{T1}{phv}{l}{n}{<-> s * [.9] phvl\eightt}{}
309 \DeclareFontShape{T1}{phv}{l}{sc}{<-> s * [.9] phvlc\eightt}{}
310 \DeclareFontShape{T1}{phv}{l}{sl}{<-> s * [.9] phvlo\eightt}{}
311 \DeclareFontShape{T1}{phv}{m}{n}{<-> s * [.9] phvr\eightt}{}
312 \DeclareFontShape{T1}{phv}{m}{sc}{<-> s * [.9] phvrc\eightt}{}
313 \DeclareFontShape{T1}{phv}{m}{sl}{<-> s * [.9] phvro\eightt}{}
314 \DeclareFontShape{T1}{phv}{mc}{n}{<-> s * [.9] phvr\hvtmph}{}
315 \DeclareFontShape{T1}{phv}{mc}{sc}{<-> s * [.9] phvrc\hvtmph}{}
316 \DeclareFontShape{T1}{phv}{mc}{sl}{<-> s * [.9] phvro\hvtmph}{}
317                                                 
318 \DeclareFontShape{T1}{phv}{bx}{n}{<->ssub * phv/b/n}{}
319 \DeclareFontShape{T1}{phv}{bx}{sc}{<->ssub * phv/b/sc}{}
320 \DeclareFontShape{T1}{phv}{bx}{sl}{<->ssub * phv/b/sl}{}
321 \DeclareFontShape{T1}{phv}{b}{it}{<->ssub * phv/b/sl}{}
322 \DeclareFontShape{T1}{phv}{bx}{it}{<->ssub * phv/b/it}{}
323 \DeclareFontShape{T1}{phv}{bc}{it}{<->ssub * phv/bc/sl}{}
324 \DeclareFontShape{T1}{phv}{l}{it}{<->ssub * phv/l/sl}{}
325 \DeclareFontShape{T1}{phv}{m}{it}{<->ssub * phv/m/sl}{}
326 \DeclareFontShape{T1}{phv}{mc}{it}{<->ssub * phv/mc/sl}{}
327
328 \endgroup
329
330
331 \klutest@font{MTSY}{Mathtime}
332 \if y\klu@font@error
333     \IfFileExists{mathptm.sty}{%
334     \PackageWarningNoLine{klups}{%
335     Using mathptm, possibly incorrect output for math fonts}%
336     \RequirePackage{mathptm}}{%
337     \PackageError{klups}{%
338     Incorrect output for all math fonts}{%
339     Because I could not find the MathTime package, I am reverting\MessageBreak
340     to Computer Modern for Calligraphics and all math.\MessageBreak 
341     Sorry, but you don't even have mathptm.sty installed!
342     }} 
343 \else 
344 \klutest@font{MTSYB}{Mathtime Plus}
345 \if y\klu@font@error
346     \PackageError{klups}{%
347     Unstable output encoding for \string\boldmath}{%
348     Because I could not find the MathTime plus fonts, I am reverting\MessageBreak
349     to Computer Modern for Calligraphics and bold math. This looks\MessageBreak 
350     bad and may even give incorrect characters if you use \string\boldmath
351     }%
352     \RequirePackage{mathtime}
353 \else 
354     \RequirePackage[mtbold,mtpluscal]{mathtime}
355 \fi
356 \fi   
357 \klutest@font{MTGU}{Mathtime Plus upright greek}
358 \if y\klu@font@error 
359     \@addtofontwarning{%
360         \spaces disabling \string\psgreek\space and \string\greekps}
361     \AtEndOfPackage{\let\rmgreek@redefs\relax }%
362 \else
363
364
365 \begingroup \nfss@catcodes
366 \DeclareFontFamily{U}{mtgu}{}
367 \DeclareFontShape{U}{mtgu}{m}{n}{<-> MTGU}{}
368 \DeclareFontShape{U}{mtgu}{b}{n}{<-> MTGUB}{}
369 \endgroup
370
371 \DeclareSymbolFont{uprightlcgreek}{U}{mtgu}{m}{n}
372 %                   
373 %  This is not clean. bold lowercase greek should come
374 %  from the 'letters' font (MTMIB) to avoid confusion. 
375 %  However, there are the same glyphs in both fonts.
376 %
377 \SetSymbolFont{uprightlcgreek}{bold}{U}{mtgu}{b}{n} 
378          
379
380 \DeclareMathSymbol{\upr@alpha    }{\mathord}{uprightlcgreek}{`a}
381 \DeclareMathSymbol{\upr@beta     }{\mathord}{uprightlcgreek}{`b}
382 \DeclareMathSymbol{\upr@gamma    }{\mathord}{uprightlcgreek}{`g}
383 \DeclareMathSymbol{\upr@delta    }{\mathord}{uprightlcgreek}{`d}
384 \DeclareMathSymbol{\upr@epsilon  }{\mathord}{uprightlcgreek}{`e}
385 \DeclareMathSymbol{\upr@zeta     }{\mathord}{uprightlcgreek}{`z}
386 \DeclareMathSymbol{\upr@eta      }{\mathord}{uprightlcgreek}{'041}
387 \DeclareMathSymbol{\upr@theta    }{\mathord}{uprightlcgreek}{'042}
388 \DeclareMathSymbol{\upr@iota     }{\mathord}{uprightlcgreek}{`i}
389 \DeclareMathSymbol{\upr@kappa    }{\mathord}{uprightlcgreek}{`k}
390 \DeclareMathSymbol{\upr@lambda   }{\mathord}{uprightlcgreek}{`l}
391 \DeclareMathSymbol{\upr@mu       }{\mathord}{uprightlcgreek}{`m}
392 \DeclareMathSymbol{\upr@nu       }{\mathord}{uprightlcgreek}{`n}
393 \DeclareMathSymbol{\upr@xi       }{\mathord}{uprightlcgreek}{`x}
394 \DeclareMathSymbol{\upr@pi       }{\mathord}{uprightlcgreek}{`p}
395 \DeclareMathSymbol{\upr@rho      }{\mathord}{uprightlcgreek}{`r}
396 \DeclareMathSymbol{\upr@sigma    }{\mathord}{uprightlcgreek}{`s}
397 \DeclareMathSymbol{\upr@tau      }{\mathord}{uprightlcgreek}{`t}
398 \DeclareMathSymbol{\upr@upsilon  }{\mathord}{uprightlcgreek}{`u}
399 \DeclareMathSymbol{\upr@phi      }{\mathord}{uprightlcgreek}{'043}
400 \DeclareMathSymbol{\upr@chi      }{\mathord}{uprightlcgreek}{'044}
401 \DeclareMathSymbol{\upr@psi      }{\mathord}{uprightlcgreek}{'045}
402 \DeclareMathSymbol{\upr@omega    }{\mathord}{uprightlcgreek}{'046}
403 \DeclareMathSymbol{\upr@varepsilon}{\mathord}{uprightlcgreek}{'053}
404 \DeclareMathSymbol{\upr@vartheta }{\mathord}{uprightlcgreek}{'054}
405 \DeclareMathSymbol{\upr@varpi    }{\mathord}{uprightlcgreek}{'055}
406 \DeclareMathSymbol{\upr@varrho   }{\mathord}{uprightlcgreek}{'056}
407 \DeclareMathSymbol{\upr@varsigma }{\mathord}{uprightlcgreek}{'057}
408 \DeclareMathSymbol{\upr@varphi   }{\mathord}{uprightlcgreek}{'060}
409 \DeclareMathSymbol{\upr@varkappa }{\mathord}{uprightlcgreek}{'061}
410               
411                                
412 \let\italicalpha      \alpha        
413 \let\italicbeta       \beta         
414 \let\italicgamma      \gamma        
415 \let\italicdelta      \delta        
416 \let\italicepsilon    \epsilon      
417 \let\italiczeta       \zeta         
418 \let\italiceta        \eta          
419 \let\italictheta      \theta        
420 \let\italiciota       \iota         
421 \let\italickappa      \kappa        
422 \let\italiclambda     \lambda       
423 \let\italicmu         \mu           
424 \let\italicnu         \nu           
425 \let\italicxi         \xi           
426 \let\italicpi         \pi           
427 \let\italicrho        \rho          
428 \let\italicsigma      \sigma        
429 \let\italictau        \tau          
430 \let\italicupsilon    \upsilon      
431 \let\italicphi        \phi          
432 \let\italicchi        \chi          
433 \let\italicpsi        \psi          
434 \let\italicomega      \omega        
435 \let\italicvarepsilon \varepsilon   
436 \let\italicvartheta   \vartheta     
437 \let\italicvarpi      \varpi        
438 \let\italicvarrho     \varrho       
439 \let\italicvarsigma   \varsigma     
440 \let\italicvarphi     \varphi       
441 \let\italicvarkappa   \varkappa     
442
443 \def\rmgreek@redefs{%
444 \def\alpha       {\upr@alpha      }%
445 \def\beta        {\upr@beta       }%
446 \def\gamma       {\upr@gamma      }%
447 \def\delta       {\upr@delta      }%
448 \def\epsilon     {\upr@epsilon    }%
449 \def\zeta        {\upr@zeta       }%
450 \def\eta         {\upr@eta        }%
451 \def\theta       {\upr@theta      }%
452 \def\iota        {\upr@iota       }%
453 \def\kappa       {\upr@kappa      }%
454 \def\lambda      {\upr@lambda     }%
455 \def\mu          {\upr@mu         }%
456 \def\nu          {\upr@nu         }%
457 \def\xi          {\upr@xi         }%
458 \def\pi          {\upr@pi         }%
459 \def\rho         {\upr@rho        }%
460 \def\sigma       {\upr@sigma      }%
461 \def\tau         {\upr@tau        }%
462 \def\upsilon     {\upr@upsilon    }%
463 \def\phi         {\upr@phi        }%
464 \def\chi         {\upr@chi        }%
465 \def\psi         {\upr@psi        }%
466 \def\omega       {\upr@omega      }%
467 \def\varepsilon  {\upr@varepsilon }%
468 \def\vartheta    {\upr@vartheta   }%
469 \def\varpi       {\upr@varpi      }%
470 \def\varrho      {\upr@varrho     }%
471 \def\varsigma    {\upr@varsigma   }%
472 \def\varphi      {\upr@varphi     }%
473 \def\varkappa    {\upr@varkappa   }%
474     }                       
475
476 \def\rmgreek{\rmgreek@redefs }
477 \def\greekrm#1{{\rmgreek #1}}
478 \fi
479     
480 \ifx\@fontwarnings\empty \else
481     \PackageWarningNoLine{klups}{\@fontwarnings}
482 \fi                             
483 \normalfont                          
484 \endinput                   
485
486 %%                          
487 %% End of file `klups.sty'. 
488