Prsing

- Typage renforcé dans les grammaires (distinction des vars et des metavars)
- Disparition de SLAM au profit de ABSTRACT
- Paths primitifs dans les quotations (syntaxe concrète à base de .)
- Mise en place de identifier dès le type ast
- Protection de identifier contre les effets de bord via un String.copy
- Utilisation de module_ident (= identifier) dans les dir_path (au
  lieu de string)

Table des noms qualifiés

- Remplacement de la table de visibilité par une table qui ne cache
  plus les noms de modules et sections mais seulement les noms des
  constantes (e.g. Require A. ne cachera plus le contenu d'un éventuel
  module A déjà existant : seuls les noms de constructions de l'ancien
  A qui existent aussi dans le nouveau A seront cachés)
- Renoncement à la possibilité d'accéder les formes non déchargées des
  constantes définies à l'intérieur de sections et simplification
  connexes (suppression de END-SECTION, une seule table de noms qui ne
  survit pas au discharge)
- Utilisation de noms longs pour les modules, de noms qualifiés pour
  Require and co, tests de cohérence; pour être cohérent avec la non
  survie des tables de noms à la sortie des section, les require à
  l'intérieur d'une section eux aussi sont refaits à la fermeture de la
  section


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1891 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 69 insertions, 0 deletions

diff --git a/contrib/interface/ctast.ml b/contrib/interface/ctast.ml
new file mode 100644
index 000000000..4ed6dbcd9
--- /dev/null
+++ b/contrib/interface/ctast.ml
@@ -0,0 +1,69 @@
+(* A copy of pre V7 ast *)
+
+open Names
+
+type loc = int * int
+
+type t =
+  | Node of loc * string * t list
+  | Nvar of loc * string
+  | Slam of loc * string option * t
+  | Num of loc * int
+  | Id of loc * string
+  | Str of loc * string
+  | Path of loc * string list* string
+  | Dynamic of loc * Dyn.t
+
+let section_path sl k =
+  match List.rev sl with
+    | s::pa -> make_path (List.rev (List.map id_of_string pa)) (id_of_string s) (kind_of_string k)
+    | [] -> invalid_arg "section_path"
+
+let is_meta s = String.length s > 0 && s.[0] == '$'
+
+let purge_str s =
+  if String.length s == 0 || s.[0] <> '$' then s
+  else String.sub s 1 (String.length s - 1)
+
+let rec ct_to_ast = function
+  | Node (loc,a,b) -> Coqast.Node (loc,a,List.map ct_to_ast b)
+  | Nvar (loc,a) ->
+      if is_meta a then Coqast.Nmeta (loc,purge_str a)
+      else Coqast.Nvar (loc,id_of_string a)
+  | Slam (loc,Some a,b) ->
+      if is_meta a then Coqast.Smetalam (loc,purge_str a,ct_to_ast b)
+      else Coqast.Slam (loc,Some (id_of_string a),ct_to_ast b)
+  | Slam (loc,None,b) -> Coqast.Slam (loc,None,ct_to_ast b)
+  | Num (loc,a) -> Coqast.Num (loc,a)
+  | Id (loc,a) -> Coqast.Id (loc,a)
+  | Str (loc,a) -> Coqast.Str (loc,a)
+  | Path (loc,sl,k) -> Coqast.Path (loc,section_path sl k)
+  | Dynamic (loc,a) -> Coqast.Dynamic (loc,a)
+
+let rec ast_to_ct = function
+  | Coqast.Node (loc,a,b) -> Node (loc,a,List.map ast_to_ct b)
+  | Coqast.Nvar (loc,a) -> Nvar (loc,string_of_id a)
+  | Coqast.Nmeta (loc,a) -> Nvar (loc,"$"^a)
+  | Coqast.Slam (loc,Some a,b) ->
+   Slam (loc,Some (string_of_id a),ast_to_ct b)
+  | Coqast.Slam (loc,None,b) -> Slam (loc,None,ast_to_ct b)
+  | Coqast.Smetalam (loc,a,b) -> Slam (loc,Some ("$"^a),ast_to_ct b)
+  | Coqast.Num (loc,a) -> Num (loc,a)
+  | Coqast.Id (loc,a) -> Id (loc,a)
+  | Coqast.Str (loc,a) -> Str (loc,a)
+  | Coqast.Path (loc,a) ->
+    let (sl,bn,pk) = repr_path a in
+    Path(loc, (List.map string_of_id sl) @ [string_of_id bn],(* Bidon *) "CCI")
+  | Coqast.Dynamic (loc,a) -> Dynamic (loc,a)
+
+let loc = function
+  | Node (loc,_,_) -> loc
+  | Nvar (loc,_) -> loc
+  | Slam (loc,_,_) -> loc
+  | Num (loc,_) -> loc
+  | Id (loc,_) -> loc
+  | Str (loc,_) -> loc
+  | Path (loc,_,_) -> loc
+  | Dynamic (loc,_) -> loc
+
+let str s = Str(Ast.dummy_loc,s)