Mercurial > urweb

comparison src/compiler.sml @ 457:360cbc202756

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Request header reading works
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Nov 2008 09:47:16 -0500
parents 9163f8014f9b
children 04b91c33ef54
comparison
equal deleted inserted replaced
456:1a4fa157fedd 457:360cbc202756
550 let 550 let
551 val job = valOf (run (transform parseUrp "parseUrp") job) 551 val job = valOf (run (transform parseUrp "parseUrp") job)
552 552
553 val (cname, oname, cleanup) = 553 val (cname, oname, cleanup) =
554 if #debug job then 554 if #debug job then
555 ("/tmp/urweb.c", "/tmp/urweb.o", fn () => ()) 555 ("/tmp/webapp.c", "/tmp/webapp.o", fn () => ())
556 else 556 else
557 let 557 let
558 val dir = OS.FileSys.tmpName () 558 val dir = OS.FileSys.tmpName ()
559 val () = if OS.FileSys.access (dir, []) then 559 val () = if OS.FileSys.access (dir, []) then
560 OS.FileSys.remove dir 560 OS.FileSys.remove dir
561 else 561 else
562 () 562 ()
563 val cname = OS.Path.joinDirFile {dir = dir, file = "urweb.c"} 563 val cname = OS.Path.joinDirFile {dir = dir, file = "webapp.c"}
564 val oname = OS.Path.joinDirFile {dir = dir, file = "urweb.o"} 564 val oname = OS.Path.joinDirFile {dir = dir, file = "webapp.o"}
565 in 565 in
566 OS.FileSys.mkDir dir; 566 OS.FileSys.mkDir dir;
567 (cname, oname, 567 (cname, oname,
568 fn () => (OS.FileSys.remove cname; 568 fn () => (OS.FileSys.remove cname;
569 OS.FileSys.remove oname; 569 OS.FileSys.remove oname;