Permalink
Browse files

Remove many superfluous 'open' indicated by ocamlc -w +33

 With ocaml 4.01, the 'unused open' warning also checks the mli :-)

 Beware: some open are reported as useless when compiling with camlp5,
 but are necessary for compatibility with camlp4. These open are now
 marked with a comment.
  • Loading branch information...
letouzey committed Mar 5, 2014
1 parent 3080dd5 commit adfd437f8ae6aaf893119fa4730edecf067dede7
Showing with 14 additions and 504 deletions.
  1. +0 −1 checker/closure.mli
  2. +0 −1 checker/environ.mli
  3. +0 −2 checker/indtypes.mli
  4. +0 −1 checker/mod_checking.ml
  5. +0 −1 checker/modops.ml
  6. +0 −1 checker/modops.mli
  7. +0 −1 checker/safe_typing.ml
  8. +0 −1 checker/safe_typing.mli
  9. +0 −1 checker/type_errors.ml
  10. +0 −1 checker/typeops.ml
  11. +0 −2 checker/typeops.mli
  12. +1 −1 grammar/argextend.ml4
  13. +1 −1 grammar/q_constr.ml4
  14. +1 −1 grammar/q_util.mli
  15. +1 −1 grammar/tacextend.ml4
  16. +1 −1 grammar/vernacextend.ml4
  17. +0 −2 ide/gtk_parsing.ml
  18. +0 −1 ide/preferences.ml
  19. +0 −1 ide/utils/editable_cells.ml
  20. +0 −4 ide/wg_ScriptView.ml
  21. +0 −9 interp/constrarg.ml
  22. +0 −1 interp/constrarg.mli
  23. +0 −3 interp/constrexpr_ops.mli
  24. +0 −1 interp/constrextern.ml
  25. +0 −2 interp/constrextern.mli
  26. +0 −1 interp/constrintern.ml
  27. +0 −1 interp/constrintern.mli
  28. +0 −2 interp/coqlib.mli
  29. +0 −2 interp/genintern.ml
  30. +0 −1 interp/implicit_quantifiers.ml
  31. +0 −9 interp/implicit_quantifiers.mli
  32. +0 −1 interp/modintern.ml
  33. +0 −5 interp/modintern.mli
  34. +0 −1 interp/notation.mli
  35. +0 −1 interp/notation_ops.mli
  36. +0 −1 interp/ppextend.mli
  37. +0 −2 interp/reserve.ml
  38. +0 −2 interp/reserve.mli
  39. +0 −1 interp/smartlocate.mli
  40. +0 −1 interp/stdarg.ml
  41. +0 −3 interp/syntax_def.mli
  42. +0 −4 interp/topconstr.mli
  43. +0 −1 intf/tacexpr.mli
  44. +0 −2 intf/vernacexpr.mli
  45. +0 −1 kernel/closure.mli
  46. +0 −4 kernel/constr.ml
  47. +0 −1 kernel/cooking.ml
  48. +0 −2 kernel/cooking.mli
  49. +0 −2 kernel/indtypes.mli
  50. +0 −1 kernel/modops.ml
  51. +0 −1 kernel/modops.mli
  52. +0 −3 kernel/names.ml
  53. +0 −4 kernel/nativeconv.ml
  54. +0 −2 kernel/nativeconv.mli
  55. +0 −3 kernel/nativelambda.mli
  56. +0 −4 kernel/nativelib.ml
  57. +0 −4 kernel/nativelib.mli
  58. +0 −1 kernel/reduction.mli
  59. +0 −1 kernel/retroknowledge.mli
  60. +0 −1 kernel/vconv.mli
  61. +0 −1 kernel/vm.mli
  62. +0 −2 lib/future.ml
  63. +0 −2 lib/pp.mli
  64. +0 −1 library/assumptions.mli
  65. +0 −7 library/declare.mli
  66. +0 −1 library/decls.mli
  67. +0 −3 library/dischargedhypsmap.mli
  68. +0 −1 library/globnames.mli
  69. +0 −3 library/goptions.mli
  70. +0 −1 library/impargs.mli
  71. +3 −6 library/libobject.ml
  72. +0 −1 library/libobject.mli
  73. +0 −2 library/library.mli
  74. +0 −1 parsing/egramcoq.ml
  75. +0 −4 parsing/egramcoq.mli
  76. +0 −1 parsing/egramml.ml
  77. +1 −1 parsing/g_ltac.ml4
  78. +1 −1 parsing/g_prim.ml4
  79. +0 −1 parsing/g_proofs.ml4
  80. +1 −3 parsing/g_vernac.ml4
  81. +1 −3 parsing/g_xml.ml4
  82. +0 −2 parsing/lexer.mli
  83. +1 −2 parsing/pcoq.ml4
  84. +0 −4 parsing/pcoq.mli
  85. +0 −1 plugins/btauto/refl_btauto.ml
  86. +0 −2 plugins/cc/cctac.ml
  87. +0 −1 plugins/decl_mode/decl_expr.mli
  88. +0 −1 plugins/decl_mode/decl_interp.ml
  89. +0 −1 plugins/decl_mode/decl_interp.mli
  90. +0 −1 plugins/decl_mode/decl_mode.mli
  91. +0 −1 plugins/decl_mode/decl_proof_instr.ml
  92. +0 −1 plugins/decl_mode/decl_proof_instr.mli
  93. +1 −1 plugins/decl_mode/g_decl_mode.ml4
  94. +0 −1 plugins/extraction/common.mli
  95. +0 −1 plugins/extraction/extraction.mli
  96. +0 −1 plugins/extraction/mlutil.ml
  97. +0 −1 plugins/extraction/mlutil.mli
  98. +0 −3 plugins/extraction/modutil.mli
  99. +0 −1 plugins/firstorder/ground.ml
  100. +0 −3 plugins/firstorder/instances.mli
  101. +0 −1 plugins/firstorder/sequent.mli
  102. +0 −1 plugins/fourier/fourierR.ml
  103. +0 −1 plugins/funind/functional_principles_types.ml
  104. +0 −1 plugins/funind/g_indfun.ml4
  105. +0 −7 plugins/funind/indfun.mli
  106. +0 −2 plugins/funind/recdef.ml
  107. +0 −1 plugins/omega/coq_omega.ml
  108. +0 −1 plugins/omega/g_omega.ml4
  109. +0 −1 plugins/quote/quote.ml
  110. +0 −1 plugins/romega/g_romega.ml4
  111. +0 −3 plugins/setoid_ring/newring.ml4
  112. +0 −1 pretyping/cases.mli
  113. +0 −1 pretyping/classops.ml
  114. +0 −2 pretyping/classops.mli
  115. +0 −3 pretyping/coercion.mli
  116. +0 −1 pretyping/constrMatching.mli
  117. +0 −2 pretyping/detyping.mli
  118. +0 −2 pretyping/evarconv.mli
  119. +0 −1 pretyping/evarsolve.ml
  120. +0 −1 pretyping/evarutil.ml
  121. +0 −4 pretyping/evarutil.mli
  122. +0 −3 pretyping/evd.mli
  123. +0 −8 pretyping/glob_ops.mli
  124. +0 −2 pretyping/indrec.mli
  125. +0 −1 pretyping/locusops.mli
  126. +0 −3 pretyping/nativenorm.ml
  127. +0 −2 pretyping/nativenorm.mli
  128. +0 −4 pretyping/patternops.mli
  129. +0 −3 pretyping/pretype_errors.ml
  130. +0 −4 pretyping/pretype_errors.mli
  131. +0 −1 pretyping/pretyping.mli
  132. +0 −2 pretyping/recordops.mli
  133. +0 −1 pretyping/reductionops.mli
  134. +0 −1 pretyping/retyping.mli
  135. +0 −1 pretyping/tacred.ml
  136. +0 −3 pretyping/tacred.mli
  137. +0 −2 pretyping/term_dnet.mli
  138. +0 −1 pretyping/termops.mli
  139. +0 −4 pretyping/typeclasses.mli
  140. +0 −4 pretyping/typeclasses_errors.mli
  141. +0 −1 pretyping/typing.ml
  142. +0 −2 pretyping/vnorm.mli
  143. +0 −1 printing/genprint.ml
  144. +0 −2 printing/ppconstr.mli
  145. +0 −1 printing/pptactic.mli
  146. +0 −2 printing/prettyp.mli
  147. +0 −1 printing/printer.ml
  148. +0 −5 printing/printer.mli
  149. +0 −1 printing/printmod.ml
  150. +0 −4 proofs/clenv.mli
  151. +0 −1 proofs/clenvtac.ml
  152. +0 −3 proofs/clenvtac.mli
  153. +0 −5 proofs/evar_refiner.mli
  154. +0 −2 proofs/logic.mli
  155. +0 −1 proofs/pfedit.ml
  156. +0 −4 proofs/pfedit.mli
  157. +0 −2 proofs/proof.mli
  158. +0 −1 proofs/proof_global.ml
  159. +0 −1 proofs/proof_type.ml
  160. +0 −5 proofs/proof_type.mli
  161. +0 −2 proofs/redexpr.mli
  162. +0 −3 proofs/refiner.mli
  163. +0 −2 proofs/tacmach.ml
  164. +0 −6 proofs/tacmach.mli
  165. +0 −2 proofs/tactic_debug.mli
  166. +0 −2 tactics/auto.ml
  167. +0 −2 tactics/auto.mli
  168. +0 −2 tactics/autorewrite.ml
  169. +0 −1 tactics/autorewrite.mli
  170. +0 −1 tactics/contradiction.ml
  171. +0 −2 tactics/contradiction.mli
  172. +0 −4 tactics/eauto.mli
  173. +0 −1 tactics/elim.ml
  174. +0 −3 tactics/elim.mli
  175. +0 −9 tactics/equality.mli
  176. +0 −2 tactics/evar_tactics.ml
  177. +0 −3 tactics/extraargs.mli
  178. +0 −2 tactics/extratactics.mli
  179. +0 −2 tactics/g_class.ml4
  180. +0 −5 tactics/g_rewrite.ml4
  181. +0 −2 tactics/geninterp.ml
  182. +0 −2 tactics/hipattern.mli
  183. +0 −3 tactics/inv.mli
  184. +0 −1 tactics/leminv.ml
  185. +0 −3 tactics/leminv.mli
  186. +0 −10 tactics/rewrite.ml
  187. +0 −2 tactics/taccoerce.ml
  188. +0 −3 tactics/tacintern.ml
  189. +0 −6 tactics/tacintern.mli
  190. +0 −2 tactics/tacinterp.ml
  191. +0 −5 tactics/tacinterp.mli
  192. +0 −1 tactics/tactic_option.mli
  193. +0 −5 tactics/tacticals.mli
  194. +0 −2 tactics/tactics.ml
  195. +0 −9 tactics/tactics.mli
  196. +0 −1 tactics/tauto.ml4
  197. +0 −2 tools/coqdoc/cpretty.mli
  198. +0 −1 toplevel/auto_ind_decl.ml
  199. +0 −4 toplevel/auto_ind_decl.mli
  200. +0 −2 toplevel/autoinstance.mli
  201. +0 −4 toplevel/class.mli
  202. +0 −3 toplevel/classes.ml
  203. +0 −6 toplevel/classes.mli
  204. +0 −2 toplevel/command.mli
  205. +0 −1 toplevel/coqloop.mli
  206. +0 −1 toplevel/discharge.mli
  207. +0 −4 toplevel/himsg.ml
  208. +0 −1 toplevel/himsg.mli
  209. +0 −4 toplevel/ind_tables.mli
  210. +0 −5 toplevel/indschemes.mli
  211. +0 −2 toplevel/lemmas.ml
  212. +0 −1 toplevel/lemmas.mli
  213. +0 −1 toplevel/metasyntax.mli
  214. +0 −4 toplevel/obligations.ml
  215. +0 −4 toplevel/obligations.mli
  216. +0 −1 toplevel/search.ml
  217. +0 −1 toplevel/search.mli
  218. +0 −1 toplevel/vernac.ml
  219. +0 −1 toplevel/vernacentries.ml
  220. +0 −5 toplevel/vernacentries.mli
  221. +0 −2 toplevel/vernacinterp.mli
  222. +0 −2 toplevel/whelp.mli
