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_geninterp.ml.html
Source file ser_geninterp.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(************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) (* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016 *) (* \VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) (************************************************************************) (* Coq serialization API/Plugin *) (* Copyright 2016-2018 MINES ParisTech *) (************************************************************************) (* Status: Very Experimental *) (************************************************************************) open Sexplib.Conv open Ppx_hash_lib.Std.Hash.Builtin open Ppx_compare_lib.Builtin module Names = Ser_names module Val = struct type 'a typ = [%import: 'a Geninterp.Val.typ] (* let typ_of_sexp _ _ = Serlib_base.opaque_of_sexp "Geninterp.Val.typ" *) let sexp_of_typ _ x = Serlib_base.sexp_of_opaque ~typ:"Geninterp.Val.typ" x type t = [%import: Geninterp.Val.t] [@@deriving sexp_of] let t_of_sexp x = Serlib_base.opaque_of_sexp ~typ:"Geninterp.Val.t" x let of_yojson = Serlib_base.opaque_of_yojson ~typ:"Geninterp.Val.t" let to_yojson x = Serlib_base.opaque_to_yojson ~typ:"Geninterp.Val.t" x let hash = Hashtbl.hash let hash_fold_t st d = Ppx_hash_lib.Std.Hash.Builtin.hash_fold_int st (Hashtbl.hash d) let compare = Stdlib.compare end module TacStore = struct type t = Geninterp.TacStore.t let t_of_sexp = Serlib_base.opaque_of_sexp ~typ:"Geninterp.TacStore.t" let sexp_of_t = Serlib_base.sexp_of_opaque ~typ:"Geninterp.TacStore.t" let to_yojson = Serlib_base.opaque_to_yojson ~typ:"Geninterp.TacStore.t" let of_yojson = Serlib_base.opaque_of_yojson ~typ:"Geninterp.TacStore.t" let _hash = Hashtbl.hash let hash_fold_t st d = Ppx_hash_lib.Std.Hash.Builtin.hash_fold_int st (Hashtbl.hash d) let compare = Stdlib.compare end type interp_sign = [%import: Geninterp.interp_sign] [@@deriving sexp,yojson,hash,compare]