summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-04-27 08:27:52 +0000
committerNorbert Preining <preining@logic.at>2008-04-27 08:27:52 +0000
commit7815860ef0d0493936cd0166b67fc052292e7cb9 (patch)
tree82b857c9f41e35aed66799d793b7bcdb344091e2 /Master/texmf
parent82f6d6e21e6f312e6b2809a92253c5c70c3d896c (diff)
add a getopt.tlu function
git-svn-id: svn://tug.org/texlive/trunk@7673 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rw-r--r--Master/texmf/scripts/texlive/lua/getopt.tlu86
1 files changed, 86 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/lua/getopt.tlu b/Master/texmf/scripts/texlive/lua/getopt.tlu
new file mode 100644
index 00000000000..bdccba8c13e
--- /dev/null
+++ b/Master/texmf/scripts/texlive/lua/getopt.tlu
@@ -0,0 +1,86 @@
+-- getopt.tlu
+--
+-- (tex)lua library function for argument processing
+--
+-- Copyright 2008 Norbert Preining
+--
+-- This file is licensed under the GNU General Public License version 2
+-- or any later version.
+--
+-- The file provides a basic getopt function
+-- it takes as argument a table with the argument names as keys and the
+-- number of argument options as values
+--
+-- It returns a tables with the found arguments as keys and
+-- . true as value for an option not taking any values
+-- . a single value for an option taking one value
+-- . an array of values for an option taking more than one value
+--
+-- Example:
+-- options = getopt( { help = 0, foo = 1, bar = 2 } )
+-- and calling the script with
+-- script a --help b --bar c d e --foo f g h
+-- will leave a b e g h in the arguments and will return
+-- options["help"] = true
+-- options["foo"] = "f"
+-- options["bar"] = { "c", "d" }
+--
+-- Example code for printing out the options:
+-- print ("OPTIONS:")
+-- for o,v in pairs(options) do
+-- if (type(v) == "boolean") then
+-- print ("option "..o)
+-- elseif (type(v) == "table") then
+-- for a,b in ipairs(v) do
+-- print ("option "..o.."["..a.."] = "..b)
+-- end
+-- else
+-- print ("option "..o.." = "..v)
+-- end
+-- end
+
+function getopt(spec)
+ local newarg = {}
+ local retargs = {}
+ do
+ local i, limit = 1, #arg
+ while (i <= limit) do
+ local found = false
+ for k,v in pairs(spec) do
+ if (arg[i] == "--"..k) then
+ found = true
+ if (v == 0) then
+ -- boolean argument
+ retargs[k] = true
+ else
+ local bla = {}
+ for n=1, v do
+ bla[n] = arg[i+n]
+ end
+ retargs[k] = bla
+ -- we have to shift the next i!!!
+ i = i + v
+ end
+ -- we have found the arg, so stop processing further spec arguments
+ break
+ end
+ end
+ if not(found) then
+ -- non of the spec args did hit, so we push the arg to the newargs
+ newarg[#newarg+1] = arg[i]
+ end
+ i = i + 1
+ end
+ end
+ -- replace the global arg with the cleaned newarg
+ arg = newarg
+ -- return the found arguments
+ return retargs
+end
+
+-- Local Variables:
+-- lua-indent-level: 2
+-- tab-width: 2
+-- indent-tabs-mode: nil
+-- End:
+-- vim:set tabstop=2 expandtab: #