diff options
author | Context Git Mirror Bot <phg42.2a@gmail.com> | 2014-07-25 13:15:04 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2014-07-25 13:15:04 +0200 |
commit | 769967e166088f76efab91e4a0b84e6d3885182d (patch) | |
tree | adc942fb1eae1967b32621aa4b9a50ed9c90b399 /tex/generic | |
parent | a8d691a06b3cb155f33b01d30c38dfed65cab28d (diff) | |
download | context-769967e166088f76efab91e4a0b84e6d3885182d.tar.gz |
2014-07-25 12:59:00
Diffstat (limited to 'tex/generic')
-rw-r--r-- | tex/generic/context/luatex/luatex-fonts-merged.lua | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua index 293a31996..9eab657a1 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 : 07/18/14 14:12:32 +-- merge date : 07/25/14 12:57:26 do -- begin closure to overcome local limits and interference @@ -2460,6 +2460,18 @@ function file.collapsepath(str,anchor) end end end +local tricky=S("/\\")*P(-1) +local attributes=lfs.attributes +function lfs.isdir(name) + if lpegmatch(tricky,name) then + return attributes(name,"mode")=="directory" + else + return attributes(name.."/.","mode")=="directory" + end +end +function lfs.isfile(name) + return attributes(name,"mode")=="file" +end local validchars=R("az","09","AZ","--","..") local pattern_a=lpeg.replacer(1-validchars) local pattern_a=Cs((validchars+P(1)/"-")^1) |