summaryrefslogtreecommitdiff
path: root/luaotfload-legacy-merged.lua
diff options
context:
space:
mode:
Diffstat (limited to 'luaotfload-legacy-merged.lua')
-rw-r--r--luaotfload-legacy-merged.lua8157
1 files changed, 8157 insertions, 0 deletions
diff --git a/luaotfload-legacy-merged.lua b/luaotfload-legacy-merged.lua
new file mode 100644
index 0000000..9bec298
--- /dev/null
+++ b/luaotfload-legacy-merged.lua
@@ -0,0 +1,8157 @@
+-- merged file : luaotfload-legacy-merged.lua
+-- parent file : luaotfload-legacy.lua
+-- merge date : Fri May 10 20:57:35 2013
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['luat-dum']={
+ version=1.100,
+ comment="companion to luatex-*.tex",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local dummyfunction=function() end
+statistics={
+ register=dummyfunction,
+ starttiming=dummyfunction,
+ stoptiming=dummyfunction,
+}
+directives={
+ register=dummyfunction,
+ enable=dummyfunction,
+ disable=dummyfunction,
+}
+trackers={
+ register=dummyfunction,
+ enable=dummyfunction,
+ disable=dummyfunction,
+}
+experiments={
+ register=dummyfunction,
+ enable=dummyfunction,
+ disable=dummyfunction,
+}
+storage={
+ register=dummyfunction,
+ shared={},
+}
+logs={
+ report=dummyfunction,
+ simple=dummyfunction,
+}
+tasks={
+ new=dummyfunction,
+ actions=dummyfunction,
+ appendaction=dummyfunction,
+ prependaction=dummyfunction,
+}
+callbacks={
+ register=function(n,f) return callback.register(n,f) end,
+}
+texconfig.kpse_init=true
+resolvers=resolvers or {}
+local remapper={
+ otf="opentype fonts",
+ ttf="truetype fonts",
+ ttc="truetype fonts",
+ dfont="truetype fonts",
+ cid="cid maps",
+ fea="font feature files",
+}
+function resolvers.find_file(name,kind)
+ name=string.gsub(name,"\\","/")
+ kind=string.lower(kind)
+ return kpse.find_file(name,(kind and kind~="" and (remapper[kind] or kind)) or file.extname(name,"tex"))
+end
+function resolvers.findbinfile(name,kind)
+ if not kind or kind=="" then
+ kind=file.extname(name)
+ end
+ return resolvers.find_file(name,(kind and remapper[kind]) or kind)
+end
+caches={}
+local writable,readables=nil,{}
+if not caches.namespace or caches.namespace=="" or caches.namespace=="context" then
+ caches.namespace='generic'
+end
+do
+ local cachepaths
+ if kpse.expand_var('$TEXMFCACHE')~='$TEXMFCACHE' then
+ cachepaths=kpse.expand_var('$TEXMFCACHE')
+ elseif kpse.expand_var('$TEXMFVAR')~='$TEXMFVAR' then
+ cachepaths=kpse.expand_var('$TEXMFVAR')
+ end
+ if not cachepaths then
+ cachepaths="."
+ end
+ cachepaths=string.split(cachepaths,os.type=="windows" and ";" or ":")
+ for i=1,#cachepaths do
+ local done
+ writable=file.join(cachepaths[i],"luatex-cache")
+ writable=file.join(writable,caches.namespace)
+ writable,done=dir.mkdirs(writable)
+ if done then
+ break
+ end
+ end
+ for i=1,#cachepaths do
+ if file.isreadable(cachepaths[i]) then
+ readables[#readables+1]=file.join(cachepaths[i],"luatex-cache",caches.namespace)
+ end
+ end
+ if not writable then
+ texio.write_nl("quiting: fix your writable cache path\n")
+ os.exit()
+ elseif #readables==0 then
+ texio.write_nl("quiting: fix your readable cache path\n")
+ os.exit()
+ elseif #readables==1 and readables[1]==writable then
+ texio.write(string.format("(using cache: %s)",writable))
+ else
+ texio.write(string.format("(using write cache: %s)",writable))
+ texio.write(string.format("(using read cache: %s)",table.concat(readables," ")))
+ end
+end
+function caches.getwritablepath(category,subcategory)
+ local path=file.join(writable,category)
+ lfs.mkdir(path)
+ path=file.join(path,subcategory)
+ lfs.mkdir(path)
+ return path
+end
+function caches.getreadablepaths(category,subcategory)
+ local t={}
+ for i=1,#readables do
+ t[i]=file.join(readables[i],category,subcategory)
+ end
+ return t
+end
+local function makefullname(path,name)
+ if path and path~="" then
+ name="temp-"..name
+ return file.addsuffix(file.join(path,name),"lua")
+ end
+end
+function caches.iswritable(path,name)
+ local fullname=makefullname(path,name)
+ return fullname and file.iswritable(fullname)
+end
+function caches.loaddata(paths,name)
+ for i=1,#paths do
+ local fullname=makefullname(paths[i],name)
+ if fullname then
+ texio.write(string.format("(load: %s)",fullname))
+ local data=loadfile(fullname)
+ return data and data()
+ end
+ end
+end
+function caches.savedata(path,name,data)
+ local fullname=makefullname(path,name)
+ if fullname then
+ texio.write(string.format("(save: %s)",fullname))
+ table.tofile(fullname,data,'return',false,true,false)
+ end
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['luat-ovr']={
+ version=1.001,
+ comment="companion to luatex-*.tex",
+ author="Khaled Hosny and Elie Roux",
+ copyright="Luaotfload Development Team",
+ license="GNU GPL v2"
+}
+local write_nl,format,name=texio.write_nl,string.format,"luaotfload"
+local dummyfunction=function() end
+callbacks={
+ register=dummyfunction,
+}
+function logs.report(category,fmt,...)
+ if fmt then
+ write_nl('log',format("%s | %s: %s",name,category,format(fmt,...)))
+ elseif category then
+ write_nl('log',format("%s | %s",name,category))
+ else
+ write_nl('log',format("%s |",name))
+ end
+end
+function logs.info(category,fmt,...)
+ if fmt then
+ write_nl(format("%s | %s: %s",name,category,format(fmt,...)))
+ elseif category then
+ write_nl(format("%s | %s",name,category))
+ else
+ write_nl(format("%s |",name))
+ end
+ io.flush()
+end
+function logs.simple(fmt,...)
+ if fmt then
+ write_nl('log',format("%s | %s",name,format(fmt,...)))
+ else
+ write_nl('log',format("%s |",name))
+ end
+end
+tex.attribute[0]=0
+tex.ctxcatcodes=luatexbase.catcodetables.latex
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['data-con']={
+ version=1.100,
+ comment="companion to luat-lib.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local format,lower,gsub=string.format,string.lower,string.gsub
+local trace_cache=false trackers.register("resolvers.cache",function(v) trace_cache=v end)
+local trace_containers=false trackers.register("resolvers.containers",function(v) trace_containers=v end)
+local trace_storage=false trackers.register("resolvers.storage",function(v) trace_storage=v end)
+containers=containers or {}
+containers.usecache=true
+local function report(container,tag,name)
+ if trace_cache or trace_containers then
+ logs.report(format("%s cache",container.subcategory),"%s: %s",tag,name or 'invalid')
+ end
+end
+local allocated={}
+local mt={
+ __index=function(t,k)
+ if k=="writable" then
+ local writable=caches.getwritablepath(t.category,t.subcategory) or { "." }
+ t.writable=writable
+ return writable
+ elseif k=="readables" then
+ local readables=caches.getreadablepaths(t.category,t.subcategory) or { "." }
+ t.readables=readables
+ return readables
+ end
+ end
+}
+function containers.define(category,subcategory,version,enabled)
+ if category and subcategory then
+ local c=allocated[category]
+ if not c then
+ c={}
+ allocated[category]=c
+ end
+ local s=c[subcategory]
+ if not s then
+ s={
+ category=category,
+ subcategory=subcategory,
+ storage={},
+ enabled=enabled,
+ version=version or math.pi,
+ trace=false,
+ }
+ setmetatable(s,mt)
+ c[subcategory]=s
+ end
+ return s
+ end
+end
+function containers.is_usable(container,name)
+ return container.enabled and caches and caches.iswritable(container.writable,name)
+end
+function containers.is_valid(container,name)
+ if name and name~="" then
+ local storage=container.storage[name]
+ return storage and storage.cache_version==container.version
+ else
+ return false
+ end
+end
+function containers.read(container,name)
+ local storage=container.storage
+ local stored=storage[name]
+ if not stored and container.enabled and caches and containers.usecache then
+ stored=caches.loaddata(container.readables,name)
+ if stored and stored.cache_version==container.version then
+ report(container,"loaded",name)
+ else
+ stored=nil
+ end
+ storage[name]=stored
+ elseif stored then
+ report(container,"reusing",name)
+ end
+ return stored
+end
+function containers.write(container,name,data)
+ if data then
+ data.cache_version=container.version
+ if container.enabled and caches then
+ local unique,shared=data.unique,data.shared
+ data.unique,data.shared=nil,nil
+ caches.savedata(container.writable,name,data)
+ report(container,"saved",name)
+ data.unique,data.shared=unique,shared
+ end
+ report(container,"stored",name)
+ container.storage[name]=data
+ end
+ return data
+end
+function containers.content(container,name)
+ return container.storage[name]
+end
+function containers.cleanname(name)
+ return (gsub(lower(name),"[^%w%d]+","-"))
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-ini']={
+ version=1.001,
+ comment="companion to font-ini.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local utf=unicode.utf8
+local format,serialize=string.format,table.serialize
+local write_nl=texio.write_nl
+local lower=string.lower
+if not fontloader then fontloader=fontforge end
+fontloader.totable=fontloader.to_table
+fonts=fonts or {}
+fonts.ids=fonts.ids or {} fonts.identifiers=fonts.ids
+fonts.chr=fonts.chr or {} fonts.characters=fonts.chr
+fonts.qua=fonts.qua or {} fonts.quads=fonts.qua
+fonts.tfm=fonts.tfm or {}
+fonts.mode='base'
+fonts.private=0xF0000
+fonts.verbose=false
+fonts.ids[0]={
+ characters={},
+ descriptions={},
+ name="nullfont",
+}
+fonts.chr[0]={}
+fonts.methods=fonts.methods or {
+ base={ tfm={},afm={},otf={},vtf={},fix={} },
+ node={ tfm={},afm={},otf={},vtf={},fix={} },
+}
+fonts.initializers=fonts.initializers or {
+ base={ tfm={},afm={},otf={},vtf={},fix={} },
+ node={ tfm={},afm={},otf={},vtf={},fix={} }
+}
+fonts.triggers=fonts.triggers or {
+ 'mode',
+ 'language',
+ 'script',
+ 'strategy',
+}
+fonts.processors=fonts.processors or {}
+fonts.manipulators=fonts.manipulators or {}
+fonts.define=fonts.define or {}
+fonts.define.specify=fonts.define.specify or {}
+fonts.define.specify.synonyms=fonts.define.specify.synonyms or {}
+if not fonts.color then
+ fonts.color={
+ set=function() end,
+ reset=function() end,
+ }
+end
+fonts.formats={}
+function fonts.fontformat(filename,default)
+ local extname=lower(file.extname(filename))
+ local format=fonts.formats[extname]
+ if format then
+ return format
+ else
+ logs.report("fonts define","unable to determine font format for '%s'",filename)
+ return default
+ end
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['node-dum']={
+ version=1.001,
+ comment="companion to luatex-*.tex",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+nodes=nodes or {}
+fonts=fonts or {}
+attributes=attributes or {}
+local traverse_id=node.traverse_id
+local free_node=node.free
+local remove_node=node.remove
+local new_node=node.new
+local glyph=node.id('glyph')
+local fontdata=fonts.ids or {}
+function nodes.simple_font_handler(head)
+ head=nodes.process_characters(head)
+ nodes.inject_kerns(head)
+ nodes.protect_glyphs(head)
+ head=node.ligaturing(head)
+ head=node.kerning(head)
+ return head
+end
+if tex.attribute[0]~=0 then
+ texio.write_nl("log","!")
+ texio.write_nl("log","! Attribute 0 is reserved for ConTeXt's font feature management and has to be")
+ texio.write_nl("log","! set to zero. Also, some attributes in the range 1-255 are used for special")
+ texio.write_nl("log","! purposed so setting them at the TeX end might break the font handler.")
+ texio.write_nl("log","!")
+ tex.attribute[0]=0
+end
+nodes.protect_glyphs=node.protect_glyphs
+nodes.unprotect_glyphs=node.unprotect_glyphs
+function nodes.process_characters(head)
+ local usedfonts,done,prevfont={},false,nil
+ for n in traverse_id(glyph,head) do
+ local font=n.font
+ if font~=prevfont then
+ prevfont=font
+ local used=usedfonts[font]
+ if not used then
+ local tfmdata=fontdata[font]
+ if tfmdata then
+ local shared=tfmdata.shared
+ if shared then
+ local processors=shared.processes
+ if processors and #processors>0 then
+ usedfonts[font]=processors
+ done=true
+ end
+ end
+ end
+ end
+ end
+ end
+ if done then
+ for font,processors in next,usedfonts do
+ for i=1,#processors do
+ local h,d=processors[i](head,font,0)
+ head,done=h or head,done or d
+ end
+ end
+ end
+ return head,true
+end
+function nodes.kern(k)
+ local n=new_node("kern",1)
+ n.kern=k
+ return n
+end
+function nodes.remove(head,current,free_too)
+ local t=current
+ head,current=remove_node(head,current)
+ if t then
+ if free_too then
+ free_node(t)
+ t=nil
+ else
+ t.next,t.prev=nil,nil
+ end
+ end
+ return head,current,t
+end
+function nodes.delete(head,current)
+ return nodes.remove(head,current,true)
+end
+nodes.before=node.insert_before
+nodes.after=node.insert_after
+attributes.unsetvalue=-0x7FFFFFFF
+local numbers,last={},127
+function attributes.private(name)
+ local number=numbers[name]
+ if not number then
+ if last<255 then
+ last=last+1
+ end
+ number=last
+ numbers[name]=number
+ end
+ return number
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['node-inj']={
+ version=1.001,
+ comment="companion to node-ini.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local next=next
+local trace_injections=false trackers.register("nodes.injections",function(v) trace_injections=v end)
+fonts=fonts or {}
+fonts.tfm=fonts.tfm or {}
+fonts.ids=fonts.ids or {}
+local fontdata=fonts.ids
+local glyph=node.id('glyph')
+local kern=node.id('kern')
+local traverse_id=node.traverse_id
+local unset_attribute=node.unset_attribute
+local has_attribute=node.has_attribute
+local set_attribute=node.set_attribute
+local insert_node_before=node.insert_before
+local insert_node_after=node.insert_after
+local newkern=nodes.kern
+local markbase=attributes.private('markbase')
+local markmark=attributes.private('markmark')
+local markdone=attributes.private('markdone')
+local cursbase=attributes.private('cursbase')
+local curscurs=attributes.private('curscurs')
+local cursdone=attributes.private('cursdone')
+local kernpair=attributes.private('kernpair')
+local cursives={}
+local marks={}
+local kerns={}
+function nodes.set_cursive(start,nxt,factor,rlmode,exit,entry,tfmstart,tfmnext)
+ local dx,dy=factor*(exit[1]-entry[1]),factor*(exit[2]-entry[2])
+ local ws,wn=tfmstart.width,tfmnext.width
+ local bound=#cursives+1
+ set_attribute(start,cursbase,bound)
+ set_attribute(nxt,curscurs,bound)
+ cursives[bound]={ rlmode,dx,dy,ws,wn }
+ return dx,dy,bound
+end
+function nodes.set_pair(current,factor,rlmode,r2lflag,spec,tfmchr)
+ local x,y,w,h=factor*spec[1],factor*spec[2],factor*spec[3],factor*spec[4]
+ if x~=0 or w~=0 or y~=0 or h~=0 then
+ local bound=has_attribute(current,kernpair)
+ if bound then
+ local kb=kerns[bound]
+ kb[2],kb[3],kb[4],kb[5]=(kb[2] or 0)+x,(kb[3] or 0)+y,(kb[4] or 0)+w,(kb[5] or 0)+h
+ else
+ bound=#kerns+1
+ set_attribute(current,kernpair,bound)
+ kerns[bound]={ rlmode,x,y,w,h,r2lflag,tfmchr.width }
+ end
+ return x,y,w,h,bound
+ end
+ return x,y,w,h
+end
+function nodes.set_kern(current,factor,rlmode,x,tfmchr)
+ local dx=factor*x
+ if dx~=0 then
+ local bound=#kerns+1
+ set_attribute(current,kernpair,bound)
+ kerns[bound]={ rlmode,dx }
+ return dx,bound
+ else
+ return 0,0
+ end
+end
+function nodes.set_mark(start,base,factor,rlmode,ba,ma,index)
+ local dx,dy=factor*(ba[1]-ma[1]),factor*(ba[2]-ma[2])
+ local bound=has_attribute(base,markbase)
+ if bound then
+ local mb=marks[bound]
+ if mb then
+ if not index then index=#mb+1 end
+ mb[index]={ dx,dy }
+ set_attribute(start,markmark,bound)
+ set_attribute(start,markdone,index)
+ return dx,dy,bound
+ else
+ logs.report("nodes mark","possible problem, U+%04X is base without data (id: %s)",base.char,bound)
+ end
+ end
+ index=index or 1
+ bound=#marks+1
+ set_attribute(base,markbase,bound)
+ set_attribute(start,markmark,bound)
+ set_attribute(start,markdone,index)
+ marks[bound]={ [index]={ dx,dy,rlmode } }
+ return dx,dy,bound
+end
+function nodes.trace_injection(head)
+ local function dir(n)
+ return (n and n<0 and "r-to-l") or (n and n>0 and "l-to-r") or ("unset")
+ end
+ local function report(...)
+ logs.report("nodes finisher",...)
+ end
+ report("begin run")
+ for n in traverse_id(glyph,head) do
+ if n.subtype<256 then
+ local kp=has_attribute(n,kernpair)
+ local mb=has_attribute(n,markbase)
+ local mm=has_attribute(n,markmark)
+ local md=has_attribute(n,markdone)
+ local cb=has_attribute(n,cursbase)
+ local cc=has_attribute(n,curscurs)
+ report("char U+%05X, font=%s",n.char,n.font)
+ if kp then
+ local k=kerns[kp]
+ if k[3] then
+ report(" pairkern: dir=%s, x=%s, y=%s, w=%s, h=%s",dir(k[1]),k[2] or "?",k[3] or "?",k[4] or "?",k[5] or "?")
+ else
+ report(" kern: dir=%s, dx=%s",dir(k[1]),k[2] or "?")
+ end
+ end
+ if mb then
+ report(" markbase: bound=%s",mb)
+ end
+ if mm then
+ local m=marks[mm]
+ if mb then
+ local m=m[mb]
+ if m then
+ report(" markmark: bound=%s, index=%s, dx=%s, dy=%s",mm,md or "?",m[1] or "?",m[2] or "?")
+ else
+ report(" markmark: bound=%s, missing index",mm)
+ end
+ else
+ m=m[1]
+ report(" markmark: bound=%s, dx=%s, dy=%s",mm,m[1] or "?",m[2] or "?")
+ end
+ end
+ if cb then
+ report(" cursbase: bound=%s",cb)
+ end
+ if cc then
+ local c=cursives[cc]
+ report(" curscurs: bound=%s, dir=%s, dx=%s, dy=%s",cc,dir(c[1]),c[2] or "?",c[3] or "?")
+ end
+ end
+ end
+ report("end run")
+end
+function nodes.inject_kerns(head,where,keep)
+ local has_marks,has_cursives,has_kerns=next(marks),next(cursives),next(kerns)
+ if has_marks or has_cursives then
+ if trace_injections then
+ nodes.trace_injection(head)
+ end
+ local done,ky,rl,valid,cx,wx,mk=false,{},{},{},{},{},{}
+ if has_kerns then
+ local nf,tm=nil,nil
+ for n in traverse_id(glyph,head) do
+ if n.subtype<256 then
+ valid[#valid+1]=n
+ if n.font~=nf then
+ nf=n.font
+ tm=fontdata[nf].marks
+ end
+ mk[n]=tm[n.char]
+ local k=has_attribute(n,kernpair)
+ if k then
+ local kk=kerns[k]
+ if kk then
+ local x,y,w,h=kk[2] or 0,kk[3] or 0,kk[4] or 0,kk[5] or 0
+ local dy=y-h
+ if dy~=0 then
+ ky[n]=dy
+ end
+ if w~=0 or x~=0 then
+ wx[n]=kk
+ end
+ rl[n]=kk[1]
+ end
+ end
+ end
+ end
+ else
+ local nf,tm=nil,nil
+ for n in traverse_id(glyph,head) do
+ if n.subtype<256 then
+ valid[#valid+1]=n
+ if n.font~=nf then
+ nf=n.font
+ tm=fontdata[nf].marks
+ end
+ mk[n]=tm[n.char]
+ end
+ end
+ end
+ if #valid>0 then
+ local cx={}
+ if has_kerns and next(ky) then
+ for n,k in next,ky do
+ n.yoffset=k
+ end
+ end
+ if has_cursives then
+ local p_cursbase,p=nil,nil
+ local t,d,maxt={},{},0
+ for i=1,#valid do
+ local n=valid[i]
+ if not mk[n] then
+ local n_cursbase=has_attribute(n,cursbase)
+ if p_cursbase then
+ local n_curscurs=has_attribute(n,curscurs)
+ if p_cursbase==n_curscurs then
+ local c=cursives[n_curscurs]
+ if c then
+ local rlmode,dx,dy,ws,wn=c[1],c[2],c[3],c[4],c[5]
+ if rlmode>=0 then
+ dx=dx-ws
+ else
+ dx=dx+wn
+ end
+ if dx~=0 then
+ cx[n]=dx
+ rl[n]=rlmode
+ end
+ dy=-dy
+ maxt=maxt+1
+ t[maxt]=p
+ d[maxt]=dy
+ else
+ maxt=0
+ end
+ end
+ elseif maxt>0 then
+ local ny=n.yoffset
+ for i=maxt,1,-1 do
+ ny=ny+d[i]
+ local ti=t[i]
+ ti.yoffset=ti.yoffset+ny
+ end
+ maxt=0
+ end
+ if not n_cursbase and maxt>0 then
+ local ny=n.yoffset
+ for i=maxt,1,-1 do
+ ny=ny+d[i]
+ local ti=t[i]
+ ti.yoffset=ny
+ end
+ maxt=0
+ end
+ p_cursbase,p=n_cursbase,n
+ end
+ end
+ if maxt>0 then
+ local ny=n.yoffset
+ for i=maxt,1,-1 do
+ ny=ny+d[i]
+ local ti=t[i]
+ ti.yoffset=ny
+ end
+ maxt=0
+ end
+ if not keep then
+ cursives={}
+ end
+ end
+ if has_marks then
+ for i=1,#valid do
+ local p=valid[i]
+ local p_markbase=has_attribute(p,markbase)
+ if p_markbase then
+ local mrks=marks[p_markbase]
+ for n in traverse_id(glyph,p.next) do
+ local n_markmark=has_attribute(n,markmark)
+ if p_markbase==n_markmark then
+ local index=has_attribute(n,markdone) or 1
+ local d=mrks[index]
+ if d then
+ local rlmode=d[3]
+ if rlmode and rlmode>0 then
+ local k=wx[p]
+ if k then
+ n.xoffset=p.xoffset-(p.width-d[1])-k[2]
+ else
+ n.xoffset=p.xoffset-(p.width-d[1])
+ end
+ else
+ local k=wx[p]
+ if k then
+ n.xoffset=p.xoffset-d[1]-k[2]
+ else
+ n.xoffset=p.xoffset-d[1]
+ end
+ end
+ if mk[p] then
+ n.yoffset=p.yoffset+d[2]
+ else
+ n.yoffset=n.yoffset+p.yoffset+d[2]
+ end
+ end
+ else
+ break
+ end
+ end
+ end
+ end
+ if not keep then
+ marks={}
+ end
+ end
+ if next(wx) then
+ for n,k in next,wx do
+ local rl,x,w,r2l=k[1],k[2] or 0,k[4] or 0,k[6]
+ local wx=w-x
+ if r2l then
+ if wx~=0 then
+ insert_node_before(head,n,newkern(wx))
+ end
+ if x~=0 then
+ insert_node_after (head,n,newkern(x))
+ end
+ else
+ if x~=0 then
+ insert_node_before(head,n,newkern(x))
+ end
+ if wx~=0 then
+ insert_node_after(head,n,newkern(wx))
+ end
+ end
+ end
+ end
+ if next(cx) then
+ for n,k in next,cx do
+ if k~=0 then
+ local rln=rl[n]
+ if rln and rln<0 then
+ insert_node_before(head,n,newkern(-k))
+ else
+ insert_node_before(head,n,newkern(k))
+ end
+ end
+ end
+ end
+ if not keep then
+ kerns={}
+ end
+ return head,true
+ elseif not keep then
+ kerns,cursives,marks={},{},{}
+ end
+ elseif has_kerns then
+ if trace_injections then
+ nodes.trace_injection(head)
+ end
+ for n in traverse_id(glyph,head) do
+ if n.subtype<256 then
+ local k=has_attribute(n,kernpair)
+ if k then
+ local kk=kerns[k]
+ if kk then
+ local rl,x,y,w=kk[1],kk[2] or 0,kk[3],kk[4]
+ if y and y~=0 then
+ n.yoffset=y
+ end
+ if w then
+ local r2l=kk[6]
+ local wx=w-x
+ if r2l then
+ if wx~=0 then
+ insert_node_before(head,n,newkern(wx))
+ end
+ if x~=0 then
+ insert_node_after (head,n,newkern(x))
+ end
+ else
+ if x~=0 then
+ insert_node_before(head,n,newkern(x))
+ end
+ if wx~=0 then
+ insert_node_after(head,n,newkern(wx))
+ end
+ end
+ else
+ if x~=0 then
+ insert_node_before(head,n,newkern(x))
+ end
+ end
+ end
+ end
+ end
+ end
+ if not keep then
+ kerns={}
+ end
+ return head,true
+ else
+ end
+ return head,false
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+
+if not modules then modules={} end modules ['otfl-luat-att']={
+ version=math.pi/42,
+ comment="companion to luaotfload.lua",
+ author="Philipp Gesang",
+ copyright="Luaotfload Development Team",
+ license="GNU GPL v2"
+}
+function attributes.private(name)
+ local attr="otfl@"..name
+ local number=luatexbase.attributes[attr]
+ if not number then
+ number=luatexbase.new_attribute(attr)
+ end
+ return number
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-tfm']={
+ version=1.001,
+ comment="companion to font-ini.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local utf=unicode.utf8
+local next,format,match,lower,gsub=next,string.format,string.match,string.lower,string.gsub
+local concat,sortedkeys,utfbyte,serialize=table.concat,table.sortedkeys,utf.byte,table.serialize
+local trace_defining=false trackers.register("fonts.defining",function(v) trace_defining=v end)
+local trace_scaling=false trackers.register("fonts.scaling",function(v) trace_scaling=v end)
+fonts=fonts or {}
+fonts.tfm=fonts.tfm or {}
+fonts.ids=fonts.ids or {}
+local tfm=fonts.tfm
+fonts.loaded=fonts.loaded or {}
+fonts.dontembed=fonts.dontembed or {}
+fonts.triggers=fonts.triggers or {}
+fonts.initializers=fonts.initializers or {}
+fonts.initializers.common=fonts.initializers.common or {}
+local fontdata=fonts.ids
+local disc=node.id('disc')
+local glyph=node.id('glyph')
+local set_attribute=node.set_attribute
+tfm.resolve_vf=true
+tfm.share_base_kerns=false
+tfm.mathactions={}
+tfm.fontname_mode="fullpath"
+tfm.enhance=tfm.enhance or function() end
+fonts.formats.tfm="type1"
+function tfm.read_from_tfm(specification)
+ local fname,tfmdata=specification.filename or "",nil
+ if fname~="" then
+ if trace_defining then
+ logs.report("define font","loading tfm file %s at size %s",fname,specification.size)
+ end
+ tfmdata=font.read_tfm(fname,specification.size)
+ if tfmdata then
+ tfmdata.descriptions=tfmdata.descriptions or {}
+ if tfm.resolve_vf then
+ fonts.logger.save(tfmdata,file.extname(fname),specification)
+ fname=resolvers.findbinfile(specification.name,'ovf')
+ if fname and fname~="" then
+ local vfdata=font.read_vf(fname,specification.size)
+ if vfdata then
+ local chars=tfmdata.characters
+ for k,v in next,vfdata.characters do
+ chars[k].commands=v.commands
+ end
+ tfmdata.type='virtual'
+ tfmdata.fonts=vfdata.fonts
+ end
+ end
+ end
+ tfm.enhance(tfmdata,specification)
+ end
+ elseif trace_defining then
+ logs.report("define font","loading tfm with name %s fails",specification.name)
+ end
+ return tfmdata
+end
+local factors={
+ pt=65536.0,
+ bp=65781.8,
+}
+function tfm.setfactor(f)
+ tfm.factor=factors[f or 'pt'] or factors.pt
+end
+tfm.setfactor()
+function tfm.scaled(scaledpoints,designsize)
+ if scaledpoints<0 then
+ if designsize then
+ if designsize>tfm.factor then
+ return (- scaledpoints/1000)*designsize
+ else
+ return (- scaledpoints/1000)*designsize*tfm.factor
+ end
+ else
+ return (- scaledpoints/1000)*10*tfm.factor
+ end
+ else
+ return scaledpoints
+ end
+end
+function tfm.get_virtual_id(tfmdata)
+ if not tfmdata.fonts then
+ tfmdata.type="virtual"
+ tfmdata.fonts={ { id=0 } }
+ return 1
+ else
+ tfmdata.fonts[#tfmdata.fonts+1]={ id=0 }
+ return #tfmdata.fonts
+ end
+end
+function tfm.check_virtual_id(tfmdata,id)
+ if tfmdata and tfmdata.type=="virtual" then
+ if not tfmdata.fonts or #tfmdata.fonts==0 then
+ tfmdata.type,tfmdata.fonts="real",nil
+ else
+ local vfonts=tfmdata.fonts
+ for f=1,#vfonts do
+ local fnt=vfonts[f]
+ if fnt.id and fnt.id==0 then
+ fnt.id=id
+ end
+ end
+ end
+ end
+end
+fonts.trace_scaling=false
+local charactercache={}
+function tfm.calculate_scale(tfmtable,scaledpoints,relativeid)
+ if scaledpoints<0 then
+ scaledpoints=(- scaledpoints/1000)*tfmtable.designsize
+ end
+ local units=tfmtable.units or 1000
+ local delta=scaledpoints/units
+ return scaledpoints,delta,units
+end
+function tfm.do_scale(tfmtable,scaledpoints,relativeid)
+ local t={}
+ local scaledpoints,delta,units=tfm.calculate_scale(tfmtable,scaledpoints,relativeid)
+ t.units_per_em=units or 1000
+ local hdelta,vdelta=delta,delta
+ for k,v in next,tfmtable do
+ if type(v)=="table" then
+ else
+ t[k]=v
+ end
+ end
+ local extend_factor=tfmtable.extend_factor or 0
+ if extend_factor~=0 and extend_factor~=1 then
+ hdelta=hdelta*extend_factor
+ t.extend=extend_factor*1000
+ else
+ t.extend=1000
+ end
+ local slant_factor=tfmtable.slant_factor or 0
+ if slant_factor~=0 then
+ t.slant=slant_factor*1000
+ else
+ t.slant=0
+ end
+ local isvirtual=tfmtable.type=="virtual" or tfmtable.virtualized
+ local hasmath=(tfmtable.math_parameters~=nil and next(tfmtable.math_parameters)~=nil) or (tfmtable.MathConstants~=nil and next(tfmtable.MathConstants)~=nil)
+ local nodemode=tfmtable.mode=="node"
+ local hasquality=tfmtable.auto_expand or tfmtable.auto_protrude
+ local hasitalic=tfmtable.has_italic
+ t.parameters={}
+ t.characters={}
+ t.MathConstants={}
+ local descriptions=tfmtable.descriptions or {}
+ t.unicodes=tfmtable.unicodes
+ t.indices=tfmtable.indices
+ t.marks=tfmtable.marks
+t.goodies=tfmtable.goodies
+t.colorscheme=tfmtable.colorscheme
+ t.descriptions=descriptions
+ if tfmtable.fonts then
+ t.fonts=table.fastcopy(tfmtable.fonts)
+ end
+ local tp=t.parameters
+ local mp=t.math_parameters
+ local tfmp=tfmtable.parameters
+ tp.slant=(tfmp.slant or tfmp[1] or 0)
+ tp.space=(tfmp.space or tfmp[2] or 0)*hdelta
+ tp.space_stretch=(tfmp.space_stretch or tfmp[3] or 0)*hdelta
+ tp.space_shrink=(tfmp.space_shrink or tfmp[4] or 0)*hdelta
+ tp.x_height=(tfmp.x_height or tfmp[5] or 0)*vdelta
+ tp.quad=(tfmp.quad or tfmp[6] or 0)*hdelta
+ tp.extra_space=(tfmp.extra_space or tfmp[7] or 0)*hdelta
+ local protrusionfactor=(tp.quad~=0 and 1000/tp.quad) or 0
+ local tc=t.characters
+ local characters=tfmtable.characters
+ local nameneeded=not tfmtable.shared.otfdata
+ local changed=tfmtable.changed or {}
+ local ischanged=changed and next(changed)
+ local indices=tfmtable.indices
+ local luatex=tfmtable.luatex
+ local tounicode=luatex and luatex.tounicode
+ local defaultwidth=luatex and luatex.defaultwidth or 0
+ local defaultheight=luatex and luatex.defaultheight or 0
+ local defaultdepth=luatex and luatex.defaultdepth or 0
+ local scaledwidth=defaultwidth*hdelta
+ local scaledheight=defaultheight*vdelta
+ local scaleddepth=defaultdepth*vdelta
+ local stackmath=tfmtable.ignore_stack_math~=true
+ local private=fonts.private
+ local sharedkerns={}
+ for k,v in next,characters do
+ local chr,description,index
+ if ischanged then
+ local c=changed[k]
+ if c then
+ description=descriptions[c] or v
+ v=characters[c] or v
+ index=(indices and indices[c]) or c
+ else
+ description=descriptions[k] or v
+ index=(indices and indices[k]) or k
+ end
+ else
+ description=descriptions[k] or v
+ index=(indices and indices[k]) or k
+ end
+ local width=description.width
+ local height=description.height
+ local depth=description.depth
+ if width then width=hdelta*width else width=scaledwidth end
+ if height then height=vdelta*height else height=scaledheight end
+ if depth and depth~=0 then
+ depth=delta*depth
+ if nameneeded then
+ chr={
+ name=description.name,
+ index=index,
+ height=height,
+ depth=depth,
+ width=width,
+ }
+ else
+ chr={
+ index=index,
+ height=height,
+ depth=depth,
+ width=width,
+ }
+ end
+ else
+ if nameneeded then
+ chr={
+ name=description.name,
+ index=index,
+ height=height,
+ width=width,
+ }
+ else
+ chr={
+ index=index,
+ height=height,
+ width=width,
+ }
+ end
+ end
+ if tounicode then
+ local tu=tounicode[index]
+ if tu then
+ chr.tounicode=tu
+ end
+ end
+ if hasquality then
+ local ve=v.expansion_factor
+ if ve then
+ chr.expansion_factor=ve*1000
+ end
+ local vl=v.left_protruding
+ if vl then
+ chr.left_protruding=protrusionfactor*width*vl
+ end
+ local vr=v.right_protruding
+ if vr then
+ chr.right_protruding=protrusionfactor*width*vr
+ end
+ end
+ if hasitalic then
+ local vi=description.italic or v.italic
+ if vi and vi~=0 then
+ chr.italic=vi*hdelta
+ end
+ end
+ if hasmath then
+ local vn=v.next
+ if vn then
+ chr.next=vn
+ else
+ local vv=v.vert_variants
+ if vv then
+ local t={}
+ for i=1,#vv do
+ local vvi=vv[i]
+ t[i]={
+ ["start"]=(vvi["start"] or 0)*vdelta,
+ ["end"]=(vvi["end"] or 0)*vdelta,
+ ["advance"]=(vvi["advance"] or 0)*vdelta,
+ ["extender"]=vvi["extender"],
+ ["glyph"]=vvi["glyph"],
+ }
+ end
+ chr.vert_variants=t
+ else
+ local hv=v.horiz_variants
+ if hv then
+ local t={}
+ for i=1,#hv do
+ local hvi=hv[i]
+ t[i]={
+ ["start"]=(hvi["start"] or 0)*hdelta,
+ ["end"]=(hvi["end"] or 0)*hdelta,
+ ["advance"]=(hvi["advance"] or 0)*hdelta,
+ ["extender"]=hvi["extender"],
+ ["glyph"]=hvi["glyph"],
+ }
+ end
+ chr.horiz_variants=t
+ end
+ end
+ end
+ local vt=description.top_accent
+ if vt then
+ chr.top_accent=vdelta*vt
+ end
+ if stackmath then
+ local mk=v.mathkerns
+ if mk then
+ local kerns={}
+ local v=mk.top_right if v then local k={} for i=1,#v do local vi=v[i]
+ k[i]={ height=vdelta*vi.height,kern=vdelta*vi.kern }
+ end kerns.top_right=k end
+ local v=mk.top_left if v then local k={} for i=1,#v do local vi=v[i]
+ k[i]={ height=vdelta*vi.height,kern=vdelta*vi.kern }
+ end kerns.top_left=k end
+ local v=mk.bottom_left if v then local k={} for i=1,#v do local vi=v[i]
+ k[i]={ height=vdelta*vi.height,kern=vdelta*vi.kern }
+ end kerns.bottom_left=k end
+ local v=mk.bottom_right if v then local k={} for i=1,#v do local vi=v[i]
+ k[i]={ height=vdelta*vi.height,kern=vdelta*vi.kern }
+ end kerns.bottom_right=k end
+ chr.mathkern=kerns
+ end
+ end
+ end
+ if not nodemode then
+ local vk=v.kerns
+ if vk then
+ local s=sharedkerns[vk]
+ if not s then
+ s={}
+ for k,v in next,vk do s[k]=v*hdelta end
+ sharedkerns[vk]=s
+ end
+ chr.kerns=s
+ end
+ local vl=v.ligatures
+ if vl then
+ if true then
+ chr.ligatures=vl
+ else
+ local tt={}
+ for i,l in next,vl do
+ tt[i]=l
+ end
+ chr.ligatures=tt
+ end
+ end
+ end
+ if isvirtual then
+ local vc=v.commands
+ if vc then
+ local ok=false
+ for i=1,#vc do
+ local key=vc[i][1]
+ if key=="right" or key=="down" then
+ ok=true
+ break
+ end
+ end
+ if ok then
+ local tt={}
+ for i=1,#vc do
+ local ivc=vc[i]
+ local key=ivc[1]
+ if key=="right" then
+ tt[#tt+1]={ key,ivc[2]*hdelta }
+ elseif key=="down" then
+ tt[#tt+1]={ key,ivc[2]*vdelta }
+ elseif key=="rule" then
+ tt[#tt+1]={ key,ivc[2]*vdelta,ivc[3]*hdelta }
+ else
+ tt[#tt+1]=ivc
+ end
+ end
+ chr.commands=tt
+ else
+ chr.commands=vc
+ end
+ end
+ end
+ tc[k]=chr
+ end
+ t.size=scaledpoints
+ t.factor=delta
+ t.hfactor=hdelta
+ t.vfactor=vdelta
+ if t.fonts then
+ t.fonts=table.fastcopy(t.fonts)
+ end
+ if hasmath then
+ local ma=tfm.mathactions
+ for i=1,#ma do
+ ma[i](t,tfmtable,delta,hdelta,vdelta)
+ end
+ end
+ local tpx=tp.x_height
+ if hasmath then
+ if not tp[13] then tp[13]=.86*tpx end
+ if not tp[14] then tp[14]=.86*tpx end
+ if not tp[15] then tp[15]=.86*tpx end
+ if not tp[16] then tp[16]=.48*tpx end
+ if not tp[17] then tp[17]=.48*tpx end
+ if not tp[22] then tp[22]=0 end
+ if t.MathConstants then t.MathConstants.AccentBaseHeight=nil end
+ end
+ t.tounicode=1
+ t.cidinfo=tfmtable.cidinfo
+ if hasmath then
+ if trace_defining then
+ logs.report("define font","math enabled for: name '%s', fullname: '%s', filename: '%s'",t.name or "noname",t.fullname or "nofullname",t.filename or "nofilename")
+ end
+ else
+ if trace_defining then
+ logs.report("define font","math disabled for: name '%s', fullname: '%s', filename: '%s'",t.name or "noname",t.fullname or "nofullname",t.filename or "nofilename")
+ end
+ t.nomath,t.MathConstants=true,nil
+ end
+ if not t.psname then
+ t.psname=t.fontname or (t.fullname and fonts.names.cleanname(t.fullname))
+ end
+ if trace_defining then
+ logs.report("define font","used for accesing subfont: '%s'",t.psname or "nopsname")
+ logs.report("define font","used for subsetting: '%s'",t.fontname or "nofontname")
+ end
+ return t,delta
+end
+tfm.auto_cleanup=true
+local lastfont=nil
+function tfm.cleanup_table(tfmdata)
+ if tfm.auto_cleanup then
+ if tfmdata.type=='virtual' or tfmdata.virtualized then
+ for k,v in next,tfmdata.characters do
+ if v.commands then v.commands=nil end
+ end
+ else
+ end
+ end
+end
+function tfm.cleanup(tfmdata)
+end
+function tfm.scale(tfmtable,scaledpoints,relativeid)
+ local t,factor=tfm.do_scale(tfmtable,scaledpoints,relativeid)
+ t.factor=factor
+ t.ascender=factor*(tfmtable.ascender or 0)
+ t.descender=factor*(tfmtable.descender or 0)
+ t.shared=tfmtable.shared or {}
+ t.unique=table.fastcopy(tfmtable.unique or {})
+ tfm.cleanup(t)
+ return t
+end
+fonts.analyzers=fonts.analyzers or {}
+fonts.analyzers.aux=fonts.analyzers.aux or {}
+fonts.analyzers.methods=fonts.analyzers.methods or {}
+fonts.analyzers.initializers=fonts.analyzers.initializers or {}
+local state=attributes.private('state')
+function fonts.analyzers.aux.setstate(head,font)
+ local tfmdata=fontdata[font]
+ local characters=tfmdata.characters
+ local descriptions=tfmdata.descriptions
+ local first,last,current,n,done=nil,nil,head,0,false
+ while current do
+ local id=current.id
+ if id==glyph and current.font==font then
+ local d=descriptions[current.char]
+ if d then
+ if d.class=="mark" then
+ done=true
+ set_attribute(current,state,5)
+ elseif n==0 then
+ first,last,n=current,current,1
+ set_attribute(current,state,1)
+ else
+ last,n=current,n+1
+ set_attribute(current,state,2)
+ end
+ else
+ if first and first==last then
+ set_attribute(last,state,4)
+ elseif last then
+ set_attribute(last,state,3)
+ end
+ first,last,n=nil,nil,0
+ end
+ elseif id==disc then
+ set_attribute(current,state,2)
+ last=current
+ else
+ if first and first==last then
+ set_attribute(last,state,4)
+ elseif last then
+ set_attribute(last,state,3)
+ end
+ first,last,n=nil,nil,0
+ end
+ current=current.next
+ end
+ if first and first==last then
+ set_attribute(last,state,4)
+ elseif last then
+ set_attribute(last,state,3)
+ end
+ return head,done
+end
+function tfm.replacements(tfm,value)
+ tfm.characters[0x0027]=tfm.characters[0x2019]
+end
+function tfm.checked_filename(metadata,whatever)
+ local foundfilename=metadata.foundfilename
+ if not foundfilename then
+ local askedfilename=metadata.filename or ""
+ if askedfilename~="" then
+ foundfilename=resolvers.findbinfile(askedfilename,"") or ""
+ if foundfilename=="" then
+ logs.report("fonts","source file '%s' is not found",askedfilename)
+ foundfilename=resolvers.findbinfile(file.basename(askedfilename),"") or ""
+ if foundfilename~="" then
+ logs.report("fonts","using source file '%s' (cache mismatch)",foundfilename)
+ end
+ end
+ elseif whatever then
+ logs.report("fonts","no source file for '%s'",whatever)
+ foundfilename=""
+ end
+ metadata.foundfilename=foundfilename
+ end
+ return foundfilename
+end
+statistics.register("fonts load time",function()
+ return statistics.elapsedseconds(fonts)
+end)
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-cid']={
+ version=1.001,
+ comment="companion to font-otf.lua (cidmaps)",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local format,match,lower=string.format,string.match,string.lower
+local tonumber=tonumber
+local lpegmatch=lpeg.match
+local trace_loading=false trackers.register("otf.loading",function(v) trace_loading=v end)
+fonts=fonts or {}
+fonts.cid=fonts.cid or {}
+fonts.cid.map=fonts.cid.map or {}
+fonts.cid.max=fonts.cid.max or 10
+local number=lpeg.C(lpeg.R("09","af","AF")^1)
+local space=lpeg.S(" \n\r\t")
+local spaces=space^0
+local period=lpeg.P(".")
+local periods=period*period
+local name=lpeg.P("/")*lpeg.C((1-space)^1)
+local unicodes,names={},{}
+local function do_one(a,b)
+ unicodes[tonumber(a)]=tonumber(b,16)
+end
+local function do_range(a,b,c)
+ c=tonumber(c,16)
+ for i=tonumber(a),tonumber(b) do
+ unicodes[i]=c
+ c=c+1
+ end
+end
+local function do_name(a,b)
+ names[tonumber(a)]=b
+end
+local grammar=lpeg.P { "start",
+ start=number*spaces*number*lpeg.V("series"),
+ series=(spaces*(lpeg.V("one")+lpeg.V("range")+lpeg.V("named")) )^1,
+ one=(number*spaces*number)/do_one,
+ range=(number*periods*number*spaces*number)/do_range,
+ named=(number*spaces*name)/do_name
+}
+function fonts.cid.load(filename)
+ local data=io.loaddata(filename)
+ if data then
+ unicodes,names={},{}
+ lpegmatch(grammar,data)
+ local supplement,registry,ordering=match(filename,"^(.-)%-(.-)%-()%.(.-)$")
+ return {
+ supplement=supplement,
+ registry=registry,
+ ordering=ordering,
+ filename=filename,
+ unicodes=unicodes,
+ names=names
+ }
+ else
+ return nil
+ end
+end
+local template="%s-%s-%s.cidmap"
+local function locate(registry,ordering,supplement)
+ local filename=format(template,registry,ordering,supplement)
+ local hashname=lower(filename)
+ local cidmap=fonts.cid.map[hashname]
+ if not cidmap then
+ if trace_loading then
+ logs.report("load otf","checking cidmap, registry: %s, ordering: %s, supplement: %s, filename: %s",registry,ordering,supplement,filename)
+ end
+ local fullname=resolvers.find_file(filename,'cid') or ""
+ if fullname~="" then
+ cidmap=fonts.cid.load(fullname)
+ if cidmap then
+ if trace_loading then
+ logs.report("load otf","using cidmap file %s",filename)
+ end
+ fonts.cid.map[hashname]=cidmap
+ cidmap.usedname=file.basename(filename)
+ return cidmap
+ end
+ end
+ end
+ return cidmap
+end
+function fonts.cid.getmap(registry,ordering,supplement)
+ local supplement=tonumber(supplement)
+ if trace_loading then
+ logs.report("load otf","needed cidmap, registry: %s, ordering: %s, supplement: %s",registry,ordering,supplement)
+ end
+ local cidmap=locate(registry,ordering,supplement)
+ if not cidmap then
+ local cidnum=nil
+ if supplement<fonts.cid.max then
+ for supplement=supplement+1,fonts.cid.max do
+ local c=locate(registry,ordering,supplement)
+ if c then
+ cidmap,cidnum=c,supplement
+ break
+ end
+ end
+ end
+ if not cidmap and supplement>0 then
+ for supplement=supplement-1,0,-1 do
+ local c=locate(registry,ordering,supplement)
+ if c then
+ cidmap,cidnum=c,supplement
+ break
+ end
+ end
+ end
+ if cidmap and cidnum>0 then
+ for s=0,cidnum-1 do
+ filename=format(template,registry,ordering,s)
+ if not fonts.cid.map[filename] then
+ fonts.cid.map[filename]=cidmap
+ end
+ end
+ end
+ end
+ return cidmap
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-otf']={
+ version=1.001,
+ comment="companion to font-otf.lua (tables)",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local type,next,tonumber,tostring=type,next,tonumber,tostring
+local gsub,lower=string.gsub,string.lower
+fonts=fonts or {}
+fonts.otf=fonts.otf or {}
+local otf=fonts.otf
+otf.tables=otf.tables or {}
+otf.meanings=otf.meanings or {}
+otf.tables.scripts={
+ ['dflt']='Default',
+ ['arab']='Arabic',
+ ['armn']='Armenian',
+ ['bali']='Balinese',
+ ['beng']='Bengali',
+ ['bopo']='Bopomofo',
+ ['brai']='Braille',
+ ['bugi']='Buginese',
+ ['buhd']='Buhid',
+ ['byzm']='Byzantine Music',
+ ['cans']='Canadian Syllabics',
+ ['cher']='Cherokee',
+ ['copt']='Coptic',
+ ['cprt']='Cypriot Syllabary',
+ ['cyrl']='Cyrillic',
+ ['deva']='Devanagari',
+ ['dsrt']='Deseret',
+ ['ethi']='Ethiopic',
+ ['geor']='Georgian',
+ ['glag']='Glagolitic',
+ ['goth']='Gothic',
+ ['grek']='Greek',
+ ['gujr']='Gujarati',
+ ['guru']='Gurmukhi',
+ ['hang']='Hangul',
+ ['hani']='CJK Ideographic',
+ ['hano']='Hanunoo',
+ ['hebr']='Hebrew',
+ ['ital']='Old Italic',
+ ['jamo']='Hangul Jamo',
+ ['java']='Javanese',
+ ['kana']='Hiragana and Katakana',
+ ['khar']='Kharosthi',
+ ['khmr']='Khmer',
+ ['knda']='Kannada',
+ ['lao' ]='Lao',
+ ['latn']='Latin',
+ ['limb']='Limbu',
+ ['linb']='Linear B',
+ ['math']='Mathematical Alphanumeric Symbols',
+ ['mlym']='Malayalam',
+ ['mong']='Mongolian',
+ ['musc']='Musical Symbols',
+ ['mymr']='Myanmar',
+ ['nko' ]="N'ko",
+ ['ogam']='Ogham',
+ ['orya']='Oriya',
+ ['osma']='Osmanya',
+ ['phag']='Phags-pa',
+ ['phnx']='Phoenician',
+ ['runr']='Runic',
+ ['shaw']='Shavian',
+ ['sinh']='Sinhala',
+ ['sylo']='Syloti Nagri',
+ ['syrc']='Syriac',
+ ['tagb']='Tagbanwa',
+ ['tale']='Tai Le',
+ ['talu']='Tai Lu',
+ ['taml']='Tamil',
+ ['telu']='Telugu',
+ ['tfng']='Tifinagh',
+ ['tglg']='Tagalog',
+ ['thaa']='Thaana',
+ ['thai']='Thai',
+ ['tibt']='Tibetan',
+ ['ugar']='Ugaritic Cuneiform',
+ ['xpeo']='Old Persian Cuneiform',
+ ['xsux']='Sumero-Akkadian Cuneiform',
+ ['yi' ]='Yi',
+}
+otf.tables.languages={
+ ['dflt']='Default',
+ ['aba']='Abaza',
+ ['abk']='Abkhazian',
+ ['ady']='Adyghe',
+ ['afk']='Afrikaans',
+ ['afr']='Afar',
+ ['agw']='Agaw',
+ ['als']='Alsatian',
+ ['alt']='Altai',
+ ['amh']='Amharic',
+ ['ara']='Arabic',
+ ['ari']='Aari',
+ ['ark']='Arakanese',
+ ['asm']='Assamese',
+ ['ath']='Athapaskan',
+ ['avr']='Avar',
+ ['awa']='Awadhi',
+ ['aym']='Aymara',
+ ['aze']='Azeri',
+ ['bad']='Badaga',
+ ['bag']='Baghelkhandi',
+ ['bal']='Balkar',
+ ['bau']='Baule',
+ ['bbr']='Berber',
+ ['bch']='Bench',
+ ['bcr']='Bible Cree',
+ ['bel']='Belarussian',
+ ['bem']='Bemba',
+ ['ben']='Bengali',
+ ['bgr']='Bulgarian',
+ ['bhi']='Bhili',
+ ['bho']='Bhojpuri',
+ ['bik']='Bikol',
+ ['bil']='Bilen',
+ ['bkf']='Blackfoot',
+ ['bli']='Balochi',
+ ['bln']='Balante',
+ ['blt']='Balti',
+ ['bmb']='Bambara',
+ ['bml']='Bamileke',
+ ['bos']='Bosnian',
+ ['bre']='Breton',
+ ['brh']='Brahui',
+ ['bri']='Braj Bhasha',
+ ['brm']='Burmese',
+ ['bsh']='Bashkir',
+ ['bti']='Beti',
+ ['cat']='Catalan',
+ ['ceb']='Cebuano',
+ ['che']='Chechen',
+ ['chg']='Chaha Gurage',
+ ['chh']='Chattisgarhi',
+ ['chi']='Chichewa',
+ ['chk']='Chukchi',
+ ['chp']='Chipewyan',
+ ['chr']='Cherokee',
+ ['chu']='Chuvash',
+ ['cmr']='Comorian',
+ ['cop']='Coptic',
+ ['cos']='Corsican',
+ ['cre']='Cree',
+ ['crr']='Carrier',
+ ['crt']='Crimean Tatar',
+ ['csl']='Church Slavonic',
+ ['csy']='Czech',
+ ['dan']='Danish',
+ ['dar']='Dargwa',
+ ['dcr']='Woods Cree',
+ ['deu']='German',
+ ['dgr']='Dogri',
+ ['div']='Divehi',
+ ['djr']='Djerma',
+ ['dng']='Dangme',
+ ['dnk']='Dinka',
+ ['dri']='Dari',
+ ['dun']='Dungan',
+ ['dzn']='Dzongkha',
+ ['ebi']='Ebira',
+ ['ecr']='Eastern Cree',
+ ['edo']='Edo',
+ ['efi']='Efik',
+ ['ell']='Greek',
+ ['eng']='English',
+ ['erz']='Erzya',
+ ['esp']='Spanish',
+ ['eti']='Estonian',
+ ['euq']='Basque',
+ ['evk']='Evenki',
+ ['evn']='Even',
+ ['ewe']='Ewe',
+ ['fan']='French Antillean',
+ ['far']='Farsi',
+ ['fin']='Finnish',
+ ['fji']='Fijian',
+ ['fle']='Flemish',
+ ['fne']='Forest Nenets',
+ ['fon']='Fon',
+ ['fos']='Faroese',
+ ['fra']='French',
+ ['fri']='Frisian',
+ ['frl']='Friulian',
+ ['fta']='Futa',
+ ['ful']='Fulani',
+ ['gad']='Ga',
+ ['gae']='Gaelic',
+ ['gag']='Gagauz',
+ ['gal']='Galician',
+ ['gar']='Garshuni',
+ ['gaw']='Garhwali',
+ ['gez']="Ge'ez",
+ ['gil']='Gilyak',
+ ['gmz']='Gumuz',
+ ['gon']='Gondi',
+ ['grn']='Greenlandic',
+ ['gro']='Garo',
+ ['gua']='Guarani',
+ ['guj']='Gujarati',
+ ['hai']='Haitian',
+ ['hal']='Halam',
+ ['har']='Harauti',
+ ['hau']='Hausa',
+ ['haw']='Hawaiin',
+ ['hbn']='Hammer-Banna',
+ ['hil']='Hiligaynon',
+ ['hin']='Hindi',
+ ['hma']='High Mari',
+ ['hnd']='Hindko',
+ ['ho']='Ho',
+ ['hri']='Harari',
+ ['hrv']='Croatian',
+ ['hun']='Hungarian',
+ ['hye']='Armenian',
+ ['ibo']='Igbo',
+ ['ijo']='Ijo',
+ ['ilo']='Ilokano',
+ ['ind']='Indonesian',
+ ['ing']='Ingush',
+ ['inu']='Inuktitut',
+ ['iri']='Irish',
+ ['irt']='Irish Traditional',
+ ['isl']='Icelandic',
+ ['ism']='Inari Sami',
+ ['ita']='Italian',
+ ['iwr']='Hebrew',
+ ['jan']='Japanese',
+ ['jav']='Javanese',
+ ['jii']='Yiddish',
+ ['jud']='Judezmo',
+ ['jul']='Jula',
+ ['kab']='Kabardian',
+ ['kac']='Kachchi',
+ ['kal']='Kalenjin',
+ ['kan']='Kannada',
+ ['kar']='Karachay',
+ ['kat']='Georgian',
+ ['kaz']='Kazakh',
+ ['keb']='Kebena',
+ ['kge']='Khutsuri Georgian',
+ ['kha']='Khakass',
+ ['khk']='Khanty-Kazim',
+ ['khm']='Khmer',
+ ['khs']='Khanty-Shurishkar',
+ ['khv']='Khanty-Vakhi',
+ ['khw']='Khowar',
+ ['kik']='Kikuyu',
+ ['kir']='Kirghiz',
+ ['kis']='Kisii',
+ ['kkn']='Kokni',
+ ['klm']='Kalmyk',
+ ['kmb']='Kamba',
+ ['kmn']='Kumaoni',
+ ['kmo']='Komo',
+ ['kms']='Komso',
+ ['knr']='Kanuri',
+ ['kod']='Kodagu',
+ ['koh']='Korean Old Hangul',
+ ['kok']='Konkani',
+ ['kon']='Kikongo',
+ ['kop']='Komi-Permyak',
+ ['kor']='Korean',
+ ['koz']='Komi-Zyrian',
+ ['kpl']='Kpelle',
+ ['kri']='Krio',
+ ['krk']='Karakalpak',
+ ['krl']='Karelian',
+ ['krm']='Karaim',
+ ['krn']='Karen',
+ ['krt']='Koorete',
+ ['ksh']='Kashmiri',
+ ['ksi']='Khasi',
+ ['ksm']='Kildin Sami',
+ ['kui']='Kui',
+ ['kul']='Kulvi',
+ ['kum']='Kumyk',
+ ['kur']='Kurdish',
+ ['kuu']='Kurukh',
+ ['kuy']='Kuy',
+ ['kyk']='Koryak',
+ ['lad']='Ladin',
+ ['lah']='Lahuli',
+ ['lak']='Lak',
+ ['lam']='Lambani',
+ ['lao']='Lao',
+ ['lat']='Latin',
+ ['laz']='Laz',
+ ['lcr']='L-Cree',
+ ['ldk']='Ladakhi',
+ ['lez']='Lezgi',
+ ['lin']='Lingala',
+ ['lma']='Low Mari',
+ ['lmb']='Limbu',
+ ['lmw']='Lomwe',
+ ['lsb']='Lower Sorbian',
+ ['lsm']='Lule Sami',
+ ['lth']='Lithuanian',
+ ['ltz']='Luxembourgish',
+ ['lub']='Luba',
+ ['lug']='Luganda',
+ ['luh']='Luhya',
+ ['luo']='Luo',
+ ['lvi']='Latvian',
+ ['maj']='Majang',
+ ['mak']='Makua',
+ ['mal']='Malayalam Traditional',
+ ['man']='Mansi',
+ ['map']='Mapudungun',
+ ['mar']='Marathi',
+ ['maw']='Marwari',
+ ['mbn']='Mbundu',
+ ['mch']='Manchu',
+ ['mcr']='Moose Cree',
+ ['mde']='Mende',
+ ['men']="Me'en",
+ ['miz']='Mizo',
+ ['mkd']='Macedonian',
+ ['mle']='Male',
+ ['mlg']='Malagasy',
+ ['mln']='Malinke',
+ ['mlr']='Malayalam Reformed',
+ ['mly']='Malay',
+ ['mnd']='Mandinka',
+ ['mng']='Mongolian',
+ ['mni']='Manipuri',
+ ['mnk']='Maninka',
+ ['mnx']='Manx Gaelic',
+ ['moh']='Mohawk',
+ ['mok']='Moksha',
+ ['mol']='Moldavian',
+ ['mon']='Mon',
+ ['mor']='Moroccan',
+ ['mri']='Maori',
+ ['mth']='Maithili',
+ ['mts']='Maltese',
+ ['mun']='Mundari',
+ ['nag']='Naga-Assamese',
+ ['nan']='Nanai',
+ ['nas']='Naskapi',
+ ['ncr']='N-Cree',
+ ['ndb']='Ndebele',
+ ['ndg']='Ndonga',
+ ['nep']='Nepali',
+ ['new']='Newari',
+ ['ngr']='Nagari',
+ ['nhc']='Norway House Cree',
+ ['nis']='Nisi',
+ ['niu']='Niuean',
+ ['nkl']='Nkole',
+ ['nko']="N'ko",
+ ['nld']='Dutch',
+ ['nog']='Nogai',
+ ['nor']='Norwegian',
+ ['nsm']='Northern Sami',
+ ['nta']='Northern Tai',
+ ['nto']='Esperanto',
+ ['nyn']='Nynorsk',
+ ['oci']='Occitan',
+ ['ocr']='Oji-Cree',
+ ['ojb']='Ojibway',
+ ['ori']='Oriya',
+ ['oro']='Oromo',
+ ['oss']='Ossetian',
+ ['paa']='Palestinian Aramaic',
+ ['pal']='Pali',
+ ['pan']='Punjabi',
+ ['pap']='Palpa',
+ ['pas']='Pashto',
+ ['pgr']='Polytonic Greek',
+ ['pil']='Pilipino',
+ ['plg']='Palaung',
+ ['plk']='Polish',
+ ['pro']='Provencal',
+ ['ptg']='Portuguese',
+ ['qin']='Chin',
+ ['raj']='Rajasthani',
+ ['rbu']='Russian Buriat',
+ ['rcr']='R-Cree',
+ ['ria']='Riang',
+ ['rms']='Rhaeto-Romanic',
+ ['rom']='Romanian',
+ ['roy']='Romany',
+ ['rsy']='Rusyn',
+ ['rua']='Ruanda',
+ ['rus']='Russian',
+ ['sad']='Sadri',
+ ['san']='Sanskrit',
+ ['sat']='Santali',
+ ['say']='Sayisi',
+ ['sek']='Sekota',
+ ['sel']='Selkup',
+ ['sgo']='Sango',
+ ['shn']='Shan',
+ ['sib']='Sibe',
+ ['sid']='Sidamo',
+ ['sig']='Silte Gurage',
+ ['sks']='Skolt Sami',
+ ['sky']='Slovak',
+ ['sla']='Slavey',
+ ['slv']='Slovenian',
+ ['sml']='Somali',
+ ['smo']='Samoan',
+ ['sna']='Sena',
+ ['snd']='Sindhi',
+ ['snh']='Sinhalese',
+ ['snk']='Soninke',
+ ['sog']='Sodo Gurage',
+ ['sot']='Sotho',
+ ['sqi']='Albanian',
+ ['srb']='Serbian',
+ ['srk']='Saraiki',
+ ['srr']='Serer',
+ ['ssl']='South Slavey',
+ ['ssm']='Southern Sami',
+ ['sur']='Suri',
+ ['sva']='Svan',
+ ['sve']='Swedish',
+ ['swa']='Swadaya Aramaic',
+ ['swk']='Swahili',
+ ['swz']='Swazi',
+ ['sxt']='Sutu',
+ ['syr']='Syriac',
+ ['tab']='Tabasaran',
+ ['taj']='Tajiki',
+ ['tam']='Tamil',
+ ['tat']='Tatar',
+ ['tcr']='TH-Cree',
+ ['tel']='Telugu',
+ ['tgn']='Tongan',
+ ['tgr']='Tigre',
+ ['tgy']='Tigrinya',
+ ['tha']='Thai',
+ ['tht']='Tahitian',
+ ['tib']='Tibetan',
+ ['tkm']='Turkmen',
+ ['tmn']='Temne',
+ ['tna']='Tswana',
+ ['tne']='Tundra Nenets',
+ ['tng']='Tonga',
+ ['tod']='Todo',
+ ['trk']='Turkish',
+ ['tsg']='Tsonga',
+ ['tua']='Turoyo Aramaic',
+ ['tul']='Tulu',
+ ['tuv']='Tuvin',
+ ['twi']='Twi',
+ ['udm']='Udmurt',
+ ['ukr']='Ukrainian',
+ ['urd']='Urdu',
+ ['usb']='Upper Sorbian',
+ ['uyg']='Uyghur',
+ ['uzb']='Uzbek',
+ ['ven']='Venda',
+ ['vit']='Vietnamese',
+ ['wa' ]='Wa',
+ ['wag']='Wagdi',
+ ['wcr']='West-Cree',
+ ['wel']='Welsh',
+ ['wlf']='Wolof',
+ ['xbd']='Tai Lue',
+ ['xhs']='Xhosa',
+ ['yak']='Yakut',
+ ['yba']='Yoruba',
+ ['ycr']='Y-Cree',
+ ['yic']='Yi Classic',
+ ['yim']='Yi Modern',
+ ['zhh']='Chinese Hong Kong',
+ ['zhp']='Chinese Phonetic',
+ ['zhs']='Chinese Simplified',
+ ['zht']='Chinese Traditional',
+ ['znd']='Zande',
+ ['zul']='Zulu'
+}
+otf.tables.features={
+ ['aalt']='Access All Alternates',
+ ['abvf']='Above-Base Forms',
+ ['abvm']='Above-Base Mark Positioning',
+ ['abvs']='Above-Base Substitutions',
+ ['afrc']='Alternative Fractions',
+ ['akhn']='Akhands',
+ ['blwf']='Below-Base Forms',
+ ['blwm']='Below-Base Mark Positioning',
+ ['blws']='Below-Base Substitutions',
+ ['c2pc']='Petite Capitals From Capitals',
+ ['c2sc']='Small Capitals From Capitals',
+ ['calt']='Contextual Alternates',
+ ['case']='Case-Sensitive Forms',
+ ['ccmp']='Glyph Composition/Decomposition',
+ ['cjct']='Conjunct Forms',
+ ['clig']='Contextual Ligatures',
+ ['cpsp']='Capital Spacing',
+ ['cswh']='Contextual Swash',
+ ['curs']='Cursive Positioning',
+ ['dflt']='Default Processing',
+ ['dist']='Distances',
+ ['dlig']='Discretionary Ligatures',
+ ['dnom']='Denominators',
+ ['dtls']='Dotless Forms',
+ ['expt']='Expert Forms',
+ ['falt']='Final glyph Alternates',
+ ['fin2']='Terminal Forms #2',
+ ['fin3']='Terminal Forms #3',
+ ['fina']='Terminal Forms',
+ ['flac']='Flattened Accents Over Capitals',
+ ['frac']='Fractions',
+ ['fwid']='Full Width',
+ ['half']='Half Forms',
+ ['haln']='Halant Forms',
+ ['halt']='Alternate Half Width',
+ ['hist']='Historical Forms',
+ ['hkna']='Horizontal Kana Alternates',
+ ['hlig']='Historical Ligatures',
+ ['hngl']='Hangul',
+ ['hojo']='Hojo Kanji Forms',
+ ['hwid']='Half Width',
+ ['init']='Initial Forms',
+ ['isol']='Isolated Forms',
+ ['ital']='Italics',
+ ['jalt']='Justification Alternatives',
+ ['jp04']='JIS2004 Forms',
+ ['jp78']='JIS78 Forms',
+ ['jp83']='JIS83 Forms',
+ ['jp90']='JIS90 Forms',
+ ['kern']='Kerning',
+ ['lfbd']='Left Bounds',
+ ['liga']='Standard Ligatures',
+ ['ljmo']='Leading Jamo Forms',
+ ['lnum']='Lining Figures',
+ ['locl']='Localized Forms',
+ ['mark']='Mark Positioning',
+ ['med2']='Medial Forms #2',
+ ['medi']='Medial Forms',
+ ['mgrk']='Mathematical Greek',
+ ['mkmk']='Mark to Mark Positioning',
+ ['mset']='Mark Positioning via Substitution',
+ ['nalt']='Alternate Annotation Forms',
+ ['nlck']='NLC Kanji Forms',
+ ['nukt']='Nukta Forms',
+ ['numr']='Numerators',
+ ['onum']='Old Style Figures',
+ ['opbd']='Optical Bounds',
+ ['ordn']='Ordinals',
+ ['ornm']='Ornaments',
+ ['palt']='Proportional Alternate Width',
+ ['pcap']='Petite Capitals',
+ ['pnum']='Proportional Figures',
+ ['pref']='Pre-base Forms',
+ ['pres']='Pre-base Substitutions',
+ ['pstf']='Post-base Forms',
+ ['psts']='Post-base Substitutions',
+ ['pwid']='Proportional Widths',
+ ['qwid']='Quarter Widths',
+ ['rand']='Randomize',
+ ['rkrf']='Rakar Forms',
+ ['rlig']='Required Ligatures',
+ ['rphf']='Reph Form',
+ ['rtbd']='Right Bounds',
+ ['rtla']='Right-To-Left Alternates',
+ ['rtlm']='Right To Left Math',
+ ['ruby']='Ruby Notation Forms',
+ ['salt']='Stylistic Alternates',
+ ['sinf']='Scientific Inferiors',
+ ['size']='Optical Size',
+ ['smcp']='Small Capitals',
+ ['smpl']='Simplified Forms',
+ ['ss01']='Stylistic Set 1',
+ ['ss02']='Stylistic Set 2',
+ ['ss03']='Stylistic Set 3',
+ ['ss04']='Stylistic Set 4',
+ ['ss05']='Stylistic Set 5',
+ ['ss06']='Stylistic Set 6',
+ ['ss07']='Stylistic Set 7',
+ ['ss08']='Stylistic Set 8',
+ ['ss09']='Stylistic Set 9',
+ ['ss10']='Stylistic Set 10',
+ ['ss11']='Stylistic Set 11',
+ ['ss12']='Stylistic Set 12',
+ ['ss13']='Stylistic Set 13',
+ ['ss14']='Stylistic Set 14',
+ ['ss15']='Stylistic Set 15',
+ ['ss16']='Stylistic Set 16',
+ ['ss17']='Stylistic Set 17',
+ ['ss18']='Stylistic Set 18',
+ ['ss19']='Stylistic Set 19',
+ ['ss20']='Stylistic Set 20',
+ ['ssty']='Script Style',
+ ['subs']='Subscript',
+ ['sups']='Superscript',
+ ['swsh']='Swash',
+ ['titl']='Titling',
+ ['tjmo']='Trailing Jamo Forms',
+ ['tnam']='Traditional Name Forms',
+ ['tnum']='Tabular Figures',
+ ['trad']='Traditional Forms',
+ ['twid']='Third Widths',
+ ['unic']='Unicase',
+ ['valt']='Alternate Vertical Metrics',
+ ['vatu']='Vattu Variants',
+ ['vert']='Vertical Writing',
+ ['vhal']='Alternate Vertical Half Metrics',
+ ['vjmo']='Vowel Jamo Forms',
+ ['vkna']='Vertical Kana Alternates',
+ ['vkrn']='Vertical Kerning',
+ ['vpal']='Proportional Alternate Vertical Metrics',
+ ['vrt2']='Vertical Rotation',
+ ['zero']='Slashed Zero',
+ ['trep']='Traditional TeX Replacements',
+ ['tlig']='Traditional TeX Ligatures',
+}
+otf.tables.baselines={
+ ['hang']='Hanging baseline',
+ ['icfb']='Ideographic character face bottom edge baseline',
+ ['icft']='Ideographic character face tope edige baseline',
+ ['ideo']='Ideographic em-box bottom edge baseline',
+ ['idtp']='Ideographic em-box top edge baseline',
+ ['math']='Mathmatical centered baseline',
+ ['romn']='Roman baseline'
+}
+function otf.tables.to_tag(id)
+ return stringformat("%4s",lower(id))
+end
+local function resolve(tab,id)
+ if tab and id then
+ id=lower(id)
+ return tab[id] or tab[gsub(id," ","")] or tab['dflt'] or ''
+ else
+ return "unknown"
+ end
+end
+function otf.meanings.script(id)
+ return resolve(otf.tables.scripts,id)
+end
+function otf.meanings.language(id)
+ return resolve(otf.tables.languages,id)
+end
+function otf.meanings.feature(id)
+ return resolve(otf.tables.features,id)
+end
+function otf.meanings.baseline(id)
+ return resolve(otf.tables.baselines,id)
+end
+otf.tables.to_scripts=table.reverse_hash(otf.tables.scripts )
+otf.tables.to_languages=table.reverse_hash(otf.tables.languages)
+otf.tables.to_features=table.reverse_hash(otf.tables.features )
+local scripts=otf.tables.scripts
+local languages=otf.tables.languages
+local features=otf.tables.features
+local to_scripts=otf.tables.to_scripts
+local to_languages=otf.tables.to_languages
+local to_features=otf.tables.to_features
+for k,v in next,to_features do
+ local stripped=gsub(k,"%-"," ")
+ to_features[stripped]=v
+ local stripped=gsub(k,"[^a-zA-Z0-9]","")
+ to_features[stripped]=v
+end
+for k,v in next,to_features do
+ to_features[lower(k)]=v
+end
+otf.meanings.checkers={
+ rand=function(v)
+ return v and "random"
+ end
+}
+local checkers=otf.meanings.checkers
+function otf.meanings.normalize(features)
+ local h={}
+ for k,v in next,features do
+ k=lower(k)
+ if k=="language" or k=="lang" then
+ v=gsub(lower(v),"[^a-z0-9%-]","")
+ if not languages[v] then
+ h.language=to_languages[v] or "dflt"
+ else
+ h.language=v
+ end
+ elseif k=="script" then
+ v=gsub(lower(v),"[^a-z0-9%-]","")
+ if not scripts[v] then
+ h.script=to_scripts[v] or "dflt"
+ else
+ h.script=v
+ end
+ else
+ if type(v)=="string" then
+ local b=v:is_boolean()
+ if type(b)=="nil" then
+ v=tonumber(v) or lower(v)
+ else
+ v=b
+ end
+ end
+ k=to_features[k] or k
+ local c=checkers[k]
+ h[k]=c and c(v) or v
+ end
+ end
+ return h
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-map']={
+ version=1.001,
+ comment="companion to font-ini.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local utf=unicode.utf8
+local match,format,find,concat,gsub,lower=string.match,string.format,string.find,table.concat,string.gsub,string.lower
+local lpegmatch=lpeg.match
+local utfbyte=utf.byte
+local trace_loading=false trackers.register("otf.loading",function(v) trace_loading=v end)
+local trace_unimapping=false trackers.register("otf.unimapping",function(v) trace_unimapping=v end)
+local ctxcatcodes=tex and tex.ctxcatcodes
+fonts=fonts or {}
+fonts.map=fonts.map or {}
+local function load_lum_table(filename)
+ local lumname=file.replacesuffix(file.basename(filename),"lum")
+ local lumfile=resolvers.find_file(lumname,"map") or ""
+ if lumfile~="" and lfs.isfile(lumfile) then
+ if trace_loading or trace_unimapping then
+ logs.report("load otf","enhance: loading %s ",lumfile)
+ end
+ lumunic=dofile(lumfile)
+ return lumunic,lumfile
+ end
+end
+local hex=lpeg.R("AF","09")
+local hexfour=(hex*hex*hex*hex)/function(s) return tonumber(s,16) end
+local hexsix=(hex^1)/function(s) return tonumber(s,16) end
+local dec=(lpeg.R("09")^1)/tonumber
+local period=lpeg.P(".")
+local unicode=lpeg.P("uni")*(hexfour*(period+lpeg.P(-1))*lpeg.Cc(false)+lpeg.Ct(hexfour^1)*lpeg.Cc(true))
+local ucode=lpeg.P("u")*(hexsix*(period+lpeg.P(-1))*lpeg.Cc(false)+lpeg.Ct(hexsix^1)*lpeg.Cc(true))
+local index=lpeg.P("index")*dec*lpeg.Cc(false)
+local parser=unicode+ucode+index
+local parsers={}
+local function make_name_parser(str)
+ if not str or str=="" then
+ return parser
+ else
+ local p=parsers[str]
+ if not p then
+ p=lpeg.P(str)*period*dec*lpeg.Cc(false)
+ parsers[str]=p
+ end
+ return p
+ end
+end
+local function tounicode16(unicode)
+ if unicode<0x10000 then
+ return format("%04X",unicode)
+ else
+ return format("%04X%04X",unicode/1024+0xD800,unicode%1024+0xDC00)
+ end
+end
+local function tounicode16sequence(unicodes)
+ local t={}
+ for l=1,#unicodes do
+ local unicode=unicodes[l]
+ if unicode<0x10000 then
+ t[l]=format("%04X",unicode)
+ else
+ t[l]=format("%04X%04X",unicode/1024+0xD800,unicode%1024+0xDC00)
+ end
+ end
+ return concat(t)
+end
+fonts.map.load_lum_table=load_lum_table
+fonts.map.make_name_parser=make_name_parser
+fonts.map.tounicode16=tounicode16
+fonts.map.tounicode16sequence=tounicode16sequence
+local separator=lpeg.S("_.")
+local other=lpeg.C((1-separator)^1)
+local ligsplitter=lpeg.Ct(other*(separator*other)^0)
+fonts.map.add_to_unicode=function(data,filename)
+ local unicodes=data.luatex and data.luatex.unicodes
+ if not unicodes then
+ return
+ end
+ unicodes['space']=unicodes['space'] or 32
+ unicodes['hyphen']=unicodes['hyphen'] or 45
+ unicodes['zwj']=unicodes['zwj'] or 0x200D
+ unicodes['zwnj']=unicodes['zwnj'] or 0x200C
+ local tounicode,originals,ns,nl,private,unknown={},{},0,0,fonts.private,format("%04X",utfbyte("?"))
+ data.luatex.tounicode,data.luatex.originals=tounicode,originals
+ local lumunic,uparser,oparser
+ if false then
+ lumunic=load_lum_table(filename)
+ lumunic=lumunic and lumunic.tounicode
+ end
+ local cidinfo,cidnames,cidcodes=data.cidinfo
+ local usedmap=cidinfo and cidinfo.usedname
+ usedmap=usedmap and lower(usedmap)
+ usedmap=usedmap and fonts.cid.map[usedmap]
+ if usedmap then
+ oparser=usedmap and make_name_parser(cidinfo.ordering)
+ cidnames=usedmap.names
+ cidcodes=usedmap.unicodes
+ end
+ uparser=make_name_parser()
+ local aglmap=fonts.map and fonts.map.agl_to_unicode
+ for index,glyph in next,data.glyphs do
+ local name,unic=glyph.name,glyph.unicode or -1
+ if unic==-1 or unic>=private or (unic>=0xE000 and unic<=0xF8FF) or unic==0xFFFE or unic==0xFFFF then
+ local unicode=(lumunic and lumunic[name]) or (aglmap and aglmap[name])
+ if unicode then
+ originals[index],tounicode[index],ns=unicode,tounicode16(unicode),ns+1
+ end
+ if (not unicode) and usedmap then
+ local foundindex=lpegmatch(oparser,name)
+ if foundindex then
+ unicode=cidcodes[foundindex]
+ if unicode then
+ originals[index],tounicode[index],ns=unicode,tounicode16(unicode),ns+1
+ else
+ local reference=cidnames[foundindex]
+ if reference then
+ local foundindex=lpegmatch(oparser,reference)
+ if foundindex then
+ unicode=cidcodes[foundindex]
+ if unicode then
+ originals[index],tounicode[index],ns=unicode,tounicode16(unicode),ns+1
+ end
+ end
+ if not unicode then
+ local foundcodes,multiple=lpegmatch(uparser,reference)
+ if foundcodes then
+ if multiple then
+ originals[index],tounicode[index],nl,unicode=foundcodes,tounicode16sequence(foundcodes),nl+1,true
+ else
+ originals[index],tounicode[index],ns,unicode=foundcodes,tounicode16(foundcodes),ns+1,foundcodes
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ if not unicode then
+ local split=lpegmatch(ligsplitter,name)
+ local nplit=(split and #split) or 0
+ if nplit==0 then
+ elseif nplit==1 then
+ local base=split[1]
+ unicode=unicodes[base] or (aglmap and aglmap[base])
+ if unicode then
+ if type(unicode)=="table" then
+ unicode=unicode[1]
+ end
+ originals[index],tounicode[index],ns=unicode,tounicode16(unicode),ns+1
+ end
+ else
+ local t={}
+ for l=1,nplit do
+ local base=split[l]
+ local u=unicodes[base] or (aglmap and aglmap[base])
+ if not u then
+ break
+ elseif type(u)=="table" then
+ t[#t+1]=u[1]
+ else
+ t[#t+1]=u
+ end
+ end
+ if #t>0 then
+ originals[index],tounicode[index],nl,unicode=t,tounicode16sequence(t),nl+1,true
+ end
+ end
+ end
+ if not unicode then
+ local foundcodes,multiple=lpegmatch(uparser,name)
+ if foundcodes then
+ if multiple then
+ originals[index],tounicode[index],nl,unicode=foundcodes,tounicode16sequence(foundcodes),nl+1,true
+ else
+ originals[index],tounicode[index],ns,unicode=foundcodes,tounicode16(foundcodes),ns+1,foundcodes
+ end
+ end
+ end
+ if not unicode then
+ originals[index],tounicode[index]=0xFFFD,"FFFD"
+ end
+ end
+ end
+ if trace_unimapping then
+ for index,glyph in table.sortedhash(data.glyphs) do
+ local toun,name,unic=tounicode[index],glyph.name,glyph.unicode or -1
+ if toun then
+ logs.report("load otf","internal: 0x%05X, name: %s, unicode: 0x%05X, tounicode: %s",index,name,unic,toun)
+ else
+ logs.report("load otf","internal: 0x%05X, name: %s, unicode: 0x%05X",index,name,unic)
+ end
+ end
+ end
+ if trace_loading and (ns>0 or nl>0) then
+ logs.report("load otf","enhance: %s tounicode entries added (%s ligatures)",nl+ns,ns)
+ end
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-otf']={
+ version=1.001,
+ comment="companion to font-ini.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local utf=unicode.utf8
+local concat,utfbyte=table.concat,utf.byte
+local format,gmatch,gsub,find,match,lower,strip=string.format,string.gmatch,string.gsub,string.find,string.match,string.lower,string.strip
+local type,next,tonumber,tostring=type,next,tonumber,tostring
+local abs=math.abs
+local getn=table.getn
+local lpegmatch=lpeg.match
+local trace_private=false trackers.register("otf.private",function(v) trace_private=v end)
+local trace_loading=false trackers.register("otf.loading",function(v) trace_loading=v end)
+local trace_features=false trackers.register("otf.features",function(v) trace_features=v end)
+local trace_dynamics=false trackers.register("otf.dynamics",function(v) trace_dynamics=v end)
+local trace_sequences=false trackers.register("otf.sequences",function(v) trace_sequences=v end)
+local trace_math=false trackers.register("otf.math",function(v) trace_math=v end)
+local trace_defining=false trackers.register("fonts.defining",function(v) trace_defining=v end)
+fonts=fonts or {}
+fonts.otf=fonts.otf or {}
+fonts.tfm=fonts.tfm or {}
+local otf=fonts.otf
+local tfm=fonts.tfm
+local fontdata=fonts.ids
+otf.tables=otf.tables or {}
+otf.meanings=otf.meanings or {}
+otf.tables.features=otf.tables.features or {}
+otf.tables.languages=otf.tables.languages or {}
+otf.tables.scripts=otf.tables.scripts or {}
+otf.features=otf.features or {}
+otf.features.list=otf.features.list or {}
+otf.features.default=otf.features.default or {}
+otf.enhancers=otf.enhancers or {}
+otf.glists={ "gsub","gpos" }
+otf.version=2.653
+otf.pack=true
+otf.syncspace=true
+otf.notdef=false
+otf.cache=containers.define("fonts","otf",otf.version,true)
+otf.cleanup_aat=false
+local wildcard="*"
+local default="dflt"
+otf.tables.global_fields=table.tohash {
+ "lookups",
+ "glyphs",
+ "subfonts",
+ "luatex",
+ "pfminfo",
+ "cidinfo",
+ "tables",
+ "names",
+ "unicodes",
+ "names",
+ "anchor_classes",
+ "kern_classes",
+ "gpos",
+ "gsub"
+}
+otf.tables.valid_fields={
+ "anchor_classes",
+ "ascent",
+ "cache_version",
+ "cidinfo",
+ "copyright",
+ "creationtime",
+ "descent",
+ "design_range_bottom",
+ "design_range_top",
+ "design_size",
+ "encodingchanged",
+ "extrema_bound",
+ "familyname",
+ "fontname",
+ "fontstyle_id",
+ "fontstyle_name",
+ "fullname",
+ "glyphs",
+ "hasvmetrics",
+ "head_optimized_for_cleartype",
+ "horiz_base",
+ "issans",
+ "isserif",
+ "italicangle",
+ "kerns",
+ "lookups",
+ "macstyle",
+ "modificationtime",
+ "onlybitmaps",
+ "origname",
+ "os2_version",
+ "pfminfo",
+ "private",
+ "serifcheck",
+ "sfd_version",
+ "strokedfont",
+ "strokewidth",
+ "subfonts",
+ "table_version",
+ "ttf_tables",
+ "uni_interp",
+ "uniqueid",
+ "units_per_em",
+ "upos",
+ "use_typo_metrics",
+ "uwidth",
+ "validation_state",
+ "verbose",
+ "version",
+ "vert_base",
+ "weight",
+ "weight_width_slope_only",
+ "xuid",
+}
+local function load_featurefile(ff,featurefile)
+ if featurefile then
+ featurefile=resolvers.find_file(file.addsuffix(featurefile,'fea'),'fea')
+ if featurefile and featurefile~="" then
+ if trace_loading then
+ logs.report("load otf","featurefile: %s",featurefile)
+ end
+ fontloader.apply_featurefile(ff,featurefile)
+ end
+ end
+end
+function otf.enhance(name,data,filename,verbose)
+ local enhancer=otf.enhancers[name]
+ if enhancer then
+ if (verbose~=nil and verbose) or trace_loading then
+ logs.report("load otf","enhance: %s (%s)",name,filename)
+ end
+ enhancer(data,filename)
+ end
+end
+local enhancers={
+ "patch bugs",
+ "merge cid fonts","prepare unicode","cleanup ttf tables","compact glyphs","reverse coverage",
+ "cleanup aat","enrich with features","add some missing characters",
+ "reorganize mark classes",
+ "reorganize kerns",
+ "flatten glyph lookups","flatten anchor tables","flatten feature tables",
+ "simplify glyph lookups",
+ "prepare luatex tables",
+ "analyse features","rehash features",
+ "analyse anchors","analyse marks","analyse unicodes","analyse subtables",
+ "check italic correction","check math",
+ "share widths",
+ "strip not needed data",
+ "migrate metadata",
+ "check math parameters",
+}
+function otf.load(filename,format,sub,featurefile)
+ local name=file.basename(file.removesuffix(filename))
+ local attr=lfs.attributes(filename)
+ local size,time=attr.size or 0,attr.modification or 0
+ if featurefile then
+ local fattr=lfs.attributes(featurefile)
+ local fsize,ftime=fattr and fattr.size or 0,fattr and fattr.modification or 0
+ name=name.."@"..file.removesuffix(file.basename(featurefile))..ftime..fsize
+ end
+ if sub=="" then sub=false end
+ local hash=name
+ if sub then
+ hash=hash.."-"..sub
+ end
+ hash=containers.cleanname(hash)
+ local data=containers.read(otf.cache,hash)
+ if not data or data.verbose~=fonts.verbose or data.size~=size or data.time~=time then
+ logs.report("load otf","loading: %s (hash: %s)",filename,hash)
+ local ff,messages
+ if sub then
+ ff,messages=fontloader.open(filename,sub)
+ else
+ ff,messages=fontloader.open(filename)
+ end
+ if trace_loading and messages and #messages>0 then
+ if type(messages)=="string" then
+ logs.report("load otf","warning: %s",messages)
+ else
+ for m=1,#messages do
+ logs.report("load otf","warning: %s",tostring(messages[m]))
+ end
+ end
+ else
+ logs.report("load otf","font loaded okay")
+ end
+ if ff then
+ load_featurefile(ff,featurefile)
+ data=fontloader.to_table(ff)
+ fontloader.close(ff)
+ if data then
+ logs.report("load otf","file size: %s",size)
+ logs.report("load otf","enhancing ...")
+ for e=1,#enhancers do
+ otf.enhance(enhancers[e],data,filename)
+ io.flush()
+ end
+ if otf.pack and not fonts.verbose then
+ otf.enhance("pack",data,filename)
+ end
+ data.size=size
+ data.time=time
+ data.verbose=fonts.verbose
+ logs.report("load otf","saving in cache: %s",filename)
+ data=containers.write(otf.cache,hash,data)
+ collectgarbage("collect")
+ data=containers.read(otf.cache,hash)
+ collectgarbage("collect")
+ else
+ logs.report("load otf","loading failed (table conversion error)")
+ end
+ else
+ logs.report("load otf","loading failed (file read error)")
+ end
+ end
+ if data then
+ if trace_defining then
+ logs.report("define font","loading from cache: %s",hash)
+ end
+ otf.enhance("unpack",data,filename,false)
+ otf.add_dimensions(data)
+ if trace_sequences then
+ otf.show_feature_order(data,filename)
+ end
+ end
+ return data
+end
+function otf.add_dimensions(data)
+ if data then
+ local force=otf.notdef
+ local luatex=data.luatex
+ local defaultwidth=luatex.defaultwidth or 0
+ local defaultheight=luatex.defaultheight or 0
+ local defaultdepth=luatex.defaultdepth or 0
+ for _,d in next,data.glyphs do
+ local bb,wd=d.boundingbox,d.width
+ if not wd then
+ d.width=defaultwidth
+ elseif wd~=0 and d.class=="mark" then
+ d.width=-wd
+ end
+ if force and not d.name then
+ d.name=".notdef"
+ end
+ if bb then
+ local ht,dp=bb[4],-bb[2]
+ if ht==0 or ht<0 then
+ else
+ d.height=ht
+ end
+ if dp==0 or dp<0 then
+ else
+ d.depth=dp
+ end
+ end
+ end
+ end
+end
+function otf.show_feature_order(otfdata,filename)
+ local sequences=otfdata.luatex.sequences
+ if sequences and #sequences>0 then
+ if trace_loading then
+ logs.report("otf check","font %s has %s sequences",filename,#sequences)
+ logs.report("otf check"," ")
+ end
+ for nos=1,#sequences do
+ local sequence=sequences[nos]
+ local typ=sequence.type or "no-type"
+ local name=sequence.name or "no-name"
+ local subtables=sequence.subtables or { "no-subtables" }
+ local features=sequence.features
+ if trace_loading then
+ logs.report("otf check","%3i %-15s %-20s [%s]",nos,name,typ,concat(subtables,","))
+ end
+ if features then
+ for feature,scripts in next,features do
+ local tt={}
+ for script,languages in next,scripts do
+ local ttt={}
+ for language,_ in next,languages do
+ ttt[#ttt+1]=language
+ end
+ tt[#tt+1]=format("[%s: %s]",script,concat(ttt," "))
+ end
+ if trace_loading then
+ logs.report("otf check"," %s: %s",feature,concat(tt," "))
+ end
+ end
+ end
+ end
+ if trace_loading then
+ logs.report("otf check","\n")
+ end
+ elseif trace_loading then
+ logs.report("otf check","font %s has no sequences",filename)
+ end
+end
+otf.enhancers["reorganize mark classes"]=function(data,filename)
+ if data.mark_classes then
+ local unicodes=data.luatex.unicodes
+ local reverse={}
+ for name,class in next,data.mark_classes do
+ local t={}
+ for s in gmatch(class,"[^ ]+") do
+ local us=unicodes[s]
+ if type(us)=="table" then
+ for u=1,#us do
+ t[us[u]]=true
+ end
+ else
+ t[us]=true
+ end
+ end
+ reverse[name]=t
+ end
+ data.luatex.markclasses=reverse
+ data.mark_classes=nil
+ end
+end
+otf.enhancers["prepare luatex tables"]=function(data,filename)
+ data.luatex=data.luatex or {}
+ local luatex=data.luatex
+ luatex.filename=filename
+ luatex.version=otf.version
+ luatex.creator="context mkiv"
+end
+otf.enhancers["cleanup aat"]=function(data,filename)
+ if otf.cleanup_aat then
+ end
+end
+local function analyze_features(g,features)
+ if g then
+ local t,done={},{}
+ for k=1,#g do
+ local f=features or g[k].features
+ if f then
+ for k=1,#f do
+ local tag=f[k].tag
+ if not done[tag] then
+ t[#t+1]=tag
+ done[tag]=true
+ end
+ end
+ end
+ end
+ if #t>0 then
+ return t
+ end
+ end
+ return nil
+end
+otf.enhancers["analyse features"]=function(data,filename)
+end
+otf.enhancers["rehash features"]=function(data,filename)
+ local features={}
+ data.luatex.features=features
+ for k,what in next,otf.glists do
+ local dw=data[what]
+ if dw then
+ local f={}
+ features[what]=f
+ for i=1,#dw do
+ local d=dw[i]
+ local dfeatures=d.features
+ if dfeatures then
+ for i=1,#dfeatures do
+ local df=dfeatures[i]
+ local tag=strip(lower(df.tag))
+ local ft=f[tag] if not ft then ft={} f[tag]=ft end
+ local dscripts=df.scripts
+ for script,languages in next,dscripts do
+ script=strip(lower(script))
+ local fts=ft[script] if not fts then fts={} ft[script]=fts end
+ for i=1,#languages do
+ fts[strip(lower(languages[i]))]=true
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+end
+otf.enhancers["analyse anchors"]=function(data,filename)
+ local classes=data.anchor_classes
+ local luatex=data.luatex
+ local anchor_to_lookup,lookup_to_anchor={},{}
+ luatex.anchor_to_lookup,luatex.lookup_to_anchor=anchor_to_lookup,lookup_to_anchor
+ if classes then
+ for c=1,#classes do
+ local class=classes[c]
+ local anchor=class.name
+ local lookups=class.lookup
+ if type(lookups)~="table" then
+ lookups={ lookups }
+ end
+ local a=anchor_to_lookup[anchor]
+ if not a then a={} anchor_to_lookup[anchor]=a end
+ for l=1,#lookups do
+ local lookup=lookups[l]
+ local l=lookup_to_anchor[lookup]
+ if not l then l={} lookup_to_anchor[lookup]=l end
+ l[anchor]=true
+ a[lookup]=true
+ end
+ end
+ end
+end
+otf.enhancers["analyse marks"]=function(data,filename)
+ local glyphs=data.glyphs
+ local marks={}
+ data.luatex.marks=marks
+ for unicode,index in next,data.luatex.indices do
+ local glyph=glyphs[index]
+ if glyph.class=="mark" then
+ marks[unicode]=true
+ end
+ end
+end
+otf.enhancers["analyse unicodes"]=fonts.map.add_to_unicode
+otf.enhancers["analyse subtables"]=function(data,filename)
+ data.luatex=data.luatex or {}
+ local luatex=data.luatex
+ local sequences={}
+ local lookups={}
+ luatex.sequences=sequences
+ luatex.lookups=lookups
+ for _,g in next,{ data.gsub,data.gpos } do
+ for k=1,#g do
+ local gk=g[k]
+ local typ=gk.type
+ if typ=="gsub_contextchain" or typ=="gpos_contextchain" then
+ gk.chain=1
+ elseif typ=="gsub_reversecontextchain" or typ=="gpos_reversecontextchain" then
+ gk.chain=-1
+ else
+ gk.chain=0
+ end
+ local features=gk.features
+ if features then
+ sequences[#sequences+1]=gk
+ local t={}
+ for f=1,#features do
+ local feature=features[f]
+ local hash={}
+ for s,languages in next,feature.scripts do
+ s=lower(s)
+ local h=hash[s]
+ if not h then h={} hash[s]=h end
+ for l=1,#languages do
+ h[strip(lower(languages[l]))]=true
+ end
+ end
+ t[feature.tag]=hash
+ end
+ gk.features=t
+ else
+ lookups[gk.name]=gk
+ gk.name=nil
+ end
+ local subtables=gk.subtables
+ if subtables then
+ local t={}
+ for s=1,#subtables do
+ local subtable=subtables[s]
+ local name=subtable.name
+ t[#t+1]=name
+ end
+ gk.subtables=t
+ end
+ local flags=gk.flags
+ if flags then
+ gk.flags={
+ (flags.ignorecombiningmarks and "mark") or false,
+ (flags.ignoreligatures and "ligature") or false,
+ (flags.ignorebaseglyphs and "base") or false,
+ flags.r2l or false,
+ }
+ if flags.mark_class then
+ gk.markclass=luatex.markclasses[flags.mark_class]
+ end
+ end
+ end
+ end
+end
+otf.enhancers["merge cid fonts"]=function(data,filename)
+ if data.subfonts then
+ if data.glyphs and next(data.glyphs) then
+ logs.report("load otf","replacing existing glyph table due to subfonts")
+ end
+ local cidinfo=data.cidinfo
+ local verbose=fonts.verbose
+ if cidinfo.registry then
+ local cidmap,cidname=fonts.cid.getmap(cidinfo.registry,cidinfo.ordering,cidinfo.supplement)
+ if cidmap then
+ cidinfo.usedname=cidmap.usedname
+ local glyphs,uni_to_int,int_to_uni,nofnames,nofunicodes={},{},{},0,0
+ local unicodes,names=cidmap.unicodes,cidmap.names
+ for n,subfont in next,data.subfonts do
+ for index,g in next,subfont.glyphs do
+ if not next(g) then
+ else
+ local unicode,name=unicodes[index],names[index]
+ g.cidindex=n
+ g.boundingbox=g.boundingbox
+ g.name=g.name or name or "unknown"
+ if unicode then
+ uni_to_int[unicode]=index
+ int_to_uni[index]=unicode
+ nofunicodes=nofunicodes+1
+ g.unicode=unicode
+ elseif name then
+ nofnames=nofnames+1
+ g.unicode=-1
+ end
+ glyphs[index]=g
+ end
+ end
+ subfont.glyphs=nil
+ end
+ if trace_loading then
+ logs.report("load otf","cid font remapped, %s unicode points, %s symbolic names, %s glyphs",nofunicodes,nofnames,nofunicodes+nofnames)
+ end
+ data.glyphs=glyphs
+ data.map=data.map or {}
+ data.map.map=uni_to_int
+ data.map.backmap=int_to_uni
+ elseif trace_loading then
+ logs.report("load otf","unable to remap cid font, missing cid file for %s",filename)
+ end
+ elseif trace_loading then
+ logs.report("load otf","font %s has no glyphs",filename)
+ end
+ end
+end
+otf.enhancers["prepare unicode"]=function(data,filename)
+ local luatex=data.luatex
+ if not luatex then luatex={} data.luatex=luatex end
+ local indices,unicodes,multiples,internals={},{},{},{}
+ local glyphs=data.glyphs
+ local mapmap=data.map
+ if not mapmap then
+ logs.report("load otf","no map in %s",filename)
+ mapmap={}
+ data.map={ map=mapmap }
+ elseif not mapmap.map then
+ logs.report("load otf","no unicode map in %s",filename)
+ mapmap={}
+ data.map.map=mapmap
+ else
+ mapmap=mapmap.map
+ end
+ local criterium=fonts.private
+ local private=fonts.private
+ for index,glyph in next,glyphs do
+ if index>0 then
+ local name=glyph.name
+ if name then
+ local unicode=glyph.unicode
+ if unicode==-1 or unicode>=criterium then
+ glyph.unicode=private
+ indices[private]=index
+ unicodes[name]=private
+ internals[index]=true
+ if trace_private then
+ logs.report("load otf","enhance: glyph %s at index U+%04X is moved to private unicode slot U+%04X",name,index,private)
+ end
+ private=private+1
+ else
+ indices[unicode]=index
+ unicodes[name]=unicode
+ end
+ end
+ end
+ end
+ for unicode,index in next,mapmap do
+ if not internals[index] then
+ local name=glyphs[index].name
+ if name then
+ local un=unicodes[name]
+ if not un then
+ unicodes[name]=unicode
+ elseif type(un)=="number" then
+ if un~=unicode then
+ multiples[#multiples+1]=name
+ unicodes[name]={ un,unicode }
+ indices[unicode]=index
+ end
+ else
+ local ok=false
+ for u=1,#un do
+ if un[u]==unicode then
+ ok=true
+ break
+ end
+ end
+ if not ok then
+ multiples[#multiples+1]=name
+ un[#un+1]=unicode
+ indices[unicode]=index
+ end
+ end
+ end
+ end
+ end
+ if trace_loading then
+ if #multiples>0 then
+ logs.report("load otf","%s glyph are reused: %s",#multiples,concat(multiples," "))
+ else
+ logs.report("load otf","no glyph are reused")
+ end
+ end
+ luatex.indices=indices
+ luatex.unicodes=unicodes
+ luatex.private=private
+end
+otf.enhancers["cleanup ttf tables"]=function(data,filename)
+ local ttf_tables=data.ttf_tables
+ if ttf_tables then
+ for k=1,#ttf_tables do
+ if ttf_tables[k].data then ttf_tables[k].data="deleted" end
+ end
+ end
+ data.ttf_tab_saved=nil
+end
+otf.enhancers["compact glyphs"]=function(data,filename)
+ table.compact(data.glyphs)
+ if data.subfonts then
+ for _,subfont in next,data.subfonts do
+ table.compact(subfont.glyphs)
+ end
+ end
+end
+otf.enhancers["reverse coverage"]=function(data,filename)
+ if data.lookups then
+ for _,v in next,data.lookups do
+ if v.rules then
+ for _,vv in next,v.rules do
+ local c=vv.coverage
+ if c and c.before then
+ c.before=table.reverse(c.before)
+ end
+ end
+ end
+ end
+ end
+end
+otf.enhancers["check italic correction"]=function(data,filename)
+ local glyphs=data.glyphs
+ local ok=false
+ for index,glyph in next,glyphs do
+ local ic=glyph.italic_correction
+ if ic then
+ if ic~=0 then
+ glyph.italic=ic
+ end
+ glyph.italic_correction=nil
+ ok=true
+ end
+ end
+ otf.tables.valid_fields[#otf.tables.valid_fields+1]="has_italic"
+ data.has_italic=true
+end
+otf.enhancers["check math"]=function(data,filename)
+ if data.math then
+ local glyphs=data.glyphs
+ local unicodes=data.luatex.unicodes
+ for index,glyph in next,glyphs do
+ local mk=glyph.mathkern
+ local hv=glyph.horiz_variants
+ local vv=glyph.vert_variants
+ if mk or hv or vv then
+ local math={}
+ glyph.math=math
+ if mk then
+ for k,v in next,mk do
+ if not next(v) then
+ mk[k]=nil
+ end
+ end
+ math.kerns=mk
+ glyph.mathkern=nil
+ end
+ if hv then
+ math.horiz_variants=hv.variants
+ local p=hv.parts
+ if p and #p>0 then
+ for i=1,#p do
+ local pi=p[i]
+ pi.glyph=unicodes[pi.component] or 0
+ end
+ math.horiz_parts=p
+ end
+ local ic=hv.italic_correction
+ if ic and ic~=0 then
+ math.horiz_italic_correction=ic
+ end
+ glyph.horiz_variants=nil
+ end
+ if vv then
+ local uc=unicodes[index]
+ math.vert_variants=vv.variants
+ local p=vv.parts
+ if p and #p>0 then
+ for i=1,#p do
+ local pi=p[i]
+ pi.glyph=unicodes[pi.component] or 0
+ end
+ math.vert_parts=p
+ end
+ local ic=vv.italic_correction
+ if ic and ic~=0 then
+ math.vert_italic_correction=ic
+ end
+ glyph.vert_variants=nil
+ end
+ local ic=glyph.italic_correction
+ if ic then
+ if ic~=0 then
+ math.italic_correction=ic
+ end
+ glyph.italic_correction=nil
+ end
+ end
+ end
+ end
+end
+otf.enhancers["share widths"]=function(data,filename)
+ local glyphs=data.glyphs
+ local widths={}
+ for index,glyph in next,glyphs do
+ local width=glyph.width
+ widths[width]=(widths[width] or 0)+1
+ end
+ local wd,most=0,1
+ for k,v in next,widths do
+ if v>most then
+ wd,most=k,v
+ end
+ end
+ if most>1000 then
+ if trace_loading then
+ logs.report("load otf","most common width: %s (%s times), sharing (cjk font)",wd,most)
+ end
+ for k,v in next,glyphs do
+ if v.width==wd then
+ v.width=nil
+ end
+ end
+ data.luatex.defaultwidth=wd
+ end
+end
+otf.enhancers["reorganize kerns"]=function(data,filename)
+ local glyphs,mapmap,unicodes=data.glyphs,data.luatex.indices,data.luatex.unicodes
+ local mkdone=false
+ local function do_it(lookup,first_unicode,kerns)
+ local glyph=glyphs[mapmap[first_unicode]]
+ if glyph then
+ local mykerns=glyph.mykerns
+ if not mykerns then
+ mykerns={}
+ glyph.mykerns=mykerns
+ end
+ local lookupkerns=mykerns[lookup]
+ if not lookupkerns then
+ lookupkerns={}
+ mykerns[lookup]=lookupkerns
+ end
+ for second_unicode,kern in next,kerns do
+ lookupkerns[second_unicode]=kern
+ end
+ elseif trace_loading then
+ logs.report("load otf","no glyph data for U+%04X",first_unicode)
+ end
+ end
+ for index,glyph in next,glyphs do
+ if glyph.kerns then
+ local mykerns={}
+ for k,v in next,glyph.kerns do
+ local vc,vo,vl=v.char,v.off,v.lookup
+ if vc and vo and vl then
+ local uvc=unicodes[vc]
+ if not uvc then
+ if trace_loading then
+ logs.report("load otf","problems with unicode %s of kern %s at glyph %s",vc,k,index)
+ end
+ else
+ if type(vl)~="table" then
+ vl={ vl }
+ end
+ for l=1,#vl do
+ local vll=vl[l]
+ local mkl=mykerns[vll]
+ if not mkl then
+ mkl={}
+ mykerns[vll]=mkl
+ end
+ if type(uvc)=="table" then
+ for u=1,#uvc do
+ mkl[uvc[u]]=vo
+ end
+ else
+ mkl[uvc]=vo
+ end
+ end
+ end
+ end
+ end
+ glyph.mykerns=mykerns
+ glyph.kerns=nil
+ mkdone=true
+ end
+ end
+ if trace_loading and mkdone then
+ logs.report("load otf","replacing 'kerns' tables by 'mykerns' tables")
+ end
+ if data.kerns then
+ if trace_loading then
+ logs.report("load otf","removing global 'kern' table")
+ end
+ data.kerns=nil
+ end
+ local dgpos=data.gpos
+ if dgpos then
+ local separator=lpeg.P(" ")
+ local other=((1-separator)^0)/unicodes
+ local splitter=lpeg.Ct(other*(separator*other)^0)
+ for gp=1,#dgpos do
+ local gpos=dgpos[gp]
+ local subtables=gpos.subtables
+ if subtables then
+ for s=1,#subtables do
+ local subtable=subtables[s]
+ local kernclass=subtable.kernclass
+ if kernclass then
+ local split={}
+ for k=1,#kernclass do
+ local kcl=kernclass[k]
+ local firsts,seconds,offsets,lookups=kcl.firsts,kcl.seconds,kcl.offsets,kcl.lookup
+ if type(lookups)~="table" then
+ lookups={ lookups }
+ end
+ local maxfirsts,maxseconds=#firsts,#seconds
+ for _,s in next,firsts do
+ split[s]=split[s] or lpegmatch(splitter,s)
+ end
+ for _,s in next,seconds do
+ split[s]=split[s] or lpegmatch(splitter,s)
+ end
+ for l=1,#lookups do
+ local lookup=lookups[l]
+ for fk=1,#firsts do
+ local fv=firsts[fk]
+ local splt=split[fv]
+ if splt then
+ local kerns,baseoffset={},(fk-1)*maxseconds
+ for sk=2,maxseconds do
+ local sv=seconds[sk]
+ local splt=split[sv]
+ if splt then
+ local offset=offsets[baseoffset+sk]
+ if offset then
+ for i=1,#splt do
+ local second_unicode=splt[i]
+ if tonumber(second_unicode) then
+ kerns[second_unicode]=offset
+ else for s=1,#second_unicode do
+ kerns[second_unicode[s]]=offset
+ end end
+ end
+ end
+ end
+ end
+ for i=1,#splt do
+ local first_unicode=splt[i]
+ if tonumber(first_unicode) then
+ do_it(lookup,first_unicode,kerns)
+ else for f=1,#first_unicode do
+ do_it(lookup,first_unicode[f],kerns)
+ end end
+ end
+ end
+ end
+ end
+ end
+ subtable.comment="The kernclass table is merged into mykerns in the indexed glyph tables."
+ subtable.kernclass={}
+ end
+ end
+ end
+ end
+ end
+end
+otf.enhancers["strip not needed data"]=function(data,filename)
+ local verbose=fonts.verbose
+ local int_to_uni=data.luatex.unicodes
+ for k,v in next,data.glyphs do
+ local d=v.dependents
+ if d then v.dependents=nil end
+ local a=v.altuni
+ if a then v.altuni=nil end
+ if verbose then
+ local code=int_to_uni[k]
+ if code then
+ local vu=v.unicode
+ if not vu then
+ v.unicode=code
+ elseif type(vu)=="table" then
+ if vu[#vu]==code then
+ else
+ vu[#vu+1]=code
+ end
+ elseif vu~=code then
+ v.unicode={ vu,code }
+ end
+ end
+ else
+ v.unicode=nil
+ v.index=nil
+ end
+ end
+ data.luatex.comment="Glyph tables have their original index. When present, mykern tables are indexed by unicode."
+ data.map=nil
+ data.names=nil
+ data.glyphcnt=nil
+ data.glyphmax=nil
+ if true then
+ data.gpos=nil
+ data.gsub=nil
+ data.anchor_classes=nil
+ end
+end
+otf.enhancers["migrate metadata"]=function(data,filename)
+ local global_fields=otf.tables.global_fields
+ local metadata={}
+ for k,v in next,data do
+ if not global_fields[k] then
+ metadata[k]=v
+ data[k]=nil
+ end
+ end
+ data.metadata=metadata
+ local pfminfo=data.pfminfo
+ metadata.isfixedpitch=metadata.isfixedpitch or (pfminfo.panose and pfminfo.panose["proportion"]=="Monospaced")
+ metadata.charwidth=pfminfo and pfminfo.avgwidth
+end
+local private_math_parameters={
+ "FractionDelimiterSize",
+ "FractionDelimiterDisplayStyleSize",
+}
+otf.enhancers["check math parameters"]=function(data,filename)
+ local mathdata=data.metadata.math
+ if mathdata then
+ for m=1,#private_math_parameters do
+ local pmp=private_math_parameters[m]
+ if not mathdata[pmp] then
+ if trace_loading then
+ logs.report("load otf","setting math parameter '%s' to 0",pmp)
+ end
+ mathdata[pmp]=0
+ end
+ end
+ end
+end
+otf.enhancers["flatten glyph lookups"]=function(data,filename)
+ for k,v in next,data.glyphs do
+ local lookups=v.lookups
+ if lookups then
+ for kk,vv in next,lookups do
+ for kkk=1,#vv do
+ local vvv=vv[kkk]
+ local s=vvv.specification
+ if s then
+ local t=vvv.type
+ if t=="ligature" then
+ vv[kkk]={ "ligature",s.components,s.char }
+ elseif t=="alternate" then
+ vv[kkk]={ "alternate",s.components }
+ elseif t=="substitution" then
+ vv[kkk]={ "substitution",s.variant }
+ elseif t=="multiple" then
+ vv[kkk]={ "multiple",s.components }
+ elseif t=="position" then
+ vv[kkk]={ "position",{ s.x or 0,s.y or 0,s.h or 0,s.v or 0 } }
+ elseif t=="pair" then
+ local one,two,paired=s.offsets[1],s.offsets[2],s.paired or ""
+ if one then
+ if two then
+ vv[kkk]={ "pair",paired,{ one.x or 0,one.y or 0,one.h or 0,one.v or 0 },{ two.x or 0,two.y or 0,two.h or 0,two.v or 0 } }
+ else
+ vv[kkk]={ "pair",paired,{ one.x or 0,one.y or 0,one.h or 0,one.v or 0 } }
+ end
+ else
+ if two then
+ vv[kkk]={ "pair",paired,{},{ two.x or 0,two.y or 0,two.h or 0,two.v or 0} }
+ else
+ vv[kkk]={ "pair",paired }
+ end
+ end
+ else
+ if trace_loading then
+ logs.report("load otf","flattening needed, report to context list")
+ end
+ for a,b in next,s do
+ if trace_loading and vvv[a] then
+ logs.report("load otf","flattening conflict, report to context list")
+ end
+ vvv[a]=b
+ end
+ vvv.specification=nil
+ end
+ end
+ end
+ end
+ end
+ end
+end
+otf.enhancers["simplify glyph lookups"]=function(data,filename)
+ for k,v in next,data.glyphs do
+ local lookups=v.lookups
+ if lookups then
+ local slookups,mlookups
+ for kk,vv in next,lookups do
+ if #vv==1 then
+ if not slookups then
+ slookups={}
+ v.slookups=slookups
+ end
+ slookups[kk]=vv[1]
+ else
+ if not mlookups then
+ mlookups={}
+ v.mlookups=mlookups
+ end
+ mlookups[kk]=vv
+ end
+ end
+ v.lookups=nil
+ end
+ end
+end
+otf.enhancers["flatten anchor tables"]=function(data,filename)
+ for k,v in next,data.glyphs do
+ if v.anchors then
+ for kk,vv in next,v.anchors do
+ for kkk,vvv in next,vv do
+ if vvv.x or vvv.y then
+ vv[kkk]={ vvv.x or 0,vvv.y or 0 }
+ else
+ for kkkk=1,#vvv do
+ local vvvv=vvv[kkkk]
+ vvv[kkkk]={ vvvv.x or 0,vvvv.y or 0 }
+ end
+ end
+ end
+ end
+ end
+ end
+end
+otf.enhancers["flatten feature tables"]=function(data,filename)
+ for _,tag in next,otf.glists do
+ if data[tag] then
+ if trace_loading then
+ logs.report("load otf","flattening %s table",tag)
+ end
+ for k,v in next,data[tag] do
+ local features=v.features
+ if features then
+ for kk=1,#features do
+ local vv=features[kk]
+ local t={}
+ local scripts=vv.scripts
+ for kkk=1,#scripts do
+ local vvv=scripts[kkk]
+ t[vvv.script]=vvv.langs
+ end
+ vv.scripts=t
+ end
+ end
+ end
+ end
+ end
+end
+otf.enhancers.patches=otf.enhancers.patches or {}
+otf.enhancers["patch bugs"]=function(data,filename)
+ local basename=file.basename(lower(filename))
+ for pattern,action in next,otf.enhancers.patches do
+ if find(basename,pattern) then
+ action(data,filename)
+ end
+ end
+end
+fonts.otf.enhancers["enrich with features"]=function(data,filename)
+end
+function otf.features.register(name,default)
+ otf.features.list[#otf.features.list+1]=name
+ otf.features.default[name]=default
+end
+function otf.set_features(tfmdata,features)
+ local processes={}
+ if features and next(features) then
+ local lists={
+ fonts.triggers,
+ fonts.processors,
+ fonts.manipulators,
+ }
+ local mode=tfmdata.mode or fonts.mode
+ local initializers=fonts.initializers
+ local fi=initializers[mode]
+ if fi then
+ local fiotf=fi.otf
+ if fiotf then
+ local done={}
+ for l=1,4 do
+ local list=lists[l]
+ if list then
+ for i=1,#list do
+ local f=list[i]
+ local value=features[f]
+ if value and fiotf[f] then
+ if not done[f] then
+ if trace_features then
+ logs.report("define otf","initializing feature %s to %s for mode %s for font %s",f,tostring(value),mode or 'unknown',tfmdata.fullname or 'unknown')
+ end
+ fiotf[f](tfmdata,value)
+ mode=tfmdata.mode or fonts.mode
+ local im=initializers[mode]
+ if im then
+ fiotf=initializers[mode].otf
+ end
+ done[f]=true
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ local fm=fonts.methods[mode]
+ if fm then
+ local fmotf=fm.otf
+ if fmotf then
+ for l=1,4 do
+ local list=lists[l]
+ if list then
+ for i=1,#list do
+ local f=list[i]
+ if fmotf[f] then
+ if trace_features then
+ logs.report("define otf","installing feature handler %s for mode %s for font %s",f,mode or 'unknown',tfmdata.fullname or 'unknown')
+ end
+ processes[#processes+1]=fmotf[f]
+ end
+ end
+ end
+ end
+ end
+ else
+ end
+ end
+ return processes,features
+end
+function otf.otf_to_tfm(specification)
+ local name=specification.name
+ local sub=specification.sub
+ local filename=specification.filename
+ local format=specification.format
+ local features=specification.features.normal
+ local cache_id=specification.hash
+ local tfmdata=containers.read(tfm.cache,cache_id)
+ if not tfmdata then
+ local otfdata=otf.load(filename,format,sub,features and features.featurefile)
+ if otfdata and next(otfdata) then
+ otfdata.shared=otfdata.shared or {
+ featuredata={},
+ anchorhash={},
+ initialized=false,
+ }
+ tfmdata=otf.copy_to_tfm(otfdata,cache_id)
+ if tfmdata and next(tfmdata) then
+ tfmdata.unique=tfmdata.unique or {}
+ tfmdata.shared=tfmdata.shared or {}
+ local shared=tfmdata.shared
+ shared.otfdata=otfdata
+ shared.features=features
+ shared.dynamics={}
+ shared.processes={}
+ shared.set_dynamics=otf.set_dynamics
+ tfmdata.luatex=otfdata.luatex
+ tfmdata.indices=otfdata.luatex.indices
+ tfmdata.unicodes=otfdata.luatex.unicodes
+ tfmdata.marks=otfdata.luatex.marks
+ tfmdata.originals=otfdata.luatex.originals
+ tfmdata.changed={}
+ tfmdata.has_italic=otfdata.metadata.has_italic
+ if not tfmdata.language then tfmdata.language='dflt' end
+ if not tfmdata.script then tfmdata.script='dflt' end
+ shared.processes,shared.features=otf.set_features(tfmdata,fonts.define.check(features,otf.features.default))
+ end
+ end
+ containers.write(tfm.cache,cache_id,tfmdata)
+ end
+ return tfmdata
+end
+fonts.formats.dfont="truetype"
+fonts.formats.ttc="truetype"
+fonts.formats.ttf="truetype"
+fonts.formats.otf="opentype"
+function otf.copy_to_tfm(data,cache_id)
+ if data then
+ local glyphs,pfminfo,metadata=data.glyphs or {},data.pfminfo or {},data.metadata or {}
+ local luatex=data.luatex
+ local unicodes=luatex.unicodes
+ local indices=luatex.indices
+ local characters,parameters,math_parameters,descriptions={},{},{},{}
+ local designsize=metadata.designsize or metadata.design_size or 100
+ if designsize==0 then
+ designsize=100
+ end
+ local spaceunits,spacer=500,"space"
+ for u,i in next,indices do
+ characters[u]={}
+ descriptions[u]=glyphs[i]
+ end
+ if metadata.math then
+ for name,value in next,metadata.math do
+ math_parameters[name]=value
+ end
+ for u,char in next,characters do
+ local d=descriptions[u]
+ local m=d.math
+ if m then
+ local variants,parts,c,uc=m.horiz_variants,m.horiz_parts,char,u
+ if variants then
+ for n in gmatch(variants,"[^ ]+") do
+ local un=unicodes[n]
+ if un and uc~=un then
+ c.next=un
+ c=characters[un]
+ uc=un
+ end
+ end
+ c.horiz_variants=parts
+ elseif parts then
+ c.horiz_variants=parts
+ end
+ local variants,parts,c,uc=m.vert_variants,m.vert_parts,char,u
+ if variants then
+ for n in gmatch(variants,"[^ ]+") do
+ local un=unicodes[n]
+ if un and uc~=un then
+ c.next=un
+ c=characters[un]
+ uc=un
+ end
+ end
+ c.vert_variants=parts
+ elseif parts then
+ c.vert_variants=parts
+ end
+ local italic_correction=m.vert_italic_correction
+ if italic_correction then
+ c.vert_italic_correction=italic_correction
+ end
+ local kerns=m.kerns
+ if kerns then
+ char.mathkerns=kerns
+ end
+ end
+ end
+ end
+ local endash,emdash,space=0x20,0x2014,"space"
+ if metadata.isfixedpitch then
+ if descriptions[endash] then
+ spaceunits,spacer=descriptions[endash].width,"space"
+ end
+ if not spaceunits and descriptions[emdash] then
+ spaceunits,spacer=descriptions[emdash].width,"emdash"
+ end
+ if not spaceunits and metadata.charwidth then
+ spaceunits,spacer=metadata.charwidth,"charwidth"
+ end
+ else
+ if descriptions[endash] then
+ spaceunits,spacer=descriptions[endash].width,"space"
+ end
+ if not spaceunits and descriptions[emdash] then
+ spaceunits,spacer=descriptions[emdash].width/2,"emdash/2"
+ end
+ if not spaceunits and metadata.charwidth then
+ spaceunits,spacer=metadata.charwidth,"charwidth"
+ end
+ end
+ spaceunits=tonumber(spaceunits) or tfm.units/2
+ local filename=fonts.tfm.checked_filename(luatex)
+ local fontname=metadata.fontname
+ local fullname=metadata.fullname or fontname
+ local cidinfo=data.cidinfo
+ local units=metadata.units_per_em or 1000
+ cidinfo.registry=cidinfo and cidinfo.registry or ""
+ parameters.slant=0
+ parameters.space=spaceunits
+ parameters.space_stretch=units/2
+ parameters.space_shrink=1*units/3
+ parameters.x_height=2*units/5
+ parameters.quad=units
+ if spaceunits<2*units/5 then
+ end
+ local italicangle=metadata.italicangle
+ if italicangle then
+ parameters.slant=parameters.slant-math.round(math.tan(italicangle*math.pi/180))
+ end
+ if metadata.isfixedpitch then
+ parameters.space_stretch=0
+ parameters.space_shrink=0
+ elseif otf.syncspace then
+ parameters.space_stretch=spaceunits/2
+ parameters.space_shrink=spaceunits/3
+ end
+ parameters.extra_space=parameters.space_shrink
+ if pfminfo.os2_xheight and pfminfo.os2_xheight>0 then
+ parameters.x_height=pfminfo.os2_xheight
+ else
+ local x=0x78
+ if x then
+ local x=descriptions[x]
+ if x then
+ parameters.x_height=x.height
+ end
+ end
+ end
+ return {
+ characters=characters,
+ parameters=parameters,
+ math_parameters=math_parameters,
+ descriptions=descriptions,
+ indices=indices,
+ unicodes=unicodes,
+ type="real",
+ direction=0,
+ boundarychar_label=0,
+ boundarychar=65536,
+ designsize=(designsize/10)*65536,
+ spacer="500 units",
+ encodingbytes=2,
+ filename=filename,
+ fontname=fontname,
+ fullname=fullname,
+ psname=fontname or fullname,
+ name=filename or fullname,
+ units=units,
+ format=fonts.fontformat(filename,"opentype"),
+ cidinfo=cidinfo,
+ ascender=abs(metadata.ascent or 0),
+ descender=abs(metadata.descent or 0),
+ spacer=spacer,
+ italicangle=italicangle,
+ }
+ else
+ return nil
+ end
+end
+otf.features.register('mathsize')
+function tfm.read_from_open_type(specification)
+ local tfmtable=otf.otf_to_tfm(specification)
+ if tfmtable then
+ local otfdata=tfmtable.shared.otfdata
+ tfmtable.name=specification.name
+ tfmtable.sub=specification.sub
+ local s=specification.size
+ local m=otfdata.metadata.math
+ if m then
+ local f=specification.features
+ if f then
+ local f=f.normal
+ if f and f.mathsize then
+ local mathsize=specification.mathsize or 0
+ if mathsize==2 then
+ local p=m.ScriptPercentScaleDown
+ if p then
+ local ps=p*specification.textsize/100
+ if trace_math then
+ logs.report("define font","asked script size: %s, used: %s (%2.2f %%)",s,ps,(ps/s)*100)
+ end
+ s=ps
+ end
+ elseif mathsize==3 then
+ local p=m.ScriptScriptPercentScaleDown
+ if p then
+ local ps=p*specification.textsize/100
+ if trace_math then
+ logs.report("define font","asked scriptscript size: %s, used: %s (%2.2f %%)",s,ps,(ps/s)*100)
+ end
+ s=ps
+ end
+ end
+ end
+ end
+ end
+ tfmtable=tfm.scale(tfmtable,s,specification.relativeid)
+ if tfm.fontname_mode=="specification" then
+ local specname=specification.specification
+ if specname then
+ tfmtable.name=specname
+ if trace_defining then
+ logs.report("define font","overloaded fontname: '%s'",specname)
+ end
+ end
+ end
+ fonts.logger.save(tfmtable,file.extname(specification.filename),specification)
+ end
+ return tfmtable
+end
+function otf.collect_lookups(otfdata,kind,script,language)
+ local sequences=otfdata.luatex.sequences
+ if sequences then
+ local featuremap,featurelist={},{}
+ for s=1,#sequences do
+ local sequence=sequences[s]
+ local features=sequence.features
+ features=features and features[kind]
+ features=features and (features[script] or features[default] or features[wildcard])
+ features=features and (features[language] or features[default] or features[wildcard])
+ if features then
+ local subtables=sequence.subtables
+ if subtables then
+ for s=1,#subtables do
+ local ss=subtables[s]
+ if not featuremap[s] then
+ featuremap[ss]=true
+ featurelist[#featurelist+1]=ss
+ end
+ end
+ end
+ end
+ end
+ if #featurelist>0 then
+ return featuremap,featurelist
+ end
+ end
+ return nil,nil
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-otd']={
+ version=1.001,
+ comment="companion to font-ini.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local trace_dynamics=false trackers.register("otf.dynamics",function(v) trace_dynamics=v end)
+fonts=fonts or {}
+fonts.otf=fonts.otf or {}
+local otf=fonts.otf
+local fontdata=fonts.ids
+otf.features=otf.features or {}
+otf.features.default=otf.features.default or {}
+local context_setups=fonts.define.specify.context_setups
+local context_numbers=fonts.define.specify.context_numbers
+local a_to_script={} otf.a_to_script=a_to_script
+local a_to_language={} otf.a_to_language=a_to_language
+function otf.set_dynamics(font,dynamics,attribute)
+ local features=context_setups[context_numbers[attribute]]
+ if features then
+ local script=features.script or 'dflt'
+ local language=features.language or 'dflt'
+ local ds=dynamics[script]
+ if not ds then
+ ds={}
+ dynamics[script]=ds
+ end
+ local dsl=ds[language]
+ if not dsl then
+ dsl={}
+ ds[language]=dsl
+ end
+ local dsla=dsl[attribute]
+ if dsla then
+ return dsla
+ else
+ local tfmdata=fontdata[font]
+ a_to_script [attribute]=script
+ a_to_language[attribute]=language
+ local saved={
+ script=tfmdata.script,
+ language=tfmdata.language,
+ mode=tfmdata.mode,
+ features=tfmdata.shared.features
+ }
+ tfmdata.mode="node"
+ tfmdata.language=language
+ tfmdata.script=script
+ tfmdata.shared.features={}
+ local set=fonts.define.check(features,otf.features.default)
+ dsla=otf.set_features(tfmdata,set)
+ if trace_dynamics then
+ logs.report("otf define","setting dynamics %s: attribute %s, script %s, language %s, set: %s",context_numbers[attribute],attribute,script,language,table.sequenced(set))
+ end
+ tfmdata.script=saved.script
+ tfmdata.language=saved.language
+ tfmdata.mode=saved.mode
+ tfmdata.shared.features=saved.features
+ dynamics[script][language][attribute]=dsla
+ return dsla
+ end
+ end
+ return nil
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-oti']={
+ version=1.001,
+ comment="companion to font-ini.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local lower=string.lower
+local otf=fonts.otf
+otf.default_language='latn'
+otf.default_script='dflt'
+local languages=otf.tables.languages
+local scripts=otf.tables.scripts
+function otf.features.language(tfmdata,value)
+ if value then
+ value=lower(value)
+ if languages[value] then
+ tfmdata.language=value
+ end
+ end
+end
+function otf.features.script(tfmdata,value)
+ if value then
+ value=lower(value)
+ if scripts[value] then
+ tfmdata.script=value
+ end
+ end
+end
+function otf.features.mode(tfmdata,value)
+ if value then
+ tfmdata.mode=lower(value)
+ end
+end
+fonts.initializers.base.otf.language=otf.features.language
+fonts.initializers.base.otf.script=otf.features.script
+fonts.initializers.base.otf.mode=otf.features.mode
+fonts.initializers.base.otf.method=otf.features.mode
+fonts.initializers.node.otf.language=otf.features.language
+fonts.initializers.node.otf.script=otf.features.script
+fonts.initializers.node.otf.mode=otf.features.mode
+fonts.initializers.node.otf.method=otf.features.mode
+otf.features.register("features",true)
+table.insert(fonts.processors,"features")
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-otb']={
+ version=1.001,
+ comment="companion to font-ini.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local concat=table.concat
+local format,gmatch,gsub,find,match,lower,strip=string.format,string.gmatch,string.gsub,string.find,string.match,string.lower,string.strip
+local type,next,tonumber,tostring=type,next,tonumber,tostring
+local lpegmatch=lpeg.match
+local otf=fonts.otf
+local tfm=fonts.tfm
+local trace_baseinit=false trackers.register("otf.baseinit",function(v) trace_baseinit=v end)
+local trace_singles=false trackers.register("otf.singles",function(v) trace_singles=v end)
+local trace_multiples=false trackers.register("otf.multiples",function(v) trace_multiples=v end)
+local trace_alternatives=false trackers.register("otf.alternatives",function(v) trace_alternatives=v end)
+local trace_ligatures=false trackers.register("otf.ligatures",function(v) trace_ligatures=v end)
+local trace_kerns=false trackers.register("otf.kerns",function(v) trace_kerns=v end)
+local trace_preparing=false trackers.register("otf.preparing",function(v) trace_preparing=v end)
+local wildcard="*"
+local default="dflt"
+local split_at_space=lpeg.Ct(lpeg.splitat(" "))
+local pcache,fcache={},{}
+local function gref(descriptions,n)
+ if type(n)=="number" then
+ local name=descriptions[n].name
+ if name then
+ return format("U+%04X (%s)",n,name)
+ else
+ return format("U+%04X")
+ end
+ elseif n then
+ local num,nam={},{}
+ for i=1,#n do
+ local ni=n[i]
+ num[i]=format("U+%04X",ni)
+ nam[i]=descriptions[ni].name or "?"
+ end
+ return format("%s (%s)",concat(num," "),concat(nam," "))
+ else
+ return "?"
+ end
+end
+local function cref(kind,lookupname)
+ if lookupname then
+ return format("feature %s, lookup %s",kind,lookupname)
+ else
+ return format("feature %s",kind)
+ end
+end
+local function resolve_ligatures(tfmdata,ligatures,kind)
+ kind=kind or "unknown"
+ local unicodes=tfmdata.unicodes
+ local characters=tfmdata.characters
+ local descriptions=tfmdata.descriptions
+ local changed=tfmdata.changed
+ local done={}
+ while true do
+ local ok=false
+ for k,v in next,ligatures do
+ local lig=v[1]
+ if not done[lig] then
+ local ligs=lpegmatch(split_at_space,lig)
+ if #ligs==2 then
+ local uc=v[2]
+ local c,f,s=characters[uc],ligs[1],ligs[2]
+ local uft,ust=unicodes[f] or 0,unicodes[s] or 0
+ if not uft or not ust then
+ logs.report("define otf","%s: unicode problem with base ligature %s = %s + %s",cref(kind),gref(descriptions,uc),gref(descriptions,uft),gref(descriptions,ust))
+ else
+ if type(uft)=="number" then uft={ uft } end
+ if type(ust)=="number" then ust={ ust } end
+ for ufi=1,#uft do
+ local uf=uft[ufi]
+ for usi=1,#ust do
+ local us=ust[usi]
+ if changed[uf] or changed[us] then
+ if trace_baseinit and trace_ligatures then
+ logs.report("define otf","%s: base ligature %s + %s ignored",cref(kind),gref(descriptions,uf),gref(descriptions,us))
+ end
+ else
+ local first,second=characters[uf],us
+ if first and second then
+ local t=first.ligatures
+ if not t then
+ t={}
+ first.ligatures=t
+ end
+ if type(uc)=="number" then
+ t[second]={ type=0,char=uc }
+ else
+ t[second]={ type=0,char=uc[1] }
+ end
+ if trace_baseinit and trace_ligatures then
+ logs.report("define otf","%s: base ligature %s + %s => %s",cref(kind),gref(descriptions,uf),gref(descriptions,us),gref(descriptions,uc))
+ end
+ end
+ end
+ end
+ end
+ end
+ ok,done[lig]=true,descriptions[uc].name
+ end
+ end
+ end
+ if ok then
+ for d,n in next,done do
+ local pattern=pcache[d] if not pattern then pattern="^("..d..") " pcache[d]=pattern end
+ local fnc=fcache[n] if not fnc then fnc=function() return n.." " end fcache[n]=fnc end
+ for k,v in next,ligatures do
+ v[1]=gsub(v[1],pattern,fnc)
+ end
+ end
+ else
+ break
+ end
+ end
+end
+local splitter=lpeg.splitat(" ")
+local function prepare_base_substitutions(tfmdata,kind,value)
+ if value then
+ local otfdata=tfmdata.shared.otfdata
+ local validlookups,lookuplist=otf.collect_lookups(otfdata,kind,tfmdata.script,tfmdata.language)
+ if validlookups then
+ local ligatures={}
+ local unicodes=tfmdata.unicodes
+ local indices=tfmdata.indices
+ local characters=tfmdata.characters
+ local descriptions=tfmdata.descriptions
+ local changed=tfmdata.changed
+ local actions={
+ substitution=function(p,lookup,k,glyph,unicode)
+ local pv=p[2]
+ if pv then
+ local upv=unicodes[pv]
+ if upv then
+ if type(upv)=="table" then
+ upv=upv[1]
+ end
+ if characters[upv] then
+ if trace_baseinit and trace_singles then
+ logs.report("define otf","%s: base substitution %s => %s",cref(kind,lookup),gref(descriptions,k),gref(descriptions,upv))
+ end
+ changed[k]=upv
+ end
+ end
+ end
+ end,
+ alternate=function(p,lookup,k,glyph,unicode)
+ local pc=p[2]
+ if pc then
+ if value==1 then
+ pc=lpegmatch(splitter,pc)
+ elseif value==2 then
+ local a,b=lpegmatch(splitter,pc)
+ pc=b or a
+ else
+ pc={ lpegmatch(splitter,pc) }
+ pc=pc[value] or pc[#pc]
+ end
+ if pc then
+ local upc=unicodes[pc]
+ if upc then
+ if type(upc)=="table" then
+ upc=upc[1]
+ end
+ if characters[upc] then
+ if trace_baseinit and trace_alternatives then
+ logs.report("define otf","%s: base alternate %s %s => %s",cref(kind,lookup),tostring(value),gref(descriptions,k),gref(descriptions,upc))
+ end
+ changed[k]=upc
+ end
+ end
+ end
+ end
+ end,
+ ligature=function(p,lookup,k,glyph,unicode)
+ local pc=p[2]
+ if pc then
+ if trace_baseinit and trace_ligatures then
+ local upc={ lpegmatch(splitter,pc) }
+ for i=1,#upc do upc[i]=unicodes[upc[i]] end
+ logs.report("define otf","%s: base ligature %s => %s",cref(kind,lookup),gref(descriptions,upc),gref(descriptions,k))
+ end
+ ligatures[#ligatures+1]={ pc,k }
+ end
+ end,
+ }
+ for k,c in next,characters do
+ local glyph=descriptions[k]
+ local lookups=glyph.slookups
+ if lookups then
+ for l=1,#lookuplist do
+ local lookup=lookuplist[l]
+ local p=lookups[lookup]
+ if p then
+ local a=actions[p[1]]
+ if a then
+ a(p,lookup,k,glyph,unicode)
+ end
+ end
+ end
+ end
+ local lookups=glyph.mlookups
+ if lookups then
+ for l=1,#lookuplist do
+ local lookup=lookuplist[l]
+ local ps=lookups[lookup]
+ if ps then
+ for i=1,#ps do
+ local p=ps[i]
+ local a=actions[p[1]]
+ if a then
+ a(p,lookup,k,glyph,unicode)
+ end
+ end
+ end
+ end
+ end
+ end
+ resolve_ligatures(tfmdata,ligatures,kind)
+ end
+ else
+ tfmdata.ligatures=tfmdata.ligatures or {}
+ end
+end
+local function prepare_base_kerns(tfmdata,kind,value)
+ if value then
+ local otfdata=tfmdata.shared.otfdata
+ local validlookups,lookuplist=otf.collect_lookups(otfdata,kind,tfmdata.script,tfmdata.language)
+ if validlookups then
+ local unicodes=tfmdata.unicodes
+ local indices=tfmdata.indices
+ local characters=tfmdata.characters
+ local descriptions=tfmdata.descriptions
+ local sharedkerns={}
+ for u,chr in next,characters do
+ local d=descriptions[u]
+ if d then
+ local dk=d.mykerns
+ if dk then
+ local s=sharedkerns[dk]
+ if s==false then
+ elseif s then
+ chr.kerns=s
+ else
+ local t,done=chr.kerns or {},false
+ for l=1,#lookuplist do
+ local lookup=lookuplist[l]
+ local kerns=dk[lookup]
+ if kerns then
+ for k,v in next,kerns do
+ if v~=0 and not t[k] then
+ t[k],done=v,true
+ if trace_baseinit and trace_kerns then
+ logs.report("define otf","%s: base kern %s + %s => %s",cref(kind,lookup),gref(descriptions,u),gref(descriptions,k),v)
+ end
+ end
+ end
+ end
+ end
+ if done then
+ sharedkerns[dk]=t
+ chr.kerns=t
+ else
+ sharedkerns[dk]=false
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+end
+local supported_gsub={
+ 'liga','dlig','rlig','hlig',
+ 'pnum','onum','tnum','lnum',
+ 'zero',
+ 'smcp','cpsp','c2sc','ornm','aalt',
+ 'hwid','fwid',
+ 'ssty','rtlm',
+}
+local supported_gpos={
+ 'kern'
+}
+function otf.features.register_base_substitution(tag)
+ supported_gsub[#supported_gsub+1]=tag
+end
+function otf.features.register_base_kern(tag)
+ supported_gsub[#supported_gpos+1]=tag
+end
+local basehash,basehashes={},1
+function fonts.initializers.base.otf.features(tfmdata,value)
+ if true then
+ local t=trace_preparing and os.clock()
+ local features=tfmdata.shared.features
+ if features then
+ local h={}
+ for f=1,#supported_gsub do
+ local feature=supported_gsub[f]
+ local value=features[feature]
+ prepare_base_substitutions(tfmdata,feature,value)
+ if value then
+ h[#h+1]=feature.."="..tostring(value)
+ end
+ end
+ for f=1,#supported_gpos do
+ local feature=supported_gpos[f]
+ local value=features[feature]
+ prepare_base_kerns(tfmdata,feature,features[feature])
+ if value then
+ h[#h+1]=feature.."="..tostring(value)
+ end
+ end
+ local hash=concat(h," ")
+ local base=basehash[hash]
+ if not base then
+ basehashes=basehashes+1
+ base=basehashes
+ basehash[hash]=base
+ end
+ tfmdata.fullname=tfmdata.fullname.."-"..base
+ end
+ if trace_preparing then
+ logs.report("otf define","preparation time is %0.3f seconds for %s",os.clock()-t,tfmdata.fullname or "?")
+ end
+ end
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-otn']={
+ version=1.001,
+ comment="companion to font-ini.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local concat,insert,remove=table.concat,table.insert,table.remove
+local format,gmatch,gsub,find,match,lower,strip=string.format,string.gmatch,string.gsub,string.find,string.match,string.lower,string.strip
+local type,next,tonumber,tostring=type,next,tonumber,tostring
+local lpegmatch=lpeg.match
+local otf=fonts.otf
+local tfm=fonts.tfm
+local trace_lookups=false trackers.register("otf.lookups",function(v) trace_lookups=v end)
+local trace_singles=false trackers.register("otf.singles",function(v) trace_singles=v end)
+local trace_multiples=false trackers.register("otf.multiples",function(v) trace_multiples=v end)
+local trace_alternatives=false trackers.register("otf.alternatives",function(v) trace_alternatives=v end)
+local trace_ligatures=false trackers.register("otf.ligatures",function(v) trace_ligatures=v end)
+local trace_contexts=false trackers.register("otf.contexts",function(v) trace_contexts=v end)
+local trace_marks=false trackers.register("otf.marks",function(v) trace_marks=v end)
+local trace_kerns=false trackers.register("otf.kerns",function(v) trace_kerns=v end)
+local trace_cursive=false trackers.register("otf.cursive",function(v) trace_cursive=v end)
+local trace_preparing=false trackers.register("otf.preparing",function(v) trace_preparing=v end)
+local trace_bugs=false trackers.register("otf.bugs",function(v) trace_bugs=v end)
+local trace_details=false trackers.register("otf.details",function(v) trace_details=v end)
+local trace_applied=false trackers.register("otf.applied",function(v) trace_applied=v end)
+local trace_steps=false trackers.register("otf.steps",function(v) trace_steps=v end)
+local trace_skips=false trackers.register("otf.skips",function(v) trace_skips=v end)
+local trace_directions=false trackers.register("otf.directions",function(v) trace_directions=v end)
+trackers.register("otf.verbose_chain",function(v) otf.setcontextchain(v and "verbose") end)
+trackers.register("otf.normal_chain",function(v) otf.setcontextchain(v and "normal") end)
+trackers.register("otf.replacements","otf.singles,otf.multiples,otf.alternatives,otf.ligatures")
+trackers.register("otf.positions","otf.marks,otf.kerns,otf.cursive")
+trackers.register("otf.actions","otf.replacements,otf.positions")
+trackers.register("otf.injections","nodes.injections")
+trackers.register("*otf.sample","otf.steps,otf.actions,otf.analyzing")
+local insert_node_after=node.insert_after
+local delete_node=nodes.delete
+local copy_node=node.copy
+local find_node_tail=node.tail or node.slide
+local set_attribute=node.set_attribute
+local has_attribute=node.has_attribute
+local zwnj=0x200C
+local zwj=0x200D
+local wildcard="*"
+local default="dflt"
+local split_at_space=lpeg.splitters[" "] or lpeg.Ct(lpeg.splitat(" "))
+local glyph=node.id('glyph')
+local glue=node.id('glue')
+local kern=node.id('kern')
+local disc=node.id('disc')
+local whatsit=node.id('whatsit')
+local state=attributes.private('state')
+local markbase=attributes.private('markbase')
+local markmark=attributes.private('markmark')
+local markdone=attributes.private('markdone')
+local cursbase=attributes.private('cursbase')
+local curscurs=attributes.private('curscurs')
+local cursdone=attributes.private('cursdone')
+local kernpair=attributes.private('kernpair')
+local set_mark=nodes.set_mark
+local set_cursive=nodes.set_cursive
+local set_kern=nodes.set_kern
+local set_pair=nodes.set_pair
+local markonce=true
+local cursonce=true
+local kernonce=true
+local fontdata=fonts.ids
+otf.features.process={}
+local tfmdata=false
+local otfdata=false
+local characters=false
+local descriptions=false
+local marks=false
+local indices=false
+local unicodes=false
+local currentfont=false
+local lookuptable=false
+local anchorlookups=false
+local handlers={}
+local rlmode=0
+local featurevalue=false
+local context_setups=fonts.define.specify.context_setups
+local context_numbers=fonts.define.specify.context_numbers
+local context_merged=fonts.define.specify.context_merged
+local special_attributes={
+ init=1,
+ medi=2,
+ fina=3,
+ isol=4
+}
+local checkstep=(nodes and nodes.tracers and nodes.tracers.steppers.check) or function() end
+local registerstep=(nodes and nodes.tracers and nodes.tracers.steppers.register) or function() end
+local registermessage=(nodes and nodes.tracers and nodes.tracers.steppers.message) or function() end
+local function logprocess(...)
+ if trace_steps then
+ registermessage(...)
+ end
+ logs.report("otf direct",...)
+end
+local function logwarning(...)
+ logs.report("otf direct",...)
+end
+local function gref(n)
+ if type(n)=="number" then
+ local description=descriptions[n]
+ local name=description and description.name
+ if name then
+ return format("U+%04X (%s)",n,name)
+ else
+ return format("U+%04X",n)
+ end
+ elseif not n then
+ return "<error in tracing>"
+ else
+ local num,nam={},{}
+ for i=1,#n do
+ local ni=n[i]
+ num[#num+1]=format("U+%04X",ni)
+ local dni=descriptions[ni]
+ nam[#num]=(dni and dni.name) or "?"
+ end
+ return format("%s (%s)",concat(num," "),concat(nam," "))
+ end
+end
+local function cref(kind,chainname,chainlookupname,lookupname,index)
+ if index then
+ return format("feature %s, chain %s, sub %s, lookup %s, index %s",kind,chainname,chainlookupname,lookupname,index)
+ elseif lookupname then
+ return format("feature %s, chain %s, sub %s, lookup %s",kind,chainname or "?",chainlookupname or "?",lookupname)
+ elseif chainlookupname then
+ return format("feature %s, chain %s, sub %s",kind,chainname or "?",chainlookupname)
+ elseif chainname then
+ return format("feature %s, chain %s",kind,chainname)
+ else
+ return format("feature %s",kind)
+ end
+end
+local function pref(kind,lookupname)
+ return format("feature %s, lookup %s",kind,lookupname)
+end
+local function markstoligature(kind,lookupname,start,stop,char)
+ local n=copy_node(start)
+ local keep=start
+ local current
+ current,start=insert_node_after(start,start,n)
+ local snext=stop.next
+ current.next=snext
+ if snext then
+ snext.prev=current
+ end
+ start.prev,stop.next=nil,nil
+ current.char,current.subtype,current.components=char,2,start
+ return keep
+end
+local function toligature(kind,lookupname,start,stop,char,markflag,discfound)
+ if start~=stop then
+ if discfound then
+ local lignode=copy_node(start)
+ lignode.font,lignode.char,lignode.subtype=start.font,char,2
+ local next,prev=stop.next,start.prev
+ stop.next=nil
+ lignode=node.do_ligature_n(start,stop,lignode)
+ prev.next=lignode
+ if next then
+ next.prev=lignode
+ end
+ lignode.next,lignode.prev=next,prev
+ start=lignode
+ else
+ local deletemarks=markflag~="mark"
+ local n=copy_node(start)
+ local current
+ current,start=insert_node_after(start,start,n)
+ local snext=stop.next
+ current.next=snext
+ if snext then
+ snext.prev=current
+ end
+ start.prev,stop.next=nil,nil
+ current.char,current.subtype,current.components=char,2,start
+ local head=current
+ if deletemarks then
+ if trace_marks then
+ while start do
+ if marks[start.char] then
+ logwarning("%s: remove mark %s",pref(kind,lookupname),gref(start.char))
+ end
+ start=start.next
+ end
+ end
+ else
+ local i=0
+ while start do
+ if marks[start.char] then
+ set_attribute(start,markdone,i)
+ if trace_marks then
+ logwarning("%s: keep mark %s, gets index %s",pref(kind,lookupname),gref(start.char),i)
+ end
+ head,current=insert_node_after(head,current,copy_node(start))
+ else
+ i=i+1
+ end
+ start=start.next
+ end
+ start=current.next
+ while start and start.id==glyph do
+ if marks[start.char] then
+ set_attribute(start,markdone,i)
+ if trace_marks then
+ logwarning("%s: keep mark %s, gets index %s",pref(kind,lookupname),gref(start.char),i)
+ end
+ else
+ break
+ end
+ start=start.next
+ end
+ end
+ return head
+ end
+ else
+ start.char=char
+ end
+ return start
+end
+function handlers.gsub_single(start,kind,lookupname,replacement)
+ if trace_singles then
+ logprocess("%s: replacing %s by single %s",pref(kind,lookupname),gref(start.char),gref(replacement))
+ end
+ start.char=replacement
+ return start,true
+end
+local function alternative_glyph(start,alternatives,kind,chainname,chainlookupname,lookupname)
+ local value,choice,n=featurevalue or tfmdata.shared.features[kind],nil,#alternatives
+ if value=="random" then
+ local r=math.random(1,n)
+ value,choice=format("random, choice %s",r),alternatives[r]
+ elseif value=="first" then
+ value,choice=format("first, choice %s",1),alternatives[1]
+ elseif value=="last" then
+ value,choice=format("last, choice %s",n),alternatives[n]
+ else
+ value=tonumber(value)
+ if type(value)~="number" then
+ value,choice="default, choice 1",alternatives[1]
+ elseif value>n then
+ value,choice=format("no %s variants, taking %s",value,n),alternatives[n]
+ elseif value==0 then
+ value,choice=format("choice %s (no change)",value),start.char
+ elseif value<1 then
+ value,choice=format("no %s variants, taking %s",value,1),alternatives[1]
+ else
+ value,choice=format("choice %s",value),alternatives[value]
+ end
+ end
+ if not choice then
+ logwarning("%s: no variant %s for %s",cref(kind,chainname,chainlookupname,lookupname),value,gref(start.char))
+ choice,value=start.char,format("no replacement instead of %s",value)
+ end
+ return choice,value
+end
+function handlers.gsub_alternate(start,kind,lookupname,alternative,sequence)
+ local choice,index=alternative_glyph(start,alternative,kind,lookupname)
+ if trace_alternatives then
+ logprocess("%s: replacing %s by alternative %s (%s)",pref(kind,lookupname),gref(start.char),gref(choice),index)
+ end
+ start.char=choice
+ return start,true
+end
+function handlers.gsub_multiple(start,kind,lookupname,multiple)
+ if trace_multiples then
+ logprocess("%s: replacing %s by multiple %s",pref(kind,lookupname),gref(start.char),gref(multiple))
+ end
+ start.char=multiple[1]
+ if #multiple>1 then
+ for k=2,#multiple do
+ local n=copy_node(start)
+ n.char=multiple[k]
+ local sn=start.next
+ n.next=sn
+ n.prev=start
+ if sn then
+ sn.prev=n
+ end
+ start.next=n
+ start=n
+ end
+ end
+ return start,true
+end
+function handlers.gsub_ligature(start,kind,lookupname,ligature,sequence)
+ local s,stop,discfound=start.next,nil,false
+ local startchar=start.char
+ if marks[startchar] then
+ while s do
+ local id=s.id
+ if id==glyph and s.subtype<256 then
+ if s.font==currentfont then
+ local char=s.char
+ local lg=ligature[1][char]
+ if not lg then
+ break
+ else
+ stop=s
+ ligature=lg
+ s=s.next
+ end
+ else
+ break
+ end
+ else
+ break
+ end
+ end
+ if stop and ligature[2] then
+ if trace_ligatures then
+ local stopchar=stop.char
+ start=markstoligature(kind,lookupname,start,stop,ligature[2])
+ logprocess("%s: replacing %s upto %s by ligature %s",pref(kind,lookupname),gref(startchar),gref(stopchar),gref(start.char))
+ else
+ start=markstoligature(kind,lookupname,start,stop,ligature[2])
+ end
+ return start,true
+ end
+ else
+ local skipmark=sequence.flags[1]
+ while s do
+ local id=s.id
+ if id==glyph and s.subtype<256 then
+ if s.font==currentfont then
+ local char=s.char
+ if skipmark and marks[char] then
+ s=s.next
+ else
+ local lg=ligature[1][char]
+ if not lg then
+ break
+ else
+ stop=s
+ ligature=lg
+ s=s.next
+ end
+ end
+ else
+ break
+ end
+ elseif id==disc then
+ discfound=true
+ s=s.next
+ else
+ break
+ end
+ end
+ if stop and ligature[2] then
+ if trace_ligatures then
+ local stopchar=stop.char
+ start=toligature(kind,lookupname,start,stop,ligature[2],skipmark,discfound)
+ logprocess("%s: replacing %s upto %s by ligature %s",pref(kind,lookupname),gref(startchar),gref(stopchar),gref(start.char))
+ else
+ start=toligature(kind,lookupname,start,stop,ligature[2],skipmark,discfound)
+ end
+ return start,true
+ end
+ end
+ return start,false
+end
+function handlers.gpos_mark2base(start,kind,lookupname,markanchors,sequence)
+ local markchar=start.char
+ if marks[markchar] then
+ local base=start.prev
+ if base and base.id==glyph and base.subtype<256 and base.font==currentfont then
+ local basechar=base.char
+ if marks[basechar] then
+ while true do
+ base=base.prev
+ if base and base.id==glyph and base.subtype<256 and base.font==currentfont then
+ basechar=base.char
+ if not marks[basechar] then
+ break
+ end
+ else
+ if trace_bugs then
+ logwarning("%s: no base for mark %s",pref(kind,lookupname),gref(markchar))
+ end
+ return start,false
+ end
+ end
+ end
+ local baseanchors=descriptions[basechar]
+ if baseanchors then
+ baseanchors=baseanchors.anchors
+ end
+ if baseanchors then
+ local baseanchors=baseanchors['basechar']
+ if baseanchors then
+ local al=anchorlookups[lookupname]
+ for anchor,ba in next,baseanchors do
+ if al[anchor] then
+ local ma=markanchors[anchor]
+ if ma then
+ local dx,dy,bound=set_mark(start,base,tfmdata.factor,rlmode,ba,ma)
+ if trace_marks then
+ logprocess("%s, anchor %s, bound %s: anchoring mark %s to basechar %s => (%s,%s)",
+ pref(kind,lookupname),anchor,bound,gref(markchar),gref(basechar),dx,dy)
+ end
+ return start,true
+ end
+ end
+ end
+ if trace_bugs then
+ logwarning("%s, no matching anchors for mark %s and base %s",pref(kind,lookupname),gref(markchar),gref(basechar))
+ end
+ end
+ else
+ fonts.register_message(currentfont,basechar,"no base anchors")
+ end
+ elseif trace_bugs then
+ logwarning("%s: prev node is no char",pref(kind,lookupname))
+ end
+ elseif trace_bugs then
+ logwarning("%s: mark %s is no mark",pref(kind,lookupname),gref(markchar))
+ end
+ return start,false
+end
+function handlers.gpos_mark2ligature(start,kind,lookupname,markanchors,sequence)
+ local markchar=start.char
+ if marks[markchar] then
+ local base=start.prev
+ local index=1
+ if base and base.id==glyph and base.subtype<256 and base.font==currentfont then
+ local basechar=base.char
+ if marks[basechar] then
+ index=index+1
+ while true do
+ base=base.prev
+ if base and base.id==glyph and base.subtype<256 and base.font==currentfont then
+ basechar=base.char
+ if marks[basechar] then
+ index=index+1
+ else
+ break
+ end
+ else
+ if trace_bugs then
+ logwarning("%s: no base for mark %s",pref(kind,lookupname),gref(markchar))
+ end
+ return start,false
+ end
+ end
+ end
+ local i=has_attribute(start,markdone)
+ if i then index=i end
+ local baseanchors=descriptions[basechar]
+ if baseanchors then
+ baseanchors=baseanchors.anchors
+ if baseanchors then
+ local baseanchors=baseanchors['baselig']
+ if baseanchors then
+ local al=anchorlookups[lookupname]
+ for anchor,ba in next,baseanchors do
+ if al[anchor] then
+ local ma=markanchors[anchor]
+ if ma then
+ ba=ba[index]
+ if ba then
+ local dx,dy,bound=set_mark(start,base,tfmdata.factor,rlmode,ba,ma,index)
+ if trace_marks then
+ logprocess("%s, anchor %s, index %s, bound %s: anchoring mark %s to baselig %s at index %s => (%s,%s)",
+ pref(kind,lookupname),anchor,index,bound,gref(markchar),gref(basechar),index,dx,dy)
+ end
+ return start,true
+ end
+ end
+ end
+ end
+ if trace_bugs then
+ logwarning("%s: no matching anchors for mark %s and baselig %s",pref(kind,lookupname),gref(markchar),gref(basechar))
+ end
+ end
+ end
+ else
+ fonts.register_message(currentfont,basechar,"no base anchors")
+ end
+ elseif trace_bugs then
+ logwarning("%s: prev node is no char",pref(kind,lookupname))
+ end
+ elseif trace_bugs then
+ logwarning("%s: mark %s is no mark",pref(kind,lookupname),gref(markchar))
+ end
+ return start,false
+end
+function handlers.gpos_mark2mark(start,kind,lookupname,markanchors,sequence)
+ local markchar=start.char
+ if marks[markchar] then
+ local base=start.prev
+ if base and base.id==glyph and base.subtype<256 and base.font==currentfont then
+ local basechar=base.char
+ local baseanchors=descriptions[basechar]
+ if baseanchors then
+ baseanchors=baseanchors.anchors
+ if baseanchors then
+ baseanchors=baseanchors['basemark']
+ if baseanchors then
+ local al=anchorlookups[lookupname]
+ for anchor,ba in next,baseanchors do
+ if al[anchor] then
+ local ma=markanchors[anchor]
+ if ma then
+ local dx,dy,bound=set_mark(start,base,tfmdata.factor,rlmode,ba,ma)
+ if trace_marks then
+ logprocess("%s, anchor %s, bound %s: anchoring mark %s to basemark %s => (%s,%s)",
+ pref(kind,lookupname),anchor,bound,gref(markchar),gref(basechar),dx,dy)
+ end
+ return start,true
+ end
+ end
+ end
+ if trace_bugs then
+ logwarning("%s: no matching anchors for mark %s and basemark %s",pref(kind,lookupname),gref(markchar),gref(basechar))
+ end
+ end
+ end
+ else
+ fonts.register_message(currentfont,basechar,"no base anchors")
+ end
+ elseif trace_bugs then
+ logwarning("%s: prev node is no mark",pref(kind,lookupname))
+ end
+ elseif trace_bugs then
+ logwarning("%s: mark %s is no mark",pref(kind,lookupname),gref(markchar))
+ end
+ return start,false
+end
+function handlers.gpos_cursive(start,kind,lookupname,exitanchors,sequence)
+ local alreadydone=cursonce and has_attribute(start,cursbase)
+ if not alreadydone then
+ local done=false
+ local startchar=start.char
+ if marks[startchar] then
+ if trace_cursive then
+ logprocess("%s: ignoring cursive for mark %s",pref(kind,lookupname),gref(startchar))
+ end
+ else
+ local nxt=start.next
+ while not done and nxt and nxt.id==glyph and nxt.subtype<256 and nxt.font==currentfont do
+ local nextchar=nxt.char
+ if marks[nextchar] then
+ nxt=nxt.next
+ else
+ local entryanchors=descriptions[nextchar]
+ if entryanchors then
+ entryanchors=entryanchors.anchors
+ if entryanchors then
+ entryanchors=entryanchors['centry']
+ if entryanchors then
+ local al=anchorlookups[lookupname]
+ for anchor,entry in next,entryanchors do
+ if al[anchor] then
+ local exit=exitanchors[anchor]
+ if exit then
+ local dx,dy,bound=set_cursive(start,nxt,tfmdata.factor,rlmode,exit,entry,characters[startchar],characters[nextchar])
+ if trace_cursive then
+ logprocess("%s: moving %s to %s cursive (%s,%s) using anchor %s and bound %s in rlmode %s",pref(kind,lookupname),gref(startchar),gref(nextchar),dx,dy,anchor,bound,rlmode)
+ end
+ done=true
+ break
+ end
+ end
+ end
+ end
+ end
+ else
+ fonts.register_message(currentfont,startchar,"no entry anchors")
+ end
+ break
+ end
+ end
+ end
+ return start,done
+ else
+ if trace_cursive and trace_details then
+ logprocess("%s, cursive %s is already done",pref(kind,lookupname),gref(start.char),alreadydone)
+ end
+ return start,false
+ end
+end
+function handlers.gpos_single(start,kind,lookupname,kerns,sequence)
+ local startchar=start.char
+ local dx,dy,w,h=set_pair(start,tfmdata.factor,rlmode,sequence.flags[4],kerns,characters[startchar])
+ if trace_kerns then
+ logprocess("%s: shifting single %s by (%s,%s) and correction (%s,%s)",pref(kind,lookupname),gref(startchar),dx,dy,w,h)
+ end
+ return start,false
+end
+function handlers.gpos_pair(start,kind,lookupname,kerns,sequence)
+ local snext=start.next
+ if not snext then
+ return start,false
+ else
+ local prev,done=start,false
+ local factor=tfmdata.factor
+ while snext and snext.id==glyph and snext.subtype<256 and snext.font==currentfont do
+ local nextchar=snext.char
+local krn=kerns[nextchar]
+ if not krn and marks[nextchar] then
+ prev=snext
+ snext=snext.next
+ else
+ local krn=kerns[nextchar]
+ if not krn then
+ elseif type(krn)=="table" then
+ if krn[1]=="pair" then
+ local a,b=krn[3],krn[4]
+ if a and #a>0 then
+ local startchar=start.char
+ local x,y,w,h=set_pair(start,factor,rlmode,sequence.flags[4],a,characters[startchar])
+ if trace_kerns then
+ logprocess("%s: shifting first of pair %s and %s by (%s,%s) and correction (%s,%s)",pref(kind,lookupname),gref(startchar),gref(nextchar),x,y,w,h)
+ end
+ end
+ if b and #b>0 then
+ local startchar=start.char
+ local x,y,w,h=set_pair(snext,factor,rlmode,sequence.flags[4],b,characters[nextchar])
+ if trace_kerns then
+ logprocess("%s: shifting second of pair %s and %s by (%s,%s) and correction (%s,%s)",pref(kind,lookupname),gref(startchar),gref(nextchar),x,y,w,h)
+ end
+ end
+ else
+ logs.report("%s: check this out (old kern stuff)",pref(kind,lookupname))
+ local a,b=krn[3],krn[7]
+ if a and a~=0 then
+ local k=set_kern(snext,factor,rlmode,a)
+ if trace_kerns then
+ logprocess("%s: inserting first kern %s between %s and %s",pref(kind,lookupname),k,gref(prev.char),gref(nextchar))
+ end
+ end
+ if b and b~=0 then
+ logwarning("%s: ignoring second kern xoff %s",pref(kind,lookupname),b*factor)
+ end
+ end
+ done=true
+ elseif krn~=0 then
+ local k=set_kern(snext,factor,rlmode,krn)
+ if trace_kerns then
+ logprocess("%s: inserting kern %s between %s and %s",pref(kind,lookupname),k,gref(prev.char),gref(nextchar))
+ end
+ done=true
+ end
+ break
+ end
+ end
+ return start,done
+ end
+end
+local chainmores={}
+local chainprocs={}
+local function logprocess(...)
+ if trace_steps then
+ registermessage(...)
+ end
+ logs.report("otf subchain",...)
+end
+local function logwarning(...)
+ logs.report("otf subchain",...)
+end
+function chainmores.chainsub(start,stop,kind,chainname,currentcontext,cache,lookuplist,chainlookupname,n)
+ logprocess("%s: a direct call to chainsub cannot happen",cref(kind,chainname,chainlookupname))
+ return start,false
+end
+function chainmores.gsub_multiple(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname,n)
+ logprocess("%s: gsub_multiple not yet supported",cref(kind,chainname,chainlookupname))
+ return start,false
+end
+function chainmores.gsub_alternate(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname,n)
+ logprocess("%s: gsub_alternate not yet supported",cref(kind,chainname,chainlookupname))
+ return start,false
+end
+local function logprocess(...)
+ if trace_steps then
+ registermessage(...)
+ end
+ logs.report("otf chain",...)
+end
+local function logwarning(...)
+ logs.report("otf chain",...)
+end
+function chainprocs.chainsub(start,stop,kind,chainname,currentcontext,cache,lookuplist,chainlookupname)
+ logwarning("%s: a direct call to chainsub cannot happen",cref(kind,chainname,chainlookupname))
+ return start,false
+end
+function chainprocs.reversesub(start,stop,kind,chainname,currentcontext,cache,replacements)
+ local char=start.char
+ local replacement=replacements[char]
+ if replacement then
+ if trace_singles then
+ logprocess("%s: single reverse replacement of %s by %s",cref(kind,chainname),gref(char),gref(replacement))
+ end
+ start.char=replacement
+ return start,true
+ else
+ return start,false
+ end
+end
+local function delete_till_stop(start,stop,ignoremarks)
+ if start~=stop then
+ local done=false
+ while not done do
+ done=start==stop
+ delete_node(start,start.next)
+ end
+ end
+end
+function chainprocs.gsub_single(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname,chainindex)
+ if not chainindex then
+ delete_till_stop(start,stop)
+ end
+ local current=start
+ local subtables=currentlookup.subtables
+ while current do
+ if current.id==glyph then
+ local currentchar=current.char
+ local lookupname=subtables[1]
+ local replacement=cache.gsub_single[lookupname]
+ if not replacement then
+ if trace_bugs then
+ logwarning("%s: no single hits",cref(kind,chainname,chainlookupname,lookupname,chainindex))
+ end
+ else
+ replacement=replacement[currentchar]
+ if not replacement then
+ if trace_bugs then
+ logwarning("%s: no single for %s",cref(kind,chainname,chainlookupname,lookupname,chainindex),gref(currentchar))
+ end
+ else
+ if trace_singles then
+ logprocess("%s: replacing single %s by %s",cref(kind,chainname,chainlookupname,lookupname,chainindex),gref(currentchar),gref(replacement))
+ end
+ current.char=replacement
+ end
+ end
+ return start,true
+ elseif current==stop then
+ break
+ else
+ current=current.next
+ end
+ end
+ return start,false
+end
+chainmores.gsub_single=chainprocs.gsub_single
+function chainprocs.gsub_multiple(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname)
+ delete_till_stop(start,stop)
+ local startchar=start.char
+ local subtables=currentlookup.subtables
+ local lookupname=subtables[1]
+ local replacements=cache.gsub_multiple[lookupname]
+ if not replacements then
+ if trace_bugs then
+ logwarning("%s: no multiple hits",cref(kind,chainname,chainlookupname,lookupname))
+ end
+ else
+ replacements=replacements[startchar]
+ if not replacements then
+ if trace_bugs then
+ logwarning("%s: no multiple for %s",cref(kind,chainname,chainlookupname,lookupname),gref(startchar))
+ end
+ else
+ if trace_multiples then
+ logprocess("%s: replacing %s by multiple characters %s",cref(kind,chainname,chainlookupname,lookupname),gref(startchar),gref(replacements))
+ end
+ local sn=start.next
+ for k=1,#replacements do
+ if k==1 then
+ start.char=replacements[k]
+ else
+ local n=copy_node(start)
+ n.char=replacements[k]
+ n.next,n.prev=sn,start
+ if sn then
+ sn.prev=n
+ end
+ start.next,start=n,n
+ end
+ end
+ return start,true
+ end
+ end
+ return start,false
+end
+function chainprocs.gsub_alternate(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname)
+ delete_till_stop(start,stop)
+ local current=start
+ local subtables=currentlookup.subtables
+ while current do
+ if current.id==glyph then
+ local currentchar=current.char
+ local lookupname=subtables[1]
+ local alternatives=cache.gsub_alternate[lookupname]
+ if not alternatives then
+ if trace_bugs then
+ logwarning("%s: no alternative hits",cref(kind,chainname,chainlookupname,lookupname))
+ end
+ else
+ alternatives=alternatives[currentchar]
+ if not alternatives then
+ if trace_bugs then
+ logwarning("%s: no alternative for %s",cref(kind,chainname,chainlookupname,lookupname),gref(currentchar))
+ end
+ else
+ local choice,index=alternative_glyph(current,alternatives,kind,chainname,chainlookupname,lookupname)
+ current.char=choice
+ if trace_alternatives then
+ logprocess("%s: replacing single %s by alternative %s (%s)",cref(kind,chainname,chainlookupname,lookupname),index,gref(currentchar),gref(choice),index)
+ end
+ end
+ end
+ return start,true
+ elseif current==stop then
+ break
+ else
+ current=current.next
+ end
+ end
+ return start,false
+end
+function chainprocs.gsub_ligature(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname,chainindex)
+ local startchar=start.char
+ local subtables=currentlookup.subtables
+ local lookupname=subtables[1]
+ local ligatures=cache.gsub_ligature[lookupname]
+ if not ligatures then
+ if trace_bugs then
+ logwarning("%s: no ligature hits",cref(kind,chainname,chainlookupname,lookupname,chainindex))
+ end
+ else
+ ligatures=ligatures[startchar]
+ if not ligatures then
+ if trace_bugs then
+ logwarning("%s: no ligatures starting with %s",cref(kind,chainname,chainlookupname,lookupname,chainindex),gref(startchar))
+ end
+ else
+ local s,discfound,last,nofreplacements=start.next,false,stop,0
+ while s do
+ local id=s.id
+ if id==disc then
+ s=s.next
+ discfound=true
+ else
+ local schar=s.char
+ if marks[schar] then
+ s=s.next
+ else
+ local lg=ligatures[1][schar]
+ if not lg then
+ break
+ else
+ ligatures,last,nofreplacements=lg,s,nofreplacements+1
+ if s==stop then
+ break
+ else
+ s=s.next
+ end
+ end
+ end
+ end
+ end
+ local l2=ligatures[2]
+ if l2 then
+ if chainindex then
+ stop=last
+ end
+ if trace_ligatures then
+ if start==stop then
+ logprocess("%s: replacing character %s by ligature %s",cref(kind,chainname,chainlookupname,lookupname,chainindex),gref(startchar),gref(l2))
+ else
+ logprocess("%s: replacing character %s upto %s by ligature %s",cref(kind,chainname,chainlookupname,lookupname,chainindex),gref(startchar),gref(stop.char),gref(l2))
+ end
+ end
+ start=toligature(kind,lookupname,start,stop,l2,currentlookup.flags[1],discfound)
+ return start,true,nofreplacements
+ elseif trace_bugs then
+ if start==stop then
+ logwarning("%s: replacing character %s by ligature fails",cref(kind,chainname,chainlookupname,lookupname,chainindex),gref(startchar))
+ else
+ logwarning("%s: replacing character %s upto %s by ligature fails",cref(kind,chainname,chainlookupname,lookupname,chainindex),gref(startchar),gref(stop.char))
+ end
+ end
+ end
+ end
+ return start,false,0
+end
+chainmores.gsub_ligature=chainprocs.gsub_ligature
+function chainprocs.gpos_mark2base(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname)
+ local markchar=start.char
+ if marks[markchar] then
+ local subtables=currentlookup.subtables
+ local lookupname=subtables[1]
+ local markanchors=cache.gpos_mark2base[lookupname]
+ if markanchors then
+ markanchors=markanchors[markchar]
+ end
+ if markanchors then
+ local base=start.prev
+ if base and base.id==glyph and base.subtype<256 and base.font==currentfont then
+ local basechar=base.char
+ if marks[basechar] then
+ while true do
+ base=base.prev
+ if base and base.id==glyph and base.subtype<256 and base.font==currentfont then
+ basechar=base.char
+ if not marks[basechar] then
+ break
+ end
+ else
+ if trace_bugs then
+ logwarning("%s: no base for mark %s",pref(kind,lookupname),gref(markchar))
+ end
+ return start,false
+ end
+ end
+ end
+ local baseanchors=descriptions[basechar].anchors
+ if baseanchors then
+ local baseanchors=baseanchors['basechar']
+ if baseanchors then
+ local al=anchorlookups[lookupname]
+ for anchor,ba in next,baseanchors do
+ if al[anchor] then
+ local ma=markanchors[anchor]
+ if ma then
+ local dx,dy,bound=set_mark(start,base,tfmdata.factor,rlmode,ba,ma)
+ if trace_marks then
+ logprocess("%s, anchor %s, bound %s: anchoring mark %s to basechar %s => (%s,%s)",
+ cref(kind,chainname,chainlookupname,lookupname),anchor,bound,gref(markchar),gref(basechar),dx,dy)
+ end
+ return start,true
+ end
+ end
+ end
+ if trace_bugs then
+ logwarning("%s, no matching anchors for mark %s and base %s",cref(kind,chainname,chainlookupname,lookupname),gref(markchar),gref(basechar))
+ end
+ end
+ end
+ elseif trace_bugs then
+ logwarning("%s: prev node is no char",cref(kind,chainname,chainlookupname,lookupname))
+ end
+ elseif trace_bugs then
+ logwarning("%s: mark %s has no anchors",cref(kind,chainname,chainlookupname,lookupname),gref(markchar))
+ end
+ elseif trace_bugs then
+ logwarning("%s: mark %s is no mark",cref(kind,chainname,chainlookupname),gref(markchar))
+ end
+ return start,false
+end
+function chainprocs.gpos_mark2ligature(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname)
+ local markchar=start.char
+ if marks[markchar] then
+ local subtables=currentlookup.subtables
+ local lookupname=subtables[1]
+ local markanchors=cache.gpos_mark2ligature[lookupname]
+ if markanchors then
+ markanchors=markanchors[markchar]
+ end
+ if markanchors then
+ local base=start.prev
+ local index=1
+ if base and base.id==glyph and base.subtype<256 and base.font==currentfont then
+ local basechar=base.char
+ if marks[basechar] then
+ index=index+1
+ while true do
+ base=base.prev
+ if base and base.id==glyph and base.subtype<256 and base.font==currentfont then
+ basechar=base.char
+ if marks[basechar] then
+ index=index+1
+ else
+ break
+ end
+ else
+ if trace_bugs then
+ logwarning("%s: no base for mark %s",cref(kind,chainname,chainlookupname,lookupname),markchar)
+ end
+ return start,false
+ end
+ end
+ end
+ local i=has_attribute(start,markdone)
+ if i then index=i end
+ local baseanchors=descriptions[basechar].anchors
+ if baseanchors then
+ local baseanchors=baseanchors['baselig']
+ if baseanchors then
+ local al=anchorlookups[lookupname]
+ for anchor,ba in next,baseanchors do
+ if al[anchor] then
+ local ma=markanchors[anchor]
+ if ma then
+ ba=ba[index]
+ if ba then
+ local dx,dy,bound=set_mark(start,base,tfmdata.factor,rlmode,ba,ma,index)
+ if trace_marks then
+ logprocess("%s, anchor %s, bound %s: anchoring mark %s to baselig %s at index %s => (%s,%s)",
+ cref(kind,chainname,chainlookupname,lookupname),anchor,a or bound,gref(markchar),gref(basechar),index,dx,dy)
+ end
+ return start,true
+ end
+ end
+ end
+ end
+ if trace_bugs then
+ logwarning("%s: no matching anchors for mark %s and baselig %s",cref(kind,chainname,chainlookupname,lookupname),gref(markchar),gref(basechar))
+ end
+ end
+ end
+ elseif trace_bugs then
+ logwarning("feature %s, lookup %s: prev node is no char",kind,lookupname)
+ end
+ elseif trace_bugs then
+ logwarning("%s: mark %s has no anchors",cref(kind,chainname,chainlookupname,lookupname),gref(markchar))
+ end
+ elseif trace_bugs then
+ logwarning("%s: mark %s is no mark",cref(kind,chainname,chainlookupname),gref(markchar))
+ end
+ return start,false
+end
+function chainprocs.gpos_mark2mark(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname)
+ local markchar=start.char
+ if marks[markchar] then
+ local subtables=currentlookup.subtables
+ local lookupname=subtables[1]
+ local markanchors=cache.gpos_mark2mark[lookupname]
+ if markanchors then
+ markanchors=markanchors[markchar]
+ end
+ if markanchors then
+ local base=start.prev
+ if base and base.id==glyph and base.subtype<256 and base.font==currentfont then
+ local basechar=base.char
+ local baseanchors=descriptions[basechar].anchors
+ if baseanchors then
+ baseanchors=baseanchors['basemark']
+ if baseanchors then
+ local al=anchorlookups[lookupname]
+ for anchor,ba in next,baseanchors do
+ if al[anchor] then
+ local ma=markanchors[anchor]
+ if ma then
+ local dx,dy,bound=set_mark(start,base,tfmdata.factor,rlmode,ba,ma)
+ if trace_marks then
+ logprocess("%s, anchor %s, bound %s: anchoring mark %s to basemark %s => (%s,%s)",
+ cref(kind,chainname,chainlookupname,lookupname),anchor,bound,gref(markchar),gref(basechar),dx,dy)
+ end
+ return start,true
+ end
+ end
+ end
+ if trace_bugs then
+ logwarning("%s: no matching anchors for mark %s and basemark %s",gref(kind,chainname,chainlookupname,lookupname),gref(markchar),gref(basechar))
+ end
+ end
+ end
+ elseif trace_bugs then
+ logwarning("%s: prev node is no mark",cref(kind,chainname,chainlookupname,lookupname))
+ end
+ elseif trace_bugs then
+ logwarning("%s: mark %s has no anchors",cref(kind,chainname,chainlookupname,lookupname),gref(markchar))
+ end
+ elseif trace_bugs then
+ logwarning("%s: mark %s is no mark",cref(kind,chainname,chainlookupname),gref(markchar))
+ end
+ return start,false
+end
+function chainprocs.gpos_cursive(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname)
+ local alreadydone=cursonce and has_attribute(start,cursbase)
+ if not alreadydone then
+ local startchar=start.char
+ local subtables=currentlookup.subtables
+ local lookupname=subtables[1]
+ local exitanchors=cache.gpos_cursive[lookupname]
+ if exitanchors then
+ exitanchors=exitanchors[startchar]
+ end
+ if exitanchors then
+ local done=false
+ if marks[startchar] then
+ if trace_cursive then
+ logprocess("%s: ignoring cursive for mark %s",pref(kind,lookupname),gref(startchar))
+ end
+ else
+ local nxt=start.next
+ while not done and nxt and nxt.id==glyph and nxt.subtype<256 and nxt.font==currentfont do
+ local nextchar=nxt.char
+ if marks[nextchar] then
+ nxt=nxt.next
+ else
+ local entryanchors=descriptions[nextchar]
+ if entryanchors then
+ entryanchors=entryanchors.anchors
+ if entryanchors then
+ entryanchors=entryanchors['centry']
+ if entryanchors then
+ local al=anchorlookups[lookupname]
+ for anchor,entry in next,entryanchors do
+ if al[anchor] then
+ local exit=exitanchors[anchor]
+ if exit then
+ local dx,dy,bound=set_cursive(start,nxt,tfmdata.factor,rlmode,exit,entry,characters[startchar],characters[nextchar])
+ if trace_cursive then
+ logprocess("%s: moving %s to %s cursive (%s,%s) using anchor %s and bound %s in rlmode %s",pref(kind,lookupname),gref(startchar),gref(nextchar),dx,dy,anchor,bound,rlmode)
+ end
+ done=true
+ break
+ end
+ end
+ end
+ end
+ end
+ else
+ fonts.register_message(currentfont,startchar,"no entry anchors")
+ end
+ break
+ end
+ end
+ end
+ return start,done
+ else
+ if trace_cursive and trace_details then
+ logprocess("%s, cursive %s is already done",pref(kind,lookupname),gref(start.char),alreadydone)
+ end
+ return start,false
+ end
+ end
+ return start,false
+end
+function chainprocs.gpos_single(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname,chainindex,sequence)
+ local startchar=start.char
+ local subtables=currentlookup.subtables
+ local lookupname=subtables[1]
+ local kerns=cache.gpos_single[lookupname]
+ if kerns then
+ kerns=kerns[startchar]
+ if kerns then
+ local dx,dy,w,h=set_pair(start,tfmdata.factor,rlmode,sequence.flags[4],kerns,characters[startchar])
+ if trace_kerns then
+ logprocess("%s: shifting single %s by (%s,%s) and correction (%s,%s)",cref(kind,chainname,chainlookupname),gref(startchar),dx,dy,w,h)
+ end
+ end
+ end
+ return start,false
+end
+function chainprocs.gpos_pair(start,stop,kind,chainname,currentcontext,cache,currentlookup,chainlookupname,chainindex,sequence)
+ local snext=start.next
+ if snext then
+ local startchar=start.char
+ local subtables=currentlookup.subtables
+ local lookupname=subtables[1]
+ local kerns=cache.gpos_pair[lookupname]
+ if kerns then
+ kerns=kerns[startchar]
+ if kerns then
+ local prev,done=start,false
+ local factor=tfmdata.factor
+ while snext and snext.id==glyph and snext.subtype<256 and snext.font==currentfont do
+ local nextchar=snext.char
+ local krn=kerns[nextchar]
+ if not krn and marks[nextchar] then
+ prev=snext
+ snext=snext.next
+ else
+ if not krn then
+ elseif type(krn)=="table" then
+ if krn[1]=="pair" then
+ local a,b=krn[3],krn[4]
+ if a and #a>0 then
+ local startchar=start.char
+ local x,y,w,h=set_pair(start,factor,rlmode,sequence.flags[4],a,characters[startchar])
+ if trace_kerns then
+ logprocess("%s: shifting first of pair %s and %s by (%s,%s) and correction (%s,%s)",cref(kind,chainname,chainlookupname),gref(startchar),gref(nextchar),x,y,w,h)
+ end
+ end
+ if b and #b>0 then
+ local startchar=start.char
+ local x,y,w,h=set_pair(snext,factor,rlmode,sequence.flags[4],b,characters[nextchar])
+ if trace_kerns then
+ logprocess("%s: shifting second of pair %s and %s by (%s,%s) and correction (%s,%s)",cref(kind,chainname,chainlookupname),gref(startchar),gref(nextchar),x,y,w,h)
+ end
+ end
+ else
+ logs.report("%s: check this out (old kern stuff)",cref(kind,chainname,chainlookupname))
+ local a,b=krn[3],krn[7]
+ if a and a~=0 then
+ local k=set_kern(snext,factor,rlmode,a)
+ if trace_kerns then
+ logprocess("%s: inserting first kern %s between %s and %s",cref(kind,chainname,chainlookupname),k,gref(prev.char),gref(nextchar))
+ end
+ end
+ if b and b~=0 then
+ logwarning("%s: ignoring second kern xoff %s",cref(kind,chainname,chainlookupname),b*factor)
+ end
+ end
+ done=true
+ elseif krn~=0 then
+ local k=set_kern(snext,factor,rlmode,krn)
+ if trace_kerns then
+ logprocess("%s: inserting kern %s between %s and %s",cref(kind,chainname,chainlookupname),k,gref(prev.char),gref(nextchar))
+ end
+ done=true
+ end
+ break
+ end
+ end
+ return start,done
+ end
+ end
+ end
+ return start,false
+end
+local function show_skip(kind,chainname,char,ck,class)
+ if ck[9] then
+ logwarning("%s: skipping char %s (%s) in rule %s, lookuptype %s (%s=>%s)",cref(kind,chainname),gref(char),class,ck[1],ck[2],ck[9],ck[10])
+ else
+ logwarning("%s: skipping char %s (%s) in rule %s, lookuptype %s",cref(kind,chainname),gref(char),class,ck[1],ck[2])
+ end
+end
+local function normal_handle_contextchain(start,kind,chainname,contexts,sequence,cache)
+ local flags,done=sequence.flags,false
+ local skipmark,skipligature,skipbase=flags[1],flags[2],flags[3]
+ local someskip=skipmark or skipligature or skipbase
+ local markclass=sequence.markclass
+ local skipped=false
+ for k=1,#contexts do
+ local match,current,last=true,start,start
+ local ck=contexts[k]
+ local seq=ck[3]
+ local s=#seq
+ if s==1 then
+ match=current.id==glyph and current.subtype<256 and current.font==currentfont and seq[1][current.char]
+ else
+ local f,l=ck[4],ck[5]
+ if f==l then
+ match=true
+ else
+ local n=f+1
+ last=last.next
+ while n<=l do
+ if last then
+ local id=last.id
+ if id==glyph then
+ if last.subtype<256 and last.font==currentfont then
+ local char=last.char
+ local ccd=descriptions[char]
+ if ccd then
+ local class=ccd.class
+ if class==skipmark or class==skipligature or class==skipbase or (markclass and class=="mark" and not markclass[char]) then
+ skipped=true
+ if trace_skips then
+ show_skip(kind,chainname,char,ck,class)
+ end
+ last=last.next
+ elseif seq[n][char] then
+ if n<l then
+ last=last.next
+ end
+ n=n+1
+ else
+ match=false break
+ end
+ else
+ match=false break
+ end
+ else
+ match=false break
+ end
+ elseif id==disc then
+ last=last.next
+ else
+ match=false break
+ end
+ else
+ match=false break
+ end
+ end
+ end
+ if match and f>1 then
+ local prev=start.prev
+ if prev then
+ local n=f-1
+ while n>=1 do
+ if prev then
+ local id=prev.id
+ if id==glyph then
+ if prev.subtype<256 and prev.font==currentfont then
+ local char=prev.char
+ local ccd=descriptions[char]
+ if ccd then
+ local class=ccd.class
+ if class==skipmark or class==skipligature or class==skipbase or (markclass and class=="mark" and not markclass[char]) then
+ skipped=true
+ if trace_skips then
+ show_skip(kind,chainname,char,ck,class)
+ end
+ elseif seq[n][char] then
+ n=n -1
+ else
+ match=false break
+ end
+ else
+ match=false break
+ end
+ else
+ match=false break
+ end
+ elseif id==disc then
+ elseif seq[n][32] then
+ n=n -1
+ else
+ match=false break
+ end
+ prev=prev.prev
+ elseif seq[n][32] then
+ n=n -1
+ else
+ match=false break
+ end
+ end
+ elseif f==2 then
+ match=seq[1][32]
+ else
+ for n=f-1,1 do
+ if not seq[n][32] then
+ match=false break
+ end
+ end
+ end
+ end
+ if match and s>l then
+ local current=last.next
+ if current then
+ local n=l+1
+ while n<=s do
+ if current then
+ local id=current.id
+ if id==glyph then
+ if current.subtype<256 and current.font==currentfont then
+ local char=current.char
+ local ccd=descriptions[char]
+ if ccd then
+ local class=ccd.class
+ if class==skipmark or class==skipligature or class==skipbase or (markclass and class=="mark" and not markclass[char]) then
+ skipped=true
+ if trace_skips then
+ show_skip(kind,chainname,char,ck,class)
+ end
+ elseif seq[n][char] then
+ n=n+1
+ else
+ match=false break
+ end
+ else
+ match=false break
+ end
+ else
+ match=false break
+ end
+ elseif id==disc then
+ elseif seq[n][32] then
+ n=n+1
+ else
+ match=false break
+ end
+ current=current.next
+ elseif seq[n][32] then
+ n=n+1
+ else
+ match=false break
+ end
+ end
+ elseif s-l==1 then
+ match=seq[s][32]
+ else
+ for n=l+1,s do
+ if not seq[n][32] then
+ match=false break
+ end
+ end
+ end
+ end
+ end
+ if match then
+ if trace_contexts then
+ local rule,lookuptype,f,l=ck[1],ck[2],ck[4],ck[5]
+ local char=start.char
+ if ck[9] then
+ logwarning("%s: rule %s matches at char %s for (%s,%s,%s) chars, lookuptype %s (%s=>%s)",cref(kind,chainname),rule,gref(char),f-1,l-f+1,s-l,lookuptype,ck[9],ck[10])
+ else
+ logwarning("%s: rule %s matches at char %s for (%s,%s,%s) chars, lookuptype %s",cref(kind,chainname),rule,gref(char),f-1,l-f+1,s-l,lookuptype)
+ end
+ end
+ local chainlookups=ck[6]
+ if chainlookups then
+ local nofchainlookups=#chainlookups
+ if nofchainlookups==1 then
+ local chainlookupname=chainlookups[1]
+ local chainlookup=lookuptable[chainlookupname]
+ local cp=chainprocs[chainlookup.type]
+ if cp then
+ start,done=cp(start,last,kind,chainname,ck,cache,chainlookup,chainlookupname,nil,sequence)
+ else
+ logprocess("%s: %s is not yet supported",cref(kind,chainname,chainlookupname),chainlookup.type)
+ end
+ else
+ local i=1
+ repeat
+if skipped then
+ while true do
+ local char=start.char
+ local ccd=descriptions[char]
+ if ccd then
+ local class=ccd.class
+ if class==skipmark or class==skipligature or class==skipbase or (markclass and class=="mark" and not markclass[char]) then
+ start=start.next
+ else
+ break
+ end
+ else
+ break
+ end
+ end
+end
+ local chainlookupname=chainlookups[i]
+ local chainlookup=lookuptable[chainlookupname]
+ local cp=chainmores[chainlookup.type]
+ if cp then
+ local ok,n
+ start,ok,n=cp(start,last,kind,chainname,ck,cache,chainlookup,chainlookupname,i,sequence)
+ if ok then
+ done=true
+ i=i+(n or 1)
+ else
+ i=i+1
+ end
+ else
+ logprocess("%s: multiple subchains for %s are not yet supported",cref(kind,chainname,chainlookupname),chainlookup.type)
+ i=i+1
+ end
+ start=start.next
+ until i>nofchainlookups
+ end
+ else
+ local replacements=ck[7]
+ if replacements then
+ start,done=chainprocs.reversesub(start,last,kind,chainname,ck,cache,replacements)
+ else
+ done=true
+ if trace_contexts then
+ logprocess("%s: skipping match",cref(kind,chainname))
+ end
+ end
+ end
+ end
+ end
+ return start,done
+end
+local verbose_handle_contextchain=function(font,...)
+ logwarning("no verbose handler installed, reverting to 'normal'")
+ otf.setcontextchain()
+ return normal_handle_contextchain(...)
+end
+otf.chainhandlers={
+ normal=normal_handle_contextchain,
+ verbose=verbose_handle_contextchain,
+}
+function otf.setcontextchain(method)
+ if not method or method=="normal" or not otf.chainhandlers[method] then
+ if handlers.contextchain then
+ logwarning("installing normal contextchain handler")
+ end
+ handlers.contextchain=normal_handle_contextchain
+ else
+ logwarning("installing contextchain handler '%s'",method)
+ local handler=otf.chainhandlers[method]
+ handlers.contextchain=function(...)
+ return handler(currentfont,...)
+ end
+ end
+ handlers.gsub_context=handlers.contextchain
+ handlers.gsub_contextchain=handlers.contextchain
+ handlers.gsub_reversecontextchain=handlers.contextchain
+ handlers.gpos_contextchain=handlers.contextchain
+ handlers.gpos_context=handlers.contextchain
+end
+otf.setcontextchain()
+local missing={}
+local function logprocess(...)
+ if trace_steps then
+ registermessage(...)
+ end
+ logs.report("otf process",...)
+end
+local function logwarning(...)
+ logs.report("otf process",...)
+end
+local function report_missing_cache(typ,lookup)
+ local f=missing[currentfont] if not f then f={} missing[currentfont]=f end
+ local t=f[typ] if not t then t={} f[typ]=t end
+ if not t[lookup] then
+ t[lookup]=true
+ logwarning("missing cache for lookup %s of type %s in font %s (%s)",lookup,typ,currentfont,tfmdata.fullname)
+ end
+end
+local resolved={}
+function fonts.methods.node.otf.features(head,font,attr)
+ if trace_steps then
+ checkstep(head)
+ end
+ tfmdata=fontdata[font]
+ local shared=tfmdata.shared
+ otfdata=shared.otfdata
+ local luatex=otfdata.luatex
+ descriptions=tfmdata.descriptions
+ characters=tfmdata.characters
+ indices=tfmdata.indices
+ unicodes=tfmdata.unicodes
+ marks=tfmdata.marks
+ anchorlookups=luatex.lookup_to_anchor
+ currentfont=font
+ rlmode=0
+ local featuredata=otfdata.shared.featuredata
+ local sequences=luatex.sequences
+ lookuptable=luatex.lookups
+ local done=false
+ local script,language,s_enabled,a_enabled,dyn
+ local attribute_driven=attr and attr~=0
+ if attribute_driven then
+ local features=context_setups[context_numbers[attr]]
+ dyn=context_merged[attr] or 0
+ language,script=features.language or "dflt",features.script or "dflt"
+ a_enabled=features
+ if dyn==2 or dyn==-2 then
+ s_enabled=shared.features
+ end
+ else
+ language,script=tfmdata.language or "dflt",tfmdata.script or "dflt"
+ s_enabled=shared.features
+ dyn=0
+ end
+ local res=resolved[font] if not res then res={} resolved[font]=res end
+ local rs=res [script] if not rs then rs={} res [script]=rs end
+ local rl=rs [language] if not rl then rl={} rs [language]=rl end
+ local ra=rl [attr] if ra==nil then ra={} rl [attr]=ra end
+ for s=1,#sequences do
+ local pardir,txtdir,success=0,{},false
+ local sequence=sequences[s]
+ local r=ra[s]
+ if r==nil then
+ local chain=sequence.chain or 0
+ local features=sequence.features
+ if not features then
+ r=false
+ else
+ local valid,attribute,kind,what=false,false
+ for k,v in next,features do
+ local s_e=s_enabled and s_enabled[k]
+ local a_e=a_enabled and a_enabled[k]
+ if s_e or a_e then
+ local l=v[script] or v[wildcard]
+ if l then
+ if l[language] then
+ valid,what=s_e or a_e,language
+ elseif l[wildcard] then
+ valid,what=s_e or a_e,wildcard
+ end
+ if valid then
+ kind,attribute=k,special_attributes[k] or false
+ if a_e and dyn<0 then
+ valid=false
+ end
+ if trace_applied then
+ local typ,action=match(sequence.type,"(.*)_(.*)")
+ logs.report("otf node mode",
+ "%s font: %03i, dynamic: %03i, kind: %s, lookup: %3i, script: %-4s, language: %-4s (%-4s), type: %s, action: %s, name: %s",
+ (valid and "+") or "-",font,attr or 0,kind,s,script,language,what,typ,action,sequence.name)
+ end
+ break
+ end
+ end
+ end
+ end
+ if valid then
+ r={ valid,attribute,chain,kind }
+ else
+ r=false
+ end
+ end
+ ra[s]=r
+ end
+ featurevalue=r and r[1]
+ if featurevalue then
+ local attribute,chain,typ,subtables=r[2],r[3],sequence.type,sequence.subtables
+ if chain<0 then
+ local handler=handlers[typ]
+ local thecache=featuredata[typ] or {}
+ local start=find_node_tail(head)
+ while start do
+ local id=start.id
+ if id==glyph then
+ if start.subtype<256 and start.font==font then
+ local a=has_attribute(start,0)
+ if a then
+ a=a==attr
+ else
+ a=true
+ end
+ if a then
+ for i=1,#subtables do
+ local lookupname=subtables[i]
+ local lookupcache=thecache[lookupname]
+ if lookupcache then
+ local lookupmatch=lookupcache[start.char]
+ if lookupmatch then
+ start,success=handler(start,r[4],lookupname,lookupmatch,sequence,featuredata,i)
+ if success then
+ break
+ end
+ end
+ else
+ report_missing_cache(typ,lookupname)
+ end
+ end
+ if start then start=start.prev end
+ else
+ start=start.prev
+ end
+ else
+ start=start.prev
+ end
+ else
+ start=start.prev
+ end
+ end
+ else
+ local handler=handlers[typ]
+ local ns=#subtables
+ local thecache=featuredata[typ] or {}
+ local start=head
+ rlmode=0
+ if ns==1 then
+ local lookupname=subtables[1]
+ local lookupcache=thecache[lookupname]
+ if not lookupcache then
+ report_missing_cache(typ,lookupname)
+ else
+ while start do
+ local id=start.id
+ if id==glyph then
+ if start.subtype<256 and start.font==font then
+ local a=has_attribute(start,0)
+ if a then
+ a=(a==attr) and (not attribute or has_attribute(start,state,attribute))
+ else
+ a=not attribute or has_attribute(start,state,attribute)
+ end
+ if a then
+ local lookupmatch=lookupcache[start.char]
+ if lookupmatch then
+ local ok
+ start,ok=handler(start,r[4],lookupname,lookupmatch,sequence,featuredata,1)
+ if ok then
+ success=true
+ end
+ end
+ if start then start=start.next end
+ else
+ start=start.next
+ end
+ else
+ start=start.next
+ end
+ elseif id==whatsit then
+ local subtype=start.subtype
+ if subtype==7 then
+ local dir=start.dir
+ if dir=="+TRT" or dir=="+TLT" then
+ insert(txtdir,dir)
+ elseif dir=="-TRT" or dir=="-TLT" then
+ remove(txtdir)
+ end
+ local d=txtdir[#txtdir]
+ if d=="+TRT" then
+ rlmode=-1
+ elseif d=="+TLT" then
+ rlmode=1
+ else
+ rlmode=pardir
+ end
+ if trace_directions then
+ logs.report("fonts","directions after textdir %s: pardir=%s, txtdir=%s:%s, rlmode=%s",dir,pardir,#txtdir,txtdir[#txtdir] or "unset",rlmode)
+ end
+ elseif subtype==6 then
+ local dir=start.dir
+ if dir=="TRT" then
+ pardir=-1
+ elseif dir=="TLT" then
+ pardir=1
+ else
+ pardir=0
+ end
+ rlmode=pardir
+ if trace_directions then
+ logs.report("fonts","directions after pardir %s: pardir=%s, txtdir=%s:%s, rlmode=%s",dir,pardir,#txtdir,txtdir[#txtdir] or "unset",rlmode)
+ end
+ end
+ start=start.next
+ else
+ start=start.next
+ end
+ end
+ end
+ else
+ while start do
+ local id=start.id
+ if id==glyph then
+ if start.subtype<256 and start.font==font then
+ local a=has_attribute(start,0)
+ if a then
+ a=(a==attr) and (not attribute or has_attribute(start,state,attribute))
+ else
+ a=not attribute or has_attribute(start,state,attribute)
+ end
+ if a then
+ for i=1,ns do
+ local lookupname=subtables[i]
+ local lookupcache=thecache[lookupname]
+ if lookupcache then
+ local lookupmatch=lookupcache[start.char]
+ if lookupmatch then
+ local ok
+ start,ok=handler(start,r[4],lookupname,lookupmatch,sequence,featuredata,i)
+ if ok then
+ success=true
+ break
+ end
+ end
+ else
+ report_missing_cache(typ,lookupname)
+ end
+ end
+ if start then start=start.next end
+ else
+ start=start.next
+ end
+ else
+ start=start.next
+ end
+ elseif id==whatsit then
+ local subtype=start.subtype
+ if subtype==7 then
+ local dir=start.dir
+ if dir=="+TRT" or dir=="+TLT" then
+ insert(txtdir,dir)
+ elseif dir=="-TRT" or dir=="-TLT" then
+ remove(txtdir)
+ end
+ local d=txtdir[#txtdir]
+ if d=="+TRT" then
+ rlmode=-1
+ elseif d=="+TLT" then
+ rlmode=1
+ else
+ rlmode=pardir
+ end
+ if trace_directions then
+ logs.report("fonts","directions after textdir %s: pardir=%s, txtdir=%s:%s, rlmode=%s",dir,pardir,#txtdir,txtdir[#txtdir] or "unset",rlmode)
+ end
+ elseif subtype==6 then
+ local dir=start.dir
+ if dir=="TRT" then
+ pardir=-1
+ elseif dir=="TLT" then
+ pardir=1
+ else
+ pardir=0
+ end
+ rlmode=pardir
+ if trace_directions then
+ logs.report("fonts","directions after pardir %s: pardir=%s, txtdir=%s:%s, rlmode=%s",dir,pardir,#txtdir,txtdir[#txtdir] or "unset",rlmode)
+ end
+ end
+ start=start.next
+ else
+ start=start.next
+ end
+ end
+ end
+ end
+ if success then
+ done=true
+ end
+ if trace_steps then
+ registerstep(head)
+ end
+ end
+ end
+ return head,done
+end
+otf.features.prepare={}
+local function split(replacement,original,cache,unicodes)
+ local o,t,n={},{},0
+ for s in gmatch(original,"[^ ]+") do
+ local us=unicodes[s]
+ if type(us)=="number" then
+ o[#o+1]=us
+ else
+ o[#o+1]=us[1]
+ end
+ end
+ for s in gmatch(replacement,"[^ ]+") do
+ n=n+1
+ local us=unicodes[s]
+ if type(us)=="number" then
+ t[o[n]]=us
+ else
+ t[o[n]]=us[1]
+ end
+ end
+ return t
+end
+local function uncover(covers,result,cache,unicodes)
+ for n=1,#covers do
+ local c=covers[n]
+ local cc=cache[c]
+ if not cc then
+ local t={}
+ for s in gmatch(c,"[^ ]+") do
+ local us=unicodes[s]
+ if type(us)=="number" then
+ t[us]=true
+ else
+ for i=1,#us do
+ t[us[i]]=true
+ end
+ end
+ end
+ cache[c]=t
+ result[#result+1]=t
+ else
+ result[#result+1]=cc
+ end
+ end
+end
+local function prepare_lookups(tfmdata)
+ local otfdata=tfmdata.shared.otfdata
+ local featuredata=otfdata.shared.featuredata
+ local anchor_to_lookup=otfdata.luatex.anchor_to_lookup
+ local lookup_to_anchor=otfdata.luatex.lookup_to_anchor
+ local multiple=featuredata.gsub_multiple
+ local alternate=featuredata.gsub_alternate
+ local single=featuredata.gsub_single
+ local ligature=featuredata.gsub_ligature
+ local pair=featuredata.gpos_pair
+ local position=featuredata.gpos_single
+ local kerns=featuredata.gpos_pair
+ local mark=featuredata.gpos_mark2mark
+ local cursive=featuredata.gpos_cursive
+ local unicodes=tfmdata.unicodes
+ local indices=tfmdata.indices
+ local descriptions=tfmdata.descriptions
+ local action={
+ substitution=function(p,lookup,glyph,unicode)
+ local old,new=unicode,unicodes[p[2]]
+ if type(new)=="table" then
+ new=new[1]
+ end
+ local s=single[lookup]
+ if not s then s={} single[lookup]=s end
+ s[old]=new
+ end,
+ multiple=function (p,lookup,glyph,unicode)
+ local old,new=unicode,{}
+ local m=multiple[lookup]
+ if not m then m={} multiple[lookup]=m end
+ m[old]=new
+ for pc in gmatch(p[2],"[^ ]+") do
+ local upc=unicodes[pc]
+ if type(upc)=="number" then
+ new[#new+1]=upc
+ else
+ new[#new+1]=upc[1]
+ end
+ end
+ end,
+ alternate=function(p,lookup,glyph,unicode)
+ local old,new=unicode,{}
+ local a=alternate[lookup]
+ if not a then a={} alternate[lookup]=a end
+ a[old]=new
+ for pc in gmatch(p[2],"[^ ]+") do
+ local upc=unicodes[pc]
+ if type(upc)=="number" then
+ new[#new+1]=upc
+ else
+ new[#new+1]=upc[1]
+ end
+ end
+ end,
+ ligature=function (p,lookup,glyph,unicode)
+ local first=true
+ local t=ligature[lookup]
+ if not t then t={} ligature[lookup]=t end
+ for s in gmatch(p[2],"[^ ]+") do
+ if first then
+ local u=unicodes[s]
+ if not u then
+ logs.report("define otf","lookup %s: ligature %s => %s ignored due to invalid unicode",lookup,p[2],glyph.name)
+ break
+ elseif type(u)=="number" then
+ if not t[u] then
+ t[u]={ {} }
+ end
+ t=t[u]
+ else
+ local tt=t
+ local tu
+ for i=1,#u do
+ local u=u[i]
+ if i==1 then
+ if not t[u] then
+ t[u]={ {} }
+ end
+ tu=t[u]
+ t=tu
+ else
+ if not t[u] then
+ tt[u]=tu
+ end
+ end
+ end
+ end
+ first=false
+ else
+ s=unicodes[s]
+ local t1=t[1]
+ if not t1[s] then
+ t1[s]={ {} }
+ end
+ t=t1[s]
+ end
+ end
+ t[2]=unicode
+ end,
+ position=function(p,lookup,glyph,unicode)
+ local s=position[lookup]
+ if not s then s={} position[lookup]=s end
+ s[unicode]=p[2]
+ end,
+ pair=function(p,lookup,glyph,unicode)
+ local s=pair[lookup]
+ if not s then s={} pair[lookup]=s end
+ local others=s[unicode]
+ if not others then others={} s[unicode]=others end
+ local two=p[2]
+ local upc=unicodes[two]
+ if not upc then
+ for pc in gmatch(two,"[^ ]+") do
+ local upc=unicodes[pc]
+ if type(upc)=="number" then
+ others[upc]=p
+ else
+ for i=1,#upc do
+ others[upc[i]]=p
+ end
+ end
+ end
+ elseif type(upc)=="number" then
+ others[upc]=p
+ else
+ for i=1,#upc do
+ others[upc[i]]=p
+ end
+ end
+ end,
+ }
+ for unicode,glyph in next,descriptions do
+ local lookups=glyph.slookups
+ if lookups then
+ for lookup,p in next,lookups do
+ action[p[1]](p,lookup,glyph,unicode)
+ end
+ end
+ local lookups=glyph.mlookups
+ if lookups then
+ for lookup,whatever in next,lookups do
+ for i=1,#whatever do
+ local p=whatever[i]
+ action[p[1]](p,lookup,glyph,unicode)
+ end
+ end
+ end
+ local list=glyph.mykerns
+ if list then
+ for lookup,krn in next,list do
+ local k=kerns[lookup]
+ if not k then k={} kerns[lookup]=k end
+ k[unicode]=krn
+ end
+ end
+ local oanchor=glyph.anchors
+ if oanchor then
+ for typ,anchors in next,oanchor do
+ if typ=="mark" then
+ for name,anchor in next,anchors do
+ local lookups=anchor_to_lookup[name]
+ if lookups then
+ for lookup,_ in next,lookups do
+ local f=mark[lookup]
+ if not f then f={} mark[lookup]=f end
+ f[unicode]=anchors
+ end
+ end
+ end
+ elseif typ=="cexit" then
+ for name,anchor in next,anchors do
+ local lookups=anchor_to_lookup[name]
+ if lookups then
+ for lookup,_ in next,lookups do
+ local f=cursive[lookup]
+ if not f then f={} cursive[lookup]=f end
+ f[unicode]=anchors
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+end
+luatex=luatex or {}
+local function prepare_contextchains(tfmdata)
+ local otfdata=tfmdata.shared.otfdata
+ local lookups=otfdata.lookups
+ if lookups then
+ local featuredata=otfdata.shared.featuredata
+ local contextchain=featuredata.gsub_contextchain
+ local reversecontextchain=featuredata.gsub_reversecontextchain
+ local characters=tfmdata.characters
+ local unicodes=tfmdata.unicodes
+ local indices=tfmdata.indices
+ local cache=luatex.covers
+ if not cache then
+ cache={}
+ luatex.covers=cache
+ end
+ for lookupname,lookupdata in next,otfdata.lookups do
+ local lookuptype=lookupdata.type
+ if not lookuptype then
+ logs.report("otf process","missing lookuptype for %s",lookupname)
+ else
+ local rules=lookupdata.rules
+ if rules then
+ local fmt=lookupdata.format
+ if fmt=="coverage" then
+ if lookuptype~="chainsub" and lookuptype~="chainpos" then
+ logs.report("otf process","unsupported coverage %s for %s",lookuptype,lookupname)
+ else
+ local contexts=contextchain[lookupname]
+ if not contexts then
+ contexts={}
+ contextchain[lookupname]=contexts
+ end
+ local t={}
+ for nofrules=1,#rules do
+ local rule=rules[nofrules]
+ local coverage=rule.coverage
+ if coverage and coverage.current then
+ local current,before,after,sequence=coverage.current,coverage.before,coverage.after,{}
+ if before then
+ uncover(before,sequence,cache,unicodes)
+ end
+ local start=#sequence+1
+ uncover(current,sequence,cache,unicodes)
+ local stop=#sequence
+ if after then
+ uncover(after,sequence,cache,unicodes)
+ end
+ if sequence[1] then
+ t[#t+1]={ nofrules,lookuptype,sequence,start,stop,rule.lookups }
+ for unic,_ in next,sequence[start] do
+ local cu=contexts[unic]
+ if not cu then
+ contexts[unic]=t
+ end
+ end
+ end
+ end
+ end
+ end
+ elseif fmt=="reversecoverage" then
+ if lookuptype~="reversesub" then
+ logs.report("otf process","unsupported reverse coverage %s for %s",lookuptype,lookupname)
+ else
+ local contexts=reversecontextchain[lookupname]
+ if not contexts then
+ contexts={}
+ reversecontextchain[lookupname]=contexts
+ end
+ local t={}
+ for nofrules=1,#rules do
+ local rule=rules[nofrules]
+ local reversecoverage=rule.reversecoverage
+ if reversecoverage and reversecoverage.current then
+ local current,before,after,replacements,sequence=reversecoverage.current,reversecoverage.before,reversecoverage.after,reversecoverage.replacements,{}
+ if before then
+ uncover(before,sequence,cache,unicodes)
+ end
+ local start=#sequence+1
+ uncover(current,sequence,cache,unicodes)
+ local stop=#sequence
+ if after then
+ uncover(after,sequence,cache,unicodes)
+ end
+ if replacements then
+ replacements=split(replacements,current[1],cache,unicodes)
+ end
+ if sequence[1] then
+ t[#t+1]={ nofrules,lookuptype,sequence,start,stop,rule.lookups,replacements }
+ for unic,_ in next,sequence[start] do
+ local cu=contexts[unic]
+ if not cu then
+ contexts[unic]=t
+ end
+ end
+ end
+ end
+ end
+ end
+ elseif fmt=="glyphs" then
+ if lookuptype~="chainsub" and lookuptype~="chainpos" then
+ logs.report("otf process","unsupported coverage %s for %s",lookuptype,lookupname)
+ else
+ local contexts=contextchain[lookupname]
+ if not contexts then
+ contexts={}
+ contextchain[lookupname]=contexts
+ end
+ local t={}
+ for nofrules=1,#rules do
+ local rule=rules[nofrules]
+ local glyphs=rule.glyphs
+ if glyphs and glyphs.names then
+ local fore,back,names,sequence=glyphs.fore,glyphs.back,glyphs.names,{}
+ if fore and fore~="" then
+ fore=lpegmatch(split_at_space,fore)
+ uncover(fore,sequence,cache,unicodes)
+ end
+ local start=#sequence+1
+ names=lpegmatch(split_at_space,names)
+ uncover(names,sequence,cache,unicodes)
+ local stop=#sequence
+ if back and back~="" then
+ back=lpegmatch(split_at_space,back)
+ uncover(back,sequence,cache,unicodes)
+ end
+ if sequence[1] then
+ t[#t+1]={ nofrules,lookuptype,sequence,start,stop,rule.lookups }
+ for unic,_ in next,sequence[start] do
+ local cu=contexts[unic]
+ if not cu then
+ contexts[unic]=t
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+end
+function fonts.initializers.node.otf.features(tfmdata,value)
+ if true then
+ if not tfmdata.shared.otfdata.shared.initialized then
+ local t=trace_preparing and os.clock()
+ local otfdata=tfmdata.shared.otfdata
+ local featuredata=otfdata.shared.featuredata
+ featuredata.gsub_multiple={}
+ featuredata.gsub_alternate={}
+ featuredata.gsub_single={}
+ featuredata.gsub_ligature={}
+ featuredata.gsub_contextchain={}
+ featuredata.gsub_reversecontextchain={}
+ featuredata.gpos_pair={}
+ featuredata.gpos_single={}
+ featuredata.gpos_mark2base={}
+ featuredata.gpos_mark2ligature=featuredata.gpos_mark2base
+ featuredata.gpos_mark2mark=featuredata.gpos_mark2base
+ featuredata.gpos_cursive={}
+ featuredata.gpos_contextchain=featuredata.gsub_contextchain
+ featuredata.gpos_reversecontextchain=featuredata.gsub_reversecontextchain
+ prepare_contextchains(tfmdata)
+ prepare_lookups(tfmdata)
+ otfdata.shared.initialized=true
+ if trace_preparing then
+ logs.report("otf process","preparation time is %0.3f seconds for %s",os.clock()-t,tfmdata.fullname or "?")
+ end
+ end
+ end
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-ota']={
+ version=1.001,
+ comment="companion to font-otf.lua (analysing)",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local type,tostring,match,format,concat=type,tostring,string.match,string.format,table.concat
+if not trackers then trackers={ register=function() end } end
+local trace_analyzing=false trackers.register("otf.analyzing",function(v) trace_analyzing=v end)
+local trace_cjk=false trackers.register("cjk.injections",function(v) trace_cjk=v end)
+trackers.register("cjk.analyzing","otf.analyzing")
+fonts=fonts or {}
+fonts.analyzers=fonts.analyzers or {}
+fonts.analyzers.initializers=fonts.analyzers.initializers or { node={ otf={} } }
+fonts.analyzers.methods=fonts.analyzers.methods or { node={ otf={} } }
+local otf=fonts.otf
+local tfm=fonts.tfm
+local initializers=fonts.analyzers.initializers
+local methods=fonts.analyzers.methods
+local glyph=node.id('glyph')
+local glue=node.id('glue')
+local penalty=node.id('penalty')
+local set_attribute=node.set_attribute
+local has_attribute=node.has_attribute
+local traverse_id=node.traverse_id
+local traverse_node_list=node.traverse
+local fontdata=fonts.ids
+local state=attributes.private('state')
+local fcs=(fonts.color and fonts.color.set) or function() end
+local fcr=(fonts.color and fonts.color.reset) or function() end
+local a_to_script=otf.a_to_script
+local a_to_language=otf.a_to_language
+function fonts.initializers.node.otf.analyze(tfmdata,value,attr)
+ local script,language
+ if attr and attr>0 then
+ script,language=a_to_script[attr],a_to_language[attr]
+ else
+ script,language=tfmdata.script,tfmdata.language
+ end
+ local action=initializers[script]
+ if action then
+ if type(action)=="function" then
+ return action(tfmdata,value)
+ else
+ local action=action[language]
+ if action then
+ return action(tfmdata,value)
+ end
+ end
+ end
+ return nil
+end
+function fonts.methods.node.otf.analyze(head,font,attr)
+ local tfmdata=fontdata[font]
+ local script,language
+ if attr and attr>0 then
+ script,language=a_to_script[attr],a_to_language[attr]
+ else
+ script,language=tfmdata.script,tfmdata.language
+ end
+ local action=methods[script]
+ if action then
+ if type(action)=="function" then
+ return action(head,font,attr)
+ else
+ action=action[language]
+ if action then
+ return action(head,font,attr)
+ end
+ end
+ end
+ return head,false
+end
+otf.features.register("analyze",true)
+table.insert(fonts.triggers,"analyze")
+fonts.analyzers.methods.latn=fonts.analyzers.aux.setstate
+local zwnj=0x200C
+local zwj=0x200D
+local isol={
+ [0x0600]=true,[0x0601]=true,[0x0602]=true,[0x0603]=true,
+ [0x0608]=true,[0x060B]=true,[0x0621]=true,[0x0674]=true,
+ [0x06DD]=true,[zwnj]=true,
+}
+local isol_fina={
+ [0x0622]=true,[0x0623]=true,[0x0624]=true,[0x0625]=true,
+ [0x0627]=true,[0x0629]=true,[0x062F]=true,[0x0630]=true,
+ [0x0631]=true,[0x0632]=true,[0x0648]=true,[0x0671]=true,
+ [0x0672]=true,[0x0673]=true,[0x0675]=true,[0x0676]=true,
+ [0x0677]=true,[0x0688]=true,[0x0689]=true,[0x068A]=true,
+ [0x068B]=true,[0x068C]=true,[0x068D]=true,[0x068E]=true,
+ [0x068F]=true,[0x0690]=true,[0x0691]=true,[0x0692]=true,
+ [0x0693]=true,[0x0694]=true,[0x0695]=true,[0x0696]=true,
+ [0x0697]=true,[0x0698]=true,[0x0699]=true,[0x06C0]=true,
+ [0x06C3]=true,[0x06C4]=true,[0x06C5]=true,[0x06C6]=true,
+ [0x06C7]=true,[0x06C8]=true,[0x06C9]=true,[0x06CA]=true,
+ [0x06CB]=true,[0x06CD]=true,[0x06CF]=true,[0x06D2]=true,
+ [0x06D3]=true,[0x06D5]=true,[0x06EE]=true,[0x06EF]=true,
+ [0x0759]=true,[0x075A]=true,[0x075B]=true,[0x076B]=true,
+ [0x076C]=true,[0x0771]=true,[0x0773]=true,[0x0774]=true,
+ [0x0778]=true,[0x0779]=true,[0xFEF5]=true,[0xFEF7]=true,
+ [0xFEF9]=true,[0xFEFB]=true,
+}
+local isol_fina_medi_init={
+ [0x0626]=true,[0x0628]=true,[0x062A]=true,[0x062B]=true,
+ [0x062C]=true,[0x062D]=true,[0x062E]=true,[0x0633]=true,
+ [0x0634]=true,[0x0635]=true,[0x0636]=true,[0x0637]=true,
+ [0x0638]=true,[0x0639]=true,[0x063A]=true,[0x063B]=true,
+ [0x063C]=true,[0x063D]=true,[0x063E]=true,[0x063F]=true,
+ [0x0640]=true,[0x0641]=true,[0x0642]=true,[0x0643]=true,
+ [0x0644]=true,[0x0645]=true,[0x0646]=true,[0x0647]=true,
+ [0x0649]=true,[0x064A]=true,[0x066E]=true,[0x066F]=true,
+ [0x0678]=true,[0x0679]=true,[0x067A]=true,[0x067B]=true,
+ [0x067C]=true,[0x067D]=true,[0x067E]=true,[0x067F]=true,
+ [0x0680]=true,[0x0681]=true,[0x0682]=true,[0x0683]=true,
+ [0x0684]=true,[0x0685]=true,[0x0686]=true,[0x0687]=true,
+ [0x069A]=true,[0x069B]=true,[0x069C]=true,[0x069D]=true,
+ [0x069E]=true,[0x069F]=true,[0x06A0]=true,[0x06A1]=true,
+ [0x06A2]=true,[0x06A3]=true,[0x06A4]=true,[0x06A5]=true,
+ [0x06A6]=true,[0x06A7]=true,[0x06A8]=true,[0x06A9]=true,
+ [0x06AA]=true,[0x06AB]=true,[0x06AC]=true,[0x06AD]=true,
+ [0x06AE]=true,[0x06AF]=true,[0x06B0]=true,[0x06B1]=true,
+ [0x06B2]=true,[0x06B3]=true,[0x06B4]=true,[0x06B5]=true,
+ [0x06B6]=true,[0x06B7]=true,[0x06B8]=true,[0x06B9]=true,
+ [0x06BA]=true,[0x06BB]=true,[0x06BC]=true,[0x06BD]=true,
+ [0x06BE]=true,[0x06BF]=true,[0x06C1]=true,[0x06C2]=true,
+ [0x06CC]=true,[0x06CE]=true,[0x06D0]=true,[0x06D1]=true,
+ [0x06FA]=true,[0x06FB]=true,[0x06FC]=true,[0x06FF]=true,
+ [0x0750]=true,[0x0751]=true,[0x0752]=true,[0x0753]=true,
+ [0x0754]=true,[0x0755]=true,[0x0756]=true,[0x0757]=true,
+ [0x0758]=true,[0x075C]=true,[0x075D]=true,[0x075E]=true,
+ [0x075F]=true,[0x0760]=true,[0x0761]=true,[0x0762]=true,
+ [0x0763]=true,[0x0764]=true,[0x0765]=true,[0x0766]=true,
+ [0x0767]=true,[0x0768]=true,[0x0769]=true,[0x076A]=true,
+ [0x076D]=true,[0x076E]=true,[0x076F]=true,[0x0770]=true,
+ [0x0772]=true,[0x0775]=true,[0x0776]=true,[0x0777]=true,
+ [0x077A]=true,[0x077B]=true,[0x077C]=true,[0x077D]=true,
+ [0x077E]=true,[0x077F]=true,[zwj]=true,
+}
+local arab_warned={}
+local function warning(current,what)
+ local char=current.char
+ if not arab_warned[char] then
+ log.report("analyze","arab: character %s (U+%04X) has no %s class",char,char,what)
+ arab_warned[char]=true
+ end
+end
+function fonts.analyzers.methods.nocolor(head,font,attr)
+ for n in traverse_node_list(head,glyph) do
+ if not font or n.font==font then
+ fcr(n)
+ end
+ end
+ return head,true
+end
+local function finish(first,last)
+ if last then
+ if first==last then
+ local fc=first.char
+ if isol_fina_medi_init[fc] or isol_fina[fc] then
+ set_attribute(first,state,4)
+ if trace_analyzing then fcs(first,"font:isol") end
+ else
+ warning(first,"isol")
+ set_attribute(first,state,0)
+ if trace_analyzing then fcr(first) end
+ end
+ else
+ local lc=last.char
+ if isol_fina_medi_init[lc] or isol_fina[lc] then
+ set_attribute(last,state,3)
+ if trace_analyzing then fcs(last,"font:fina") end
+ else
+ warning(last,"fina")
+ set_attribute(last,state,0)
+ if trace_analyzing then fcr(last) end
+ end
+ end
+ first,last=nil,nil
+ elseif first then
+ local fc=first.char
+ if isol_fina_medi_init[fc] or isol_fina[fc] then
+ set_attribute(first,state,4)
+ if trace_analyzing then fcs(first,"font:isol") end
+ else
+ warning(first,"isol")
+ set_attribute(first,state,0)
+ if trace_analyzing then fcr(first) end
+ end
+ first=nil
+ end
+ return first,last
+end
+function fonts.analyzers.methods.arab(head,font,attr)
+ local tfmdata=fontdata[font]
+ local marks=tfmdata.marks
+ local first,last,current,done=nil,nil,head,false
+ while current do
+ if current.id==glyph and current.subtype<256 and current.font==font and not has_attribute(current,state) then
+ done=true
+ local char=current.char
+ if marks[char] then
+ set_attribute(current,state,5)
+ if trace_analyzing then fcs(current,"font:mark") end
+ elseif isol[char] then
+ first,last=finish(first,last)
+ set_attribute(current,state,4)
+ if trace_analyzing then fcs(current,"font:isol") end
+ first,last=nil,nil
+ elseif not first then
+ if isol_fina_medi_init[char] then
+ set_attribute(current,state,1)
+ if trace_analyzing then fcs(current,"font:init") end
+ first,last=first or current,current
+ elseif isol_fina[char] then
+ set_attribute(current,state,4)
+ if trace_analyzing then fcs(current,"font:isol") end
+ first,last=nil,nil
+ else
+ first,last=finish(first,last)
+ end
+ elseif isol_fina_medi_init[char] then
+ first,last=first or current,current
+ set_attribute(current,state,2)
+ if trace_analyzing then fcs(current,"font:medi") end
+ elseif isol_fina[char] then
+ if not has_attribute(last,state,1) then
+ set_attribute(last,state,2)
+ if trace_analyzing then fcs(last,"font:medi") end
+ end
+ set_attribute(current,state,3)
+ if trace_analyzing then fcs(current,"font:fina") end
+ first,last=nil,nil
+ elseif char>=0x0600 and char<=0x06FF then
+ if trace_analyzing then fcs(current,"font:rest") end
+ first,last=finish(first,last)
+ else
+ first,last=finish(first,last)
+ end
+ else
+ first,last=finish(first,last)
+ end
+ current=current.next
+ end
+ first,last=finish(first,last)
+ return head,done
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-otc']={
+ version=1.001,
+ comment="companion to font-otf.lua (context)",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local format,insert=string.format,table.insert
+local type,next=type,next
+local trace_loading=false trackers.register("otf.loading",function(v) trace_loading=v end)
+local otf=fonts.otf
+local tfm=fonts.tfm
+local extra_lists={
+ tlig={
+ {
+ endash="hyphen hyphen",
+ emdash="hyphen hyphen hyphen",
+ quotedblleft="quoteleft quoteleft",
+ quotedblright="quoteright quoteright",
+ quotedblleft="grave grave",
+ quotedblright="quotesingle quotesingle",
+ quotedblbase="comma comma",
+ exclamdown="exclam grave",
+ questiondown="question grave",
+ guillemotleft="less less",
+ guillemotright="greater greater",
+ },
+ },
+ trep={
+ {
+ [0x0022]=0x201D,
+ [0x0027]=0x2019,
+ [0x0060]=0x2018,
+ },
+ },
+ anum={
+ {
+ [0x0030]=0x0660,
+ [0x0031]=0x0661,
+ [0x0032]=0x0662,
+ [0x0033]=0x0663,
+ [0x0034]=0x0664,
+ [0x0035]=0x0665,
+ [0x0036]=0x0666,
+ [0x0037]=0x0667,
+ [0x0038]=0x0668,
+ [0x0039]=0x0669,
+ },
+ {
+ [0x0030]=0x06F0,
+ [0x0031]=0x06F1,
+ [0x0032]=0x06F2,
+ [0x0033]=0x06F3,
+ [0x0034]=0x06F4,
+ [0x0035]=0x06F5,
+ [0x0036]=0x06F6,
+ [0x0037]=0x06F7,
+ [0x0038]=0x06F8,
+ [0x0039]=0x06F9,
+ },
+ },
+}
+local extra_features={
+ tlig={
+ {
+ features={ { scripts={ { script="*",langs={ "*" },} },tag="tlig",comment="added bij mkiv" },},
+ name="ctx_tlig_1",
+ subtables={ { name="ctx_tlig_1_s" } },
+ type="gsub_ligature",
+ flags={},
+ },
+ },
+ trep={
+ {
+ features={ { scripts={ { script="*",langs={ "*" },} },tag="trep",comment="added bij mkiv" },},
+ name="ctx_trep_1",
+ subtables={ { name="ctx_trep_1_s" } },
+ type="gsub_single",
+ flags={},
+ },
+ },
+ anum={
+ {
+ features={ { scripts={ { script="arab",langs={ "dflt","ARA" },} },tag="anum",comment="added bij mkiv" },},
+ name="ctx_anum_1",
+ subtables={ { name="ctx_anum_1_s" } },
+ type="gsub_single",
+ flags={},
+ },
+ {
+ features={ { scripts={ { script="arab",langs={ "FAR" },} },tag="anum",comment="added bij mkiv" },},
+ name="ctx_anum_2",
+ subtables={ { name="ctx_anum_2_s" } },
+ type="gsub_single",
+ flags={},
+ },
+ },
+}
+fonts.otf.enhancers["add some missing characters"]=function(data,filename)
+end
+fonts.otf.enhancers["enrich with features"]=function(data,filename)
+ local used={}
+ for i=1,#otf.glists do
+ local g=data[otf.glists[i]]
+ if g then
+ for i=1,#g do
+ local f=g[i].features
+ if f then
+ for i=1,#f do
+ local t=f[i].tag
+ if t then used[t]=true end
+ end
+ end
+ end
+ end
+ end
+ local glyphs=data.glyphs
+ local indices=data.map.map
+ data.gsub=data.gsub or {}
+ for kind,specifications in next,extra_features do
+ if not used[kind] then
+ local done=0
+ for s=1,#specifications do
+ local added=false
+ local specification=specifications[s]
+ local list=extra_lists[kind][s]
+ local name=specification.name.."_s"
+ if specification.type=="gsub_ligature" then
+ for unicode,index in next,indices do
+ local glyph=glyphs[index]
+ local ligature=list[glyph.name]
+ if ligature then
+ local o=glyph.lookups or {}
+ o[name]={
+ {
+ ["type"]="ligature",
+ ["specification"]={
+ char=glyph.name,
+ components=ligature,
+ }
+ }
+ }
+ glyph.lookups,done,added=o,done+1,true
+ end
+ end
+ elseif specification.type=="gsub_single" then
+ for unicode,index in next,indices do
+ local glyph=glyphs[index]
+ local r=list[unicode]
+ if r then
+ local replacement=indices[r]
+ if replacement and glyphs[replacement] then
+ local o=glyph.lookups or {}
+ o[name]={
+ {
+ ["type"]="substitution",
+ ["specification"]={
+ variant=glyphs[replacement].name,
+ }
+ }
+ }
+ glyph.lookups,done,added=o,done+1,true
+ end
+ end
+ end
+ end
+ if added then
+ insert(data.gsub,s,table.fastcopy(specification))
+ end
+ end
+ if done>0 then
+ if trace_loading then
+ logs.report("load otf","enhance: registering %s feature (%s glyphs affected)",kind,done)
+ end
+ end
+ end
+ end
+end
+otf.tables.features['tlig']='TeX Ligatures'
+otf.tables.features['trep']='TeX Replacements'
+otf.tables.features['anum']='Arabic Digits'
+otf.features.register_base_substitution('tlig')
+otf.features.register_base_substitution('trep')
+otf.features.register_base_substitution('anum')
+fonts.initializers.base.otf.equaldigits=fonts.initializers.common.equaldigits
+fonts.initializers.node.otf.equaldigits=fonts.initializers.common.equaldigits
+fonts.initializers.base.otf.lineheight=fonts.initializers.common.lineheight
+fonts.initializers.node.otf.lineheight=fonts.initializers.common.lineheight
+fonts.initializers.base.otf.compose=fonts.initializers.common.compose
+fonts.initializers.node.otf.compose=fonts.initializers.common.compose
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-def']={
+ version=1.001,
+ comment="companion to font-ini.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local format,concat,gmatch,match,find,lower=string.format,table.concat,string.gmatch,string.match,string.find,string.lower
+local tostring,next=tostring,next
+local lpegmatch=lpeg.match
+local trace_defining=false trackers .register("fonts.defining",function(v) trace_defining=v end)
+local directive_embedall=false directives.register("fonts.embedall",function(v) directive_embedall=v end)
+trackers.register("fonts.loading","fonts.defining","otf.loading","afm.loading","tfm.loading")
+trackers.register("fonts.all","fonts.*","otf.*","afm.*","tfm.*")
+fonts=fonts or {}
+fonts.define=fonts.define or {}
+fonts.tfm=fonts.tfm or {}
+fonts.ids=fonts.ids or {}
+fonts.vf=fonts.vf or {}
+fonts.used=fonts.used or {}
+local tfm=fonts.tfm
+local vf=fonts.vf
+local define=fonts.define
+tfm.version=1.01
+tfm.cache=containers.define("fonts","tfm",tfm.version,false)
+define.method="afm or tfm"
+define.specify=fonts.define.specify or {}
+define.methods=fonts.define.methods or {}
+tfm.fonts=tfm.fonts or {}
+tfm.readers=tfm.readers or {}
+tfm.internalized=tfm.internalized or {}
+tfm.readers.sequence={ 'otf','ttf','afm','tfm' }
+tfm.auto_afm=true
+local readers=tfm.readers
+local sequence=readers.sequence
+fonts.version=1.05
+fonts.cache=containers.define("fonts","def",fonts.version,false)
+local splitter,specifiers=nil,""
+local P,C,S,Cc=lpeg.P,lpeg.C,lpeg.S,lpeg.Cc
+local left=P("(")
+local right=P(")")
+local colon=P(":")
+local space=P(" ")
+define.defaultlookup="file"
+local prefixpattern=P(false)
+function define.add_specifier(symbol)
+ specifiers=specifiers..symbol
+ local method=S(specifiers)
+ local lookup=C(prefixpattern)*colon
+ local sub=left*C(P(1-left-right-method)^1)*right
+ local specification=C(method)*C(P(1)^1)
+ local name=C((1-sub-specification)^1)
+ splitter=P((lookup+Cc(""))*name*(sub+Cc(""))*(specification+Cc("")))
+end
+function define.add_lookup(str,default)
+ prefixpattern=prefixpattern+P(str)
+end
+define.add_lookup("file")
+define.add_lookup("name")
+define.add_lookup("spec")
+function define.get_specification(str)
+ return lpegmatch(splitter,str)
+end
+function define.register_split(symbol,action)
+ define.add_specifier(symbol)
+ define.specify[symbol]=action
+end
+function define.makespecification(specification,lookup,name,sub,method,detail,size)
+ size=size or 655360
+ if trace_defining then
+ logs.report("define font","%s -> lookup: %s, name: %s, sub: %s, method: %s, detail: %s",
+ specification,(lookup~="" and lookup) or "[file]",(name~="" and name) or "-",
+ (sub~="" and sub) or "-",(method~="" and method) or "-",(detail~="" and detail) or "-")
+ end
+ if not lookup or lookup=="" then
+ lookup=define.defaultlookup
+ end
+ local t={
+ lookup=lookup,
+ specification=specification,
+ size=size,
+ name=name,
+ sub=sub,
+ method=method,
+ detail=detail,
+ resolved="",
+ forced="",
+ features={},
+ }
+ return t
+end
+function define.analyze(specification,size)
+ local lookup,name,sub,method,detail=define.get_specification(specification or "")
+ return define.makespecification(specification,lookup,name,sub,method,detail,size)
+end
+local sortedhashkeys=table.sortedhashkeys
+function tfm.hash_features(specification)
+ local features=specification.features
+ if features then
+ local t={}
+ local normal=features.normal
+ if normal and next(normal) then
+ local f=sortedhashkeys(normal)
+ for i=1,#f do
+ local v=f[i]
+ if v~="number" and v~="features" then
+ t[#t+1]=v..'='..tostring(normal[v])
+ end
+ end
+ end
+ local vtf=features.vtf
+ if vtf and next(vtf) then
+ local f=sortedhashkeys(vtf)
+ for i=1,#f do
+ local v=f[i]
+ t[#t+1]=v..'='..tostring(vtf[v])
+ end
+ end
+ if #t>0 then
+ return concat(t,"+")
+ end
+ end
+ return "unknown"
+end
+fonts.designsizes={}
+function tfm.hash_instance(specification,force)
+ local hash,size,fallbacks=specification.hash,specification.size,specification.fallbacks
+ if force or not hash then
+ hash=tfm.hash_features(specification)
+ specification.hash=hash
+ end
+ if size<1000 and fonts.designsizes[hash] then
+ size=math.round(tfm.scaled(size,fonts.designsizes[hash]))
+ specification.size=size
+ end
+ if fallbacks then
+ return hash..' @ '..tostring(size)..' @ '..fallbacks
+ else
+ return hash..' @ '..tostring(size)
+ end
+end
+define.resolvers=resolvers
+function define.resolvers.file(specification)
+ local suffix=file.suffix(specification.name)
+ if fonts.formats[suffix] then
+ specification.forced=suffix
+ specification.name=file.removesuffix(specification.name)
+ end
+end
+function define.resolvers.name(specification)
+ local resolve=fonts.names.resolve
+ if resolve then
+ local resolved,sub=fonts.names.resolve(specification)
+ specification.resolved,specification.sub=resolved,sub
+ if resolved then
+ local suffix=file.suffix(resolved)
+ if fonts.formats[suffix] then
+ specification.forced=suffix
+ specification.name=file.removesuffix(resolved)
+ else
+ specification.name=resolved
+ end
+ end
+ else
+ define.resolvers.file(specification)
+ end
+end
+function define.resolvers.spec(specification)
+ local resolvespec=fonts.names.resolvespec
+ if resolvespec then
+ specification.resolved,specification.sub=fonts.names.resolvespec(specification)
+ if specification.resolved then
+ specification.forced=file.extname(specification.resolved)
+ specification.name=file.removesuffix(specification.resolved)
+ end
+ else
+ define.resolvers.name(specification)
+ end
+end
+function define.resolve(specification)
+ if not specification.resolved or specification.resolved=="" then
+ local r=define.resolvers[specification.lookup]
+ if r then
+ r(specification)
+ end
+ end
+ if specification.forced=="" then
+ specification.forced=nil
+ else
+ specification.forced=specification.forced
+ end
+ specification.hash=lower(specification.name..' @ '..tfm.hash_features(specification))
+ if specification.sub and specification.sub~="" then
+ specification.hash=specification.sub..' @ '..specification.hash
+ end
+ return specification
+end
+function tfm.read(specification)
+ local hash=tfm.hash_instance(specification)
+ local tfmtable=tfm.fonts[hash]
+ if not tfmtable then
+ local forced=specification.forced or ""
+ if forced~="" then
+ tfmtable=readers[lower(forced)](specification)
+ if not tfmtable then
+ logs.report("define font","forced type %s of %s not found",forced,specification.name)
+ end
+ else
+ for s=1,#sequence do
+ local reader=sequence[s]
+ if readers[reader] then
+ if trace_defining then
+ logs.report("define font","trying (reader sequence driven) type %s for %s with file %s",reader,specification.name,specification.filename or "unknown")
+ end
+ tfmtable=readers[reader](specification)
+ if tfmtable then
+ break
+ else
+ specification.filename=nil
+ end
+ end
+ end
+ end
+ if tfmtable then
+ if directive_embedall then
+ tfmtable.embedding="full"
+ elseif tfmtable.filename and fonts.dontembed[tfmtable.filename] then
+ tfmtable.embedding="no"
+ else
+ tfmtable.embedding="subset"
+ end
+ tfm.fonts[hash]=tfmtable
+ fonts.designsizes[specification.hash]=tfmtable.designsize
+ end
+ end
+ if not tfmtable then
+ logs.report("define font","font with name %s is not found",specification.name)
+ end
+ return tfmtable
+end
+function tfm.read_and_define(name,size)
+ local specification=define.analyze(name,size)
+ local method=specification.method
+ if method and define.specify[method] then
+ specification=define.specify[method](specification)
+ end
+ specification=define.resolve(specification)
+ local hash=tfm.hash_instance(specification)
+ local id=define.registered(hash)
+ if not id then
+ local fontdata=tfm.read(specification)
+ if fontdata then
+ fontdata.hash=hash
+ id=font.define(fontdata)
+ define.register(fontdata,id)
+ tfm.cleanup_table(fontdata)
+ else
+ id=0
+ end
+ end
+ return fonts.ids[id],id
+end
+local function check_tfm(specification,fullname)
+ local foundname=resolvers.findbinfile(fullname,'tfm') or ""
+ if foundname=="" then
+ foundname=resolvers.findbinfile(fullname,'ofm') or ""
+ end
+ if foundname~="" then
+ specification.filename,specification.format=foundname,"ofm"
+ return tfm.read_from_tfm(specification)
+ end
+end
+local function check_afm(specification,fullname)
+ local foundname=resolvers.findbinfile(fullname,'afm') or ""
+ if foundname=="" and tfm.auto_afm then
+ local encoding,shortname=match(fullname,"^(.-)%-(.*)$")
+ if encoding and shortname and fonts.enc.known[encoding] then
+ shortname=resolvers.findbinfile(shortname,'afm') or ""
+ if shortname~="" then
+ foundname=shortname
+ if trace_loading then
+ logs.report("load afm","stripping encoding prefix from filename %s",afmname)
+ end
+ end
+ end
+ end
+ if foundname~="" then
+ specification.filename,specification.format=foundname,"afm"
+ return tfm.read_from_afm(specification)
+ end
+end
+function readers.tfm(specification)
+ local fullname,tfmtable=specification.filename or "",nil
+ if fullname=="" then
+ local forced=specification.forced or ""
+ if forced~="" then
+ tfmtable=check_tfm(specification,specification.name.."."..forced)
+ end
+ if not tfmtable then
+ tfmtable=check_tfm(specification,specification.name)
+ end
+ else
+ tfmtable=check_tfm(specification,fullname)
+ end
+ return tfmtable
+end
+function readers.afm(specification,method)
+ local fullname,tfmtable=specification.filename or "",nil
+ if fullname=="" then
+ local forced=specification.forced or ""
+ if forced~="" then
+ tfmtable=check_afm(specification,specification.name.."."..forced)
+ end
+ if not tfmtable then
+ method=method or define.method or "afm or tfm"
+ if method=="tfm" then
+ tfmtable=check_tfm(specification,specification.name)
+ elseif method=="afm" then
+ tfmtable=check_afm(specification,specification.name)
+ elseif method=="tfm or afm" then
+ tfmtable=check_tfm(specification,specification.name) or check_afm(specification,specification.name)
+ else
+ tfmtable=check_afm(specification,specification.name) or check_tfm(specification,specification.name)
+ end
+ end
+ else
+ tfmtable=check_afm(specification,fullname)
+ end
+ return tfmtable
+end
+local function check_otf(forced,specification,suffix,what)
+ local name=specification.name
+ if forced then
+ name=file.addsuffix(name,suffix,true)
+ end
+ local fullname,tfmtable=resolvers.findbinfile(name,suffix) or "",nil
+ if fullname=="" then
+ local fb=fonts.names.old_to_new[name]
+ if fb then
+ fullname=resolvers.findbinfile(fb,suffix) or ""
+ end
+ end
+ if fullname=="" then
+ local fb=fonts.names.new_to_old[name]
+ if fb then
+ fullname=resolvers.findbinfile(fb,suffix) or ""
+ end
+ end
+ if fullname~="" then
+ specification.filename,specification.format=fullname,what
+ tfmtable=tfm.read_from_open_type(specification)
+ end
+ return tfmtable
+end
+function readers.opentype(specification,suffix,what)
+ local forced=specification.forced or ""
+ if forced=="otf" then
+ return check_otf(true,specification,forced,"opentype")
+ elseif forced=="ttf" or forced=="ttc" or forced=="dfont" then
+ return check_otf(true,specification,forced,"truetype")
+ else
+ return check_otf(false,specification,suffix,what)
+ end
+end
+function readers.otf (specification) return readers.opentype(specification,"otf","opentype") end
+function readers.ttf (specification) return readers.opentype(specification,"ttf","truetype") end
+function readers.ttc (specification) return readers.opentype(specification,"ttf","truetype") end
+function readers.dfont(specification) return readers.opentype(specification,"ttf","truetype") end
+function define.check(features,defaults)
+ local done=false
+ if features and next(features) then
+ for k,v in next,defaults do
+ if features[k]==nil then
+ features[k],done=v,true
+ end
+ end
+ else
+ features,done=table.fastcopy(defaults),true
+ end
+ return features,done
+end
+define.last=nil
+function define.register(fontdata,id)
+ if fontdata and id then
+ local hash=fontdata.hash
+ if not tfm.internalized[hash] then
+ if trace_defining then
+ logs.report("define font","loading at 2 id %s, hash: %s",id or "?",hash or "?")
+ end
+ fonts.identifiers[id]=fontdata
+ fonts.characters [id]=fontdata.characters
+ fonts.quads [id]=fontdata.parameters.quad
+ tfm.internalized[hash]=id
+ end
+ end
+end
+function define.registered(hash)
+ local id=tfm.internalized[hash]
+ return id,id and fonts.ids[id]
+end
+local cache_them=false
+function tfm.make(specification)
+ local fvm=define.methods[specification.features.vtf.preset]
+ if fvm then
+ return fvm(specification)
+ else
+ return nil
+ end
+end
+function define.read(specification,size,id)
+ statistics.starttiming(fonts)
+ if type(specification)=="string" then
+ specification=define.analyze(specification,size)
+ end
+ local method=specification.method
+ if method and define.specify[method] then
+ specification=define.specify[method](specification)
+ end
+ specification=define.resolve(specification)
+ local hash=tfm.hash_instance(specification)
+ if cache_them then
+ local fontdata=containers.read(fonts.cache,hash)
+ end
+ local fontdata=define.registered(hash)
+ if not fontdata then
+ if specification.features.vtf and specification.features.vtf.preset then
+ fontdata=tfm.make(specification)
+ else
+ fontdata=tfm.read(specification)
+ if fontdata then
+ tfm.check_virtual_id(fontdata)
+ end
+ end
+ if cache_them then
+ fontdata=containers.write(fonts.cache,hash,fontdata)
+ end
+ if fontdata then
+ fontdata.hash=hash
+ fontdata.cache="no"
+ if id then
+ define.register(fontdata,id)
+ end
+ end
+ end
+ define.last=fontdata or id
+ if not fontdata then
+ logs.report("define font","unknown font %s, loading aborted",specification.name)
+ elseif trace_defining and type(fontdata)=="table" then
+ logs.report("define font","using %s font with id %s, name:%s size:%s bytes:%s encoding:%s fullname:%s filename:%s",
+ fontdata.type or "unknown",
+ id or "?",
+ fontdata.name or "?",
+ fontdata.size or "default",
+ fontdata.encodingbytes or "?",
+ fontdata.encodingname or "unicode",
+ fontdata.fullname or "?",
+ file.basename(fontdata.filename or "?"))
+ end
+ statistics.stoptiming(fonts)
+ return fontdata
+end
+function vf.find(name)
+ name=file.removesuffix(file.basename(name))
+ if tfm.resolve_vf then
+ local format=fonts.logger.format(name)
+ if format=='tfm' or format=='ofm' then
+ if trace_defining then
+ logs.report("define font","locating vf for %s",name)
+ end
+ return resolvers.findbinfile(name,"ovf")
+ else
+ if trace_defining then
+ logs.report("define font","vf for %s is already taken care of",name)
+ end
+ return nil
+ end
+ else
+ if trace_defining then
+ logs.report("define font","locating vf for %s",name)
+ end
+ return resolvers.findbinfile(name,"ovf")
+ end
+end
+callbacks.register('define_font',define.read,"definition of fonts (tfmtable preparation)")
+callbacks.register('find_vf_file',vf.find,"locating virtual fonts, insofar needed")
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-xtx']={
+ version=1.001,
+ comment="companion to font-ini.mkiv",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+local texsprint,count=tex.sprint,tex.count
+local format,concat,gmatch,match,find,lower=string.format,table.concat,string.gmatch,string.match,string.find,string.lower
+local tostring,next=tostring,next
+local lpegmatch=lpeg.match
+local trace_defining=false trackers.register("fonts.defining",function(v) trace_defining=v end)
+local list={}
+fonts.define.specify.colonized_default_lookup="file"
+local function isstyle(s)
+ local style=string.lower(s):split("/")
+ for _,v in ipairs(style) do
+ if v=="b" then
+ list.style="bold"
+ elseif v=="i" then
+ list.style="italic"
+ elseif v=="bi" or v=="ib" then
+ list.style="bolditalic"
+ elseif v:find("^s=") then
+ list.optsize=v:split("=")[2]
+ elseif v=="aat" or v=="icu" or v=="gr" then
+ logs.report("load font","unsupported font option: %s",v)
+ elseif not v:is_empty() then
+ list.style=v:gsub("[^%a%d]","")
+ end
+ end
+end
+fonts=fonts or {}
+fonts.otf=fonts.otf or {}
+local otf=fonts.otf
+otf.tables=otf.tables or {}
+otf.tables.defaults={
+ dflt={
+ "ccmp","locl","rlig","liga","clig",
+ "kern","mark","mkmk","itlc",
+ },
+ arab={
+ "ccmp","locl","isol","fina","fin2",
+ "fin3","medi","med2","init","rlig",
+ "calt","liga","cswh","mset","curs",
+ "kern","mark","mkmk",
+ },
+ deva={
+ "ccmp","locl","init","nukt","akhn",
+ "rphf","blwf","half","pstf","vatu",
+ "pres","blws","abvs","psts","haln",
+ "calt","blwm","abvm","dist","kern",
+ "mark","mkmk",
+ },
+ khmr={
+ "ccmp","locl","pref","blwf","abvf",
+ "pstf","pres","blws","abvs","psts",
+ "clig","calt","blwm","abvm","dist",
+ "kern","mark","mkmk",
+ },
+ thai={
+ "ccmp","locl","liga","kern","mark",
+ "mkmk",
+ },
+ hang={
+ "ccmp","ljmo","vjmo","tjmo",
+ },
+}
+otf.tables.defaults.beng=otf.tables.defaults.deva
+otf.tables.defaults.guru=otf.tables.defaults.deva
+otf.tables.defaults.gujr=otf.tables.defaults.deva
+otf.tables.defaults.orya=otf.tables.defaults.deva
+otf.tables.defaults.taml=otf.tables.defaults.deva
+otf.tables.defaults.telu=otf.tables.defaults.deva
+otf.tables.defaults.knda=otf.tables.defaults.deva
+otf.tables.defaults.mlym=otf.tables.defaults.deva
+otf.tables.defaults.sinh=otf.tables.defaults.deva
+otf.tables.defaults.syrc=otf.tables.defaults.arab
+otf.tables.defaults.mong=otf.tables.defaults.arab
+otf.tables.defaults.nko=otf.tables.defaults.arab
+otf.tables.defaults.tibt=otf.tables.defaults.khmr
+otf.tables.defaults.lao=otf.tables.defaults.thai
+local function parse_script(script)
+ if otf.tables.scripts[script] then
+ local dflt
+ if otf.tables.defaults[script] then
+ logs.report("load font","auto-selecting default features for script: %s",script)
+ dflt=otf.tables.defaults[script]
+ else
+ logs.report("load font","auto-selecting default features for script: dflt (was %s)",script)
+ dflt=otf.tables.defaults["dflt"]
+ end
+ for _,v in next,dflt do
+ list[v]="yes"
+ end
+ else
+ logs.report("load font","unknown script: %s",script)
+ end
+end
+local function issome () list.lookup=fonts.define.specify.colonized_default_lookup end
+local function isfile () list.lookup='file' end
+local function isname () list.lookup='name' end
+local function thename(s) list.name=s end
+local function issub (v) list.sub=v end
+local function iskey (k,v)
+ if k=="script" then
+ parse_script(v)
+ end
+ list[k]=v
+end
+local function istrue (s) list[s]=true end
+local function isfalse(s) list[s]=false end
+local spaces=lpeg.P(" ")^0
+local namespec=(1-lpeg.S("/:("))^0
+local filespec=(lpeg.R("az","AZ")*lpeg.P(":"))^-1*(1-lpeg.S(":("))^1
+local crapspec=spaces*lpeg.P("/")*(((1-lpeg.P(":"))^0)/isstyle)*spaces
+local filename=(lpeg.P("file:")/isfile*(filespec/thename))+(lpeg.P("[")*lpeg.P(true)/isfile*(((1-lpeg.P("]"))^0)/thename)*lpeg.P("]"))
+local fontname=(lpeg.P("name:")/isname*(namespec/thename))+lpeg.P(true)/issome*(namespec/thename)
+local sometext=(lpeg.R("az","AZ","09")+lpeg.S("+-."))^1
+local truevalue=lpeg.P("+")*spaces*(sometext/istrue)
+local falsevalue=lpeg.P("-")*spaces*(sometext/isfalse)
+local keyvalue=lpeg.P("+")+(lpeg.C(sometext)*spaces*lpeg.P("=")*spaces*lpeg.C(sometext))/iskey
+local somevalue=sometext/istrue
+local subvalue=lpeg.P("(")*(lpeg.C(lpeg.P(1-lpeg.S("()"))^1)/issub)*lpeg.P(")")
+local option=spaces*(keyvalue+falsevalue+truevalue+somevalue)*spaces
+local options=lpeg.P(":")*spaces*(lpeg.P(";")^0*option)^0
+local pattern=(filename+fontname)*subvalue^0*crapspec^0*options^0
+local normalize_meanings=fonts.otf.meanings.normalize
+function fonts.define.specify.colonized(specification)
+ list={}
+ lpegmatch(pattern,specification.specification)
+ if list.style then
+ specification.style=list.style
+ list.style=nil
+ end
+ if list.optsize then
+ specification.optsize=list.optsize
+ list.optsize=nil
+ end
+ if list.name then
+ if resolvers.find_file(list.name,"tfm") then
+ list.lookup="file"
+ list.name=file.addsuffix(list.name,"tfm")
+ elseif resolvers.find_file(list.name,"ofm") then
+ list.lookup="file"
+ list.name=file.addsuffix(list.name,"ofm")
+ end
+ specification.name=list.name
+ list.name=nil
+ end
+ if list.lookup then
+ specification.lookup=list.lookup
+ list.lookup=nil
+ end
+ if list.sub then
+ specification.sub=list.sub
+ list.sub=nil
+ end
+ specification.features.normal=normalize_meanings(list)
+ return specification
+end
+fonts.define.register_split(":",fonts.define.specify.colonized)
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-dum']={
+ version=1.001,
+ comment="companion to luatex-*.tex",
+ author="Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright="PRAGMA ADE / ConTeXt Development Team",
+ license="see context related readme files"
+}
+fonts=fonts or {}
+fonts.otf.pack=false
+fonts.tfm.resolve_vf=false
+fonts.tfm.fontname_mode="specification"
+fonts.tfm.readers=fonts.tfm.readers or {}
+fonts.tfm.readers.sequence={ 'otf','ttf','tfm' }
+fonts.tfm.readers.afm=nil
+fonts.define=fonts.define or {}
+fonts.define.specify.colonized_default_lookup="name"
+function fonts.define.get_specification(str)
+ return "",str,"",":",str
+end
+fonts.logger=fonts.logger or {}
+function fonts.logger.save()
+end
+fonts.names=fonts.names or {}
+fonts.names.version=1.001
+fonts.names.basename="luatex-fonts-names.lua"
+fonts.names.new_to_old={}
+fonts.names.old_to_new={}
+local data,loaded=nil,false
+local fileformats={ "lua","tex","other text files" }
+function fonts.names.resolve(name,sub)
+ if not loaded then
+ local basename=fonts.names.basename
+ if basename and basename~="" then
+ for i=1,#fileformats do
+ local format=fileformats[i]
+ local foundname=resolvers.find_file(basename,format) or ""
+ if foundname~="" then
+ data=dofile(foundname)
+ break
+ end
+ end
+ end
+ loaded=true
+ end
+ if type(data)=="table" and data.version==fonts.names.version then
+ local condensed=string.gsub(string.lower(name),"[^%a%d]","")
+ local found=data.mappings and data.mappings[condensed]
+ if found then
+ local fontname,filename,subfont=found[1],found[2],found[3]
+ if subfont then
+ return filename,fontname
+ else
+ return filename,false
+ end
+ else
+ return name,false
+ end
+ end
+end
+fonts.names.resolvespec=fonts.names.resolve
+table.insert(fonts.triggers,"itlc")
+local function itlc(tfmdata,value)
+ if value then
+ local metadata=tfmdata.shared.otfdata.metadata
+ if metadata then
+ local italicangle=metadata.italicangle
+ if italicangle and italicangle~=0 then
+ local uwidth=(metadata.uwidth or 40)/2
+ for unicode,d in next,tfmdata.descriptions do
+ local it=d.boundingbox[3]-d.width+uwidth
+ if it~=0 then
+ d.italic=it
+ end
+ end
+ tfmdata.has_italic=true
+ end
+ end
+ end
+end
+fonts.initializers.base.otf.itlc=itlc
+fonts.initializers.node.otf.itlc=itlc
+function fonts.initializers.common.slant(tfmdata,value)
+ value=tonumber(value)
+ if not value then
+ value=0
+ elseif value>1 then
+ value=1
+ elseif value<-1 then
+ value=-1
+ end
+ tfmdata.slant_factor=value
+end
+function fonts.initializers.common.extend(tfmdata,value)
+ value=tonumber(value)
+ if not value then
+ value=0
+ elseif value>10 then
+ value=10
+ elseif value<-10 then
+ value=-10
+ end
+ tfmdata.extend_factor=value
+end
+table.insert(fonts.triggers,"slant")
+table.insert(fonts.triggers,"extend")
+fonts.initializers.base.otf.slant=fonts.initializers.common.slant
+fonts.initializers.node.otf.slant=fonts.initializers.common.slant
+fonts.initializers.base.otf.extend=fonts.initializers.common.extend
+fonts.initializers.node.otf.extend=fonts.initializers.common.extend
+fonts.protrusions=fonts.protrusions or {}
+fonts.protrusions.setups=fonts.protrusions.setups or {}
+local setups=fonts.protrusions.setups
+local function map_opbd_onto_protrusion(tfmdata,value,opbd)
+ local characters,descriptions=tfmdata.characters,tfmdata.descriptions
+ local otfdata=tfmdata.shared.otfdata
+ local singles=otfdata.shared.featuredata.gpos_single
+ local script,language=tfmdata.script,tfmdata.language
+ local done,factor,left,right=false,1,1,1
+ local setup=setups[value]
+ if setup then
+ factor=setup.factor or 1
+ left=setup.left or 1
+ right=setup.right or 1
+ else
+ factor=tonumber(value) or 1
+ end
+ if opbd~="right" then
+ local validlookups,lookuplist=fonts.otf.collect_lookups(otfdata,"lfbd",script,language)
+ if validlookups then
+ for i=1,#lookuplist do
+ local lookup=lookuplist[i]
+ local data=singles[lookup]
+ if data then
+ if trace_protrusion then
+ logs.report("fonts","set left protrusion using lfbd lookup '%s'",lookup)
+ end
+ for k,v in next,data do
+ local p=- (v[1]/1000)*factor*left
+ characters[k].left_protruding=p
+ if trace_protrusion then
+ logs.report("opbd","lfbd -> %s -> 0x%05X (%s) -> %0.03f (%s)",lookup,k,utfchar(k),p,concat(v," "))
+ end
+ end
+ done=true
+ end
+ end
+ end
+ end
+ if opbd~="left" then
+ local validlookups,lookuplist=fonts.otf.collect_lookups(otfdata,"rtbd",script,language)
+ if validlookups then
+ for i=1,#lookuplist do
+ local lookup=lookuplist[i]
+ local data=singles[lookup]
+ if data then
+ if trace_protrusion then
+ logs.report("fonts","set right protrusion using rtbd lookup '%s'",lookup)
+ end
+ for k,v in next,data do
+ local p=(v[1]/1000)*factor*right
+ characters[k].right_protruding=p
+ if trace_protrusion then
+ logs.report("opbd","rtbd -> %s -> 0x%05X (%s) -> %0.03f (%s)",lookup,k,utfchar(k),p,concat(v," "))
+ end
+ end
+ end
+ done=true
+ end
+ end
+ end
+ tfmdata.auto_protrude=done
+end
+function fonts.initializers.common.protrusion(tfmdata,value)
+ if value then
+ local opbd=tfmdata.shared.features.opbd
+ if opbd then
+ map_opbd_onto_protrusion(tfmdata,value,opbd)
+ elseif value then
+ local setup=setups[value]
+ if setup then
+ local factor,left,right=setup.factor or 1,setup.left or 1,setup.right or 1
+ local emwidth=tfmdata.parameters.quad
+ tfmdata.auto_protrude=true
+ for i,chr in next,tfmdata.characters do
+ local v,pl,pr=setup[i],nil,nil
+ if v then
+ pl,pr=v[1],v[2]
+ end
+ if pl and pl~=0 then chr.left_protruding=left*pl*factor end
+ if pr and pr~=0 then chr.right_protruding=right*pr*factor end
+ end
+ end
+ end
+ end
+end
+fonts.expansions=fonts.expansions or {}
+fonts.expansions.setups=fonts.expansions.setups or {}
+local setups=fonts.expansions.setups
+function fonts.initializers.common.expansion(tfmdata,value)
+ if value then
+ local setup=setups[value]
+ if setup then
+ local stretch,shrink,step,factor=setup.stretch or 0,setup.shrink or 0,setup.step or 0,setup.factor or 1
+ tfmdata.stretch,tfmdata.shrink,tfmdata.step,tfmdata.auto_expand=stretch*10,shrink*10,step*10,true
+ for i,chr in next,tfmdata.characters do
+ local v=setup[i]
+ if v and v~=0 then
+ chr.expansion_factor=v*factor
+ else
+ chr.expansion_factor=factor
+ end
+ end
+ end
+ end
+end
+table.insert(fonts.manipulators,"protrusion")
+table.insert(fonts.manipulators,"expansion")
+fonts.initializers.base.otf.protrusion=fonts.initializers.common.protrusion
+fonts.initializers.node.otf.protrusion=fonts.initializers.common.protrusion
+fonts.initializers.base.otf.expansion=fonts.initializers.common.expansion
+fonts.initializers.node.otf.expansion=fonts.initializers.common.expansion
+function fonts.register_message()
+end
+local byte=string.byte
+fonts.expansions.setups['default']={
+ stretch=2,shrink=2,step=.5,factor=1,
+ [byte('A')]=0.5,[byte('B')]=0.7,[byte('C')]=0.7,[byte('D')]=0.5,[byte('E')]=0.7,
+ [byte('F')]=0.7,[byte('G')]=0.5,[byte('H')]=0.7,[byte('K')]=0.7,[byte('M')]=0.7,
+ [byte('N')]=0.7,[byte('O')]=0.5,[byte('P')]=0.7,[byte('Q')]=0.5,[byte('R')]=0.7,
+ [byte('S')]=0.7,[byte('U')]=0.7,[byte('W')]=0.7,[byte('Z')]=0.7,
+ [byte('a')]=0.7,[byte('b')]=0.7,[byte('c')]=0.7,[byte('d')]=0.7,[byte('e')]=0.7,
+ [byte('g')]=0.7,[byte('h')]=0.7,[byte('k')]=0.7,[byte('m')]=0.7,[byte('n')]=0.7,
+ [byte('o')]=0.7,[byte('p')]=0.7,[byte('q')]=0.7,[byte('s')]=0.7,[byte('u')]=0.7,
+ [byte('w')]=0.7,[byte('z')]=0.7,
+ [byte('2')]=0.7,[byte('3')]=0.7,[byte('6')]=0.7,[byte('8')]=0.7,[byte('9')]=0.7,
+}
+fonts.protrusions.setups['default']={
+ factor=1,left=1,right=1,
+ [0x002C]={ 0,1 },
+ [0x002E]={ 0,1 },
+ [0x003A]={ 0,1 },
+ [0x003B]={ 0,1 },
+ [0x002D]={ 0,1 },
+ [0x2013]={ 0,0.50 },
+ [0x2014]={ 0,0.33 },
+ [0x3001]={ 0,1 },
+ [0x3002]={ 0,1 },
+ [0x060C]={ 0,1 },
+ [0x061B]={ 0,1 },
+ [0x06D4]={ 0,1 },
+}
+fonts.otf.meanings=fonts.otf.meanings or {}
+fonts.otf.meanings.normalize=fonts.otf.meanings.normalize or function(t)
+ if t.rand then
+ t.rand="random"
+ end
+end
+function fonts.otf.name_to_slot(name)
+ local tfmdata=fonts.ids[font.current()]
+ if tfmdata and tfmdata.shared then
+ local otfdata=tfmdata.shared.otfdata
+ local unicode=otfdata.luatex.unicodes[name]
+ return unicode and (type(unicode)=="number" and unicode or unicode[1])
+ end
+end
+function fonts.otf.char(n)
+ if type(n)=="string" then
+ n=fonts.otf.name_to_slot(n)
+ end
+ if type(n)=="number" then
+ tex.sprint("\\char"..n)
+ end
+end
+fonts.strippables=table.tohash {
+ 0x000AD,0x017B4,0x017B5,0x0200B,0x0200C,0x0200D,0x0200E,0x0200F,0x0202A,0x0202B,
+ 0x0202C,0x0202D,0x0202E,0x02060,0x02061,0x02062,0x02063,0x0206A,0x0206B,0x0206C,
+ 0x0206D,0x0206E,0x0206F,0x0FEFF,0x1D173,0x1D174,0x1D175,0x1D176,0x1D177,0x1D178,
+ 0x1D179,0x1D17A,0xE0001,0xE0020,0xE0021,0xE0022,0xE0023,0xE0024,0xE0025,0xE0026,
+ 0xE0027,0xE0028,0xE0029,0xE002A,0xE002B,0xE002C,0xE002D,0xE002E,0xE002F,0xE0030,
+ 0xE0031,0xE0032,0xE0033,0xE0034,0xE0035,0xE0036,0xE0037,0xE0038,0xE0039,0xE003A,
+ 0xE003B,0xE003C,0xE003D,0xE003E,0xE003F,0xE0040,0xE0041,0xE0042,0xE0043,0xE0044,
+ 0xE0045,0xE0046,0xE0047,0xE0048,0xE0049,0xE004A,0xE004B,0xE004C,0xE004D,0xE004E,
+ 0xE004F,0xE0050,0xE0051,0xE0052,0xE0053,0xE0054,0xE0055,0xE0056,0xE0057,0xE0058,
+ 0xE0059,0xE005A,0xE005B,0xE005C,0xE005D,0xE005E,0xE005F,0xE0060,0xE0061,0xE0062,
+ 0xE0063,0xE0064,0xE0065,0xE0066,0xE0067,0xE0068,0xE0069,0xE006A,0xE006B,0xE006C,
+ 0xE006D,0xE006E,0xE006F,0xE0070,0xE0071,0xE0072,0xE0073,0xE0074,0xE0075,0xE0076,
+ 0xE0077,0xE0078,0xE0079,0xE007A,0xE007B,0xE007C,0xE007D,0xE007E,0xE007F,
+}
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ['font-clr']={
+ version=1.001,
+ comment="companion to font-otf.lua (font color)",
+ author="Khaled Hosny and Elie Roux",
+ copyright="Luaotfload Development Team",
+ license="GPL"
+}
+fonts.triggers=fonts.triggers or {}
+fonts.initializers=fonts.initializers or {}
+fonts.initializers.common=fonts.initializers.common or {}
+local initializers,format=fonts.initializers,string.format
+table.insert(fonts.triggers,"color")
+function initializers.common.color(tfmdata,value)
+ local sanitized
+ if value then
+ value=tostring(value)
+ if #value==6 or #value==8 then
+ sanitized=value
+ elseif #value==7 then
+ _,_,sanitized=value:find("(......)")
+ elseif #value>8 then
+ _,_,sanitized=value:find("(........)")
+ else
+ end
+ end
+ if sanitized then
+ tfmdata.color=sanitized
+ add_color_callback()
+ end
+end
+initializers.base.otf.color=initializers.common.color
+initializers.node.otf.color=initializers.common.color
+local function hex2dec(hex,one)
+ if one then
+ return format("%.1g",tonumber(hex,16)/255)
+ else
+ return format("%.3g",tonumber(hex,16)/255)
+ end
+end
+local res
+local function pageresources(a)
+ local res2
+ if not res then
+ res="/TransGs1<</ca 1/CA 1>>"
+ end
+ res2=format("/TransGs%s<</ca %s/CA %s>>",a,a,a)
+ res=format("%s%s",res,res:find(res2) and "" or res2)
+end
+local function hex_to_rgba(hex)
+ local r,g,b,a,push,pop,res3
+ if hex then
+ if #hex==6 then
+ _,_,r,g,b=hex:find('(..)(..)(..)')
+ elseif #hex==8 then
+ _,_,r,g,b,a=hex:find('(..)(..)(..)(..)')
+ a=hex2dec(a,true)
+ pageresources(a)
+ end
+ else
+ return nil
+ end
+ r=hex2dec(r)
+ g=hex2dec(g)
+ b=hex2dec(b)
+ if a then
+ push=format('/TransGs%g gs %s %s %s rg',a,r,g,b)
+ pop='0 g /TransGs1 gs'
+ else
+ push=format('%s %s %s rg',r,g,b)
+ pop='0 g'
+ end
+ return push,pop
+end
+local glyph=node.id('glyph')
+local hlist=node.id('hlist')
+local vlist=node.id('vlist')
+local whatsit=node.id('whatsit')
+local pgi=node.id('page_insert')
+local sbox=node.id('sub_box')
+local function lookup_next_color(head)
+ for n in node.traverse(head) do
+ if n.id==glyph then
+ if fonts.ids[n.font] and fonts.ids[n.font].color then
+ return fonts.ids[n.font].color
+ else
+ return -1
+ end
+ elseif n.id==vlist or n.id==hlist or n.id==sbox then
+ local r=lookup_next_color(n.list)
+ if r==-1 then
+ return -1
+ elseif r then
+ return r
+ end
+ elseif n.id==whatsit or n.id==pgi then
+ return -1
+ end
+ end
+ return nil
+end
+local function node_colorize(head,current_color,next_color)
+ for n in node.traverse(head) do
+ if n.id==hlist or n.id==vlist or n.id==sbox then
+ local next_color_in=lookup_next_color(n.next) or next_color
+ n.list,current_color=node_colorize(n.list,current_color,next_color_in)
+ elseif n.id==glyph then
+ local tfmdata=fonts.ids[n.font]
+ if tfmdata and tfmdata.color then
+ if tfmdata.color~=current_color then
+ local pushcolor=hex_to_rgba(tfmdata.color)
+ local push=node.new(whatsit,8)
+ push.mode=1
+ push.data=pushcolor
+ head=node.insert_before(head,n,push)
+ current_color=tfmdata.color
+ end
+ local next_color_in=lookup_next_color (n.next) or next_color
+ if next_color_in~=tfmdata.color then
+ local _,popcolor=hex_to_rgba(tfmdata.color)
+ local pop=node.new(whatsit,8)
+ pop.mode=1
+ pop.data=popcolor
+ head=node.insert_after(head,n,pop)
+ current_color=nil
+ end
+ end
+ end
+ end
+ return head,current_color
+end
+local function font_colorize(head)
+ if res then
+ local r="/ExtGState<<"..res..">>"
+ tex.pdfpageresources=tex.pdfpageresources:gsub(r,"")
+ end
+ local h=node_colorize(head,nil,nil)
+ if res and res:find("%S") then
+ local r="/ExtGState<<"..res..">>"
+ tex.pdfpageresources=tex.pdfpageresources..r
+ end
+ return h
+end
+local color_callback_activated=0
+function add_color_callback()
+ if color_callback_activated==0 then
+ luatexbase.add_to_callback("pre_output_filter",font_colorize,"loaotfload.colorize")
+ color_callback_activated=1
+ end
+end
+
+end -- closure