2016-08-01 07:06:59 -07:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* OCaml *)
|
|
|
|
(* *)
|
|
|
|
(* Hongbo Zhang (University of Pennsylvania) *)
|
|
|
|
(* *)
|
|
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
|
|
|
(* en Automatique. *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. This file is distributed under the terms of *)
|
|
|
|
(* the GNU Lesser General Public License version 2.1, with the *)
|
|
|
|
(* special exception on linking described in the file LICENSE. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
2012-10-17 08:50:07 -07:00
|
|
|
|
2018-09-12 00:51:47 -07:00
|
|
|
|
|
|
|
(** Pretty-printers for {!Parsetree}
|
|
|
|
|
|
|
|
{b Warning:} this module is unstable and part of
|
2018-09-12 06:36:40 -07:00
|
|
|
{{!Compiler_libs}compiler-libs}.
|
2018-09-12 00:51:47 -07:00
|
|
|
|
|
|
|
*)
|
|
|
|
|
2012-10-31 11:11:33 -07:00
|
|
|
type space_formatter = (unit, Format.formatter, unit) format
|
2012-11-02 19:20:16 -07:00
|
|
|
|
2018-08-20 10:50:58 -07:00
|
|
|
val longident : Format.formatter -> Longident.t -> unit
|
2012-10-31 11:11:33 -07:00
|
|
|
val expression : Format.formatter -> Parsetree.expression -> unit
|
|
|
|
val string_of_expression : Parsetree.expression -> string
|
2018-08-20 10:50:58 -07:00
|
|
|
|
2012-11-02 07:13:56 -07:00
|
|
|
val pattern: Format.formatter -> Parsetree.pattern -> unit
|
2018-08-20 10:50:58 -07:00
|
|
|
|
|
|
|
val core_type: Format.formatter -> Parsetree.core_type -> unit
|
|
|
|
|
2012-11-02 07:13:56 -07:00
|
|
|
val signature: Format.formatter -> Parsetree.signature -> unit
|
|
|
|
val structure: Format.formatter -> Parsetree.structure -> unit
|
|
|
|
val string_of_structure: Parsetree.structure -> string
|
2018-08-20 00:20:06 -07:00
|
|
|
|
2018-08-20 10:50:58 -07:00
|
|
|
val toplevel_phrase : Format.formatter -> Parsetree.toplevel_phrase -> unit
|
|
|
|
val top_phrase: Format.formatter -> Parsetree.toplevel_phrase -> unit
|