summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/polski/plprefix.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/polski/plprefix.sty')
-rw-r--r--Master/texmf-dist/tex/latex/polski/plprefix.sty110
1 files changed, 110 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/polski/plprefix.sty b/Master/texmf-dist/tex/latex/polski/plprefix.sty
new file mode 100644
index 00000000000..76259a2412f
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/polski/plprefix.sty
@@ -0,0 +1,110 @@
+%%
+%% This is file `plprefix.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% plprefix.dtx (with options: `package')
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% %%
+%% Package plprefix %%
+%% %%
+%% Purpose: to provide various variants of prefix notation for %%
+%% polish diacritical characters. %%
+%% %%
+%% Copyright (c) by Marcin Woli\'nski <2003/01/09> %%
+%% wolinski@gust.org.pl %%
+%% %%
+%% %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% %%
+%% The package may be used freely, but you are not allowed to modify %%
+%% this file. If you wish to make any changes please make a copy %%
+%% under a different name. %%
+%% %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\NeedsTeXFormat{LaTeX2e}[1996/06/01]
+\ProvidesPackage{plprefix}[2003/01/09 v1.02
+ Prefix notation for polish characters]
+\newcommand\ThePrefixChar{1}
+\def\prefixing{\catcode\expandafter`\ThePrefixChar=\active
+ \bgroup \uccode`\~=\expandafter`\ThePrefixChar \uppercase{\egroup
+ \let~\PrefixMacro}%
+ }
+\def\nonprefixing{\catcode\expandafter`\ThePrefixChar=12 }
+\newcommand\SetPrefixChar[1]{%
+ \nonprefixing
+ \bgroup \uccode`2=`#1\uppercase{\egroup
+ \def\ThePrefixChar{2}}%
+ \prefixing
+ }
+\newcommand\PrefixMacro[1]{\ifx#1\PrefixMacro
+ \ifx\protect\@typeset@protect\else\protect\string\fi\ThePrefixChar
+ \else
+ \expandafter\ifx\csname pref@\string#1\endcsname\relax
+ \PrefixingError{#1}%
+ \else \csname pref@\string#1\endcsname \fi\fi
+ }
+\newcommand\PrefixingError[1]{%
+ \ifx\protect\@typeset@protect
+ \PackageError{plprefix}
+ {The prefix-character combination
+ \ThePrefixChar\noexpand#1 is undefined}%
+ {I will ignore the prefix character.}%
+ \else \expandafter\protect\ThePrefixChar \fi
+ \expandafter\expandafter\expandafter#1%
+ }
+\SetPrefixChar\/
+\nonprefixing
+\newcommand\Prefix[2]{\expandafter#1\csname pref@#2\endcsname}
+\def\PlPrIeC{%
+ \ifx\protect\@typeset@protect
+ \expandafter\@firstofone
+ \else
+ \noexpand\PlPrIeC
+ \fi
+}
+\Prefix\def a{\k a} \Prefix\def A{\k A}
+\Prefix\def c{\@acute c} \Prefix\def C{\@acute C}
+\Prefix\def e{\k e} \Prefix\def E{\k E}
+\Prefix\def l{\PlPrIeC{\l}} \Prefix\def L{\PlPrIeC{\L}}
+\Prefix\def n{\@acute n} \Prefix\def N{\@acute N}
+\Prefix\def o{\@acute o} \Prefix\def O{\@acute O}
+\Prefix\def s{\@acute s} \Prefix\def S{\@acute S}
+\Prefix\def x{\@acute z} \Prefix\def X{\@acute Z}
+\Prefix\def z{\.z} \Prefix\def Z{\.Z}
+\Prefix\def ,{\PlPrIeC{\quotedblbase}}
+\Prefix\def '{\PlPrIeC{\textquotedblright}}
+\Prefix\def <{\PlPrIeC{\guillemotleft}}
+\Prefix\def >{\PlPrIeC{\guillemotright}}
+\providecommand*\dywiz{%
+ \kern0sp\discretionary{-}{-}{-}\penalty10000\hskip0sp\relax}
+\Prefix\def -{\PlPrIeC{\dywiz}}
+\newcommand\prefZisZkropka{%
+ \Prefix\let r\relax \Prefix\let R\relax
+ \Prefix\def x{\@acute z}\Prefix\def X{\@acute Z}%
+ \Prefix\def z{\.z}\Prefix\def Z{\.Z}%
+ }
+\newcommand\prefZisZkreska{%
+ \Prefix\let x\relax \Prefix\let X\relax
+ \Prefix\def z{\@acute z}\Prefix\def Z{\@acute Z}%
+ \Prefix\def r{\.z}\Prefix\def R{\.Z}%
+ }
+\DeclareOption{/z}{\SetPrefixChar\/ \prefZisZkropka
+ \nonprefixing}
+\DeclareOption{"z}{\SetPrefixChar\" \prefZisZkropka
+ \nonprefixing}
+\DeclareOption{@z}{\SetPrefixChar\@ \prefZisZkropka
+ \catcode`\@=11}
+\DeclareOption{/r}{\SetPrefixChar\/ \prefZisZkreska
+ \nonprefixing}
+\DeclareOption{"r}{\SetPrefixChar\" \prefZisZkreska
+ \nonprefixing}
+\DeclareOption{@r}{\SetPrefixChar\@ \prefZisZkreska
+ \catcode`\@=11}
+\ProcessOptions
+\AtBeginDocument{\let\@acute\'}
+\endinput
+%%
+%% End of file `plprefix.sty'.