if not modules then modules = { } end modules ['mtx-server-ctx-fonttest'] = {
version = 1.001,
comment = "Font Feature Tester",
author = "Hans Hagen",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
-- probably too much but who cares
dofile(resolvers.findfile("trac-lmx.lua","tex"))
dofile(resolvers.findfile("char-def.lua","tex"))
dofile(resolvers.findfile("font-ini.lua","tex"))
dofile(resolvers.findfile("font-log.lua","tex"))
dofile(resolvers.findfile("font-con.lua","tex"))
dofile(resolvers.findfile("font-cft.lua","tex"))
dofile(resolvers.findfile("font-enc.lua","tex"))
dofile(resolvers.findfile("font-agl.lua","tex"))
dofile(resolvers.findfile("font-cid.lua","tex"))
dofile(resolvers.findfile("font-map.lua","tex"))
dofile(resolvers.findfile("font-otr.lua","tex"))
dofile(resolvers.findfile("font-web.lua","tex"))
dofile(resolvers.findfile("font-cff.lua","tex"))
dofile(resolvers.findfile("font-ttf.lua","tex"))
dofile(resolvers.findfile("font-dsp.lua","tex"))
dofile(resolvers.findfile("font-hsh.lua","tex"))
dofile(resolvers.findfile("font-oti.lua","tex"))
dofile(resolvers.findfile("font-ott.lua","tex"))
dofile(resolvers.findfile("font-otl.lua","tex"))
-- dofile(resolvers.findfile("font-oto.lua","tex"))
-- dofile(resolvers.findfile("font-otj.lua","tex"))
dofile(resolvers.findfile("font-oup.lua","tex"))
-- dofile(resolvers.findfile("font-ots.lua","tex"))
-- dofile(resolvers.findfile("font-otd.lua","tex"))
-- dofile(resolvers.findfile("font-otc.lua","tex"))
-- dofile(resolvers.findfile("font-oth.lua","tex"))
-- dofile(resolvers.findfile("font-osd.lua","tex"))
-- dofile(resolvers.findfile("font-ocl.lua","tex"))
dofile(resolvers.findfile("font-onr.lua","tex"))
dofile(resolvers.findfile("font-syn.lua","tex"))
dofile(resolvers.findfile("font-mis.lua","tex"))
local format, gsub, concat, match, find = string.format, string.gsub, table.concat, string.match, string.find
local formatters = string.formatters
local report = logs.reporter("ctx-fonttest")
local sample_line = "This is a sample line!"
local tempname = "mtx-server-ctx-fonttest-temp"
local temppath = caches.setfirstwritablefile("temp","mtx-server-ctx-fonttest")
local basename = "mtx-server-ctx-fonttest-data.lua"
local basepath = temppath
local remove_suffixes = { "tex", "pdf", "log" }
local what_options = { "trace", "basemode" }
for i=1,#remove_suffixes do
os.remove(file.join(temppath,file.addsuffix(tempname,remove_suffixes[i])))
end
local foolcache = 0
local function makename(name,new)
if new then
foolcache = foolcache > 25 and 1 or foolcache + 1
end
return formatters["%s-%02i"](name,foolcache)
end
-- nowadays i would use the more advanced template mechanism with named variables
local process_templates = { }
-- %\definedfont[name:%s*sample]
process_templates.default = formatters [ [[
\starttext
\setupdirections[bidi=one]
\definefontfeature[sample][analyze=yes,%s]
\definedfont[name:%s*none]
\startTEXpage[offset=3pt]
\detokenize{%s}
\blank
\definedfont[name:%s*sample]
\detokenize{%s}
\stopTEXpage
\stoptext
]] ]
process_templates.cache = formatters [ [[
\starttext
\definedfont[name:%s]
\startTEXpage[offset=3pt]
cached: \detokenize{%s}
\stopTEXpage
\stoptext
]] ]
process_templates.trace = formatters [ [[
\usemodule[fnt-20]
\definefontfeature[sample][%s]
\setupcolors[state=start]
\setupdirections[bidi=global]
\setvariables
[otftracker]
[title=Test Run,
font=name:%s,
direction=0,
features=sample,
sample={\detokenize{%s}}]
]] ]
local javascripts = formatters [ [[
function selected_radio(name) {
var form = document.forms["main-form"] ;
var script = form.elements[name] ;
if (script) {
var n = script.length ;
if (n) {
for (var i=0; i<n; i++) {
if (script[i].checked) {
return script[i].value ;
}
}
}
}
return "" ;
}
function reset_valid() {
var fields = document.getElementsByTagName("span") ;
for (var i=0; i<fields.length; i++) {
var e = fields[i]
if (e) {
if (e.className == "valid") {
e.className = "" ;
}
}
}
}
function set_valid() {
var script = selected_radio("script") ;
var language = selected_radio("language") ;
if (script && language) {
var s = feature_hash[script] ;
if (s) {
for (l in s) {
var e = document.getElementById("t-l-" + l) ;
if (e) {
e.className = "valid" ;
}
}
var l = s[language] ;
if (l) {
for (i in l) {
var e = document.getElementById("t-f-" + i) ;
if (e) {
e.className = "valid" ;
}
}
}
var e = document.getElementById("t-s-" + script) ;
if (e) {
e.className = "valid" ;
}
}
}
}
function check_form() {
reset_valid() ;
set_valid() ;
}
function check_script() {
reset_valid() ;
set_valid() ;
}
function check_language() {
reset_valid() ;
set_valid() ;
}
function check_feature() {
// not needed
}
]] ]
local jitmode = false -- assumes local use (one user as shared)
local run_context_normal = formatters["mtxrun --path=%q --script context --once --batchmode %q"]
local run_context_jitted = formatters["mtxrun --path=%q --script context --once --batchmode --jit %q"]
local function runcontext(temppath,filename)
local start = os.clock()
local command = (jitmode and run_context_jitted or run_context_normal)(temppath,filename)
report("temppath: %s",temppath)
report("filename: %s",filename)
report("command: %s",command)
os.execute(command)
return os.clock() - start
end
local function identifyfonts()
local command = "mtxrun --script font --reload"
report("command: %s",command)
os.execute(command)
end
local cache = { }
local function showfeatures(f)
if f then
report("processing font '%s'",f)
local features = cache[f]
if features == nil then
features = fonts.helpers.getfeatures(resolvers.findfile(f))
if not features then
report("building cache for '%s'",f)
local usedname = file.addsuffix(tempname,"tex")
io.savedata(file.join(temppath,usedname),process_templates.cache(f,f))
runcontext(temppath,usedname)
features = fonts.helpers.getfeatures(f)
end
cache[f] = features or false
report("caching info of '%s'",f)
else
report("using cached info of '%s'",f)
end
if features then
local scr, lan, fea, rev = { }, { }, { }, { }
local function show(what)
local data = features[what]
if data and next(data) then
for f,ff in next, data do
if find(f,"<") then
-- ignore aat for the moment
else
fea[f] = true
for s, ss in next, ff do
if find(s,"%*") then
-- ignore *
else
scr[s] = true
local rs = rev[s] if not rs then rs = {} rev[s] = rs end
for k, l in next, ss do
if find(k,"%*") then
-- ignore *
else
lan[k] = true
local rsk = rs[k] if not rsk then rsk = { } rs[k] = rsk end
rsk[f] = true
end
end
end
end
end
end
end
end
for what, v in table.sortedhash(features) do
show(what)
end
-- we could json this
local stupid = { }
stupid[#stupid+1] = "var feature_hash = new Array ;"
for s, sr in next, rev do
stupid[#stupid+1] = formatters["feature_hash['%s'] = new Array ;"](s)
for l, lr in next, sr do
stupid[#stupid+1] = formatters["feature_hash['%s']['%s'] = new Array ;"](s,l)
for f, fr in next, lr do
stupid[#stupid+1] = formatters["feature_hash['%s']['%s']['%s'] = true ;"](s,l,f)
end
end
end
-- gpos feature script languages
return {
scripts = scr,
languages = lan,
features = fea,
javascript = concat(stupid,"\n")
}
end
end
end
local template_h = formatters [ [[
<tr>
<th>safe name </th>
<th>family name </th>
<th>style-variant-weight-width </th>
<th>font name </th>
<th>weight </th>
<th>filename</th>
</tr>]] ]
local template_d = formatters [ [[
<tr>
<td><a href='mtx-server-ctx-fonttest.lua?selection=%s'>%s</a> </td>
<td>%s </td>
<td>%s-%s-%s-%s </td>
<td>%s </td>
<td>%s </td>
<td>%s</td>
</tr>]] ]
local function select_font()
local t = fonts.names.list(".*",false,true)
if t then
local listoffonts = { }
listoffonts[#listoffonts+1] = "<h1>Fonts</h1><br/>"
listoffonts[#listoffonts+1] = "<table>"
listoffonts[#listoffonts+1] = template_h()
for k, v in table.sortedhash(t) do
local kind = v.format
if kind == "otf" or kind == "ttf" or kind == "ttc" then
local fontname = v.fontname
listoffonts[#listoffonts+1] = template_d(
fontname,
fontname,
v.familyname or "",
t.variant or "normal",
t.weight or "normal",
t.width or "normal",
t.style or "normal",
v.rawname or fontname,
v.fontweight or "",
v.filename or ""
)
end
end
listoffonts[#listoffonts+1] = "</table>"
return concat(listoffonts,"\n")
end
return "<b>no fonts</b>"
end
local edit_template = formatters [ [[
<textarea name='sampletext' rows='5' cols='100'>%s</textarea>
<br/> <br/>name: <input type='text' name='name' size='20' value=%q/> title: <input type='text' name='title' size='40' value=%q/>
<br/> <br/>scripts: %s
<br/> <br/>languages: %s
<br/> <br/>features: %s
<br/> <br/>options: %s
]] ]
-- <embed src="%s#toolbar=0&navpanes=0&scrollbar=0" width="100%%"/>
local result_template = formatters [ [[
<br/> <br/>
<embed src="%s#view=Fit&toolbar=0&navpanes=0&scrollbar=0" width="100%%"/>
<br/> <br/> results:
<a href='%s' target="source">tex file</a>
<a href='%s' target="result">pdf file</a>
(runtime: %s)
<br/> <br/>
]] ]
local main_template = formatters [ [[
<h1>Font: %s</h1><br/>
%s
%s
]] ]
scripts.webserver.registerpath(temppath)
local function get_specification(name)
return fonts.names.resolvedspecification(name or "")
end
local function edit_font(currentfont,detail,tempname,runtime)
report("entering edit mode for '%s'",currentfont)
local specification = get_specification(currentfont)
if specification then
local htmldata = showfeatures(specification.filename)
if htmldata then
local features, languages, scripts, options = { }, { }, { }, { }
local sorted = table.sortedkeys(htmldata.scripts)
for k=1,#sorted do
local v = sorted[k]
local s = fonts.handlers.otf.tables.scripts[v] or v
if detail and v == detail.script then
scripts[#scripts+1] = formatters["<input title='%s' id='s-%s' type='radio' name='script' value='%s' onclick='check_script()' checked='checked'/> <span id='t-s-%s'>%s</span>"](s,v,v,v,v)
else
scripts[#scripts+1] = formatters["<input title='%s' id='s-%s' type='radio' name='script' value='%s' onclick='check_script()' /> <span id='t-s-%s'>%s</span>"](s,v,v,v,v)
end
end
local sorted = table.sortedkeys(htmldata.languages)
for k=1,#sorted do
local v = sorted[k]
local l = fonts.handlers.otf.tables.languages[v] or v
if detail and v == detail.language then
languages[#languages+1] = formatters["<input title='%s' id='l-%s' type='radio' name='language' value='%s' onclick='check_language()' checked='checked'/> <span id='t-l-%s'>%s</span>"](l,v,v,v,v)
else
languages[#languages+1] = formatters["<input title='%s' id='l-%s' type='radio' name='language' value='%s' onclick='check_language()' /> <span id='t-l-%s'>%s</span>"](l,v,v,v,v)
end
end
local sorted = table.sortedkeys(htmldata.features)
for k=1,#sorted do
local v = sorted[k]
local f = fonts.handlers.otf.tables.features[v] or v
if detail and detail["f-"..v] then
features[#features+1] = formatters["<input title='%s' id='f-%s' type='checkbox' name='f-%s' onclick='check_feature()' checked='checked'/> <span id='t-f-%s'>%s</span>"](f,v,v,v,v)
else
features[#features+1] = formatters["<input title='%s' id='f-%s' type='checkbox' name='f-%s' onclick='check_feature()' /> <span id='t-f-%s'>%s</span>"](f,v,v,v,v)
end
end
for k=1,#what_options do
local v = what_options[k]
if detail and detail["o-"..v] then
options[#options+1] = formatters["<input id='o-%s' type='checkbox' name='o-%s' checked='checked'/> %s"](v,v,v)
else
options[#options+1] = formatters["<input id='o-%s' type='checkbox' name='o-%s'/> %s"](v,v,v)
end
end
local e = edit_template(
detail and detail.sampletext or sample_line,
detail and detail.name or "no name",
detail and detail.title or "",
concat(scripts," "),
concat(languages," "),
concat(features," "),
concat(options," ")
)
if tempname then
local pdffile, texfile = file.replacesuffix(tempname,"pdf"), file.replacesuffix(tempname,"tex")
local r = result_template(pdffile,texfile,pdffile,runtime and formatters["%0.3f"](runtime) or "-")
return main_template(currentfont,e,r), htmldata.javascript or ""
else
return main_template(currentfont,e,""), htmldata.javascript or ""
end
else
return "error, nothing set up yet"
end
else
return "error, no info about font"
end
end
local function process_font(currentfont,detail) -- maybe just fontname
local features = {
"mode=node",
formatters["language=%s"](detail.language or "dflt"),
formatters["script=%s"](detail.script or "dflt"),
}
for k,v in next, detail do
local f = match(k,"^f%-(.*)$")
if f then
features[#features+1] = formatters["%s=yes"](f)
end
end
local variant = process_templates.default
if detail["o-trace"] then
variant = process_templates.trace
end
local sample = string.strip(detail.sampletext or "")
if sample == "" then sample = sample_line end
report("sample text: %s",sample)
dir.mkdirs(temppath)
local tempname = makename(tempname,true)
local usedname = file.addsuffix(tempname,"tex")
local fullname = file.join(temppath,usedname)
local data = variant(concat(features,","),currentfont,sample,currentfont,sample)
io.savedata(fullname,data)
io.flush()
local runtime = runcontext(temppath,usedname)
return edit_font(currentfont,detail,tempname,runtime)
end
local tex_template = formatters [ [[
<h1>Font: %s</h1><br/>
<pre><tt>
%s
</tt></pre>
]] ]
local function show_source(currentfont,detail)
local tempname = makename(tempname)
if tempname and tempname ~= "" then
local data = io.loaddata(file.join(temppath,file.replacesuffix(tempname,"tex"))) or "no source yet"
return tex_template(currentfont,data)
else
return "no source file"
end
end
local function show_log(currentfont,detail)
local tempname = makename(tempname)
if tempname and tempname ~= "" then
local data = io.loaddata(file.join(temppath,file.replacesuffix(tempname,'log'))) or "no log file yet"
data = gsub(data,"[%s%%]*begin of optionfile.-end of optionfile[%s%%]*","\n")
return tex_template(currentfont,data)
else
return "no log file"
end
end
-- much nicer would be an lmx template
local function show_font(currentfont,detail)
local specification = get_specification(currentfont)
local features = fonts.helpers.getfeatures(specification.filename)
local result = { }
result[#result+1] = formatters["<h1>Font: %s</h1><br/>"](currentfont)
result[#result+1] = "<table>"
result[#result+1] = formatters["<tr><td class='tc' style='width:10em'>fontname </td><td style='width:20em'>%s</td>"] (specification.fontname or "-")
result[#result+1] = formatters[" <td class='tc' style='width:10em'>designsize </td><td style='width:20em'>%s</td></tr>"](specification.designsize or "-")
result[#result+1] = formatters["<tr><td class='tc' style='width:10em'>fullname </td><td style='width:20em'>%s</td>"] (specification.fullname or "-")
result[#result+1] = formatters[" <td class='tc' style='width:10em'>minimumsize</td><td style='width:20em'>%s</td></tr>"](specification.minsize or "-")
result[#result+1] = formatters["<tr><td class='tc' style='width:10em'>filename </td><td style='width:20em'>%s</td>"] (specification.fontfile or "-")
result[#result+1] = formatters[" <td class='tc' style='width:10em'>maximumsize</td><td style='width:20em'>%s</td></tr>"](specification.maxsize or "-")
result[#result+1] = formatters["<tr><td class='tc' style='width:10em'>rawname </td><td style='width:20em'>%s</td>"] (specification.rawname or "-")
result[#result+1] = formatters[" <td class='tc' style='width:10em'>fontweight </td><td style='width:20em'>%s</td></tr>"](specification.fontweight or "-")
result[#result+1] = formatters["<tr><td class='tc' style='width:10em'>familyname </td><td style='width:20em'>%s</td>"] (specification.familyname or "-")
result[#result+1] = formatters[" <td class='tc' style='width:10em'>angle </td><td style='width:20em'>%s</td></tr>"](specification.angle or "-")
result[#result+1] = formatters["<tr><td class='tc' style='width:10em'>subfamily </td><td style='width:20em'>%s</td>"] (specification.subfamily or "-")
result[#result+1] = formatters[" <td class='tc' style='width:10em'>variant </td><td style='width:20em'>%s</td></tr>"](specification.variant ~= "" and specification.variant or "normal")
result[#result+1] = formatters["<tr><td class='tc' style='width:10em'>format </td><td style='width:20em'>%s</td>"] (specification.format or "-")
result[#result+1] = formatters[" <td class='tc' style='width:10em'>style </td><td style='width:20em'>%s</td></tr>"](specification.style ~= "" and specification.style or "normal")
result[#result+1] = formatters["<tr><td class='tc' style='width:10em'>pfmwidth </td><td style='width:20em'>%s</td>"] (specification.pfmwidth ~= "" and specification.pfmwidth or "-")
result[#result+1] = formatters[" <td class='tc' style='width:10em'>weight </td><td style='width:20em'>%s</td></tr>"](specification.weight ~= "" and specification.weight or "normal")
result[#result+1] = formatters["<tr><td class='tc' style='width:10em'>pfmheight </td><td style='width:20em'>%s</td>"] (specification.pfmweight ~= "" and specification.pfmweight or "-")
result[#result+1] = formatters[" <td class='tc' style='width:10em'>width </td><td style='width:20em'>%s</td></tr>"](specification.width ~= "" and specification.width or "normal")
result[#result+1] = "</table>"
if features then
for what, v in table.sortedhash(features) do
local data = features[what]
if data and next(data) then
result[#result+1] = formatters["<h1>%s features</h1><br/>"](what)
result[#result+1] = "<table>"
result[#result+1] = "<tr><th>feature</th><th>tag </th><th>script </th><th>languages </th></tr>"
for f,ff in table.sortedhash(data) do
local done = false
for s, ss in table.sortedhash(ff) do
if s == "*" then s = "all" end
if ss ["*"] then ss["*"] = nil ss.all = true end
if done then
f = ""
else
done = true
end
local title = fonts.handlers.otf.tables.features[f] or ""
result[#result+1] = formatters["<tr><td width='50%%'>%s </td><td><tt>%s </tt></td><td><tt>%s </tt></td><td><tt>%s </tt></td></tr>"](title,f,s,concat(table.sortedkeys(ss)," "))
end
end
result[#result+1] = "</table>"
end
end
else
result[#result+1] = "<br/><br/>This font has no features."
end
return concat(result,"\n")
end
local info_template = formatters [ [[
<pre><tt>
version : %s
comment : %s
author : %s
copyright : %s
maillist : ntg-context at ntg.nl
webpage : www.pragma-ade.nl
wiki : contextgarden.net
</tt></pre>
]] ]
local function info_about()
local m = modules ['mtx-server-ctx-fonttest']
return info_template(m.version,m.comment,m.author,m.copyright)
end
local save_template = formatters [ [[
the current setup has been saved:
<br/> <br/>
<table>
<tr><td class='tc'>name </td><td>%s</td></tr>
<tr><td class='tc'>title </td><td>%s</td></tr>
<tr><td class='tc'>font </td><td>%s</td></tr>
<tr><td class='tc'>script </td><td>%s</td></tr>
<tr><td class='tc'>language </td><td>%s</td></tr>
<tr><td class='tc'>features </td><td>%s</td></tr>
<tr><td class='tc'>options </td><td>%s</td></tr>
<tr><td class='tc'>sampletext </td><td>%s</td></tr>
</table>
]] ]
local function loadbase()
local datafile = file.join(basepath,basename)
local storage = io.loaddata(datafile) or ""
if storage == "" then
storage = { }
else
report("loading '%s'",datafile)
storage = loadstring(storage)
storage = (storage and storage()) or { }
end
return storage
end
local function loadstored(detail,currentfont,name)
local storage = loadbase()
storage = storage and storage[name]
if storage then
currentfont = storage.font
detail.script = storage.script or detail.script
detail.language = storage.language or detail.language
detail.title = storage.title or detail.title
detail.sampletext = storage.text or detail.sampletext
detail.name = name or "no name"
for k,v in next, storage.features do
detail["f-"..k] = v
end
for k,v in next, storage.options do
detail["o-"..k] = v
end
end
detail.loadname = nil
return detail, currentfont
end
local function savebase(storage,name)
local datafile = file.join(basepath,basename)
report("saving '%s' in '%s'",name or "data",datafile)
io.savedata(datafile,table.serialize(storage,true))
end
local function deletestored(detail,currentfont,name)
local storage = loadbase()
if storage and name and storage[name] then
report("deleting '%s' from base",name)
storage[name] = nil
savebase(storage)
end
detail.deletename = nil
return detail, ""
end
local function save_font(currentfont,detail)
local specification = get_specification(currentfont)
local name, title, script, language, features, options, text = currentfont, "", "dflt", "dflt", { }, { }, ""
if detail then
local htmldata = showfeatures(specification.filename)
script = detail.script or script
language = detail.language or language
text = string.strip(detail.sampletext or text)
name = string.strip(detail.name or name)
title = string.strip(detail.title or title)
for k,v in next, htmldata.features do
if detail["f-"..k] then features[k] = true end
end
for k=1,#what_options do
local v = what_options[k]
if detail["o-"..v] then options[k] = true end
end
end
if name == "" then
name = "no name"
end
local storage = loadbase()
storage[name] = {
font = currentfont, title = title, script = script, language = language, features = features, options = options, text = text,
}
savebase(storage,name)
return save_template(name,title,currentfont,script,language,concat(table.sortedkeys(features)," "),concat(table.sortedkeys(options)," "),text)
end
local function load_font(currentfont)
local datafile = file.join(basepath,basename)
local storage = loadbase(datafile)
local result = {}
result[#result+1] = "<tr><th>del </th><th>name </th><th>font </th><th>fontname </th><th>script </th><th>language </th><th>features </th><th>title </th><th>sampletext </th></tr>"
for k,v in table.sortedhash(storage) do
local fontname, fontfile = get_specification(v.font)
result[#result+1] = formatters["<tr><td><a href='mtx-server-ctx-fonttest.lua?deletename=%s'>x</a> </td><td><a href='mtx-server-ctx-fonttest.lua?loadname=%s'>%s</a> </td><td>%s </td<td>%s </td><td>%s </td><td>%s </td><td>%s </td><td>%s </td><td>%s </td></tr>"](
k,k,k,v.font,fontname,v.script,v.language,concat(table.sortedkeys(v.features)," "),v.title or "no title",v.text or "")
end
if #result == 1 then
return "nothing saved yet"
else
return formatters["<table>%s</table>"](concat(result,"\n"))
end
end
local function reset_font(currentfont)
return edit_font(currentfont)
end
local extras_template = formatters [ [[
<a href='mtx-server-ctx-fonttest.lua?extra=reload'>remake font database</a> (take some time)<br/><br/>
]] ]
local function do_extras(detail,currentfont,extra)
return extras_template()
end
local extras = { }
local function do_extra(detail,currentfont,extra)
local e = extras[extra]
if e then e(detail,currentfont,extra) end
return do_extras(detail,currentfont,extra)
end
function extras.reload()
identifyfonts()
return do_extras()
end
local status_template = formatters [ [[
<input type="hidden" name="currentfont" value="%s" />
]] ]
local variables = {
['color-background-one'] = lmx.get('color-background-green'),
['color-background-two'] = lmx.get('color-background-blue'),
['title'] = 'ConTeXt Font Tester',
['formaction'] = "mtx-server-ctx-fonttest.lua",
}
-- todo: use lmx file
function doit(configuration,filename,hashed)
local start = os.clock()
local detail = url.query(hashed.query or "")
local currentfont = detail.currentfont
local action = detail.action
local selection = detail.selection
if action == "luajittex" then
jitmode = true
elseif action == "luatex" then
jitmode = false
end
local loadname = detail.loadname
local deletename = detail.deletename
local extra = detail.extra
if loadname and loadname ~= "" then
detail, currentfont = loadstored(detail,currentfont,loadname)
action = "process"
elseif deletename and deletename ~= "" then
detail, currentfont = deletestored(detail,currentfont,deletename)
action = "load"
elseif selection and selection ~= "" then
currentfont = selection
elseif extra and extra ~= "" then
do_extra(detail,currentfont,extra)
action = "extras"
end
local fontname, fontfile = get_specification(currentfont)
if fontfile then
variables.title = formatters['ConTeXt Font Tester: %s (%s)'](fontname,fontfile)
else
variables.title = 'ConTeXt Font Tester'
end
if jitmode then
variables.title = variables.title .. " (using LuaJit vm)"
end
-- lua table and adapt
report("action: %s",action or "no action")
local buttons = { 'process', 'select', 'save', 'load', 'edit', 'reset', 'features', 'source', 'log', 'info', 'extras', jitmode and "luatex" or "luajittex" }
local menu = { }
for i=1,#buttons do
local button = buttons[i]
menu[#menu+1] = formatters["<button name='action' value='%s' type='submit'>%s</button>"](button,button)
end
variables.menu = concat(menu," ")
variables.status = status_template(currentfont or "")
variables.maintext = ""
variables.javascriptdata = ""
variables.javascripts = ""
variables.javascriptinit = ""
local result
if action == "select" then
variables.maintext = select_font()
elseif action == "info" then
variables.maintext = info_about()
elseif action == "extras" then
variables.maintext = do_extras()
elseif currentfont and currentfont ~= "" then
if action == "save" then
variables.maintext = save_font(currentfont,detail)
elseif action == "load" then
variables.maintext = load_font(currentfont,detail)
elseif action == "source" then
variables.maintext = show_source(currentfont,detail)
elseif action == "log" then
variables.maintext = show_log(currentfont,detail)
elseif action == "features" then
variables.maintext = show_font(currentfont,detail)
else
local e, s
if action == "process" then
e, s = process_font(currentfont,detail)
elseif action == "reset" then
e, s = reset_font(currentfont)
elseif action == "edit" then
e, s = edit_font(currentfont,detail)
else
e, s = process_font(currentfont,detail)
end
variables.maintext = e
variables.javascriptdata = s
variables.javascripts = javascripts
variables.javascriptinit = "check_form()"
end
else
variables.maintext = select_font()
end
result = { content = lmx.convert('context-fonttest.lmx',false,variables) }
report("time spent on page: %0.03f seconds",os.clock()-start)
return result
end
return doit, true
--~ make_lmx_page("test")