diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/splitindex/splitindex_main.tlu')
-rw-r--r-- | Master/texmf-dist/source/latex/splitindex/splitindex_main.tlu | 187 |
1 files changed, 0 insertions, 187 deletions
diff --git a/Master/texmf-dist/source/latex/splitindex/splitindex_main.tlu b/Master/texmf-dist/source/latex/splitindex/splitindex_main.tlu deleted file mode 100644 index 1fc19b13fb2..00000000000 --- a/Master/texmf-dist/source/latex/splitindex/splitindex_main.tlu +++ /dev/null @@ -1,187 +0,0 @@ -#!/usr/bin/env texlua --- splitindex.tlu --- Copyright (c) Markus Kohm, 2013 --- --- $Id: splitindex_main.tlu,v 1.2 2013-04-04 13:59:54 mjk Exp $ --- --- This file is part of the SplitIndex bundle. --- --- This work may be distributed and/or modified under the conditions of --- the LaTeX Project Public License, version 1.3c of the license. --- The latest version of this license is in --- http://www.latex-project.org/lppl.txt --- and version 1.3c or later is part of all distributions of LaTeX --- version 2005/12/01 or later and of this work. --- --- This work has the LPPL maintenance status "author-maintained". --- --- The Current Maintainer and author of this work is Markus Kohm. --- --- The list of all files belongig to the SplitIndex bundle is given in --- in the file `manifest.txt'. Files generated by means of unpacking the --- distribution (using, for example, the docstrip program) or by means --- of compiling them from a source file, for example, from splitindex.c --- or splitindex.java may be distributed at the distributor's discretion. --- However if they are distributed then a copy of the SplitIndex bundle --- must be distributed together with them. --- --- The list of derived (unpacked or compiled) files belongig to the --- distribution and covered by LPPL is defined by the unpacking scripts --- (with extension .ins) and the installation script (with name --- install.sh) which are part of the distribution. --- --- Two often ignorred clauses from LPPL 1.3c you should not ignore: --- ---------------------------------------------------------------- --- 2. You may distribute a complete, unmodified copy of the Work as you --- received it. Distribution of only part of the Work is considered --- modification of the Work, and no right to distribute such a Derived --- Work may be assumed under the terms of this clause. --- 3. You may distribute a Compiled Work that has been generated from a --- complete, unmodified copy of the Work as distributed under Clause 2 --- above, as long as that Compiled Work is distributed in such a way that --- the recipients may install the Compiled Work on their system exactly --- as it would have been installed if they generated a Compiled Work --- directly from the Work. - -local version_number = string.sub( '$Revision: 1.2 $', 12, -2 ) -local action_version = ' r'..version_number..'\n'..[[ -Copyright (c) 2013 Markus Kohm. -License: lppl 1.3c or later. See <http://www.latex-project.org/lppl.txt>. -]] -local action_help = [[ -options: - -h, --help Print this help message. - -i, --identify <regular expression> - Setup the regular expression to match the entries. - -m, --makeindex <program name> - Use <program name> instead of `makeindex'. - -r, --resultis <pattern> - Create line to be written from <pattern> after matching. - -s, --suffixis <pattern> - Create suffix to be used from <pattern> after matching. - -v, --verbose Be more verbose. - -V,--version Print the version information. -]] - -local action_opts = { - ['-h'] = 'help', - ['--help'] = 'help', - ['-i'] = 'identify', - ['--identify'] = 'identify', - ['-m'] = 'makeindex', - ['--makeindex'] = 'makeindex', - ['-r'] = 'resultis', - ['--resultis'] = 'resultis', - ['-s'] = 'suffixis', - ['--suffixis'] = 'suffixis', - ['-v'] = 'verbose', - ['--verbose'] = 'verbose', - ['-V'] = 'version', - ['--version'] = 'version', - ['--'] = '--', -} - -local identify = '^(\\indexentry)%[([^]]*)%](.*)$' -local makeindex = 'makeindex' -local resultis = '%1%3' -local suffixis = '-%2' -local verbose = 0 - -while arg[1] do - local action = action_opts[arg[1]] - if action == '--' then - table.remove(arg,1) - break - elseif action == 'help' then - print( arg[0]..action_version ) - print( 'Usage: ' .. arg[0] .. ' -h/--help' ) - print( ' ' .. arg[0] .. ' -V/--version' ) - print( ' ' .. arg[0] .. ' [<option> ...] \\ \ - <intermediate index file> \\ \ - [<makeindex option> ...]' ) - print( action_help ); - os.exit( 0 ); - elseif action == 'identify' then - table.remove(arg,1) - if arg[1] == nil then - error( 'value expected after option -i or --identify' ) - end - identify = arg[1] - table.remove(arg,1) - elseif action == 'makeindex' then - table.remove(arg,1) - if arg[1] == nil then - error( 'value expected after option -m or --makeindex' ) - end - makeindex = arg[1] - table.remove(arg,1) - elseif action == 'resultis' then - table.remove(arg,1) - if arg[1] == nil then - error( 'value expected after option -r or --resultis' ) - end - resultis = string.gsub(arg[1],'%$','%%') - table.remove(arg,1) - elseif action == 'suffixis' then - table.remove(arg,1) - if arg[1] == nil then - error( 'value expected after option -s or --suffixis' ) - end - suffixis = string.gsub(arg[1],'%$','%%') - table.remove(arg,1) - elseif action == 'verbose' then - table.remove(arg,1) - verbose = verbose + 1 - elseif action == 'version' then - print( arg[0] .. action_version ); - os.exit( 0 ); - else - break; - end -end - -if arg[1] == nil then - error( 'intermediate file missing' ) -end - -local ifilename = arg[1] -table.remove(arg,1) -local bfilename = string.gsub(ifilename,'^(.*)%.idx$','%1') - -local makeindexargs='' -while arg[1] do - makeindexargs = makeindexargs..' "'..arg[1]..'"' - table.remove(arg,1) -end - -local ofiles={} - -local line -for line in io.lines(ifilename) do - local newline=string.gsub(line,identify,resultis) - local ext,matches=string.gsub(line,identify,suffixis) - if matches == 0 then - ext = string.gsub(suffixis,'%%[1234567890]','idx') - end - if ofiles[ext] == nil then - local msg - ofiles[ext],msg = io.open(bfilename..ext..'.idx','w') - if ofiles[ext] == nil then error(msg) end - end - assert( ofiles[ext]:write(newline,"\n") ) -end - -local k,v -for k,v in pairs(ofiles) do - assert( v:close() ) - local cmd=makeindex..makeindexargs..' "'..bfilename..k..'.idx"' - if makeindex ~= '' then - local s,t,n=os.execute(cmd) - if not s then - error('failed to execute ' .. cmd ) - end - end -end - --- --- End of file `splitindex.tlu' |