summaryrefslogtreecommitdiff
path: root/tex
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2011-02-01 22:02:00 +0100
committerHans Hagen <pragma@wxs.nl>2011-02-01 22:02:00 +0100
commit0667359a3ffe041c89f14a0e6a713bb9dd5acb43 (patch)
tree6c37c1873aff932fbbd8839cea2e7d12f5049e72 /tex
parentdb041f9c17c781e6fb4badbe31ff855f66f20a4f (diff)
downloadcontext-0667359a3ffe041c89f14a0e6a713bb9dd5acb43.tar.gz
beta 2011.02.01 22:02
Diffstat (limited to 'tex')
-rw-r--r--tex/context/base/cont-new.mkii2
-rw-r--r--tex/context/base/cont-new.mkiv2
-rw-r--r--tex/context/base/context.mkii2
-rw-r--r--tex/context/base/context.mkiv2
-rw-r--r--tex/context/base/data-lst.lua28
-rw-r--r--tex/context/base/data-pre.lua35
-rw-r--r--tex/context/base/data-res.lua444
-rw-r--r--tex/context/base/data-tmp.lua2
-rw-r--r--tex/context/base/font-syn.lua9
-rw-r--r--tex/context/base/l-pdfview.lua10
-rw-r--r--tex/context/base/luat-exe.lua8
-rw-r--r--tex/context/base/luat-fio.lua2
-rw-r--r--tex/context/base/status-files.pdfbin8943 -> 8941 bytes
-rw-r--r--tex/generic/context/luatex-fonts-merged.lua2
14 files changed, 229 insertions, 319 deletions
diff --git a/tex/context/base/cont-new.mkii b/tex/context/base/cont-new.mkii
index 450c575db..2b199b518 100644
--- a/tex/context/base/cont-new.mkii
+++ b/tex/context/base/cont-new.mkii
@@ -11,7 +11,7 @@
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
-\newcontextversion{2011.02.01 15:28}
+\newcontextversion{2011.02.01 22:02}
%D This file is loaded at runtime, thereby providing an
%D excellent place for hacks, patches, extensions and new
diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv
index 3b0ce06db..8a557e7a7 100644
--- a/tex/context/base/cont-new.mkiv
+++ b/tex/context/base/cont-new.mkiv
@@ -11,7 +11,7 @@
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
-\newcontextversion{2011.02.01 15:28}
+\newcontextversion{2011.02.01 22:02}
%D This file is loaded at runtime, thereby providing an
%D excellent place for hacks, patches, extensions and new
diff --git a/tex/context/base/context.mkii b/tex/context/base/context.mkii
index 987fcd995..b98d076be 100644
--- a/tex/context/base/context.mkii
+++ b/tex/context/base/context.mkii
@@ -20,7 +20,7 @@
%D your styles an modules.
\edef\contextformat {\jobname}
-\edef\contextversion{2011.02.01 15:28}
+\edef\contextversion{2011.02.01 22:02}
%D For those who want to use this:
diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv
index d2997ebac..0d60cf7e8 100644
--- a/tex/context/base/context.mkiv
+++ b/tex/context/base/context.mkiv
@@ -20,7 +20,7 @@
%D your styles an modules.
\edef\contextformat {\jobname}
-\edef\contextversion{2011.02.01 15:28}
+\edef\contextversion{2011.02.01 22:02}
%D For those who want to use this:
diff --git a/tex/context/base/data-lst.lua b/tex/context/base/data-lst.lua
index f1463fb45..c84853e81 100644
--- a/tex/context/base/data-lst.lua
+++ b/tex/context/base/data-lst.lua
@@ -27,12 +27,36 @@ local function list(list,report,pattern)
local instance = resolvers.instance
local report = report or texio.write_nl
local sorted = table.sortedkeys(list)
+ local result = { }
for i=1,#sorted do
local key = sorted[i]
- if pattern == "" or find(upper(key),pattern) then
- report(format('%s %s=%s',instance.origins[key] or "---",key,tabstr(list[key])))
+ if key ~= "" and (pattern == "" or find(upper(key),pattern)) then
+ local raw = tabstr(rawget(list,key))
+ local val = tabstr(list[key])
+ local res = resolvers.resolve(val)
+ if raw and raw ~= "" then
+ if raw == val then
+ if val == res then
+ result[#result+1] = { key, raw }
+ else
+ result[#result+1] = { key, format('%s => %s',raw,res) }
+ end
+ else
+ if val == res then
+ result[#result+1] = { key, format('%s => %s',raw,val) }
+ else
+ result[#result+1] = { key, format('%s => %s => %s',raw,val,res) }
+ end
+ end
+ else
+ result[#result+1] = { key, "unset" }
+ end
end
end
+ utilities.formatters.formatcolumns(result)
+ for i=1,#result do
+ report(result[i])
+ end
end
function resolvers.listers.variables (report,pattern) list(resolvers.instance.variables, report,pattern) end
diff --git a/tex/context/base/data-pre.lua b/tex/context/base/data-pre.lua
index 9cf1f0a8c..44751ae5a 100644
--- a/tex/context/base/data-pre.lua
+++ b/tex/context/base/data-pre.lua
@@ -15,16 +15,16 @@ if not modules then modules = { } end modules ['data-pre'] = {
--~ print(resolvers.resolve("abc env:tmp file:cont-en.tex path:cont-en.tex full:cont-en.tex rel:zapf/one/p-chars.tex"))
-local upper, lower, gsub = string.upper, string.lower, string.gsub
+local resolvers = resolvers
+local prefixes = utilities.storage.allocate()
+resolvers.prefixes = prefixes
-local resolvers = resolvers
+local gsub = string.gsub
+local cleanpath, findgivenfile, expansion = resolvers.cleanpath, resolvers.findgivenfile, resolvers.expansion
+local getenv = resolvers.getenv -- we can probably also use resolvers.expansion
-local prefixes = { }
-
-local getenv, cleanpath, findgivenfile = resolvers.getenv, resolvers.cleanpath, resolvers.findgivenfile
-
-prefixes.environment = function(str) -- getenv is case insensitive anyway
- return cleanpath(getenv(str) or getenv(upper(str)) or getenv(lower(str)) or "")
+prefixes.environment = function(str)
+ return cleanpath(expansion(str))
end
prefixes.relative = function(str,n)
@@ -113,20 +113,11 @@ local function _resolve_(method,target)
end
end
---~ local function resolve(str) -- use schemes
---~ if type(str) == "table" then
---~ for k=1,#str do
---~ local v = str[k]
---~ str[k] = resolve(v) or v
---~ end
---~ elseif str and str ~= "" then
---~ str = gsub(str,"([a-z]+):([^ \"\']*)",_resolve_)
---~ end
---~ return str
---~ end
-
-local resolved = { }
-local abstract = { }
+local resolved, abstract = { }, { }
+
+function resolvers.resetresolve(str)
+ resolved, abstract = { }, { }
+end
local function resolve(str) -- use schemes, this one is then for the commandline only
local res = resolved[str]
diff --git a/tex/context/base/data-res.lua b/tex/context/base/data-res.lua
index 49152f56f..c654aeeea 100644
--- a/tex/context/base/data-res.lua
+++ b/tex/context/base/data-res.lua
@@ -16,7 +16,7 @@ if not modules then modules = { } end modules ['data-res'] = {
local format, gsub, find, lower, upper, match, gmatch = string.format, string.gsub, string.find, string.lower, string.upper, string.match, string.gmatch
local concat, insert, sortedkeys = table.concat, table.insert, table.sortedkeys
-local next, type = next, type
+local next, type, rawget, setmetatable = next, type, rawget, setmetatable
local os = os
local P, S, R, C, Cc, Cs, Ct, Carg = lpeg.P, lpeg.S, lpeg.R, lpeg.C, lpeg.Cc, lpeg.Cs, lpeg.Ct, lpeg.Carg
@@ -75,20 +75,89 @@ resolvers.defaultsuffixes = { "tex" } -- "mkiv", "cld" -- too tricky
resolvers.instance = resolvers.instance or nil -- the current one (slow access)
local instance = resolvers.instance or nil -- the current one (fast access)
-function resolvers.newinstance()
+-- An instance has an environment (coming from the outside, kept raw), variables
+-- (coming from the configuration file), and expansions (variables with nested
+-- variables replaced). One can push something into the outer environment and
+-- its internal copy, but only the later one will be the raw unprefixed variant.
+
+function resolvers.setenv(key,value)
+ if instance then
+ -- this one will be consulted first when we stay inside
+ -- the current environment
+ instance.environment[key] = value
+ -- we feed back into the environment, and as this is used
+ -- by other applications (via os.execute) we need to make
+ -- sure that prefixes are resolved
+ ossetenv(key,resolvers.resolve(value))
+ end
+end
+
+-- Beware we don't want empty here as this one can be called early on
+-- and therefore we use rawget.
+
+local function getenv(key)
+ local value = rawget(instance.environment,key)
+ if value and value ~= "" then
+ return value
+ else
+ local e = osgetenv(key)
+ return e ~= nil and e ~= "" and checkedvariable(e) or ""
+ end
+end
+
+resolvers.getenv = getenv
+resolvers.env = getenv
+
+-- We are going to use some metatable trickery where we backtrack from
+-- expansion to variable to environment.
+
+local function resolve(k)
+ return instance.expansions[k]
+end
+
+local dollarstripper = lpeg.stripper("$")
+local inhibitstripper = P("!")^0 * Cs(P(1)^0)
+local backslashswapper = lpeg.replacer("\\","/")
+
+local somevariable = P("$") / ""
+local somekey = C(R("az","AZ","09","__","--")^1)
+local somethingelse = P(";") * ((1-S("!{}/\\"))^1 * P(";") / "")
+ + P(";") * (P(";") / "")
+ + P(1)
+local variableexpander = Cs( (somevariable * (somekey/resolve) + somethingelse)^1 )
+
+local cleaner = P("\\") / "/" + P(";") * S("!{}/\\")^0 * P(";")^1 / ";"
+local variablecleaner = Cs((cleaner + P(1))^0)
+
+local somevariable = R("az","AZ","09","__","--")^1 / resolve
+local variable = (P("$")/"") * (somevariable + (P("{")/"") * somevariable * (P("}")/""))
+local variableresolver = Cs((variable + P(1))^0)
+
+local function expandedvariable(var)
+ return lpegmatch(variableexpander,var) or var
+end
+
+function resolvers.expandvariables()
+ -- no longer needed
+end
+
+local function collapse_configuration_data()
+ -- no longer needed
+end
+
+function resolvers.newinstance() -- todo: all vars will become lowercase and alphanum only
+
+ local environment, variables, expansions, order = allocate(), allocate(), allocate(), allocate()
local newinstance = {
- progname = 'context',
- engine = 'luatex',
- environment = allocate(),
- variables = allocate(),
- expansions = allocate(),
+ environment = environment,
+ variables = variables,
+ expansions = expansions,
+ order = order,
files = allocate(),
setups = allocate(),
- order = allocate(),
found = allocate(),
foundintrees = allocate(),
- origins = allocate(),
hashes = allocate(),
specification = allocate(),
lists = allocate(),
@@ -103,11 +172,42 @@ function resolvers.newinstance()
force_suffixes = true,
}
- local ne = newinstance.environment
-
- for k, v in next, osenv do
- ne[upper(k)] = checkedvariable(v)
- end
+ setmetatable(variables, { __index = function(t,k)
+ for i=1,#order do
+ v = order[i][k]
+ if v ~= nil then
+ t[k] = v
+ return v
+ end
+ end
+ if v == nil then
+ v = ""
+ end
+ t[k] = v
+ return v
+ end } )
+
+ setmetatable(environment, { __index = function(t,k)
+ v = osgetenv(k)
+ if v == nil then
+ v = variables[k]
+ end
+ if v ~= nil then
+ v = checkedvariable(v) or ""
+ end
+ t[k] = v
+ return v
+ end } )
+
+ setmetatable(expansions, { __index = function(t,k)
+ local v = environment[k]
+ if type(v) == "string" then
+ v = lpegmatch(variableresolver,v)
+ v = lpegmatch(variablecleaner,v)
+ end
+ t[k] = v
+ return v
+ end } )
return newinstance
@@ -128,53 +228,9 @@ local function reset_hashes()
instance.found = { }
end
-function resolvers.setenv(key,value)
- if instance then
- instance.environment[key] = value
- ossetenv(key,resolvers.resolve(value)) -- brr, we need info about the var being a path
- end
-end
-
-local function getenv(key)
- local value = instance.environment[key]
- if value and value ~= "" then
- return value
- else
- local e = osgetenv(key)
- return e ~= nil and e ~= "" and checkedvariable(e) or ""
- end
-end
-
-resolvers.getenv = getenv
-resolvers.env = getenv
-
-local dollarstripper = lpeg.stripper("$")
-local inhibitstripper = P("!")^0 * Cs(P(1)^0)
-local backslashswapper = lpeg.replacer("\\","/")
-
-local somevariable = P("$") / ""
-local somekey = C(R("az","AZ","09","__","--")^1)
-local somethingelse = P(";") * ((1-S("!{}/\\"))^1 * P(";") / "")
- + P(";") * (P(";") / "")
- + P(1)
-
---~ local function resolve(key)
---~ local value = instance.variables[key] or ""
---~ return (value ~= "" and value) or getenv(key) or ""
---~ end
---~
---~ local pattern = Cs( (somevariable * (somekey/resolve) + somethingelse)^1 )
---~
---~ local function expandvars(lst) -- simple vars
---~ for k=1,#lst do
---~ local lk = lst[k]
---~ lst[k] = lpegmatch(pattern,lk) or lk
---~ end
---~ end
-
local slash = P("/")
-local pattern = Cs (
+local pathexpressionpattern = Cs (
Cc("^") * (
Cc("%") * S(".-")
+ slash^2 * P(-1) / "/.*"
@@ -192,64 +248,19 @@ local function makepathexpression(str)
else
local c = cache[str]
if not c then
- c = lpegmatch(pattern,str)
+ c = lpegmatch(pathexpressionpattern,str)
cache[str] = c
end
return c
end
end
-local function resolve(key)
- local value = instance.variables[key]
- if value and value ~= "" then
- return value
- end
- local value = instance.environment[key]
- if value and value ~= "" then
- return value
- end
- local e = osgetenv(key)
- return e ~= nil and e ~= "" and checkedvariable(e) or ""
-end
-
-local pattern = Cs( (somevariable * (somekey/resolve) + somethingelse)^1 )
-
-local function expandedvariable(var) -- simple vars
- return lpegmatch(pattern,var) or var
-end
-
-local function entry(entries,name)
- if name and name ~= "" then
- name = lpegmatch(dollarstripper,name)
- local result = entries[instance.progname .. '.' .. name] or entries[name]
- if result then
- return result
- else
- result = getenv(name)
- if result then
- instance.variables[name] = result
- resolvers.expandvariables()
- return instance.expansions[name] or ""
- end
- end
- end
- return ""
-end
-
-local function is_entry(entries,name)
- if name and name ~= "" then
- name = lpegmatch(dollarstripper,name)
- return (entries[instance.progname .. '.' .. name] or entries[name]) ~= nil
- else
- return false
- end
-end
-
local function reportcriticalvariables()
if trace_locating then
for i=1,#resolvers.criticalvars do
- local v = resolvers.criticalvars[i]
- report_resolvers("variable '%s' set to '%s'",v,getenv(v) or "unknown")
+ local k = resolvers.criticalvars[i]
+ local v = resolvers.getenv(k) or "unknown" -- this one will not resolve !
+ report_resolvers("variable '%s' set to '%s'",k,v)
end
report_resolvers()
end
@@ -267,18 +278,13 @@ local function identify_configuration_files()
resolvers.luacnfstate = "environment"
end
reportcriticalvariables()
- resolvers.expandvariables()
local cnfpaths = expandedpathfromlist(resolvers.splitpath(cnfspec))
- -- expandvars(cnfpaths) --- hm
local luacnfname = resolvers.luacnfname
for i=1,#cnfpaths do
local filename = collapsepath(filejoin(cnfpaths[i],luacnfname))
- local realname = resolvers.resolve(filename) -- no shortcut
- -- if trace_locating then
- -- report_resolvers("checking configuration file '%s'",filename)
- -- end
+ local realname = resolvers.resolve(filename)
if lfs.isfile(realname) then
- specification[#specification+1] = filename -- or realname?
+ specification[#specification+1] = filename
if trace_locating then
report_resolvers("found configuration file '%s'",realname)
end
@@ -311,42 +317,25 @@ local function load_configuration_files()
report_resolvers("loading configuration file '%s'",filename)
report_resolvers()
end
- -- flattening is easier to deal with as we need to collapse
- local t = { }
- for k, v in next, data do -- k = progname or setter or variables
- if v ~= unset_variable then
- local kind = type(v)
- if kind == "string" then
- -- still supported, but preferably use the variables subtable
- t[k] = v
- elseif kind == "table" then
- if initializesetter(filename,k,v) then
- -- directives, experiments, trackers, ...
- else
- for kk, vv in next, v do -- vv = variable
- if vv ~= unset_variable then
- if type(vv) == "string" then
- -- t[kk.."."..k] = vv
- if k == "variables" then
- -- special table, shared variables can be grouped
- t[kk] = vv
- else
- -- category.variable (progname)
- t[k .. "." .. kk] = vv
- end
- end
- end
- end
- end
- else
- -- report_resolvers("strange key '%s' in configuration file '%s'",k,filename)
+ local variables = data.variables or { }
+ local warning = false
+ for k, v in next, data do
+ local kind = type(v)
+ if kind == "table" then
+ initializesetter(filename,k,v)
+ elseif variables[k] == nil then
+ if trace_locating and not warning then
+ report_resolvers("variables like '%s' in configuration file '%s' should move to the 'variables' subtable",
+ k,resolvers.resolve(filename))
+ warning = true
end
+ variables[k] = v
end
end
- setups[pathname] = t
+ setups[pathname] = variables
if resolvers.luacnfstate == "default" then
-- the following code is not tested
- local cnfspec = t["TEXMFCNF"]
+ local cnfspec = variables["TEXMFCNF"]
if cnfspec then
-- we push the value into the main environment (osenv) so
-- that it takes precedence over the default one and therefore
@@ -383,29 +372,7 @@ local function load_configuration_files()
end
end
-local function collapse_configuration_data() -- potential optimization: pass start index (setup and configuration are shared)
- local order, variables, environment, origins = instance.order, instance.variables, instance.environment, instance.origins
- for i=1,#order do
- local c = order[i]
- for k,v in next, c do
- if variables[k] then
- -- okay
- else
- local ek = environment[k]
- if ek and ek ~= "" then
- variables[k], origins[k] = ek, "env"
- else
- local bv = checkedvariable(v)
- variables[k], origins[k] = bv, "cnf"
- end
- end
- end
- end
-end
-
--- scheme magic
-
--- database loading
+-- scheme magic ... database loading
local function load_file_databases()
instance.loaderror, instance.files = false, allocate()
@@ -422,30 +389,34 @@ end
local function locate_file_databases()
-- todo: cache:// and tree:// (runtime)
local texmfpaths = resolvers.expandedpathlist('TEXMF')
- for i=1,#texmfpaths do
- local path = collapsepath(texmfpaths[i])
- local stripped = lpegmatch(inhibitstripper,path) -- the !! thing
- if stripped ~= "" then
- local runtime = stripped == path
- path = resolvers.cleanpath(path)
- local spec = resolvers.splitmethod(stripped)
- if spec.scheme == "cache" or spec.scheme == "file" then
- stripped = spec.path
- elseif runtime and (spec.noscheme or spec.scheme == "file") then
- stripped = "tree:///" .. stripped
- end
- if trace_locating then
- if runtime then
- report_resolvers("locating list of '%s' (runtime)",path)
- else
- report_resolvers("locating list of '%s' (cached)",path)
+ if #texmfpaths > 0 then
+ for i=1,#texmfpaths do
+ local path = collapsepath(texmfpaths[i])
+ local stripped = lpegmatch(inhibitstripper,path) -- the !! thing
+ if stripped ~= "" then
+ local runtime = stripped == path
+ path = resolvers.cleanpath(path)
+ local spec = resolvers.splitmethod(stripped)
+ if spec.scheme == "cache" or spec.scheme == "file" then
+ stripped = spec.path
+ elseif runtime and (spec.noscheme or spec.scheme == "file") then
+ stripped = "tree:///" .. stripped
end
+ if trace_locating then
+ if runtime then
+ report_resolvers("locating list of '%s' (runtime)",path)
+ else
+ report_resolvers("locating list of '%s' (cached)",path)
+ end
+ end
+ methodhandler('locators',stripped)
end
- methodhandler('locators',stripped)
end
- end
- if trace_locating then
- report_resolvers()
+ if trace_locating then
+ report_resolvers()
+ end
+ elseif trace_locating then
+ report_resolvers("no texmf paths are defined (using TEXMF)")
end
end
@@ -518,7 +489,6 @@ function resolvers.extendtexmfvariable(specification) -- crap, we could better p
else
-- weird
end
- resolvers.expandvariables()
reset_hashes()
end
@@ -551,89 +521,16 @@ function resolvers.datastate()
return caches.contentstate()
end
-local function resolve(a)
- return instance.expansions[a] or getenv(a)
-end
-
-local cleaner = P("\\") / "/" + P(";") * S("!{}/\\")^0 * P(";")^1 / ";"
-
-local variable = R("az","AZ","09","__","--")^1 / resolve
- variable = (P("$")/"") * (variable + (P("{")/"") * variable * (P("}")/""))
-
- cleaner = Cs((cleaner + P(1))^0)
- variable = Cs((variable + P(1))^0)
-
-function resolvers.expandvariables()
- local expansions, environment, variables = allocate(), instance.environment, instance.variables
- instance.expansions = expansions
- local engine, progname = instance.engine, instance.progname
- if type(engine) ~= "string" then instance.engine, engine = "", "" end
- if type(progname) ~= "string" then instance.progname, progname = "", "" end
- if engine ~= "" then environment.engine = engine end
- if progname ~= "" then environment.progname = progname end
- for k,v in next, environment do
- expansions[k] = v
- end
- -- for k,v in next, environment do -- move environment to expansions (variables are already in there)
- -- if expansions[k] == nil then expansions[k] = v end
- -- end
- for k,v in next, variables do -- move variables to expansions
- if expansions[k] == nil then expansions[k] = v end
- end
- repeat
- local busy = false
- for k,v in next, expansions do
- local s = lpegmatch(variable,v)
- if s ~= v then
- busy = true
- expansions[k] = s
- end
- end
- until not busy
-
- for k,v in next, expansions do
- expansions[k] = lpegmatch(cleaner,v)
- end
-end
-
---~ -- this can become:
-
---~ function resolvers.expandvariables()
---~ local expansions, environment, variables = allocate(), instance.environment, instance.variables
---~ instance.expansions = expansions
---~ local engine, progname = instance.engine, instance.progname
---~ if type(engine) ~= "string" then instance.engine, engine = "", "" end
---~ if type(progname) ~= "string" then instance.progname, progname = "", "" end
---~ if engine ~= "" then environment.engine = engine end
---~ if progname ~= "" then environment.progname = progname end
---~ setmetatable(expansions, { __index = function(t,k)
---~ local v = environment[k]
---~ if v == nil then
---~ v = variables[k]
---~ end
---~ if type(v) == "string" then
---~ v = lpegmatch(variable,v)
---~ v = lpegmatch(cleaner,v)
---~ end
---~ t[k] = v
---~ return v
---~ end } )
---~ end
-
function resolvers.variable(name)
- return entry(instance.variables,name)
+ local name = name and lpegmatch(dollarstripper,name)
+ local result = name and instance.variables[name]
+ return result ~= nil and result or ""
end
function resolvers.expansion(name)
- return entry(instance.expansions,name)
-end
-
-function resolvers.is_variable(name)
- return is_entry(instance.variables,name)
-end
-
-function resolvers.is_expansion(name)
- return is_entry(instance.expansions,name)
+ local name = name and lpegmatch(dollarstripper,name)
+ local result = name and instance.expansions[name]
+ return result ~= nil and result or ""
end
function resolvers.unexpandedpathlist(str)
@@ -762,9 +659,8 @@ end
function resolvers.expandedpathlist(str)
if not str then
- return ep or { } -- ep ?
+ return { }
elseif instance.savelists then
- -- engine+progname hash
str = lpegmatch(dollarstripper,str)
if not instance.lists[str] then -- cached
local lst = made_list(instance,resolvers.splitpath(resolvers.expansion(str)))
@@ -921,7 +817,7 @@ local function collect_instance_files(filename,askedformat,allresults) -- todo :
filename = collapsepath(filename)
-- speed up / beware: format problem
if instance.remember and not allresults then
- stamp = filename .. "--" .. instance.engine .. "--" .. instance.progname .. "--" .. askedformat
+ stamp = filename .. "--" .. askedformat
if instance.found[stamp] then
if trace_locating then
report_resolvers("remembered file '%s'",filename)
@@ -1315,8 +1211,6 @@ function resolvers.load(option)
statistics.starttiming(instance)
identify_configuration_files()
load_configuration_files()
- collapse_configuration_data()
- resolvers.expandvariables()
if option ~= "nofiles" then
load_databases()
resolvers.automount()
diff --git a/tex/context/base/data-tmp.lua b/tex/context/base/data-tmp.lua
index 3d265a71a..587a93544 100644
--- a/tex/context/base/data-tmp.lua
+++ b/tex/context/base/data-tmp.lua
@@ -105,7 +105,7 @@ local function identify()
if texmfcaches then
for k=1,#texmfcaches do
local cachepath = texmfcaches[k]
- cachepath = resolvers.getenv(cachepath)
+ cachepath = resolvers.expansion(cachepath) -- was getenv
if cachepath ~= "" then
cachepath = resolvers.resolve(cachepath)
cachepath = resolvers.cleanpath(cachepath)
diff --git a/tex/context/base/font-syn.lua b/tex/context/base/font-syn.lua
index 4420c6092..c5ae5dc75 100644
--- a/tex/context/base/font-syn.lua
+++ b/tex/context/base/font-syn.lua
@@ -50,9 +50,12 @@ names.saved = false
names.loaded = false
names.be_clever = true
names.enabled = true
-names.autoreload = toboolean(os.getenv('MTX.FONTS.AUTOLOAD') or os.getenv('MTX_FONTS_AUTOLOAD') or "no")
names.cache = containers.define("fonts","data",names.version,true)
+local autoreload = false
+
+directives.register("fonts.autoreload", function(v) autoreload = toboolean(v) end)
+
--[[ldx--
<p>A few helpers.</p>
--ldx]]--
@@ -256,7 +259,7 @@ function names.getpaths(trace)
collect(resolvers.expandedpathlist(path),path)
end
if xml then
- local confname = resolvers.getenv("FONTCONFIG_FILE") or ""
+ local confname = resolvers.expansion("FONTCONFIG_FILE") or ""
if confname == "" then
confname = names.fontconfigfile or ""
end
@@ -919,7 +922,7 @@ local reloaded = false
local function is_reloaded()
if not reloaded then
local data = names.data
- if names.autoreload then
+ if autoreload then
local c_status = table.serialize(resolvers.datastate())
local f_status = table.serialize(data.datastate)
if c_status == f_status then
diff --git a/tex/context/base/l-pdfview.lua b/tex/context/base/l-pdfview.lua
index b4285fd8a..f263bda8d 100644
--- a/tex/context/base/l-pdfview.lua
+++ b/tex/context/base/l-pdfview.lua
@@ -32,9 +32,11 @@ else
opencalls['okular'] = 'okular --unique'
end
-pdfview.METHOD = "MTX_PDFVIEW_METHOD"
-pdfview.method = resolvers.getenv(pdfview.METHOD) or 'default'
-pdfview.method = (opencalls[pdfview.method] and pdfview.method) or 'default'
+pdfview.method = false
+
+directives.register("pdfview.method", function(v)
+ pdfview.method = (opencalls[v] and v) or 'default'
+end)
function pdfview.setmethod(method)
if method and opencalls[method] then
@@ -47,7 +49,7 @@ function pdfview.methods()
end
function pdfview.status()
- return format("pdfview methods: %s, current method: %s, MTX_PDFVIEW_METHOD=%s",pdfview.methods(),pdfview.method,resolvers.getenv(pdfview.METHOD) or "<unset>")
+ return format("pdfview methods: %s, current method: %s (directives_pdfview_method)",pdfview.methods(),pdfview.method)
end
local openedfiles = { }
diff --git a/tex/context/base/luat-exe.lua b/tex/context/base/luat-exe.lua
index fe7968896..76c5021b1 100644
--- a/tex/context/base/luat-exe.lua
+++ b/tex/context/base/luat-exe.lua
@@ -72,12 +72,10 @@ local execution_mode directives.register("system.executionmode", function(v) ex
local execution_list directives.register("system.executionlist", function(v) execution_list = v end)
function executers.check()
- local mode = execution_mode or resolvers.variable("command_mode") -- or ... will become obsolete
- local list = execution_list or resolvers.variable("command_list") -- or ... will become obsolete
- if mode == "none" then
+ if execution_mode == "none" then
finalize()
- elseif mode == "list" and list ~= "" then
- for s in gmatch("[^%s,]",list) do
+ elseif execution_mode == "list" and execution_list ~= "" then
+ for s in gmatch("[^%s,]",execution_list) do
register(s)
end
finalize()
diff --git a/tex/context/base/luat-fio.lua b/tex/context/base/luat-fio.lua
index d659e05e0..64b51d58d 100644
--- a/tex/context/base/luat-fio.lua
+++ b/tex/context/base/luat-fio.lua
@@ -20,8 +20,6 @@ if not resolvers.instance then
resolvers.reset()
- resolvers.instance.progname = 'context'
- resolvers.instance.engine = 'luatex'
resolvers.instance.validfile = resolvers.validctxfile
-- trackers.enable("resolvers.*")
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index 1bf57ea1b..d15693206 100644
--- a/tex/context/base/status-files.pdf
+++ b/tex/context/base/status-files.pdf
Binary files differ
diff --git a/tex/generic/context/luatex-fonts-merged.lua b/tex/generic/context/luatex-fonts-merged.lua
index b6e46f53f..471ba0986 100644
--- a/tex/generic/context/luatex-fonts-merged.lua
+++ b/tex/generic/context/luatex-fonts-merged.lua
@@ -1,6 +1,6 @@
-- merged file : luatex-fonts-merged.lua
-- parent file : luatex-fonts.lua
--- merge date : 02/01/11 15:28:09
+-- merge date : 02/01/11 22:02:04
do -- begin closure to overcome local limits and interference