diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-09-08 19:38:27 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-09-08 19:46:21 +0200 |
commit | 51d38d0892eae4a253356e52614da6dee6513e9e (patch) | |
tree | bbc7133c7aeef42c0c6d3d1548681f1f4951cde1 /library/lib.ml | |
parent | 221f5e5622c866d1dae8e5c5e73156fa3e99ccfc (diff) |
Removing dead code relative to the XML plugin.
Diffstat (limited to 'library/lib.ml')
-rw-r--r-- | library/lib.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/library/lib.ml b/library/lib.ml index f33f244b8..d85d38368 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -475,10 +475,6 @@ let full_section_segment_of_constant con = (*************) (* Sections. *) -(* XML output hooks *) -let (f_xml_open_section, xml_open_section) = Hook.make ~default:ignore () -let (f_xml_close_section, xml_close_section) = Hook.make ~default:ignore () - let open_section id = let olddir,(mp,oldsec) = !path_prefix in let dir = add_dirpath_suffix olddir id in @@ -490,7 +486,6 @@ let open_section id = (*Pushed for the lifetime of the section: removed by unfrozing the summary*) Nametab.push_dir (Nametab.Until 1) dir (DirOpenSection prefix); path_prefix := prefix; - if !Flags.xml_export then Hook.get f_xml_open_section id; add_section () @@ -519,7 +514,6 @@ let close_section () = let full_olddir = fst !path_prefix in pop_path_prefix (); add_entry oname (ClosedSection (List.rev (mark::secdecls))); - if !Flags.xml_export then Hook.get f_xml_close_section (basename (fst oname)); let newdecls = List.map discharge_item secdecls in Summary.unfreeze_summaries fs; List.iter (Option.iter (fun (id,o) -> add_discharged_leaf id o)) newdecls; |