summaryrefslogtreecommitdiff
path: root/obsolete/macros/ec-plain/acmacros.sty
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/macros/ec-plain/acmacros.sty')
-rw-r--r--obsolete/macros/ec-plain/acmacros.sty594
1 files changed, 594 insertions, 0 deletions
diff --git a/obsolete/macros/ec-plain/acmacros.sty b/obsolete/macros/ec-plain/acmacros.sty
new file mode 100644
index 0000000000..e161d7efd6
--- /dev/null
+++ b/obsolete/macros/ec-plain/acmacros.sty
@@ -0,0 +1,594 @@
+% special distinction EURO-TeX/tm.fonts/dm.fonts
+\ifx\rm\undefined\relax
+\else\rm
+\def\wordsplita#1#2#3.{#1}%
+\def\wordsplitb#1#2#3.{#2}%
+%
+\ifx\fonthdg\undefined
+ \edef\fonthdg{\expandafter\wordsplita\fontname\the\font.}\fi
+\ifx\fonthdge\undefined
+ \edef\fonthdge{\expandafter\wordsplitb\fontname\the\font.}\fi
+\fi
+
+\newif\ifeurotex
+\immediate\write16{ Font heading:\fonthdg\fonthdge}\relax
+\if\fonthdg d\relax
+ \if\fonthdge c\relax
+ \immediate\write16{ DC fonts active}%
+ \eurotextrue
+ \fi
+\fi
+%
+\if\fonthdg e\relax
+ \if\fonthdge c\relax
+ \immediate\write16{ EC fonts active}%
+ \eurotextrue
+ \fi
+\fi
+%
+\ifx\protect\undefined\let\protect\relax\fi
+%
+% ================== Special accent macro codes ============================
+% taken from dc-plain.ch
+\ifeurotex
+ \def\acute{\mathaccent"7001 }
+ \def\grave{\mathaccent"7000 }
+ \def\ddot{\mathaccent"7004 }
+ \def\tilde{\mathaccent"7003 }
+ \def\bar{\mathaccent"7009 }
+ \def\breve{\mathaccent"7008 }
+ \def\check{\mathaccent"7007 }
+ \def\hat{\mathaccent"7002 }
+ \def\vec{\mathaccent"017E }
+ \def\dot{\mathaccent"700A }
+ \def\ss{^^ff}
+ \def\ae{^^e6}
+ \def\oe{^^f7}
+ \def\o{^^f8}
+ \def\AE{^^c6}
+ \def\OE{^^d7}
+ \def\O{^^d8}
+ \def\i{^^19}\def\j{^^1a} % dotless letters
+ \def\aa{^^e5}
+ \def\AA{^^c5}
+ \def\l{^^aa} %backslash-lowercase L for Polish waw}
+ \def\L{^^8a}
+ \def\th{^^fe}
+ \def\TH{^^de}
+ \def\dh{^^f0}
+ \def\DH{^^d0}
+ \def\dj{^^9e}
+ \def\DJ{^^d0}
+ \def\ng{^^ad}
+ \def\NG{^^8d}
+ \def\SS{^^df}
+\else
+ \def\ae{^^1a}
+ \def\oe{^^1b}
+ \def\o{^^1c}
+ \def\AE{^^1d}
+ \def\OE{^^1e}
+ \def\O{^^1f}
+ \def\i{^^10}
+ \def\j{^^11} % dotless letters
+\fi
+
+\ifeurotex
+ \def\b#1{\oalign{#1\crcr\hidewidth
+ \vbox to.2ex{\hbox{\char"09}\vss}\hidewidth}}
+\fi
+
+\ifeurotex
+\def\@gr@#1{{\accent"00 #1}}
+\else
+\def\@gr@#1{{\accent18 #1}}
+\fi
+
+\def\`#1{\ifx#1a^^e0% {}
+ \else\ifx#1e^^e8% {}
+ \else\ifx#1\i ^^ec% {}
+ \else\ifx#1i^^ec% {}
+ \else\ifx#1o^^f2% {}
+ \else\ifx#1u^^f9% {}
+ \else\ifx#1A^^c0% {}
+ \else\ifx#1E^^c8% {}
+ \else\ifx#1I^^cc% {}
+ \else\ifx#1O^^d2% {}
+ \else\ifx#1U^^d9% {}
+ \else\protect\@gr@{#1}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
+
+\def\c@{\@c@}
+\ifeurotex
+\def\@c@#1{\setbox\z@\hbox{#1}\ifdim\ht\z@=1ex\accent"0B #1%
+ \else{\ooalign{\hidewidth\char"0B\hidewidth\crcr\unhbox\z@}}\fi}%
+\else
+\def\@c@#1{\setbox\z@\hbox{#1}\ifdim\ht\z@=1ex\accent 24 #1%
+ \else{\ooalign{\hidewidth\char 24\hidewidth\crcr\unhbox\z@}}\fi}%
+\fi
+
+
+\ifeurotex
+\def\c#1{\ifx#1c^^e7% {}
+ \else\ifx#1a^^a1% {}
+ \else\ifx#1e^^a6% {}
+ \else\ifx#1s^^b3% {}
+ \else\ifx#1t^^b5% {}
+ \else\ifx#1C^^c7% {}
+ \else\ifx#1A^^81% {}
+ \else\ifx#1E^^86% {}
+ \else\ifx#1S^^93% {}
+ \else\ifx#1T^^95% {}
+ \else\protect\@c@{#1}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
+\else
+\def\c#1{\ifx#1c^^e7% {}
+ \else\ifx#1C^^c7% {}
+ \else\protect\@c@{#1}%
+ \fi\fi}
+\fi
+
+\ifeurotex
+\def\@r@#1{{\accent"06 #1}}
+\else
+\def\@r@#1{{\accent"17 #1}}
+\fi
+
+\ifeurotex
+\def\r#1{\ifx#1a^^e5% {}
+ \else\ifx#1A^^c5% {}
+ \else\ifx#1u^^b7% {}
+ \else\ifx#1U^^97% {}
+ \else\protect\@r@{#1}%
+ \fi\fi\fi\fi}
+\else
+\def\r#1{\ifx#1a^^e5% {}
+ \else\ifx#1A^^c5% {}
+ \else\protect\@r@{#1}%
+ \fi\fi}
+\fi
+
+\ifeurotex
+\def\@ac@#1{{\accent"01 #1}}
+\else
+\def\@ac@#1{{\accent19 #1}}
+\fi
+
+\ifeurotex
+\def\'#1{\ifx#1a^^e1% {}
+ \else\ifx#1e^^e9% {}
+ \else\ifx#1\i ^^ed% {}
+ \else\ifx#1i^^ed% {}
+ \else\ifx#1o^^f3% {}
+ \else\ifx#1u^^fa% {}
+ \else\ifx#1y^^fd% {}
+ \else\ifx#1c^^a2% {}
+ \else\ifx#1l^^a8% {}
+ \else\ifx#1n^^ab% {}
+ \else\ifx#1r^^af% {}
+ \else\ifx#1s^^b1% {}
+ \else\ifx#1z^^b9% {}
+ \else\ifx#1A^^c1% {}
+ \else\ifx#1E^^c9% {}
+ \else\ifx#1I^^cd% {}
+ \else\ifx#1O^^d3% {}
+ \else\ifx#1U^^da% {}
+ \else\ifx#1Y^^dd% {}
+ \else\ifx#1C^^82% {}
+ \else\ifx#1L^^88% {}
+ \else\ifx#1N^^8b% {}
+ \else\ifx#1R^^8f% {}
+ \else\ifx#1S^^91% {}
+ \else\ifx#1Z^^99% {}
+ \else\protect\@ac@{#1}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
+\else
+\def\'#1{\ifx#1a^^e1% {}
+ \else\ifx#1e^^e9% {}
+ \else\ifx#1\i ^^ed% {}
+ \else\ifx#1i^^ed% {}
+ \else\ifx#1o^^f3% {}
+ \else\ifx#1u^^fa% {}
+ \else\ifx#1y^^fd% {}
+ \else\ifx#1A^^c1% {}
+ \else\ifx#1E^^c9% {}
+ \else\ifx#1I^^cd% {}
+ \else\ifx#1O^^d3% {}
+ \else\ifx#1U^^da% {}
+ \else\ifx#1Y^^dd% {}
+ \else\protect\@ac@{#1}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
+\fi
+
+\ifeurotex
+\def\@v@#1{{\accent"07 #1}}
+\else
+\def\@v@#1{{\accent 20 #1}}
+\fi
+
+\ifeurotex
+\def\v#1{\ifx#1c^^a3% {}
+ \else\ifx#1d^^a4% {}
+ \else\ifx#1e^^a5% {}
+ \else\ifx#1n^^ac% {}
+ \else\ifx#1r^^b0% {}
+ \else\ifx#1s^^b2% {}
+ \else\ifx#1t^^b4% {}
+ \else\ifx#1l^^a9% {}
+ \else\ifx#1C^^83% {}
+ \else\ifx#1D^^84% {}
+ \else\ifx#1E^^85% {}
+ \else\ifx#1N^^8c% {}
+ \else\ifx#1R^^90% {}
+ \else\ifx#1S^^92% {}
+ \else\ifx#1T^^94% {}
+ \else\ifx#1L^^89% {}
+ \else\protect\@v@{#1}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
+\else
+\def\v#1{\protect\@v@{#1}}%
+\fi
+
+\ifeurotex
+\def\@u@#1{{\accent"08 #1}}
+\else
+\def\@u@#1{{\accent 21 #1}}
+\fi
+
+%\check
+
+\ifeurotex
+\def\u#1{\ifx#1a^^a0% {}
+ \else\ifx#1g^^a7% {}
+ \else\ifx#1A^^80% {}
+ \else\ifx#1G^^87% {}
+ \else\protect\@u@{#1}%
+ \fi\fi\fi\fi}
+\else
+\def\u#1{\protect\@u@{#1}}%
+\fi
+
+\ifeurotex
+\def\@dot@#1{{\accent"0A #1}}
+\else
+\def\@dot@#1{{\accent 95 #1}}
+\fi
+
+%\check
+
+\ifeurotex
+\def\.#1{\ifx#1z^^bb% {}
+ \else\ifx#1Z^^9b% {}
+ \else\ifx#1I^^9d% {}
+ \else\protect\@dot@{#1}%
+ \fi\fi\fi}
+\else
+\def\.#1{\protect\@dot@{#1}}%
+\fi
+
+%\check
+
+\ifeurotex
+\def\@H@#1{{\accent"05 #1}}
+\else
+\def\@H@#1{{\accent"7D #1}}
+\fi
+
+\ifeurotex
+\def\H#1{\ifx#1o^^ae% {}
+ \else\ifx#1u^^b6% {}
+ \else\ifx#1O^^8e% {}
+ \else\ifx#1U^^96% {}
+ \else\protect\@H@{#1}%
+ \fi\fi\fi\fi}
+\else
+\def\H#1{\protect\@H@{#1}}%
+\fi
+
+%\check
+
+\ifeurotex
+\def\@um@#1{{\accent"04 #1}}
+\else
+\def\@um@#1{{\accent"7F #1}}
+\fi
+
+\ifeurotex
+\def\"#1{\ifx#1a^^e4% {}
+ \else\ifx#1e^^eb% {}
+ \else\ifx#1\i ^^ef% {}
+ \else\ifx#1i^^ef% {}
+ \else\ifx#1o^^f6% {}
+ \else\ifx#1u^^fc% {}
+ \else\ifx#1y^^b8% {}
+ \else\ifx#1A^^c4% {}
+ \else\ifx#1E^^cb% {}
+ \else\ifx#1I^^cf% {}
+ \else\ifx#1O^^d6% {}
+ \else\ifx#1U^^dc% {}
+ \else\ifx#1Y^^98% {}
+ \else\protect\@um@{#1}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
+\else
+\def\"#1{\ifx#1a^^e4% {}
+ \else\ifx#1e^^eb% {}
+ \else\ifx#1\i ^^ef% {}
+ \else\ifx#1i^^ef% {}
+ \else\ifx#1o^^f6% {}
+ \else\ifx#1u^^fc% {}
+ \else\ifx#1A^^c4% {}
+ \else\ifx#1E^^cb% {}
+ \else\ifx#1I^^cf% {}
+ \else\ifx#1O^^d6% {}
+ \else\ifx#1U^^dc% {}
+ \else\protect\@um@{#1}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
+\fi
+
+
+\ifeurotex
+\def\@eq@#1{{\accent"09 #1}}
+\else
+\def\@eq@#1{{\accent22 #1}}
+\fi
+
+\def\=#1{\protect\@eq@{#1}}
+
+\ifeurotex
+\def\@hat@#1{{\accent"02 #1}}
+\else
+\def\@hat@#1{{\accent94 #1}}
+\fi
+
+\def\^#1{\ifx#1a^^e2% {}
+ \else\ifx#1e^^ea% {}
+ \else\ifx#1\i ^^ee% {}
+ \else\ifx#1i^^ee% {}
+ \else\ifx#1o^^f4% {}
+ \else\ifx#1u^^fb% {}
+ \else\ifx#1A^^c2% {}
+ \else\ifx#1E^^ca% {}
+ \else\ifx#1I^^ce% {}
+ \else\ifx#1O^^d4% {}
+ \else\ifx#1U^^db% {}
+ \else\protect\@hat@{#1}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
+
+%\check
+
+
+\ifeurotex
+\def\@til@#1{{\accent"03 #1}}
+\else
+\def\@til@#1{{\accent"7E #1}}
+\fi
+
+\def\~#1{\ifx#1a^^e3% {}
+ \else\ifx#1n^^f1% {}
+ \else\ifx#1o^^f5% {}
+ \else\ifx#1A^^c3% {}
+ \else\ifx#1N^^d1% {}
+ \else\ifx#1O^^d5% {}
+ \else\protect\@til@{#1}%
+ \fi\fi\fi\fi\fi\fi}
+
+\ifeurotex
+% normal greek symbols : lower case slanted, uppercase upright
+\mathchardef\Gamma="0180
+\mathchardef\Delta="0181
+\mathchardef\Theta="0182
+\mathchardef\Lambda="0183
+\mathchardef\Xi="0184
+\mathchardef\Pi="0185
+\mathchardef\Sigma="0186
+\mathchardef\Upsilon="0187
+\mathchardef\Phi="0188
+\mathchardef\Psi="0189
+\mathchardef\Omega="018A
+\mathchardef\alpha="010B
+\mathchardef\beta="010C
+\mathchardef\gamma="010D
+\mathchardef\delta="010E
+\mathchardef\epsilon="010F
+\mathchardef\zeta="0110
+\mathchardef\eta="0111
+\mathchardef\theta="0112
+\mathchardef\iota="0113
+\mathchardef\kappa="0114
+\mathchardef\lambda="0115
+\mathchardef\mu="0116
+\mathchardef\nu="0117
+\mathchardef\xi="0118
+\mathchardef\pi="0119
+\mathchardef\rho="011A
+\mathchardef\sigma="011B
+\mathchardef\tau="011C
+\mathchardef\upsilon="011D
+\mathchardef\phi="011E
+\mathchardef\chi="011F
+\mathchardef\psi="0120
+\mathchardef\omega="0121
+\mathchardef\varepsilon="0122
+\mathchardef\vartheta="0123
+\mathchardef\varpi="0124
+\mathchardef\varrho="0125
+\mathchardef\varsigma="0126
+\mathchardef\varphi="0127
+ %
+% slanted greek symbols :
+\mathchardef\slGamma="0100
+\mathchardef\slDelta="0101
+\mathchardef\slTheta="0102
+\mathchardef\slLambda="0103
+\mathchardef\slXi="0104
+\mathchardef\slPi="0105
+\mathchardef\slSigma="0106
+\mathchardef\slUpsilon="0107
+\mathchardef\slPhi="0108
+\mathchardef\slPsi="0109
+\mathchardef\slOmega="010A
+\mathchardef\slalpha="010B
+\mathchardef\slbeta="010C
+\mathchardef\slgamma="010D
+\mathchardef\sldelta="010E
+\mathchardef\slepsilon="010F
+\mathchardef\slzeta="0110
+\mathchardef\sleta="0111
+\mathchardef\sltheta="0112
+\mathchardef\sliota="0113
+\mathchardef\slkappa="0114
+\mathchardef\sllambda="0115
+\mathchardef\slmu="0116
+\mathchardef\slnu="0117
+\mathchardef\slxi="0118
+\mathchardef\slpi="0119
+\mathchardef\slrho="011A
+\mathchardef\slsigma="011B
+\mathchardef\sltau="011C
+\mathchardef\slupsilon="011D
+\mathchardef\slphi="011E
+\mathchardef\slchi="011F
+\mathchardef\slpsi="0120
+\mathchardef\slomega="0121
+\mathchardef\slvarepsilon="0122
+\mathchardef\slvartheta="0123
+\mathchardef\slvarpi="0124
+\mathchardef\slvarrho="0125
+\mathchardef\slvarsigma="0126
+\mathchardef\slvarphi="0127
+ %
+% upright (roman) greek symbols :
+\mathchardef\rmGamma="0180
+\mathchardef\rmDelta="0181
+\mathchardef\rmTheta="0182
+\mathchardef\rmLambda="0183
+\mathchardef\rmXi="0184
+\mathchardef\rmPi="0185
+\mathchardef\rmSigma="0186
+\mathchardef\rmUpsilon="0187
+\mathchardef\rmPhi="0188
+\mathchardef\rmPsi="0189
+\mathchardef\rmOmega="018A
+\mathchardef\rmalpha="018B
+\mathchardef\rmbeta="018C
+\mathchardef\rmgamma="018D
+\mathchardef\rmdelta="018E
+\mathchardef\rmepsilon="018F
+\mathchardef\rmzeta="0190
+\mathchardef\rmeta="0191
+\mathchardef\rmtheta="0192
+\mathchardef\rmiota="0193
+\mathchardef\rmkappa="0194
+\mathchardef\rmlambda="0195
+\mathchardef\rmmu="0196
+\mathchardef\rmnu="0197
+\mathchardef\rmxi="0198
+\mathchardef\rmpi="0199
+\mathchardef\rmrho="019A
+\mathchardef\rmsigma="019B
+\mathchardef\rmtau="019C
+\mathchardef\rmupsilon="019D
+\mathchardef\rmphi="019E
+\mathchardef\rmchi="019F
+\mathchardef\rmpsi="0120
+\mathchardef\rmomega="01A1
+\mathchardef\rmvarepsilon="01A2
+\mathchardef\rmvartheta="01A3
+\mathchardef\rmvarpi="01A4
+\mathchardef\rmvarrho="01A5
+\mathchardef\rmvarsigma="01A6
+\mathchardef\rmvarphi="01A7
+ %
+ %
+% bold greek symbols :
+\mathchardef\bfGamma="01A8
+\mathchardef\bfDelta="01A9
+\mathchardef\bfTheta="01AA
+\mathchardef\bfLambda="01AB
+\mathchardef\bfXi="01AC
+\mathchardef\bfPi="01AD
+\mathchardef\bfSigma="01AE
+\mathchardef\bfUpsilon="01AF
+\mathchardef\bfPhi="01B0
+\mathchardef\bfPsi="01B1
+\mathchardef\bfOmega="01B2
+\mathchardef\bfalpha="01B3
+\mathchardef\bfbeta="01B4
+\mathchardef\bfgamma="01B5
+\mathchardef\bfdelta="01B6
+\mathchardef\bfepsilon="01B7
+\mathchardef\bfzeta="01B8
+\mathchardef\bfeta="01B9
+\mathchardef\bftheta="01BA
+\mathchardef\bfiota="01BB
+\mathchardef\bfkappa="01BC
+\mathchardef\bflambda="01BD
+\mathchardef\bfmu="01BE
+\mathchardef\bfnu="01BF
+\mathchardef\bfxi="01C0
+\mathchardef\bfpi="01C1
+\mathchardef\bfrho="01C2
+\mathchardef\bfsigma="01C3
+\mathchardef\bftau="01C4
+\mathchardef\bfupsilon="01C5
+\mathchardef\bfphi="01C6
+\mathchardef\bfchi="01C7
+\mathchardef\bfpsi="01C8
+\mathchardef\bfomega="01C9
+\mathchardef\bfvarepsilon="01CA
+\mathchardef\bfvartheta="01CB
+\mathchardef\bfvarpi="01CC
+\mathchardef\bfvarrho="01CD
+\mathchardef\bfvarsigma="01CE
+\mathchardef\bfvarphi="01CF
+ %
+ %
+% bold slanted greek symbols :
+\mathchardef\bfslGamma="01D0
+\mathchardef\bfslDelta="01D1
+\mathchardef\bfslTheta="01D2
+\mathchardef\bfslLambda="01D3
+\mathchardef\bfslXi="01D4
+\mathchardef\bfslPi="01D5
+\mathchardef\bfslSigma="01D6
+\mathchardef\bfslUpsilon="01D7
+\mathchardef\bfslPhi="01D8
+\mathchardef\bfslPsi="01D9
+\mathchardef\bfslOmega="01DA
+\mathchardef\bfslalpha="01DB
+\mathchardef\bfslbeta="01DC
+\mathchardef\bfslgamma="01DD
+\mathchardef\bfsldelta="01DE
+\mathchardef\bfslepsilon="01DF
+\mathchardef\bfslzeta="01E0
+\mathchardef\bfsleta="01E1
+\mathchardef\bfsltheta="01E2
+\mathchardef\bfsliota="01E3
+\mathchardef\bfslkappa="01E4
+\mathchardef\bfsllambda="01E5
+\mathchardef\bfslmu="01E6
+\mathchardef\bfslnu="01E7
+\mathchardef\bfslxi="01E8
+\mathchardef\bfslpi="01E9
+\mathchardef\bfslrho="01EA
+\mathchardef\bfslsigma="01EB
+\mathchardef\bfsltau="01EC
+\mathchardef\bfslupsilon="01ED
+\mathchardef\bfslphi="01EE
+\mathchardef\bfslchi="01EF
+\mathchardef\bfslpsi="01F0
+\mathchardef\bfslomega="01F1
+\mathchardef\bfslvarepsilon="01F2
+\mathchardef\bfslvartheta="01F3
+\mathchardef\bfslvarpi="01F4
+\mathchardef\bfslvarrho="01F5
+\mathchardef\bfslvarsigma="01F6
+\mathchardef\bfslvarphi="01F7
+ %
+\def\c@{\@c@}
+\fi
+
+
+\gdef\accenthyphcodes{}
+
+\endinput