babel-$ll (for 3.9a)

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

3 files changed, 409 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/generic/babel-piedmontese/piedmontese.pdf b/Master/texmf-dist/doc/generic/babel-piedmontese/piedmontese.pdf
new file mode 100644
index 00000000000..8e5595672db
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/babel-piedmontese/piedmontese.pdf
diff --git a/Master/texmf-dist/source/generic/babel-piedmontese/piedmontese.dtx b/Master/texmf-dist/source/generic/babel-piedmontese/piedmontese.dtx
new file mode 100644
index 00000000000..781004cd998
--- /dev/null
+++ b/Master/texmf-dist/source/generic/babel-piedmontese/piedmontese.dtx
@@ -0,0 +1,294 @@
+% \iffalse
+% !TEX encoding = UTF-8 Unicode
+%
+% file piedmontese.dtx file. By running this file through (pdf)LaTeX
+% you get the documentation concerning the babel option for the language
+% piedmontese. The extraction of the code apparently is done simultaneously
+% with the production of the documentation.
+%
+%<*internal>
+\begingroup
+\input docstrip.tex
+\keepsilent
+\preamble
+  ______________________________________________________
+  The piedmontese file for babel
+  Copyright (C) 2013 Claudio Beccari 
+  All rights reserved
+
+  License information appended
+
+\endpreamble
+\postamble
+Copyright 2013 Claudio Beccari
+
+Distributable under the LaTeX Project Public License,
+version 1.3c or higher (your choice). The latest version of
+this license is at: http://www.latex-project.org/lppl.txt
+
+This work is "author-maintained"
+
+This work consists of this file piedmontese.dtx,
+and the derived files piedmontese.ldf and piedmontese.pdf.
+
+\endpostamble
+\askforoverwritefalse
+\generate{\file{piedmontese.ldf}{\from{piedmontese.dtx}{code}}}
+%
+\def\tmpa{plain}
+\ifx\tmpa\fmtname\endgroup\expandafter\bye\fi
+\endgroup
+%</internal>
+% \fi
+% \iffalse
+% Tell the \LaTeX\ system who we are and write en entry
+% in the transcript.
+%<*dtx>
+\ProvidesFile{piedmontese.dtx}
+%</dtx>
+%<code>\ProvidesLanguage{piedmontese}
+%<code>\ProvidesFile{piedmontese}    
+     [2013/02/12 v.1.0 Piedmontese support for the babel system]
+%<*filedriver>
+\documentclass{ltxdoc}
+\newcommand*{\TeXhax}{\TeX hax}
+\newcommand*{\babel}{\textsf{babel}}
+\newcommand*{\langvar}{$\langle \mathit lang \rangle$}
+\newcommand*{\note}[1]{}
+\newcommand*{\Lopt}[1]{\textsf{#1}}
+\newcommand*{\file}[1]{\texttt{#1}}
+\begin{document}
+ \DocInput{piedmontese.dtx}
+\end{document}
+%</filedriver>
+%\fi
+% \GetFileInfo{piedmontese.dtx}
+%
+% \section{The Piedmontese language}
+%
+%    The file \file{\filename}\footnote{The file described in this
+%    section has version number \fileversion\ and was last revised on
+%    \filedate.} defines all the language definition macros for the
+%    Piedmontese language\footnote{Language ISO 639 coded with letter identification \texttt{pms}. This file was created by Claudio Beccari; see the source file for more information.}.
+%
+% \StopEventually{}
+% 
+%    The macro |\LdfInit| takes care of preventing that this file is
+%    loaded more than once, checking the category code of the
+%    \texttt{@} sign, etc. |\CurrentOption| is actually the name of 
+%    language that was specified as an option in the call to \babel.
+% \iffalse
+%<*code>
+% \fi
+%    \begin{macrocode}
+\LdfInit{\CurrentOption}{captions\CurrentOption}
+%    \end{macrocode}
+%
+%    When this file is read as an option to the |\usepackage|
+%    command that loads |babel|, \texttt{piedmontese} could be an
+%    `unknown' language, or better, a language who's patterns have
+%    not been loaded into the format file; in this case we have to
+%    make it known. So we check for the existence of |\l@piedmontese|
+%    to see whether we have to do something here. If the Piedmontese
+%    patterns have not (yet) been loaded in the format file, we prefer
+%    to declare |piedmontese| a dialect of |italian| rather than
+%    a dialect of |english|, although we resort to the latter language
+%    if also the Italian patterns have not been loaded into the format
+%    file: this unfortunately happens when a basic \TeX\ system
+%    installation is being used.
+%
+%    \begin{macrocode}
+\LdfInit\CurrentOption{captions\CurrentOption}
+\ifx\l@piedmontese\@undefined
+    \@nopatterns{piedmontese}
+    \ifx\l@italian\@undefined
+        \@nopatterns{italian}
+        \adddialect\l@piedmontese\l@english
+    \else
+        \adddialect\l@piedmontese\l@italian
+    \fi
+\fi 
+%    \end{macrocode}
+% \begin{macro}{\captionspiedmontese}
+%    The macro |\captionspiedmontese| defines all strings used in the
+%    four standard documentclasses provided with \LaTeX.
+%    \begin{macrocode}
+\@namedef{captions\CurrentOption}{%
+    \def\prefacename{Prefassion}%
+    \def\refname{Riferiment}%
+    \def\abstractname{Somari}%
+    \def\bibname{Bibliograf\`ia}%
+    \def\chaptername{Cap\`itol}%
+    \def\appendixname{Gionta}%
+    \def\contentsname{T\`aula}%
+    \def\listfigurename{Lista dle figure}%
+    \def\listtablename{Lista dle tabele}%
+    \def\indexname{T\`aula anal\`itica}%
+    \def\figurename{Figura}%
+    \def\tablename{Tabela}%
+    \def\partname{Part}%
+    \def\enclname{Gionta/e}%
+    \def\ccname{Con c\`opia a}%
+    \def\headtoname{P\"er}%
+    \def\pagename{P\`agina}%
+    \def\seename{v\"ed}%
+    \def\alsoname{v\"ed anche}%
+    \def\proofname{Dimostrassion}%
+    \def\glossaryname{Glossari}%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\datepiedmontese}
+%    The macro |\datepiedmontese| redefines the command |\today| to
+%    produce Piedmontese dates. The proposition corresponding to
+%    `of' has three spellings in Piedmontese, one general (\"ed),  one to
+%    be used in front of words starting with a group of consonants (d\"e),
+%    and a third one, that derives from the latter by vocalic elision (d')
+%    to be used in front of words starting with a vowel.
+%    \begin{macrocode}
+\@namedef{date\CurrentOption}{%
+    \def\today{\number\day\space \space\ifcase\month\or
+      \"ed gen\'e\or \"ed fevr\'e\or \"ed mars\or d'avril\or 
+      \"ed maj\or \"ed giugn\or \"ed luj\or d'agost\or 
+      d\"e st\`ember\or d'ot\'ober\or \"ed nov\`ember\or 
+      d\"e dz\`ember\fi\space dal\space\number\year}}
+%    \end{macrocode}
+% \end{macro}
+%
+%  \begin{macro}{\piedmontesehyphenmins}
+%    This macro is used to store the correct values of the hyphenation
+%    parameters |\lefthyphenmin| and |\righthyphenmin|.
+%    \begin{macrocode}
+\providehyphenmins{\CurrentOption}{\tw@\tw@}
+%    \end{macrocode}
+%  \end{macro}
+%
+% \begin{macro}{\extraspiedmontese}
+% \begin{macro}{\noextraspiedmontese}
+%    The next step consists of defining commands to switch to (and
+%    from) the Piedmontese language.
+%
+%    The macro |\extraspiedmontese| will perform all the extra
+%    definitions needed for the Piedmontese language. The macro
+%    |\noextraspiedmontese| is used to cancel the actions of
+%    |\extraspiedmontese|. In particular we set pretty high
+%    default values for widow and club lines and very high
+%    demerits to avoid that the last line starts with the
+%    second half of a hyphenated word. We also assign a non zero
+%    value |\lccode| to the apostrophe that in Piedmontese is being
+%    used for marking a vocalic elision and for apocope; by giving it a non 
+%    zero value, the hyphenation algorithm treats the phrase formed
+%    by the article or articulated preposition and the following
+%    term as a single word and the patterns for Piedmontese take care
+%    of avoiding line breaks right after the apostrophe.
+%
+%    \begin{macrocode}
+\expandafter\addto\csname extras\CurrentOption\endcsname{%
+  \babel@savevariable\clubpenalty
+  \babel@savevariable\widowpenalty
+  \babel@savevariable\@clubpenalty
+  \clubpenalty3000\widowpenalty3000\@clubpenalty\clubpenalty}%
+\expandafter\addto\csname extras\CurrentOption\endcsname{%
+  \babel@savevariable\finalhyphendemerits
+  \finalhyphendemerits50000000}%
+\expandafter\addto\csname extras\CurrentOption\endcsname{%
+  \lccode`'=`'}%
+\expandafter\addto\csname noextras\CurrentOption\endcsname{%
+  \lccode`'=0}%
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% The double straight quote |"| is made active for the current language.
+% Its purpose is primarily to produce a diacritic hyphen; meanwhile 
+% it is convenient to let it perform some other little tasks, such as
+% to insert an etymologic line break, to simplify the |\slash| command, 
+% and to ease the introduction of the double raised open quotes, that are
+% cumbersome to insert with the Italian keyboard.
+%
+% The main activation of the |"| sign is done through the babel command
+% |\declare@shorthand| that checks if the |"| has been used in math or
+% in text mode; if in text mode, a service macro |\pms@next| is defined
+% that upon execution lets a future token be aliased by the implicit token
+% c.s. |\pms@temp|, while the actual work is demanded to |\pms@cwm|.
+%    \begin{macrocode}
+\initiate@active@char{"}%
+\expandafter\addto\csname extras\CurrentOption\endcsname{%
+\bbl@activate{"}\languageshorthands{piedmontese}}%
+\declare@shorthand{piedmontese}{"}{%
+\ifmmode
+    \def\pms@next{''}%
+\else
+    \def\pms@next{\futurelet\pms@temp\pms@cwm}%
+\fi
+\pms@next
+}%
+%    \end{macrocode}
+%
+% After defining another service macro |\pms@@cwm| for introducing a
+% discretionary break that may be inserted in the middle of a word,
+% allowing another break point, but allowing hyphenation in both letter
+% strings that sit at either side of this break point. The the |\pms@cwm|
+% macro is defined to perform the necessary actions depending on the
+% nature of the token memorized into the temporary c.s. |\pms@temp|.
+% The |\@gobble| macro must be repeated at each test, otherwise it
+% gobbles the |\fi| of the outer test. An |\expandafter| construct might
+% reduce this repetition.
+%    \begin{macrocode}
+\DeclareRobustCommand*{\pms@cwm}{\let\pms@@next\relax
+\ifcat\noexpand\pms@temp a%
+    \def\pms@@next{\pms@@cwm}%
+\else
+    \ifx\pms@temp/%
+        \def\pms@@next{\bbl@allowhyphens/\bbl@allowhyphens\@gobble}%
+    \else
+        \ifx\pms@temp-%
+           \def\pms@@next{\bbl@allowhyphens-\bbl@allowhyphens\@gobble}%
+        \else
+            \ifx\pms@temp"%
+                \def\pms@@next{``\expandafter\@gobble\string}%
+            \fi
+        \fi
+    \fi
+\fi
+\pms@@next}%
+%    \end{macrocode}
+% \begin{macro}{\noextraspiedmontese}
+% This done, we are ready to prepare the switch back to another language"
+%    \begin{macrocode}
+\expandafter\addto\csname noextras\CurrentOption\endcsname{%
+\bbl@deactivate{"}}
+%    \end{macrocode}
+% \end{macro}
+%
+%    The macro |\ldf@finish| takes care of looking for a
+%    configuration file, setting the main language to be switched on
+%    at |\begin{document}| and resetting the category code of
+%    \texttt{@} to its original value.
+%    \begin{macrocode}
+\ldf@finish\CurrentOption
+%    \end{macrocode}
+% \iffalse
+%</code>
+% \fi
+% \CheckSum{226}
+% \Finale
+%\endinput
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Master/texmf-dist/tex/generic/babel-piedmontese/piedmontese.ldf b/Master/texmf-dist/tex/generic/babel-piedmontese/piedmontese.ldf
new file mode 100644
index 00000000000..c2b541746d9
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/babel-piedmontese/piedmontese.ldf
@@ -0,0 +1,115 @@
+%%
+%% This is file `piedmontese.ldf',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% piedmontese.dtx  (with options: `code')
+%%   ______________________________________________________
+%%   The piedmontese file for babel
+%%   Copyright (C) 2013 Claudio Beccari
+%%   All rights reserved
+%% 
+%%   License information appended
+%% 
+\ProvidesLanguage{piedmontese}
+\ProvidesFile{piedmontese}
+     [2013/02/12 v.1.0 Piedmontese support for the babel system]
+\LdfInit{\CurrentOption}{captions\CurrentOption}
+\LdfInit\CurrentOption{captions\CurrentOption}
+\ifx\l@piedmontese\@undefined
+    \@nopatterns{piedmontese}
+    \ifx\l@italian\@undefined
+        \@nopatterns{italian}
+        \adddialect\l@piedmontese\l@english
+    \else
+        \adddialect\l@piedmontese\l@italian
+    \fi
+\fi
+\@namedef{captions\CurrentOption}{%
+    \def\prefacename{Prefassion}%
+    \def\refname{Riferiment}%
+    \def\abstractname{Somari}%
+    \def\bibname{Bibliograf\`ia}%
+    \def\chaptername{Cap\`itol}%
+    \def\appendixname{Gionta}%
+    \def\contentsname{T\`aula}%
+    \def\listfigurename{Lista dle figure}%
+    \def\listtablename{Lista dle tabele}%
+    \def\indexname{T\`aula anal\`itica}%
+    \def\figurename{Figura}%
+    \def\tablename{Tabela}%
+    \def\partname{Part}%
+    \def\enclname{Gionta/e}%
+    \def\ccname{Con c\`opia a}%
+    \def\headtoname{P\"er}%
+    \def\pagename{P\`agina}%
+    \def\seename{v\"ed}%
+    \def\alsoname{v\"ed anche}%
+    \def\proofname{Dimostrassion}%
+    \def\glossaryname{Glossari}%
+}
+\@namedef{date\CurrentOption}{%
+    \def\today{\number\day\space \space\ifcase\month\or
+      \"ed gen\'e\or \"ed fevr\'e\or \"ed mars\or d'avril\or
+      \"ed maj\or \"ed giugn\or \"ed luj\or d'agost\or
+      d\"e st\`ember\or d'ot\'ober\or \"ed nov\`ember\or
+      d\"e dz\`ember\fi\space dal\space\number\year}}
+\providehyphenmins{\CurrentOption}{\tw@\tw@}
+\expandafter\addto\csname extras\CurrentOption\endcsname{%
+  \babel@savevariable\clubpenalty
+  \babel@savevariable\widowpenalty
+  \babel@savevariable\@clubpenalty
+  \clubpenalty3000\widowpenalty3000\@clubpenalty\clubpenalty}%
+\expandafter\addto\csname extras\CurrentOption\endcsname{%
+  \babel@savevariable\finalhyphendemerits
+  \finalhyphendemerits50000000}%
+\expandafter\addto\csname extras\CurrentOption\endcsname{%
+  \lccode`'=`'}%
+\expandafter\addto\csname noextras\CurrentOption\endcsname{%
+  \lccode`'=0}%
+\initiate@active@char{"}%
+\expandafter\addto\csname extras\CurrentOption\endcsname{%
+\bbl@activate{"}\languageshorthands{piedmontese}}%
+\declare@shorthand{piedmontese}{"}{%
+\ifmmode
+    \def\pms@next{''}%
+\else
+    \def\pms@next{\futurelet\pms@temp\pms@cwm}%
+\fi
+\pms@next
+}%
+\DeclareRobustCommand*{\pms@cwm}{\let\pms@@next\relax
+\ifcat\noexpand\pms@temp a%
+    \def\pms@@next{\pms@@cwm}%
+\else
+    \ifx\pms@temp/%
+        \def\pms@@next{\bbl@allowhyphens/\bbl@allowhyphens\@gobble}%
+    \else
+        \ifx\pms@temp-%
+           \def\pms@@next{\bbl@allowhyphens-\bbl@allowhyphens\@gobble}%
+        \else
+            \ifx\pms@temp"%
+                \def\pms@@next{``\expandafter\@gobble\string}%
+            \fi
+        \fi
+    \fi
+\fi
+\pms@@next}%
+\expandafter\addto\csname noextras\CurrentOption\endcsname{%
+\bbl@deactivate{"}}
+\ldf@finish\CurrentOption
+
+%% Copyright 2013 Claudio Beccari
+%% 
+%% Distributable under the LaTeX Project Public License,
+%% version 1.3c or higher (your choice). The latest version of
+%% this license is at: http://www.latex-project.org/lppl.txt
+%% 
+%% This work is "author-maintained"
+%% 
+%% This work consists of this file piedmontese.dtx,
+%% and the derived files piedmontese.ldf and piedmontese.pdf.
+%% 
+%%
+%% End of file `piedmontese.ldf'.