Mercurial > urweb

comparison src/cjr_print.sml @ 802:ef6de4075dc1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix a Core_untangle bug that missed closure variable references; XHTMLize
author Adam Chlipala <adamc@hcoop.net>
date Sat, 16 May 2009 12:41:33 -0400
parents 7394368a5cad
children 10fe57e4a8c2
comparison
equal deleted inserted replaced
801:5f49a6b759cb 802:ef6de4075dc1
2827 newline] 2827 newline]
2828 | _ => [string "uw_write_header(ctx, \"Content-type: text/html\\r\\n\");", 2828 | _ => [string "uw_write_header(ctx, \"Content-type: text/html\\r\\n\");",
2829 newline, 2829 newline,
2830 string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");", 2830 string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");",
2831 newline, 2831 newline,
2832 string "uw_write(ctx, \"<html>\");", 2832 string "uw_write(ctx, \"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Transitional//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\\\">\\n<html>\");",
2833 newline, 2833 newline,
2834 string "uw_set_script_header(ctx, \"", 2834 string "uw_set_script_header(ctx, \"",
2835 string (case side of 2835 string (case side of
2836 ServerOnly => "" 2836 ServerOnly => ""
2837 | _ => "<script src=\\\"" 2837 | _ => "<script src=\\\""