Mercurial > urweb

comparison src/compiler.sml @ 2192:fb113569519e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make daemon mode support sharing of libraries across projects
author Adam Chlipala <adam@chlipala.net>
date Sun, 22 Nov 2015 10:03:35 -0500
parents 8c81cd351c1a
children 6eae499c56cb
comparison
equal deleted inserted replaced
2191:849404a3af27 2192:fb113569519e
411 end 411 end
412 412
413 val lastUrp = ref "" 413 val lastUrp = ref ""
414 414
415 fun parseUrp' accLibs fname = 415 fun parseUrp' accLibs fname =
416 (if !lastUrp = fname then 416 (lastUrp := fname;
417 ()
418 else
419 ModDb.reset ();
420 lastUrp := fname;
421 if not (Posix.FileSys.access (fname ^ ".urp", []) orelse Posix.FileSys.access (fname ^ "/lib.urp", [])) 417 if not (Posix.FileSys.access (fname ^ ".urp", []) orelse Posix.FileSys.access (fname ^ "/lib.urp", []))
422 andalso Posix.FileSys.access (fname ^ ".ur", []) then 418 andalso Posix.FileSys.access (fname ^ ".ur", []) then
423 let 419 let
424 val job = {prefix = "/", 420 val job = {prefix = "/",
425 database = NONE, 421 database = NONE,