package coq-serapi
Serialization library and protocol for machine interaction with the Coq proof assistant
Install
Dune Dependency
Authors
Maintainers
Sources
coq-serapi-8.19.0.0.19.3.tbz
sha256=f09de562d1f8cef423444d09212863fd54d02a907f15c0e409825a1126051939
sha512=5ba51cdbb9a75aaf42085677b8fd4eb68efe89d32d9e216d82f79a5fd742556968cf3fcb1a6316f01058d169f0fcc0cbf8fb03d007b9ab79e06ff8f5a7d17de0
doc/src/coq-serapi.serlib/ser_libnames.ml.html
Source file ser_libnames.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
(************************************************************************) (* * 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 *) (************************************************************************) let cmake = CAst.make module Loc = Ser_loc module CAst = Ser_cAst module Names = Ser_names type _t = | Ser_Qualid of Names.DirPath.t * Names.Id.t [@@deriving sexp,yojson,hash,compare] let _t_put qid = let (dp, id) = Libnames.repr_qualid (cmake qid) in Ser_Qualid (dp, id) let _t_get (Ser_Qualid (dp, id)) = Libnames.(make_qualid dp id).CAst.v type qualid_r = [%import: Libnames.qualid_r] let qualid_r_of_sexp sexp = _t_get (_t_of_sexp sexp) let sexp_of_qualid_r qid = sexp_of__t (_t_put qid) let qualid_r_of_yojson json = Ppx_deriving_yojson_runtime.(_t_of_yojson json >|= _t_get) let qualid_r_to_yojson level = _t_to_yojson (_t_put level) (* let hash_qualid_r x = hash__t (_t_put x) *) let hash_fold_qualid_r st x = hash_fold__t st (_t_put x) let compare_qualid_r x y = compare__t (_t_put x) (_t_put y) (* qualid: private *) type qualid = [%import: Libnames.qualid] [@@deriving sexp,yojson,hash,compare] module FP = struct type _t = { dirpath : Names.DirPath.t ; basename : Names.Id.t } [@@deriving sexp,yojson,hash,compare] let _t_get { dirpath; basename } = Libnames.make_path dirpath basename let _t_put fp = let dirpath, basename = Libnames.repr_path fp in { dirpath; basename } end open FP type full_path = Libnames.full_path let full_path_of_sexp sexp = _t_get (_t_of_sexp sexp) let sexp_of_full_path qid = sexp_of__t (_t_put qid) let full_path_of_yojson json = Ppx_deriving_yojson_runtime.(_t_of_yojson json >|= _t_get) let full_path_to_yojson level = _t_to_yojson (_t_put level) let hash_full_path x = hash__t (_t_put x) let hash_fold_full_path st x = hash_fold__t st (_t_put x) let compare_full_path x y = compare__t (_t_put x) (_t_put y)
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>