; TeX output 1997.02.18:1024soINff cmbx121aLSupps3ortffforformatsbasedonplainTL32EdXIK`y cmr10The=followingcoGdeduplicatesoremulatespartsofL5ffٓRcmr7A͉TU>'ExX2 b> cmmi10"-"$thatareneededfor Im#R cmss10babGel.Ls1S cmsy9how cmss9coAdei Ls2SߤN cmtt9\ifx\adddialect\@undefinedIWhen'ExXde nitionusesI\InputIfFileExists.Ls4]ڽ\def\loadlocalcfg#1{% Ls5f\openin0#1.cfgLs6f\ifeof0Ls7p2\closein0Ls8f\elseLs9p2\closein0I10p2{\immediate\write16{*************************************}%I11tȽ\immediate\write16{*Localconfigfile#1.cfgused}%I12tȽ\immediate\write16{*}%I13tȽ}I14p2\input#1.cfg\relaxI15f\fiIW*eUUhavetoexecute\@endofldfinthiscaseI16f\@endofldfI17f}XW*e>wanttoaddamessagetothemessageL5ffA͉TU>'ExXr&2.09putsinthe\everyjob Iregister.qThisUUcouldbGedonebythefollowingcoGde:[X\let\orgeveryjob\everyjob[X\def\everyjob#1{%eY\orgeveryjob{#1}%eY\orgeveryjob\expandafter{\the\orgeveryjob\immediate\write16{%x?hyphenationpatternsfor\the\loaded@patternsloaded.}}%eY\let\everyjob\orgeveryjob\let\orgeveryjob\@undefined}IThecoGdeaboverede nesthecontrolsequence\everyjobinordertobeabletoIadd>somethingtothecurrentcontentsoftheregister.ThisisnecessarybGecauseIthehproGcessingofhyphenationpatternshappenslongbeforeL5ffA͉TU>'ExX llstheregister.IThereUUaresomeproblemswiththisapproachthough.X !", cmsy10bWhenRsomeonewantsRtouseseveralhyphenationpatternswithSfhL38I- cmcsc10iTU>'ExXthebabGoveschemewon'twork.8KThereasonisthatSfhL38IiTU>'ExXoverwritesthecontentsbofUUthe\everyjobregisterwithitsownmessage.XbPlainTU>'ExXdoGesnotusethe\everyjobregistersothemessagewouldnotbebdisplayed.IT*o{circumventthisa`dirtytrick'canbGeused.lAsthiscodeisonlyprocessedIwhen)creatinganewformat lethereisonecommandthatissuretobGeused,1*soI\dump.^Thereforetheorginal\dumpissavedin\org@dumpandanewde nitionis Isupplied.I18]ڽ\let\orig@dump=\dump I19]ڽ\def\dump{%IT*o&makesurethatL5ffA͉TU>'ExXƒ2.09executesthe\@begindocumenthookwewouldwantItoalter\begin{document},]butasthisdonetoGooftenalready*,weaddthenewIcoGdeatthefrontof\@preamblecmds.2ButwecanonlydothatafterithasbGeenIde ned,UUsoweaddthispGeiceofcodeto\dump.I20f\ifx\@ztryfc\@undefined I21f\elseI22p2\toks0=\expandafter{\@preamblecmds}I23p2\edef\@preamblecmds{\noexpand\@begindocumenthook\the\toks0}I24p2\def\@begindocumenthook{}I25f\fiIThisanewde nitionstartsbyaddinganinstructiontowriteamessageonthe Iterminalׂandinthetranscript letoinformtheuserofthepreloadedhyphenationIpatterns.I26f\everyjob\expandafter{\the\everyjob% I27p2\immediate\write16{\the\toks8loaded.}}%IThenUUeverythingisrestoredtotheoldsituationandtheformatisdumpGed.I28f\let\dump\orig@dump\let\orig@dump\@undefined\dump}I29]ڽ\expandafter\endinputI30S\fiITherestofthis leisnotproGcessedbyiniTU>'ExXbutduringthenormaldocument Irun.qAUUnumbGerofL5ffA͉TU>'ExXmacro'sthatareneededlateron.I31S\long\def\@firstofone#1{#1}I32S\long\def\@firstoftwo#1#2{#1}I33S\def\@ifstar#1{\@ifnextchar*{\@firstoftwo{#1}}}I34S\def\@star@or@long#1{%I35]ڽ\@ifstarI36]ڽ{\let\l@ngrel@x\relax#1}%I37]ڽ{\let\l@ngrel@x\long#1}}I38S\let\l@ngrel@x\relaxI39S\def\@car#1#2\@nil{#1}I40S\def\@cdr#1#2\@nil{#2}I41S\let\@typeset@protect\relaxI42S\long\def\@gobble#1{}I43S\edef\@backslashchar{\expandafter\@gobble\string\\}I44S\def\strip@prefix#1>{}I45S\def\g@addto@macro#1#2{{%I46f\toks@\expandafter{#1#2}%I47f\xdef#1{\the\toks@}}}I48S\def\@namedef#1{\expandafter\def\csname#1\endcsname}IL5ffA͉TU>'ExX2"r,has?thecommand\@onlypreamblewhichaddscommandstoalistof IcommandsUUthatarenolongerneededafter\begin{document}.I49S\ifx\@preamblecmds\@undefinedI50]ڽ\def\@preamblecmds{}I51S\fiI52S\def\@onlypreamble#1{%I53]ڽ\expandafter\gdef\expandafter\@preamblecmds\expandafter{%2 +soI54f\@preamblecmds\do#1}} I55S\@onlypreamble\@onlypreambleIMimmickL5ffA͉TU>'ExX's\AtBeginDocument;ߦforthistoworktheuserneedstoadd I\begindocumentUUtohis le.I56S\def\begindocument{%I57]ڽ\@begindocumenthookI58]ڽ\global\let\@begindocumenthook\@undefinedI59]ڽ\def\do##1{\global\let##1\@undefined}%I60]ڽ\@preamblecmdsI61]ڽ\global\let\do\noexpandI62]ڽ}I63S\ifx\@begindocumenthook\@undefinedI64]ڽ\def\@begindocumenthook{}I65S\fiI66S\@onlypreamble\@begindocumenthookI67S\def\AtBeginDocument{\g@addto@macro\@begindocumenthook}IW*eaAalsohaveaAtomimickL5ffA͉TU>'ExX's\AtEndOfPackage.OurreplacementmacroisImuchUUsimpler;itstoresitsargumentin\@endofldf.I68S\def\AtEndOfPackage#1{\g@addto@macro\@endofldf{#1}}I69S\@onlypreamble\AtEndOfPackageI70S\def\@endofldf{}I71S\@onlypreamble\@endofldfIL5ffA͉TU>'ExX8needstobGeabletoswitcho writingtoitsauxiliary les;plaindoesn'tIhaveUUthembydefault.I72S\let\if@filesw\iffalseIMimickUUL5ffA͉TU>'ExX'scommandstode necontrolsequences.I73S\def\newcommand{\@star@or@long\new@command} I74S\def\new@command#1{%I75]ڽ\@testopt{\@newcommand#1}0}I76S\def\@newcommand#1[#2]{%I77]ڽ\@ifnextchar[{\@xargdef#1[#2]}%I78D{\@argdef#1[#2]}}I79S\long\def\@argdef#1[#2]#3{%I80]ڽ\@yargdef#1\@ne{#2}{#3}}I81S\long\def\@xargdef#1[#2][#3]#4{%I82]ڽ\expandafter\def\expandafter#1\expandafter{%I83f\expandafter\@protected@testopt\expandafter#1%I84f\csname\string#1\expandafter\endcsname{#3}}%I85]ڽ\expandafter\@yargdef\csname\string#1\endcsnameI86]ڽ\tw@{#2}{#4}}I87S\long\def\@yargdef#1#2#3{%I88]ڽ\@tempcnta#3\relaxI89]ڽ\advance\@tempcnta\@neI90]ڽ\let\@hash@\relaxI91]ڽ\edef\reserved@a{\ifx#2\tw@[\@hash@1]\fi}%I92]ڽ\@tempcntb#2%I93]ڽ\@whilenum\@tempcntb<\@tempcntaI94]ڽ\do{%I95f\edef\reserved@a{\reserved@a\@hash@\the\@tempcntb}%I96f\advance\@tempcntb\@ne}%I97]ڽ\let\@hash@##%3soI98]ڽ\l@ngrel@x\expandafter\def\expandafter#1\reserved@a} I99S\let\providecommand\newcommandE100E101S\def\DeclareRobustCommand{\@star@or@long\declare@robustcommand}E102S\def\declare@robustcommand#1{%E103ap\edef\reserved@a{\string#1}%E104ap\def\reserved@b{#1}%E105ap\edef\reserved@b{\expandafter\strip@prefix\meaning\reserved@b}%E106ap\edef#1{%E107p2\ifx\reserved@a\reserved@bE108~0\noexpand\x@protectE109~0\noexpand#1%E110p2\fiE111p2\noexpand\protectE112p2\expandafter\noexpand\csnameE113~0\expandafter\@gobble\string#1\endcsnameE114ap}%E115ap\expandafter\new@command\csnameE116p2\expandafter\@gobble\string#1\endcsnameE117S}E118S\def\x@protect#1{%E119ap\ifx\protect\@typeset@protect\elseE120p2\@x@protect#1%E121ap\fiE122S}E123S\def\@x@protect#1\fi#2#3{%E124ap\fi\protect#1%E125S}XL5ffA͉TU>'ExXuhasamacrotocheckuwhetheracertainpackqagewasloadedwithspGeci c Ioptions.MsTheYcommandhastwoYextraargumentswhicharecoGdetobeexecutedinIeitherthetrueorfalsecase.YThisisusedtodetectwhetherthedoGcumentneedsIone{oftheaccentstobGeactivqated(activegraveandactiveacute).\F*orplainTU>'ExXweIassumetthattheuserwantstthemtobGeactivebydefault.E'ThereforetheonlythingIweUUdoisexecutethethirdargument(thecoGdeforthetruecase).E126S\def\@ifpackagewith#1#2#3#4{% E127]ڽ#3}XF*orrthefollowingcoGdeweneedtomakesurethatthecommands\newcommandIand`\providecommandexistwithsomesensiblede nition.TheyarenotfullyIequivqalentWRtotheirL5ffA͉TU>'ExX2"2Nversions;QjustenoughtomakethingsworkinIplainUUTU>'ExXenvironments.E128S\ifx\@tempcnta\@undefined E129]ڽ\csnamenewcount\endcsname\@tempcnta\relaxE130S\fiE131S\ifx\@tempcntb\@undefinedE132]ڽ\csnamenewcount\endcsname\@tempcntb\relaxE133S\fiIT*oPpreventwastingtwocountersinL5ffA͉TU>'ExX2.09(bGecausecounterswiththesame InamevarealloGcatedlaterbyit)weresetthecounterthatholdsthenextfreecounterI(\count10).E134S\ifx\bye\@undefined4"TsoE135XdD\advance\count10by-2\relax E136S\fiE137S\ifx\@ifnextchar\@undefinedE138]ڽ\def\@ifnextchar#1#2#3{%E139f\let\reserved@d=#1%E140f\def\reserved@a{#2}\def\reserved@b{#3}%E141f\futurelet\@let@token\@ifnch}E142]ڽ\def\@ifnch{%E143f\ifx\@let@token\@sptokenE144p2\let\reserved@c\@xifnchE145f\elseE146p2\ifx\@let@token\reserved@dE147yw^\let\reserved@c\reserved@aE148p2\elseE149yw^\let\reserved@c\reserved@bE150p2\fiE151f\fiE152f\reserved@c}E153]ڽ\def\:{\let\@sptoken=}\: s,%thismakes\@sptokenaspacetokenE154]ڽ\def\:{\@xifnch}\expandafter\def\:{\futurelet\@let@token\@ifnch}E155S\fiE156S\def\@testopt#1#2{%E157]ڽ\@ifnextchar[{#1}{#1[#2]}}E158S\def\@protected@testopt#1{%%E159]ڽ\ifx\protect\@typeset@protectE160f\expandafter\@testoptE161]ڽ\elseE162f\@x@protect#1%E163]ڽ\fi}E164S\long\def\@whilenum#1\do#2{\ifnum#1\relax#2\relax\@iwhilenum{#1\relaxE165kJ#2\relax}\fi}E166S\long\def\@iwhilenum#1{\ifnum#1\expandafter\@iwhilenumE167~0\else\expandafter\@gobble\fi{#1}}ICoGdeUUfromltoutenc.dtx,adaptedforuseintheplainTU>'ExXenvironment. E168S\def\DeclareTextCommand{%E169ap\@dec@text@cmd\providecommandE170S}E171S\def\ProvideTextCommand{%E172ap\@dec@text@cmd\providecommandE173S}E174S\def\DeclareTextSymbol#1#2#3{%E175ap\@dec@text@cmd\chardef#1{#2}#3\relaxE176S}E177S\def\@dec@text@cmd#1#2#3{%E178ap\expandafter\def\expandafter#2%E179p2\expandafter{%E180~0\csname#3-cmd\expandafter\endcsnameE181~0\expandafter#2%E182~0\csname#3\string#2\endcsnameE183p2}%E184S%,\let\@ifdefinable\@rc@ifdefinableE185ap\expandafter#1\csname#3\string#2\endcsnameE186S}E187S\def\@current@cmd#1{%5-soE188]ڽ\ifx\protect\@typeset@protect\else E189p2\noexpand#1\expandafter\@gobbleE190]ڽ\fiE191S}E192S\def\@changed@cmd#1#2{%E193ap\ifx\protect\@typeset@protectE194p2\expandafter\ifx\csname\cf@encoding\string#1\endcsname\relaxE195~0\expandafter\ifx\csname?\string#1\endcsname\relaxE196]\expandafter\def\csname?\string#1\endcsname{%E197x\@changed@x@err{#1}%E198]}%E199~0\fiE200~0\global\expandafter\letE201 \csname\cf@encoding\string#1\expandafter\endcsnameE202 \csname?\string#1\endcsnameE203p2\fiE204p2\csname\cf@encoding\string#1%E205yw^\expandafter\endcsnameE206ap\elseE207p2\noexpand#1%E208ap\fiE209S}E210S\def\@changed@x@err#1{%E211f\errhelp{Yourcommandwillbeignored,typetoproceed}%E212f\errmessage{Command\protect#1undefinedinencoding\cf@encoding}}E213S\def\DeclareTextCommandDefault#1{%E214ap\DeclareTextCommand#1?%E215S}E216S\def\ProvideTextCommandDefault#1{%E217ap\ProvideTextCommand#1?%E218S}E219S\expandafter\let\csnameOT1-cmd\endcsname\@current@cmdE220S\expandafter\let\csname?-cmd\endcsname\@changed@cmdE221S\def\DeclareTextAccent#1#2#3{%E222]ڽ\DeclareTextCommand#1{#2}[1]{\accent#3##1}E223S}E224S\def\DeclareTextCompositeCommand#1#2#3#4{%E225ap\expandafter\let\expandafter\reserved@a\csname#2\string#1\endcsnameE226ap\edef\reserved@b{\string##1}%E227ap\edef\reserved@c{%E228kJ\expandafter\@strip@args\meaning\reserved@a:-\@strip@args}%E229ap\ifx\reserved@b\reserved@cE230p2\expandafter\expandafter\expandafter\ifxE231~0\expandafter\@car\reserved@a\relax\relax\@nilE232~0\@text@compositeE233p2\elseE234~0\edef\reserved@b##1{%E235]\def\expandafter\noexpandE236x\csname#2\string#1\endcsname####1{%E237x\noexpand\@text@compositeE238:\expandafter\noexpand\csname#2\string#1\endcsnameE239:####1\noexpand\@empty\noexpand\@text@compositeE240:{##1}%E241]}%66soE242~0}% E243~0\expandafter\reserved@b\expandafter{\reserved@a{##1}}%E244p2\fiE245p2\expandafter\def\csname\expandafter\string\csnameE246~0#2\endcsname\string#1-\string#3\endcsname{#4}E247ap\elseE248kJ\errhelp{Yourcommandwillbeignored,typetoproceed}%E249kJ\errmessage{\string\DeclareTextCompositeCommand\spaceusedonE250~0inappropriatecommand\protect#1}E251ap\fiE252S}E253S\def\@text@composite#1#2#3\@text@composite{%E254ap\expandafter\@text@composite@xE255p2\csname\string#1-\string#2\endcsnameE256S}E257S\def\@text@composite@x#1#2{%E258ap\ifx#1\relaxE259p2#2%E260ap\elseE261p2#1%E262ap\fiE263S}E264S%E265S\def\@strip@args#1:#2-#3\@strip@args{#2}E266S\def\DeclareTextComposite#1#2#3#4{%E267ap\def\reserved@a{\DeclareTextCompositeCommand#1{#2}{#3}}%E268ap\bgroupE269p2\lccode`\@=#4%E270p2\lowercase{%E271ap\egroupE272p2\reserved@a@%E273ap}%E274S}E275S%E276S\def\UseTextSymbol#1#2{%E277S%,\let\@curr@enc\cf@encodingE278S%,\@use@text@encoding{#1}%E279ap#2%E280S%,\@use@text@encoding\@curr@encE281S}E282S\def\UseTextAccent#1#2#3{%E283S%,\let\@curr@enc\cf@encodingE284S%,\@use@text@encoding{#1}%E285S%,#2{\@use@text@encoding\@curr@enc\selectfont#3}%E286S%,\@use@text@encoding\@curr@encE287S}E288S\def\@use@text@encoding#1{%E289S%,\edef\f@encoding{#1}%E290S%,\xdef\font@name{%E291S%Y\csname\curr@fontshape/\f@size\endcsnameE292S%,}%E293S%,\pickup@fontE294S%,\font@nameE295S%,\@@enc@update7A soE296S} E297S\def\DeclareTextSymbolDefault#1#2{%E298ap\DeclareTextCommandDefault#1{\UseTextSymbol{#2}#1}%E299S}E300S\def\DeclareTextAccentDefault#1#2{%E301ap\DeclareTextCommandDefault#1{\UseTextAccent{#2}#1}%E302S}E303S\def\cf@encoding{OT1}ICurrentlyweonlyusetheL5ffA͉TU>'ExX2",qpmethoGdforaccentsforthosethatareknown ItoUUbGemadeactivein': cmti10somelanguagede nition le.E304S\DeclareTextAccent{\"}{OT1}{127}E305S\DeclareTextAccent{\'}{OT1}{19}E306S\DeclareTextAccent{\^}{OT1}{94}E307S\DeclareTextAccent{\`}{OT1}{18}E308S\DeclareTextAccent{\~}{OT1}{126}IThe followingtwocontrolsequencesareusedinbabel.defbutarenotde ned IforUUplainTU>'ExX.E309S\DeclareTextSymbol{\textquotedblright}{OT1}{`\"}E310S\DeclareTextSymbol{\textquoteright}{OT1}{`\'}E311S\DeclareTextSymbol{\i}{OT1}{16}E312S\DeclareTextSymbol{\ss}{OT1}{25}IF*or#acoupleoflanguagesweneedtheL5ffA͉TU>'ExX-controlsequence\scriptsizetobGe Iavqailable.8TBecauseplainTU>'ExXdoGesn'thavesuchaso sticatedfontmechanismasIL5ffA͉TU>'ExXUUhas,wejust\letitto\sevenrm.E313S\ifx\scriptsize\@undefined E314]ڽ\let\scriptsize\sevenrmE315S\fiE316Sh5" cmmi9=coAdei8I;': cmti10- cmcsc10 cmmi10K`y cmr10ٓRcmr7P