package coq-lsp
Language Server Protocol native server for Coq
Install
Dune Dependency
Authors
Maintainers
Sources
coq-lsp-0.2.3.9.0.tbz
sha256=8776582dddfe768623870cf540ff6ba1e96a44a36e85db18ab93d238d640f92a
sha512=2837889bf99bfe715bd0e752782211a76a14aac71ed37a4fb784f4f0abe338352c9c6d8caa37daf79c036997add1cb306c523f793625b38709f3b5e245380223
doc/src/serlib_ltac2_ltac1/ser_tac2core_ltac1.ml.html
Source file ser_tac2core_ltac1.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(************************************************************************) (* SerAPI: Coq interaction protocol with bidirectional serialization *) (************************************************************************) (* Copyright 2016-2019 MINES ParisTech -- License LGPL 2.1+ *) (* Copyright 2019-2023 Inria -- License LGPL 2.1+ *) (* Written by: Emilio J. Gallego Arias and others *) (************************************************************************) open Serlib open Ltac2_ltac1_plugin open Sexplib.Std open Ppx_hash_lib.Std.Hash.Builtin open Ppx_compare_lib.Builtin module Util = Ser_util module Loc = Ser_loc module CAst = Ser_cAst module Names = Ser_names module Tac2expr = Serlib_ltac2.Ser_tac2expr module WL2in1 = struct type raw = Tac2expr.uid CAst.t list * Tac2expr.raw_tacexpr [@@deriving sexp,hash,compare] type glb = Tac2expr.uid list * Tac2expr.glb_tacexpr [@@deriving sexp,hash,compare] type top = Util.Empty.t [@@deriving sexp,hash,compare] end let ser_wit_ltac2in1 = let module M = Ser_genarg.GS(WL2in1) in M.genser module WL2in1V = struct type raw = Tac2expr.uid CAst.t list * Tac2expr.raw_tacexpr [@@deriving sexp,hash,compare] type glb = Tac2expr.glb_tacexpr [@@deriving sexp,hash,compare] type top = Util.Empty.t [@@deriving sexp,hash,compare] end let ser_wit_ltac2in1_val = let module M = Ser_genarg.GS(WL2in1V) in M.genser module WLV2 = struct type raw = Util.Empty.t [@@deriving sexp,hash,compare] type glb = unit [@@deriving sexp,hash,compare] type top = Util.Empty.t [@@deriving sexp,hash,compare] end let ser_wit_ltac2_val = let module M = Ser_genarg.GS(WLV2) in M.genser let register () = Ser_genarg.register_genser Tac2core_ltac1.wit_ltac2in1 ser_wit_ltac2in1; Ser_genarg.register_genser Tac2core_ltac1.wit_ltac2in1_val ser_wit_ltac2in1_val; (* XXX not sure this one really needs registration, it should only appear temporarily at runtime in ltac execution *) Ser_genarg.register_genser Tac2core_ltac1.wit_ltac2_val ser_wit_ltac2_val; () let () = register ()