added system.slurp for easy embedding of resources

This commit is contained in:
Araq 2011-08-10 00:43:58 +02:00
commit 72e7a98543
10 changed files with 63 additions and 24 deletions

View file

@ -182,12 +182,12 @@ proc CommandSuggest(filename: string) =
compileProject(filename)
proc WantFile(filename: string) =
if filename == "":
if filename.len == 0:
Fatal(newLineInfo("command line", 1, 1), errCommandExpectsFilename)
proc MainCommand(cmd, filename: string) =
appendStr(searchPaths, options.libpath)
if filename != "":
if filename.len != 0:
# current path is always looked first for modules
prependStr(searchPaths, splitFile(filename).dir)
setID(100)
@ -203,11 +203,13 @@ proc MainCommand(cmd, filename: string) =
extccomp.cExt = ".cpp"
gCmd = cmdCompileToCpp
wantFile(filename)
DefineSymbol("cpp")
CommandCompileToC(filename)
of "objc", "compiletooc":
extccomp.cExt = ".m"
gCmd = cmdCompileToOC
wantFile(filename)
DefineSymbol("objc")
CommandCompileToC(filename)
of "run":
gCmd = cmdRun