diff options
author | Karl Berry <karl@freefriends.org> | 2019-12-31 23:19:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2019-12-31 23:19:25 +0000 |
commit | 7d8c399780981359be7896a5fb053a0bd873a3e6 (patch) | |
tree | 3680abb7f9038f8d19f0da0af63aab9dedcb770c /Master/tlpkg/archive/test-tlpdb.tlu | |
parent | 449ceb762b8adeccbef9731acdf8001b20fa4f74 (diff) |
archive old lua tlpdb attempt
git-svn-id: svn://tug.org/texlive/trunk@53284 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/archive/test-tlpdb.tlu')
-rwxr-xr-x | Master/tlpkg/archive/test-tlpdb.tlu | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/Master/tlpkg/archive/test-tlpdb.tlu b/Master/tlpkg/archive/test-tlpdb.tlu new file mode 100755 index 00000000000..2004e958fb1 --- /dev/null +++ b/Master/tlpkg/archive/test-tlpdb.tlu @@ -0,0 +1,45 @@ +#! /usr/bin/env texlua +--*- Lua -*- + +-- Copyright (C) 2008 Norbert Preining. +-- You may freely use, modify and/or distribute this file. + +-- test the functionality of tlpdb.tlu + +kpse.set_program_name(arg[-1]) +texmfmain = kpse.var_value('TEXMFMAIN') +package.path = texmfmain.."/scripts/texlive/lua/?.tlu" +require("texlive.tlpdb") +master=kpse.var_value('SELFAUTOPARENT') +io.stderr:write('reading tlpdb ... ') +tlpdb = read_tlpdb(master) +io.stderr:write('done\n') + +--os.exit(0) + +for a,b in pairs(tlpdb) do + print ("package = "..a) + for c,d in pairs(b) do + if (type(d) == "table") then + print (" "..c..":") + for cdata,cvalue in pairs(d) do + if (type(cvalue) == "table") then + print (" "..cdata..":") + for aaa,bbb in pairs(cvalue) do + print (" "..aaa.." = "..bbb) + end + else + print (" "..cdata.." = "..cvalue) + end + end + else + print (" "..c.." = "..tostring(d)) + end + end +end +-- Local Variables: +-- lua-indent-level: 2 +-- tab-width: 2 +-- indent-tabs-mode: nil +-- End: +-- vim:set tabstop=2 shiftwidth=2 expandtab: # |