summaryrefslogtreecommitdiff
path: root/tex
diff options
context:
space:
mode:
authorContext Git Mirror Bot <phg42.2a@gmail.com>2014-10-27 11:15:05 +0100
committerContext Git Mirror Bot <phg42.2a@gmail.com>2014-10-27 11:15:05 +0100
commitf09a83056cb0fba2e79228858f5e86f2d297e3ca (patch)
treea986de0953f95b9266738b3b685a9177686ce676 /tex
parent3a43c9a819d5d675e2a90f90b1ba1e36076a1af0 (diff)
downloadcontext-f09a83056cb0fba2e79228858f5e86f2d297e3ca.tar.gz
2014-10-27 09:29:00
Diffstat (limited to 'tex')
-rw-r--r--tex/context/base/back-exp.lua850
-rw-r--r--tex/context/base/back-exp.mkiv16
-rw-r--r--tex/context/base/buff-ver.mkiv10
-rw-r--r--tex/context/base/cont-new.mkiv2
-rw-r--r--tex/context/base/context-version.pdfbin4384 -> 4398 bytes
-rw-r--r--tex/context/base/context.mkiv2
-rw-r--r--tex/context/base/export-example.css65
-rw-r--r--tex/context/base/lang-lab.mkiv21
-rw-r--r--tex/context/base/lpdf-tag.lua46
-rw-r--r--tex/context/base/math-tag.lua55
-rw-r--r--tex/context/base/mult-aux.mkiv9
-rw-r--r--tex/context/base/mult-def.mkiv24
-rw-r--r--tex/context/base/mult-sys.mkiv36
-rw-r--r--tex/context/base/pack-com.mkiv2
-rw-r--r--tex/context/base/page-mix.mkiv6
-rw-r--r--tex/context/base/publ-aut.lua116
-rw-r--r--tex/context/base/publ-dat.lua75
-rw-r--r--tex/context/base/publ-imp-apa.lua63
-rw-r--r--tex/context/base/publ-imp-apa.mkvi971
-rw-r--r--tex/context/base/publ-imp-aps.lua14
-rw-r--r--tex/context/base/publ-ini.lua177
-rw-r--r--tex/context/base/publ-ini.mkiv200
-rw-r--r--tex/context/base/publ-reg.lua131
-rw-r--r--tex/context/base/publ-tra.lua35
-rw-r--r--tex/context/base/spac-lin.mkiv2
-rw-r--r--tex/context/base/status-files.pdfbin24740 -> 24708 bytes
-rw-r--r--tex/context/base/status-lua.pdfbin333413 -> 333731 bytes
-rw-r--r--tex/context/base/strc-con.mkvi5
-rw-r--r--tex/context/base/strc-des.mkvi1
-rw-r--r--tex/context/base/strc-enu.mkvi1
-rw-r--r--tex/context/base/strc-flt.mkvi8
-rw-r--r--tex/context/base/strc-itm.mkvi2
-rw-r--r--tex/context/base/strc-lab.mkiv1
-rw-r--r--tex/context/base/strc-lst.mkvi2
-rw-r--r--tex/context/base/strc-mat.mkiv4
-rw-r--r--tex/context/base/strc-not.mkvi1
-rw-r--r--tex/context/base/strc-num.mkiv3
-rw-r--r--tex/context/base/strc-reg.mkiv2
-rw-r--r--tex/context/base/strc-sbe.mkiv2
-rw-r--r--tex/context/base/strc-sec.mkiv4
-rw-r--r--tex/context/base/strc-syn.mkiv5
-rw-r--r--tex/context/base/strc-tag.lua288
-rw-r--r--tex/context/base/strc-tag.mkiv66
-rw-r--r--tex/context/base/tabl-ntb.mkiv2
-rw-r--r--tex/context/base/tabl-tbl.mkiv2
-rw-r--r--tex/context/base/tabl-xtb.mkvi4
-rw-r--r--tex/context/base/typo-del.mkiv18
-rw-r--r--tex/context/base/typo-mar.mkiv2
-rw-r--r--tex/generic/context/luatex/luatex-fonts-merged.lua2
49 files changed, 1928 insertions, 1425 deletions
diff --git a/tex/context/base/back-exp.lua b/tex/context/base/back-exp.lua
index 950b9dc8c..84d3a6d8f 100644
--- a/tex/context/base/back-exp.lua
+++ b/tex/context/base/back-exp.lua
@@ -35,7 +35,7 @@ if not modules then modules = { } end modules ['back-exp'] = {
-- check setting __i__
local next, type, tonumber = next, type, tonumber
-local format, concat, sub, gsub = string.format, table.concat, string.sub, string.gsub
+local concat, sub, gsub = table.concat, string.sub, string.gsub
local validstring = string.valid
local lpegmatch = lpeg.match
local utfchar, utfvalues = utf.char, utf.values
@@ -136,19 +136,16 @@ local traverse_nodes = nuts.traverse
local references = structures.references
local structurestags = structures.tags
local taglist = structurestags.taglist
+local specifications = structurestags.specifications
local properties = structurestags.properties
-local userdata = structurestags.userdata -- might be combines with taglist
-local tagdata = structurestags.data
-local tagmetadata = structurestags.metadata
-local detailedtag = structurestags.detailedtag
-local userproperties = structurestags.userproperties
+local locatedtag = structurestags.locatedtag
local starttiming = statistics.starttiming
local stoptiming = statistics.stoptiming
-- todo: more locals (and optimize)
-local exportversion = "0.32"
+local exportversion = "0.33"
local mathmlns = "http://www.w3.org/1998/Math/MathML"
local nofcurrentcontent = 0 -- so we don't free (less garbage collection)
@@ -160,7 +157,6 @@ local currentparagraph = nil
local noftextblocks = 0
-local attributehash = { } -- to be considered: set the values at the tex end
local hyphencode = 0xAD
local hyphen = utfchar(0xAD) -- todo: also emdash etc
local tagsplitter = structurestags.patterns.splitter
@@ -281,14 +277,6 @@ setmetatableindex(namespaced, function(t,k)
end
end)
--- local function attribute(key,value)
--- if value and value ~= "" then
--- return f_attribute(key,gsub(value,".",attribentities))
--- else
--- return ""
--- end
--- end
-
local function attribute(key,value)
if value and value ~= "" then
return f_attribute(key,lpegmatch(p_attribute,value))
@@ -297,6 +285,20 @@ local function attribute(key,value)
end
end
+local function setattribute(di,key,value,escaped)
+ if value and value ~= "" then
+ local a = di.attributes
+ if escaped then
+ value = lpegmatch(p_escaped,value)
+ end
+ if not a then
+ di.attributes = { [key] = value }
+ else
+ a[key] = value
+ end
+ end
+end
+
local listdata = { } -- maybe do this otherwise
function wrapups.hashlistdata()
@@ -313,20 +315,12 @@ end
local spaces = utilities.strings.newrepeater(" ",-1)
-function structurestags.setattributehash(fulltag,key,value) -- public hash
- if type(fulltag) == "number" then
- fulltag = taglist[fulltag]
- if fulltag then
- fulltag = fulltag[#fulltag]
- end
- end
- if fulltag then
- local ah = attributehash[fulltag] -- could be metatable magic
- if not ah then
- ah = { }
- attributehash[fulltag] = ah
- end
- ah[key] = value
+function structurestags.setattributehash(attr,key,value) -- public hash
+ local specification = taglist[attr]
+ if specification then
+ specification[key] = value
+ else
+ -- some kind of error
end
end
@@ -484,13 +478,14 @@ properties.vspace = { export = "break", nature = "display" }
local function makebreaklist(list)
nofbreaks = nofbreaks + 1
local t = { }
- if list then
+ local l = list and list.taglist
+ if l then
for i=1,#list do
- t[i] = list[i]
+ t[i] = l[i]
end
end
- t[#t+1] = "break-" .. nofbreaks -- maybe no number
- return t
+ t[#t+1] = "break>" .. nofbreaks -- maybe no number
+ return { taglist = t }
end
local breakattributes = {
@@ -501,7 +496,7 @@ local function makebreaknode(attributes) -- maybe no fulltag
nofbreaks = nofbreaks + 1
return {
tg = "break",
- fulltag = "break-" .. nofbreaks,
+ fulltag = "break>" .. nofbreaks,
n = nofbreaks,
element = "break",
nature = "display",
@@ -512,7 +507,7 @@ local function makebreaknode(attributes) -- maybe no fulltag
}
end
-local function ignorebreaks(result,element,detail,n,fulltag,di)
+local function ignorebreaks(result,element,n,fulltag,di)
local data = di.data
for i=1,#data do
local d = data[i]
@@ -522,7 +517,7 @@ local function ignorebreaks(result,element,detail,n,fulltag,di)
end
end
-local function ignorespaces(result,element,detail,n,fulltag,di)
+local function ignorespaces(result,element,n,fulltag,di)
local data = di.data
for i=1,#data do
local d = data[i]
@@ -544,13 +539,14 @@ do
local di = data[i]
local tg = di.tg
if tg == "noexport" then
- local ud = userdata[di.fulltag]
- if ud then
- local comment = ud.comment
+ local s = specifications[di.fulltag]
+ local u = s and s.userdata
+ if u then
+ local comment = u.comment
if comment then
di.element = "comment"
di.data = { { content = comment } }
- ud.comment = nil
+ u.comment = nil
else
data[i] = false
end
@@ -569,20 +565,20 @@ do
end
end
- function extras.document(result,element,detail,n,fulltag,di)
- result[#result+1] = f_attribute("language",languagenames[texgetcount("mainlanguagenumber")])
+ function extras.document(result,element,n,fulltag,di)
+ setattribute(di,"language",languagenames[texgetcount("mainlanguagenumber")])
if not less_state then
- result[#result+1] = f_attribute("file",tex.jobname)
- result[#result+1] = f_attribute("date",os.date())
- result[#result+1] = f_attribute("context",environment.version)
- result[#result+1] = f_attribute("version",exportversion)
- result[#result+1] = f_attribute("xmlns:m",mathmlns)
+ setattribute(di,"file",tex.jobname)
+ setattribute(di,"date",os.date())
+ setattribute(di,"context",environment.version)
+ setattribute(di,"version",exportversion)
+ setattribute(di,"xmlns:m",mathmlns)
local identity = interactions.general.getidentity()
for i=1,#fields do
local key = fields[i]
local value = identity[key]
if value and value ~= "" then
- result[#result+1] = f_attribute(key,value)
+ setattribute(di,key,value)
end
end
end
@@ -595,27 +591,18 @@ do
local itemgroups = { }
- local f_symbol = formatters[' symbol="%s"']
- local s_packed = ' packed="yes"'
-
- function structurestags.setitemgroup(current,packed,symbol)
- itemgroups[detailedtag("itemgroup",current)] = {
+ function structurestags.setitemgroup(packed,symbol)
+ itemgroups[locatedtag("itemgroup")] = {
packed = packed,
symbol = symbol,
}
end
- function extras.itemgroup(result,element,detail,n,fulltag,di)
+ function extras.itemgroup(result,element,n,fulltag,di)
local hash = itemgroups[fulltag]
if hash then
- local packed = hash.packed
- if packed then
- result[#result+1] = s_packed
- end
- local symbol = hash.symbol
- if symbol then
- result[#result+1] = f_symbol(symbol)
- end
+ setattribute(di,"packed",hash.packed and "yes" or nil)
+ setattribute(di,"symbol",hash.symbol)
end
end
@@ -626,27 +613,25 @@ do
local synonyms = { }
local sortings = { }
- local f_tag = formatters[' tag="%s"']
-
- function structurestags.setsynonym(current,tag)
- synonyms[detailedtag("synonym",current)] = tag
+ function structurestags.setsynonym(tag)
+ synonyms[locatedtag("synonym")] = tag
end
- function extras.synonym(result,element,detail,n,fulltag,di)
+ function extras.synonym(result,element,n,fulltag,di)
local tag = synonyms[fulltag]
if tag then
- result[#result+1] = f_tag(tag)
+ setattribute(di,"tag",tag)
end
end
- function structurestags.setsorting(current,tag)
- sortings[detailedtag("sorting",current)] = tag
+ function structurestags.setsorting(tag)
+ sortings[locatedtag("sorting")] = tag
end
- function extras.sorting(result,element,detail,n,fulltag,di)
+ function extras.sorting(result,element,n,fulltag,di)
local tag = sortings[fulltag]
if tag then
- result[#result+1] = f_tag(tag)
+ setattribute(di,"tag",tag)
end
end
@@ -657,8 +642,8 @@ do
local highlight = { }
usedstyles.highlight = highlight
- function structurestags.sethighlight(current,style,color) -- we assume global styles
- highlight[current] = {
+ function structurestags.sethighlight(style,color) -- we assume global styles
+ highlight[locatedtag("highlight")] = {
style = style, -- xml.css.fontspecification(style),
color = color, -- xml.css.colorspec(color),
}
@@ -674,22 +659,20 @@ do
local symbols = { }
local linked = { }
- local f_insert = formatters[' insert="%s"']
-
- function structurestags.setdescription(tag,n)
+ function structurestags.setdescription(tag,n) -- needs checking (is tag needed)
-- we can also use the internals hash or list
local nd = structures.notes.get(tag,n)
if nd then
local references = nd.references
- descriptions[references and references.internal] = detailedtag("description",tag)
+ descriptions[references and references.internal] = locatedtag("description")
end
end
- function structurestags.setdescriptionsymbol(tag,n)
+ function structurestags.setdescriptionsymbol(tag,n) -- needs checking (is tag needed)
local nd = structures.notes.get(tag,n) -- todo: use listdata instead
if nd then
local references = nd.references
- symbols[references and references.internal] = detailedtag("descriptionsymbol",tag)
+ symbols[references and references.internal] = locatedtag("descriptionsymbol")
end
end
@@ -705,17 +688,17 @@ do
end
end
- function extras.description(result,element,detail,n,fulltag,di)
+ function extras.description(result,element,n,fulltag,di)
local id = linked[fulltag]
if id then
- result[#result+1] = f_insert(id) -- maybe just fulltag
+ setattribute(di,"insert",id)
end
end
- function extras.descriptionsymbol(result,element,detail,n,fulltag,di)
+ function extras.descriptionsymbol(result,element,n,fulltag,di)
local id = linked[fulltag]
if id then
- result[#result+1] = f_insert(id)
+ setattribute(di,"insert",id)
end
end
@@ -723,7 +706,7 @@ end
-- -- todo: ignore breaks
--
--- function extras.verbatimline(result,element,detail,n,fulltag,di)
+-- function extras.verbatimline(result,element,n,fulltag,di)
-- inspect(di)
-- end
@@ -732,11 +715,8 @@ do
local image = { }
usedimages.image = image
- local f_imagespec = formatters[' id="%s" width="%s" height="%s"']
- local f_imagepage = formatters[' page="%s"']
-
function structurestags.setfigure(name,used,page,width,height)
- image[detailedtag("image")] = {
+ image[locatedtag("image")] = {
name = name,
used = used,
page = page,
@@ -745,15 +725,17 @@ do
}
end
- function extras.image(result,element,detail,n,fulltag,di)
+ function extras.image(result,element,n,fulltag,di)
local data = image[fulltag]
if data then
- result[#result+1] = attribute("name",data.name)
+ setattribute(di,"name",data.name)
local page = tonumber(data.page)
if page and page > 1 then
- result[#result+1] = f_imagepage(page)
+ setattribute(di,"page",page)
end
- result[#result+1] = f_imagespec(fulltag,data.width,data.height)
+ setattribute(di,"id",fulltag)
+ setattribute(di,"width",data.width)
+ setattribute(di,"height",data.height)
end
end
@@ -763,19 +745,18 @@ do
local combinations = { }
- local f_combispec = formatters[' nx="%s" ny="%s"']
-
function structurestags.setcombination(nx,ny)
- combinations[detailedtag("combination")] = {
+ combinations[locatedtag("combination")] = {
nx = nx,
ny = ny,
}
end
- function extras.combination(result,element,detail,n,fulltag,di)
+ function extras.combination(result,element,n,fulltag,di)
local data = combinations[fulltag]
if data then
- result[#result+1] = f_combispec(data.nx,data.ny)
+ setattribute(di,"nx",data.nx)
+ setattribute(di,"ny",data.ny)
end
end
@@ -799,37 +780,37 @@ local evaluators = { }
local specials = { }
local explicits = { }
-evaluators.inner = function(result,var)
+evaluators.inner = function(di,var)
local inner = var.inner
if inner then
- result[#result+1] = attribute("location",inner)
+ setattribute(di,"location",inner,true)
end
end
-evaluators.outer = function(result,var)
+evaluators.outer = function(di,var)
local file, url = references.checkedfileorurl(var.outer,var.outer)
if url then
- result[#result+1] = attribute("url",url)
+ setattribute(di,"url",url,true)
elseif file then
- result[#result+1] = attribute("file",file)
+ setattribute(di,"file",file,true)
end
end
-evaluators["outer with inner"] = function(result,var)
+evaluators["outer with inner"] = function(di,var)
local file = references.checkedfile(var.f)
if file then
- result[#result+1] = attribute("file",file)
+ setattribute(di,"file",file,true)
end
local inner = var.inner
if inner then
- result[#result+1] = attribute("location",inner)
+ setattribute(di,"inner",inner,true)
end
end
-evaluators.special = function(result,var)
+evaluators.special = function(di,var)
local handler = specials[var.special]
if handler then
- handler(result,var)
+ handler(di,var)
end
end
@@ -841,57 +822,45 @@ do
evaluators["special operation"] = evaluators.special
evaluators["special operation with arguments"] = evaluators.special
- local f_prefix = formatters[' prefix="%s"']
- local f_reference = formatters[' reference="%s"']
- local f_destination = formatters[' destination="%s"']
-
- local f_implicit = formatters[' implicit="%s"'] -- automatic (internal) reference
- local f_explicit = formatters[' explicit="%s"'] -- user given reference
-
- local f_internal = formatters[' internal="%s"'] -- links to implicit
- local f_location = formatters[' location="%s"'] -- links to explicit
- local f_url = formatters[' url="%s"']
- local f_file = formatters[' file="%s"']
-
- function specials.url(result,var)
+ function specials.url(di,var)
local url = references.checkedurl(var.operation)
if url and url ~= "" then
- result[#result+1] = f_url(lpegmatch(p_escaped,url))
+ setattribute(di,"url",url,true)
end
end
- function specials.file(result,var)
+ function specials.file(di,var)
local file = references.checkedfile(var.operation)
if file and file ~= "" then
- result[#result+1] = f_file(lpegmatch(p_escaped,file))
+ setattribute(di,"file",file,true)
end
end
- function specials.fileorurl(result,var)
+ function specials.fileorurl(di,var)
local file, url = references.checkedfileorurl(var.operation,var.operation)
if url and url ~= "" then
- result[#result+1] = f_url(lpegmatch(p_escaped,url))
+ setattribute(di,"url",url,true)
elseif file and file ~= "" then
- result[#result+1] = f_file(lpegmatch(p_escaped,file))
+ setattribute(di,"file",file,true)
end
end
- function specials.internal(result,var)
+ function specials.internal(di,var)
local internal = references.checkedurl(var.operation)
if internal then
- result[#result+1] = f_location(internal)
+ setattribute(di,"location",internal)
end
end
- local function adddestination(result,references) -- todo: specials -> exporters and then concat
+ local function adddestination(di,references) -- todo: specials -> exporters and then concat
if references then
local reference = references.reference
if reference and reference ~= "" then
local prefix = references.prefix
if prefix and prefix ~= "" then
- result[#result+1] = f_prefix(prefix)
+ setattribute(di,"prefix",prefix,true)
end
- result[#result+1] = f_destination(lpegmatch(p_escaped,reference))
+ setattribute(di,"destination",reference,true)
for i=1,#references do
local r = references[i]
local e = evaluators[r.kind]
@@ -903,49 +872,49 @@ do
end
end
- local function addimplicit(result,references)
+ function extras.addimplicit(di,references)
if references then
local internal = references.internal
if internal then
- result[#result+1] = f_implicit(internal)
+ setattribute(di,"implicit",internal)
end
end
end
- local function addinternal(result,references)
+ function extras.addinternal(di,references)
if references then
local internal = references.internal
if internal then
- result[#result+1] = f_internal(internal)
+ setattribute(di,"internal",internal)
end
end
end
local p_firstpart = lpeg.Cs((1-lpeg.P(","))^0)
- local function addreference(result,references)
+ local function addreference(di,references)
if references then
local reference = references.reference
if reference and reference ~= "" then
local prefix = references.prefix
if prefix and prefix ~= "" then
- result[#result+1] = f_prefix(prefix)
+ setattribute(di,"prefix",prefix)
end
- result[#result+1] = f_reference(lpegmatch(p_escaped,reference))
- result[#result+1] = f_explicit(lpegmatch(p_escaped,lpegmatch(p_firstpart,reference)))
+ setattribute(di,"reference",reference,true)
+ setattribute(di,"explicit",lpegmatch(p_firstpart,reference),true)
end
local internal = references.internal
if internal and internal ~= "" then
- result[#result+1] = f_implicit(internal)
+ setattribute(di,"implicit",internal)
end
end
end
- local function link(result,element,detail,n,fulltag,di)
+ local function link(di,element,n,fulltag,di)
-- for instance in lists a link has nested elements and no own text
local reference = referencehash[fulltag]
if reference then
- adddestination(result,structures.references.get(reference))
+ adddestination(di,structures.references.get(reference))
return true
else
local data = di.data
@@ -954,7 +923,7 @@ do
local di = data[i]
if di then
local fulltag = di.fulltag
- if fulltag and link(result,element,detail,n,fulltag,di) then
+ if fulltag and link(di,element,n,fulltag,di) then
return true
end
end
@@ -963,9 +932,6 @@ do
end
end
- extras.addimplicit = addimplicit
- extras.addinternal = addinternal
-
extras.adddestination = adddestination
extras.addreference = addreference
@@ -1073,8 +1039,8 @@ do
end
local tg = d.tg
if tg == "mover" then
- local p = properties[d.fulltag]
- local t = p.top
+ local s = specifications[d.fulltag]
+ local t = s.top
if t then
d = d.data[1]
local d1 = d.data[1]
@@ -1083,8 +1049,8 @@ do
return d
end
elseif tg == "munder" then
- local p = properties[d.fulltag]
- local b = p.bottom
+ local s = specifications[d.fulltag]
+ local b = s.bottom
if b then
d = d.data[1]
local d1 = d.data[1]
@@ -1145,8 +1111,8 @@ do
-- data[1] = dummy_nucleus
-- end
elseif roottg == "mfenced" then
- local p = properties[root.fulltag]
- local l, m, r = p.left, p.middle, p.right
+ local s = specifications[root.fulltag]
+ local l, m, r = s.left, s.middle, s.right
if l then
l = utfchar(l)
end
@@ -1193,23 +1159,21 @@ do
local di = data[i]
if di and not di.content then
local tg = di.tg
- local detail = di.detail
if tg == "math" then
-- di.element = "mrow" -- when properties
di.skip = "comment"
checkmath(di)
i = i + 1
elseif tg == "mover" then
- if detail == "accent" then
- local p = properties[di.fulltag]
- local t = p.top
+ local s = specifications[di.fulltag]
+ if s.accent then
+ local t = s.top
local d = di.data
-- todo: accent = "false" (for scripts like limits)
di.attributes = {
accent = "true",
}
-- todo: p.topfixed
- di.detail = nil
if t then
-- mover
d[1].data[1].content = utfchar(t)
@@ -1221,16 +1185,15 @@ do
checkmath(di)
i = i + 1
elseif tg == "munder" then
- if detail == "accent" then
- local p = properties[di.fulltag]
- local b = p.bottom
+ local s = specifications[di.fulltag]
+ if s.accent then
+ local b = s.bottom
local d = di.data
-- todo: accent = "false" (for scripts like limits)
di.attributes = {
accent = "true",
}
-- todo: p.bottomfixed
- di.detail = nil
if b then
-- munder
d[2].data[1].content = utfchar(b)
@@ -1241,10 +1204,10 @@ do
checkmath(di)
i = i + 1
elseif tg == "munderover" then
- if detail == "accent" then
- local p = properties[di.fulltag]
- local t = p.top
- local b = p.bottom
+ local s = specifications[di.fulltag]
+ if s.accent then
+ local t = s.top
+ local b = s.bottom
local d = di.data
-- todo: accent = "false" (for scripts like limits)
-- todo: accentunder = "false" (for scripts like limits)
@@ -1254,7 +1217,6 @@ do
}
-- todo: p.topfixed
-- todo: p.bottomfixed
- di.detail = nil
if t and b then
-- munderover
d[1].data[1].content = utfchar(t)
@@ -1373,68 +1335,70 @@ do
}
data[i] = di
i = i + 1
- elseif detail then
- -- no checkmath(di) here
- local category = tonumber(detail) or 0
- if category == 1 then -- mo
- i = collapse(di,i,data,ndata,detail,"mo")
- elseif category == 2 then -- mi
- i = collapse(di,i,data,ndata,detail,"mi")
- elseif category == 3 then -- mn
- i = collapse(di,i,data,ndata,detail,"mn")
- elseif category == 4 then -- ms
- i = collapse(di,i,data,ndata,detail,"ms")
- elseif category >= 1000 then
- local apply = category >= 2000
- if apply then
- category = category - 1000
- end
- if tg == "mi" then -- function
- if roottg == "mrow" then
- root.skip = "comment"
- root.element = "function"
- end
+ else
+ local category = di.mathcategory
+ if category then
+ -- no checkmath(di) here
+ if category == 1 then -- mo
+ i = collapse(di,i,data,ndata,detail,"mo")
+ elseif category == 2 then -- mi
i = collapse(di,i,data,ndata,detail,"mi")
- local tag = functions[category]
- if tag then
- di.data = functioncontent[tag]
- end
+ elseif category == 3 then -- mn
+ i = collapse(di,i,data,ndata,detail,"mn")
+ elseif category == 4 then -- ms
+ i = collapse(di,i,data,ndata,detail,"ms")
+ elseif category >= 1000 then
+ local apply = category >= 2000
if apply then
- di.after = apply_function
- elseif automathapply then -- make function
- local following
- if i <= ndata then
- -- normally not the case
- following = data[i]
- else
- local parent = di.__p__ -- == root
- if parent.tg == "mrow" then
- parent = parent.__p__
- end
- local index = parent.__i__
- following = parent.data[index+1]
+ category = category - 1000
+ end
+ if tg == "mi" then -- function
+ if roottg == "mrow" then
+ root.skip = "comment"
+ root.element = "function"
end
- if following then
- local tg = following.tg
- if tg == "mrow" or tg == "mfenced" then -- we need to figure out the right condition
- di.after = apply_function
+ i = collapse(di,i,data,ndata,detail,"mi")
+ local tag = functions[category]
+ if tag then
+ di.data = functioncontent[tag]
+ end
+ if apply then
+ di.after = apply_function
+ elseif automathapply then -- make function
+ local following
+ if i <= ndata then
+ -- normally not the case
+ following = data[i]
+ else
+ local parent = di.__p__ -- == root
+ if parent.tg == "mrow" then
+ parent = parent.__p__
+ end
+ local index = parent.__i__
+ following = parent.data[index+1]
+ end
+ if following then
+ local tg = following.tg
+ if tg == "mrow" or tg == "mfenced" then -- we need to figure out the right condition
+ di.after = apply_function
+ end
end
end
+ else -- some problem
+ checkmath(di)
+ i = i + 1
end
- else -- some problem
+ else
checkmath(di)
i = i + 1
end
+ elseif automathnumber and tg == "mn" then
+ checkmath(di)
+ i = collapse_mn(di,i,data,ndata)
else
checkmath(di)
i = i + 1
end
- elseif automathnumber and tg == "mn" then
- checkmath(di)
- i = collapse_mn(di,i,data,ndata)
- else
- checkmath(di)
- i = i + 1
end
else -- can be string or boolean
if parenttg ~= "mtext" and di == " " then
@@ -1524,8 +1488,8 @@ do
end
function checks.math(di)
- local hash = attributehash[di.fulltag]
- local mode = (hash and hash.mode) == "display" and "block" or "inline"
+ local specification = specifications[di.fulltag]
+ local mode = specification and specification.mode == "display" and "block" or "inline"
di.attributes = {
["display"] = mode,
["xmlns:m"] = mathmlns,
@@ -1545,7 +1509,7 @@ do
local a, z, A, Z = 0x61, 0x7A, 0x41, 0x5A
- function extras.mi(result,element,detail,n,fulltag,di) -- check with content
+ function extras.mi(di,element,n,fulltag,di) -- check with content
local str = di.data[1].content
if str and sub(str,1,1) ~= "&" then -- hack but good enough (maybe gsub op eerste)
for v in utfvalues(str) do
@@ -1561,7 +1525,7 @@ do
end
end
- function extras.msub(result,element,detail,n,fulltag,di)
+ function extras.msub(di,element,n,fulltag,di)
-- m$^2$
local data = di.data
if #data == 1 then
@@ -1579,12 +1543,11 @@ end
do
local registered = structures.sections.registered
- local f_level = formatters[' level="%s"']
- local function resolve(result,element,detail,n,fulltag,di)
+ local function resolve(di,element,n,fulltag,di)
local data = listdata[fulltag]
if data then
- extras.addreference(result,data.references)
+ extras.addreference(di,data.references)
return true
else
local data = di.data
@@ -1593,7 +1556,7 @@ do
local di = data[i]
if di then
local ft = di.fulltag
- if ft and resolve(result,element,detail,n,ft,di) then
+ if ft and resolve(di,element,n,ft,di) then
return true
end
end
@@ -1602,29 +1565,29 @@ do
end
end
- function extras.section(result,element,detail,n,fulltag,di)
- local r = registered[detail]
+ function extras.section(di,element,n,fulltag,di)
+ local r = registered[specifications[fulltag].detail]
if r then
- result[#result+1] = f_level(r.level)
+ setattribute(di,"level",r.level)
end
- resolve(result,element,detail,n,fulltag,di)
+ resolve(di,element,n,fulltag,di)
end
extras.float = resolve
-- todo: internal is already hashed
- function structurestags.setlist(tag,n)
+ function structurestags.setlist(n)
local data = structures.lists.getresult(n)
if data then
- referencehash[detailedtag("listitem",tag)] = data
+ referencehash[locatedtag("listitem")] = data
end
end
- function extras.listitem(result,element,detail,n,fulltag,di)
+ function extras.listitem(di,element,n,fulltag,di)
local data = referencehash[fulltag]
if data then
- extras.addinternal(result,data.references)
+ extras.addinternal(di,data.references)
return true
end
end
@@ -1635,17 +1598,17 @@ do
-- todo: internal is already hashed
- function structurestags.setregister(tag,n)
+ function structurestags.setregister(tag,n) -- check if tag is needed
local data = structures.registers.get(tag,n)
if data then
- referencehash[detailedtag("registerlocation",tag)] = data
+ referencehash[locatedtag("registerlocation")] = data
end
end
- function extras.registerlocation(result,element,detail,n,fulltag,di)
+ function extras.registerlocation(di,element,n,fulltag,di)
local data = referencehash[fulltag]
if data then
- extras.addinternal(result,data.references)
+ extras.addinternal(di,data.references)
return true
end
end
@@ -1657,14 +1620,7 @@ end
do
- local tabledata = { }
-
- local f_columns = formatters[' columns="%s"']
- local f_rows = formatters[' rows="%s"']
-
- local s_flushright = ' align="flushright"'
- local s_middle = ' align="middle"'
- local s_flushleft = ' align="flushleft"'
+ local tabledata = { }
local function hascontent(data)
for i=1,#data do
@@ -1684,7 +1640,7 @@ do
function structurestags.settablecell(rows,columns,align)
if align > 0 or rows > 1 or columns > 1 then
- tabledata[detailedtag("tablecell")] = {
+ tabledata[locatedtag("tablecell")] = {
rows = rows,
columns = columns,
align = align,
@@ -1692,26 +1648,26 @@ do
end
end
- function extras.tablecell(result,element,detail,n,fulltag,di)
+ function extras.tablecell(di,element,n,fulltag,di)
local hash = tabledata[fulltag]
if hash then
local columns = hash.columns
if columns and columns > 1 then
- result[#result+1] = f_columns(columns)
+ setattribute(di,"columns",columns)
end
local rows = hash.rows
if rows and rows > 1 then
- result[#result+1] = f_rows(rows)
+ setattribute(di,"rows",rows)
end
local align = hash.align
if not align or align == 0 then
-- normal
elseif align == 1 then -- use numbertoalign here
- result[#result+1] = s_flushright
+ setattribute(di,"align","flushright")
elseif align == 2 then
- result[#result+1] = s_middle
+ setattribute(di,"align","middle")
elseif align == 3 then
- result[#result+1] = s_flushleft
+ setattribute(di,"align","flushleft")
end
end
end
@@ -1720,13 +1676,13 @@ do
function structurestags.settabulatecell(align)
if align > 0 then
- tabulatedata[detailedtag("tabulatecell")] = {
+ tabulatedata[locatedtag("tabulatecell")] = {
align = align,
}
end
end
- function extras.tabulate(result,element,detail,n,fulltag,di)
+ function extras.tabulate(di,element,n,fulltag,di)
local data = di.data
for i=1,#data do
local di = data[i]
@@ -1736,18 +1692,18 @@ do
end
end
- function extras.tabulatecell(result,element,detail,n,fulltag,di)
+ function extras.tabulatecell(di,element,n,fulltag,di)
local hash = tabulatedata[fulltag]
if hash then
local align = hash.align
if not align or align == 0 then
-- normal
elseif align == 1 then
- result[#result+1] = s_flushleft
+ setattribute(di,"align","flushleft")
elseif align == 2 then
- result[#result+1] = s_flushright
+ setattribute(di,"align","flushright")
elseif align == 3 then
- result[#result+1] = s_middle
+ setattribute(di,"align","middle")
end
end
end
@@ -1759,6 +1715,7 @@ end
do
local f_detail = formatters[' detail="%s"']
+ local f_chain = formatters[' chain="%s"']
local f_index = formatters[' n="%s"']
local f_spacing = formatters['<c n="%s">%s</c>']
@@ -1843,10 +1800,11 @@ do
end
local function begintag(result,element,nature,di,skip)
- local detail = di.detail
- local index = di.n
- local fulltag = di.fulltag
- local comment = di.comment
+ local index = di.n
+ local fulltag = di.fulltag
+ local specification = specifications[fulltag]
+ local comment = di.comment
+ local detail = specification.detail
if skip == "comment" then
if show_comment then
if nature == "inline" or inline > 0 then
@@ -1867,9 +1825,17 @@ do
local n = 0
local r = { } -- delay this
if detail then
+ detail = gsub(detail,"[^A-Za-z0-9]+","-")
+ specification.detail = detail -- we use it later in for the div
n = n + 1
- -- r[n] = f_detail(detail)
- r[n] = f_detail(gsub(detail,"[^A-Za-z0-9]+","-"))
+ r[n] = f_detail(detail)
+ end
+ local parents = specification.parents
+ if parents then
+ parents = gsub(parents,"[^A-Za-z0-9 ]+","-")
+ specification.parents = parents -- we use it later in for the div
+ n = n + 1
+ r[n] = f_chain(parents)
end
if indexing and index then
n = n + 1
@@ -1877,18 +1843,10 @@ do
end
local extra = extras[element]
if extra then
- extra(r,element,detail,index,fulltag,di)
- n = #r
- end
- local u = userdata[fulltag]
- if u then
- for k, v in next, u do
- n = n + 1
- r[n] = f_attribute(k,v)
- end
+ extra(di,element,index,fulltag,di)
end
if exportproperties then
- local p = userproperties[fulltag]
+ local p = specification.userdata
if not p then
-- skip
elseif exportproperties == v_yes then
@@ -1961,8 +1919,9 @@ do
end
end
end
- used[element][detail or ""] = nature -- for template css
- local metadata = tagmetadata[fulltag]
+ used[element][detail or ""] = { nature, specification.parents } -- for template css
+ -- also in last else ?
+ local metadata = specification.metadata
if metadata then
result[#result+1] = f_metadata_begin(depth)
for k, v in table.sortedpairs(metadata) do
@@ -2247,27 +2206,26 @@ end
-- collector code
local function push(fulltag,depth)
- -- local tag, n = lpegmatch(dashsplitter,fulltag)
- -- local tg, detail = lpegmatch(colonsplitter,tag)
- local tg, detail, n = lpegmatch(tagsplitter,fulltag)
- local element, nature
- if detail then
- -- local pd = properties[tag] -- does this really happen? element-detail
- local pd = properties[tg.."<"..detail]
- local pt = properties[tg]
- element = pd and pd.export or pt and pt.export or tg
- nature = pd and pd.nature or pt and pt.nature or defaultnature
+ local tg, n, detail
+ local specification = specifications[fulltag]
+ if specification then
+ tg = specification.tagname
+ n = specification.tagindex
+ detail = specification.detail
else
- local p = properties[tg]
- element = p and p.export or tg
- nature = p and p.nature or "inline"
+ -- a break (more efficient if we don't store those in specifications)
+ tg, n = lpegmatch(tagsplitter,fulltag)
+ n = tonumber(n) -- to tonumber in tagsplitter
end
+ local p = properties[tg]
+ local element = p and p.export or tg
+ local nature = p and p.nature or "inline" -- defaultnature
local treedata = tree.data
- local t = {
+ local t = { -- maybe we can use the tag table
tg = tg,
fulltag = fulltag,
detail = detail,
- n = tonumber(n), -- more efficient
+ n = n, -- already a number
element = element,
nature = nature,
data = { },
@@ -2299,15 +2257,19 @@ local function push(fulltag,depth)
end
local function pop()
- local top = nesting[currentdepth]
- tree = treestack[currentdepth]
- currentdepth = currentdepth - 1
- if trace_export then
- if top then
- report_export("%w</%s>",currentdepth,top)
- else
- report_export("</%s>",top)
+ if currentdepth > 0 then
+ local top = nesting[currentdepth]
+ tree = treestack[currentdepth]
+ currentdepth = currentdepth - 1
+ if trace_export then
+ if top then
+ report_export("%w</%s>",currentdepth,top)
+ else
+ report_export("</%s>",top)
+ end
end
+ else
+ report_export("%w<!-- too many pops -->",currentdepth)
end
end
@@ -2322,58 +2284,65 @@ local function continueexport()
end
local function pushentry(current)
- if current then
- if restart then
- continueexport()
- restart = false
- end
- local newdepth = #current
- local olddepth = currentdepth
- if trace_export then
- report_export("%w<!-- moving from depth %s to %s (%s) -->",currentdepth,olddepth,newdepth,current[newdepth])
+ if not current then
+ -- bad news
+ return
+ end
+ current = current.taglist
+ if not current then
+ -- even worse news
+ return
+ end
+ if restart then
+ continueexport()
+ restart = false
+ end
+ local newdepth = #current
+ local olddepth = currentdepth
+ if trace_export then
+ report_export("%w<!-- moving from depth %s to %s (%s) -->",currentdepth,olddepth,newdepth,current[newdepth])
+ end
+ if olddepth <= 0 then
+ for i=1,newdepth do
+ push(current[i],i)
end
- if olddepth <= 0 then
- for i=1,newdepth do
- push(current[i],i)
+ else
+ local difference
+ if olddepth < newdepth then
+ for i=1,olddepth do
+ if current[i] ~= nesting[i] then
+ difference = i
+ break
+ end
end
else
- local difference
- if olddepth < newdepth then
- for i=1,olddepth do
- if current[i] ~= nesting[i] then
- difference = i
- break
- end
- end
- else
- for i=1,newdepth do
- if current[i] ~= nesting[i] then
- difference = i
- break
- end
+ for i=1,newdepth do
+ if current[i] ~= nesting[i] then
+ difference = i
+ break
end
end
- if difference then
- for i=olddepth,difference,-1 do
- pop()
- end
- for i=difference,newdepth do
- push(current[i],i)
- end
- elseif newdepth > olddepth then
- for i=olddepth+1,newdepth do
- push(current[i],i)
- end
- elseif newdepth < olddepth then
- for i=olddepth,newdepth,-1 do
- pop()
- end
- elseif trace_export then
- report_export("%w<!-- staying at depth %s (%s) -->",currentdepth,newdepth,nesting[newdepth] or "?")
+ end
+ if difference then
+ for i=olddepth,difference,-1 do
+ pop()
end
+ for i=difference,newdepth do
+ push(current[i],i)
+ end
+ elseif newdepth > olddepth then
+ for i=olddepth+1,newdepth do
+ push(current[i],i)
+ end
+ elseif newdepth < olddepth then
+ for i=olddepth,newdepth,-1 do
+ pop()
+ end
+ elseif trace_export then
+ report_export("%w<!-- staying at depth %s (%s) -->",currentdepth,newdepth,nesting[newdepth] or "?")
end
- return olddepth, newdepth
end
+ return olddepth, newdepth
end
local function pushcontent(oldparagraph,newparagraph)
@@ -2397,17 +2366,19 @@ local function pushcontent(oldparagraph,newparagraph)
if list then
olddepth, newdepth = pushentry(list)
end
- local td = tree.data
- local nd = #td
- td[nd+1] = { parnumber = oldparagraph or currentparagraph, content = content }
- if trace_export then
- report_export("%w<!-- start content with length %s -->",currentdepth,#content)
- report_export("%w%s",currentdepth,(gsub(content,"\n","\\n")))
- report_export("%w<!-- stop content -->",currentdepth)
- end
- if olddepth then
- for i=newdepth-1,olddepth,-1 do
- pop()
+ if tree then
+ local td = tree.data
+ local nd = #td
+ td[nd+1] = { parnumber = oldparagraph or currentparagraph, content = content }
+ if trace_export then
+ report_export("%w<!-- start content with length %s -->",currentdepth,#content)
+ report_export("%w%s",currentdepth,(gsub(content,"\n","\\n")))
+ report_export("%w<!-- stop content -->",currentdepth)
+ end
+ if olddepth then
+ for i=newdepth-1,olddepth,-1 do
+ pop()
+ end
end
end
end
@@ -2798,28 +2769,38 @@ end
do
local xmlpreamble = [[
-<?xml version="1.0" encoding="UTF-8" standalone="%s" ?>
+<?xml version="1.0" encoding="UTF-8" standalone="%standalone%" ?>
-<!-- input filename : %- 17s -->
-<!-- processing date : %- 17s -->
-<!-- context version : %- 17s -->
-<!-- exporter version : %- 17s -->
+<!--
+ input filename : %filename%
+ processing date : %date%
+ context version : %contextversion%
+ exporter version : %exportversion%
+
+-->
]]
local flushtree = wrapups.flushtree
local function wholepreamble(standalone)
- return format(xmlpreamble,standalone and "yes" or "no",tex.jobname,os.date(),environment.version,exportversion)
+ return replacetemplate(xmlpreamble, {
+ standalone = standalone and "yes" or "no",
+ filename = tex.jobname,
+ date = os.date(),
+ contextversion = environment.version,
+ exportversion = exportversion,
+ })
end
-local f_csspreamble = formatters [ [[
-<?xml-stylesheet type="text/css" href="%s"?>
-]] ]
-local f_cssheadlink = formatters [ [[
-<link type="text/css" rel="stylesheet" href="%s"/>
-]] ]
+local csspreamble = [[
+<?xml-stylesheet type="text/css" href="%filename%" ?>
+]]
+
+local cssheadlink = [[
+<link type="text/css" rel="stylesheet" href="%filename%" />
+]]
local function allusedstylesheets(cssfiles,files,path)
local done = { }
@@ -2835,31 +2816,28 @@ local f_cssheadlink = formatters [ [[
cssfile = file.join(path,cssfile)
report_export("adding css reference '%s'",cssfile)
files[#files+1] = cssfile
- result[#result+1] = f_csspreamble(cssfile)
- extras[#extras+1] = f_cssheadlink(cssfile)
+ result[#result+1] = replacetemplate(csspreamble, { filename = cssfile })
+ extras[#extras+1] = replacetemplate(cssheadlink, { filename = cssfile })
done[cssfile] = true
end
end
return concat(result), concat(extras)
end
-local f_e_template = [[
+local elementtemplate = [[
+/* element="%element%" detail="%detail%" chain="%chain%" */
+
%element%, div.%element% {
display: %display% ;
}]]
-local f_d_template = [[
-%element%[detail=%detail%], div.%element%.detail-%detail% {
+local detailtemplate = [[
+/* element="%element%" detail="%detail%" chain="%chain%" */
+
+%element%[detail=%detail%], div.%element%.%detail% {
display: %display% ;
}]]
--- local f_d_template = [[
--- %element%.%detail%, div.%element%.%detail% {
--- display: %display% ;
--- }]]
-
-local f_category = formatters["/* category: %s */"]
-
-- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd" >
local htmltemplate = [[
@@ -2898,19 +2876,22 @@ local htmltemplate = [[
if namespaces[element] then
-- skip math
else
- result[#result+1] = f_category(element)
- for detail, nature in sortedhash(details) do
- local display = displaymapping[nature or "display"] or "block"
+ for detail, what in sortedhash(details) do
+ local nature = what[1] or "display"
+ local chain = what[2]
+ local display = displaymapping[nature] or "block"
if detail == "" then
- result[#result+1] = replacetemplate(f_e_template, {
+ result[#result+1] = replacetemplate(elementtemplate, {
element = element,
display = display,
+ chain = chain,
})
else
- result[#result+1] = replacetemplate(f_d_template, {
+ result[#result+1] = replacetemplate(detailtemplate, {
element = element,
- detail = detail,
display = display,
+ detail = detail,
+ chain = chain,
})
end
end
@@ -3033,6 +3014,40 @@ local htmltemplate = [[
local p_cleanid = lpeg.replacer { [":"] = "-" }
local p_cleanhref = lpeg.Cs(lpeg.P("#") * p_cleanid)
+ local p_splitter = lpeg.Ct ( (
+ lpeg.Carg(1) * lpeg.C((1-lpeg.P(" "))^1) / function(d,s) if not d[s] then d[s] = true return s end end
+ * lpeg.P(" ")^0 )^1 )
+
+
+ local classes = table.setmetatableindex(function(t,k)
+ local v = concat(lpegmatch(p_splitter,k,1,{})," ")
+ t[k] = v
+ return v
+ end)
+
+ local function makeclass(tg,at)
+ local detail = at.detail
+ local chain = at.chain
+ at.detail = nil
+ at.chain = nil
+ if detail and detail ~= "" then
+ if chain and chain ~= "" then
+ if chain ~= detail then
+ return classes[tg .. " " .. chain .. " " .. detail] -- we need to remove duplicates
+ elseif tg ~= detail then
+ return tg .. " " .. detail
+ end
+ elseif tg ~= detail then
+ return tg .. " " .. detail
+ end
+ elseif chain and chain ~= "" then
+ if tg ~= chain then
+ return tg .. " " .. chain
+ end
+ end
+ return tg
+ end
+
local function remap(specification,source,target)
local comment = nil -- share comments
for c in xml.collected(source,"*") do
@@ -3059,20 +3074,17 @@ local htmltemplate = [[
end
end
-- end
- local at = c.at
- local class = { tg }
- if tg ~= "document" then
- for k, v in next, at do
- if not private[k] then
- class[#class+1] = k .. "-" .. v
- end
- end
+ local at = c.at
+ local class = nil
+ if tg == "document" then
+ at.href = nil
+ at.detail = nil
+ at.chain = nil
else
- at.href = nil
+ class = makeclass(tg,at)
end
local id = at.id
local href = at.href
- local class = concat(class," ")
if id then
id = lpegmatch(p_cleanid, id) or id
if href then
@@ -3111,7 +3123,11 @@ local htmltemplate = [[
-- local cssfile = nil directives.register("backend.export.css", function(v) cssfile = v end)
+ local addsuffix = file.addsuffix
+ local joinfile = file.join
+
local function stopexport(v)
+
starttiming(treehash)
--
finishexport()
@@ -3150,8 +3166,8 @@ local htmltemplate = [[
local basename = file.basename(v)
local corename = file.removesuffix(basename)
local basepath = basename .. "-export"
- local imagepath = file.join(basepath,"images")
- local stylepath = file.join(basepath,"styles")
+ local imagepath = joinfile(basepath,"images")
+ local stylepath = joinfile(basepath,"styles")
local function validpath(what,pathname)
if lfs.isdir(pathname) then
@@ -3174,25 +3190,25 @@ local htmltemplate = [[
-- we're now on the dedicated export subpath so we can't clash names
- local xmlfilebase = file.addsuffix(basename .. "-raw","xml" )
- local xhtmlfilebase = file.addsuffix(basename .. "-tag","xhtml")
- local htmlfilebase = file.addsuffix(basename .. "-div","xhtml")
- local specificationfilebase = file.addsuffix(basename .. "-pub","lua" )
+ local xmlfilebase = addsuffix(basename .. "-raw","xml" )
+ local xhtmlfilebase = addsuffix(basename .. "-tag","xhtml")
+ local htmlfilebase = addsuffix(basename .. "-div","xhtml")
+ local specificationfilebase = addsuffix(basename .. "-pub","lua" )
- local xmlfilename = file.join(basepath, xmlfilebase )
- local xhtmlfilename = file.join(basepath, xhtmlfilebase )
- local htmlfilename = file.join(basepath, htmlfilebase )
- local specificationfilename = file.join(basepath, specificationfilebase)
+ local xmlfilename = joinfile(basepath, xmlfilebase )
+ local xhtmlfilename = joinfile(basepath, xhtmlfilebase )
+ local htmlfilename = joinfile(basepath, htmlfilebase )
+ local specificationfilename = joinfile(basepath, specificationfilebase)
--
- local defaultfilebase = file.addsuffix(basename .. "-defaults", "css")
- local imagefilebase = file.addsuffix(basename .. "-images", "css")
- local stylefilebase = file.addsuffix(basename .. "-styles", "css")
- local templatefilebase = file.addsuffix(basename .. "-templates","css")
+ local defaultfilebase = addsuffix(basename .. "-defaults", "css")
+ local imagefilebase = addsuffix(basename .. "-images", "css")
+ local stylefilebase = addsuffix(basename .. "-styles", "css")
+ local templatefilebase = addsuffix(basename .. "-templates","css")
--
- local defaultfilename = file.join(stylepath,defaultfilebase )
- local imagefilename = file.join(stylepath,imagefilebase )
- local stylefilename = file.join(stylepath,stylefilebase )
- local templatefilename = file.join(stylepath,templatefilebase)
+ local defaultfilename = joinfile(stylepath,defaultfilebase )
+ local imagefilename = joinfile(stylepath,imagefilebase )
+ local stylefilename = joinfile(stylepath,stylefilebase )
+ local templatefilename = joinfile(stylepath,templatefilebase)
local cssfile = finetuning.cssfile
@@ -3218,11 +3234,11 @@ local htmltemplate = [[
if cssfile then
local list = table.unique(settings_to_array(cssfile))
for i=1,#list do
- local source = file.addsuffix(list[i],"css")
- local target = file.join(stylepath,file.basename(source))
+ local source = addsuffix(list[i],"css")
+ local target = joinfile(stylepath,file.basename(source))
cssfiles[#cssfiles+1] = source
if not lfs.isfile(source) then
- source = file.join("../",source)
+ source = joinfile("../",source)
end
if lfs.isfile(source) then
report_export("copying %s",source)
@@ -3281,7 +3297,7 @@ local htmltemplate = [[
name = file.removesuffix(v),
identifier = os.uuid(),
images = wrapups.uniqueusedimages(),
- imagefile = file.join("styles",imagefilebase),
+ imagefile = joinfile("styles",imagefilebase),
imagepath = "images",
stylepath = "styles",
xmlfiles = { xmlfilebase },
@@ -3357,7 +3373,7 @@ local htmltemplate = [[
statistics.register("xml exporting time", function()
if exporting then
- return format("%s seconds, version %s", statistics.elapsedtime(treehash),exportversion)
+ return string.format("%s seconds, version %s", statistics.elapsedtime(treehash),exportversion)
end
end)
diff --git a/tex/context/base/back-exp.mkiv b/tex/context/base/back-exp.mkiv
index e8b9ef61a..bbf564517 100644
--- a/tex/context/base/back-exp.mkiv
+++ b/tex/context/base/back-exp.mkiv
@@ -94,11 +94,15 @@
% \to \everyenableelements
\appendtoks
- \unexpanded\def\dotagsynonym{\taggedctxcommand{settagsynonym("\currentsynonym","\currentsynonymtag")}}%
+ \unexpanded\def\dotagsynonym{\taggedctxcommand{settagsynonym("\currentsynonymtag")}}%
+\to \everyenableelements
+
+\appendtoks
+ \unexpanded\def\dotagsorting{\taggedctxcommand{settagsorting("\currentsortingtag")}}%
\to \everyenableelements
\appendtoks % frozen and assumed global per highlight class
- \unexpanded\def\dotaghighlight{\taggedctxcommand{settaghighlight("\currenthighlight",\!!bs\highlightparameter\c!style\!!es,\number\attribute\colorattribute)}}%
+ \unexpanded\def\dotaghighlight{\taggedctxcommand{settaghighlight(\!!bs\highlightparameter\c!style\!!es,\number\attribute\colorattribute)}}%
\to \everyenableelements
\appendtoks % we can have differently scaled images
@@ -111,16 +115,12 @@
\to \everyenableelements
\appendtoks
- \unexpanded\def\dotagsorting{\taggedctxcommand{settagsorting("\currentsorting","\currentsortingtag")}}%
-\to \everyenableelements
-
-\appendtoks
\unexpanded\def\dotagsetparcounter{\global\advance\tagparcounter\plusone\attribute\taggedparattribute\tagparcounter}%
\unexpanded\def\doresetparcounter {\attribute\taggedparattribute\attributeunsetvalue}%
\to \everyenableelements
\appendtoks
- \unexpanded\def\dotagsetitemgroup{\taggedctxcommand{settagitemgroup("\currentitemgroup",\ifconditional\c_strc_itemgroups_pack true\else false\fi,"\currentitemgroupsymbol")}}%
+ \unexpanded\def\dotagsetitemgroup{\taggedctxcommand{settagitemgroup(\ifconditional\c_strc_itemgroups_pack true\else false\fi,"\currentitemgroupsymbol")}}%
\to \everyenableelements
\appendtoks
@@ -136,7 +136,7 @@
\to \everyenableelements
\appendtoks
- \unexpanded\def\dotaglistlocation{\taggedctxcommand{settaglist("\currentlist",\currentlistindex)}}%
+ \unexpanded\def\dotaglistlocation{\taggedctxcommand{settaglist(\currentlistindex)}}%
\to \everyenableelements
\appendtoks
diff --git a/tex/context/base/buff-ver.mkiv b/tex/context/base/buff-ver.mkiv
index c47a75856..4da74d421 100644
--- a/tex/context/base/buff-ver.mkiv
+++ b/tex/context/base/buff-ver.mkiv
@@ -325,7 +325,7 @@
\def\buff_verbatim_type_normal#1%
{\buff_verbatim_initialize_type_two
- \dostarttagged\t!verbatim\currenttype
+ \dostarttaggedchained\t!verbatim\currenttype\??type
\ctxcommand{typestring{
data = \!!bs\detokenize{#1}\!!es,
tab = "\typeparameter\c!tab",
@@ -339,7 +339,7 @@
\def\buff_verbatim_type_nested#1%
{\buff_verbatim_initialize_type_two
- \dostarttagged\t!verbatim\currenttype
+ \dostarttaggedchained\t!verbatim\currenttype\??type
\ctxcommand{typestring{
data = \!!bs\detokenize{#1}\!!es,
tab = "\typeparameter\c!tab",
@@ -499,7 +499,7 @@
\def\buff_verbatim_type_block_verbatim_indeed#1#2%
{\buff_verbatim_initialize_typing_two
- \dostarttagged\t!verbatimblock\currenttyping
+ \dostarttaggedchained\t!verbatimblock\currenttyping\??typing
\beginofverbatimlines
\dostarttagged\t!verbatimlines\empty
\ctxcommand{typebuffer {
@@ -618,7 +618,7 @@
\buff_verbatim_setup_line_numbering
\buff_verbatim_initialize_typing_one
\buff_verbatim_initialize_typing_two
- \dostarttagged\t!verbatimblock\currenttyping
+ \dostarttaggedchained\t!verbatimblock\currenttyping\??typing
\beginofverbatimlines
\dostarttagged\t!verbatimlines\empty
\ctxcommand{typefile {
@@ -791,7 +791,7 @@
\buff_verbatim_setup_line_numbering
\buff_verbatim_initialize_typing_one
\buff_verbatim_initialize_typing_two
- \dostarttagged\t!verbatimblock{#1}%
+ \dostarttaggedchained\t!verbatimblock{#1}\??typing
\beginofverbatimlines
\dostarttagged\t!verbatimlines\empty
\ctxcommand{typebuffer {
diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv
index 765db89ef..d54ba6c3f 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{2014.10.22 16:23}
+\newcontextversion{2014.10.27 09:27}
%D This file is loaded at runtime, thereby providing an excellent place for
%D hacks, patches, extensions and new features.
diff --git a/tex/context/base/context-version.pdf b/tex/context/base/context-version.pdf
index 931034d50..4080c15b4 100644
--- a/tex/context/base/context-version.pdf
+++ b/tex/context/base/context-version.pdf
Binary files differ
diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv
index 2b5595c11..bdb1e8c07 100644
--- a/tex/context/base/context.mkiv
+++ b/tex/context/base/context.mkiv
@@ -28,7 +28,7 @@
%D up and the dependencies are more consistent.
\edef\contextformat {\jobname}
-\edef\contextversion{2014.10.22 16:23}
+\edef\contextversion{2014.10.27 09:27}
\edef\contextkind {beta}
%D For those who want to use this:
diff --git a/tex/context/base/export-example.css b/tex/context/base/export-example.css
index 36c308c17..cbe4ccf4e 100644
--- a/tex/context/base/export-example.css
+++ b/tex/context/base/export-example.css
@@ -9,8 +9,24 @@
/*
- Because empty div elements are not seen we put a comment in them
- so that empty table cells etc work ok.
+ Because empty div elements are not seen we put a comment in them so that empty
+ table cells etc work ok.
+
+ We can style individual elements in several ways and we support in this css file
+ meaningful elements as well as divs. If needed you can use the chain field as well
+ as chain elements in the div class for styling groups.
+
+ \definefloat[myfloata]
+ \definefloat[myfloatb][myfloatbs][figure]
+
+ div.float.myfloata { } float[detail='myfloata'] { }
+ div.float.myfloatb { } float[detail='myfloatb'] { }
+ div.float.figure { } float[detail='figure'] { }
+ div.float.figure.myfloatb { } float[chain~='figure'][detail='myfloata'] { }
+ div.myfloata { } *[detail='myfloata'] { }
+ div.myfloatb { } *[detail='myfloatb'] { }
+ div.figure { } *[chain~='figure'] { }
+ div.figure.myfloatb { } *[chain~='figure'][detail='myfloatb'] { }
*/
@@ -45,6 +61,7 @@ document:before, div.document:before {
document, div.document {
font-family : "DejaVu Serif", "Lucida Bright", serif ;
font-size : 12pt ;
+ line-height : 14.4pt;
max-width : 50em ;
padding : 1em ;
/* text-align : justify ; */
@@ -100,7 +117,7 @@ break, div.break {
construct, div.construct {
}
-construct[detail="important"], div.construct.detail-important {
+construct[detail="important"], div.construct.important {
font-weight : bold ;
}
@@ -123,7 +140,7 @@ sectioncontent, div.sectioncontent {
}
section[detail="chapter"], section[detail="title"],
- div.section.detail-chapter, div.section.detail-title {
+ div.section.chapter, div.section.title {
page-break-before : always ;
page-break-after : avoid ;
margin-top : 3em ;
@@ -131,34 +148,34 @@ section[detail="chapter"], section[detail="title"],
}
section[detail="section"], section[detail="subject"],
- div.section.detail-section, div.section.detail-subject {
+ div.section.section, div.section.subject {
page-break-after : avoid ;
margin-top : 2.5em ;
margin-bottom : 2.5em ;
}
section[detail="subsection"], section[detail="subsubject"],
- div.section.detail-subsection, div.section.detail-subsubject {
+ div.section.subsection, div.section.subsubject {
page-break-after : avoid ;
margin-top : 2em ;
margin-bottom : 2em ;
}
section[detail="subsubsection"], section[detail="subsubsubject"],
- div.section.detail-subsubsection, div.section.detail-subsubsubject {
+ div.section.subsubsection, div.section.subsubsubject {
page-break-after : avoid ;
margin-top : 1em ;
margin-bottom : 0em ;
}
section[detail="summary"], section[detail="subsummary"],
- div.section.detail-summary, div.section.detail-subsummary {
+ div.section.summary, div.section.subsummary {
margin-top : 1em ;
margin-bottom : 1em ;
}
section[detail="chapter"]>sectionnumber,
- div.section.detail-chapter div.sectionnumber {
+ div.section.chapter div.sectionnumber {
display : inline-block ;
margin-right : 1em ;
font-size : 3em ;
@@ -166,41 +183,41 @@ section[detail="chapter"]>sectionnumber,
}
section[detail="chapter"]>sectiontitle, section[detail="title"]>sectiontitle,
- div.section.detail-chapter div.sectiontitle, div.section.detail-title div.sectiontitle {
+ div.section.chapter div.sectiontitle, div.section.title div.sectiontitle {
display : inline-block ;
font-size : 3em ;
font-weight : bold ;
}
section[detail="section"]>sectiontitle, section[detail="subject"]>sectiontitle,
- div.section.detail-section div.sectiontitle, div.section.detail-subject div.sectiontitle {
+ div.section.section div.sectiontitle, div.section.subject div.sectiontitle {
display : inline-block ;
font-size : 2.5em ;
font-weight : bold ;
}
section[detail="subsection"]>sectiontitle, section[detail="subsubject"]>sectiontitle,
- div.section.detail-subsection div.sectiontitle, div.section.detail-subsubject div.sectiontitle {
+ div.section.subsection div.sectiontitle, div.section.subsubject div.sectiontitle {
display : inline-block ;
font-size : 2em ;
font-weight : bold ;
}
section[detail="subsubsection"]>sectiontitle, section[detail="subsubsubject"]>sectiontitle,
- div.section.detail-subsubsection div.sectiontitle, div.section.detail-subsubsubject div.sectiontitle {
+ div.section.subsubsection div.sectiontitle, div.section.subsubsubject div.sectiontitle {
display : inline-block ;
font-size : 1em ;
font-weight : bold ;
}
-section[detail="section"]>sectionnumber, div.section.detail-section div.sectionnumber {
+section[detail="section"]>sectionnumber, div.section.section div.sectionnumber {
display : inline-block ;
margin-right : 1em ;
font-size : 2.5em ;
font-weight : bold ;
}
-section[detail="summary"]>sectiontitle, div.section.detail-summary div.sectiontitle {
+section[detail="summary"]>sectiontitle, div.section.summary div.sectiontitle {
display : block ;
margin-top : 1em ;
margin-bottom : 1em ;
@@ -210,14 +227,14 @@ section[detail="summary"]>sectiontitle, div.section.detail-summary div.sectionti
border-width : .15em;
}
-section[detail="subsection"]>sectionnumber, div.section.detail-subsection div.sectionnumber {
+section[detail="subsection"]>sectionnumber, div.section.subsection div.sectionnumber {
display : inline-block ;
margin-right : 1em ;
font-size : 1em ;
font-weight : bold ;
}
-section[detail="subsummary"]>sectiontitle, div.section.detail-subsummary div.sectiontitle {
+section[detail="subsummary"]>sectiontitle, div.section.subsummary div.sectiontitle {
display : block ;
margin-top : 1em ;
margin-bottom : 1em ;
@@ -508,17 +525,17 @@ list, div.list {
display : block ;
}
-listitem[detail="chapter"], div.listitem.detail-chapter {
+listitem[detail="chapter"], div.listitem.chapter {
display : block ;
margin-top : 1em ;
font-weight : bold ;
}
-listitem[detail="section"], div.listitem.detail-section {
+listitem[detail="section"], div.listitem.section {
display : block ;
}
-listitem[detail="subsection"], div.listitem.detail-subsection {
+listitem[detail="subsection"], div.listitem.subsection {
display : block ;
display : inline-block ;
}
@@ -547,25 +564,25 @@ listpage, div.listpage {
/* :lang(en) */
delimited[detail="quotation"]:before, delimitedblock[detail="quotation"]:before,
- div.delimited.detail-quotation:before, div.delimitedblock.detail-quotation:before {
+ div.delimited.quotation:before, div.delimitedblock.quotation:before {
/* content : "\201C" ; */
font-style : italic ;
}
delimited[detail="quotation"]:after, delimitedblock[detail="quotation"]:after,
- div.delimited.detail-quotation:after, div.delimitedblock.detail-quotation:after {
+ div.delimited.quotation:after, div.delimitedblock.quotation:after {
/* content : "\201D" ; */
font-style : italic ;
}
delimited[detail="quote"]:before, delimitedblock[detail="quote"]:before,
- div.delimited.detail-quote:before, div.delimitedblock.detail-quote:before {
+ div.delimited.quote:before, div.delimitedblock.quote:before {
/* content : "\2018" ; */
font-style : italic ;
}
delimited[detail="quote"]:after, delimitedblock[detail="quote"]:after,
- div.delimited.detail-quote:after, div.delimitedblock.detail-quote:after {
+ div.delimited.quote:after, div.delimitedblock.quote:after {
/* content : "\2019" ; */
font-style : italic ;
}
diff --git a/tex/context/base/lang-lab.mkiv b/tex/context/base/lang-lab.mkiv
index 7dcaaecb4..27d35776d 100644
--- a/tex/context/base/lang-lab.mkiv
+++ b/tex/context/base/lang-lab.mkiv
@@ -84,6 +84,7 @@
\unexpanded\def\lang_labels_define_class_indeed#1#2#3#4#5#6#7#8#9%
{\setuvalue{setup#1text}{\protecttextprefixes#2\def\currenttextprefixclass{#1}\dodoubleempty\lang_labels_text_prefix_setup}%
\setuvalue{preset#1text}{\protecttextprefixes1\def\currenttextprefixclass{#1}\dodoubleempty\lang_labels_text_prefix_setup}%
+ \setuvalue{copy#1text}{\protecttextprefixes1\def\currenttextprefixclass{#1}\dodoubleempty\lang_labels_text_prefix_copy}%
\setuvalue{start#1text}{\protecttextprefixes1\def\currenttextprefixclass{#1}\dotripleempty\lang_labels_text_prefix_start[#1]}%
\letvalue{stop#1text}\relax
\def#4{\reallanguagetag{\defaultlanguage\currentmainlanguage}}%
@@ -238,6 +239,26 @@
\unexpanded\def\setlabeltextpair#1#2#3#4#5% a fast one for usage at the Lua end
{\expandafter\def\csname\??label#1:\reallanguagetag{#2}:#3\endcsname{{#4}{#5}}} % class tag key left right
+\def\lang_labels_text_prefix_copy[#1][#2]%
+ {\ifsecondargument
+ \edef\currenttextprefixtag{\reallanguagetag{#1}}%
+ \processcommalist[#2]\lang_labels_text_prefix_copy_indeed
+ \else
+ \edef\currenttextprefixtag{\reallanguagetag\currentmainlanguage}%
+ \processcommalist[#1]\lang_labels_text_prefix_copy_indeed
+ \fi}
+
+\def\lang_labels_text_prefix_copy_indeed#1%
+ {\lang_labels_text_prefix_copy_pair[#1]}
+
+\def\lang_labels_text_prefix_copy_pair[#1=#2]%
+ {\lang_labels_text_prefix_copy_pair_indeed{#1}[#2,,]}
+
+\def\lang_labels_text_prefix_copy_pair_indeed#1[#2,#3]%
+ {\expandafter\let
+ \csname\??label\currenttextprefixclass:\currenttextprefixtag:#1\expandafter\endcsname
+ \csname\??label\currenttextprefixclass:\currenttextprefixtag:#2\endcsname}
+
\definelabelclass [head] [0] % titles
\definelabelclass [label] [0] % texts
\definelabelclass [mathlabel] [0] % functions
diff --git a/tex/context/base/lpdf-tag.lua b/tex/context/base/lpdf-tag.lua
index 678a57edd..904d5b196 100644
--- a/tex/context/base/lpdf-tag.lua
+++ b/tex/context/base/lpdf-tag.lua
@@ -83,16 +83,14 @@ local names = pdfarray()
local structurestags = structures.tags
local taglist = structurestags.taglist
+local specifications = structurestags.specifications
local usedlabels = structurestags.labels
local properties = structurestags.properties
-local userdata = structurestags.userdata
local lasttaginchain = structurestags.lastinchain
local usedmapping = { }
-local tagsplitter = structurestags.patterns.splitter
------ colonsplitter = lpeg.splitat(":")
------ dashsplitter = lpeg.splitat("-")
+-- local tagsplitter = structurestags.patterns.splitter
local add_ids = false -- true
@@ -173,7 +171,6 @@ end
-- here we can flush and free elements that are finished
-local userproperties = structurestags.userproperties
local pdf_userproperties = pdfconstant("UserProperties")
local function makeattribute(t)
@@ -192,26 +189,27 @@ local function makeattribute(t)
end
end
-local function makeelement(fulltag,parent,attr)
- local tg, detail, n = lpegmatch(tagsplitter,fulltag)
- -- local tag, n = lpegmatch(dashsplitter,fulltag)
- -- local tg, detail = lpegmatch(colonsplitter,tag)
- if tg == "ignore" then
+local function makeelement(fulltag,parent)
+ local specification = specifications[fulltag]
+ local tag = specification.tagname
+ if tag == "ignore" then
return false
- elseif tg == "mstackertop" or tg == "mstackerbot" or tg == "mstackermid"then
+ elseif tag == "mstackertop" or tag == "mstackerbot" or tag == "mstackermid"then
+ -- TODO
return true
- elseif tg == "mstacker" then
- local p = properties[fulltag]
- tg = p and p.subtype or tg
end
+ --
+ local detail = specification.detail
+ local userdata = specification.userdata
+ --
+ usedmapping[tag] = true
+ --
local k = pdfarray()
local r = pdfreserveobject()
- local a = userproperties[fulltag]
- usedmapping[tg] = true
- tg = usedlabels[tg] or tg
+ local t = usedlabels[tag] or tag
local d = pdfdictionary {
Type = pdf_struct_element,
- S = pdfconstant(tg),
+ S = pdfconstant(t),
ID = (add_ids and fulltag) or nil,
T = detail and detail or nil,
P = parent.pref,
@@ -228,8 +226,7 @@ local function makeelement(fulltag,parent,attr)
end
local kids = parent.kids
kids[#kids+1] = s
--- local e = { tag = tag, pref = s, kids = k, knum = r, pnum = pagenum }
- local e = { tag = detail and (tg .. "<" .. detail) or tg, pref = s, kids = k, knum = r, pnum = pagenum }
+ local e = { tag = t, pref = s, kids = k, knum = r, pnum = pagenum }
elements[fulltag] = e
return e
end
@@ -345,12 +342,13 @@ function nodeinjections.addtags(head)
for i=1,#ranges do
local range = ranges[i]
local attr, id, start, stop, list = range[1], range[2], range[3], range[4], range[5]
- local tags = taglist[attr]
+ local specification = taglist[attr]
+ local list = specification.taglist
local prev = root
- local noftags, tag = #tags, nil
+ local noftags, tag = #list, nil
for j=1,noftags do
- local tag = tags[j]
- local prv = elements[tag] or makeelement(tag,prev,attr)
+ local tag = list[j]
+ local prv = elements[tag] or makeelement(tag,prev)
if prv == false then
-- ignore this one
prev = false
diff --git a/tex/context/base/math-tag.lua b/tex/context/base/math-tag.lua
index 6bdebeb42..9f73d0afc 100644
--- a/tex/context/base/math-tag.lua
+++ b/tex/context/base/math-tag.lua
@@ -146,13 +146,8 @@ end
local actionstack = { }
local fencesstack = { }
-local P, S, C, Cc, lpegmatch = lpeg.P, lpeg.S, lpeg.C, lpeg.Cc, lpeg.match
-local splittag = C(P(1-S(":-"))^1) * (P(":") * C((1-P("-"))^1) + Cc(""))
-
-- glyph nodes and such can happen in under and over stuff
-local detail_accent = { detail = "accent" }
-
local function getunicode(n) -- instead of getchar
local char = getchar(n)
local font = font_of_family(getfield(n,"fam")) -- font_of_family
@@ -193,11 +188,6 @@ process = function(start) -- we cannot use the processor as we have no finalizer
end
if id == math_char_code then
local char = getchar(start)
- -- check for code
- local a = getattr(start,a_mathcategory)
- if a then
- a = { detail = a }
- end
local code = getmathcode(char)
if code then
code = code[1]
@@ -216,14 +206,19 @@ process = function(start) -- we cannot use the processor as we have no finalizer
else
tag = "mo"
end
- setattr(start,a_tagged,start_tagged(tag,a))
+ local a = getattr(start,a_mathcategory)
+ if a then
+ setattr(start,a_tagged,start_tagged(tag,{ mathcategory = a }))
+ else
+ setattr(start,a_tagged,start_tagged(tag)) -- todo: a_mathcategory
+ end
stop_tagged()
break -- okay?
elseif id == math_textchar_code then -- or id == glyph_code
-- check for code
local a = getattr(start,a_mathcategory)
if a then
- setattr(start,a_tagged,start_tagged("ms",{ detail = a })) -- mtext
+ setattr(start,a_tagged,start_tagged("ms",{ mathcategory = a })) -- mtext
else
setattr(start,a_tagged,start_tagged("ms")) -- mtext
end
@@ -241,12 +236,8 @@ process = function(start) -- we cannot use the processor as we have no finalizer
elseif id == math_box_code or id == hlist_code or id == vlist_code then
-- keep an eye on math_box_code and see what ends up in there
local attr = getattr(start,a_tagged)
- local last = attr and taglist[attr]
- local tag, detail
- if last then
- local fulltag = last[#last]
- tag, detail = lpegmatch(splittag,fulltag)
- end
+ local specification = taglist[attr]
+ local tag = specification.tagname
if tag == "formulacaption" then
-- skip
elseif tag == "mstacker" then
@@ -274,7 +265,7 @@ process = function(start) -- we cannot use the processor as we have no finalizer
--
-- todo: have a local list with local tags that then get appended
--
- local tagdata = taglist[attr] or { }
+ local tagdata = specification.taglist
local common = #tagdata + 1
local function runner(list,depth) -- quite inefficient
local cache = { } -- we can have nested unboxed mess so best local to runner
@@ -293,7 +284,7 @@ process = function(start) -- we cannot use the processor as we have no finalizer
if aa then
local ac = cache[aa]
if not ac then
- local tagdata = taglist[aa]
+ local tagdata = taglist[aa].taglist
local extra = #tagdata
if common <= extra then
for i=common,extra do
@@ -339,8 +330,8 @@ process = function(start) -- we cannot use the processor as we have no finalizer
local attr = getattr(start,a_tagged)
local last = attr and taglist[attr]
if last then
- local fulltag = last[#last]
- local tag, detail = lpegmatch(splittag,fulltag)
+ local tag = last.tag
+ local detail = last.detail
if tag == "maction" then
if detail == "" then
setattr(start,a_tagged,start_tagged("mrow"))
@@ -416,7 +407,7 @@ process = function(start) -- we cannot use the processor as we have no finalizer
-- left
local properties = { }
insert(fencesstack,properties)
- setattr(start,a_tagged,start_tagged("mfenced",nil,properties)) -- needs checking
+ setattr(start,a_tagged,start_tagged("mfenced",{ properties = properties })) -- needs checking
if delim then
start_tagged("ignore")
local chr = getfield(delim,"small_char")
@@ -490,7 +481,8 @@ process = function(start) -- we cannot use the processor as we have no finalizer
local subtype = getsubtype(start)
if bot_accent then
if accent then
- setattr(start,a_tagged,start_tagged("munderover", detail_accent, {
+ setattr(start,a_tagged,start_tagged("munderover", {
+ accent = true,
top = getunicode(accent),
bottom = getunicode(bot_accent),
topfixed = subtype == math_fixed_top or subtype == math_fixed_both,
@@ -501,7 +493,8 @@ process = function(start) -- we cannot use the processor as we have no finalizer
process(accent)
stop_tagged()
else
- setattr(start,a_tagged,start_tagged("munder", detail_accent, {
+ setattr(start,a_tagged,start_tagged("munder", {
+ accent = true,
bottom = getunicode(bot_accent),
bottomfixed = subtype == math_fixed_bottom or subtype == math_fixed_both,
}))
@@ -510,7 +503,8 @@ process = function(start) -- we cannot use the processor as we have no finalizer
stop_tagged()
end
elseif accent then
- setattr(start,a_tagged,start_tagged("mover", detail_accent, {
+ setattr(start,a_tagged,start_tagged("mover", {
+ accent = true,
top = getunicode(accent),
topfixed = subtype == math_fixed_top or subtype == math_fixed_both,
}))
@@ -522,7 +516,7 @@ process = function(start) -- we cannot use the processor as we have no finalizer
end
elseif id == glue_code then
-- local spec = getfield(start,"spec")
- -- setattr(start,a_tagged,start_tagged("mspace",nil,spec and { width = getfield(spec,"width") }))
+ -- setattr(start,a_tagged,start_tagged("mspace",{ width = getfield(spec,"width") }))
setattr(start,a_tagged,start_tagged("mspace"))
stop_tagged()
else
@@ -539,12 +533,9 @@ end
function noads.handlers.tags(head,style,penalties)
head = tonut(head)
- local v_math = start_tagged("math")
- local v_mrow = start_tagged("mrow")
local v_mode = getattr(head,a_mathmode)
- -- setattr(head,a_tagged,v_math)
- setattr(head,a_tagged,v_mrow)
- tags.setattributehash(v_math,"mode",v_mode == 1 and "display" or "inline")
+ local v_math = start_tagged("math", { mode = v_mode == 1 and "display" or "inline" })
+ setattr(head,a_tagged,start_tagged("mrow"))
process(head)
stop_tagged()
stop_tagged()
diff --git a/tex/context/base/mult-aux.mkiv b/tex/context/base/mult-aux.mkiv
index 748a552ee..11414f38b 100644
--- a/tex/context/base/mult-aux.mkiv
+++ b/tex/context/base/mult-aux.mkiv
@@ -339,6 +339,11 @@
\expandafter\edef\csname#1#4:\s!parent\endcsname{#2}%
\fi \fi}
+\def\mult_interfaces_chain#1#2{\ifcsname#1#2:\s!chain\endcsname\csname#1#2:\s!chain\endcsname\space\fi}
+\def\getparentchain #1#2{\ifcsname#1#2:\s!chain\endcsname\csname#1#2:\s!chain\endcsname\fi}
+\def\getcurrentparentchain#1#2{\csname#1#2:\s!chain\endcsname} % for the moment test:
+\def\getcurrentparentchain#1#2{\ifcsname#1#2:\s!chain\endcsname\csname#1#2:\s!chain\endcsname\fi}
+
\unexpanded\def\mult_interfaces_install_define_handler#1#2#3#4#5#6#7#8#9% why is \expanded still needed in clones
{\ifx#4\relax\let#4\empty\fi % see \defineregister
\unexpanded\def#2{\dotripleempty#5}%
@@ -351,6 +356,7 @@
\the#6% predefine
\edef#8{##2}%
\mult_check_for_parent{#1}{#3}#4#8%
+ \expandafter\edef\csname#1#4:\s!chain\endcsname{\mult_interfaces_chain#1{##2}##1}%
\expandafter\edef\csname#1#4:\s!parent\endcsname{#1##2}%
\mult_interfaces_get_parameters{#1#4:}[##3]%
\else\ifsecondargument
@@ -358,16 +364,19 @@
\expandafter\mult_check_for_assignment_indeed\detokenize{##2}=@@\_end_
\ifassignment
\let#8\empty
+ \expandafter\edef\csname#1#4:\s!chain\endcsname{##1}%
\expandafter\edef\csname#1#4:\s!parent\endcsname{#3}%
\mult_interfaces_get_parameters{#1#4:}[##2]%
\else
\edef#8{##2}%
\mult_check_for_parent{#1}{#3}#4#8%
+ \expandafter\edef\csname#1#4:\s!chain\endcsname{\mult_interfaces_chain#1{##2}##1}%
\expandafter\edef\csname#1#4:\s!parent\endcsname{#1##2}%
\fi
\else
\the#6% predefine
\let#8\empty
+ \expandafter\edef\csname#1#4:\s!chain\endcsname{##1}%
\expandafter\edef\csname#1#4:\s!parent\endcsname{#3}%
\fi\fi
\the#7%
diff --git a/tex/context/base/mult-def.mkiv b/tex/context/base/mult-def.mkiv
index 4693513b0..7bd692fea 100644
--- a/tex/context/base/mult-def.mkiv
+++ b/tex/context/base/mult-def.mkiv
@@ -32,7 +32,7 @@
\ctxlua{interfaces.setuserinterface("\userinterfacetag","\userresponsestag")}
-% start todo:
+% start todo in muld-def.lua:
\def\c!svgstyle {svgstyle}
@@ -76,6 +76,7 @@
\def\c!properties {properties}
\def\c!journalconversion {journalconversion}
\def\c!register {register}
+\def\c!field {field}
\def\c!referencemethod {referencemethod} % forward both
@@ -109,27 +110,6 @@
\def\v!vfenced {vfenced}
\def\v!bothtext {bothtext}
-\def\s!lcgreek {lcgreek}
-\def\s!ucgreek {ucgreek}
-\def\s!sygreek {sygreek}
-\def\s!italics {italics}
-\def\s!integral {integral}
-\def\s!insert {insert} % maybe insertclass
-\def\s!marker {marker}
-
-\def\s!mixedcolumn {mixedcolumn}
-
-\def\s!double {double}
-\def\s!decimal {decimal}
-\def\s!binary {binary}
-
-\def\s!internal {internal}
-
-\def\s!current {current}
-
-\def\s!rel {rel}
-\def\s!ord {ord}
-
\def\c!HL {HL}
\def\c!VL {VL}
\def\c!NL {NL}
diff --git a/tex/context/base/mult-sys.mkiv b/tex/context/base/mult-sys.mkiv
index 3f7a837fc..2a1261d8f 100644
--- a/tex/context/base/mult-sys.mkiv
+++ b/tex/context/base/mult-sys.mkiv
@@ -124,7 +124,7 @@
\definesystemconstant {SansSlanted}
\definesystemconstant {SansBoldSlanted}
\definesystemconstant {SansCaps}
-% \definesystemconstant {SansCapsSlanted}
+%definesystemconstant {SansCapsSlanted}
\definesystemconstant {Mono}
\definesystemconstant {MonoBold}
@@ -133,8 +133,8 @@
\definesystemconstant {MonoSlanted}
\definesystemconstant {MonoBoldSlanted}
\definesystemconstant {MonoCaps}
-% \definesystemconstant {MonoCapsSlanted}
-% \definesystemconstant {MonoVariable}
+%definesystemconstant {MonoCapsSlanted}
+%definesystemconstant {MonoVariable}
\definesystemconstant {DefaultFont}
@@ -261,6 +261,14 @@
\definesystemconstant {single}
\definesystemconstant {multi}
\definesystemconstant {indeed}
+\definesystemconstant {internal}
+\definesystemconstant {current}
+\definesystemconstant {chain}
+
+\definesystemconstant {cite}
+\definesystemconstant {nocite}
+\definesystemconstant {list}
+\definesystemconstant {author}
% \def\s!parent{->} % 1% faster / => does not work in assignments
% \def\s!child {<-} % 1% faster / <= does not work in assignments
@@ -279,12 +287,16 @@
\definesystemconstant {bold}
\definesystemconstant {italic}
\definesystemconstant {slanted}
-
-\definesystemconstant {default}
\definesystemconstant {smallcaps}
+\definesystemconstant {lcgreek}
+\definesystemconstant {ucgreek}
+\definesystemconstant {sygreek}
+\definesystemconstant {italics}
\definesystemconstant {run}
+\definesystemconstant {default}
+
\definesystemconstant {mode}
\definesystemconstant {setup}
\definesystemconstant {environment}
@@ -303,6 +315,10 @@
\definesystemconstant {lefthyphenchar}
\definesystemconstant {righthyphenchar}
+\definesystemconstant {double}
+\definesystemconstant {decimal}
+\definesystemconstant {binary}
+
%definesystemconstant {skewchar}
%definesystemconstant {hyphenchar}
\definesystemconstant {catcodes}
@@ -323,6 +339,11 @@
%definesystemconstant {background}
%definesystemconstant {ucmap}
\definesystemconstant {level}
+\definesystemconstant {integral}
+\definesystemconstant {insert} % maybe insertclass
+\definesystemconstant {marker}
+
+\definesystemconstant {mixedcolumn}
%definesystemconstant {property}
%definesystemconstant {overprint}
@@ -383,8 +404,13 @@
\definesystemconstant {size}
\definesystemconstant {depth}
+\definesystemconstant {height}
+\definesystemconstant {noheight}
\definesystemconstant {nodepth}
+\definesystemconstant {rel}
+\definesystemconstant {ord}
+
%D Just to be complete we define the standard \TEX\ units.
\definesystemconstant {cm}
diff --git a/tex/context/base/pack-com.mkiv b/tex/context/base/pack-com.mkiv
index 72bb906d9..4f4bc9f47 100644
--- a/tex/context/base/pack-com.mkiv
+++ b/tex/context/base/pack-com.mkiv
@@ -227,7 +227,7 @@
\pack_combinations_location_reset
\rawprocesscommacommand[\p_location]\pack_combinations_location_step
%
- \dostarttagged\t!combination\currentcombination
+ \dostarttaggedchained\t!combination\currentcombination\??combination
\vbox \ifx\p_height\v!fit\else to \p_height \fi \bgroup
\let\combination\empty % permits \combination{}{} handy for cld
\normalexpanded{\pack_combinations_start_indeed[\currentcombinationspec]}}
diff --git a/tex/context/base/page-mix.mkiv b/tex/context/base/page-mix.mkiv
index 3dc170b2e..b85784ac9 100644
--- a/tex/context/base/page-mix.mkiv
+++ b/tex/context/base/page-mix.mkiv
@@ -510,6 +510,10 @@
{\c_page_mix_routine\c_page_mix_routine_balance}%
{\penalty-\plustenthousand}% weird hack, we need to trigger the otr sometimes (new per 20140306, see balancing-001.tex)
\page_otr_trigger_output_routine
+ \ifvoid\b_page_mix_preceding \else
+ % empty columns so we need to make sure pending content is flushed
+ \unvbox\b_page_mix_preceding % new per 2014.10.25
+ \fi
\fi}
\setvalue{\??mixedcolumnsafter\s!otr}%
@@ -561,7 +565,7 @@
\setbox\scratchbox\page_mix_command_package_column
\page_marks_synchronize_column\plusone\c_page_mix_n_of_columns\recurselevel\scratchbox
% backgrounds
-\anch_mark_column_box\scratchbox
+ \anch_mark_column_box\scratchbox
% for the moment a quick and dirty patch .. we need to go into the box (hence the \plusone) .. a slowdowner
\page_lines_add_numbers_to_box\scratchbox\recurselevel\c_page_mix_n_of_columns\plusone
% the framed needs a reset of strut, align, setups etc
diff --git a/tex/context/base/publ-aut.lua b/tex/context/base/publ-aut.lua
index a14176b24..8e1b20219 100644
--- a/tex/context/base/publ-aut.lua
+++ b/tex/context/base/publ-aut.lua
@@ -46,14 +46,9 @@ publications.authors = authors
local space = P(" ")
local comma = P(",")
local firstcharacter = lpegpatterns.utf8byte
-
--- local andsplitter = lpeg.tsplitat(space^1 * "and" * space^1)
--- local commasplitter = lpeg.tsplitat(space^0 * comma * space^0)
--- local spacesplitter = lpeg.tsplitat(space^1)
-
-local p_and = space^1 * "and" * space^1
-local p_comma = space^0 * comma * space^0
-local p_space = space^1
+local p_and = space^1 * "and" * space^1
+local p_comma = space^0 * comma * space^0
+local p_space = space^1
local andsplitter = Ct { "start",
start = (Cs((V("inner") + (1-p_and))^1) + p_and)^1,
@@ -104,7 +99,6 @@ local function splitauthorstring(str)
if not detail then
local firstnames, vons, surnames, initials, juniors
local split = lpegmatch(commasplitter,author)
--- inspect(split)
local n = #split
if n == 1 then
-- First von Last
@@ -210,19 +204,6 @@ end
authors.splitstring = splitauthorstring
--- local function splitauthors(dataset,tag,field)
--- local entries = datasets[dataset]
--- local luadata = entries.luadata
--- if not luadata then
--- return { }
--- end
--- local entry = luadata[tag]
--- if not entry then
--- return { }
--- end
--- return splitauthorstring(entry[field])
--- end
-
local function the_initials(initials,symbol)
if not symbol or symbol == "" then
return initials
@@ -387,11 +368,11 @@ function commands.btxauthor(dataset,tag,field,settings)
end
end
--- We can consider creating a hashtable key -> entry but I wonder if
+-- We can consider creating a hashtable key -> entry but I wonder if it ever
-- pays off.
local compare = sorters.comparers.basic -- (a,b)
--- local compare = sorters.basicsorter -- (a,b)
+----- compare = sorters.basicsorter -- (a,b)
local strip = sorters.strip
local splitter = sorters.splitters.utf
@@ -436,6 +417,39 @@ end
writers.author = writer
writers.editor = editor
+-- how to deal with publisher?
+
+local default = { "author", "editor" }
+
+function authors.getauthor(dataset,tag,categories)
+ local current = datasets[dataset]
+ local entry = current.luadata[tag]
+ if entry then
+ local category = entry.category
+ local detail = current.details[tag]
+ if detail then
+ local list
+ if categories then
+ local c = categories[category]
+ if c then
+ list = c.author or default
+ else
+ list = default
+ end
+ else
+ list = default
+ end
+ for i=1,#list do
+ local l = list[i]
+ local d = detail[l]
+ if d then
+ return d, l
+ end
+ end
+ end
+ end
+end
+
publications.serializeauthor = writer -- helper
local function newsplitter(splitter)
@@ -446,27 +460,10 @@ local function newsplitter(splitter)
end)
end
-
--- First sorting key:
--- A. key= if present takes precedence
--- B. author= if present takes second precedence (when key= is absent)
--- C. editor= if present takes third precedence (when key= and author= are absent)
--- D. publisher= if present (in absence of key=, author= and editor=)
--- E. title= if present (but only in absence of key=, author=, editor= and publisher=)
--- F. journal= if present
--- G. volume= if present
--- H. number= if present
--- I. pages= if present
--- K. if all else fails, ? (APA specifies using "Anonymous" ONLY when specifically listed as such in the publication!)
-
--- Second sorting key:
--- A. year= if present, takes precedence, otherwise treat "n.d." as most recent.
--- B. suffix (same first key and same year)
--- What about "n.d."? Here, it would be reasonable to second sort by
--- title= (lower precedence than the first key above)
--- C. month=
--- D. day=
--- E. journal=, followed by volume=, followed by number=
+-- Analysis of the APA by Alan:
+--
+-- first : key author editor publisher title journal volume number pages
+-- second: year suffix title month day journal volume number
local function byauthor(dataset,list,method)
local luadata = datasets[dataset].luadata
@@ -482,6 +479,7 @@ local function byauthor(dataset,list,method)
local detail = details[tag]
local index = tostring(i)
if entry and detail then
+-- todo pluggable
local mainkey = writer(detail.author or detail.editor or entry.publisher or entry.title or "",snippets)
-- we could store the mainkey in details for tracing
result[i] = {
@@ -540,34 +538,6 @@ function authors.sorted(dataset,list,sorttype) -- experimental
end
end
-local f_author = formatters[ [[\dobtxindexedauthor{%s}{%s}{%s}{%s}]] ]
-local writer = publications.serializeauthor
-
-function commands.btxauthortoregister(register,dataset,tag)
- local current = datasets[dataset]
- local details = current.details
- local detail = details[tag]
- if detail then
- local author = detail.author
- if author then
- for i=1,#author do
- local a = author[i]
- local k = writer {a}
- local e = f_author(dataset,tag,"author",i)
- context.dosetfastregisterentry(register,e,k)
- -- context.setregisterentry(
- -- { register },
- -- {
- -- ["entries:1"] = e,
- -- ["keys:1"] = k,
- -- }
- -- )
- end
- end
- end
-end
-
-
-- local dataset = publications.datasets.test
--
-- local function add(str)
diff --git a/tex/context/base/publ-dat.lua b/tex/context/base/publ-dat.lua
index 424e7a00d..544528405 100644
--- a/tex/context/base/publ-dat.lua
+++ b/tex/context/base/publ-dat.lua
@@ -92,6 +92,81 @@ local separator = space * "+" * space
local l_splitter = lpeg.tsplitat(separator)
local d_splitter = lpeg.splitat (separator)
+local extrafields = {
+ category = "implicit",
+ tag = "implicit",
+ key = "implicit",
+}
+
+local default = {
+ name = name,
+ version = "1.00",
+ comment = "unknown specification.",
+ author = "anonymous",
+ copyright = "no one",
+ categories = setmetatableindex(function(t,k)
+ local v = {
+ required = { },
+ optional = { },
+ }
+ t[k] = v
+ return v
+ end),
+ fields = setmetatableindex(function(t,k)
+ local v = setmetatableindex(function(t,k) local v = "optional" t[k] = v return v end)
+ t[k] = v
+ return v
+ end),
+}
+
+local types = { "optional", "required", "virtual" }
+
+local specifications = setmetatableindex(function(t,name)
+ if not name then
+ return default -- initializer
+ end
+ local filename = formatters["publ-imp-%s.lua"](name)
+ local fullname = resolvers.findfile(fullname) or ""
+ if fullname == "" then
+ report("no data definition file %a for %a",filename,name)
+ return default
+ end
+ local specification = table.load(filename)
+ if not specification then
+ report("invalid data definition file %a for %a",fullname,name)
+ return default
+ end
+ -- goodie for alan ...
+ local categories = specification.categories
+ for k, v in next, categories do
+ if type(v) == "string" then
+ categories[k] = categories[v]
+ end
+ end
+ --
+ local fields = { }
+ specification.fields = fields
+ for category, data in next, categories do
+ local list = setmetatableindex({},extrafields)
+ fields[category] = list
+ for i=1,#types do
+ local t = types[i]
+ local d = data[t]
+ if d then
+ for i=1,#d do
+ list[d[i]] = t
+ end
+ else
+ data[t] = { }
+ end
+ end
+ end
+ t[name] = specification
+ return specification
+end)
+
+publications.specifications = specifications
+
function publications.parenttag(dataset,tag)
if not dataset or not tag then
report("error in specification, dataset %a, tag %a",dataset,tag)
diff --git a/tex/context/base/publ-imp-apa.lua b/tex/context/base/publ-imp-apa.lua
index 5f6a1d35d..5eabfbe22 100644
--- a/tex/context/base/publ-imp-apa.lua
+++ b/tex/context/base/publ-imp-apa.lua
@@ -1,5 +1,8 @@
-- to be checked
+local virtual = { "authoryear", "authoryears", "authornum", "num", "suffix" }
+local authors = { "author", "editor", "publisher" }
+
return {
name = "apa",
version = "1.00",
@@ -8,76 +11,110 @@ return {
copyright = "ConTeXt development team",
categories = {
article = {
- required = { {"author", "editor"}, "title", "journal", "year" },
- optional = { "volume", "number", "pages", "note", "type", "url", "doi" },
+ required = { "author", "editor", "title"},
+ optional = { "year", "type", "journal", "volume", "number", "pages", "url", "note", "doi" },
+ virtual = virtual,
+ author = authors,
},
magazine = {
- required = { {"author", "editor",}, "title", "journal", "year" },
+ required = { "author", "editor", "title", "journal", "year" },
optional = { "volume", "number", "pages", "month", "day", "note", "url", "doi" },
+ virtual = virtual,
+ author = authors,
},
newspaper = {
- required = { {"author", "editor",}, "title", "journal", "year" },
+ required = { "author", "editor", "title", "journal", "year" },
optional = { "volume", "number", "pages", "month", "day", "note", "url", "doi" },
+ virtual = virtual,
+ author = authors,
},
book = {
- required = { { "author", "editor" }, "title", "publisher", "year" },
- optional = { { "volume", "number" }, "series", "address", "edition", "month", "note", "pages", "ISBN" },
+ virtual = { "authoryear" },
+ required = { "author", "editor", "publisher", "title"},
+ optional = { "year", "month", "day", "title", "type", "edition", "series", "volume", "number", "pages", "address", "publisher", "url", "note", "ISBN" },
+ virtual = virtual,
+ author = authors,
},
booklet = {
required = { "title" },
optional = { "author", "howpublished", "address", "month", "year", "note" },
+ virtual = virtual,
+ author = authors,
},
inbook = {
- required = { { "author", "editor" }, "title", { "chapter", "pages" }, "publisher","year" },
- optional = { { "volume", "number" }, "series", "type", "address", "edition", "month", "note", "ISBN" },
+ required = { "author", "editor", "title", "chapter", "pages", "publisher","year" },
+ optional = { "volume", "number", "series", "type", "address", "edition", "month", "note", "ISBN" },
+ virtual = virtual,
+ author = authors,
},
incollection = {
required = { "author", "title", "booktitle", "publisher", "year" },
- optional = { "editor", { "volume", "number" }, "series", "type", "chapter", "pages", "address", "edition", "month", "note", "ISBN" },
+ optional = { "editor", "volume", "number", "series", "type", "chapter", "pages", "address", "edition", "month", "note", "ISBN" },
+ virtual = virtual,
+ author = authors,
},
inproceedings = {
required = { "author", "title", "booktitle", "year" },
- optional = { "editor", { "volume", "number" }, "series", "pages", "address", "month", "organization", "publisher", "note", "ISBN" },
+ optional = { "editor", "volume", "number", "series", "pages", "address", "month", "organization", "publisher", "note", "ISBN" },
+ virtual = virtual,
+ author = authors,
},
- -- does this work:
- conference = inproceedings,
+ conference =
+ "inproceedings", -- Alan: does this work? Hans: I just made it work.
manual = {
required = { "title" },
optional = { "author", "organization", "address", "edition", "month", "year", "note" },
+ virtual = virtual,
+ author = authors,
},
mastersthesis = {
required = { "author", "title", "school", "year" },
optional = { "type", "address", "month", "note" },
+ virtual = virtual,
+ author = authors,
},
misc = {
required = { },
optional = { "author", "title", "howpublished", "month", "year", "note" },
+ virtual = virtual,
+ author = authors,
},
-- Not sure yet how "periodical" is used... but "jabref" includes it as standard.
-- strangely, "jabref" does not include "author" as required nor optional..
periodical = {
required = { "title", "year" },
optional = { "author", "editor", "month", "note", "number", "organization", "series", "volume" },
+ virtual = virtual,
+ author = authors,
},
phdthesis = {
required = { "author", "title", "school", "year" },
optional = { "type", "address", "month", "note" },
+ virtual = virtual,
},
proceedings = {
required = { "title", "year" },
- optional = { "editor", { "volume", "number" }, "series", "address", "month", "organization", "publisher", "note", "pages", "ISBN" },
+ optional = { "editor", "volume", "number", "series", "address", "month", "organization", "publisher", "note", "pages", "ISBN" },
+ virtual = virtual,
+ author = authors,
},
techreport = {
required = { "author", "title", "institution", "year" },
optional = { "type", "number", "address", "month", "note" },
+ virtual = virtual,
+ author = authors,
},
patent = {
required = { "nationality", "number", "year", "yearfiled" },
optional = { "author", "title", "language", "assignee", "address", "type", "day", "dayfiled", "month", "monthfiled", "note", },
+ virtual = virtual,
+ author = authors,
},
unpublished = {
required = { "author", "title", "note" },
optional = { "month", "year" },
+ virtual = virtual,
+ author = authors,
},
literal = {
required = { "key", "text", },
diff --git a/tex/context/base/publ-imp-apa.mkvi b/tex/context/base/publ-imp-apa.mkvi
index e83306bcd..d3f6dda73 100644
--- a/tex/context/base/publ-imp-apa.mkvi
+++ b/tex/context/base/publ-imp-apa.mkvi
@@ -36,8 +36,6 @@
% First of all, the APA style defines authoryear bibliography lists.
-% Question: is the field "key=" (->sortkey, not the \cite [key]) used if present?
-
% does not work here: \setupbtxrendering [standard] [numbering=no,sorttype=authoryear]
% does not work here: \setupbtxcitevariant [alternative=authoryear,sorttype=authoryear]
@@ -71,7 +69,7 @@
apa:phdthesis={PhD thesis},
apa:technicalreport={Tech. Rep.}, % Technical report
apa:supplement={Suppl.}, % Supplement
- apa:patent=patent,
+ apa:patent=Patent,
apa:Translator={Trans.}, % Translator(s)
apa:Editor={Ed.}, % Editor
apa:Editors={Eds.}, % Editors
@@ -91,7 +89,7 @@
apa:pages=pages,
apa:and=and,
apa:period={. },
- apa:Author=Author, %TODO, should be typeset in italic...
+ apa:Author=Author,
apa:Advanced={Advanced online publication},
apa:Retrieved={Retrieved from},
apa:others={et al.}]
@@ -102,7 +100,7 @@
apa:phdthesis={Thèse de doctorat},
apa:technicalreport={Rapport technique},
apa:supplement=Supplément,
- apa:patent=brevet,
+ apa:patent=Brevet,
apa:Translator=Traducteur,
apa:Editor=Éditeur,
apa:Editors=Éditeurs,
@@ -166,7 +164,7 @@
apa:phdthesis={Tesi di dottorato},
apa:technicalreport={Relazione tecnica},
apa:supplement={Supplemento},
- apa:patent=brevetto,
+ apa:patent=Brevetto,
apa:Translator={Trad.}, % Translator(s)
apa:Editor={A cura di},
apa:Editors={A cura di},
@@ -194,27 +192,27 @@
%D The variables control the shared code for which we use a tex definition with
%D one argument, specifying the field name.
-\setvariables
- [btx:apa:publisher]
- [left=\btxspace,
- right=\btxperiod]
-
-\setvariables
- [btx:apa:organization]
- [left=\btxspace,
- right=\btxperiod]
-
-\setvariables
- [btx:apa:school]
- [left=\btxcomma,
- right=\btxperiod,
- otherwise=\btxperiod]
-
-\setvariables
- [btx:apa:institution]
- [left=\btxcomma,
- right=\btxperiod,
- otherwise=\btxperiod]
+%\setvariables
+% [btx:apa:publisher]
+% [left=\btxspace,
+% right=\btxperiod]
+%
+%\setvariables
+% [btx:apa:organization]
+% [left=\btxspace,
+% right=\btxperiod]
+%
+%\setvariables
+% [btx:apa:school]
+% [left=\btxcomma,
+% right=\btxperiod,
+% otherwise=\btxperiod]
+%
+%\setvariables
+% [btx:apa:institution]
+% [left=\btxcomma,
+% right=\btxperiod,
+% otherwise=\btxperiod]
% First some helpers:
@@ -232,7 +230,6 @@
\btxcomma
% language issue here?
\btxflush{month}
- \btxspace
\btxdoif {day} {
\btxspace
\btxflush{day}
@@ -241,13 +238,17 @@
}
} {
\btxlabeltext{apa:nd}
+ \btxdoif {suffix} {
+ \btxspace
+ \btxflush{suffix}
+ }
}
\btxrightparenthesisperiod
\stoptexdefinition
-\starttexdefinition btx:apa:title-subtitle #before #type
+\starttexdefinition btx:apa:title-subtitle-including- #type
\btxdoif {title} {
- #before
+ \setmode{btx:apa:title-placed}
\btxflush{Word -> title}
\btxdoif {subtitle} {
\btxcolon
@@ -267,12 +268,11 @@
}
\stoptexdefinition
-\starttexdefinition btx:apa:author-or-title #type
+\starttexdefinition btx:apa:author-or-title-including- #type
\btxdoifelse {author} {
\btxflushauthor[invertedshort]{author}
} {
- \setmode{btx:apa:title-placed}
- \texdefinition{btx:apa:title-subtitle}{}{#type}
+ \texdefinition{btx:apa:title-subtitle-including-}{#type}
}
\stoptexdefinition
@@ -286,7 +286,7 @@
\btxrightparenthesisperiod
\stoptexdefinition
-\starttexdefinition btx:apa:author-or-editor-or-publisher #title
+\starttexdefinition btx:apa:author-or-editor-or-publisher-or- #title #publisher
\btxdoifelse {author} {
\btxflushauthor[invertedshort]{author}
} {
@@ -294,12 +294,14 @@
\btxflushauthor[invertedshort]{editor}
\texdefinition{btx:apa:editor-or-editors}
} {
- \btxdoifelse {publisher} {
- \btxflush{publisher}
+ \btxdoifelse {#publisher} {
+% \setmode{btx:apa:publisher-as-author}
+ \btxflush{#publisher}
} {
\doif {#title} {title} {
- \setmode{btx:apa:title-placed}
- \texdefinition{btx:apa:title-subtitle}{}{type}
+ \texdefinition{btx:apa:title-subtitle-including-}
+ \doifelse {#publisher} {institution}%->techreport
+ {type} {}
}
}
}
@@ -315,23 +317,25 @@
\btxflush{organization}
} {
\doif {#title} {title} {
- \setmode{btx:apa:title-placed}
- \texdefinition{btx:apa:title-subtitle}{}{type}
+ \texdefinition{btx:apa:title-subtitle-including-}{type}
}
}
}
\stoptexdefinition
-\starttexdefinition btx:apa:title-if-not-placed #it
+\starttexdefinition btx:apa:title-if-not-placed-including- #type #it
\doifnotmode {btx:apa:title-placed} {
- \doifelse {#it} {it} {
- \begingroup
- \it
- \texdefinition{btx:apa:title-subtitle}{\btxspace}{type}
- \italiccorrection
- \endgroup
- } {
- \texdefinition{btx:apa:title-subtitle}{\btxspace}{type}
+ \btxdoif {title} {
+ \btxspace
+ \doifelse {#it} {it} {
+ \begingroup
+ \it
+ \texdefinition{btx:apa:title-subtitle-including-}{#type}
+ \italiccorrection
+ \endgroup
+ } {
+ \texdefinition{btx:apa:title-subtitle-including-}{#type}
+ }
}
}
\stoptexdefinition
@@ -364,8 +368,8 @@
}
\stoptexdefinition
-\starttexdefinition btx:apa:doif-edition-or-volume-or-number-or-pages #if
- \btxdoifelse {edition} {
+\starttexdefinition btx:apa:doif-edition-or-volume-or-number-or-pages #edition #if
+ \btxdoifelse {#edition} {
#if
}{
\btxdoifelse {volume} {
@@ -382,16 +386,24 @@
}
\stoptexdefinition
-\starttexdefinition btx:apa:edition-volume-number-pages
- \texdefinition{btx:apa:doif-edition-or-volume-or-number-or-pages}{\btxleftparenthesis}
- \btxdoif {edition} {
- \btxflush{edition}
- \btxspace
- \btxlabeltext{apa:edition}
+\starttexdefinition btx:apa:edition-volume-number-pages #edition
+ \texdefinition{btx:apa:doif-edition-or-volume-or-number-or-pages}{#edition}{\btxleftparenthesis}
+ \btxdoifelse {#edition} {
+ \btxflush{#edition}
+ \doif {#edition} {edition} {
+ \btxspace
+ \btxlabeltext{apa:edition}
+ }
+ } {
+ \doif {#edition} {type} {
+ \btxspace
+ \btxlabeltext{apa:technicalreport}
+ }
}
\btxdoif {volume} {
- \btxdoif {edition} {
- \btxcomma
+ \btxdoif {#edition} {
+ \doif {#edition} {edition}
+ {\btxcomma} {\btxspace}
}
\btxoneorrange {volume} {
\btxlabeltext{apa:Volume}
@@ -405,11 +417,13 @@
\btxdoifelse {volume} {
\btxcomma
} {
- \btxdoif {edition} {
- \btxcomma
+ \btxdoifelse {#edition} {
+ \doif {#edition} {edition}
+ {\btxcomma} {\btxspace}
+ } {
+ \btxspace
}
}
- \btxspace
\btxlabeltext{apa:Number}
\btxspace
\btxflush{number}
@@ -418,8 +432,9 @@
\btxdoifelse {volume} {
\btxcomma
} {
- \btxdoifelse {edition} {
- \btxcomma
+ \btxdoifelse {#edition} {
+ \doif {#edition} {edition}
+ {\btxcomma} {\btxspace}
} {
\btxdoif {number} {
\btxcomma
@@ -434,7 +449,7 @@
\btxspace
\btxflush{pages}
}
- \texdefinition{btx:apa:doif-edition-or-volume-or-number-or-pages}{\btxrightparenthesisperiod}
+ \texdefinition{btx:apa:doif-edition-or-volume-or-number-or-pages}{#edition}{\btxrightparenthesisperiod}
\stoptexdefinition
\starttexdefinition btx:apa:journal-volume-number-pages #pp
@@ -470,7 +485,7 @@
\btxcomma
}
}
- % APA rule for newspaper, ...
+ % APA rule for newspaper
\doif {#pp} {pp} {
\btxoneorrange {pages} {
\btxlabeltext{apa:p}
@@ -483,17 +498,17 @@
\btxperiod
}
\doifnot {#pp} {pp} {
- % not a newspaper...
+ % not a newspaper
\btxdoifnot {volume} {
\btxdoifnot {number} {
\btxdoifnot {pages} {
\btxdoifelse {doi} {
- \btxspace
+ \btxperiod
\btxlabeltext{apa:Advanced}
\btxperiod
} {
\btxdoif {url} {
- \btxspace
+ \btxperiod
\btxlabeltext{apa:Advanced}
\btxperiod
}
@@ -527,23 +542,23 @@
\btxspace
\ifconditional\btxinteractive
\goto {
- \hyphenatedurl{doi:\btxflush{doi}}
+ doi:\btxflush{doi}
} [
url(http://dx.doi.org/\btxflush{doi})
]
\else
- \hyphenatedurl{doi:\btxflush{doi}}
+ doi:\btxflush{doi}
\fi
}
\stoptexdefinition
\starttexdefinition btx:apa:note
- % grouping could indeed be useful...
+ % grouping could indeed be useful for note.
\btxdoif {note} {
\btxleftparenthesis
{\btxflush{note}}
\btxrightparenthesis\removeunwantedspaces
- % nospace if last item...
+ % no space if last item!
}
\stoptexdefinition
@@ -553,19 +568,19 @@
\texdefinition{btx:apa:doi}
\stoptexdefinition
-\starttexdefinition btx:apa:author-editor-other #field
- \btxdoif {#field} {
- \doifelse {#field} {publisher} {
- \doifelse {\btxflush{#field}} {\btxflush{author}} {
- \btxlabeltext{apa:Author}
- } {
- \btxflush{#field}
- }
- } {
- \btxflush{#field}
- }
- }
-\stoptexdefinition
+%\starttexdefinition btx:apa:author-editor-other #field
+% \btxdoif {#field} {
+% \doifelse {#field} {publisher} {
+% \doifmodeelse {btx:apa:publisher-as-author} {
+% \btxlabeltext{apa:Author}
+% } {
+% \btxflush{publisher}
+% }
+% } {
+% \btxflush{#field}
+% }
+% }
+%\stoptexdefinition
\starttexdefinition btx:apa:doifelse-publisher-or-author-or-editor #author #if #else
\btxdoifelse {publisher} {
@@ -591,7 +606,8 @@
}
\stoptexdefinition
-\starttexdefinition btx:apa:wherefrom-publisher #author
+% #author is author, editor, organization, howpublished or assignee
+\starttexdefinition btx:apa:wherefrom-publisher-author-is- #author
\btxdoifelse {country} {
\btxspace
\btxdoif {address} {
@@ -599,37 +615,50 @@
\btxcomma
}
\btxflush{country}
- \texdefinition{btx:apa:doifelse-publisher-or-author-or-editor}{#author}
- {\btxcolon} {\btxperiod}
+ \doifelse {#author} {howpublished}
+ {\btxdoifelse {howpublished}}
+ {\texdefinition{btx:apa:doifelse-publisher-or-author-or-editor}{#author}}
+ {\btxcolon} {\btxperiod}
} {
\btxdoifelse {address} {
\btxspace
\btxflush{address}
- \texdefinition{btx:apa:doifelse-publisher-or-author-or-editor}{#author}
- {\btxcolon} {\btxperiod}
+ \doifelse {#author} {howpublished}
+ {\btxdoifelse {howpublished}}
+ {\texdefinition{btx:apa:doifelse-publisher-or-author-or-editor}{#author}}
+ {\btxcolon} {\btxperiod}
} {
- \texdefinition{btx:apa:doifelse-publisher-or-author-or-editor}{#author}
+ \doifelse {#author} {howpublished}
+ {\btxdoifelse {howpublished}}
+ {\texdefinition{btx:apa:doifelse-publisher-or-author-or-editor}{#author}}
{\btxspace} {}
}
}
- \btxdoifelse {publisher} {
- \btxdoifelse {#author} {
- \btxflush{publisher}
- \btxperiod
- } {
- \btxdoif {editor} {
+ \doifelse {#author} {howpublished} {
+ \btxdoif {howpublished} {
+ \btxflush{howpublished}
+ \btxperiod
+ }
+ } {
+ \btxdoifelse {publisher} {
+ \btxdoifelse {#author} {
\btxflush{publisher}
\btxperiod
+ } {
+ \btxdoif {editor} {
+ \btxflush{publisher}
+ \btxperiod
+ }
}
- }
- } {
- \btxdoifelse {#author} {
- \btxlabeltext{apa:Author}
- \btxperiod
} {
- \btxdoif {editor} {
+ \btxdoifelse {#author} {
\btxlabeltext{apa:Author}
\btxperiod
+ } {
+ \btxdoif {editor} {
+ \btxlabeltext{apa:Author}
+ \btxperiod
+ }
}
}
}
@@ -642,9 +671,9 @@
% Optional fields: volume, number, pages, type, doi, url, note.
\startsetups btx:apa:article
- \texdefinition{btx:apa:author-or-title}{type}
+ \texdefinition{btx:apa:author-or-title-including-}{type}
\texdefinition{btx:apa:suffixedyear}{}
- \texdefinition{btx:apa:title-if-not-placed}{}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{}
\texdefinition{btx:apa:journal-volume-number-pages}{}
\texdefinition{btx:apa:url-note-doi}
\stopsetups
@@ -654,9 +683,9 @@
% Optional fields: volume, number, pages, type, month, day, doi, url, note.
\startsetups btx:apa:magazine
- \texdefinition{btx:apa:author-or-title}{type}
+ \texdefinition{btx:apa:author-or-title-including-}{type}
\texdefinition{btx:apa:suffixedyear}{date}
- \texdefinition{btx:apa:title-if-not-placed}{}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{}
\texdefinition{btx:apa:journal-volume-number-pages}{}
\texdefinition{btx:apa:url-note-doi}
\stopsetups
@@ -666,9 +695,9 @@
% Optional fields: volume, number, pages, type, month, day, doi, url, note.
\startsetups btx:apa:newspaper
- \texdefinition{btx:apa:author-or-title}{type}
+ \texdefinition{btx:apa:author-or-title-including-}{type}
\texdefinition{btx:apa:suffixedyear}{date}
- \texdefinition{btx:apa:title-if-not-placed}{}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{}
\texdefinition{btx:apa:journal-volume-number-pages}{pp}
\texdefinition{btx:apa:url-note-doi}
\stopsetups
@@ -681,11 +710,11 @@
% todo: series?
\startsetups btx:apa:book
- \texdefinition{btx:apa:author-or-editor-or-publisher}{title}
+ \texdefinition{btx:apa:author-or-editor-or-publisher-or-}{title}{publisher}
\texdefinition{btx:apa:suffixedyear}{}
- \texdefinition{btx:apa:title-if-not-placed}{it}
- \texdefinition{btx:apa:edition-volume-number-pages}
- \texdefinition{btx:apa:wherefrom-publisher}{author}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{it}
+ \texdefinition{btx:apa:edition-volume-number-pages}{edition}
+ \texdefinition{btx:apa:wherefrom-publisher-author-is-}{author}
\texdefinition{btx:apa:url-note-doi}
\stopsetups
@@ -697,15 +726,15 @@
% todo: series?
\startsetups btx:apa:inbook
- \texdefinition{btx:apa:author-or-editor-or-publisher}{}
+ \texdefinition{btx:apa:author-or-editor-or-publisher-or-}{}{publisher}
\texdefinition{btx:apa:suffixedyear}{}
\btxdoif {chapter} {
\btxflush{Word -> chapter}
\btxspace
}
\texdefinition{btx:apa:editor}{title}
- \texdefinition{btx:apa:edition-volume-number-pages}
- \texdefinition{btx:apa:wherefrom-publisher}{author}
+ \texdefinition{btx:apa:edition-volume-number-pages}{edition}
+ \texdefinition{btx:apa:wherefrom-publisher-author-is-}{author}
\texdefinition{btx:apa:url-note-doi}
\stopsetups
@@ -717,12 +746,12 @@
% todo: series?
\startsetups btx:apa:incollection
- \texdefinition{btx:apa:author-or-editor-or-publisher}{title}
+ \texdefinition{btx:apa:author-or-editor-or-publisher-or-}{title}{publisher}
\texdefinition{btx:apa:suffixedyear}{}
- \texdefinition{btx:apa:title-if-not-placed}{}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{}
\texdefinition{btx:apa:editor}{booktitle}
- \texdefinition{btx:apa:edition-volume-number-pages}
- \texdefinition{btx:apa:wherefrom-publisher}{author}
+ \texdefinition{btx:apa:edition-volume-number-pages}{edition}
+ \texdefinition{btx:apa:wherefrom-publisher-author-is-}{author}
\texdefinition{btx:apa:url-note-doi}
\stopsetups
@@ -734,17 +763,17 @@
\startsetups btx:apa:proceedings
\texdefinition{btx:apa:editor-or-organization}{title}
\texdefinition{btx:apa:suffixedyear}{date}
- \texdefinition{btx:apa:title-if-not-placed}{}
- \texdefinition{btx:apa:edition-volume-number-pages}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{}
+ \texdefinition{btx:apa:edition-volume-number-pages}{edition}
\btxdoifelse {editor} {
\btxdoif {organization} {
\btxspace
\btxflush{organization}
\btxcomma
}
- \texdefinition{btx:apa:wherefrom-publisher} {editor}
+ \texdefinition{btx:apa:wherefrom-publisher-author-is-}{editor}
} {
- \texdefinition{btx:apa:wherefrom-publisher} {organization}
+ \texdefinition{btx:apa:wherefrom-publisher-author-is-}{organization}
}
\texdefinition{btx:apa:url-note-doi}
\stopsetups
@@ -755,17 +784,17 @@
% todo: series?
\startsetups btx:apa:inproceedings
- \texdefinition{btx:apa:author-or-editor-or-publisher}{title}
+ \texdefinition{btx:apa:author-or-editor-or-publisher-or-}{title}{publisher}
\texdefinition{btx:apa:suffixedyear}{date}
- \texdefinition{btx:apa:title-if-not-placed}{}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{}
\texdefinition{btx:apa:editor}{booktitle}
- \texdefinition{btx:apa:edition-volume-number-pages}
+ \texdefinition{btx:apa:edition-volume-number-pages}{edition}
\btxdoif {organization} {
\btxspace
\btxflush{organization}
\btxcomma
}
- \texdefinition{btx:apa:wherefrom-publisher}{author}
+ \texdefinition{btx:apa:wherefrom-publisher-author-is-}{author}
\texdefinition{btx:apa:url-note-doi}
\stopsetups
@@ -779,9 +808,9 @@
\startsetups btx:apa:thesis
% unlikely not to have author!
- \texdefinition{btx:apa:author-or-title}{}
+ \texdefinition{btx:apa:author-or-title-including-}{}
\texdefinition{btx:apa:suffixedyear}{date}
- \texdefinition{btx:apa:title-if-not-placed}{it}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{it}
\btxleftparenthesis
\btxdoifelse {type} {
\btxflush{type}
@@ -816,7 +845,186 @@
\fastsetup{btx:apa:thesis}
\stopsetups
-% Alan's current revision stops here..
+% A work that is printed and bound, but without a named publisher or sponsoring institution.
+% Required field: title.
+% Optional fields: author, howpublished, address, month, year, note.
+
+\startsetups btx:apa:booklet
+ \texdefinition{btx:apa:author-or-title-including-}{}
+ \texdefinition{btx:apa:suffixedyear}{date}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{it}
+ \texdefinition{btx:apa:wherefrom-publisher-author-is-}{howpublished}
+ \texdefinition{btx:apa:url-note-doi}
+\stopsetups
+
+% Technical documentation.
+% Required field: title.
+% Optional fields: author, organization, address, edition, month, year, note.
+
+\startsetups btx:apa:manual
+ \texdefinition{btx:apa:author-or-editor-or-publisher-or-}{title}{organization}
+ \texdefinition{btx:apa:suffixedyear}{date}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{it}
+ \texdefinition{btx:apa:edition-volume-number-pages}{edition}
+ \texdefinition{btx:apa:wherefrom-publisher-author-is-}{organization}
+ \texdefinition{btx:apa:url-note-doi}
+\stopsetups
+
+% A report published by a school or other institution, usually numbered within a series.
+% Required fields: author, title, institution, year.
+% Optional fields: type, number, address, month, note.
+
+\startsetups btx:apa:techreport
+ \texdefinition{btx:apa:author-or-editor-or-publisher-or-}{title}{institution}
+ \texdefinition{btx:apa:suffixedyear}{date}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{}{it}
+ \texdefinition{btx:apa:edition-volume-number-pages}{type}
+ \texdefinition{btx:apa:wherefrom-publisher-author-is-}{institution}
+ \texdefinition{btx:apa:url-note-doi}
+\stopsetups
+
+% A document having an author and title, but not formally published.
+% Required fields: author, title, note.
+% Optional fields: month, year.
+
+\startsetups btx:apa:unpublished
+ \texdefinition{btx:apa:author-or-title-including-}{}
+ \texdefinition{btx:apa:suffixedyear}{date}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{}{it}
+ \texdefinition{btx:apa:url-note-doi}
+\stopsetups
+
+% A patent. Note that this category was not defined with BIBTEX. Below from JabRef:
+% Required fields: nationality, number, year, yearfiled
+% Optional fields: author, title, assignee, address, type, number, day, dayfiled, month, monthfiled, note, url
+% Also optional: publisher
+
+% todo: yearfiled, monthfiled, dayfiled
+
+\startsetups btx:apa:patent
+ \texdefinition{btx:apa:author-or-editor-or-publisher-or-}{title}{assignee}
+ \texdefinition{btx:apa:suffixedyear}{date}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{it}
+ \begingroup
+ \it
+ \btxdoif {nationality} {
+ \btxspace
+ \btxflush{nationality}
+ }
+ \btxspace
+ \btxlabeltext{apa:patent}
+ \btxdoif {number} {
+ \btxspace
+ \btxlabeltext{apa:Number}
+ \btxspace
+ \btxflush{number}
+ }
+ \btxperiod
+ \italiccorrection
+ \endgroup
+ \btxdoifelse {author} {
+ \btxdoifelse {country} {
+ \btxspace
+ \btxdoif {address} {
+ \btxflush{address}
+ \btxcomma
+ }
+ \btxflush{country}
+ \btxdoifelse {assignee}
+ {\btxcolon} {\btxperiod}
+ } {
+ \btxdoifelse {address} {
+ \btxspace
+ \btxflush{address}
+ \btxdoifelse {assignee}
+ {\btxcolon} {\btxperiod}
+ } {
+ \btxdoifelse {assignee}
+ {\btxspace} {}
+ }
+ }
+ \btxdoif {assignee} {
+ \btxflush{assignee}
+ \btxperiod
+ }
+ } {
+ \texdefinition{btx:apa:wherefrom-publisher-author-is-}{assignee}
+ }
+ \texdefinition{btx:apa:url}
+ \texdefinition{btx:apa:note}
+\stopsetups
+
+% Electronic. Note that this category was not defined with BIBTEX. Below from JabRef:
+% Required fields: title
+% Optional fields: address, author, howpublished, month, note, organization, url, year, doi
+% Also optional: type
+
+% Like Misc below but includes organization.
+
+\startsetups btx:apa:electronic
+ \texdefinition{btx:apa:author-or-title-including-}{type}
+ \texdefinition{btx:apa:suffixedyear}{date}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{type}{it}
+ \btxdoif {organization} {
+ \btxspace
+ \btxflush{organization}
+ \btxperiod
+ }
+ \btxdoif {howpublished} {
+ \btxspace
+ \btxflush{howpublished}
+ \btxperiod
+ }
+ \texdefinition{btx:apa:url-note-doi}
+\stopsetups
+
+% Other. Note that this category was not defined with BIBTEX. Below from JabRef:
+% Required fields: author or title, year
+% Optional fields: note, doi, url
+
+\startsetups btx:apa:other
+ \texdefinition{btx:apa:author-or-title-including-}{}
+ \texdefinition{btx:apa:suffixedyear}{}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{}{it}
+ \texdefinition{btx:apa:url-note-doi}
+\stopsetups
+
+% Use this type when nothing else fits.
+% Required fields: none.
+% Optional fields: author, title, howpublished, month, year, note.
+
+\startsetups btx:apa:misc
+ \texdefinition{btx:apa:author-or-title-including-}{}
+ \texdefinition{btx:apa:suffixedyear}{date}
+ \texdefinition{btx:apa:title-if-not-placed-including-}{}{it}
+ \btxdoif {howpublished} {
+ \btxspace
+ \btxflush{howpublished}
+ \btxperiod
+ }
+ \texdefinition{btx:apa:url-note-doi}
+\stopsetups
+
+% If all else fails to match:
+
+\startsetups btx:apa:literal
+ \btxdoif {text} {
+ \btxflush{text}
+ }
+\stopsetups
+
+%D Experiment:
+
+\startsetups btx:apa:lefttext
+ \currentbtxlefttext
+\stopsetups
+
+\startsetups btx:apa:righttext
+ \currentbtxrighttext
+\stopsetups
+
+\stopbtxrenderingdefinitions
+
%\starttexdefinition btx:apa:wherefrom #field
% \btxdoifelse {address} {
@@ -852,163 +1060,163 @@
% }
% }
%\stoptexdefinition
-
-\starttexdefinition btx:apa:title-and-series
- \btxdoif {title} {
- \btxspace
- \btxflush{Word -> title}
- \btxdoif {series} {
- \btxleftparenthesis
- \btxflush{series}
- \btxrightparenthesis
- }
- \btxperiod
- }
-\stoptexdefinition
-
-\starttexdefinition btx:apa:title-and-series-it
- \btxdoif {title} {
- \btxspace
- \texdefinition{btx:apa:italic}{Word -> title}
- \btxdoif {series} {
- \btxleftparenthesis
- \btxflush{series}
- \btxrightparenthesis
- }
- \btxperiod
- }
-\stoptexdefinition
-
-\disablemode[btx:apa:edited-book] % hm, ugly
-
-\starttexdefinition btx:apa:author-and-year
- \btxdoif {author} {
- \btxflushauthor{author}
- }
- \texdefinition{btx:apa:suffixedyear}{}
- \btxperiod
-\stoptexdefinition
-
-\starttexdefinition btx:apa:author-or-key-and-year
- \btxdoifelse {author} {
- \btxflushauthor{author}
- } {
- \btxdoif {key} {
- \btxleftbracket
- \btxsetup{btx:format:key}
- \btxrightbracket
- }
- }
- \texdefinition{btx:apa:suffixedyear}{}
- \btxperiod
-\stoptexdefinition
-
-\starttexdefinition btx:apa:author-editors-crossref-year
- % TODO: if there is no author or editor, then use publisher...
- \btxdoifelse {author} {
- \btxflushauthor{author}
- } {
- \btxdoifelse {editor} {
- \setmode{btx:apa:edited-book}
- \btxflushauthor{editor}
- \btxcomma
- \btxsingularplural {editor} {
- \btxlabeltext{apa:Editor}
- } {
- \btxlabeltext{apa:Editors}
- }
- } {
- % weird period
- \btxdoif {crossref} {
- \btxleftbracket
- \btxsetup{btx:format:crossref}
- \btxrightbracket
- \btxperiod
- }
- }
- }
- \texdefinition{btx:apa:suffixedyear}{}
- \btxperiod
-\stoptexdefinition
-
-\starttexdefinition btx:apa:editor-or-key-and-year
- \btxdoifelse {editor} {
- \setmode{btx:apa:edited-book}
- \btxflushauthor{editor}
- \btxcomma
- \btxsingularplural {editor} {
- \btxlabeltext{apa:Editor}
- } {
- \btxlabeltext{apa:Editors}
- }
- } {
- \btxdoif {key} {
- \btxleftbracket
- \btxsetup{btx:format:key}
- \btxrightbracket
- }
- }
- \texdefinition{btx:apa:suffixedyear}{}
- \btxperiod
-\stoptexdefinition
-
-\starttexdefinition btx:apa:pages
- \btxdoif {pages} {
- \btxspace
- \btxflush{pages}
- \btxperiod
- }
-\stoptexdefinition
-
-\starttexdefinition btx:apa:pages:p
- \btxdoif {pages} {
- \btxspace
- \btxoneorrange {pages} {
- \btxlabeltext{apa:p}
- } {
- \btxlabeltext{apa:pp}
- }
- \btxperiod
- \btxnbsp
- \btxflush{pages}
- \btxperiod
- }
-\stoptexdefinition
-
-\starttexdefinition btx:apa:pages:pp
- \btxdoif {pages} {
- \btxspace
- \btxflush{pages}
- \btxnbsp
- \btxlabeltext{apa:pp}
- \btxperiod
- }
-\stoptexdefinition
-
+%
+%\starttexdefinition btx:apa:title-and-series
+% \btxdoif {title} {
+% \btxspace
+% \btxflush{Word -> title}
+% \btxdoif {series} {
+% \btxleftparenthesis
+% \btxflush{series}
+% \btxrightparenthesis
+% }
+% \btxperiod
+% }
+%\stoptexdefinition
+%
+%\starttexdefinition btx:apa:title-and-series-it
+% \btxdoif {title} {
+% \btxspace
+% \texdefinition{btx:apa:italic}{Word -> title}
+% \btxdoif {series} {
+% \btxleftparenthesis
+% \btxflush{series}
+% \btxrightparenthesis
+% }
+% \btxperiod
+% }
+%\stoptexdefinition
+%
+%\disablemode[btx:apa:edited-book] % hm, ugly
+%
+%\starttexdefinition btx:apa:author-and-year
+% \btxdoif {author} {
+% \btxflushauthor{author}
+% }
+% \texdefinition{btx:apa:suffixedyear}{}
+% \btxperiod
+%\stoptexdefinition
+%
+%\starttexdefinition btx:apa:author-or-key-and-year
+% \btxdoifelse {author} {
+% \btxflushauthor{author}
+% } {
+% \btxdoif {key} {
+% \btxleftbracket
+% \btxsetup{btx:format:key}
+% \btxrightbracket
+% }
+% }
+% \texdefinition{btx:apa:suffixedyear}{}
+% \btxperiod
+%\stoptexdefinition
+%
+%\starttexdefinition btx:apa:author-editors-crossref-year
+% % TODO: if there is no author or editor, then use publisher...
+% \btxdoifelse {author} {
+% \btxflushauthor{author}
+% } {
+% \btxdoifelse {editor} {
+% \setmode{btx:apa:edited-book}
+% \btxflushauthor{editor}
+% \btxcomma
+% \btxsingularplural {editor} {
+% \btxlabeltext{apa:Editor}
+% } {
+% \btxlabeltext{apa:Editors}
+% }
+% } {
+% % weird period
+% \btxdoif {crossref} {
+% \btxleftbracket
+% \btxsetup{btx:format:crossref}
+% \btxrightbracket
+% \btxperiod
+% }
+% }
+% }
+% \texdefinition{btx:apa:suffixedyear}{}
+% \btxperiod
+%\stoptexdefinition
+%
+%\starttexdefinition btx:apa:editor-or-key-and-year
+% \btxdoifelse {editor} {
+% \setmode{btx:apa:edited-book}
+% \btxflushauthor{editor}
+% \btxcomma
+% \btxsingularplural {editor} {
+% \btxlabeltext{apa:Editor}
+% } {
+% \btxlabeltext{apa:Editors}
+% }
+% } {
+% \btxdoif {key} {
+% \btxleftbracket
+% \btxsetup{btx:format:key}
+% \btxrightbracket
+% }
+% }
+% \texdefinition{btx:apa:suffixedyear}{}
+% \btxperiod
+%\stoptexdefinition
+%
+%\starttexdefinition btx:apa:pages
+% \btxdoif {pages} {
+% \btxspace
+% \btxflush{pages}
+% \btxperiod
+% }
+%\stoptexdefinition
+%
+%\starttexdefinition btx:apa:pages:p
+% \btxdoif {pages} {
+% \btxspace
+% \btxoneorrange {pages} {
+% \btxlabeltext{apa:p}
+% } {
+% \btxlabeltext{apa:pp}
+% }
+% \btxperiod
+% \btxnbsp
+% \btxflush{pages}
+% \btxperiod
+% }
+%\stoptexdefinition
+%
+%\starttexdefinition btx:apa:pages:pp
+% \btxdoif {pages} {
+% \btxspace
+% \btxflush{pages}
+% \btxnbsp
+% \btxlabeltext{apa:pp}
+% \btxperiod
+% }
+%\stoptexdefinition
+%
% this does not seem to comply with APA style - need to verify!
-
-\starttexdefinition btx:apa:pages:pages
- \btxdoif {pages} {
- \btxcomma
- \btxlabeltext{apa:pages}
- \btxnbsp
- \btxflush{pages}
- \btxperiod
- }
-\stoptexdefinition
-
-\starttexdefinition btx:apa:edition:sentence
- \btxdoif {edition} {
- \btxspace
- \btxflush{edition}
- \btxspace
- \btxlabeltext{apa:edition}
- \btxperiod
- }
-\stoptexdefinition
-
+%
+%\starttexdefinition btx:apa:pages:pages
+% \btxdoif {pages} {
+% \btxcomma
+% \btxlabeltext{apa:pages}
+% \btxnbsp
+% \btxflush{pages}
+% \btxperiod
+% }
+%\stoptexdefinition
+%
+%\starttexdefinition btx:apa:edition:sentence
+% \btxdoif {edition} {
+% \btxspace
+% \btxflush{edition}
+% \btxspace
+% \btxlabeltext{apa:edition}
+% \btxperiod
+% }
+%\stoptexdefinition
+%
% check when the next is used (no period)
-
+%
% \starttexdefinition btx:apa:edition
% \btxdoif {edition} {
% \btxspace
@@ -1017,9 +1225,9 @@
% \btxlabeltext{apa:edition}
% }
% \stoptexdefinition
-
+%
% specific
-
+%
%\startsetups btx:apa:book
% \texdefinition{btx:apa:author-editors-crossref-year}
% \btxdoif {title} {
@@ -1098,7 +1306,7 @@
% \texdefinition{btx:apa:pages:pp}% twice?
% \texdefinition{btx:apa:url-note-doi}
%\stopsetups
-
+%
%\startsetups btx:apa:inbook
% \texdefinition{btx:apa:author-editors-crossref-year}
% \btxdoifelse {title} {
@@ -1182,33 +1390,25 @@
% \texdefinition{btx:apa:wherefrom}{publisher}
% \texdefinition{btx:apa:note}
%\stopsetups
-
-% A work that is printed and bound, but without a named publisher or sponsoring institution.
-% Required field: title.
-% Optional fields: author, howpublished, address, month, year, note.
-
-\startsetups btx:apa:booklet
- \texdefinition{btx:apa:author-or-key-and-year}
- \texdefinition{btx:apa:title-it-and-series}
- \texdefinition{btx:apa:edition:sentence}
- \texdefinition{btx:apa:publication:sentence}
- \texdefinition{btx:apa:pages:p}
- \texdefinition{btx:apa:note}
-\stopsetups
-
-% Technical documentation.
-% Required field: title.
-% Optional fields: author, organization, address, edition, month, year, note.
-
-\startsetups btx:apa:manual
- \texdefinition{btx:apa:author-or-key-and-year}
- \texdefinition{btx:apa:title-it-and-series}
- \texdefinition{btx:apa:edition:sentence}
- \texdefinition{btx:apa:wherefrom}{organization}
- \texdefinition{btx:apa:pages:p}
- \texdefinition{btx:apa:note}
-\stopsetups
-
+%
+%\startsetups btx:apa:booklet
+% \texdefinition{btx:apa:author-or-key-and-year}
+% \texdefinition{btx:apa:title-it-and-series}
+% \texdefinition{btx:apa:edition:sentence}
+% \texdefinition{btx:apa:publication:sentence}
+% \texdefinition{btx:apa:pages:p}
+% \texdefinition{btx:apa:note}
+%\stopsetups
+%
+%\startsetups btx:apa:manual
+% \texdefinition{btx:apa:author-or-key-and-year}
+% \texdefinition{btx:apa:title-it-and-series}
+% \texdefinition{btx:apa:edition:sentence}
+% \texdefinition{btx:apa:wherefrom}{organization}
+% \texdefinition{btx:apa:pages:p}
+% \texdefinition{btx:apa:note}
+%\stopsetups
+%
%\startsetups btx:apa:incollection
% \texdefinition{btx:apa:author-and-year}
% \btxdoifelse {arttitle} {
@@ -1273,7 +1473,7 @@
% }
% \texdefinition{btx:apa:note}
%\stopsetups
-
+%
%\startsetups btx:apa:inproceedings
% \texdefinition{btx:apa:author-and-year}
% \btxdoif {arttitle} {
@@ -1333,7 +1533,7 @@
% }
% \texdefinition{btx:apa:note}
%\stopsetups
-
+%
%\startsetups btx:apa:proceedings
% \texdefinition{btx:apa:editor-or-key-and-year}
% \btxdoif {title} {
@@ -1359,7 +1559,7 @@
% }
% \texdefinition{btx:apa:note}
%\stopsetups
-
+%
%\starttexdefinition btx:apa:thesis
% \texdefinition{btx:apa:author-and-year}
% \texdefinition{btx:apa:title-it-and-series}
@@ -1380,95 +1580,42 @@
%\startsetups btx:apa:phdthesis
% \texdefinition{btx:apa:thesis}
%\stopsetups
-
-% A report published by a school or other institution, usually numbered within a series.
-% Required fields: author, title, institution, year.
-% Optional fields: type, number, address, month, note.
-
-\startsetups btx:apa:techreport
- \texdefinition{btx:apa:author-and-year}
- \texdefinition{btx:apa:title-and-series}
- \btxdoifelse {type} {
- \btxflush{type}
- \btxdoif {volume} {
- \btxspace
- \btxflush{volume}
- }
- } {
- \btxspace
- \btxlabeltext{apa:technicalreport}
- }
- \btxcomma
- \texdefinition{btx:apa:wherefrom}{institution}
- \texdefinition{btx:apa:pages:p}
- \texdefinition{btx:apa:url-note-doi}
-\stopsetups
-
-\startsetups btx:apa:patent
- \texdefinition{btx:apa:author-and-year}
- \btxdoif {title} {
- \btxspace
- %texdefinition{btx:apa:italic}{converters.Word -> title}
- \texdefinition{btx:apa:italic}{Word -> title}
- }
- \btxdoif {nationality} {
- \btxspace
- \btxflush{nationality}
- }
- \btxspace
- \btxlabeltext{apa:patent}
- \btxdoif {number} {
- \btxspace
- \btxflush{number}
- }
- \texdefinition{btx:apa:wherefrom}{publisher}
- \texdefinition{btx:apa:note}
-\stopsetups
-
-% Use this type when nothing else fits.
-% Required fields: none.
-% Optional fields: author, title, howpublished, month, year, note.
-
-\startsetups btx:apa:misc
- \texdefinition{btx:apa:author-and-year}
- \texdefinition{btx:apa:title-and-series}
- \texdefinition{btx:apa:wherefrom}{publisher}
- \texdefinition{btx:apa:pages:p}
- \texdefinition{btx:apa:note}
-\stopsetups
-
-% A document having an author and title, but not formally published.
-% Required fields: author, title, note.
-% Optional fields: month, year.
-
-\startsetups btx:apa:unpublished
- \texdefinition{btx:apa:author-and-year}
- \texdefinition{btx:apa:title-and-series}
- \texdefinition{btx:apa:pages:p}
- \btxdoif {type} {
- \btxleftparenthesis
- \btxflush{type}
- \btxrightparenthesis
- }
- \texdefinition{btx:apa:note}
-\stopsetups
-
-% If all else fails to match:
-
-\startsetups btx:apa:literal
- \btxdoif {text} {
- \btxflush{text}
- }
-\stopsetups
-
-%D Experiment:
-
-\startsetups btx:apa:lefttext
- \currentbtxlefttext
-\stopsetups
-
-\startsetups btx:apa:righttext
- \currentbtxrighttext
-\stopsetups
-
-\stopbtxrenderingdefinitions
+%
+%\startsetups btx:apa:techreport
+% \texdefinition{btx:apa:author-and-year}
+% \texdefinition{btx:apa:title-and-series}
+% \btxdoifelse {type} {
+% \btxflush{type}
+% \btxdoif {volume} {
+% \btxspace
+% \btxflush{volume}
+% }
+% } {
+% \btxspace
+% \btxlabeltext{apa:technicalreport}
+% }
+% \btxcomma
+% \texdefinition{btx:apa:wherefrom}{institution}
+% \texdefinition{btx:apa:pages:p}
+% \texdefinition{btx:apa:url-note-doi}
+%\stopsetups
+%
+%\startsetups btx:apa:misc
+% \texdefinition{btx:apa:author-and-year}
+% \texdefinition{btx:apa:title-and-series}
+% \texdefinition{btx:apa:wherefrom}{publisher}
+% \texdefinition{btx:apa:pages:p}
+% \texdefinition{btx:apa:note}
+%\stopsetups
+%
+%\startsetups btx:apa:unpublished
+% \texdefinition{btx:apa:author-and-year}
+% \texdefinition{btx:apa:title-and-series}
+% \texdefinition{btx:apa:pages:p}
+% \btxdoif {type} {
+% \btxleftparenthesis
+% \btxflush{type}
+% \btxrightparenthesis
+% }
+% \texdefinition{btx:apa:note}
+%\stopsetups
diff --git a/tex/context/base/publ-imp-aps.lua b/tex/context/base/publ-imp-aps.lua
index 97b00b34a..a918c755d 100644
--- a/tex/context/base/publ-imp-aps.lua
+++ b/tex/context/base/publ-imp-aps.lua
@@ -12,24 +12,24 @@ return {
optional = { "volume", "number", "pages", "month", "note" },
},
book = {
- required = { { "author", "editor" }, "title", "publisher", "year" },
- optional = { { "volume", "number" }, "series", "address", "edition", "month","note" },
+ required = { "author", "editor", "title", "publisher", "year" },
+ optional = { "volume", "number", "series", "address", "edition", "month","note" },
},
booklet = {
required = { "title" },
optional = { "author", "howpublished", "address", "month", "year", "note" },
},
inbook = {
- required = { { "author", "editor" }, "title", { "chapter", "pages" }, "publisher","year" },
- optional = { { "volume", "number" }, "series", "type", "address", "edition", "month", "note" },
+ required = { "author", "editor", "title", "chapter", "pages", "publisher","year" },
+ optional = { "volume", "number", "series", "type", "address", "edition", "month", "note" },
},
incollection = {
required = { "author", "title", "booktitle", "publisher", "year" },
- optional = { "editor", { "volume", "number" }, "series", "type", "chapter", "pages", "address", "edition", "month", "note" },
+ optional = { "editor", "volume", "number", "series", "type", "chapter", "pages", "address", "edition", "month", "note" },
},
inproceedings = {
required = { "author", "title", "booktitle", "year" },
- optional = { "editor", { "volume", "number" }, "series", "pages", "address", "month","organization", "publisher", "note" },
+ optional = { "editor", "volume", "number", "series", "pages", "address", "month","organization", "publisher", "note" },
},
manual = {
required = { "title" },
@@ -49,7 +49,7 @@ return {
},
proceedings = {
required = { "title", "year" },
- optional = { "editor", { "volume", "number" }, "series", "address", "month", "organization", "publisher", "note" },
+ optional = { "editor", "volume", "number", "series", "address", "month", "organization", "publisher", "note" },
},
techreport = {
required = { "author", "title", "institution", "year" },
diff --git a/tex/context/base/publ-ini.lua b/tex/context/base/publ-ini.lua
index a057c48fa..af83e100b 100644
--- a/tex/context/base/publ-ini.lua
+++ b/tex/context/base/publ-ini.lua
@@ -5,6 +5,8 @@ if not modules then modules = { } end modules ['publ-ini'] = {
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
+-- todo: delay details till alternative is known so that potential author
+-- fields are known
-- If we define two datasets with the same bib file we can consider
-- sharing the data but that means that we need to have a parent which
@@ -89,6 +91,7 @@ manipulatormethods.Words = converters.Words
manipulatormethods.WORDS = converters.WORDS
local context = context
+local commands = commands
local ctx_setvalue = context.setvalue
local ctx_firstoftwoarguments = context.firstoftwoarguments
@@ -134,6 +137,20 @@ local ctx_btxstartsubcite = context.btxstartsubcite
local ctx_btxstopsubcite = context.btxstopsubcite
local ctx_btxlistsetup = context.btxlistsetup
+local specifications = publications.specifications
+local currentspecification = specifications[false]
+local currentspecificationfields = currentspecification.fields
+local currentspecificationcategories = currentspecification.categories
+
+local function setspecification(name)
+ currentspecification = specifications[name]
+ currentspecificationfields = currentspecification.fields
+ currentspecificationcategories = currentspecification.categories
+end
+
+publications.setspecification = setspecification
+commands.setbtxspecification = setspecification
+
local optionalspace = lpeg.patterns.whitespace^0
local prefixsplitter = optionalspace * lpeg.splitat(optionalspace * P("::") * optionalspace)
@@ -846,21 +863,24 @@ function commands.btxflush(name,tag,field)
if dataset then
local fields = dataset.luadata[tag]
if fields then
- local manipulator, field = splitmanipulation(field)
- local value = fields[field]
- if type(value) == "string" then
- context(manipulator and applymanipulation(manipulator,value) or value)
- return
- end
- local details = dataset.details[tag]
- if details then
- local value = details[field]
+ local category = fields.category
+ if currentspecificationfields[category][field] then
+ local manipulator, field = splitmanipulation(field)
+ local value = fields[field]
if type(value) == "string" then
context(manipulator and applymanipulation(manipulator,value) or value)
return
end
+ local details = dataset.details[tag]
+ if details then
+ local value = details[field]
+ if type(value) == "string" then
+ context(manipulator and applymanipulation(manipulator,value) or value)
+ return
+ end
+ end
+ report("unknown field %a of tag %a in dataset %a",field,tag,name)
end
- report("unknown field %a of tag %a in dataset %a",field,tag,name)
else
report("unknown tag %a in dataset %a",tag,name)
end
@@ -874,12 +894,15 @@ function commands.btxdetail(name,tag,field)
if dataset then
local details = dataset.details[tag]
if details then
- local manipulator, field = splitmanipulation(field)
- local value = details[field]
- if type(value) == "string" then
- context(manipulator and applymanipulation(manipulator,value) or value)
- else
- report("unknown detail %a of tag %a in dataset %a",field,tag,name)
+ local category = fields.category
+ if currentspecificationfields[category][field] then
+ local manipulator, field = splitmanipulation(field)
+ local value = details[field]
+ if type(value) == "string" then
+ context(manipulator and applymanipulation(manipulator,value) or value)
+ else
+ report("unknown detail %a of tag %a in dataset %a",field,tag,name)
+ end
end
else
report("unknown tag %a in dataset %a",tag,name)
@@ -894,12 +917,15 @@ function commands.btxfield(name,tag,field)
if dataset then
local fields = dataset.luadata[tag]
if fields then
- local manipulator, field = splitmanipulation(field)
- local value = fields[field]
- if type(value) == "string" then
- context(manipulator and applymanipulation(manipulator,value) or value)
- else
- report("unknown field %a of tag %a in dataset %a",field,tag,name)
+ local category = fields.category
+ if currentspecificationfields[category][field] then
+ local manipulator, field = splitmanipulation(field)
+ local value = fields[field]
+ if type(value) == "string" then
+ context(manipulator and applymanipulation(manipulator,value) or value)
+ else
+ report("unknown field %a of tag %a in dataset %a",field,tag,name)
+ end
end
else
report("unknown tag %a in dataset %a",tag,name)
@@ -916,18 +942,21 @@ local function found(name,tag,field,yes)
if dataset then
local data = dataset.luadata[tag]
if data then
- local value = data[field]
- if value then
- if value ~= "" then
- return true
- end
- else
- local data = dataset.details[tag]
- if data then
- local value = data[field]
- if value then
- if value ~= "" then
- return true
+ local category = data.category
+ if currentspecificationfields[category][field] then
+ local value = data[field]
+ if value then
+ if value ~= "" then
+ return true
+ end
+ else
+ local data = dataset.details[tag]
+ if data then
+ local value = data[field]
+ if value then
+ if value ~= "" then
+ return true
+ end
end
end
end
@@ -1197,9 +1226,9 @@ function lists.collectentries(specification)
rendering.method = method
rendering.list = { }
rendering.done = { }
- rendering.sorttype = specification.sorttype or v_default
+ rendering.sorttype = specification.sorttype or v_default
rendering.criterium = specification.criterium or v_none
- rendering.repeated = specification.repeated or v_no
+ rendering.repeated = specification.repeated or v_no
rendering.specification = specification
local filtermethod = methods[method]
if not filtermethod then
@@ -1426,10 +1455,13 @@ end
-- for rendering
+-- setspecification
+
function lists.flushentries(dataset,textmode)
local rendering = renderings[dataset]
local list = rendering.list
local luadata = datasets[dataset].luadata
+ -- maybe a startflushing here
for i=1,#list do
local li = list[i]
local tag = li[1]
@@ -1474,7 +1506,8 @@ function lists.flushentries(dataset,textmode)
else
ctx_btxhandlelistentry()
end
- end
+ end
+ setspecification(false)
end
-- function lists.flushentry(specification)
@@ -1739,19 +1772,24 @@ local f_missing = formatters["<%s>"]
-- maybe also sparse (e.g. pages)
+-- a bit redundant sccess to datasets
+
local function processcite(dataset,reference,mark,compress,setup,internal,getter,setter,compressor)
reference = publications.parenttag(dataset,reference)
local found, todo, list = findallused(dataset,reference,internal)
tobemarked = mark and todo
--- if type(tobemarked) ~= "table" then
--- tobemarked = { }
--- end
if found and setup then
local source = { }
local badkey = false
for i=1,#found do
local entry = found[i]
local tag = entry.userdata.btxref
+
+-- we can probably move the test into the flush
+
+local category = datasets[dataset].luadata[tag].category
+if currentspecificationfields[category][setup] then
+
local internal = entry.references.internal
local data = getter(dataset,tag,entry,internal)
if compress and not compressor then
@@ -1767,7 +1805,12 @@ local function processcite(dataset,reference,mark,compress,setup,internal,getter
badkey = true
end
end
- source[i] = data
+ source[#source+1] = data
+
+else
+ report("cite rendering %a is not available for %a",setup,category)
+end
+
end
local function flush(i,n,entry,last)
@@ -2108,6 +2151,8 @@ end
do
+ local getauthor = publications.authors.getauthor
+
local currentbtxciteauthor = function()
context.currentbtxciteauthor()
return true -- needed?
@@ -2117,27 +2162,31 @@ do
local result = { }
local entries = { }
for i=1,#found do
- local entry = found[i]
- local author = entry.author
- local aentries = entries[author]
- if aentries then
- aentries[#aentries+1] = entry
- else
- entries[author] = { entry }
+ local entry = found[i]
+ local author = entry.author
+ if author then
+ local aentries = entries[author]
+ if aentries then
+ aentries[#aentries+1] = entry
+ else
+ entries[author] = { entry }
+ end
end
end
for i=1,#found do
- local entry = found[i]
- local author = entry.author
- local aentries = entries[author]
- if not aentries then
- result[#result+1] = entry
- elseif aentries == true then
- -- already done
- else
- result[#result+1] = entry
- entry.entries = aentries
- entries[author] = true
+ local entry = found[i]
+ local author = entry.author
+ if author then
+ local aentries = entries[author]
+ if not aentries then
+ result[#result+1] = entry
+ elseif aentries == true then
+ -- already done
+ else
+ result[#result+1] = entry
+ entry.entries = aentries
+ entries[author] = true
+ end
end
end
-- todo: add letters (should we then tag all?)
@@ -2164,7 +2213,9 @@ do
ctx_btxsetfirst(first[key] or f_missing(first.tag))
local suffix = entry.suffix
local value = entry.last[key]
- ctx_btxsetsecond(value)
+ if value then
+ ctx_btxsetsecond(value)
+ end
if suffix then
ctx_btxsetthird(suffix)
end
@@ -2231,7 +2282,7 @@ do
dataset = dataset,
tag = tag,
internal = internal,
- author = getfield(dataset,tag,"author"),
+ author = getauthor(dataset,tag,currentspecificationcategories), -- todo: list
}
end
@@ -2253,7 +2304,7 @@ do
dataset = dataset,
tag = tag,
internal = internal,
- author = getfield(dataset,tag,"author"),
+ author = getauthor(dataset,tag,currentspecificationcategories), -- todo: list
num = text,
sortkey = text and lpegmatch(numberonly,text),
}
@@ -2279,7 +2330,7 @@ do
dataset = dataset,
tag = tag,
internal = internal,
- author = getfield(dataset,tag,"author"),
+ author = getauthor(dataset,tag,currentspecificationcategories), -- todo: list
year = getfield(dataset,tag,"year"),
suffix = getdetail(dataset,tag,"suffix"),
sortkey = getdetail(dataset,tag,"suffixedyear"),
diff --git a/tex/context/base/publ-ini.mkiv b/tex/context/base/publ-ini.mkiv
index 65231a09a..254c99994 100644
--- a/tex/context/base/publ-ini.mkiv
+++ b/tex/context/base/publ-ini.mkiv
@@ -11,6 +11,7 @@
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
+% todo: tagging
% todo: we cannot use 'default' as this wipes metadata names (maybe no longer do that)
% todo: \v!cite => \s!cite
% todo: interface with (ml)bibtex (export -> call -> import)
@@ -44,16 +45,14 @@
\registerctxluafile{publ-oth}{1.001} % this could become an option
\registerctxluafile{publ-fnd}{1.001} % new method (for the moment only local)
\registerctxluafile{publ-jrn}{1.001}
+\registerctxluafile{publ-reg}{1.001}
\unprotect
\startcontextdefinitioncode
\def\s!btx {btx}
-\def\s!cite {cite}
-\def\s!nocite {nocite}
-\def\s!list {list}
-\def\s!author {author}
+
\def\v!btxcite {btxcite}
\def\v!btxlist {btxlist}
\def\v!btxrendering {btxrendering}
@@ -67,6 +66,77 @@
\definelabelclass[btxlabel][2]
+% It is not that trivail to come up with a proper organization of setup
+% and control commands for publications. This is because we have complex
+% inline as well as extensive list rendering. The rules are partially
+% driven by somewhat archaic bibtex specifications and evolving journal
+% (or field) specific demands. The logic in the standards is often so
+% complex that it looks like manual rendering is assumed. But, we want to
+% automate the process as much as possible.
+%
+% Another complication is that in manuals we want to demonstate different
+% properties of the implementation and therefore we need a way to handle
+% independent standards, databases, etc. This has resulted in the following
+% organization:
+%
+% - general setup (rather minimal)
+% - list setup (rendering)
+% - cite setup
+% - dataset setup
+%
+% The rendering is mostly driven by setups. In there we can call for fields
+% in the database but also for virtual fields or combinations.
+
+% The main rendering style (standard driven).
+
+\installcorenamespace {btx}
+
+\installsetuphandler \??btx {btx}
+% \installcommandhandler \??btx {btx} \??btx
+
+% \setupbtx
+% [\c!alternative=apa]
+
+% \newconstant\btxmode
+% \newconstant\btxnonemode
+% \newconstant\btxcitemode
+% \newconstant\btxlistmode
+
+%D Loading variants:
+
+\let\currentbtxrenderingdefinition\empty
+\let\currentbtxalternative \empty
+
+\unexpanded\def\startbtxrenderingdefinitions[#1]%
+ {\pushmacro\currentbtxrenderingdefinition
+ \edef\currentbtxrenderingdefinition{#1}%
+ \letvalue{\??btxrenderingdefinition\currentbtxrenderingdefinition}\currentbtxrenderingdefinition}
+
+\unexpanded\def\stopbtxrenderingdefinitions
+ {\popmacro\currentbtxrenderingdefinition}
+
+\unexpanded\def\loadbtxdefinitionfile[#1]%
+ {\ctxcommand{loadbtxdefinitionfile("#1")}}
+
+% \appendtoks
+% \loadbtxdefinitionfile[\btxrenderingparameter\c!alternative]
+% \to \everysetupbtxrendering
+
+\let\currentbtxalternative\empty
+
+\appendtoks
+ \edef\currentbtxalternative{\btxrenderingparameter\c!alternative}%
+ \ifcsname\??btxrenderingdefinition\currentbtxalternative\endcsname
+ % maybe fall back on apa ?
+ \else
+ \loadbtxdefinitionfile[\currentbtxalternative]%
+ \showmessage\m!publications{14}{\currentbtxalternative}%
+ \fi
+\to \everysetupbtx
+
+\def\btx_set_rendering_alternative
+ {\ctxcommand{setbtxspecification("\currentbtxalternative")}}
+
% a dedicated construction mechanism
\installcorenamespace {btxlist}
@@ -76,6 +146,7 @@
\unexpanded\setvalue{\??constructioninitializer\v!btxlist}%
{\let\currentbtxlist \currentconstruction
\let\constructionparameter \btxlistparameter
+ \let\constructionnamespace \??btxlist
\let\detokenizedconstructionparameter\detokenizedbtxlistparameter
\let\letconstructionparameter \letbtxlistparameter
\let\useconstructionstyleandcolor \usebtxliststyleandcolor
@@ -209,12 +280,14 @@
\installcorenamespace {btxlistvariant}
\installcorenamespace {btxcitevariant}
\installcorenamespace {btxrendering}
+\installcorenamespace {btxregister}
\installcorenamespace {btxcommand}
\installcorenamespace {btxrenderingdefinition}
\installcommandhandler \??btxdataset {btxdataset} \??btxdataset
\installcommandhandler \??btxlistvariant {btxlistvariant} \??btxlistvariant
\installcommandhandler \??btxcitevariant {btxcitevariant} \??btxcitevariant
+\installcommandhandler \??btxregister {btxregister} \??btxregister
\installcommandhandler \??btxrendering {btxrendering} \??btxrendering
\appendtoks
@@ -474,11 +547,6 @@
\unexpanded\def\btxtodo#1%
{[#1]}
-%D Specific rendering definitions (like apa):
-
-\unexpanded\def\loadbtxdefinitionfile[#1]%
- {\ctxcommand{loadbtxdefinitionfile("#1")}}
-
%D Lists:
\newdimen\d_publ_number_width
@@ -618,14 +686,14 @@
\startpacked[\v!blank]%
% here we just collect items
\ctxcommand{btxcollectlistentries {
- names = "btx",
- criterium = "\currentbtxcriterium",
- method = "\btxrenderingparameter\c!method",
- number = "\btxrenderingparameter\c!number",
- btxdataset = "\currentbtxdataset",
- keyword = "\btxrenderingparameter\c!keyword",
- sorttype = "\btxrenderingparameter\c!sorttype",
- repeated = "\btxrenderingparameter\c!repeat",
+ names = "btx",
+ criterium = "\currentbtxcriterium",
+ method = "\btxrenderingparameter\c!method",
+ number = "\btxrenderingparameter\c!number",
+ btxdataset = "\currentbtxdataset",
+ keyword = "\btxrenderingparameter\c!keyword",
+ sorttype = "\btxrenderingparameter\c!sorttype",
+ repeated = "\btxrenderingparameter\c!repeat",
}}%
% sorting and so
\ctxcommand{btxpreparelistentries("\currentbtxdataset")}%
@@ -720,8 +788,11 @@
\fi
\fi}
+\newtoks\t_btx_reference_inject
+
\def\btx_cite_reference_inject_indeed
{\btx_trace_list_cross\currentbtxbacklink\empty
+ \the\t_btx_reference_inject
\normalexpanded{\writedatatolist
[\s!btx]%
[\s!btxset=\currentbtxdataset,%
@@ -1086,31 +1157,6 @@
\let\btxsingularorplural\btxsingularplural
-%D Loading variants:
-
-\let\currentbtxrenderingdefinition\empty
-\let\currentbtxalternative \empty
-
-\unexpanded\def\startbtxrenderingdefinitions[#1]%
- {\pushmacro\currentbtxrenderingdefinition
- \edef\currentbtxrenderingdefinition{#1}%
- \letvalue{\??btxrenderingdefinition\currentbtxrenderingdefinition}\currentbtxrenderingdefinition}
-
-\unexpanded\def\stopbtxrenderingdefinitions
- {\popmacro\currentbtxrenderingdefinition}
-
-\def\btx_set_rendering_alternative
- {\edef\currentbtxalternative{\btxrenderingparameter\c!alternative}%
- \ifcsname\??btxrenderingdefinition\currentbtxalternative\endcsname
- % maybe fall back on apa ?
- \else
- \showmessage\m!publications{14}{\currentbtxalternative}%
- \fi}
-
-\appendtoks
- \loadbtxdefinitionfile[\btxrenderingparameter\c!alternative]
-\to \everysetupbtxrendering
-
\stopcontextdefinitioncode
%D Journals
@@ -1190,7 +1236,6 @@
\unexpanded\def\btxhandleciteentry
{\dontleavehmode
\begingroup
- %\edef\currentbtxalternative{apa}% \btxlistvariantparameter\c!alternative}%
\btx_set_rendering_alternative
\btxcitereference
\btx_entry_inject
@@ -1206,22 +1251,35 @@
%D Registers
-\def\btx_cite_reference_inject_indeed
- {\btx_trace_list_cross\currentbtxbacklink\empty
- %
- \edef\p_register{\btxcitevariantparameter\c!register}%
- \ifx\p_register\empty\else
- \ctxcommand{btxauthortoregister("\p_register","\currentbtxdataset","\currentbtxtag")}%
- \fi
- %
- \normalexpanded{\writedatatolist
- [\s!btx]%
- [\s!btxset=\currentbtxdataset,%
- \s!btxref=\currentbtxtag,%
- \ifx\p_publ_cite_lefttext \empty\else\s!btxltx={\p_publ_cite_lefttext },\fi%
- \ifx\p_publ_cite_righttext\empty\else\s!btxrtx={\p_publ_cite_righttext},\fi%
- \s!btxint=\number\currentbtxbacklink
- \ifx\currentbtxciteuservariables\empty\else,\currentbtxciteuservariables\fi]}}
+% \setupbtxregister
+% [\c!state=\v!start,
+% \c!dataset=\v!all,
+% \c!method=\v!always]
+
+\unexpanded\def\publ_registers_set
+ {\ifx\currentbtxregister\empty \else
+ \ctxcommand{setbtxregister {
+ name = "\currentbtxregister",
+ state = "\btxregisterparameter\c!state",
+ dataset = "\btxregisterparameter\c!dataset",
+ field = "\btxregisterparameter\c!field",
+ register = "\btxregisterparameter\c!register",
+ method = "\btxregisterparameter\c!method",
+ alternative = "\btxregisterparameter\c!alternative",
+ }}%
+ \fi}
+
+\appendtoks
+ \publ_registers_set
+\to \everydefinebtxregister
+
+\appendtoks
+ \publ_registers_set
+\to \everysetupbtxregister
+
+\appendtoks
+ \ctxcommand{btxtoregister("\currentbtxdataset","\currentbtxtag")}%
+\to \t_btx_reference_inject
\unexpanded\def\dosetfastregisterentry#1#2#3% register entry key
{\begingroup
@@ -1240,21 +1298,34 @@
\dostoptagged
\endgroup}
-\unexpanded\def\btx_flush_specific_author#1#2#3#4% dataset tag field index
+\unexpanded\def\btx_flush_specific_field#1#2#3#4#5% dataset tag field variant value
+ {\begingroup
+ \edef\currentbtxdataset{#1}%
+ \edef\currentbtxtag {#2}%
+ \edef\currentbtxfield {#3}%
+ \let\currentbtxlistvariant\currentbtxfield
+ \edef\currentbtxcitevariant{#4}%
+ \usebtxregisterstyleandcolor\c!style\c!color
+ \edef\tempstring{\currentbtxalternative:register:\currentbtxcitevariant}%
+ \doifsetupselse\tempstring{\fastsetup\tempstring}{#5}%
+ \endgroup}
+
+\unexpanded\def\btx_flush_specific_author#1#2#3#4#5% dataset tag field variantindex
{\begingroup
\edef\currentbtxdataset{#1}%
\edef\currentbtxtag {#2}%
\edef\currentbtxfield {#3}%
\let\currentbtxlistvariant\currentbtxfield
- \edef\currentbtxcitevariant{invertedshort}%
+ \edef\currentbtxcitevariant{#4}%
\ctxcommand{btxauthor("\currentbtxdataset","\currentbtxtag","\currentbtxfield",{
kind = "list",
- index = \number#4,
+ index = \number#5,
combiner = "\currentbtxcitevariant",
})}%
\endgroup}
-\let\dobtxindexedauthor\btx_flush_specific_author
+\let\dobtxindexedfield \btx_flush_specific_field % used at lua end
+\let\dobtxindexedauthor\btx_flush_specific_author % used at lua end
%D Defaults:
@@ -1480,6 +1551,7 @@
\loadbtxdefinitionfile[list]
\loadbtxdefinitionfile[author]
-\loadbtxdefinitionfile[apa]
+\setupbtx
+ [\c!alternative=apa]
\protect
diff --git a/tex/context/base/publ-reg.lua b/tex/context/base/publ-reg.lua
new file mode 100644
index 000000000..6b9cc9234
--- /dev/null
+++ b/tex/context/base/publ-reg.lua
@@ -0,0 +1,131 @@
+if not modules then modules = { } end modules ['publ-reg'] = {
+ version = 1.001,
+ comment = "this module part of publication support",
+ author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright = "PRAGMA ADE / ConTeXt Development Team",
+ license = "see context related readme files"
+}
+
+local formatters = string.formatters
+local sortedhash = table.sortedhash
+
+local context = context
+local commands = commands
+
+local variables = interfaces.variables
+
+local v_once = variables.once
+local v_standard = variables.standard
+local v_stop = variables.stop
+local v_all = variables.all
+
+local datasets = publications.datasets
+local specifications = { }
+local sequence = { }
+local flushers = { }
+
+function commands.setbtxregister(specification)
+ local name = specification.name or "unset"
+ local register = specification.register
+ local dataset = specification.dataset
+ local field = specification.field
+ if not field or field == "" or not register or register == "" then
+ return
+ end
+ if not dataset or dataset == "" then
+ dataset = v_all
+ end
+ -- could be metatable magic
+ local s = specifications[register]
+ if not s then
+ s = { }
+ specifications[register] = s
+ end
+ local d = s[dataset]
+ if not d then
+ d = { }
+ s[dataset] = d
+ end
+ --
+ -- check all
+ --
+ local alternative = specification.alternative or d.alternative
+ if not alternative or alternative == "" then
+ alternative = field
+ end
+ --
+ d.active = specification.state ~= v_stop
+ d.once = specification.method == v_once or false
+ d.field = field
+ d.alternative = alternative
+ d.register = register
+ d.dataset = dataset
+ d.done = d.done or { }
+ --
+ sequence = { }
+ for register, s in sortedhash(specifications) do
+ for dataset, d in sortedhash(s) do
+ if d.active then
+ sequence[#sequence+1] = d
+ end
+ end
+ end
+end
+
+function commands.btxtoregister(dataset,tag)
+ for i=1,#sequence do
+ local step = sequence[i]
+ local dset = step.dataset
+ if dset == v_all or dset == dataset then
+ local done = step.done
+ if not done[tag] then
+ local current = datasets[dataset]
+ local entry = current.luadata[tag]
+ if entry then
+ local register = step.register
+ local field = step.field
+ local alternative = step.alternative
+ local flusher = flushers[field] or flushers.default
+ flusher(register,dataset,tag,field,alternative,current,entry,current.details[tag])
+ end
+ done[tag] = true
+ end
+ end
+ end
+end
+-- context.setregisterentry (
+-- { register },
+-- {
+-- ["entries:1"] = value,
+-- ["keys:1"] = value,
+-- }
+-- )
+
+local ctx_dosetfastregisterentry = context.dosetfastregisterentry -- register entry key
+
+local f_field = formatters[ [[\dobtxindexedfield{%s}{%s}{%s}{%s}{%s}]] ]
+local f_author = formatters[ [[\dobtxindexedauthor{%s}{%s}{%s}{%s}{%s}]] ]
+
+local writer = publications.serializeauthor
+
+function flushers.default(register,dataset,tag,field,alternative,current,entry,detail)
+ local value = detail[field] or entry[field]
+ if value then
+ local e = f_field(dataset,tag,field,alternative,value)
+ ctx_dosetfastregisterentry(register,e,value) -- last value can be ""
+ end
+end
+
+function flushers.author(register,dataset,tag,field,alternative,current,entry,detail)
+ if detail then
+ local author = detail[field]
+ if author then
+ for i=1,#author do
+ local a = author[i]
+ local k = writer{a}
+ local e = f_author(dataset,tag,field,alternative,i)
+ ctx_dosetfastregisterentry(register,e,k)
+ end
+ end
+ end
+end
diff --git a/tex/context/base/publ-tra.lua b/tex/context/base/publ-tra.lua
index 7f1626782..34a678459 100644
--- a/tex/context/base/publ-tra.lua
+++ b/tex/context/base/publ-tra.lua
@@ -22,39 +22,6 @@ local ctx_bold, ctx_rotate, ctx_llap = context.bold, context.rotate, context.lla
local ctx_darkgreen, ctx_darkred, ctx_darkblue = context.darkgreen, context.darkred, context.darkblue
local ctx_starttabulate, ctx_stoptabulate = context.starttabulate, context.stoptabulate
-local categories = table.setmetatableindex(function(t,name)
- local filename = resolvers.findfile(formatters["publ-imp-%s.lua"](name))
- local fields = { }
- local specification = filename and filename ~= "" and table.load(filename) or {
- name = name,
- version = "1.00",
- comment = "unknown specification.",
- author = "anonymous",
- copyright = "no one",
- categories = { },
- }
- --
- specification.fields = fields
- for category, data in next, specification.categories do
- local list = { }
- fields[category] = list
- local required = data.required
- local optional = data.optional
- for i=1,#required do
- list[required[i]] = "required"
- end
- for i=1,#optional do
- list[optional[i]] = "optional"
- end
- end
- t[name] = specification
- return specification
-end)
-
-publications.tracers.categories = categories
-
--- -- --
-
local private = {
category = true,
tag = true,
@@ -173,6 +140,7 @@ function tracers.showdatasetcompleteness(settings)
for i=1,#requiredfields do
local r = requiredfields[i]
if type(r) == "table" then
+ -- this has to be done differently now
local okay = true
for i=1,#r do
local ri = r[i]
@@ -200,6 +168,7 @@ function tracers.showdatasetcompleteness(settings)
for i=1,#optionalfields do
local o = optionalfields[i]
if type(o) == "table" then
+ -- this has to be done differently now
for i=1,#o do
local oi = o[i]
if rawget(entry,oi) then
diff --git a/tex/context/base/spac-lin.mkiv b/tex/context/base/spac-lin.mkiv
index 094e18e0b..5ed9d718a 100644
--- a/tex/context/base/spac-lin.mkiv
+++ b/tex/context/base/spac-lin.mkiv
@@ -88,7 +88,7 @@
\linesparameter\c!before
\pushmacro\checkindentation
\whitespace
- \dostarttagged\t!lines\currentlines
+ \dostarttaggedchained\t!lines\currentlines\??lines
\begingroup
\uselinesstyleandcolor\c!style\c!color
\setupindenting[\linesparameter\c!indenting]%
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index 6025bdecb..7d2f9fa03 100644
--- a/tex/context/base/status-files.pdf
+++ b/tex/context/base/status-files.pdf
Binary files differ
diff --git a/tex/context/base/status-lua.pdf b/tex/context/base/status-lua.pdf
index 5005381c5..7249deb2b 100644
--- a/tex/context/base/status-lua.pdf
+++ b/tex/context/base/status-lua.pdf
Binary files differ
diff --git a/tex/context/base/strc-con.mkvi b/tex/context/base/strc-con.mkvi
index b04f9231d..e32c3dd61 100644
--- a/tex/context/base/strc-con.mkvi
+++ b/tex/context/base/strc-con.mkvi
@@ -159,6 +159,7 @@
\unexpanded\def\strc_constructions_initialize#1% class instance
{\edef\currentconstruction{#1}%
+ \let\currentconstructionhash\??construction
\let\currentconstructionlistentry\!!zerocount
\expandafter\let\expandafter\currentconstructionmain \csname\??constructionmain \currentconstruction\endcsname
\expandafter\let\expandafter\currentconstructionlevel \csname\??constructionlevel\currentconstruction\endcsname
@@ -264,8 +265,10 @@
{\constructionsheaddistance\zeropoint
\constructionsheadwidth \zeropoint}
+\let\currentconstructionhash\??construction
+
\unexpanded\setvalue{\??constructionstarthandler\v!construction}% this will be redone (reorganized) .. too much boxing
- {\dostarttagged\t!construction\currentconstruction
+ {\dostarttaggedchained\t!construction\currentconstruction\currentconstructionhash
\dotagsetconstruction
\constructionparameter\c!before
\begingroup
diff --git a/tex/context/base/strc-des.mkvi b/tex/context/base/strc-des.mkvi
index fa20d3cae..81cd6ee52 100644
--- a/tex/context/base/strc-des.mkvi
+++ b/tex/context/base/strc-des.mkvi
@@ -76,6 +76,7 @@
\unexpanded\setvalue{\??constructioninitializer\v!description}%
{\let\currentdescription \currentconstruction
\let\constructionparameter \descriptionparameter
+ \let\constructionnamespace \??description
\let\detokenizedconstructionparameter\detokenizeddescriptionparameter
\let\letconstructionparameter \letdescriptionparameter
\let\useconstructionstyleandcolor \usedescriptionstyleandcolor
diff --git a/tex/context/base/strc-enu.mkvi b/tex/context/base/strc-enu.mkvi
index 0a01d2637..ae122b658 100644
--- a/tex/context/base/strc-enu.mkvi
+++ b/tex/context/base/strc-enu.mkvi
@@ -183,6 +183,7 @@
\unexpanded\setvalue{\??constructioninitializer\v!enumeration}%
{\let\currentenumeration \currentconstruction
\let\constructionparameter \enumerationparameter
+ \let\constructionnamespace \??enumeration
\let\detokenizedconstructionparameter\detokenizedenumerationparameter
\let\letconstructionparameter \letenumerationparameter
\let\useconstructionstyleandcolor \useenumerationstyleandcolor
diff --git a/tex/context/base/strc-flt.mkvi b/tex/context/base/strc-flt.mkvi
index 3f3c1fedf..ef4eae71c 100644
--- a/tex/context/base/strc-flt.mkvi
+++ b/tex/context/base/strc-flt.mkvi
@@ -204,8 +204,8 @@
{\definefloatcaption[#1][#3]%
\definecounter[#1][#3]%
\definelist[#1][#3]%
- \presetlabeltext[#1=\Word{#3}~]%
- \presetheadtext[#2=\Word{#2}]%
+ \copylabeltext[#1=#3]%
+ %\presetheadtext[#2=\Word{#2}]%
\strc_floats_define_saved[#1][#3]%
\strc_floats_define_commands{#1}{#2}}
@@ -661,7 +661,7 @@
\fi
\page_margin_strc_floats_before % todo: each float handler gets a before
\global\insidefloattrue
- \dostarttagged\t!float\currentfloat
+ \dostarttaggedchained\t!float\currentfloat\??float
\page_margin_strc_floats_set_hsize % todo: each float handler gets a set_hsize
\the\everyinsidefloat
\strc_floats_analyze_variables_one
@@ -853,7 +853,7 @@
\relax
\relax
\relax
- [\c!name=\currentfloat,%
+ [\s!name=\currentfloat,% was c!name
\s!counter=\currentfloatcounter,%
\s!hascaption=\ifnofloatcaption \v!no\else\v!yes\fi,%
\s!hasnumber=\ifnofloatnumber \v!no\else\v!yes\fi,%
diff --git a/tex/context/base/strc-itm.mkvi b/tex/context/base/strc-itm.mkvi
index 098b863b9..4478c2d8d 100644
--- a/tex/context/base/strc-itm.mkvi
+++ b/tex/context/base/strc-itm.mkvi
@@ -485,7 +485,7 @@
\ifdefined\dotagsetitemgroup \else \let\dotagsetitemgroup\relax \fi
\def\strc_itemgroups_tag_start_group
- {\dostarttagged\t!itemgroup\currentitemgroup
+ {\dostarttaggedchained\t!itemgroup\currentitemgroup\??itemgroup
\dotagsetitemgroup}
\def\strc_itemgroups_tag_stop_group
diff --git a/tex/context/base/strc-lab.mkiv b/tex/context/base/strc-lab.mkiv
index 3e6617126..189c58272 100644
--- a/tex/context/base/strc-lab.mkiv
+++ b/tex/context/base/strc-lab.mkiv
@@ -113,6 +113,7 @@
\setvalue{\??constructioninitializer\v!label}%
{\let\currentlabel \currentconstruction
\let\constructionparameter \labelparameter
+ \let\constructionnamespace \??label
\let\detokenizedconstructionparameter\detokenizedlabelparameter
\let\letconstructionparameter \letlabelparameter
\let\useconstructionstyleandcolor \uselabelstyleandcolor
diff --git a/tex/context/base/strc-lst.mkvi b/tex/context/base/strc-lst.mkvi
index bea547bcf..3a2526315 100644
--- a/tex/context/base/strc-lst.mkvi
+++ b/tex/context/base/strc-lst.mkvi
@@ -402,7 +402,7 @@
% TODO: pass extra tag name (contents, figures, bibliography ...)
\unexpanded\def\strc_lists_place_current#list#criterium#number#extras#order% beware, not a user command
- {\dostarttagged\t!list\empty
+ {\dostarttaggedchained\t!list\empty\??list
\ctxcommand{processlist{
names = "#list",
criterium = "#criterium",
diff --git a/tex/context/base/strc-mat.mkiv b/tex/context/base/strc-mat.mkiv
index 18cb005cb..742cf00aa 100644
--- a/tex/context/base/strc-mat.mkiv
+++ b/tex/context/base/strc-mat.mkiv
@@ -528,7 +528,7 @@
\unexpanded\def\strc_formulas_start_formula_indeed[#1][#2]% setting leftskip adaption is slow !
{\bgroup % HERE
\def\currentformula{#1}%
- \dostarttagged\t!formula\currentformula
+ \dostarttaggedchained\t!formula\currentformula\??formula
\the\everybeforedisplayformula
\d_strc_formulas_display_skip_par\parskip\relax
%\formulastrutdp\strutdepth
@@ -564,7 +564,7 @@
\unexpanded\def\strc_formulas_start_formula_nested#1%
{\bgroup
\let\strc_formulas_stop_formula\strc_formulas_stop_formula_nested
- \dostarttagged\t!subformula}
+ \dostarttagged\t!subformula\empty}
\unexpanded\def\strc_formulas_stop_formula_nested
{\dostoptagged
diff --git a/tex/context/base/strc-not.mkvi b/tex/context/base/strc-not.mkvi
index c97cf00ef..c1ea37bb5 100644
--- a/tex/context/base/strc-not.mkvi
+++ b/tex/context/base/strc-not.mkvi
@@ -181,6 +181,7 @@
\unexpanded\setvalue{\??constructioninitializer\v!notation}%
{\let\currentnotation \currentconstruction
\let\constructionparameter \notationparameter
+ \let\constructionnamespace \??notation
\let\detokenizedconstructionparameter\detokenizednotationparameter
\let\letconstructionparameter \letnotationparameter
\let\useconstructionstyleandcolor \usenotationstyleandcolor
diff --git a/tex/context/base/strc-num.mkiv b/tex/context/base/strc-num.mkiv
index 6802027e6..7c3ac17db 100644
--- a/tex/context/base/strc-num.mkiv
+++ b/tex/context/base/strc-num.mkiv
@@ -58,7 +58,8 @@
}}%
\letcounterparameter\s!name\currentcounter
\else
- \letcounterparameter\s!name\currentcounterparent
+ % \letcounterparameter\s!name\currentcounterparent % we need a chained clone
+ \setexpandedcounterparameter\s!name{\namedcounterparameter\currentcounterparent\s!name}%
\fi
\strc_counters_check_setup
\to \everydefinecounter
diff --git a/tex/context/base/strc-reg.mkiv b/tex/context/base/strc-reg.mkiv
index aaa58ace4..9190abfcd 100644
--- a/tex/context/base/strc-reg.mkiv
+++ b/tex/context/base/strc-reg.mkiv
@@ -731,7 +731,7 @@
{\endgraf
\begingroup
\d_strc_registers_distance\registerparameter\c!distance\relax
- \dostarttagged\t!register\currentregister
+ \dostarttaggedchained\t!register\currentregister\??register
\forgeteverypar
\forgetparindent
\forgetparskip}
diff --git a/tex/context/base/strc-sbe.mkiv b/tex/context/base/strc-sbe.mkiv
index fc48307ec..e6f0282ee 100644
--- a/tex/context/base/strc-sbe.mkiv
+++ b/tex/context/base/strc-sbe.mkiv
@@ -65,7 +65,7 @@
\resetallstructuremarks
\strc_sectionblock_get_environment\currentsectionblock
\sectionblockparameter\c!before % don't move
- \dostarttagged\t!division\currentsectionblock
+ \dostarttagged\t!division\currentsectionblock % no parents
\to \everybeforesectionblock
\appendtoks
diff --git a/tex/context/base/strc-sec.mkiv b/tex/context/base/strc-sec.mkiv
index fc02a208a..a55a8951b 100644
--- a/tex/context/base/strc-sec.mkiv
+++ b/tex/context/base/strc-sec.mkiv
@@ -995,14 +995,14 @@
\def\strc_sectioning_before_yes
{\strc_sectioning_check_before\strc_sectioning_handle_page_yes
\headparameter\c!inbetween
- \dostarttagged\t!section\currenthead
+ \dostarttaggedchained\t!section\currenthead\??head
% \dotagsectionlevel
}
\def\strc_sectioning_before_nop
{\strc_sectioning_check_before\strc_sectioning_handle_page_nop
\headparameter\c!inbetween
- \dostarttagged\currenthead\empty}
+ \dostarttagged\currenthead\empty} % this is a weird one .. needs checking
\def\strc_sectioning_empty_correction
{\ifconditional\c_strc_sectioning_empty
diff --git a/tex/context/base/strc-syn.mkiv b/tex/context/base/strc-syn.mkiv
index baf5cef7b..b69139afb 100644
--- a/tex/context/base/strc-syn.mkiv
+++ b/tex/context/base/strc-syn.mkiv
@@ -100,6 +100,7 @@
\setuvalue{\??constructioninitializer\v!simplelist}%
{\let\currentsimplelist \currentconstruction
\let\constructionparameter \simplelistparameter
+ \let\constructionnamespace \??simplelist
\let\detokenizedconstructionparameter\detokenizedsimplelistparameter
\let\letconstructionparameter \letsimplelistparameter
\let\useconstructionstyleandcolor \usesimpleliststyleandcolor
@@ -231,7 +232,7 @@
\edef\currentsimplelist{#1}%
\let\currentsynonym\currentsimplelist % for a while
\def\currentsynonymtag{#2}%
- \dostarttagged\t!synonym\currentsynonym
+ \dostarttaggedchained\t!synonym\currentsynonym\??simplelist
\dotagsynonym
\usesimpleliststyleandcolor\c!synonymstyle\c!synonymcolor
\simplelistparameter\c!synonymcommand{\ctxcommand{synonymname("#1","#2")}}%
@@ -359,7 +360,7 @@
\edef\currentsorting{#1}%
\def\currentsortingtag{#2}%
\let\currentsimplelist\currentsorting
- \dostarttagged\t!sorting\currentsorting
+ \dostarttaggedchained\t!sorting\currentsorting\??simplelist
\dotagsorting
\usesimpleliststyleandcolor\c!style\c!color
\ctxcommand{synonymname("#1","#2")}%
diff --git a/tex/context/base/strc-tag.lua b/tex/context/base/strc-tag.lua
index 659c20d34..7b235957b 100644
--- a/tex/context/base/strc-tag.lua
+++ b/tex/context/base/strc-tag.lua
@@ -6,9 +6,12 @@ if not modules then modules = { } end modules ['strc-tag'] = {
license = "see context related readme files"
}
--- This is rather experimental code.
+-- This is rather experimental code. Tagging happens on the fly and there are two analysers
+-- involved: the pdf backend tagger and the exporter. They share data but there are subtle
+-- differences. Each tag carries a specification and these can be accessed by attribute (the
+-- end of the chain tag) or by so called fullname which is a tagname combined with a number.
-local type = type
+local type, next = type, next
local insert, remove, unpack, concat = table.insert, table.remove, table.unpack, table.concat
local gsub, find, topattern, format = string.gsub, string.find, string.topattern, string.format
local lpegmatch, P, S, C, Cc = lpeg.match, lpeg.P, lpeg.S, lpeg.C, lpeg.Cc
@@ -28,36 +31,30 @@ local a_tagged = attributes.private('tagged')
local unsetvalue = attributes.unsetvalue
local codeinjections = backends.codeinjections
-local taglist = allocate()
-local properties = allocate()
-local userproperties = allocate()
+local taglist = allocate() -- access by attribute
+local specifications = allocate() -- access by fulltag
local labels = allocate()
local stack = { }
local chain = { }
local ids = { }
local enabled = false
-local tagdata = { } -- used in export
-local tagmetadata = { } -- used in export
local tagcontext = { }
local tagpatterns = { }
+local lasttags = { }
+local stacksize = 0
+local metadata = nil -- applied to the next element
local tags = structures.tags
tags.taglist = taglist -- can best be hidden
tags.labels = labels
-tags.data = tagdata
-tags.metadata = tagmetadata
tags.patterns = tagpatterns
-tags.userproperties = userproperties -- used in backend
+tags.specifications = specifications
-- Tags are internally stored as:
--
--- tag<detail>number>
--- tag<detail>number>
+-- tag>number tag>number tag>number
-local p_splitter = C((1-S("<>"))^1)
- * ( P("<")^-1 * C((1-P(">"))^1) + Cc(false))
- * P(">")
- * C(P(1)^1)
+local p_splitter = C((1-S(">"))^1) * P(">") * C(P(1)^1)
tagpatterns.splitter = p_splitter
local properties = allocate {
@@ -199,43 +196,25 @@ local properties = allocate {
combinationcaption = { pdf = "Span", nature = "mixed" },
}
-local patterns_nop = setmetatableindex(function(t,tag)
- local v = "^" .. tag .. ">"
- t[tag] = v
- return v
-end)
+tags.properties = properties
-local patterns_yes = setmetatableindex(function(t,tag)
- local v = setmetatableindex(function(t,detail)
- local v = "^" .. tag .. "<" .. detail .. ">"
- t[detail] = v
- return v
- end)
+local patterns = setmetatableindex(function(t,tag)
+ local v = topattern("^" .. tag .. ">")
t[tag] = v
return v
end)
-function tags.detailedtag(tag,detail,attribute)
- if not attribute then
- attribute = texattribute[a_tagged]
- end
+function tags.locatedtag(tag)
+ local attribute = texattribute[a_tagged]
if attribute >= 0 then
- local tl = taglist[attribute]
- if tl then
- local pattern
- if detail and detail ~= "" then
- -- pattern = "^" .. tag .. ":" .. detail .. "%-"
- -- pattern = "^" .. tag .. "<" .. detail .. ">"
- pattern = patterns_yes[tag][detail]
- else
- -- pattern = "^" .. tag .. "%-"
- -- pattern = "^" .. tag .. ">"
- pattern = patterns_nop[tag]
- end
- for i=#tl,1,-1 do
- local tli = tl[i]
- if find(tli,pattern) then
- return tli
+ local specification = taglist[attribute]
+ if specification then
+ local taglist = specification.taglist
+ local pattern = patterns[tag]
+ for i=#taglist,1,-1 do
+ local t = taglist[i]
+ if find(t,pattern) then
+ return t
end
end
end
@@ -245,13 +224,20 @@ function tags.detailedtag(tag,detail,attribute)
return false -- handy as bogus index
end
-tags.properties = properties
-
-local lasttags = { }
-local userdata = { }
-local nstack = 0
-
-tags.userdata = userdata
+function structures.atlocation(str)
+ local specification = taglist[texattribute[a_tagged]]
+ if specification then
+ if list then
+ local taglist = specification.taglist
+ local pattern = patterns[str]
+ for i=#list,1,-1 do
+ if find(list[i],pattern) then
+ return true
+ end
+ end
+ end
+ end
+end
function tags.setproperty(tag,key,value)
local p = properties[tag]
@@ -263,7 +249,7 @@ function tags.setproperty(tag,key,value)
end
function tags.setaspect(key,value)
- local tag = chain[nstack]
+ local tag = chain[stacksize]
if tag then
local p = properties[tag]
if p then
@@ -274,23 +260,6 @@ function tags.setaspect(key,value)
end
end
-function tags.copyaspect(old,new)
- local oldlst = taglist[old]
- local newlst = taglist[new]
- local oldtag = oldlst[#oldlst]
- local newtag = newlst[#newlst]
- properties[newtag] = properties[oldtag]
-end
-
-function tags.registerdata(data)
- local fulltag = chain[nstack]
- if fulltag then
- tagdata[fulltag] = data
- end
-end
-
-local metadata
-
function tags.registermetadata(data)
local d = settings_to_hash(data)
if metadata then
@@ -300,102 +269,91 @@ function tags.registermetadata(data)
end
end
-function tags.start(tag,specification,props)
- local label, detail, user
- if specification then
- label = specification.label
- detail = specification.detail
- user = specification.userdata
- end
+function tags.start(tag,specification)
if not enabled then
codeinjections.enabletags()
enabled = true
end
--
- local fulltag = label ~= "" and label or tag
- labels[tag] = fulltag
- if detail and detail ~= "" then
- -- fulltag = fulltag .. ":" .. detail
- fulltag = fulltag .. "<" .. detail
- end
+ labels[tag] = tag -- can go away
--
- local t = #taglist + 1
- local n = (ids[fulltag] or 0) + 1
- ids[fulltag] = n
- lasttags[tag] = n
--- local completetag = fulltag .. "-" .. n
- local completetag = fulltag .. ">" .. n
- nstack = nstack + 1
- chain[nstack] = completetag
- stack[nstack] = t
+ local attribute = #taglist + 1
+ local tagindex = (ids[tag] or 0) + 1
--
- tagcontext[tag] = completetag
+ local completetag = tag .. ">" .. tagindex
--
- -- a copy as we can add key values for alt and actualtext if needed:
- taglist[t] = { unpack(chain,1,nstack) }
+ ids[tag] = tagindex
+ lasttags[tag] = tagindex
+ stacksize = stacksize + 1
--
- if user and user ~= "" then
- -- maybe we should merge this into taglist or whatever ... anyway there is room to optimize
- -- taglist.userdata = settings_to_hash(user)
- userdata[completetag] = settings_to_hash(user)
- end
- if metadata then
- tagmetadata[completetag] = metadata
+ chain[stacksize] = completetag
+ stack[stacksize] = attribute
+ tagcontext[tag] = completetag
+ --
+ local tagnesting = { unpack(chain,1,stacksize) } -- a copy so we can add actualtext
+ --
+ if specification then
+ specification.attribute = attribute
+ specification.tagindex = tagindex
+ specification.taglist = tagnesting
+ specification.tagname = tag
+ if metadata then
+ specification.metadata = metadata
+ metadata = nil
+ end
+ local userdata = specification.userdata
+ if user ~= "" and type(userdata) == "string" then
+ specification.userdata = settings_to_hash(userdata)
+ end
+ local detail = specification.detail
+ if detail == "" then
+ specification.detail = nil
+ end
+ local parents = specification.parents
+ if parents == "" then
+ specification.parents = nil
+ end
+ else
+ specification = {
+ attribute = attribute,
+ tagindex = tagindex,
+ taglist = tagnesting,
+ tagname = tag,
+ metadata = metadata,
+ }
metadata = nil
end
- if props then
- properties[completetag] = props
- end
- texattribute[a_tagged] = t
- return t
+ --
+ taglist[attribute] = specification
+ specifications[completetag] = specification
+ --
+ texattribute[a_tagged] = attribute
+ return attribute
end
--- function tags.restart(completetag)
--- if type(completetag) == "number" then
--- local attribute = completetag
--- local listentry = taglist[attribute]
--- local completetag = listentry[#listentry]
--- nstack = nstack + 1
--- chain[nstack] = completetag
--- stack[nstack] = attribute
--- texattribute[a_tagged] = attribute
--- return attribute
--- else
--- local attribute = #taglist + 1
--- nstack = nstack + 1
--- chain[nstack] = completetag
--- stack[nstack] = attribute
--- taglist[attribute] = { unpack(chain,1,nstack) }
--- texattribute[a_tagged] = attribute
--- return attribute
--- end
--- end
---
--- more compact:
-
function tags.restart(attribute)
- nstack = nstack + 1
+ stacksize = stacksize + 1
if type(attribute) == "number" then
- local listentry = taglist[attribute]
- chain[nstack] = listentry[#listentry]
+ local taglist = taglist[attribute].taglist
+ chain[stacksize] = taglist[#taglist]
else
- chain[nstack] = attribute -- a string
+ chain[stacksize] = attribute -- a string
attribute = #taglist + 1
- taglist[attribute] = { unpack(chain,1,nstack) }
+ taglist[attribute] = { taglist = { unpack(chain,1,stacksize) } }
end
- stack[nstack] = attribute
+ stack[stacksize] = attribute
texattribute[a_tagged] = attribute
return attribute
end
function tags.stop()
- if nstack > 0 then
- nstack = nstack -1
+ if stacksize > 0 then
+ stacksize = stacksize - 1
end
- local t = stack[nstack]
+ local t = stack[stacksize]
if not t then
-- if trace_tags then
- report_tags("ignoring end tag, previous chain: %s",nstack > 0 and concat(chain[nstack]," ",1,nstack) or "none")
+ report_tags("ignoring end tag, previous chain: %s",stacksize > 0 and concat(chain," ",1,stacksize) or "none")
-- end
t = unsetvalue
end
@@ -404,12 +362,7 @@ function tags.stop()
end
function tags.getid(tag,detail)
- if detail and detail ~= "" then
- -- return ids[tag .. ":" .. detail] or "?"
- return ids[tag .. "<" .. detail] or "?"
- else
- return ids[tag] or "?"
- end
+ return ids[tag] or "?"
end
function tags.last(tag)
@@ -420,14 +373,14 @@ function tags.lastinchain(tag)
if tag and tag ~= "" then
return tagcontext[tag]
else
- return chain[nstack]
+ return chain[stacksize]
end
end
-local strip = C((1-S(":-"))^1)
+local strip = C((1-S(">"))^1)
commands.getelementtag = function()
- local fulltag = chain[nstack]
+ local fulltag = chain[stacksize]
if fulltag then
context(lpegmatch(strip,fulltag))
end
@@ -437,36 +390,36 @@ function tags.setuserproperties(tag,list)
if list then
tag = tagcontext[tag]
else
- tag, list = chain[nstack], tag
+ tag, list = chain[stacksize], tag
end
- if tag then
+ if tag then -- an attribute now
local l = settings_to_hash(list)
- local p = userproperties[tag]
- if p then
- for k, v in next, l do
- p[k] = v
+ local s = specifications[tag]
+ if s then
+ local u = s.userdata
+ if u then
+ for k, v in next, l do
+ u[k] = v
+ end
+ else
+ s.userdata = l
end
else
- userproperties[tag] = l
+ -- error
end
end
end
commands.setelementuserproperties = tags.setuserproperties
-function structures.atlocation(str)
- local location = gsub(concat(taglist[texattribute[a_tagged]],"-"),"%-%d+","")
- return find(location,topattern(str)) ~= nil
-end
-
function tags.handler(head) -- we need a dummy
return head, false
end
statistics.register("structure elements", function()
if enabled then
- if nstack > 0 then
- return format("%s element chains identified, open chain: %s ",#taglist,concat(chain," => ",1,nstack))
+ if stacksize > 0 then
+ return format("%s element chains identified, open chain: %s ",#taglist,concat(chain," => ",1,stacksize))
else
return format("%s element chains identified",#taglist)
end
@@ -484,8 +437,3 @@ commands.starttag = tags.start
commands.stoptag = tags.stop
commands.settagproperty = tags.setproperty
commands.settagaspect = tags.setaspect
-
--- function commands.tagindex(tag)
--- context(lasttags[tag] or 0)
--- end
-
diff --git a/tex/context/base/strc-tag.mkiv b/tex/context/base/strc-tag.mkiv
index a97bec7c9..33cd442d5 100644
--- a/tex/context/base/strc-tag.mkiv
+++ b/tex/context/base/strc-tag.mkiv
@@ -197,8 +197,14 @@
% \unexpanded\def\strc_tags_element_start_yes_indeed_yes[#1][#2]%
% {\ctxcommand{starttag("#1",{label="#1",userdata=\!!bs#2\!!es})}}
+% \unexpanded\def\strc_tags_element_start_yes_indeed_yes[#1][#2]%
+% {\ctxcommand{starttag("#1",{label="\dogetupsometaglabeltext{#1}",userdata=\!!bs#2\!!es})}}
+%
+% it makes no sense to have labels ... maybe some day as a last 'replace' in the export
+% which might be more efficient then ... okay, we now cannot overload but who cares
+
\unexpanded\def\strc_tags_element_start_yes_indeed_yes[#1][#2]%
- {\ctxcommand{starttag("#1",{label="\dogetupsometaglabeltext{#1}",userdata=\!!bs#2\!!es})}}
+ {\ctxcommand{starttag("#1",{userdata=\!!bs#2\!!es})}}
\unexpanded\def\strc_tags_element_stop_yes
{\ctxcommand{stoptag()}}
@@ -222,11 +228,25 @@
% beware: making these unexpanded spoils tables (noalign problem)
-\def\strc_tags_enabled_start
+\def\strc_tags_enabled_start_no_detail
+ {\iftrialtypesetting
+ \expandafter\strc_tags_start_nop_no_detail
+ \else
+ \expandafter\strc_tags_start_yes_no_detail
+ \fi}
+
+\def\strc_tags_enabled_start_detail
{\iftrialtypesetting
- \expandafter\strc_tags_start_nop
+ \expandafter\strc_tags_start_nop_detail
\else
- \expandafter\strc_tags_start_yes
+ \expandafter\strc_tags_start_yes_detail
+ \fi}
+
+\def\strc_tags_enabled_start_chained
+ {\iftrialtypesetting
+ \expandafter\strc_tags_start_nop_chained
+ \else
+ \expandafter\strc_tags_start_yes_chained
\fi}
\def\strc_tags_enabled_stop
@@ -236,25 +256,37 @@
\expandafter\strc_tags_stop_yes
\fi}
-\def\strc_tags_start_yes#1#2% we could have a fast labeltext resolver
- {\ctxcommand{starttag("#1",{label="\dogetupsometaglabeltext{#1}",detail="#2"})}}
+\def\strc_tags_start_yes_no_detail #1{\ctxcommand{starttag("#1")}}
+\def\strc_tags_start_yes_detail #1#2{\ctxcommand{starttag("#1",{detail="#2"})}}
+\def\strc_tags_start_yes_chained #1#2#3{\ctxcommand{starttag("#1",{detail="#2",parents="\getcurrentparentchain#3{#2}"})}}
+\def\strc_tags_stop_yes {\ctxcommand{stoptag()}}
-\def\strc_tags_stop_yes
- {\ctxcommand{stoptag()}}
+\let\strc_tags_start_nop_no_detail\gobbleoneargument
+\let\strc_tags_start_nop_detail \gobbletwoarguments
+\let\strc_tags_start_nop_chained \gobblethreearguments
+\let\strc_tags_stop_nop \donothing
-\def\strc_tags_start_nop#1#2%
- {}
+% more efficient:
-\def\strc_tags_stop_nop
- {}
+% \dostarttagged % {tag} {detail}
+% \dostarttaggedchained % {tag} {detail} \??hash
+% \dostarttaggednodetail % {tag}
+
+% \unexpanded\def\strc_tags_enable
+% {\let\dostarttagged\strc_tags_start_yes
+% \let\dostoptagged \strc_tags_stop_yes}
\unexpanded\def\strc_tags_enable
- {\let\dostarttagged\strc_tags_start_yes
- \let\dostoptagged \strc_tags_stop_yes}
+ {\let\dostarttagged \strc_tags_enabled_start_detail
+ \let\dostarttaggednodetail\strc_tags_enabled_start_no_detail
+ \let\dostarttaggedchained \strc_tags_enabled_start_chained
+ \let\dostoptagged \strc_tags_enabled_stop}
\unexpanded\def\strc_tags_disable
- {\let\dostarttagged\strc_tags_start_nop
- \let\dostoptagged \strc_tags_stop_nop}
+ {\let\dostarttagged \strc_tags_start_nop_detail
+ \let\dostarttaggednodetail\strc_tags_start_nop_no_detail
+ \let\dostarttaggedchained \strc_tags_start_nop_chained
+ \let\dostoptagged \strc_tags_stop_nop}
% for luigi (beware: fully expandable):
@@ -334,7 +366,7 @@
\installcorenamespace {paragraph}
\installcommandhandler \??paragraph {paragraph} \??paragraph
-\setupparagraph % someday maybe also strut (beg/end)
+\setupparagraph % someday maybe also strut (beg/end) and align
[\c!color=,
\c!style=]
diff --git a/tex/context/base/tabl-ntb.mkiv b/tex/context/base/tabl-ntb.mkiv
index 9adacad3c..eba1527de 100644
--- a/tex/context/base/tabl-ntb.mkiv
+++ b/tex/context/base/tabl-ntb.mkiv
@@ -1147,7 +1147,7 @@
\global\c_tabl_ntb_row\zerocount
\global\advance\c_tabl_ntb_row\minusone
\tabskip\zeropoint
- \dostarttagged\t!table\empty
+ \dostarttaggedchained\t!table\empty\??naturaltable
\dostarttagged\t!tablerow\empty
\appendtoks\dostoptagged\dostarttagged\t!tablerow\empty\to\everycr
\halign\bgroup
diff --git a/tex/context/base/tabl-tbl.mkiv b/tex/context/base/tabl-tbl.mkiv
index c25d61741..1bfa53d31 100644
--- a/tex/context/base/tabl-tbl.mkiv
+++ b/tex/context/base/tabl-tbl.mkiv
@@ -2172,7 +2172,7 @@
\global\setbox\b_tabl_tabulate\vbox \bgroup
\fi
%
- \dostarttagged\t!tabulate\empty
+ \dostarttaggedchained\t!tabulate\empty\??tabulate
\dostarttagged\t!tabulaterow\empty
\setfalse\inhibitmargindata % new per 2012.06.13 ... really needed
\everycr\expandafter{\the\everycr\dostoptagged\dostarttagged\t!tabulaterow\empty}%
diff --git a/tex/context/base/tabl-xtb.mkvi b/tex/context/base/tabl-xtb.mkvi
index c4c59e10a..05cfef17b 100644
--- a/tex/context/base/tabl-xtb.mkvi
+++ b/tex/context/base/tabl-xtb.mkvi
@@ -216,7 +216,7 @@
\unexpanded\def\tabl_x_start_named_indeed[#settings]%
{\advance\c_tabl_x_nesting\plusone
- \dostarttagged\t!table\empty
+ \dostarttaggedchained\t!table\empty\??xtable
\iffirstargument
\setupcurrentxtable[#settings]%
\fi
@@ -240,7 +240,7 @@
\unexpanded\def\tabl_x_prepare#settings% assumes \iffirstargument to be set
{\advance\c_tabl_x_nesting\plusone
- \dostarttagged\t!table\empty
+ \dostarttaggedchained\t!table\empty\??xtable
\iffirstargument
\tabl_x_set_checked{#settings}%
\fi
diff --git a/tex/context/base/typo-del.mkiv b/tex/context/base/typo-del.mkiv
index 1018d3563..9bdca4af4 100644
--- a/tex/context/base/typo-del.mkiv
+++ b/tex/context/base/typo-del.mkiv
@@ -148,7 +148,7 @@
\ifnum\c_typo_subsentence_nesting=\plusone
\dontleavehmode % was \leaveoutervmode
\fi
- \dostarttagged\t!subsentence\empty
+ \dostarttagged\t!subsentence\empty % no chain
\symbol[\ifodd\c_typo_subsentence_nesting\c!leftsentence\else\c!leftsubsentence\fi]%
}% \ignorespaces}
@@ -305,7 +305,7 @@
\unexpanded\def\startdelimitedtext[#1]%
{\begingroup
\typo_delimited_push{#1}%
- \dostarttagged\t!delimitedblock\currentdelimitedtext
+ \dostarttaggedchained\t!delimitedblock\currentdelimitedtext\??delimitedtext
\edef\p_delimited_method{\delimitedtextparameter\c!method}%
\ifx\p_delimited_method\s!font
\expandafter\typo_delimited_start_font
@@ -609,7 +609,7 @@
\unexpanded\def\typo_delimited_par
{\groupedcommand
- {\dostarttagged\t!delimited\currentdelimitedtext % block?
+ {\dostarttaggedchained\t!delimited\currentdelimitedtext\??delimitedtext % block?
\typo_delimited_handle_left\c!left}
{\typo_delimited_handle_right\c!right
\removelastskip
@@ -622,7 +622,7 @@
% \typo_delimited_attributed}
%
% \def\typo_delimited_quoted_b
-% {\dostarttagged\t!delimited\currentdelimitedtext
+% {\dostarttaggedchained\t!delimited\currentdelimitedtext\??delimitedtext
% \typo_delimited_handle_left\c!left}
%
% \def\typo_delimited_quoted_e
@@ -632,7 +632,7 @@
% \typo_delimited_pop}
%
% \def\typo_delimited_attributed_b
-% {\dostarttagged\t!delimited\currentdelimitedtext
+% {\dostarttaggedchained\t!delimited\currentdelimitedtext\??delimitedtext
% \usedelimitedtextstyleandcolor\c!style\c!color}
%
% \def\typo_delimited_attributed_e
@@ -640,7 +640,7 @@
% \typo_delimited_pop}
%
% \def\typo_delimited_fontdriven_b
-% {\dostarttagged\t!delimited\currentdelimitedtext
+% {\dostarttaggedchained\t!delimited\currentdelimitedtext\??delimitedtext
% \languageparameter{\c!left\currentparentdelimitedtext}}% was: \currentdelimitedtext
%
% \def\typo_delimited_fontdriven_e
@@ -657,7 +657,7 @@
\fi}
\def\typo_delimited_quoted_b
- {\dostarttagged\t!delimited\currentdelimitedtext
+ {\dostarttaggedchained\t!delimited\currentdelimitedtext\??delimitedtext
\typo_delimited_handle_left\c!left
\usedelimitedtextstyleandcolor\c!style\c!color}
@@ -668,7 +668,7 @@
\typo_delimited_pop}
\def\typo_delimited_attributed_b
- {\dostarttagged\t!delimited\currentdelimitedtext
+ {\dostarttaggedchained\t!delimited\currentdelimitedtext\??delimitedtext
\usedelimitedtextstyleandcolor\c!style\c!color}
\def\typo_delimited_attributed_e
@@ -676,7 +676,7 @@
\typo_delimited_pop}
\def\typo_delimited_fontdriven_b
- {\dostarttagged\t!delimited\currentdelimitedtext
+ {\dostarttaggedchained\t!delimited\currentdelimitedtext\??delimitedtext
\languageparameter{\c!left\currentparentdelimitedtext}% was: \currentdelimitedtext
\usedelimitedtextstyleandcolor\c!style\c!color}
diff --git a/tex/context/base/typo-mar.mkiv b/tex/context/base/typo-mar.mkiv
index 0a113dbc2..be24d0a90 100644
--- a/tex/context/base/typo-mar.mkiv
+++ b/tex/context/base/typo-mar.mkiv
@@ -201,7 +201,7 @@
\strc_references_set_page_only_destination_box_attribute\currentmarginreference\currentmarginreference
\fi
\edef\currentmargindatastrut{\margindataparameter\c!strut}%
- \dostarttagged\t!margintext\currentmargindata
+ \dostarttaggedchained\t!margintext\currentmargindata\??margindata
\ifcsname\currentmarginframedhash\s!parent\endcsname
\setbox\nextbox\hbox \currentmarginreference \bgroup
\the\everymargindatacontent
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua
index dce2ae0a2..0a533d75f 100644
--- a/tex/generic/context/luatex/luatex-fonts-merged.lua
+++ b/tex/generic/context/luatex/luatex-fonts-merged.lua
@@ -1,6 +1,6 @@
-- merged file : luatex-fonts-merged.lua
-- parent file : luatex-fonts.lua
--- merge date : 10/22/14 16:23:49
+-- merge date : 10/27/14 09:27:26
do -- begin closure to overcome local limits and interference