(************************************************************************) (* * The Rocq Prover / The Rocq Development Team *) (* v * Copyright INRIA, CNRS and contributors *) (* <O___,, * (see version control and CREDITS file for authors & dates) *) (* \VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) (* * (see LICENSE file for the text of the license) *) (************************************************************************)
(** * Managing locality *)
type import_status = ImportDefaultBehavior | ImportNeedQualified type definition_scope = Discharge | Global of import_status
let default_scope = Global ImportDefaultBehavior
(** Positioning locality for commands supporting discharging and export
outside of modules *)
(* For commands whose default is to discharge and export: Global is the default and is neutral; Local in a section deactivates discharge,
Local not in a section deactivates export *) let make_non_locality = function Some false -> false | _ -> true
let make_locality = function Some true -> true | _ -> false
let enforce_locality locality_flag =
make_locality locality_flag
(* For commands whose default is to not discharge but to export: Global in sections forces discharge, Global not in section is the default;
Local in sections is the default, Local not in section forces non-export *)
let make_section_locality =
function Some b -> b | None -> Lib.sections_are_opened ()
let enforce_section_locality locality_flag =
make_section_locality locality_flag
(** Positioning locality for commands supporting export but not discharge *)
(* For commands whose default is to export (if not in section): Global in sections is forbidden, Global not in section is neutral;
Local in sections is the default, Local not in section forces non-export *)
let make_module_locality = function
| Some false -> if Lib.sections_are_opened () then
CErrors.user_err Pp.(str "This command does not support the Global option in sections."); false
| Some true -> true
| None -> false
let enforce_module_locality locality_flag =
make_module_locality locality_flag
let check_locality_nodischarge : Libobject.locality -> unit = function
| Local -> ()
| Export -> if Lib.sections_are_opened () then
CErrors.user_err Pp.(str "This command does not support the export attribute in sections.")
| SuperGlobal -> if Lib.sections_are_opened () then
CErrors.user_err Pp.(str "This command does not support the global attribute in sections.")
[ Verzeichnis aufwärts0.19unsichere Verbindung
Übersetzung europäischer Sprachen durch Browser
]
