view tools/make_template.ml @ 36:9e46ade5af21

Manual Proofs About Constructors
author Adam Chlipala <adamc@hcoop.net>
date Fri, 12 Sep 2008 14:59:08 -0400
parents c8070689f5ca
children d45ba7e9b266
line wrap: on
line source
let read_line () = 
  try
    Some (read_line ())
  with End_of_file -> None

let rec initial last_was_empty =
  match read_line () with
  | None -> ()
  | Some "(* begin thide *)" ->	thide last_was_empty
  | Some "" ->
      if not (last_was_empty) then
	print_newline ();
      initial true
  | Some line ->
      if String.length line >= 2 && line.[0] = '(' && line.[1] = '*' then
	if line.[String.length line - 2] = '*' && line.[String.length line - 1] = ')' then
	  initial last_was_empty
	else
	  comment last_was_empty
      else begin
	print_endline line;
	initial false
      end

and comment last_was_empty =
  match read_line () with
  | None -> ()
  | Some line ->
      if String.length line >= 2 && line.[String.length line - 2] = '*'
	  && line.[String.length line - 1] = ')' then
	initial last_was_empty
      else
	comment last_was_empty

and thide last_was_empty =
  match read_line () with
  | None -> ()
  | Some "(* end thide *)" -> initial last_was_empty
  | Some _ -> thide last_was_empty

let () = initial false