diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2018-05-30 14:45:37 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2018-05-30 14:45:37 +0200 |
commit | efd10a40347e2f84988ce5421909f79ed01750ce (patch) | |
tree | 76c4d27dd678ec88e6a479497b8783395f52b0d2 /doc/coq2html.mll | |
parent | 07caf778d7536392c7bc08216b900a1d2387dfb2 (diff) | |
download | compcert-efd10a40347e2f84988ce5421909f79ed01750ce.tar.gz compcert-efd10a40347e2f84988ce5421909f79ed01750ce.zip |
coq2html: use OCaml's alternate string literals for multi-line strings
Diffstat (limited to 'doc/coq2html.mll')
-rw-r--r-- | doc/coq2html.mll | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/doc/coq2html.mll b/doc/coq2html.mll index a5b284e2..cdc844dc 100644 --- a/doc/coq2html.mll +++ b/doc/coq2html.mll @@ -234,30 +234,30 @@ let end_proof kwd = in_proof := false let start_html_page modname = - fprintf !oc "\ -<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\"> -<html xmlns=\"http://www.w3.org/1999/xhtml\"> + fprintf !oc +{|<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> +<html xmlns="http://www.w3.org/1999/xhtml"> <head> -<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" /> +<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Module %s</title> -<meta name=\"description\" content=\"Documentation of Coq module %s\" /> -<link href=\"coq2html.css\" rel=\"stylesheet\" type=\"text/css\" /> -<script type=\"text/javascript\" src=\"coq2html.js\"> </script> +<meta name="description" content="Documentation of Coq module %s" /> +<link href="coq2html.css" rel="stylesheet" type="text/css" /> +<script type="text/javascript" src="coq2html.js"> </script> </head> -<body onload=\"hideAll('proofscript')\"> -<h1 class=\"title\">Module %s</h1> -<div class=\"coq\"> -" modname modname modname +<body onload="hideAll('proofscript')"> +<h1 class="title">Module %s</h1> +<div class="coq"> +|} modname modname modname let end_html_page () = - fprintf !oc "\ -</div> -<div class=\"footer\"><hr/>Generated by coq2html</div> + fprintf !oc +{|</div> +<div class="footer"><hr/>Generated by coq2html</div> </body> </html> -" +|} } |