first attempt at polski (14aug07)

git-svn-id: svn://tug.org/texlive/trunk@4741 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 206 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/polski/ot1patch.sty b/Master/texmf-dist/tex/latex/polski/ot1patch.sty
new file mode 100644
index 00000000000..0296bfbfd6a
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/polski/ot1patch.sty
@@ -0,0 +1,96 @@
+%%
+%% This is file `ot1patch.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% ot1patch.dtx  (with options: `package')
+%% 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%                                                                      %%
+%%                        Package ot1patch                              %%
+%%                                                                      %%
+%% Purpose: to provide best possible substitutes for polish national    %%
+%%          characters using OT1 Computer Modern Roman fonts            %%
+%%                                                                      %%
+%%                                                                      %%
+%% Copyright (c) by Marcin Woli\'nski                      <1997/06/18> %%
+%%                  wolinski@mimuw.edu.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.                                              %%
+%%                                                                      %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  \def\fileversion{v 0.3}
+  \def\docdate{1997/05/16}
+  \def\filedate{1997/10/08}
+\NeedsTeXFormat{LaTeX2e}[1994/12/01]
+\ProvidesPackage{ot1patch}[\filedate\space\fileversion\space
+                     A patch for some OT1 characters (MW)]
+\dimendef\pl@left=0 \dimendef\pl@down=1
+\dimendef\pl@right=2 \dimendef\pl@temp=3
+\def\@sob#1#2#3#4#5{%
+  \setbox0\hbox{#1}\setbox1\hbox{$_\mathchar'454$}\setbox2\hbox{p}%
+  \pl@right=#2\wd0 \advance\pl@right by-#3\wd1
+  \pl@down=#5\ht1 \advance\pl@down by-#4\ht0
+  \pl@left=\pl@right \advance\pl@left by\wd1
+  \pl@temp=-\pl@down \advance\pl@temp by\dp2 \dp1=\pl@temp
+  \leavevmode
+  \kern\pl@right\lower\pl@down\box1\kern-\pl@left #1}
+\def\@iIuUogonek#1{%
+        \ifx i#1\@sob i{.66}{.20}{0}{.90}\else
+        \ifx I#1\@sob I{.80}{.50}{0}{.90}\else
+        \ifx u#1\@sob u{.66}{.20}{0}{.90}\else
+        \ifx U#1\@sob U{.60}{.35}{0}{.90}\else
+        \@sob {#1}{.50}{.35}{0}{.90}\fi
+        \fi \fi \fi
+        }
+\DeclareTextCommandDefault\k[1]{%
+        \ifx a#1\@sob a{.66}{.20}{0}{.90}\else
+        \ifx A#1\@sob A{.80}{.50}{0}{.90}\else
+        \ifx e#1\@sob e{.50}{.35}{0}{.93}\else
+        \ifx E#1\@sob E{.60}{.35}{0}{.90}\else
+        \@iIuUogonek{#1}%
+        \fi \fi \fi \fi
+   }
+\def\if@ttfont#1#2{\setbox0=\hbox{\char'40}\ifdim\dp0>0pt#1\else#2\fi}
+\def\@spb#1#2#3#4#5{%
+  \setbox0\hbox{#1}\setbox2\hbox{\char'023}%
+  \pl@right=#2\wd0 \advance\pl@right by-#3\wd2
+  \pl@down=#5\ht2 \advance\pl@down by-#4\ht0
+  \pl@left=\pl@right \advance\pl@left by\wd2
+  \ht2=\pl@down \dp2=-\pl@down
+  \leavevmode
+  \kern\pl@right\lower\pl@down\box2\kern-\pl@left #1}
+\DeclareTextCommand\l{OT1}{%
+  \if@ttfont{\@spb l{.45}{.5}{.4}{.8}}%
+    {{\char32l}}}
+\DeclareTextCommand\L{OT1}{%
+  \if@ttfont{\@spb L{.23}{.5}{.4}{.8}}%
+    {\leavevmode\setbox0\hbox{L}\hbox to\wd0{\hss\char32L}}}
+\def\@skb#1#2#3#4#5{%
+  \setbox0\hbox{#1}\setbox1\hbox{\char'056}%
+  \pl@right=#2\wd0 \advance\pl@right by-#3\wd1
+  \pl@down=#5\ht1 \advance\pl@down by-#4\ht0
+  \pl@left=\pl@right \advance\pl@left by\wd1
+  \leavevmode
+  \kern\pl@right\lower\pl@down\box1\kern-\pl@left #1}
+\DeclareTextCompositeCommand\.{OT1}z{%
+  \if@ttfont{\@skb z{.5}{.5}{1.2}{0}}%
+    {{\accent'137z}}}
+\DeclareTextCompositeCommand\.{OT1}Z{%
+  \if@ttfont{\@skb Z{.5}{.5}{1.1}{0}}%
+    {{\accent'137Z}}}
+\DeclareTextCommandDefault\guillemotleft
+    {\leavevmode\raise.3ex
+        \hbox{$\scriptscriptstyle\langle\!\langle$}}
+\DeclareTextCommandDefault\guillemotright
+    {\leavevmode\raise.3ex
+        \hbox{$\scriptscriptstyle\rangle\!\rangle$}}
+\endinput
+%%
+%% End of file `ot1patch.sty'.
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'.