diff options
| author | Hans Hagen <pragma@wxs.nl> | 2010-11-12 18:22:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2010-11-12 18:22:00 +0100 |
| commit | 953cd0a613be25ad37baaa745758862262e46395 (patch) | |
| tree | d599c351e258d4ef3257b1de3912ad5843ae6dfc /tex/context/base/l-file.lua | |
| parent | 026f0c26fedd2cd2b96ff9eca5ec7961956b3630 (diff) | |
| download | context-953cd0a613be25ad37baaa745758862262e46395.tar.gz | |
beta 2010.11.12 18:22
Diffstat (limited to 'tex/context/base/l-file.lua')
| -rw-r--r-- | tex/context/base/l-file.lua | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tex/context/base/l-file.lua b/tex/context/base/l-file.lua index 264b6a286..a2c461190 100644 --- a/tex/context/base/l-file.lua +++ b/tex/context/base/l-file.lua @@ -418,3 +418,10 @@ end --~ return (gsub(currentdir(),"\\","/")) --~ end --~ end + +-- for myself: + +function file.strip(name,dir) + local b, a = match(name,"^(.-)" .. dir .. "(.*)$") + return a ~= "" and a or name +end |