Commit 06e080dd authored by François Bobot's avatar François Bobot

Api doc

parent f2569144
...@@ -227,6 +227,7 @@ let find_tagged_ts t tds acc = ...@@ -227,6 +227,7 @@ let find_tagged_ts t tds acc =
Stdecl.fold (fun td acc -> match td.td_node with Stdecl.fold (fun td acc -> match td.td_node with
| Meta (s, MAts ts :: _) when meta_equal s t -> Sts.add ts acc | Meta (s, MAts ts :: _) when meta_equal s t -> Sts.add ts acc
| _ -> assert false) tds.tds_set acc | _ -> assert false) tds.tds_set acc
(* TODO an exception instead of an assert false (wrong META used) *)
let find_tagged_ls t tds acc = let find_tagged_ls t tds acc =
begin match t.meta_type with begin match t.meta_type with
......
...@@ -73,6 +73,8 @@ val meta_hash : meta -> int ...@@ -73,6 +73,8 @@ val meta_hash : meta -> int
val register_meta : string -> meta_arg_type list -> meta val register_meta : string -> meta_arg_type list -> meta
val register_meta_excl : string -> meta_arg_type list -> meta val register_meta_excl : string -> meta_arg_type list -> meta
(** Register exclusive meta, each new setting remove the previous one.
Useful for transformation or printer parameters *)
val lookup_meta : string -> meta val lookup_meta : string -> meta
val list_metas : unit -> meta list val list_metas : unit -> meta list
......
...@@ -78,11 +78,16 @@ val create_tysymbol : preid -> tvsymbol list -> ty option -> tysymbol ...@@ -78,11 +78,16 @@ val create_tysymbol : preid -> tvsymbol list -> ty option -> tysymbol
val ty_var : tvsymbol -> ty val ty_var : tvsymbol -> ty
val ty_app : tysymbol -> ty list -> ty val ty_app : tysymbol -> ty list -> ty
(** {3 generic traversal functions} *)
(** traverse only one level of constructor, if you want full traversal
you need to call those function inside your function *)
val ty_map : (ty -> ty) -> ty -> ty val ty_map : (ty -> ty) -> ty -> ty
val ty_fold : ('a -> ty -> 'a) -> 'a -> ty -> 'a val ty_fold : ('a -> ty -> 'a) -> 'a -> ty -> 'a
val ty_all : (ty -> bool) -> ty -> bool val ty_all : (ty -> bool) -> ty -> bool
val ty_any : (ty -> bool) -> ty -> bool val ty_any : (ty -> bool) -> ty -> bool
(** {3 symbol-wise map/fold} *)
(** visites every symbol of the type} *)
val ty_s_map : (tysymbol -> tysymbol) -> ty -> ty val ty_s_map : (tysymbol -> tysymbol) -> ty -> ty
val ty_s_fold : ('a -> tysymbol -> 'a) -> 'a -> ty -> 'a val ty_s_fold : ('a -> tysymbol -> 'a) -> 'a -> ty -> 'a
val ty_s_all : (tysymbol -> bool) -> ty -> bool val ty_s_all : (tysymbol -> bool) -> ty -> bool
......
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