(****************************************************************************)
(*                                                                          *)
(*                                   OCaml                                  *)
(*                                                                          *)
(*                            INRIA Rocquencourt                            *)
(*                                                                          *)
(*  Copyright  2006   Institut National de Recherche  en  Informatique et   *)
(*  en Automatique.  All rights reserved.  This file is distributed under   *)
(*  the terms of the GNU Library General Public License, with the special   *)
(*  exception on linking described in LICENSE at the top of the Camlp4      *)
(*  source tree.                                                            *)
(*                                                                          *)
(****************************************************************************)

(* Authors:
 * - Daniel de Rauglaudre: initial version
 * - Nicolas Pouillard: refactoring
 *)

module Make (Structure : Structure.S) : sig
  value flatten_tree : Structure.tree -> list (list Structure.symbol);
  value print_symbol : Format.formatter -> Structure.symbol -> unit;
  value print_meta :
    Format.formatter -> string -> list Structure.symbol -> unit;
  value print_symbol1 : Format.formatter -> Structure.symbol -> unit;
  value print_rule : Format.formatter -> list Structure.symbol -> unit;
  value print_level :
    Format.formatter ->
    (Format.formatter -> unit -> unit) ->
    list (list Structure.symbol) -> unit;
  value levels : Format.formatter -> list Structure.level -> unit;
  value entry : Format.formatter -> Structure.internal_entry -> unit;
end;

module MakeDump (Structure : Structure.S) : sig
  value print_symbol : Format.formatter -> Structure.symbol -> unit;
  value print_meta :
    Format.formatter -> string -> list Structure.symbol -> unit;
  value print_symbol1 : Format.formatter -> Structure.symbol -> unit;
  value print_rule : Format.formatter -> list Structure.symbol -> unit;
  value print_level :
    Format.formatter ->
    (Format.formatter -> unit -> unit) ->
    list (list Structure.symbol) -> unit;
  value levels : Format.formatter -> list Structure.level -> unit;
  value entry : Format.formatter -> Structure.internal_entry -> unit;
end;