target-microblaze: dec_barrel: Plug TCG temp leak
[qemu/ar7.git] / util / qemu-config.c
blob405dd1a1d771fcacb11d4098a02ce27e9cf827af
1 #include "qemu/osdep.h"
2 #include "qemu-common.h"
3 #include "qemu/error-report.h"
4 #include "qemu/option.h"
5 #include "qemu/config-file.h"
6 #include "qmp-commands.h"
8 static QemuOptsList *vm_config_groups[48];
9 static QemuOptsList *drive_config_groups[5];
11 static QemuOptsList *find_list(QemuOptsList **lists, const char *group,
12 Error **errp)
14 int i;
16 for (i = 0; lists[i] != NULL; i++) {
17 if (strcmp(lists[i]->name, group) == 0)
18 break;
20 if (lists[i] == NULL) {
21 error_setg(errp, "There is no option group '%s'", group);
23 return lists[i];
26 QemuOptsList *qemu_find_opts(const char *group)
28 QemuOptsList *ret;
29 Error *local_err = NULL;
31 ret = find_list(vm_config_groups, group, &local_err);
32 if (local_err) {
33 error_report_err(local_err);
36 return ret;
39 QemuOpts *qemu_find_opts_singleton(const char *group)
41 QemuOptsList *list;
42 QemuOpts *opts;
44 list = qemu_find_opts(group);
45 assert(list);
46 opts = qemu_opts_find(list, NULL);
47 if (!opts) {
48 opts = qemu_opts_create(list, NULL, 0, &error_abort);
50 return opts;
53 static CommandLineParameterInfoList *query_option_descs(const QemuOptDesc *desc)
55 CommandLineParameterInfoList *param_list = NULL, *entry;
56 CommandLineParameterInfo *info;
57 int i;
59 for (i = 0; desc[i].name != NULL; i++) {
60 info = g_malloc0(sizeof(*info));
61 info->name = g_strdup(desc[i].name);
63 switch (desc[i].type) {
64 case QEMU_OPT_STRING:
65 info->type = COMMAND_LINE_PARAMETER_TYPE_STRING;
66 break;
67 case QEMU_OPT_BOOL:
68 info->type = COMMAND_LINE_PARAMETER_TYPE_BOOLEAN;
69 break;
70 case QEMU_OPT_NUMBER:
71 info->type = COMMAND_LINE_PARAMETER_TYPE_NUMBER;
72 break;
73 case QEMU_OPT_SIZE:
74 info->type = COMMAND_LINE_PARAMETER_TYPE_SIZE;
75 break;
78 if (desc[i].help) {
79 info->has_help = true;
80 info->help = g_strdup(desc[i].help);
82 if (desc[i].def_value_str) {
83 info->has_q_default = true;
84 info->q_default = g_strdup(desc[i].def_value_str);
87 entry = g_malloc0(sizeof(*entry));
88 entry->value = info;
89 entry->next = param_list;
90 param_list = entry;
93 return param_list;
96 /* remove repeated entry from the info list */
97 static void cleanup_infolist(CommandLineParameterInfoList *head)
99 CommandLineParameterInfoList *pre_entry, *cur, *del_entry;
101 cur = head;
102 while (cur->next) {
103 pre_entry = head;
104 while (pre_entry != cur->next) {
105 if (!strcmp(pre_entry->value->name, cur->next->value->name)) {
106 del_entry = cur->next;
107 cur->next = cur->next->next;
108 g_free(del_entry);
109 break;
111 pre_entry = pre_entry->next;
113 cur = cur->next;
117 /* merge the description items of two parameter infolists */
118 static void connect_infolist(CommandLineParameterInfoList *head,
119 CommandLineParameterInfoList *new)
121 CommandLineParameterInfoList *cur;
123 cur = head;
124 while (cur->next) {
125 cur = cur->next;
127 cur->next = new;
130 /* access all the local QemuOptsLists for drive option */
131 static CommandLineParameterInfoList *get_drive_infolist(void)
133 CommandLineParameterInfoList *head = NULL, *cur;
134 int i;
136 for (i = 0; drive_config_groups[i] != NULL; i++) {
137 if (!head) {
138 head = query_option_descs(drive_config_groups[i]->desc);
139 } else {
140 cur = query_option_descs(drive_config_groups[i]->desc);
141 connect_infolist(head, cur);
144 cleanup_infolist(head);
146 return head;
149 /* restore machine options that are now machine's properties */
150 static QemuOptsList machine_opts = {
151 .merge_lists = true,
152 .head = QTAILQ_HEAD_INITIALIZER(machine_opts.head),
153 .desc = {
155 .name = "type",
156 .type = QEMU_OPT_STRING,
157 .help = "emulated machine"
159 .name = "accel",
160 .type = QEMU_OPT_STRING,
161 .help = "accelerator list",
163 .name = "kernel_irqchip",
164 .type = QEMU_OPT_BOOL,
165 .help = "use KVM in-kernel irqchip",
167 .name = "kvm_shadow_mem",
168 .type = QEMU_OPT_SIZE,
169 .help = "KVM shadow MMU size",
171 .name = "kernel",
172 .type = QEMU_OPT_STRING,
173 .help = "Linux kernel image file",
175 .name = "initrd",
176 .type = QEMU_OPT_STRING,
177 .help = "Linux initial ramdisk file",
179 .name = "append",
180 .type = QEMU_OPT_STRING,
181 .help = "Linux kernel command line",
183 .name = "dtb",
184 .type = QEMU_OPT_STRING,
185 .help = "Linux kernel device tree file",
187 .name = "dumpdtb",
188 .type = QEMU_OPT_STRING,
189 .help = "Dump current dtb to a file and quit",
191 .name = "phandle_start",
192 .type = QEMU_OPT_NUMBER,
193 .help = "The first phandle ID we may generate dynamically",
195 .name = "dt_compatible",
196 .type = QEMU_OPT_STRING,
197 .help = "Overrides the \"compatible\" property of the dt root node",
199 .name = "dump-guest-core",
200 .type = QEMU_OPT_BOOL,
201 .help = "Include guest memory in a core dump",
203 .name = "mem-merge",
204 .type = QEMU_OPT_BOOL,
205 .help = "enable/disable memory merge support",
207 .name = "usb",
208 .type = QEMU_OPT_BOOL,
209 .help = "Set on/off to enable/disable usb",
211 .name = "firmware",
212 .type = QEMU_OPT_STRING,
213 .help = "firmware image",
215 .name = "iommu",
216 .type = QEMU_OPT_BOOL,
217 .help = "Set on/off to enable/disable Intel IOMMU (VT-d)",
219 .name = "suppress-vmdesc",
220 .type = QEMU_OPT_BOOL,
221 .help = "Set on to disable self-describing migration",
223 .name = "aes-key-wrap",
224 .type = QEMU_OPT_BOOL,
225 .help = "enable/disable AES key wrapping using the CPACF wrapping key",
227 .name = "dea-key-wrap",
228 .type = QEMU_OPT_BOOL,
229 .help = "enable/disable DEA key wrapping using the CPACF wrapping key",
231 .name = "loadparm",
232 .type = QEMU_OPT_STRING,
233 .help = "Up to 8 chars in set of [A-Za-z0-9. ](lower case chars"
234 " converted to upper case) to pass to machine"
235 " loader, boot manager, and guest kernel",
237 { /* End of list */ }
241 CommandLineOptionInfoList *qmp_query_command_line_options(bool has_option,
242 const char *option,
243 Error **errp)
245 CommandLineOptionInfoList *conf_list = NULL, *entry;
246 CommandLineOptionInfo *info;
247 int i;
249 for (i = 0; vm_config_groups[i] != NULL; i++) {
250 if (!has_option || !strcmp(option, vm_config_groups[i]->name)) {
251 info = g_malloc0(sizeof(*info));
252 info->option = g_strdup(vm_config_groups[i]->name);
253 if (!strcmp("drive", vm_config_groups[i]->name)) {
254 info->parameters = get_drive_infolist();
255 } else if (!strcmp("machine", vm_config_groups[i]->name)) {
256 info->parameters = query_option_descs(machine_opts.desc);
257 } else {
258 info->parameters =
259 query_option_descs(vm_config_groups[i]->desc);
261 entry = g_malloc0(sizeof(*entry));
262 entry->value = info;
263 entry->next = conf_list;
264 conf_list = entry;
268 if (conf_list == NULL) {
269 error_setg(errp, "invalid option name: %s", option);
272 return conf_list;
275 QemuOptsList *qemu_find_opts_err(const char *group, Error **errp)
277 return find_list(vm_config_groups, group, errp);
280 void qemu_add_drive_opts(QemuOptsList *list)
282 int entries, i;
284 entries = ARRAY_SIZE(drive_config_groups);
285 entries--; /* keep list NULL terminated */
286 for (i = 0; i < entries; i++) {
287 if (drive_config_groups[i] == NULL) {
288 drive_config_groups[i] = list;
289 return;
292 fprintf(stderr, "ran out of space in drive_config_groups");
293 abort();
296 void qemu_add_opts(QemuOptsList *list)
298 int entries, i;
300 entries = ARRAY_SIZE(vm_config_groups);
301 entries--; /* keep list NULL terminated */
302 for (i = 0; i < entries; i++) {
303 if (vm_config_groups[i] == NULL) {
304 vm_config_groups[i] = list;
305 return;
308 fprintf(stderr, "ran out of space in vm_config_groups");
309 abort();
312 int qemu_set_option(const char *str)
314 Error *local_err = NULL;
315 char group[64], id[64], arg[64];
316 QemuOptsList *list;
317 QemuOpts *opts;
318 int rc, offset;
320 rc = sscanf(str, "%63[^.].%63[^.].%63[^=]%n", group, id, arg, &offset);
321 if (rc < 3 || str[offset] != '=') {
322 error_report("can't parse: \"%s\"", str);
323 return -1;
326 list = qemu_find_opts(group);
327 if (list == NULL) {
328 return -1;
331 opts = qemu_opts_find(list, id);
332 if (!opts) {
333 error_report("there is no %s \"%s\" defined",
334 list->name, id);
335 return -1;
338 qemu_opt_set(opts, arg, str + offset + 1, &local_err);
339 if (local_err) {
340 error_report_err(local_err);
341 return -1;
343 return 0;
346 struct ConfigWriteData {
347 QemuOptsList *list;
348 FILE *fp;
351 static int config_write_opt(void *opaque, const char *name, const char *value,
352 Error **errp)
354 struct ConfigWriteData *data = opaque;
356 fprintf(data->fp, " %s = \"%s\"\n", name, value);
357 return 0;
360 static int config_write_opts(void *opaque, QemuOpts *opts, Error **errp)
362 struct ConfigWriteData *data = opaque;
363 const char *id = qemu_opts_id(opts);
365 if (id) {
366 fprintf(data->fp, "[%s \"%s\"]\n", data->list->name, id);
367 } else {
368 fprintf(data->fp, "[%s]\n", data->list->name);
370 qemu_opt_foreach(opts, config_write_opt, data, NULL);
371 fprintf(data->fp, "\n");
372 return 0;
375 void qemu_config_write(FILE *fp)
377 struct ConfigWriteData data = { .fp = fp };
378 QemuOptsList **lists = vm_config_groups;
379 int i;
381 fprintf(fp, "# qemu config file\n\n");
382 for (i = 0; lists[i] != NULL; i++) {
383 data.list = lists[i];
384 qemu_opts_foreach(data.list, config_write_opts, &data, NULL);
388 int qemu_config_parse(FILE *fp, QemuOptsList **lists, const char *fname)
390 char line[1024], group[64], id[64], arg[64], value[1024];
391 Location loc;
392 QemuOptsList *list = NULL;
393 Error *local_err = NULL;
394 QemuOpts *opts = NULL;
395 int res = -1, lno = 0;
397 loc_push_none(&loc);
398 while (fgets(line, sizeof(line), fp) != NULL) {
399 loc_set_file(fname, ++lno);
400 if (line[0] == '\n') {
401 /* skip empty lines */
402 continue;
404 if (line[0] == '#') {
405 /* comment */
406 continue;
408 if (sscanf(line, "[%63s \"%63[^\"]\"]", group, id) == 2) {
409 /* group with id */
410 list = find_list(lists, group, &local_err);
411 if (local_err) {
412 error_report_err(local_err);
413 goto out;
415 opts = qemu_opts_create(list, id, 1, NULL);
416 continue;
418 if (sscanf(line, "[%63[^]]]", group) == 1) {
419 /* group without id */
420 list = find_list(lists, group, &local_err);
421 if (local_err) {
422 error_report_err(local_err);
423 goto out;
425 opts = qemu_opts_create(list, NULL, 0, &error_abort);
426 continue;
428 value[0] = '\0';
429 if (sscanf(line, " %63s = \"%1023[^\"]\"", arg, value) == 2 ||
430 sscanf(line, " %63s = \"\"", arg) == 1) {
431 /* arg = value */
432 if (opts == NULL) {
433 error_report("no group defined");
434 goto out;
436 qemu_opt_set(opts, arg, value, &local_err);
437 if (local_err) {
438 error_report_err(local_err);
439 goto out;
441 continue;
443 error_report("parse error");
444 goto out;
446 if (ferror(fp)) {
447 error_report("error reading file");
448 goto out;
450 res = 0;
451 out:
452 loc_pop(&loc);
453 return res;
456 int qemu_read_config_file(const char *filename)
458 FILE *f = fopen(filename, "r");
459 int ret;
461 if (f == NULL) {
462 return -errno;
465 ret = qemu_config_parse(f, vm_config_groups, filename);
466 fclose(f);
468 if (ret == 0) {
469 return 0;
470 } else {
471 return -EINVAL;
475 static void config_parse_qdict_section(QDict *options, QemuOptsList *opts,
476 Error **errp)
478 QemuOpts *subopts;
479 QDict *subqdict;
480 QList *list = NULL;
481 Error *local_err = NULL;
482 size_t orig_size, enum_size;
483 char *prefix;
485 prefix = g_strdup_printf("%s.", opts->name);
486 qdict_extract_subqdict(options, &subqdict, prefix);
487 g_free(prefix);
488 orig_size = qdict_size(subqdict);
489 if (!orig_size) {
490 goto out;
493 subopts = qemu_opts_create(opts, NULL, 0, &local_err);
494 if (local_err) {
495 error_propagate(errp, local_err);
496 goto out;
499 qemu_opts_absorb_qdict(subopts, subqdict, &local_err);
500 if (local_err) {
501 error_propagate(errp, local_err);
502 goto out;
505 enum_size = qdict_size(subqdict);
506 if (enum_size < orig_size && enum_size) {
507 error_setg(errp, "Unknown option '%s' for [%s]",
508 qdict_first(subqdict)->key, opts->name);
509 goto out;
512 if (enum_size) {
513 /* Multiple, enumerated sections */
514 QListEntry *list_entry;
515 unsigned i = 0;
517 /* Not required anymore */
518 qemu_opts_del(subopts);
520 qdict_array_split(subqdict, &list);
521 if (qdict_size(subqdict)) {
522 error_setg(errp, "Unused option '%s' for [%s]",
523 qdict_first(subqdict)->key, opts->name);
524 goto out;
527 QLIST_FOREACH_ENTRY(list, list_entry) {
528 QDict *section = qobject_to_qdict(qlist_entry_obj(list_entry));
529 char *opt_name;
531 if (!section) {
532 error_setg(errp, "[%s] section (index %u) does not consist of "
533 "keys", opts->name, i);
534 goto out;
537 opt_name = g_strdup_printf("%s.%u", opts->name, i++);
538 subopts = qemu_opts_create(opts, opt_name, 1, &local_err);
539 g_free(opt_name);
540 if (local_err) {
541 error_propagate(errp, local_err);
542 goto out;
545 qemu_opts_absorb_qdict(subopts, section, &local_err);
546 if (local_err) {
547 error_propagate(errp, local_err);
548 qemu_opts_del(subopts);
549 goto out;
552 if (qdict_size(section)) {
553 error_setg(errp, "[%s] section doesn't support the option '%s'",
554 opts->name, qdict_first(section)->key);
555 qemu_opts_del(subopts);
556 goto out;
561 out:
562 QDECREF(subqdict);
563 QDECREF(list);
566 void qemu_config_parse_qdict(QDict *options, QemuOptsList **lists,
567 Error **errp)
569 int i;
570 Error *local_err = NULL;
572 for (i = 0; lists[i]; i++) {
573 config_parse_qdict_section(options, lists[i], &local_err);
574 if (local_err) {
575 error_propagate(errp, local_err);
576 return;