diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/ecclesiastic/ecclesiastic.sty')
| -rw-r--r-- | Master/texmf-dist/tex/latex/ecclesiastic/ecclesiastic.sty | 182 |
1 files changed, 182 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/ecclesiastic/ecclesiastic.sty b/Master/texmf-dist/tex/latex/ecclesiastic/ecclesiastic.sty new file mode 100644 index 00000000000..24f76fe48f6 --- /dev/null +++ b/Master/texmf-dist/tex/latex/ecclesiastic/ecclesiastic.sty @@ -0,0 +1,182 @@ +%% +%% This is file `ecclesiastic.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% ecclesiastic.dtx (with options: `package') +%% +%% Copyright 2007 Claudio Beccari All rights reserved. +%% +%% This system is distributed in the hope that it will be useful, +%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +%% +%% +%% IMPORTANT NOTICE: +%% +%% This file is subject to the LPPL licence, version 1.3 or any subsequent +%% version. Copy of the LaTeX Project Public Licence is downloadable from +%% any CTAN archive. +%% +%% +\NeedsTeXFormat{LaTeX2e}[1996/12/01]% +\ProvidesPackage{ecclesiastic}% + [2007/09/28 v.0.1 Ecclesiastic composition of Latin] +\def\CheckLatin{\expandafter\ifx\csname captionslatin\endcsname\relax + \PackageWarning{ecclesiastic}{\MessageBreak + latin must be specified as a global option\MessageBreak + or it must be passed as an option to babel\MessageBreak + \MessageBreak + Nothing done}\expandafter\endinput\fi} + +\@ifpackageloaded{babel}{\CheckLatin}{% + \PackageWarning{ecclesiastic}{\MessageBreak + Package babel must be loaded before this package\MessageBreak + \MessageBreak + Nothing will be done}\endinput} +\let\og\empty\let\fg\empty% + \def\FrenchGuillemetsFrom#1#2#3#4{% + \DeclareFontEncoding{#1}{}{}% + \DeclareFontSubstitution{#1}{#2}{m}{n}% + \DeclareTextCommand{\guillemotleft}{OT1}{% + {\fontencoding{#1}\fontfamily{#2}\selectfont\char#3}}% + \DeclareTextCommand{\guillemotright}{OT1}{% + {\fontencoding{#1}\fontfamily{#2}\selectfont\char#4}}} + \def\CyrillicGuillemets{\FrenchGuillemetsFrom{OT2}{wncyr}{60}{62}} + \def\PolishGuillemets{\FrenchGuillemetsFrom{T1}{lmr}{19}{20}} + \def\LasyGuillemets{% + \DeclareTextCommand{\guillemotleft}{OT1}{\hbox{% + \fontencoding{U}\fontfamily{lasy}\selectfont(\kern-0.20em(}}% + \DeclareTextCommand{\guillemotright}{OT1}{\hbox{% + \fontencoding{U}\fontfamily{lasy}\selectfont)\kern-0.20em)}}} + \IfFileExists{t1lmr.fd}{\PolishGuillemets}{% + \IfFileExists{ot2wncyr.fd}{\CyrillicGuillemets}{\LasyGuillemets}} + \DeclareTextSymbolDefault{\guillemotleft}{OT1} + \DeclareTextSymbolDefault{\guillemotright}{OT1} + \def\guill@spacing{\penalty\@M\hskip.3\fontdimen2\font + \@plus\z@\@minus\z@} + \DeclareRobustCommand*{\begin@guill}{\leavevmode + \guillemotleft\penalty\@M\guill@spacing + \ignorespaces} + \DeclareRobustCommand*{\end@guill}{\ifdim\lastskip>\z@\unskip\fi + \penalty\@M\guill@spacing\guillemotright{}} + \addto\extraslatin{% + \renewcommand{\og}{\begin@guill}\renewcommand{\fg}{\end@guill}% + } + \addto\noextraslatin{\let\og\empty\let\fg\empty} +\initiate@active@char{'}% +\addto\extraslatin{\bbl@activate{'}}% +\addto\noextraslatin{\bbl@deactivate{'}}% + +\declare@shorthand{latin}{'a}{\@ifnextchar e{\'\ae\@gobble}{\'a}} +\declare@shorthand{latin}{'e}{\'e} +\declare@shorthand{latin}{'i}{\'i} +\declare@shorthand{latin}{'o}{\@ifnextchar e{\'\oe\@gobble}{\'o}} +\declare@shorthand{latin}{'u}{\'u} +\declare@shorthand{latin}{'y}{\'y} +\declare@shorthand{latin}{'A}{\@ifnextchar E{\'\AE\@gobble}{\'A}} +\declare@shorthand{latin}{'E}{\'E} +\declare@shorthand{latin}{'I}{\'I} +\declare@shorthand{latin}{'O}{\@ifnextchar E{\'\OE\@gobble}{\'O}} +\declare@shorthand{latin}{'U}{\'U} +\declare@shorthand{latin}{'Y}{\'Y} +\declare@shorthand{latin}{"}{% +\ifmmode + \def\lt@next{''}% +\else + \def\lt@next{\futurelet\lt@temp\lt@cwm}% +\fi +\lt@next +}% +\def\lt@@cwm{\nobreak\discretionary{-}{}{}\nobreak\hskip\z@skip}% +\def\lt@@ocap#1{\begin@guill}\def\lt@@ccap#1{\end@guill}% +\DeclareRobustCommand\LT@cwm[2]{% + \ifx#1a\bbl@afterelse + \maybeae#1#2% + \else\bbl@afterfi + \testoe#1#2% + \fi} +\def\maybeae#1#2{% + \ifx#2e\bbl@afterelse + \ae% + \else\bbl@afterfi + \lt@@cwm#1#2% + \fi +} +\def\maybeoe#1#2{% + \ifx#2e\bbl@afterelse + \oe% + \else\bbl@afterfi + \lt@@cwm#1#2% + \fi +} +\def\testoe#1#2{% + \ifx#1o\bbl@afterelse + \maybeoe#1#2% + \else\bbl@afterfi + \lt@@cwm#1#2% + \fi} +\DeclareRobustCommand*{\lt@cwm}{\let\lt@@next\relax +\ifcat\noexpand\lt@temp e% + \def\lt@@next{\LT@cwm}% +\else + \if\noexpand\lt@temp \string|% + \def\lt@@next{\lt@@cwm\@gobble}% + \else + \if\noexpand\lt@temp \string<% + \def\lt@@next{\lt@@ocap}% + \else + \if\noexpand\lt@temp \string>% + \def\lt@@next{\lt@@ccap}% + \else + \if\noexpand\lt@temp\string/% + \def\lt@@next{\slash\@gobble}% + \else + \ifx\lt@temp"% + \def\lt@@next{``\@gobble}% + \fi + \fi + \fi + \fi + \fi +\fi +\lt@@next}% +\edef\puntoevirgola{\string;}\edef\cc@pv{\the\catcode`;}% +\edef\duepunti{\string:}\edef\cc@dp{\the\catcode`:}% +\edef\puntoesclamativo{\string!}\edef\cc@pe{\the\catcode`!}% +\edef\puntointerrogativo{\string?}\edef\cc@pi{\the\catcode`?}% +\initiate@active@char{;} +\initiate@active@char{:} +\initiate@active@char{!} +\initiate@active@char{?} +\addto\extraslatin{\bbl@activate{;}} +\addto\extraslatin{\bbl@activate{:}} +\addto\extraslatin{\bbl@activate{!}} +\addto\extraslatin{\bbl@activate{?}} +\addto\noextraslatin{\bbl@deactivate{;}} +\addto\noextraslatin{\bbl@deactivate{:}} +\addto\noextraslatin{\bbl@deactivate{!}} +\addto\noextraslatin{\bbl@deactivate{?}} +\def\punct@spacing{\penalty\@M\hskip.4\fontdimen2\font + \@plus\z@\@minus\z@} +\declare@shorthand{latin}{;}{\ifdim\lastskip>\z@\unskip\fi + \punct@spacing\puntoevirgola} +\declare@shorthand{latin}{:}{\ifdim\lastskip>\z@\unskip\fi + \punct@spacing\duepunti} +\declare@shorthand{latin}{!}{\ifdim\lastskip>\z@\unskip\fi + \punct@spacing\puntoesclamativo} +\declare@shorthand{latin}{?}{\ifdim\lastskip>\z@\unskip\fi + \punct@spacing\puntointerrogativo} +\let\lt@ori@makefntext\@makefntext +\newcommand\lt@makefntext[1]{% + \parindent 1em% + \noindent + \lt@Makefnmark\enspace #1} +\newcommand\lt@Makefnmark{\hbox{\normalfont\@thefnmark.}} +\addto\extraslatin{\let\@makefntext\lt@makefntext} +\addto\noextraslatin{\let\@makefntext\lt@ori@makefntext} +\noextraslatin +\endinput +%% +%% End of file `ecclesiastic.sty'. |