2 # QAPI command marshaller generator
4 # Copyright IBM, Corp. 2011
5 # Copyright (C) 2014-2016 Red Hat, Inc.
8 # Anthony Liguori <aliguori@us.ibm.com>
9 # Michael Roth <mdroth@linux.vnet.ibm.com>
10 # Markus Armbruster <armbru@redhat.com>
12 # This work is licensed under the terms of the GNU GPL, version 2.
13 # See the COPYING file in the top-level directory.
19 def gen_command_decl(name
, arg_type
, ret_type
):
21 %(c_type)s qmp_%(c_name)s(%(params)s);
23 c_type
=(ret_type
and ret_type
.c_type()) or 'void',
25 params
=gen_params(arg_type
, 'Error **errp'))
28 def gen_call(name
, arg_type
, ret_type
):
33 assert not arg_type
.variants
34 for memb
in arg_type
.members
:
36 argstr
+= 'arg.has_%s, ' % c_name(memb
.name
)
37 argstr
+= 'arg.%s, ' % c_name(memb
.name
)
45 %(lhs)sqmp_%(c_name)s(%(args)s&err);
47 c_name
=c_name(name
), args
=argstr
, lhs
=lhs
)
49 ret
+= gen_err_check()
52 qmp_marshal_output_%(c_name)s(retval, ret, &err);
54 c_name
=ret_type
.c_name())
58 def gen_marshal_output(ret_type
):
61 static void qmp_marshal_output_%(c_name)s(%(c_type)s ret_in, QObject **ret_out, Error **errp)
64 QmpOutputVisitor *qov = qmp_output_visitor_new();
65 QapiDeallocVisitor *qdv;
68 v = qmp_output_get_visitor(qov);
69 visit_type_%(c_name)s(v, "unused", &ret_in, &err);
73 *ret_out = qmp_output_get_qobject(qov);
76 error_propagate(errp, err);
77 qmp_output_visitor_cleanup(qov);
78 qdv = qapi_dealloc_visitor_new();
79 v = qapi_dealloc_get_visitor(qdv);
80 visit_type_%(c_name)s(v, "unused", &ret_in, NULL);
81 qapi_dealloc_visitor_cleanup(qdv);
84 c_type
=ret_type
.c_type(), c_name
=ret_type
.c_name())
87 def gen_marshal_proto(name
):
88 ret
= 'void qmp_marshal_%s(QDict *args, QObject **ret, Error **errp)' % c_name(name
)
94 def gen_marshal_decl(name
):
98 proto
=gen_marshal_proto(name
))
101 def gen_marshal(name
, arg_type
, ret_type
):
108 proto
=gen_marshal_proto(name
))
114 c_type
=ret_type
.c_type())
116 if arg_type
and arg_type
.members
:
118 QmpInputVisitor *qiv = qmp_input_visitor_new(QOBJECT(args), true);
119 QapiDeallocVisitor *qdv;
121 %(c_name)s arg = {0};
123 v = qmp_input_get_visitor(qiv);
124 visit_start_struct(v, NULL, NULL, 0, &err);
128 visit_type_%(c_name)s_members(v, &arg, &err);
129 visit_end_struct(v, err ? NULL : &err);
134 c_name
=arg_type
.c_name())
142 ret
+= gen_call(name
, arg_type
, ret_type
)
144 # 'goto out' produced above for arg_type, and by gen_call() for ret_type
145 if (arg_type
and arg_type
.members
) or ret_type
:
151 error_propagate(errp, err);
153 if arg_type
and arg_type
.members
:
155 qmp_input_visitor_cleanup(qiv);
156 qdv = qapi_dealloc_visitor_new();
157 v = qapi_dealloc_get_visitor(qdv);
158 visit_start_struct(v, NULL, NULL, 0, NULL);
159 visit_type_%(c_name)s_members(v, &arg, NULL);
160 visit_end_struct(v, NULL);
161 qapi_dealloc_visitor_cleanup(qdv);
163 c_name
=arg_type
.c_name())
171 def gen_register_command(name
, success_response
):
172 options
= 'QCO_NO_OPTIONS'
173 if not success_response
:
174 options
= 'QCO_NO_SUCCESS_RESP'
177 qmp_register_command("%(name)s", qmp_marshal_%(c_name)s, %(opts)s);
179 name
=name
, c_name
=c_name(name
),
184 def gen_registry(registry
):
187 static void qmp_init_marshal(void)
194 qapi_init(qmp_init_marshal);
199 class QAPISchemaGenCommandVisitor(QAPISchemaVisitor
):
204 self
._visited
_ret
_types
= None
206 def visit_begin(self
, schema
):
210 self
._visited
_ret
_types
= set()
214 self
.defn
+= gen_registry(self
._regy
)
216 self
._visited
_ret
_types
= None
218 def visit_command(self
, name
, info
, arg_type
, ret_type
,
219 gen
, success_response
):
222 self
.decl
+= gen_command_decl(name
, arg_type
, ret_type
)
223 if ret_type
and ret_type
not in self
._visited
_ret
_types
:
224 self
._visited
_ret
_types
.add(ret_type
)
225 self
.defn
+= gen_marshal_output(ret_type
)
227 self
.decl
+= gen_marshal_decl(name
)
228 self
.defn
+= gen_marshal(name
, arg_type
, ret_type
)
230 self
._regy
+= gen_register_command(name
, success_response
)
235 (input_file
, output_dir
, do_c
, do_h
, prefix
, opts
) = \
236 parse_command_line("m", ["middle"])
239 if o
in ("-m", "--middle"):
244 * schema-defined QMP->QAPI command dispatch
246 * Copyright IBM, Corp. 2011
249 * Anthony Liguori <aliguori@us.ibm.com>
251 * This work is licensed under the terms of the GNU LGPL, version 2.1 or later.
252 * See the COPYING.LIB file in the top-level directory.
258 * schema-defined QAPI function prototypes
260 * Copyright IBM, Corp. 2011
263 * Anthony Liguori <aliguori@us.ibm.com>
265 * This work is licensed under the terms of the GNU LGPL, version 2.1 or later.
266 * See the COPYING.LIB file in the top-level directory.
271 (fdef
, fdecl
) = open_output(output_dir
, do_c
, do_h
, prefix
,
272 'qmp-marshal.c', 'qmp-commands.h',
273 c_comment
, h_comment
)
276 #include "qemu/osdep.h"
277 #include "qemu-common.h"
278 #include "qemu/module.h"
279 #include "qapi/qmp/types.h"
280 #include "qapi/qmp/dispatch.h"
281 #include "qapi/visitor.h"
282 #include "qapi/qmp-output-visitor.h"
283 #include "qapi/qmp-input-visitor.h"
284 #include "qapi/dealloc-visitor.h"
285 #include "%(prefix)sqapi-types.h"
286 #include "%(prefix)sqapi-visit.h"
287 #include "%(prefix)sqmp-commands.h"
292 fdecl
.write(mcgen('''
293 #include "%(prefix)sqapi-types.h"
294 #include "qapi/qmp/qdict.h"
295 #include "qapi/error.h"
300 schema
= QAPISchema(input_file
)
301 gen
= QAPISchemaGenCommandVisitor()
304 fdecl
.write(gen
.decl
)
306 close_output(fdef
, fdecl
)