replaced recursivePath with shallowPath for Babel

This commit is contained in:
Araq 2012-12-06 22:51:39 +01:00
commit 05b05be9f8
3 changed files with 5 additions and 4 deletions

View file

@ -202,9 +202,8 @@ proc addPathRec(dir: string, info: TLineInfo) =
if dir[pos] in {DirSep, AltSep}: inc(pos)
for k,p in os.walkDir(dir):
if k == pcDir and p[pos] != '.':
addPathRec(p, info)
if not contains(options.searchPaths, p):
Message(info, hintPath, p)
#Message(info, hintPath, p)
lists.PrependStr(options.searchPaths, p)
proc track(arg: string, info: TLineInfo) =
@ -226,7 +225,7 @@ proc processSwitch(switch, arg: string, pass: TCmdlinePass, info: TLineInfo) =
of "path", "p":
expectArg(switch, arg, pass, info)
addPath(processPath(arg), info)
of "recursivepath":
of "shallowpath":
expectArg(switch, arg, pass, info)
var path = processPath(arg)
addPathRec(path, info)