diff options
author | Philipp Gesang <phg42.2a@gmail.com> | 2013-05-27 06:18:49 -0700 |
---|---|---|
committer | Philipp Gesang <phg42.2a@gmail.com> | 2013-05-27 06:18:49 -0700 |
commit | b1379efc10e86a907874104d7134b4e3f0ef1e1d (patch) | |
tree | 8ceb5c96ea2a3336ee3ec790b4dc2d7fbd0474e7 /luaotfload-merged.lua | |
parent | 7b227eafa8c2c607d31bc46897553139baa6430d (diff) | |
parent | 07cefa074b4ee7afe700180631eb54911b0b1d6b (diff) | |
download | luaotfload-b1379efc10e86a907874104d7134b4e3f0ef1e1d.tar.gz |
Merge pull request #92 from phi-gamma/master
sync
Diffstat (limited to 'luaotfload-merged.lua')
-rw-r--r-- | luaotfload-merged.lua | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/luaotfload-merged.lua b/luaotfload-merged.lua index 5789db6..8a9e5fc 100644 --- a/luaotfload-merged.lua +++ b/luaotfload-merged.lua @@ -1,6 +1,6 @@ -- merged file : luatex-fonts-merged.lua -- parent file : luatex-fonts.lua --- merge date : 05/22/13 19:28:51 +-- merge date : 05/27/13 11:01:26 do -- begin closure to overcome local limits and interference @@ -4691,9 +4691,9 @@ mappings.makenameparser=makenameparser mappings.tounicode16=tounicode16 mappings.tounicode16sequence=tounicode16sequence mappings.fromunicode16=fromunicode16 -local separator=S("_.") -local other=C((1-separator)^1) -local ligsplitter=Ct(other*(separator*other)^0) +local ligseparator=P("_") +local varseparator=P(".") +local namesplitter=Ct(C((1-ligseparator-varseparator)^1)*(ligseparator*C((1-ligseparator-varseparator)^1))^0) function mappings.addtounicode(data,filename) local resources=data.resources local properties=data.properties @@ -4778,11 +4778,11 @@ function mappings.addtounicode(data,filename) end end if not unicode or unicode=="" then - local split=lpegmatch(ligsplitter,name) - local nplit=split and #split or 0 - if nplit>=2 then + local split=lpegmatch(namesplitter,name) + local nsplit=split and #split or 0 + if nsplit>=2 then local t,n={},0 - for l=1,nplit do + for l=1,nsplit do local base=split[l] local u=unicodes[base] or unicodevector[base] if not u then |