View
@@ -7,7 +7,6 @@
(************************************************************************)
(*i*)
-open Pp
open Names
open Cic
open Esubst
View
@@ -1,6 +1,5 @@
open Names
open Cic
-open Term
(* Environments *)
View
@@ -8,9 +8,7 @@
(*i*)
open Names
-open Univ
open Cic
-open Typeops
open Environ
(*i*)
View
@@ -1,6 +1,5 @@
open Pp
-open Errors
open Util
open Names
open Cic
View
@@ -12,7 +12,6 @@ open Util
open Pp
open Names
open Cic
-open Term
open Declarations
(*i*)
View
@@ -8,7 +8,6 @@
(*i*)
open Names
-open Univ
open Cic
open Environ
(*i*)
View
@@ -11,7 +11,6 @@ open Errors
open Util
open Cic
open Names
-open Declarations
open Environ
(************************************************************************)
View
@@ -7,7 +7,6 @@
(************************************************************************)
(*i*)
-open Names
open Cic
open Environ
(*i*)
View
@@ -8,7 +8,6 @@
open Names
open Cic
-open Term
open Environ
type unsafe_judgment = constr * constr
View
@@ -14,7 +14,6 @@ open Cic
open Term
open Reduction
open Type_errors
-open Declarations
open Inductive
open Environ
View
@@ -7,9 +7,7 @@
(************************************************************************)
(*i*)
-open Names
open Cic
-open Term
open Environ
(*i*)
View
@@ -232,7 +232,7 @@ let declare_vernac_argument loc s pr cl =
open Pcoq
open Pcaml
-open PcamlSig
+open PcamlSig (* necessary for camlp4 *)
EXTEND
GLOBAL: str_item;
View
@@ -11,7 +11,7 @@
open Q_util
open Compat
open Pcaml
-open PcamlSig
+open PcamlSig (* necessary for camlp4 *)
let loc = CompatLoc.ghost
let dloc = <:expr< Loc.ghost >>
View
@@ -6,7 +6,7 @@
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
-open Compat
+open Compat (* necessary for camlp4 *)
val mlexpr_of_list : ('a -> MLast.expr) -> 'a list -> MLast.expr
View
@@ -186,7 +186,7 @@ let declare_tactic loc s c cl =
]
open Pcaml
-open PcamlSig
+open PcamlSig (* necessary for camlp4 *)
EXTEND
GLOBAL: str_item;
View
@@ -113,7 +113,7 @@ let declare_command loc s c nt cl =
} >> ]
open Pcaml
-open PcamlSig
+open PcamlSig (* necessary for camlp4 *)
EXTEND
GLOBAL: str_item;
View
@@ -6,8 +6,6 @@
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
-open Ideutils
-
let underscore = Glib.Utf8.to_unichar "_" ~pos:(ref 0)
let arobase = Glib.Utf8.to_unichar "@" ~pos:(ref 0)
let prime = Glib.Utf8.to_unichar "'" ~pos:(ref 0)
View
@@ -7,7 +7,6 @@
(************************************************************************)
open Configwin
-open Printf
let pref_file = Filename.concat (Minilib.coqide_config_home ()) "coqiderc"
let accel_file = Filename.concat (Minilib.coqide_config_home ()) "coqide.keys"
@@ -1,4 +1,3 @@
-open GTree
open Gobject
let create l =
View
@@ -6,10 +6,6 @@
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
-open Ideutils
-open GText
-open Gtk_parsing
-
type insert_action = {
ins_val : string;
ins_off : int;
View
@@ -7,16 +7,7 @@
(************************************************************************)
open Loc
-open Pp
-open Names
-open Term
-open Libnames
-open Globnames
-open Glob_term
-open Genredexpr
open Tacexpr
-open Pattern
-open Constrexpr
open Term
open Misctypes
open Genarg
View
@@ -14,7 +14,6 @@ open Names
open Term
open Libnames
open Globnames
-open Glob_term
open Genredexpr
open Pattern
open Constrexpr
@@ -7,12 +7,9 @@
(************************************************************************)
open Loc
-open Pp
open Names
open Libnames
open Misctypes
-open Term
-open Mod_subst
open Constrexpr
(** Constrexpr_ops: utilities on [constr_expr] *)
View
@@ -26,7 +26,6 @@ open Glob_ops
open Pattern
open Nametab
open Notation
-open Reserve
open Detyping
open Misctypes
open Decl_kinds
View
@@ -6,15 +6,13 @@
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
-open Pp
open Names
open Term
open Context
open Termops
open Environ
open Libnames
open Globnames
-open Nametab
open Glob_term
open Pattern
open Constrexpr
View
@@ -9,7 +9,6 @@
open Pp
open Errors
open Util
-open Flags
open Names
open Nameops
open Namegen
View
@@ -17,7 +17,6 @@ open Glob_term
open Pattern
open Constrexpr
open Notation_term
-open Termops
open Pretyping
open Misctypes
open Decl_kinds
View
@@ -9,9 +9,7 @@
open Names
open Libnames
open Globnames
-open Nametab
open Term
-open Pattern
open Util
(** This module collects the global references, constructions and
View
@@ -6,8 +6,6 @@
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
-open Pp
-open Util
open Names
open Mod_subst
open Genarg
@@ -14,7 +14,6 @@ open Util
open Glob_term
open Constrexpr
open Libnames
-open Globnames
open Typeclasses
open Typeclasses_errors
open Pp
@@ -8,19 +8,10 @@
open Loc
open Names
-open Decl_kinds
-open Term
-open Context
-open Evd
-open Environ
-open Nametab
-open Mod_subst
open Glob_term
open Constrexpr
-open Pp
open Libnames
open Globnames
-open Typeclasses
val declare_generalizable : Vernacexpr.locality_flag -> (Id.t located) list option -> unit
View
@@ -7,7 +7,6 @@
(************************************************************************)
open Declarations
-open Entries
open Libnames
open Constrexpr
open Constrintern
View
@@ -6,13 +6,8 @@
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
-open Loc
-open Declarations
open Environ
open Entries
-open Pp
-open Libnames
-open Names
open Constrexpr
open Misctypes
View
@@ -9,7 +9,6 @@
open Pp
open Bigint
open Names
-open Nametab
open Libnames
open Globnames
open Constrexpr
View
@@ -8,7 +8,6 @@
open Names
open Notation_term
-open Misctypes
open Glob_term
(** Utilities about [notation_constr] *)
View
@@ -7,7 +7,6 @@
(************************************************************************)
open Pp
-open Names
(** {6 Pretty-print. } *)
View
@@ -123,8 +123,6 @@ let revert_reserved_type t =
let _ = Namegen.set_reserved_typed_name revert_reserved_type
-open Glob_term
-
let default_env () = {
ninterp_var_type = Id.Map.empty;
ninterp_rec_vars = Id.Map.empty;
View
@@ -7,9 +7,7 @@
(************************************************************************)
open Loc
-open Pp
open Names
-open Glob_term
open Notation_term
val declare_reserved_type : Id.t located list -> notation_constr -> unit
View
@@ -7,7 +7,6 @@
(************************************************************************)
open Loc
-open Pp
open Names
open Libnames
open Globnames
View
@@ -6,7 +6,6 @@
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
-open Pp
open Genarg
let wit_unit : unit uniform_genarg_type =
View
@@ -8,9 +8,6 @@
open Names
open Notation_term
-open Glob_term
-open Nametab
-open Libnames
(** Syntactic definitions. *)
View
@@ -8,11 +8,7 @@
open Loc
open Names
-open Libnames
-open Misctypes
-open Decl_kinds
open Constrexpr
-open Notation_term
(** Topconstr *)
Oops, something went wrong.

0 comments on commit adfd437

Please sign in to comment.