summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/ginpenc/ginpenc.sty
blob: ba5f737eae33d955b6d0083e6e3842857196c34b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
%%
%% This is file `ginpenc.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% ginpenc.dtx  (with options: `package')
%% 
%%   ginpenc package
%% 
%%   Copyright  2003, 2011 Harald Harders
%% 
%%   This program can be redistributed and/or modified under the terms
%%   of the LaTeX Project Public License Distributed from CTAN
%%   archives in directory macros/latex/base/lppl.txt; either
%%   version 1 of the License, or any later version.
%% 
%%   harald.harders@gmx.de
%% 
\ProvidesPackage{ginpenc}
  [2011/12/29  v1.01  Replace \string\"a by "a with babel for German texts]
\newif\ifginpenc@babel
\AtBeginDocument{%
  \let\inputenc\empty
  \newcommand*\gie@inputencoding{}%
  \let\gie@inputencoding\inputencoding
  \def\inputencoding#1{%
    \def\inputenc{#1}%
    \gie@inputencoding{#1}%
    \ifginpenc@babel
      \IfFileExists{\inputenc.gie}{%
        \input{\inputenc.gie}%
        }{%
        \PackageWarning{ginpenc}{Encoding file \inputenc.gie not
          found}%
        }%
    \fi
    }%
  \begingroup
  \expandafter\ifx\csname @inpenc@undefined\endcsname\relax
    \edef\x{\endgroup}%
  \else
    \def\@inpenc@undefined@#1{\def\noexpand\inputenc{#1}}%
    \edef\x{\endgroup
      \@inpenc@undefined
    }%
  \fi
  \x
  \@ifpackageloaded{babel}{%
    \ginpenc@babeltrue
    \ifx\inputenc\empty
    \else
      \IfFileExists{\inputenc.gie}{%
        \input{\inputenc.gie}%
        \addto\extrasgerman{\umlautgerman}%
        \addto\extrasngerman{\umlautgerman}%
        \addto\extrasaustrian{\umlautgerman}%
        \addto\extrasnaustrian{\umlautgerman}%
        \addto\noextrasgerman{\umlautnotgerman}%
        \addto\noextrasngerman{\umlautnotgerman}%
        \addto\noextrasaustrian{\umlautnotgerman}%
        \addto\noextrasnaustrian{\umlautnotgerman}%
        \expandafter\selectlanguage\expandafter{\languagename}%
        }{%
        \PackageWarning{ginpenc}{Encoding file \inputenc.gie not
          found}%
        }%
    \fi
    }{}%
  }
\endinput
%%
%% End of file `ginpenc.sty'.