Commit ac5a7e05 authored by Benoît Barbot's avatar Benoît Barbot
Browse files

gen html

parent 6c8abb99
Pipeline #2812 passed with stages
in 1 minute and 3 seconds
......@@ -15,9 +15,19 @@ let _ =
copy g f;
close_in g;
Printf.fprintf f "end
module R = Gen_page.Make (%s)
let _= ()\n" mod_name;
close_out f
close_out f;
let pagename = (Filename.chop_extension infile)^".html" in
if not @@ Sys.file_exists pagename then
let fhtml = open_out pagename in
Printf.fprintf fhtml "<!DOCTYPE html><html><head>
<meta charset='utf-8'/>
<script type='text/javascript' src='%s.bc.js'></script>
</head><body></body></html>" mod_name;
close_out fhtml
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment