package coq-lsp
Language Server Protocol native server for Coq
Install
Dune Dependency
Authors
Maintainers
Sources
coq-lsp-0.2.0.8.18.tbz
sha256=ba40f92f4c751793265d20f1c217638146e4714e0196a0d2b00c9ed58774abf6
sha512=0b7c1d98e22017e44d90461ee61081043401387251488ee7113668d24f6a463dca4ce690e30355248a949817c6b8f8a0944489c4d9b66bd239d903a089a1f11f
doc/src/coq-lsp.serlib/ser_safe_typing.ml.html
Source file ser_safe_typing.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83(************************************************************************) (* * The Coq Proof Assistant / The Coq Development Team *) (* v * INRIA, CNRS and contributors - Copyright 1999-2018 *) (* <O___,, * (see CREDITS file for the list of authors) *) (* \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) *) (************************************************************************) (************************************************************************) (* Coq serialization API/Plugin *) (* Copyright 2016-2019 MINES ParisTech *) (* Written by: Emilio J. Gallego Arias *) (************************************************************************) (* Status: Very Experimental *) (************************************************************************) open Ppx_hash_lib.Std.Hash.Builtin open Ppx_compare_lib.Builtin open Sexplib.Std module ONames = Names module CEphemeron = Ser_cEphemeron module Names = Ser_names module Constr = Ser_constr module Declarations = Ser_declarations module Entries = Ser_entries module Cooking = Ser_cooking module Univ = Ser_univ (* Side_effects *) type certificate = { certif_struc : Declarations.structure_body; certif_univs : Univ.ContextSet.t; } [@@deriving sexp,yojson,hash,compare] type side_effect = { seff_certif : certificate CEphemeron.key; seff_constant : Names.Constant.t; seff_body : Constr.t Declarations.pconstant_body; seff_univs : Univ.ContextSet.t; } [@@deriving sexp,yojson,hash,compare] module SeffOrd = struct type t = side_effect [@@deriving sexp,yojson,hash,compare] end module SeffSet = Set.Make(SeffOrd) module SerSeffSet = Ser_cSet.Make(SeffSet)(SeffOrd) module PC = struct (* t private_constants *) type t = Safe_typing.private_constants type _t = { seff : side_effect list; elts : SerSeffSet.t } [@@deriving sexp,yojson,hash,compare] end module B_ = SerType.Pierce(PC) type private_constants = B_.t [@@deriving sexp,yojson,hash,compare] (* type 'a effect_entry = [%import: 'a Safe_typing.effect_entry] [@@deriving sexp_of] (* XXX: Typical GADT Problem *) let _effect_entry_of_sexp (_f : Sexp.t -> 'a) (x : Sexp.t) : 'a effect_entry = let open Sexp in match x with | Atom "PureEntry" -> Obj__magic PureEntry | Atom "EffectEntry" -> Obj__magic EffectEntry | _ -> Sexplib.Conv_error.no_variant_match () *) type global_declaration = [%import: Safe_typing.global_declaration] [@@deriving sexp]