Commit 078cf0ac authored by François Bobot's avatar François Bobot

session: use retrieve path for session

But:
 - problem with BuiltIn, Bool, Tuple, Unit and theory
 - work only with "why" and "whyml" files format
parent a7dcd294
......@@ -60,33 +60,28 @@
<!ATTLIST metas proved CDATA #REQUIRED>
<!ATTLIST metas expanded CDATA #IMPLIED>
<!ELEMENT ts_pos EMPTY>
<!ELEMENT ts_pos (ip_library+,ip_qualid+)>
<!ATTLIST ts_pos name CDATA #REQUIRED>
<!ATTLIST ts_pos arity CDATA #REQUIRED>
<!ATTLIST ts_pos id CDATA #REQUIRED>
<!ATTLIST ts_pos decl CDATA #REQUIRED>
<!ATTLIST ts_pos def CDATA #REQUIRED>
<!ATTLIST ts_pos const CDATA #REQUIRED>
<!ATTLIST ts_pos proj CDATA #REQUIRED>
<!ATTLIST ts_pos sum CDATA #REQUIRED>
<!ATTLIST ts_pos ip_theory CDATA #REQUIRED>
<!ELEMENT ls_pos EMPTY>
<!ELEMENT ls_pos (ip_library+,ip_qualid+)>
<!ATTLIST ls_pos name CDATA #REQUIRED>
<!ATTLIST ls_pos id CDATA #REQUIRED>
<!ATTLIST ls_pos decl CDATA #REQUIRED>
<!ATTLIST ls_pos def CDATA #REQUIRED>
<!ATTLIST ls_pos const CDATA #REQUIRED>
<!ATTLIST ls_pos proj CDATA #REQUIRED>
<!ATTLIST ls_pos sum CDATA #REQUIRED>
<!ATTLIST ls_pos ip_theory CDATA #REQUIRED>
<!ELEMENT pr_pos EMPTY>
<!ELEMENT pr_pos (ip_library+,ip_qualid+)>
<!ATTLIST pr_pos name CDATA #REQUIRED>
<!ATTLIST pr_pos id CDATA #REQUIRED>
<!ATTLIST pr_pos decl CDATA #REQUIRED>
<!ATTLIST pr_pos def CDATA #REQUIRED>
<!ATTLIST pr_pos const CDATA #REQUIRED>
<!ATTLIST pr_pos proj CDATA #REQUIRED>
<!ATTLIST pr_pos sum CDATA #REQUIRED>
<!ATTLIST pr_pos ip_theory CDATA #REQUIRED>
<!ELEMENT ip_library EMPTY>
<!ATTLIST ip_library name CDATA #REQUIRED>
<!ELEMENT ip_qualid EMPTY>
<!ATTLIST ip_qualid name CDATA #REQUIRED>
<!ELEMENT meta (meta_arg_ty*, meta_arg_ts*, meta_arg_ls*,
meta_arg_pr*, meta_arg_str*, meta_arg_int*)>
......
This diff is collapsed.
......@@ -60,13 +60,11 @@ type task_option
(** Currently just an option on a task, but later perhaps
we should be able to release a task and rebuild it when needed *)
type pos_task =
{ pos_decl : int; (* nth decl in the task from top *)
pos_def : int; (* nth def in the decl *)
pos_const : int; (* nth constructor in the type def *)
pos_proj : int; (* nth proj for the constructor (-1 for the constructor) *)
pos_checksum : Termcode.checksum;
(** the checksum of the prefix of the task starting at this decl *)
type ident_path =
{ ip_library : string list;
ip_theory : string;
ip_qualid : string list;
}
type meta_args = Theory.meta_arg list
......@@ -76,9 +74,9 @@ type metas_args = Smeta_args.t Util.Mstr.t
module Mmetas_args : Map.S with type key = metas_args
type idpos = {
idpos_ts : pos_task Ty.Mts.t;
idpos_ls : pos_task Term.Mls.t;
idpos_pr : pos_task Decl.Mpr.t;
idpos_ts : ident_path Ty.Mts.t;
idpos_ls : ident_path Term.Mls.t;
idpos_pr : ident_path Decl.Mpr.t;
}
(** {2 Session} *)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment