1 module ET = RecommTypes
6 let l = !width - String.length s - 6 in
8 Printf.eprintf "overfull: %S\n" s;
14 let out_src och = function
16 Printf.fprintf och "%s" s
18 Printf.fprintf och "%s" s
20 Printf.fprintf och "(* %s**)" s
22 Printf.fprintf och "(* %s1%s2*)" s1 s2
24 let s = String.concat " " ss in
25 Printf.fprintf och "(* %s %s*)" s (complete s)
27 let s = String.capitalize_ascii (String.concat " " ss) in
28 Printf.fprintf och "(* %s %s*)" s (complete s)
29 | ET.Other (s1, s2, s3) ->
30 Printf.fprintf och "%s%s%s" s1 s2 s3
32 let write_srcs file srcs =
33 let och = open_out (file ^ ".new") in
34 List.iter (out_src och) srcs;