; TeX output 1997.02.18:1027soINff cmbx121aLTheffPolishlanguageIK`y cmr10The le cmmi10<<).}pe">_forUUF*renchrightdoublequotes(similarto>>).T*ableUU1:qTheextrade nitionsmadebyxpolish.sty9XThemacro\LdfInittakescareofpreventingthatthis leisloadedmorethanIonce,UUcheckingthecategorycoGdeofthe@sign,etc.Ls1S cmsy9how cmss9coAdei Ls2SߤN cmtt9\LdfInit{polish}\captionspolishXWhenHthis leisreadasanoption,i.e.Dbythe\usepackagecommand,polishIcouldz"bGean`unknown'languageinwhichcasewehavetomakeitknown./SoweIcheckfortheexistenceof\l@polishtoseewhetherwehavetodosomethinghere.Ls3S\ifx\l@polish\@undefinedLs4]\@nopatterns{Polish}Ls5]\adddialect\l@polish0\fiXThenextstepconsistsofde ningcommandstoswitchto(andfrom)thePolishIlanguage.f\captionspolishIThemacro\captionspolishde nesallstringsusedinthefourstandarddoGcu-ImentclassesUUprovidedwithL5ffA͉TU>'ExX.I ffr J= "5-:Aacmr61L|{Ycmr8The ledescrib'ExXUUaremoGdi ed.qThesameisdoneforplainTU>'EX'sfontchangingcommands.XWhenWF\selectfontisunde nedthecurrentformatissppGosedtobeeitherIplainUU(based)orL5ffA͉TU>'ExX82.09. EэI91S\ifx\selectfont\@undefined I92]\ifx\prm\@undefined\addto\rm{\textpl}\else\addto\prm{\textpl}\fiI93]\ifx\pit\@undefined\addto\it{\textpl}\else\addto\pit{\textpl}\fiI94]\ifx\pbf\@undefined\addto\bf{\textpl}\else\addto\pbf{\textpl}\fiI95]\ifx\psl\@undefined\addto\sl{\textpl}\else\addto\psl{\textpl}\fiI96]\ifx\psf\@undefinedY"\else\addto\psf{\textpl}\fiI97]\ifx\psc\@undefinedY"\else\addto\psc{\textpl}\fiI98]\ifx\ptt\@undefined\addto\tt{\telepl}\else\addto\ptt{\telepl}\fiI99S\elseEэIWhenUU\selectfontexistsweassumeL5ffA͉TU>'ExX2"(.E100]\expandafter\addto\csnameselectfont\endcsname{%E101f\csname\f@encoding@pl\endcsname}E102S\fiEэICurrentlywesuppGorttheOT1andT1encodings.?F*orT1wedon'thavetomakea Idi erencetbGetweentypGewriterfontsandotherfonts,theyallhavethesameglyphs.E103S\expandafter\let\csnameT1@pl\endcsname\textplIF*or|OT1weneedtocheckthecurrentfontfamily*,storedin\f@family.&=Un- Ifortunatelyzweneedahackas\ttdefaultisde nedasa\longmacro,LwhileI\f@familyUUisnot.E104S\expandafter\def\csnameOT1@pl\endcsname{% E105]\long\edef\curr@family{\f@family}%E106]\ifx\curr@family\ttdefaultE107f\teleplE108]\elseE109f\textplE110]\fi}4%Lso1\dqIW*eTKsavetheoriginaldoublequotecharacterin\dqtokeepitavqailable,Tthemath IaccentUU\"cannowbGetypGedas". lE111S\begingroup\catcode`\"12 E112S\def\x{\endgroupE113]\def\dq{"}}E114S\xEXNowUUwecande nethedoublequotemacrosfordiacritics,E115S\declare@shorthand{polish}{"a}{\textormath{\aob}{\ddota}}E116S\declare@shorthand{polish}{"A}{\textormath{\Aob}{\ddotA}}E117S\declare@shorthand{polish}{"c}{\textormath{\'c}{\acutec}}E118S\declare@shorthand{polish}{"C}{\textormath{\'C}{\acuteC}}E119S\declare@shorthand{polish}{"e}{\textormath{\eob}{\ddote}}E120S\declare@shorthand{polish}{"E}{\textormath{\Eob}{\ddotE}}E121S\declare@shorthand{polish}{"l}{\textormath{\lpb}{\ddotl}}E122S\declare@shorthand{polish}{"L}{\textormath{\Lpb}{\ddotL}}E123S\declare@shorthand{polish}{"n}{\textormath{\'n}{\acuten}}E124S\declare@shorthand{polish}{"N}{\textormath{\'N}{\acuteN}}E125S\declare@shorthand{polish}{"o}{\textormath{\'o}{\acuteo}}E126S\declare@shorthand{polish}{"O}{\textormath{\'O}{\acuteO}}E127S\declare@shorthand{polish}{"r}{\textormath{\zkb}{\ddotr}}E128S\declare@shorthand{polish}{"R}{\textormath{\Zkb}{\ddotR}}E129S\declare@shorthand{polish}{"s}{\textormath{\'s}{\acutes}}E130S\declare@shorthand{polish}{"S}{\textormath{\'S}{\acuteS}}E131S\declare@shorthand{polish}{"z}{\textormath{\'z}{\acutez}}E132S\declare@shorthand{polish}{"Z}{\textormath{\'Z}{\acuteZ}}lXThen1wede neaccesstotwoformsofquotationmarks,8similartothegerman IandUUfrenchquotationmarks.E133S\declare@shorthand{polish}{"`}{%E134]\textormath{\quotedblbase{}}{\mbox{\quotedblbase}}}E135S\declare@shorthand{polish}{"'}{%E136]\textormath{\textquotedblleft{}}{\mbox{\textquotedblleft}}}E137S\declare@shorthand{polish}{"<}{%E138]\textormath{\guillemotleft{}}{\mbox{\guillemotleft}}}E139S\declare@shorthand{polish}{">}{%E140]\textormath{\guillemotright{}}{\mbox{\guillemotright}}}lIthenHwede netwoshorthandstobGeabletospecifyhyphenationbreakpointsthat IbGehavewUUalittledi erentfrom\-.E141S\declare@shorthand{polish}{"-}{\allowhyphens-\allowhyphens}E142S\declare@shorthand{polish}{""}{\hskip\z@skip}lIAndUUwewanttohaveashorthandfordisablingaligature.E143S\declare@shorthand{polish}{"|}{%E144]\textormath{\discretionary{-}{}{\kern.03em}}{}}E"\mdqon 3P\mdqoffIAll#that'slefttodonowistode neacoupleofcommandsforreasonsofcompat- IibilityUUwithpolish.tex.E145S\def\mdqon{\bbl@activate{"}}E146S\def\mdqoff{\bbl@deactivate{"}}EXThemacro\ldf@finishtakescareofloGokingforacon guration le,setting IthefmainlanguagetobGeswitchedonat\begin{document}andresettingtheIcategoryUUcoGdeofr@toitsoriginalvqalue.51ĠsoE147S\ldf@finish{polish} E148Sh5" cmmi9=coAdei6?; ow cmss9 cmsy95" cmmi9ߤN cmtt9Aacmr6|{Ycmr8 cmmi10K`y cmr10ٓRcmr7@_