module Make:
module Ast: Ast
type 'a
tag =
| |
Tag_ctyp |
| |
Tag_patt |
| |
Tag_expr |
| |
Tag_module_type |
| |
Tag_sig_item |
| |
Tag_with_constr |
| |
Tag_module_expr |
| |
Tag_str_item |
| |
Tag_class_type |
| |
Tag_class_sig_item |
| |
Tag_class_expr |
| |
Tag_class_str_item |
| |
Tag_match_case |
| |
Tag_ident |
| |
Tag_binding |
| |
Tag_rec_binding |
| |
Tag_module_binding |
val string_of_tag : 'a tag -> string
val ctyp_tag : 'a tag
val patt_tag : 'a tag
val expr_tag : 'a tag
val module_type_tag : 'a tag
val sig_item_tag : 'a tag
val with_constr_tag : 'a tag
val module_expr_tag : 'a tag
val str_item_tag : 'a tag
val class_type_tag : 'a tag
val class_sig_item_tag : 'a tag
val class_expr_tag : 'a tag
val class_str_item_tag : 'a tag
val match_case_tag : 'a tag
val ident_tag : 'a tag
val binding_tag : 'a tag
val rec_binding_tag : 'a tag
val module_binding_tag : 'a tag
module Pack: functor (
X
:
sig
end
) ->
sig
.. end