Commit d0592847 authored by Karoline Malmkjaer's avatar Karoline Malmkjaer

added "generated"

parent 4f38033c
...@@ -90,7 +90,7 @@ let import_dtd ppf name src = ...@@ -90,7 +90,7 @@ let import_dtd ppf name src =
let dtd = let dtd =
parse_dtd_entity { default_config with encoding = `Enc_utf8 } src in parse_dtd_entity { default_config with encoding = `Enc_utf8 } src in
Format.fprintf ppf Format.fprintf ppf
"(* This file has been automatically by dtd2cduce *)@\n"; "(* This file has been automatically generated by dtd2cduce *)@\n";
List.iter (fun x -> elt ppf (dtd # element x)) (dtd # element_names) List.iter (fun x -> elt ppf (dtd # element x)) (dtd # element_names)
let main (cgi : Netcgi.std_activation) = let main (cgi : Netcgi.std_activation) =
......
Markdown is supported
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