matitaB/components/ng_kernel/nCicPp.mli

   1 (*
   2     ||M||  This file is part of HELM, an Hypertextual, Electronic
   3     ||A||  Library of Mathematics, developed at the Computer Science
   4     ||T||  Department, University of Bologna, Italy.
   5     ||I||
   6     ||T||  HELM is free software; you can redistribute it and/or
   7     ||A||  modify it under the terms of the GNU General Public License
   8     \   /  version 2 or (at your option) any later version.
   9      \ /   This software is distributed as is, NO WARRANTY.
  10       V_______________________________________________________________ *)
  11
  12 (* $Id$ *)
  13
  14 val r2s: #NCicEnvironment.status -> bool -> NReference.reference -> string
  15
  16 val string_of_flavour: NCic.def_flavour -> string
  17
  18 class type cstatus =
  19   object
  20     inherit NCicEnvironment.status
  21     inherit NCic.cstatus
  22   end
  23
  24 (* low-level pretty printer;
  25    all methods are meant to be overridden in ApplyTransformation *)
  26 class status: string option -> cstatus
  27
  28 (* variants that use a formatter
  29 module Format : sig
  30   val ppterm:
  31     formatter:Format.formatter ->
  32     context:NCic.context ->
  33     subst:NCic.substitution ->
  34     metasenv:NCic.metasenv ->
  35     ?margin:int ->
  36     ?inside_fix:bool ->
  37      NCic.term -> unit
  38
  39   val ppcontext:
  40     ?sep:string ->
  41     formatter:Format.formatter ->
  42     subst:NCic.substitution ->
  43     metasenv:NCic.metasenv ->
  44     NCic.context -> unit
  45
  46   val ppmetasenv:
  47     formatter:Format.formatter ->
  48     subst:NCic.substitution -> NCic.metasenv -> unit
  49
  50   val ppsubst:
  51     formatter:Format.formatter ->
  52     metasenv:NCic.metasenv -> NCic.substitution -> unit
  53
  54   val ppobj:
  55     formatter:Format.formatter -> NCic.obj -> unit
  56 end
  57 *)