-let coercion value =
- command_of_obj (G.Coercion (floc, UM.uri_of_string value, true, 0, 0))
-
-let inline kind uri prefix flavour params =
- let params = match prefix with
- | "" -> params
- | prefix -> G.IPPrefix prefix :: params
- in
- let params = match flavour with
- | None -> params
- | Some flavour -> G.IPAs flavour :: params
- in
- let params = match kind with
- | T.Declarative -> params
- | T.Procedural -> G.IPProcedural :: params
- in
- command_of_macro (G.Inline (floc, uri, params))
-