summaryrefslogtreecommitdiff
path: root/tex/context/base/mkiv/lpdf-ini.lua
diff options
context:
space:
mode:
authorContext Git Mirror Bot <phg42.2a@gmail.com>2016-09-05 11:09:19 +0200
committerContext Git Mirror Bot <phg42.2a@gmail.com>2016-09-05 11:09:19 +0200
commit3f59c56887a9a6c4bda68ab8d99e67d2afc902f9 (patch)
treea9198041a82c94d3764733271e203edb8beb79a3 /tex/context/base/mkiv/lpdf-ini.lua
parentc209ed36b6aaaa992df8976789c8ba8112f8e5c5 (diff)
downloadcontext-3f59c56887a9a6c4bda68ab8d99e67d2afc902f9.tar.gz
2016-09-05 10:33:00
Diffstat (limited to 'tex/context/base/mkiv/lpdf-ini.lua')
-rw-r--r--tex/context/base/mkiv/lpdf-ini.lua51
1 files changed, 0 insertions, 51 deletions
diff --git a/tex/context/base/mkiv/lpdf-ini.lua b/tex/context/base/mkiv/lpdf-ini.lua
index a0413dbcd..f395a32f9 100644
--- a/tex/context/base/mkiv/lpdf-ini.lua
+++ b/tex/context/base/mkiv/lpdf-ini.lua
@@ -312,59 +312,8 @@ local f_array = formatters["[ % t ]"]
local f_key_number = formatters["/%s %F"]
local f_tonumber = formatters["%F"]
--- local f_key_value = formatters["/%s %s"]
--- local f_key_dictionary = formatters["/%s <<% t>>"]
--- local f_dictionary = formatters["<<% t>>"]
--- local f_key_array = formatters["/%s [% t]"]
--- local f_array = formatters["[% t]"]
-
local tostring_a, tostring_d
--- tostring_d = function(t,contentonly,key)
--- if next(t) then
--- local r, rn = { }, 0
--- for k, v in next, t do
--- -- for k, v in sortedhash(t) do -- can be an option
--- rn = rn + 1
--- local tv = type(v)
--- if tv == "string" then
--- r[rn] = f_key_value(k,toeight(v))
--- elseif tv == "number" then
--- r[rn] = f_key_number(k,v)
--- -- elseif tv == "unicode" then -- can't happen
--- -- r[rn] = f_key_value(k,tosixteen(v))
--- elseif tv == "table" then
--- local mv = getmetatable(v)
--- if mv and mv.__lpdftype then
--- -- if v == t then
--- -- report_objects("ignoring circular reference in dirctionary")
--- -- r[rn] = f_key_null(k)
--- -- else
--- r[rn] = f_key_value(k,tostring(v))
--- -- end
--- elseif v[1] then
--- r[rn] = f_key_value(k,tostring_a(v))
--- else
--- r[rn] = f_key_value(k,tostring_d(v))
--- end
--- else
--- r[rn] = f_key_value(k,tostring(v))
--- end
--- end
--- if contentonly then
--- return concat(r," ")
--- elseif key then
--- return f_key_dictionary(key,r)
--- else
--- return f_dictionary(r)
--- end
--- elseif contentonly then
--- return ""
--- else
--- return "<< >>"
--- end
--- end
-
tostring_d = function(t,contentonly,key)
if next(t) then
local r, n = { }, 0