Redefine longident migration explicitly

Using the one from the Migrate_x modules lead to circular dependencies

Signed-off-by: Nathan Rebours <[email protected]>

Author: Nathan Rebours

astlib/longident.ml

@@ -30,10 +30,27 @@ let parse s =
                           so as not to crash the toplevel (see Genprintval) *)
   | Some v -> v
 
+let rec to_504_plus lid =
+  let loc = Location.none in
+  match lid with
+  | Lident s -> Longident_504.Lident s
+  | Ldot (lid, s) ->
+    Longident_504.Ldot ({txt = to_504_plus lid; loc}, { txt = s; loc})
+  | Lapply (lid, lid2) ->
+    Longident_504.Lapply
+      ({txt = to_504_plus lid; loc}, {txt= to_504_plus lid2; loc})
+
+let rec from_504_plus lid =
+  match lid with
+  | Longident_504.Lident s -> Lident s
+  | Longident_504.Ldot (lid, s) -> Ldot (from_504_plus lid.txt, s.txt)
+  | Longident_504.Lapply (lid, lid2) ->
+    Lapply (from_504_plus lid.txt, from_504_plus lid2.txt)
+
 let to_compiler lid =
   (*IF_NOT_AT_LEAST 504 lid *)
-  (*IF_AT_LEAST 504 Migrate_503_504.copy_Longident_t lid *)
+  (*IF_AT_LEAST 504 to_504_plus lid *)
 
 let from_compiler lid =
   (*IF_NOT_AT_LEAST 504 lid *)
-  (*IF_AT_LEAST 504 Migrate_504_503.copy_Longident_t lid *)
+  (*IF_AT_LEAST 504 from_504_plus lid *)