Mercurial > urweb

comparison src/compiler.sml @ 282:0236d9412ad2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Ran a prepared statement with one string parameter
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Sep 2008 09:28:13 -0400
parents fdd7a698be01
children 3ed7a7c7b060
comparison
equal deleted inserted replaced
281:7d5860add50f 282:0236d9412ad2
449 print = CjrPrint.p_file CjrEnv.empty 449 print = CjrPrint.p_file CjrEnv.empty
450 } 450 }
451 451
452 val toCjrize = transform cjrize "cjrize" o toMono_opt2 452 val toCjrize = transform cjrize "cjrize" o toMono_opt2
453 453
454 val prepare = {
455 func = Prepare.prepare,
456 print = CjrPrint.p_file CjrEnv.empty
457 }
458
459 val toPrepare = transform prepare "prepare" o toCjrize
460
454 val sqlify = { 461 val sqlify = {
455 func = Cjrize.cjrize, 462 func = Cjrize.cjrize,
456 print = CjrPrint.p_sql CjrEnv.empty 463 print = CjrPrint.p_sql CjrEnv.empty
457 } 464 }
458 465
470 else 477 else
471 print "Success\n" 478 print "Success\n"
472 end 479 end
473 480
474 fun compile job = 481 fun compile job =
475 case run toCjrize job of 482 case run toPrepare job of
476 NONE => print "Ur compilation failed\n" 483 NONE => print "Ur compilation failed\n"
477 | SOME file => 484 | SOME file =>
478 let 485 let
479 val job = valOf (run (transform parseUrp "parseUrp") job) 486 val job = valOf (run (transform parseUrp "parseUrp") job)
480 487