package coq-lsp
Language Server Protocol native server for Coq
Install
Dune Dependency
Authors
Maintainers
Sources
coq-lsp-0.2.3.8.19.tbz
sha256=dd5d0993261d3742e77ccac8344307d97b507b265d8743ae0ce33d0b3fcfd98a
sha512=76727400b27900fdd659af7f03c5f2cd979f50ea0c76ad6f5b5de56a53b9db06dba1e1c786fd3e8ab695e42d94c53d58415c0c5b5eef8192f9863eaf7dcca693
doc/src/coq-lsp.serlib/ser_genredexpr.ml.html
Source file ser_genredexpr.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 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123(************************************************************************) (* * The Coq Proof Assistant / The Coq 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) *) (************************************************************************) (************************************************************************) (* 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 Ppx_hash_lib.Std.Hash.Builtin open Ppx_compare_lib.Builtin open Sexplib.Std module Loc = Ser_loc module Names = Ser_names module Util = Ser_util module Locus = Ser_locus module Libnames = Ser_libnames module Constrexpr = Ser_constrexpr module Genintern = Ser_genintern module Tacred = Ser_tacred type 'a red_atom = [%import: 'a Genredexpr.red_atom] [@@deriving sexp] type strength = [%import: Genredexpr.strength] [@@deriving sexp,yojson,hash,compare] type 'a glob_red_flag = [%import: 'a Genredexpr.glob_red_flag] [@@deriving sexp,yojson,hash,compare] type ('a,'b,'c,'d) red_expr_gen0 = [%import: ('a,'b,'c,'d) Genredexpr.red_expr_gen0] [@@deriving sexp,yojson,hash,compare] type ('a,'b,'c) red_expr_gen = [%import: ('a,'b,'c) Genredexpr.red_expr_gen] [@@deriving sexp,yojson,hash,compare] type ('a,'b,'c) may_eval = [%import: ('a,'b,'c) Genredexpr.may_eval] [@@deriving sexp,yojson,hash,compare] (* Helpers for raw_red_expr *) type r_trm = [%import: Genredexpr.r_trm] [@@deriving sexp,yojson,hash,compare] type r_cst = [%import: Genredexpr.r_cst] [@@deriving sexp,yojson,hash,compare] type r_pat = [%import: Genredexpr.r_pat] [@@deriving sexp,yojson,hash,compare] type raw_red_expr = [%import: Genredexpr.raw_red_expr] [@@deriving sexp,yojson,hash,compare] (* glob_red_expr *) type 'a and_short_name = [%import: 'a Genredexpr.and_short_name] [@@deriving sexp,yojson,hash,compare] type g_trm = [%import: Genredexpr.g_trm] [@@deriving sexp,yojson,hash,compare] type g_cst = [%import: Genredexpr.g_cst] [@@deriving sexp,yojson,hash,compare] type g_pat = [%import: Genredexpr.g_pat] [@@deriving sexp,yojson,hash,compare] type glob_red_expr = [%import: Genredexpr.glob_red_expr] [@@deriving sexp,yojson,hash,compare] module A = struct type raw = (Ser_constrexpr.constr_expr, Ser_libnames.qualid Ser_constrexpr.or_by_notation, Ser_constrexpr.constr_expr) red_expr_gen [@@deriving sexp,yojson,hash,compare] type glb = (Ser_genintern.glob_constr_and_expr, Ser_tacred.evaluable_global_reference and_short_name Ser_locus.or_var, Ser_genintern.glob_constr_pattern_and_expr) red_expr_gen [@@deriving sexp,yojson,hash,compare] type top = (Ser_eConstr.constr, Ser_tacred.evaluable_global_reference, Ser_pattern.constr_pattern) red_expr_gen [@@deriving sexp,yojson,hash,compare] end let ser_wit_red_expr = let module M = Ser_genarg.GS(A) in M.genser let register () = Ser_genarg.register_genser Redexpr.wit_red_expr ser_wit_red_expr; () let _ = register ()