Current File : //proc/self/root/data/old/usr/share/texlive/texmf-dist/tex/generic/babel/glromidx.tex
%%
%% This is file `glromidx.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% galician.dtx (with options: `indexgl')
%% This is a generated file.
%%
%% Copyright 1989-2008 Johannes L. Braams and any individual authors
%% listed elsewhere in this file. All rights reserved.
%%
%% This file was generated from file(s) of the Babel system.
%% ---------------------------------------------------------
%%
%% It may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%% http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of LaTeX
%% version 2003/12/01 or later.
%%
%% This work has the LPPL maintenance status "maintained".
%%
%% The Current Maintainer of this work is Johannes Braams.
%%
%% This file may only be distributed together with a copy of the Babel
%% system. You may however distribute the Babel system without
%% such generated files.
%%
%% The list of all files belonging to the Babel distribution is
%% given in the file `manifest.bbl'. See also `legal.bbl for additional
%% information.
%%
%% The list of derived (unpacked) files belonging to the distribution
%% and covered by LPPL is defined by the unpacking scripts (with
%% extension .ins) which are part of the distribution.
%% File `galician.dtx'
%% Babel package for LaTeX version 2e
%% Copyright (C) 1989 - 2008
%% by Johannes Braams, TeXniek
%% Galcian Language Definition File
%% Copyright (C) 1989 - 2006
%% by Manuel Carriba mcarriba at eunetcom.net
%% Johannes Braams, TeXniek
%% Copyright (C) 2007 - 2008
%% by Javier A. M\'ugica
%% Johannes Braams, TeXniek
%% Please report errors to: Javier A. Mugica (preferably)
%% jmugica at digi21.net
%% J.L. Braams
%% babel at braams.xs4all.nl
%% \section{\textsf{galician} coma lingua principal}
\makeatletter
\newcount\gl@converted
\newcount\gl@processed
\def\gl@encap{`\|}
\def\gl@openrange{`\(}
\def\gl@closerange{`\)}
\def\gl@split@file#1.#2\@@{#1}
\def\gl@split@ext#1.#2\@@{#2}
\typein[\answer]{^^JArchivo que convertir^^J%
(extension por omision .idx):}
\@expandtwoargs\in@{.}{\answer}
\ifin@
\edef\gl@input@file{\expandafter\gl@split@file\answer\@@}
\edef\gl@input@ext{\expandafter\gl@split@ext\answer\@@}
\else
\edef\gl@input@file{\answer}
\def\gl@input@ext{idx}
\fi
\typein[\answer]{^^JArquivo de destino^^J%
(arquivo por omision: \gl@input@file.eix,^^J%
extension por omision .eix):}
\ifx\answer\@empty
\edef\gl@output{\gl@input@file.eix}
\else
\@expandtwoargs\in@{.}{\answer}
\ifin@
\edef\gl@output{\answer}
\else
\edef\gl@output{\answer.eix}
\fi
\fi
\typein[\answer]{%
^^J?Usouse algun esquema especial de controles^^J%
de MakeIndex para encap, open_range ou close_range?^^J%
[s/n] (n por omision)}
\if s\answer
\typein[\answer]{^^JCaracter para 'encap'^^J%
(\string| por omision)}
\ifx\answer\@empty\else
\edef\gl@encap{%
`\expandafter\noexpand\csname\expandafter\string\answer\endcsname}
\fi
\typein[\answer]{^^JCaracter para 'open_range'^^J%
(\string( por omision)}
\ifx\answer\@empty\else
\edef\gl@openrange{%
`\expandafter\noexpand\csname\expandafter\string\answer\endcsname}
\fi
\typein[\answer]{^^JCaracter para 'close_range'^^J%
(\string) por omision)}
\ifx\answer\@empty\else
\edef\gl@closerange{%
`\expandafter\noexpand\csname\expandafter\string\answer\endcsname}
\fi
\fi
\newwrite\gl@indexfile
\immediate\openout\gl@indexfile=\gl@output
\newif\ifgl@encapsulated
\def\gl@roman#1{\romannumeral#1 }
\edef\gl@slash{\expandafter\@gobble\string\\}
\def\indexentry{%
\begingroup
\@sanitize
\gl@indexentry}
\begingroup
\catcode`\|=12 \lccode`\|=\gl@encap\relax
\catcode`\(=12 \lccode`\(=\gl@openrange\relax
\catcode`\)=12 \lccode`\)=\gl@closerange\relax
\lowercase{
\gdef\gl@indexentry#1{%
\endgroup
\advance\gl@processed\@ne
\gl@encapsulatedfalse
\gl@bar@idx#1|\@@
\gl@idxentry}%
}
\lowercase{
\gdef\gl@idxentry#1{%
\in@{\gl@roman}{#1}%
\ifin@
\advance\gl@converted\@ne
\immediate\write\gl@indexfile{%
\string\indexentry{\gl@b|\ifgl@encapsulated\gl@p\fi glromanindex%
{\ifx\gl@a\@empty\else\gl@slash\gl@a\fi}}{#1}}%
\else
\immediate\write\gl@indexfile{%
\string\indexentry{\gl@b\ifgl@encapsulated|\gl@p\gl@a\fi}{#1}}%
\fi}
}
\lowercase{
\gdef\gl@bar@idx#1|#2\@@{%
\def\gl@b{#1}\def\gl@a{#2}%
\ifx\gl@a\@empty\else\gl@encapsulatedtrue\gl@bar@eat#2\fi}
}
\lowercase{
\gdef\gl@bar@eat#1#2|{\def\gl@p{#1}\def\gl@a{#2}%
\edef\gl@t{(}\ifx\gl@t\gl@p
\else\edef\gl@t{)}\ifx\gl@t\gl@p
\else
\edef\gl@a{\gl@p\gl@a}\let\gl@p\@empty%
\fi\fi}
}
\endgroup
\input \gl@input@file.\gl@input@ext
\immediate\closeout\gl@indexfile
\typeout{*****************}
\typeout{procesouse: \gl@input@file.\gl@input@ext }
\typeout{Li'nas lidas: \the\gl@processed}
\typeout{Li'nas convertidas: \the\gl@converted}
\typeout{Resultado en: \gl@output}
\ifnum\gl@converted>\z@
\typeout{Xenere o 'indice a partir deste arquivo}
\else
\typeout{Non se realizou ning'un tipo de conversi'on}
\typeout{P'odese xenerar o arquivo directamente^^J%
de \gl@input@file.\gl@input@ext}
\fi
\typeout{*****************}
\@@end
%%
%% \CharacterTable
%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%% Digits \0\1\2\3\4\5\6\7\8\9
%% Exclamation \! Double quote \" Hash (number) \#
%% Dollar \$ Percent \% Ampersand \&
%% Acute accent \' Left paren \( Right paren \)
%% Asterisk \* Plus \+ Comma \,
%% Minus \- Point \. Solidus \/
%% Colon \: Semicolon \; Less than \<
%% Equals \= Greater than \> Question mark \?
%% Commercial at \@ Left bracket \[ Backslash \\
%% Right bracket \] Circumflex \^ Underscore \_
%% Grave accent \` Left brace \{ Vertical bar \|
%% Right brace \} Tilde \~}
%%
\endinput
%%
%% End of file `glromidx.tex'.
Mini Shell