33 lines
1.8 KiB
OCaml
33 lines
1.8 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* OCaml *)
|
|
(* *)
|
|
(* Projet Cristal, INRIA Rocquencourt *)
|
|
(* *)
|
|
(* Copyright 2002 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. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
open Format
|
|
open Outcometree
|
|
|
|
val out_ident : (formatter -> out_ident -> unit) ref
|
|
val out_value : (formatter -> out_value -> unit) ref
|
|
val out_label : (formatter -> string * bool * out_type -> unit) ref
|
|
val out_type : (formatter -> out_type -> unit) ref
|
|
val out_constr :
|
|
(formatter -> string * out_type list * out_type option -> unit) ref
|
|
val out_class_type : (formatter -> out_class_type -> unit) ref
|
|
val out_module_type : (formatter -> out_module_type -> unit) ref
|
|
val out_sig_item : (formatter -> out_sig_item -> unit) ref
|
|
val out_signature : (formatter -> out_sig_item list -> unit) ref
|
|
val out_type_extension : (formatter -> out_type_extension -> unit) ref
|
|
val out_phrase : (formatter -> out_phrase -> unit) ref
|
|
|
|
val parenthesized_ident : string -> bool
|