4 # Copyright IBM, Corp. 2011
7 # Anthony Liguori <aliguori@us.ibm.com>
9 # This work is licensed under the terms of the GNU GPL, version 2.
10 # See the COPYING file in the top-level directory.
12 from ordereddict
import OrderedDict
19 def generate_fwd_struct(name
, members
, builtin_type
=False):
23 typedef struct %(name)sList
29 struct %(name)sList *next;
37 typedef struct %(name)s %(name)s;
39 typedef struct %(name)sList
45 struct %(name)sList *next;
50 def generate_fwd_enum_struct(name
, members
):
52 typedef struct %(name)sList
58 struct %(name)sList *next;
63 def generate_struct_fields(members
):
66 for argname
, argentry
, optional
, structured
in parse_args(members
):
71 c_name
=c_var(argname
))
74 ret
+= generate_struct({ "field": argname
, "data": argentry
})
78 %(c_type)s %(c_name)s;
80 c_type
=c_type(argentry
), c_name
=c_var(argname
))
84 def generate_struct(expr
):
86 structname
= expr
.get('type', "")
87 fieldname
= expr
.get('field', "")
88 members
= expr
['data']
89 base
= expr
.get('base')
98 ret
+= generate_struct_fields({'base': base
})
100 ret
+= generate_struct_fields(members
)
103 fieldname
= " " + fieldname
111 def generate_enum_lookup(name
, values
):
113 const char *%(name)s_lookup[] = {
130 def generate_enum(name
, values
):
131 lookup_decl
= mcgen('''
132 extern const char *%(name)s_lookup[];
136 enum_decl
= mcgen('''
137 typedef enum %(name)s
142 # append automatically generated _MAX value
143 enum_values
= values
+ [ 'MAX' ]
146 for value
in enum_values
:
147 enum_full_value
= generate_enum_full_value(name
, value
)
148 enum_decl
+= mcgen('''
149 %(enum_full_value)s = %(i)d,
151 enum_full_value
= enum_full_value
,
155 enum_decl
+= mcgen('''
160 return lookup_decl
+ enum_decl
162 def generate_anon_union_qtypes(expr
):
165 members
= expr
['data']
168 const int %(name)s_qtypes[QTYPE_MAX] = {
173 qapi_type
= members
[key
]
174 if builtin_type_qtypes
.has_key(qapi_type
):
175 qtype
= builtin_type_qtypes
[qapi_type
]
176 elif find_struct(qapi_type
):
177 qtype
= "QTYPE_QDICT"
178 elif find_union(qapi_type
):
179 qtype
= "QTYPE_QDICT"
181 assert False, "Invalid anonymous union member"
184 [ %(qtype)s ] = %(abbrev)s_KIND_%(enum)s,
187 abbrev
= de_camel_case(name
).upper(),
188 enum
= c_fun(de_camel_case(key
),False).upper())
196 def generate_union(expr
):
199 typeinfo
= expr
['data']
201 base
= expr
.get('base')
202 discriminator
= expr
.get('discriminator')
204 enum_define
= discriminator_find_enum_define(expr
)
206 discriminator_type_name
= enum_define
['enum_name']
208 discriminator_type_name
= '%sKind' % (name
)
213 %(discriminator_type_name)s kind;
218 discriminator_type_name
=discriminator_type_name
)
222 %(c_type)s %(c_name)s;
224 c_type
=c_type(typeinfo
[key
]),
232 base_fields
= find_struct(base
)['data']
234 base_fields
= base_fields
.copy()
235 del base_fields
[discriminator
]
236 ret
+= generate_struct_fields(base_fields
)
238 assert not discriminator
243 if discriminator
== {}:
245 extern const int %(name)s_qtypes[];
252 def generate_type_cleanup_decl(name
):
254 void qapi_free_%(type)s(%(c_type)s obj);
256 c_type
=c_type(name
),type=name
)
259 def generate_type_cleanup(name
):
262 void qapi_free_%(type)s(%(c_type)s obj)
264 QapiDeallocVisitor *md;
271 md = qapi_dealloc_visitor_new();
272 v = qapi_dealloc_get_visitor(md);
273 visit_type_%(type)s(v, &obj, NULL, NULL);
274 qapi_dealloc_visitor_cleanup(md);
277 c_type
=c_type(name
),type=name
)
282 opts
, args
= getopt
.gnu_getopt(sys
.argv
[1:], "chbp:o:",
283 ["source", "header", "builtins",
284 "prefix=", "output-dir="])
285 except getopt
.GetoptError
, err
:
291 c_file
= 'qapi-types.c'
292 h_file
= 'qapi-types.h'
299 if o
in ("-p", "--prefix"):
301 elif o
in ("-o", "--output-dir"):
303 elif o
in ("-c", "--source"):
305 elif o
in ("-h", "--header"):
307 elif o
in ("-b", "--builtins"):
310 if not do_c
and not do_h
:
314 c_file
= output_dir
+ prefix
+ c_file
315 h_file
= output_dir
+ prefix
+ h_file
318 os
.makedirs(output_dir
)
320 if e
.errno
!= errno
.EEXIST
:
323 def maybe_open(really
, name
, opt
):
325 return open(name
, opt
)
328 return StringIO
.StringIO()
330 fdef
= maybe_open(do_c
, c_file
, 'w')
331 fdecl
= maybe_open(do_h
, h_file
, 'w')
334 /* AUTOMATICALLY GENERATED, DO NOT MODIFY */
337 * deallocation functions for schema-defined QAPI types
339 * Copyright IBM, Corp. 2011
342 * Anthony Liguori <aliguori@us.ibm.com>
343 * Michael Roth <mdroth@linux.vnet.ibm.com>
345 * This work is licensed under the terms of the GNU LGPL, version 2.1 or later.
346 * See the COPYING.LIB file in the top-level directory.
350 #include "qapi/dealloc-visitor.h"
351 #include "%(prefix)sqapi-types.h"
352 #include "%(prefix)sqapi-visit.h"
356 fdecl
.write(mcgen('''
357 /* AUTOMATICALLY GENERATED, DO NOT MODIFY */
360 * schema-defined QAPI types
362 * Copyright IBM, Corp. 2011
365 * Anthony Liguori <aliguori@us.ibm.com>
367 * This work is licensed under the terms of the GNU LGPL, version 2.1 or later.
368 * See the COPYING.LIB file in the top-level directory.
379 guard
=guardname(h_file
)))
381 exprs
= parse_schema(sys
.stdin
)
382 exprs
= filter(lambda expr
: not expr
.has_key('gen'), exprs
)
384 fdecl
.write(guardstart("QAPI_TYPES_BUILTIN_STRUCT_DECL"))
385 for typename
in builtin_types
:
386 fdecl
.write(generate_fwd_struct(typename
, None, builtin_type
=True))
387 fdecl
.write(guardend("QAPI_TYPES_BUILTIN_STRUCT_DECL"))
391 if expr
.has_key('type'):
392 ret
+= generate_fwd_struct(expr
['type'], expr
['data'])
393 elif expr
.has_key('enum'):
394 ret
+= generate_enum(expr
['enum'], expr
['data']) + "\n"
395 ret
+= generate_fwd_enum_struct(expr
['enum'], expr
['data'])
396 fdef
.write(generate_enum_lookup(expr
['enum'], expr
['data']))
397 elif expr
.has_key('union'):
398 ret
+= generate_fwd_struct(expr
['union'], expr
['data']) + "\n"
399 enum_define
= discriminator_find_enum_define(expr
)
401 ret
+= generate_enum('%sKind' % expr
['union'], expr
['data'].keys())
402 fdef
.write(generate_enum_lookup('%sKind' % expr
['union'],
403 expr
['data'].keys()))
404 if expr
.get('discriminator') == {}:
405 fdef
.write(generate_anon_union_qtypes(expr
))
410 # to avoid header dependency hell, we always generate declarations
411 # for built-in types in our header files and simply guard them
412 fdecl
.write(guardstart("QAPI_TYPES_BUILTIN_CLEANUP_DECL"))
413 for typename
in builtin_types
:
414 fdecl
.write(generate_type_cleanup_decl(typename
+ "List"))
415 fdecl
.write(guardend("QAPI_TYPES_BUILTIN_CLEANUP_DECL"))
417 # ...this doesn't work for cases where we link in multiple objects that
418 # have the functions defined, so we use -b option to provide control
421 fdef
.write(guardstart("QAPI_TYPES_BUILTIN_CLEANUP_DEF"))
422 for typename
in builtin_types
:
423 fdef
.write(generate_type_cleanup(typename
+ "List"))
424 fdef
.write(guardend("QAPI_TYPES_BUILTIN_CLEANUP_DEF"))
428 if expr
.has_key('type'):
429 ret
+= generate_struct(expr
) + "\n"
430 ret
+= generate_type_cleanup_decl(expr
['type'] + "List")
431 fdef
.write(generate_type_cleanup(expr
['type'] + "List") + "\n")
432 ret
+= generate_type_cleanup_decl(expr
['type'])
433 fdef
.write(generate_type_cleanup(expr
['type']) + "\n")
434 elif expr
.has_key('union'):
435 ret
+= generate_union(expr
)
436 ret
+= generate_type_cleanup_decl(expr
['union'] + "List")
437 fdef
.write(generate_type_cleanup(expr
['union'] + "List") + "\n")
438 ret
+= generate_type_cleanup_decl(expr
['union'])
439 fdef
.write(generate_type_cleanup(expr
['union']) + "\n")
440 elif expr
.has_key('enum'):
441 ret
+= generate_type_cleanup_decl(expr
['enum'] + "List")
442 fdef
.write(generate_type_cleanup(expr
['enum'] + "List") + "\n")