Mercurial > urweb

comparison src/compiler.sml @ 853:19fdeef40ada

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Factor out common request functionality, in preparation for supporting different protocols
author Adam Chlipala <adamc@hcoop.net>
date Tue, 23 Jun 2009 14:05:12 -0400
parents 74e9e7642f08
children 28e42b22424d
comparison
equal deleted inserted replaced
852:4d4c62d95b9c 853:19fdeef40ada
882 val toSqlify = transform sqlify "sqlify" o toMono_opt2 882 val toSqlify = transform sqlify "sqlify" o toMono_opt2
883 883
884 fun compileC {cname, oname, ename, libs, profile, debug, link = link'} = 884 fun compileC {cname, oname, ename, libs, profile, debug, link = link'} =
885 let 885 let
886 val urweb_o = clibFile "urweb.o" 886 val urweb_o = clibFile "urweb.o"
887 val request_o = clibFile "request.o"
887 val driver_o = clibFile "driver.o" 888 val driver_o = clibFile "driver.o"
888 889
889 val compile = "gcc " ^ Config.gccArgs ^ " -Wstrict-prototypes -Werror -O3 -I " ^ Config.includ 890 val compile = "gcc " ^ Config.gccArgs ^ " -Wstrict-prototypes -Werror -O3 -I " ^ Config.includ
890 ^ " -c " ^ cname ^ " -o " ^ oname 891 ^ " -c " ^ cname ^ " -o " ^ oname
891 val link = "gcc -Werror -O3 -lm -lmhash -pthread " ^ libs ^ " " ^ urweb_o ^ " " ^ oname ^ " " ^ driver_o ^ " -o " ^ ename 892 val link = "gcc -Werror -O3 -lm -lmhash -pthread " ^ libs ^ " " ^ urweb_o ^ " " ^ oname
893 ^ " " ^ request_o ^ " " ^ driver_o ^ " -o " ^ ename
892 894
893 val (compile, link) = 895 val (compile, link) =
894 if profile then 896 if profile then
895 (compile ^ " -pg", link ^ " -pg") 897 (compile ^ " -pg", link ^ " -pg")
896 else 898 else