diff options
author | Alain Frisch <alain@frisch.fr> | 2013-03-25 14:16:07 +0000 |
---|---|---|
committer | Alain Frisch <alain@frisch.fr> | 2013-03-25 14:16:07 +0000 |
commit | 5c98dd91fe11e20cc1d619713b5d58ba83ea30e9 (patch) | |
tree | 2667ae2fe0d9571b6d2df7fe6c9eaa0522cffc99 /ocamldoc | |
parent | f85f1e27591a59fc797b064e38252553d76dbf94 (diff) | |
download | ocaml-5c98dd91fe11e20cc1d619713b5d58ba83ea30e9.tar.gz |
Starting to keep attributes in the typedtree.
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/extension_points@13440 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc')
-rw-r--r-- | ocamldoc/odoc_ast.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ocamldoc/odoc_ast.ml b/ocamldoc/odoc_ast.ml index d364dd1999..b5aafd7d94 100644 --- a/ocamldoc/odoc_ast.ml +++ b/ocamldoc/odoc_ast.ml @@ -77,7 +77,7 @@ module Typedtree_search = Hashtbl.add table (MT (Name.from_ident ident)) tt | Typedtree.Tstr_exception (ident, _, _) -> Hashtbl.add table (E (Name.from_ident ident)) tt - | Typedtree.Tstr_exn_rebind (ident, _, _, _) -> + | Typedtree.Tstr_exn_rebind (ident, _, _, _, _) -> Hashtbl.add table (ER (Name.from_ident ident)) tt | Typedtree.Tstr_type ident_type_decl_list -> List.iter @@ -111,6 +111,7 @@ module Typedtree_search = | Typedtree.Tstr_open _ -> () | Typedtree.Tstr_include _ -> () | Typedtree.Tstr_eval _ -> () + | Typedtree.Tstr_attribute _ -> () let tables typedtree = let t = Hashtbl.create 13 in @@ -135,7 +136,7 @@ module Typedtree_search = let search_exception_rebind table name = match Hashtbl.find table (ER name) with - | (Typedtree.Tstr_exn_rebind (_, _, p, _)) -> p + | (Typedtree.Tstr_exn_rebind (_, _, p, _, _)) -> p | _ -> assert false let search_type_declaration table name = @@ -885,7 +886,7 @@ module Analyser = let tt_get_included_module_list tt_structure = let f acc item = match item.str_desc with - Typedtree.Tstr_include (mod_expr, _) -> + Typedtree.Tstr_include (mod_expr, _, _) -> acc @ [ { (* A VOIR : chercher dans les modules et les module types, avec quel env ? *) im_name = tt_name_from_module_expr mod_expr ; |