sig
  type point_kind =
      Binding
    | Sequence
    | For
    | IfThen
    | Try
    | While
    | Match
    | ClassExpr
    | ClassInit
    | ClassMeth
    | ClassVal
    | TopLevelExpr
  val all_point_kinds : Common.point_kind list
  val string_of_point_kind : Common.point_kind -> string
  exception Invalid_file of string
  exception Unsupported_version of string
  exception Modified_file of string
  val cmp_file_of_ml_file : string -> string
  val write_runtime_data :
    Pervasives.out_channel -> (string * int array) list -> unit
  val write_points :
    Pervasives.out_channel ->
    (int * int * Common.point_kind) list -> string -> unit
  val read_points : string -> (int * int * Common.point_kind) list
  val read_runtime_data : string -> (string * int array) list
end