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_vmemitcodes.ml.html
Source file ser_vmemitcodes.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(************************************************************************) (* * 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 byo: Emilio J. Gallego Arias *) (************************************************************************) (* Status: Very Experimental *) (************************************************************************) open Sexplib.Std open Ppx_hash_lib.Std.Hash.Builtin open Ppx_compare_lib.Builtin module Names = Ser_names module CPrimitives = Ser_cPrimitives module Mod_subst = Ser_mod_subst module Vmvalues = Ser_vmvalues module Vmbytecodes = Ser_vmbytecodes type reloc_info = | Reloc_annot of Vmvalues.annot_switch | Reloc_const of Vmvalues.structured_constant | Reloc_getglobal of Names.Constant.t | Reloc_caml_prim of Vmbytecodes.caml_prim [@@deriving sexp,yojson,hash,compare] let hash_fold_array = hash_fold_array_frozen type positions = string [@@deriving sexp,yojson,hash,compare] type patches = { reloc_infos : reloc_info array; reloc_positions : positions; } [@@deriving sexp,yojson,hash,compare] type emitcodes = string [@@deriving sexp,yojson,hash,compare] type _to_patch = emitcodes * patches [@@deriving sexp,yojson,hash,compare] module PierceToPatch = struct type t = Vmemitcodes.to_patch type _t = _to_patch [@@deriving sexp,yojson,hash,compare] end module B = SerType.Pierce(PierceToPatch) type to_patch = B.t [@@deriving sexp,yojson,hash,compare] type body_code = [%import: Vmemitcodes.body_code] [@@deriving sexp,yojson,hash,compare]