[r2005-02-22 00:41:58 by afrisch] New translation for types

Original author: afrisch
Date: 2005-02-22 00:41:59+00:00

driver/cduce.ml

@@ -258,9 +258,8 @@ let directive ppf tenv cenv = function
       Typer.dump_type ppf tenv name;
       flush_ppf ppf
   | `Print_schema_type schema_ref ->
-      assert false
-(*      Typer.dump_schema_type ppf tenv schema_ref;
-      flush_ppf ppf *)
+      Typer.dump_schema_type ppf tenv schema_ref;
+      flush_ppf ppf
   | `Reinit_ns ->
       Typer.set_ns_table_for_printer tenv
   | `Help ->

misc/stats.ml

@@ -59,6 +59,9 @@ module Counter = struct
       
   let incr c =
     c.count <- c.count + 1
+
+  let add c n =
+    c.count <- c.count + n
 end
 
 

misc/stats.mli

@@ -9,6 +9,7 @@ module Counter: sig
     
   val create: string -> t
   val incr: t -> unit
+  val add: t -> int -> unit
   val print: Format.formatter -> t -> unit
 end
 

typing/typer.mli

@@ -46,7 +46,7 @@ val pat: t -> Ast.ppat -> Patterns.node
 val dump_types: Format.formatter -> t -> unit
 val dump_type: Format.formatter -> t -> U.t -> unit
 val dump_schema_type:
-  Format.formatter -> t -> (Schema_types.component_kind * U.t * Ns.qname) -> unit
+  Format.formatter -> t -> (Schema_types.component_kind * U.t * U.t) -> unit
 
 val dump_ns: Format.formatter -> t -> unit
 val set_ns_table_for_printer: t -> unit