Commit ad742151 authored by Pietro Abate's avatar Pietro Abate

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

Original author: afrisch
Date: 2005-02-22 00:41:59+00:00
parent 01a9eb8f
......@@ -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 ->
......
......@@ -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
......
......@@ -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
......
This diff is collapsed.
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment