unikernel/duniverse/ppxlib/astlib/longident.mli

@@ -0,0 +1,19 @@
+(** Long identifiers, used in parsetrees. *)
+
+(** The long identifier type *)
+type t =
+  (*IF_NOT_AT_LEAST 504 Ocaml_common.Longident.t = *)
+  | Lident of string
+  | Ldot of t * string
+  | Lapply of t * t
+
+val flatten : t -> string list
+(** Flatten a long identifier built upon [Lident] and [Ldot]. Raise when hitting
+    [Lapply].*)
+
+val parse : string -> t
+(** Parse a string into a long identifier built upon [Lident] and [Ldot]. *)
+
+val to_compiler : t -> Ocaml_common.Longident.t
+
+val from_compiler : Ocaml_common.Longident.t -> t