diff options
author | Hans Hagen <pragma@wxs.nl> | 2013-01-08 19:28:00 +0100 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2013-01-08 19:28:00 +0100 |
commit | 6839f83e77cb6f3d2ada608c917e7004fc925c24 (patch) | |
tree | 814f160babe3ad70ac7c1fcadee79317673b61f9 /tex/context/base/l-string.lua | |
parent | 5dca02e1882961ee70649f1ab96aead5c7f5910f (diff) | |
download | context-6839f83e77cb6f3d2ada608c917e7004fc925c24.tar.gz |
beta 2013.01.08 19:28
Diffstat (limited to 'tex/context/base/l-string.lua')
-rw-r--r-- | tex/context/base/l-string.lua | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tex/context/base/l-string.lua b/tex/context/base/l-string.lua index 597ce3462..7a919d189 100644 --- a/tex/context/base/l-string.lua +++ b/tex/context/base/l-string.lua @@ -69,8 +69,9 @@ function string.limit(str,n,sentinel) -- not utf proof end end -local stripper = patterns.stripper -local collapser = patterns.collapser +local stripper = patterns.stripper +local collapser = patterns.collapser +local longtostring = patterns.longtostring function string.strip(str) return lpegmatch(stripper,str) or "" @@ -80,6 +81,10 @@ function string.collapsespaces(str) return lpegmatch(collapser,str) or "" end +function string.longtostring(str) + return lpegmatch(longtostring,str) or "" +end + -- function string.is_empty(str) -- return not find(str,"%S") -- end |