diff options
author | Hans Hagen <pragma@wxs.nl> | 2010-11-19 22:50:00 +0100 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2010-11-19 22:50:00 +0100 |
commit | 2f39a561c13930c72772c2344cd4f8612eff33d6 (patch) | |
tree | 739ac8bfca42d22fc3a880b2bf73745f7b7dbe05 /tex/context/base/l-string.lua | |
parent | 04aa4bbecf30774917a3e3e52d3603479291c182 (diff) | |
download | context-2f39a561c13930c72772c2344cd4f8612eff33d6.tar.gz |
beta 2010.11.19 22:50
Diffstat (limited to 'tex/context/base/l-string.lua')
-rw-r--r-- | tex/context/base/l-string.lua | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/tex/context/base/l-string.lua b/tex/context/base/l-string.lua index 1e55f6bac..7a45b98bf 100644 --- a/tex/context/base/l-string.lua +++ b/tex/context/base/l-string.lua @@ -116,52 +116,6 @@ function string.topattern(str,lowercase,strict) end end ---~ local t = { ---~ "1234567123456712345671234567", ---~ "a\tb\tc", ---~ "aa\tbb\tcc", ---~ "aaa\tbbb\tccc", ---~ "aaaa\tbbbb\tcccc", ---~ "aaaaa\tbbbbb\tccccc", ---~ "aaaaaa\tbbbbbb\tcccccc", ---~ } ---~ for k,v do ---~ print(string.tabtospace(t[k])) ---~ end - --- The following functions might end up in another namespace. - -function string.tabtospace(str,tab) - -- we don't handle embedded newlines - while true do - local s = find(str,"\t") - if s then - if not tab then tab = 7 end -- only when found - local d = tab-(s-1) % tab - if d > 0 then - str = gsub(str,"\t",rep(" ",d),1) - else - str = gsub(str,"\t","",1) - end - else - break - end - end - return str -end - ---~ local template = string.striplong([[ ---~ aaaa ---~ bb ---~ cccccc ---~ ]]) - -function string.striplong(str) -- strips all leading spaces - str = gsub(str,"^%s*","") - str = gsub(str,"[\n\r]+ *","\n") - return str -end - -- obsolete names: string.quote = string.quoted |