From 31c85bed04f79cca40e26af118964bd86e8edd16 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Fri, 11 Sep 2009 18:14:00 +0200 Subject: beta 2009.09.11 18:14 --- tex/generic/context/luatex-fonts-merged.lua | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) (limited to 'tex/generic') diff --git a/tex/generic/context/luatex-fonts-merged.lua b/tex/generic/context/luatex-fonts-merged.lua index ad4c1896b..e32e2fc76 100644 --- a/tex/generic/context/luatex-fonts-merged.lua +++ b/tex/generic/context/luatex-fonts-merged.lua @@ -1,6 +1,6 @@ -- merged file : c:/data/develop/context/texmf/tex/generic/context/luatex-fonts-merged.lua -- parent file : c:/data/develop/context/texmf/tex/generic/context/luatex-fonts.lua --- merge date : 09/09/09 14:33:34 +-- merge date : 09/11/09 18:16:02 do -- begin closure to overcome local limits and interference @@ -197,6 +197,16 @@ function string:pattesc() return (gsub(self,".",patterns_escapes)) end +local simple_escapes = { + ["-"] = "%-", + ["."] = "%.", + ["*"] = ".*", +} + +function string:simpleesc() + return (gsub(self,".",simple_escapes)) +end + function string:tohash() local t = { } for s in gmatch(self,"([^, ]+)") do -- lpeg @@ -246,6 +256,12 @@ function string:compactlong() -- strips newlines and leading spaces return self end +function string:striplong() -- strips newlines and leading spaces + self = gsub(self,"^%s*","") + self = gsub(self,"[\n\r]+ *","\n") + return self +end + end -- closure do -- begin closure to overcome local limits and interference -- cgit v1.2.3