replaced recursivePath with shallowPath for Babel

This commit is contained in:
Araq
2012-12-06 22:51:39 +01:00
parent 22a59c057f
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)

View File

@@ -25,7 +25,8 @@ Advanced options:
--warning[X]:on|off turn specific warning X on|off
--hints:on|off turn all hints on|off
--hint[X]:on|off turn specific hint X on|off
--recursivePath:PATH add a path and all of its subdirectories
--shallowPath:PATH add a path and all of its subdirectories (but
not recursively)
--lib:PATH set the system library path
--import:PATH add an automatically imported module
--include:PATH add an automatically included module

View File

@@ -108,3 +108,4 @@ Bugs
use a qualifier
- blocks can "export" an identifier but the CCG generates {} for them ...
- JS gen: fix exception handling
- the better scoping for locals is the wrong default for endb