From 368e39ec4ee1a290bca0bb81c09847bfb1d33a6e Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 28 Jan 2015 22:28:31 +0000 Subject: begingreek (27jan15) git-svn-id: svn://tug.org/texlive/trunk@36158 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/latex/begingreek/begingreek.sty | 86 ++++++++++++++++++++++ 1 file changed, 86 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/begingreek/begingreek.sty (limited to 'Master/texmf-dist/tex') diff --git a/Master/texmf-dist/tex/latex/begingreek/begingreek.sty b/Master/texmf-dist/tex/latex/begingreek/begingreek.sty new file mode 100644 index 00000000000..8557b988d1b --- /dev/null +++ b/Master/texmf-dist/tex/latex/begingreek/begingreek.sty @@ -0,0 +1,86 @@ +%% +%% This is file `begingreek.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% begingreek.dtx (with options: `package') +%% Copyright 2015 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. +%% +%% This file is distributed under the LPPL licence, version 1.3c +%% dated 2008-05-04 or later as it appears in +%% CTAN/macros/latex/base/lppl.tex. +%% +%% IMPORTANT NOTICE: +%% +%% You are not allowed to change this file. +%% +%% You are allowed to distribute this file under the condition that it is +%% specified in the source file begingreek.dtx. +%% +%% If you receive only some of these files from someone, complain! +%% +%% You are NOT ALLOWED to distribute this file alone. You are NOT +%% ALLOWED to take money for the distribution or use of either this +%% file or a changed version, except for a nominal charge for copying +%% etc. +\NeedsTeXFormat{LaTeX2e}[2011/06/27] +\ProvidesPackage{begingreek}[2015/01/26 v.1.4 defines environment greek (CB)] + +\usepackage{iftex} +\unless\ifPDFTeX +\PackageError{begingreek}{\MessageBreak +Package `begingreek' works only with `pdfLaTeX'\MessageBreak +Nothing done\MessageBreak +\MessageBreak +Type X to quit}{\@ehd} +\expandafter\endinput +\fi +\unless\ifcsname captionsgreek\endcsname +\PackageError{begingreek}{\MessageBreak +Package `begingreek' may be used only\MessageBreak +if language `greek' is already defined\MessageBreak +Check that `begingreek' is loaded after\MessageBreak +`babel' and that the language `greek'\MessageBreak +has been specified\MessageBreak\MessageBreak +Type X to quit}{\@ehd} +\expandafter\endinput +\fi +\def\greekfontfamily{lmr} + +\DeclareOption*{\IfFileExists{lgr\CurrentOption.fd}{% +\edef\greekfontfamily{\CurrentOption}}{% +\PackageWarning{begingreek}{% +The file lgr\CurrentOption.fd does not exist\MessageBreak +Either provide such a file, or specify a\MessageBreak +valid Greek font family to the\MessageBreak +\string\begin\string{greek\string} package\MessageBreak +I continue with the default font family\MessageBreak}}} +\ProcessOptions\relax + +\newenvironment{greek}[1][\greekfontfamily]{\begin{otherlanguage}{greek}% +\edef\Greekfontfamily{#1}% +\IfFileExists{lgr\Greekfontfamily.fd}{}% +{\PackageWarning{begingreek}{% +Font family lgr\Greekfontfamily.fd does not exist\MessageBreak +Default fonts used}\def\Greekfontfamily{\greekfontfamily}}% +\fontfamily{\Greekfontfamily}\selectfont +}{\end{otherlanguage}} + +\newcommand*\greektxt[2][\greekfontfamily]{% +\edef\Greekfontfamily{#1} +\foreignlanguage{greek}{% +\IfFileExists{lgr\Greekfontfamily.fd}{}% +{\PackageWarning{begingreek}{% +Font family lgr\Greekfontfamily.fd does not exist\MessageBreak +Default fonts used}\def\Greekfontfamily{\greekfontfamily}}% +\fontfamily{\Greekfontfamily}\selectfont#2}} + + +\endinput +%% +%% End of file `begingreek.sty'. -- cgit v1.2.3