+let coercion value =
+ command_of_obj (G.Coercion (floc, UM.uri_of_string value, true, 0, 0))
+
+let inline (kind, uri, prefix) =
+ let kind = match kind with
+ | T.Declarative -> G.Declarative
+ | T.Procedural -> G.Procedural None
+ in
+ command_of_macro (G.Inline (floc, kind, uri, prefix, None))
+
+let out_alias och name uri =
+ Printf.fprintf och "alias id \"%s\" = \"%s\".\n\n" name uri
+
+let commit kind och items =
+ let trd (_, _, x) = x in
+ let trd_rth kind (_, _, x, y) = kind, x, y in