Renamed to_ast and of_ast to unwrap and wrap.

Author: ceastlund

ast/cinaps/gen_versions.ml

@@ -257,7 +257,7 @@ module Structure = struct
       Print.println "let to_concrete_opt t =";
       Print.indented (fun () ->
         Print.println
-          "match Node.to_ast (Unversioned.Private.transparent t) ~version with";
+          "match Node.unwrap (Unversioned.Private.transparent t) ~version with";
         Print.println "| { name = %S; data } -> %s data"
           node_name
           (ast_to_ty ~grammar ty);
@@ -266,7 +266,7 @@ module Structure = struct
       Print.println "let to_concrete_opt t =";
       Print.indented (fun () ->
         Print.println
-          "match Node.to_ast (Unversioned.Private.transparent t) ~version with";
+          "match Node.unwrap (Unversioned.Private.transparent t) ~version with";
         Print.println "| { name = %S" node_name;
         Print.indented (fun () ->
           Print.println "; data = Record [| %s |]"
@@ -283,7 +283,7 @@ module Structure = struct
       Print.println "let to_concrete_opt t =";
       Print.indented (fun () ->
         Print.println
-          "match Node.to_ast (Unversioned.Private.transparent t) ~version with";
+          "match Node.unwrap (Unversioned.Private.transparent t) ~version with";
         Print.println "| { name = %S; data } ->" node_name;
         Print.indented (fun () ->
           Print.println "begin";
@@ -411,7 +411,7 @@ let print_version_ml version =
     "let version = Astlib.Version.of_string %S"
     (Astlib.Version.to_string version);
   Print.println
-    "let node name data = Unversioned.Private.opaque (Node.of_ast ~version { name; data })";
+    "let node name data = Unversioned.Private.opaque (Node.wrap ~version { name; data })";
   Print.newline ();
   Ml.define_modules grammar ~f:(fun node_name kind ->
     match (kind : Astlib.Grammar.kind) with

ast/node.ml

@@ -2,7 +2,7 @@ type t = { version : Astlib.Version.t; ast : t Astlib.Ast.t }
 
 let version t = t.version
 
-let of_ast ~version ast = { version; ast }
+let wrap ~version ast = { version; ast }
 
-let rec to_ast ~version:dst_version { ast; version = src_version } =
-  Astlib.History.convert Astlib.history ast ~src_version ~dst_version ~to_ast ~of_ast
+let rec unwrap ~version:dst_version { ast; version = src_version } =
+  Astlib.History.convert Astlib.history ast ~src_version ~dst_version ~unwrap ~wrap

ast/node.mli

@@ -1,5 +1,5 @@
 type t
 
 val version : t -> Astlib.Version.t
-val of_ast : version:Astlib.Version.t -> t Astlib.Ast.t -> t
-val to_ast : version:Astlib.Version.t -> t -> t Astlib.Ast.t
+val wrap : version:Astlib.Version.t -> t Astlib.Ast.t -> t
+val unwrap : version:Astlib.Version.t -> t -> t Astlib.Ast.t