Mercurial > urweb

comparison src/jscomp.sml @ 1656:3e7c7e200713

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix handling of quotes in generating C literals
author Adam Chlipala <adam@chlipala.net>
date Mon, 02 Jan 2012 17:08:39 -0500
parents 438561303d02
children 0577be31a435
comparison
equal deleted inserted replaced
1655:b694f9153faa 1656:3e7c7e200713
1322 val urlRules = "urlRules = " ^ urlRules ^ ";\n\n" 1322 val urlRules = "urlRules = " ^ urlRules ^ ";\n\n"
1323 1323
1324 val script = 1324 val script =
1325 if !foundJavaScript then 1325 if !foundJavaScript then
1326 lines ^ urlRules ^ String.concat (rev (#script st)) 1326 lines ^ urlRules ^ String.concat (rev (#script st))
1327 ^ "\ntime_format = \"" ^ String.toCString (Settings.getTimeFormat ()) ^ "\";\n" 1327 ^ "\ntime_format = \"" ^ Prim.toCString (Settings.getTimeFormat ()) ^ "\";\n"
1328 else 1328 else
1329 "" 1329 ""
1330 in 1330 in
1331 TextIO.closeIn inf; 1331 TextIO.closeIn inf;
1332 (DJavaScript script, ErrorMsg.dummySpan) :: ds 1332 (DJavaScript script, ErrorMsg.dummySpan) :: ds