aboutsummaryrefslogtreecommitdiff
path: root/parsing/entry.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2016-05-11 19:10:04 +0200
committerPierre-Marie Pédrot2016-05-11 19:10:04 +0200
commit4d9bcbda2fbf09939cddff4e4b42e5397d8a5cf1 (patch)
treec41decbdd8bb9eb81c076cdea6d1c64bbcb0ff94 /parsing/entry.ml
parent6be542f4ccb1d7fe95a65f4600f202a2424370d9 (diff)
parent9acfdfd9b7d1cae34b97a4c06c52c4646e15589b (diff)
Thorough rewriting of the Pcoq API towards safety and static invariants.
Amongst other things: 1. No more unsafe grammar extensions, except when going through the CAMLPX-based Pcoq.Gram module. This is mostly safe because CAMLPX adds casts to ensure that parsing rules are well-typed. In particular, constr notation is now based on GADTs ensuring well-typedness. 2. Less reliance on unsafe coq inside Pcoq, and exposing a self-contained API. The Entry module was also removed as it now results useless. 3. Purely functional API for synchronized grammar extension. This gets rid of quite buggy code maintaining a table of empty entries to work around CAMLPX bugs. The state modification is now explicit and grammar extensions synchronized with the summary must provide the rules they want to perform instead of doing so imperatively.
Diffstat (limited to 'parsing/entry.ml')
-rw-r--r--parsing/entry.ml30
1 files changed, 0 insertions, 30 deletions
diff --git a/parsing/entry.ml b/parsing/entry.ml
deleted file mode 100644
index b7c6c23fa6..0000000000
--- a/parsing/entry.ml
+++ /dev/null
@@ -1,30 +0,0 @@
-(************************************************************************)
-(* v * The Coq Proof Assistant / The Coq Development Team *)
-(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2015 *)
-(* \VV/ **************************************************************)
-(* // * This file is distributed under the terms of the *)
-(* * GNU Lesser General Public License Version 2.1 *)
-(************************************************************************)
-
-open Errors
-open Util
-
-type 'a t = string
-
-(** Entries are registered with a unique name *)
-
-let entries = ref String.Set.empty
-
-let create name =
- let () =
- if String.Set.mem name !entries then
- anomaly (Pp.str ("Entry " ^ name ^ " already defined"))
- in
- let () = entries := String.Set.add name !entries in
- name
-
-let unsafe_of_name name =
- assert (String.Set.mem name !entries);
- name
-
-let repr s = s