Current File : //data/old/usr/share/texlive/texmf-dist/tex/generic/babel/romanidx.sty
%%
%% This is file `romanidx.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% spanish.dtx (with options: `indexes')
%% This is a generated file.
%%
%% Copyright 1989-2011 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 `spanish.dtx'
%% Babel package for LaTeX version 2e
%% Copyright (C) 1989 - 2011
%% by Johannes Braams, TeXniek
%% Spanish Language Definition File
%% Copyright (C) 1997 - 2011
%% Javier Bezos (www.tex-tipografia.com)
%% and
%% CervanTeX (www.cervantex.es)
%% Please report errors to: Javier Bezos (preferably)
%% www.tex-tipografia.com
%% J.L. Braams
%% www.latex-project.org
\makeatletter
\@ifundefined{es@idxfile}
{\def\spanishindexchars#1#2#3{%
\edef\es@encap{`\expandafter\noexpand\csname\string#1\endcsname}%
\edef\es@openrange{`\expandafter\noexpand\csname\string#2\endcsname}%
\edef\es@closerange{`\expandafter\noexpand\csname\string#3\endcsname}}%
\spanishindexchars{|}{(}{)}%
\ifx\documentclass\@twoclasseserror
\edef\es@idxfile{\jobname}%
\AtEndDocument{%
\addto\@defaultsubs{%
\immediate\closeout\@indexfile
\input{romanidx.sty}}}%
\expandafter\endinput
\fi}{}
\newcount\es@converted
\newcount\es@processed
\def\es@split@file#1.#2\@@{#1}
\def\es@split@ext#1.#2\@@{#2}
\@ifundefined{es@idxfile}
{\typein[\answer]{^^JArchivo que convertir^^J%
(extension por omision .idx):}}
{\let\answer\es@idxfile}
\@expandtwoargs\in@{.}{\answer}
\ifin@
\edef\es@input@file{\expandafter\es@split@file\answer\@@}
\edef\es@input@ext{\expandafter\es@split@ext\answer\@@}
\else
\edef\es@input@file{\answer}
\def\es@input@ext{idx}
\fi
\@ifundefined{es@idxfile}
{\typein[\answer]{^^JArchivo de destino^^J%
(archivo por omision: \es@input@file.eix,^^J%
extension por omision .eix):}}
{\let\answer\es@idxfile}
\ifx\answer\@empty
\edef\es@output{\es@input@file.eix}
\else
\@expandtwoargs\in@{.}{\answer}
\ifin@
\edef\es@output{\answer}
\else
\edef\es@output{\answer.eix}
\fi
\fi
\@ifundefined{es@idxfile}
{\typein[\answer]{%
^^J?Se ha usado algun esquema especial de controles^^J%
de MakeIndex para encap, open_range o close_range?^^J%
[s/n] (n por omision)}}
{\def\answer{n}}
\if s\answer
\typein[\answer]{^^JCaracter para 'encap'^^J%
(\string| por omision)}
\ifx\answer\@empty\else
\edef\es@encap{%
`\expandafter\noexpand\csname\expandafter\string\answer\endcsname}
\fi
\typein[\answer]{^^JCaracter para 'open_range'^^J%
(\string( por omision)}
\ifx\answer\@empty\else
\edef\es@openrange{%
`\expandafter\noexpand\csname\expandafter\string\answer\endcsname}
\fi
\typein[\answer]{^^JCaracter para 'close_range'^^J%
(\string) por omision)}
\ifx\answer\@empty\else
\edef\es@closerange{%
`\expandafter\noexpand\csname\expandafter\string\answer\endcsname}
\fi
\fi
\newwrite\es@indexfile
\immediate\openout\es@indexfile=\es@output
\newif\ifes@encapsulated
\def\es@scroman#1{#1}
\edef\es@slash{\expandafter\@gobble\string\\}
\def\indexentry{%
\begingroup
\@sanitize
\es@indexentry}
\begingroup
\catcode`\|=12 \lccode`\|=\es@encap\relax
\catcode`\(=12 \lccode`\(=\es@openrange\relax
\catcode`\)=12 \lccode`\)=\es@closerange\relax
\lowercase{
\gdef\es@indexentry#1{%
\endgroup
\advance\es@processed\@ne
\es@encapsulatedfalse
\es@bar@idx#1|\@@
\es@idxentry}%
}
\lowercase{
\gdef\es@idxentry#1{%
\in@{\es@scroman}{#1}%
\ifin@
\advance\es@converted\@ne
\immediate\write\es@indexfile{%
\string\indexentry{\es@b|\ifes@encapsulated\es@p\fi esromanindex%
{\ifx\es@a\@empty\else\es@slash\es@a\fi}}{#1}}%
\else
\immediate\write\es@indexfile{%
\string\indexentry{\es@b\ifes@encapsulated|\es@p\es@a\fi}{#1}}%
\fi}
}
\lowercase{
\gdef\es@bar@idx#1|#2\@@{%
\def\es@b{#1}\def\es@a{#2}%
\ifx\es@a\@empty\else\es@encapsulatedtrue\es@bar@eat#2\fi}
}
\lowercase{
\gdef\es@bar@eat#1#2|{\def\es@p{#1}\def\es@a{#2}%
\edef\es@t{(}\ifx\es@t\es@p
\else\edef\es@t{)}\ifx\es@t\es@p
\else
\edef\es@a{\es@p\es@a}\let\es@p\@empty%
\fi\fi}
}
\endgroup
\input \es@input@file.\es@input@ext
\immediate\closeout\es@indexfile
\typeout{*****************}
\typeout{Se ha procesado: \es@input@file.\es@input@ext }
\typeout{Lineas leidas: \the\es@processed}
\typeout{Lineas convertidas: \the\es@converted}
\typeout{Resultado en: \es@output}
\ifnum\es@converted>\z@
\typeout{Genere el indice a partir de ese archivo}
\else
\typeout{No se ha convertido nada. Se puede generar}
\typeout{el .ind directamente de \es@input@file.\es@input@ext}
\fi
\typeout{*****************}
\@ifundefined{es@sdef}{\@@end}{}
\endinput
%%
%% End of file `romanidx.sty'.
Mini Shell