diff options
author | Context Git Mirror Bot <phg42.2a@gmail.com> | 2015-04-29 20:15:05 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2015-04-29 20:15:05 +0200 |
commit | 59947aaf3bf2ad07251a569a77338c8c41f9e377 (patch) | |
tree | 0da53be81a91ea3bed5bcb4c5be8f725e6da54aa /tex/generic | |
parent | d60cd418153b3ea6909c8b4691a160f54c41a670 (diff) | |
download | context-59947aaf3bf2ad07251a569a77338c8c41f9e377.tar.gz |
2015-04-29 19:33:00
Diffstat (limited to 'tex/generic')
-rw-r--r-- | tex/generic/context/luatex/luatex-fonts-merged.lua | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua index 1d6509ae4..2bff7b0b6 100644 --- a/tex/generic/context/luatex/luatex-fonts-merged.lua +++ b/tex/generic/context/luatex/luatex-fonts-merged.lua @@ -1,6 +1,6 @@ -- merged file : luatex-fonts-merged.lua -- parent file : luatex-fonts.lua --- merge date : 04/18/15 14:41:50 +-- merge date : 04/29/15 19:31:00 do -- begin closure to overcome local limits and interference @@ -699,6 +699,31 @@ local function make(t) end return p end +local function collapse(t,x) + if type(t)~="table" then + return t,x + else + local n=next(t) + if n==nil then + return t,x + elseif next(t,n)==nil then + local k=n + local v=t[k] + if type(v)=="table" then + return collapse(v,x..k) + else + return v,x..k + end + else + local tt={} + for k,v in next,t do + local vv,kk=collapse(v,k) + tt[kk]=vv + end + return tt,x + end + end +end function lpeg.utfchartabletopattern(list) local tree={} local n=#list |