Commit ad742151 authored by Pietro Abate's avatar Pietro Abate
Browse files

[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 ...@@ -258,9 +258,8 @@ let directive ppf tenv cenv = function
Typer.dump_type ppf tenv name; Typer.dump_type ppf tenv name;
flush_ppf ppf flush_ppf ppf
| `Print_schema_type schema_ref -> | `Print_schema_type schema_ref ->
assert false Typer.dump_schema_type ppf tenv schema_ref;
(* Typer.dump_schema_type ppf tenv schema_ref; flush_ppf ppf
flush_ppf ppf *)
| `Reinit_ns -> | `Reinit_ns ->
Typer.set_ns_table_for_printer tenv Typer.set_ns_table_for_printer tenv
| `Help -> | `Help ->
......
...@@ -59,6 +59,9 @@ module Counter = struct ...@@ -59,6 +59,9 @@ module Counter = struct
let incr c = let incr c =
c.count <- c.count + 1 c.count <- c.count + 1
let add c n =
c.count <- c.count + n
end end
......
...@@ -9,6 +9,7 @@ module Counter: sig ...@@ -9,6 +9,7 @@ module Counter: sig
val create: string -> t val create: string -> t
val incr: t -> unit val incr: t -> unit
val add: t -> int -> unit
val print: Format.formatter -> t -> unit val print: Format.formatter -> t -> unit
end end
......
This diff is collapsed.
...@@ -46,7 +46,7 @@ val pat: t -> Ast.ppat -> Patterns.node ...@@ -46,7 +46,7 @@ val pat: t -> Ast.ppat -> Patterns.node
val dump_types: Format.formatter -> t -> unit val dump_types: Format.formatter -> t -> unit
val dump_type: Format.formatter -> t -> U.t -> unit val dump_type: Format.formatter -> t -> U.t -> unit
val dump_schema_type: 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 dump_ns: Format.formatter -> t -> unit
val set_ns_table_for_printer: 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