splitindex (5apr13)

git-svn-id: svn://tug.org/texlive/trunk@29688 c570f23f-e606-0410-a88d-b1316a301751

3 files changed, 237 insertions, 0 deletions

diff --git a/Master/texmf-dist/scripts/splitindex/perl/splitindex.pl b/Master/texmf-dist/scripts/splitindex/splitindex.pl
index 70c61720c9b..70c61720c9b 100755
--- a/Master/texmf-dist/scripts/splitindex/perl/splitindex.pl
+++ b/Master/texmf-dist/scripts/splitindex/splitindex.pl
diff --git a/Master/texmf-dist/scripts/splitindex/splitindex.tlu b/Master/texmf-dist/scripts/splitindex/splitindex.tlu
new file mode 100755
index 00000000000..a367634b037
--- /dev/null
+++ b/Master/texmf-dist/scripts/splitindex/splitindex.tlu
@@ -0,0 +1,50 @@
+#!/usr/bin/env texlua
+-- splitindex.tlu
+-- Copyright (c) Markus Kohm, 2013
+--
+-- $Id: splitindex.tlu,v 1.1 2013-04-04 11:28:17 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.
+
+kpse.set_program_name(arg[-1],'splitindex')
+require('splitindex.splitindex_main')
+
+--
+-- End of file `splitindex.tlu'
diff --git a/Master/texmf-dist/scripts/splitindex/splitindex_main.tlu b/Master/texmf-dist/scripts/splitindex/splitindex_main.tlu
new file mode 100644
index 00000000000..1fc19b13fb2
--- /dev/null
+++ b/Master/texmf-dist/scripts/splitindex/splitindex_main.tlu
@@ -0,0 +1,187 @@
+#!/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'