type direction = [ `LeftToRight | `RightToLeft ]
-type loc = Token.flocation
+type loc = Stdpp.location
type alias_spec =
| Ident_alias of string * string (* identifier, uri *)
(** To be increased each time the command type below changes, used for "safe"
* marshalling *)
-let magic = 5
+let magic = 6
type inclusion_mode = WithPreferences | WithoutPreferences (* aka aliases *)
type command =
- | Include of loc * string * inclusion_mode
+ | Include of loc * string * inclusion_mode * string (* _,buri,_,path *)
| Alias of loc * alias_spec
(** parameters, name, type, fields *)
| Notation of loc * direction option * CicNotationPt.term * Gramext.g_assoc *
(* composed magic: term + command magics. No need to change this value *)
let magic = magic + 10000 * CicNotationPt.magic
+let description_of_alias =
+ function
+ Ident_alias (_,desc)
+ | Symbol_alias (_,_,desc)
+ | Number_alias (_,desc) -> desc