summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/polyglot/polyglot.ltx
blob: 09a2c9e1a66d1debe5aebd527bb0c7a45e7955ae (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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
%%
%% This is file `polyglot.ltx',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% polyglot.dtx  (with options: `install')
%% 
%% IMPORTANT NOTICE:
%% 
%% For the copyright see the source file.
%% 
%% Any modified versions of this file must be renamed
%% with new filenames distinct from polyglot.ltx.
%% 
%% For distribution of the original source see the terms
%% for copying and modification in the file polyglot.dtx.
%% 
%% This generated file may be distributed as long as the
%% original source files, as listed above, are part of the
%% same distribution. (The sources need not necessarily be
%% in the same archive or directory.)

\def\fileversion{1.1}
\def\filedate{September 1, 1997}
\def\docdate{September 1, 1997}

\count19=-1 % The language allocator

\def\LanguagePath#1{\edef\input@path{\input@path{#1}}}


\def\PreLoadPatterns#1#2{%
  \csname newlanguage\expandafter\endcsname\csname pgh@#1\endcsname
  \language\csname pgh@#1\endcsname
  \input{#2}}

\def\SetPatterns#1#2{\expandafter\chardef
   \csname pgh@#1\endcsname#2\relax}

\def\PreLoadPolyGlot{%
  \ifx\pg@add@to\@undefined\input{polyglot.def}\fi}

\def\PreLoadLanguage#1{\PreLoadPolyGlot
  \@ifnextchar[{\pg@load{#1}}{\pg@load{#1}[#1]}}

\def\pg@load#1[#2]{\pg@input{#1}{#2}}

\def\pg@@{pg-}

\def\pg@input#1#2#3#4{%
    \pg@to@list{#1}%
    \@ifundefined{pgh@#1}%
      {\expandafter\let\csname pgh@#1\expandafter\endcsname
         \csname pgh@#3\endcsname%
       \PackageInfo{polyglot}%
         {#1 with #3 patterns\@gobble}}\@empty
    \@ifundefined{\pg@@?#1}%
      {\InputIfFileExists{#2.ld}{}%
         {\pg@err{Missing language file}}%
       \pg@extensions{#2}}\@empty
    \edef\thelanguage{\csname\pg@@?#1\endcsname}#4}

\def\LoadLanguage#1#2#{\@gobbletwo}

\input{polyglot.cfg}

\language\z@

\let\LanguagePath\@gobble

\let\PreLoadPatterns\@gobbletwo

\def\PreLoadLanguage#1{%
  \@ifnextchar[{\pg@preld{#1}}{\pg@preld{#1}[#1]}}
\def\pg@preld#1[#2]#3#4{%
  \DeclareOption{#1}{\@ifundefined{pge@#2}%
     {\pg@extensions{#2}\@namedef{pge@#2}{}}\@empty}}

\def\LoadLanguage#1{\@ifnextchar[{\pg@load{#1}}{\pg@load{#1}[#1]}}

\def\pg@load#1[#2]#3#4{%
   \DeclareOption{#1}{\pg@input{#1}{#2}{#3}{#4}}}

\endinput
%%
%% End of file `polyglot.ltx'.