Macintosh-SW
/
mpw
mirror of https://github.com/ksherlock/mpw.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Smarter handling of : after a variable. 

Since :: is equivalent to .. in Unix, {$PathVariable}: would expand unexpectedly
if PathVariable had a trailing : (which it usually does) -- i.e., some:path:: == /some/path/.. = /some/.

: after a variable will be dropped if there was already a trailing :
This commit is contained in:
Kelvin Sherlock 2015-02-08 14:49:08 -05:00
parent 9fda034e0e
commit 42fe265dd2
2 changed files with 32 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
mpw/environment.rl
View File

@ -82,6 +82,20 @@ namespace {
%%{
machine variables;
coalesce_colon := |*
':' {
if (rv.length() && rv.back() != ':')
rv.push_back(':');
fgoto main;
};
any {
fhold;
fgoto main;
};
*|;
main := |*
'{' [A-Za-z0-9_]+ '}' {
@ -90,15 +104,23 @@ namespace {
auto iter = Environment.find(name);
if (iter != Environment.end())
rv.append(iter->second);
fgoto coalesce_colon;
};
# backwards compatibility.
'${' [A-Za-z0-9_]+ '}' {
std::string name(ts + 2, te - 1);
auto iter = Environment.find(name);
if (iter != Environment.end())
rv.append(iter->second);
if (pathname) {
rv.append(ts, te);
} else {
std::string name(ts + 2, te - 1);
auto iter = Environment.find(name);
if (iter != Environment.end())
rv.append(iter->second);
fgoto coalesce_colon;
}
};
# backwards compatibility.
@ -112,6 +134,8 @@ namespace {
auto iter = Environment.find(name);
if (iter != Environment.end())
rv.append(iter->second);
fgoto coalesce_colon;
}
};

5
verbatim/Environment.text
View File

@ -4,7 +4,10 @@
# $MPW uses MacOS : paths.
#
# $MPW includes the trailing ':'.
#Be mindful of this since '::' is equivalent to '..' in Unix.
# Since '::' is equivalent to '..' in Unix,
# A ':'' after a variable (eg, ${MPW}:)
# will be dropped if it's duplicative.
#
#
# = assigns (replacing any existing value)
# ?= will not replace an existing value.