Merge remote-tracking branch 'qmp/queue/qmp' into staging
[qemu/rayw.git] / qemu-config.c
blob2188c3e5ec56b458c0a556d51d3ddbda8eaf23dd
1 #include "qemu-common.h"
2 #include "qemu/error-report.h"
3 #include "qemu/option.h"
4 #include "qemu/config-file.h"
5 #include "hw/qdev.h"
6 #include "qapi/error.h"
8 static QemuOptsList qemu_drive_opts = {
9 .name = "drive",
10 .head = QTAILQ_HEAD_INITIALIZER(qemu_drive_opts.head),
11 .desc = {
13 .name = "bus",
14 .type = QEMU_OPT_NUMBER,
15 .help = "bus number",
16 },{
17 .name = "unit",
18 .type = QEMU_OPT_NUMBER,
19 .help = "unit number (i.e. lun for scsi)",
20 },{
21 .name = "if",
22 .type = QEMU_OPT_STRING,
23 .help = "interface (ide, scsi, sd, mtd, floppy, pflash, virtio)",
24 },{
25 .name = "index",
26 .type = QEMU_OPT_NUMBER,
27 .help = "index number",
28 },{
29 .name = "cyls",
30 .type = QEMU_OPT_NUMBER,
31 .help = "number of cylinders (ide disk geometry)",
32 },{
33 .name = "heads",
34 .type = QEMU_OPT_NUMBER,
35 .help = "number of heads (ide disk geometry)",
36 },{
37 .name = "secs",
38 .type = QEMU_OPT_NUMBER,
39 .help = "number of sectors (ide disk geometry)",
40 },{
41 .name = "trans",
42 .type = QEMU_OPT_STRING,
43 .help = "chs translation (auto, lba. none)",
44 },{
45 .name = "media",
46 .type = QEMU_OPT_STRING,
47 .help = "media type (disk, cdrom)",
48 },{
49 .name = "snapshot",
50 .type = QEMU_OPT_BOOL,
51 .help = "enable/disable snapshot mode",
52 },{
53 .name = "file",
54 .type = QEMU_OPT_STRING,
55 .help = "disk image",
56 },{
57 .name = "cache",
58 .type = QEMU_OPT_STRING,
59 .help = "host cache usage (none, writeback, writethrough, "
60 "directsync, unsafe)",
61 },{
62 .name = "aio",
63 .type = QEMU_OPT_STRING,
64 .help = "host AIO implementation (threads, native)",
65 },{
66 .name = "format",
67 .type = QEMU_OPT_STRING,
68 .help = "disk format (raw, qcow2, ...)",
69 },{
70 .name = "serial",
71 .type = QEMU_OPT_STRING,
72 .help = "disk serial number",
73 },{
74 .name = "rerror",
75 .type = QEMU_OPT_STRING,
76 .help = "read error action",
77 },{
78 .name = "werror",
79 .type = QEMU_OPT_STRING,
80 .help = "write error action",
81 },{
82 .name = "addr",
83 .type = QEMU_OPT_STRING,
84 .help = "pci address (virtio only)",
85 },{
86 .name = "readonly",
87 .type = QEMU_OPT_BOOL,
88 .help = "open drive file as read-only",
89 },{
90 .name = "iops",
91 .type = QEMU_OPT_NUMBER,
92 .help = "limit total I/O operations per second",
93 },{
94 .name = "iops_rd",
95 .type = QEMU_OPT_NUMBER,
96 .help = "limit read operations per second",
97 },{
98 .name = "iops_wr",
99 .type = QEMU_OPT_NUMBER,
100 .help = "limit write operations per second",
102 .name = "bps",
103 .type = QEMU_OPT_NUMBER,
104 .help = "limit total bytes per second",
106 .name = "bps_rd",
107 .type = QEMU_OPT_NUMBER,
108 .help = "limit read bytes per second",
110 .name = "bps_wr",
111 .type = QEMU_OPT_NUMBER,
112 .help = "limit write bytes per second",
114 .name = "copy-on-read",
115 .type = QEMU_OPT_BOOL,
116 .help = "copy read data from backing file into image file",
118 .name = "boot",
119 .type = QEMU_OPT_BOOL,
120 .help = "(deprecated, ignored)",
122 { /* end of list */ }
126 static QemuOptsList qemu_iscsi_opts = {
127 .name = "iscsi",
128 .head = QTAILQ_HEAD_INITIALIZER(qemu_iscsi_opts.head),
129 .desc = {
131 .name = "user",
132 .type = QEMU_OPT_STRING,
133 .help = "username for CHAP authentication to target",
135 .name = "password",
136 .type = QEMU_OPT_STRING,
137 .help = "password for CHAP authentication to target",
139 .name = "header-digest",
140 .type = QEMU_OPT_STRING,
141 .help = "HeaderDigest setting. "
142 "{CRC32C|CRC32C-NONE|NONE-CRC32C|NONE}",
144 .name = "initiator-name",
145 .type = QEMU_OPT_STRING,
146 .help = "Initiator iqn name to use when connecting",
148 { /* end of list */ }
152 static QemuOptsList qemu_chardev_opts = {
153 .name = "chardev",
154 .implied_opt_name = "backend",
155 .head = QTAILQ_HEAD_INITIALIZER(qemu_chardev_opts.head),
156 .desc = {
158 .name = "backend",
159 .type = QEMU_OPT_STRING,
161 .name = "path",
162 .type = QEMU_OPT_STRING,
164 .name = "host",
165 .type = QEMU_OPT_STRING,
167 .name = "port",
168 .type = QEMU_OPT_STRING,
170 .name = "localaddr",
171 .type = QEMU_OPT_STRING,
173 .name = "localport",
174 .type = QEMU_OPT_STRING,
176 .name = "to",
177 .type = QEMU_OPT_NUMBER,
179 .name = "ipv4",
180 .type = QEMU_OPT_BOOL,
182 .name = "ipv6",
183 .type = QEMU_OPT_BOOL,
185 .name = "wait",
186 .type = QEMU_OPT_BOOL,
188 .name = "server",
189 .type = QEMU_OPT_BOOL,
191 .name = "delay",
192 .type = QEMU_OPT_BOOL,
194 .name = "telnet",
195 .type = QEMU_OPT_BOOL,
197 .name = "width",
198 .type = QEMU_OPT_NUMBER,
200 .name = "height",
201 .type = QEMU_OPT_NUMBER,
203 .name = "cols",
204 .type = QEMU_OPT_NUMBER,
206 .name = "rows",
207 .type = QEMU_OPT_NUMBER,
209 .name = "mux",
210 .type = QEMU_OPT_BOOL,
212 .name = "signal",
213 .type = QEMU_OPT_BOOL,
215 .name = "name",
216 .type = QEMU_OPT_STRING,
218 .name = "debug",
219 .type = QEMU_OPT_NUMBER,
221 { /* end of list */ }
225 QemuOptsList qemu_fsdev_opts = {
226 .name = "fsdev",
227 .implied_opt_name = "fsdriver",
228 .head = QTAILQ_HEAD_INITIALIZER(qemu_fsdev_opts.head),
229 .desc = {
231 .name = "fsdriver",
232 .type = QEMU_OPT_STRING,
233 }, {
234 .name = "path",
235 .type = QEMU_OPT_STRING,
236 }, {
237 .name = "security_model",
238 .type = QEMU_OPT_STRING,
239 }, {
240 .name = "writeout",
241 .type = QEMU_OPT_STRING,
242 }, {
243 .name = "readonly",
244 .type = QEMU_OPT_BOOL,
246 }, {
247 .name = "socket",
248 .type = QEMU_OPT_STRING,
249 }, {
250 .name = "sock_fd",
251 .type = QEMU_OPT_NUMBER,
254 { /*End of list */ }
258 QemuOptsList qemu_virtfs_opts = {
259 .name = "virtfs",
260 .implied_opt_name = "fsdriver",
261 .head = QTAILQ_HEAD_INITIALIZER(qemu_virtfs_opts.head),
262 .desc = {
264 .name = "fsdriver",
265 .type = QEMU_OPT_STRING,
266 }, {
267 .name = "path",
268 .type = QEMU_OPT_STRING,
269 }, {
270 .name = "mount_tag",
271 .type = QEMU_OPT_STRING,
272 }, {
273 .name = "security_model",
274 .type = QEMU_OPT_STRING,
275 }, {
276 .name = "writeout",
277 .type = QEMU_OPT_STRING,
278 }, {
279 .name = "readonly",
280 .type = QEMU_OPT_BOOL,
281 }, {
282 .name = "socket",
283 .type = QEMU_OPT_STRING,
284 }, {
285 .name = "sock_fd",
286 .type = QEMU_OPT_NUMBER,
289 { /*End of list */ }
293 static QemuOptsList qemu_device_opts = {
294 .name = "device",
295 .implied_opt_name = "driver",
296 .head = QTAILQ_HEAD_INITIALIZER(qemu_device_opts.head),
297 .desc = {
299 * no elements => accept any
300 * sanity checking will happen later
301 * when setting device properties
303 { /* end of list */ }
307 static QemuOptsList qemu_netdev_opts = {
308 .name = "netdev",
309 .implied_opt_name = "type",
310 .head = QTAILQ_HEAD_INITIALIZER(qemu_netdev_opts.head),
311 .desc = {
313 * no elements => accept any params
314 * validation will happen later
316 { /* end of list */ }
320 static QemuOptsList qemu_net_opts = {
321 .name = "net",
322 .implied_opt_name = "type",
323 .head = QTAILQ_HEAD_INITIALIZER(qemu_net_opts.head),
324 .desc = {
326 * no elements => accept any params
327 * validation will happen later
329 { /* end of list */ }
333 static QemuOptsList qemu_rtc_opts = {
334 .name = "rtc",
335 .head = QTAILQ_HEAD_INITIALIZER(qemu_rtc_opts.head),
336 .desc = {
338 .name = "base",
339 .type = QEMU_OPT_STRING,
341 .name = "clock",
342 .type = QEMU_OPT_STRING,
344 .name = "driftfix",
345 .type = QEMU_OPT_STRING,
347 { /* end of list */ }
351 static QemuOptsList qemu_global_opts = {
352 .name = "global",
353 .head = QTAILQ_HEAD_INITIALIZER(qemu_global_opts.head),
354 .desc = {
356 .name = "driver",
357 .type = QEMU_OPT_STRING,
359 .name = "property",
360 .type = QEMU_OPT_STRING,
362 .name = "value",
363 .type = QEMU_OPT_STRING,
365 { /* end of list */ }
369 QemuOptsList qemu_sandbox_opts = {
370 .name = "sandbox",
371 .implied_opt_name = "enable",
372 .head = QTAILQ_HEAD_INITIALIZER(qemu_sandbox_opts.head),
373 .desc = {
375 .name = "enable",
376 .type = QEMU_OPT_BOOL,
378 { /* end of list */ }
382 static QemuOptsList qemu_mon_opts = {
383 .name = "mon",
384 .implied_opt_name = "chardev",
385 .head = QTAILQ_HEAD_INITIALIZER(qemu_mon_opts.head),
386 .desc = {
388 .name = "mode",
389 .type = QEMU_OPT_STRING,
391 .name = "chardev",
392 .type = QEMU_OPT_STRING,
394 .name = "default",
395 .type = QEMU_OPT_BOOL,
397 .name = "pretty",
398 .type = QEMU_OPT_BOOL,
400 { /* end of list */ }
404 static QemuOptsList qemu_trace_opts = {
405 .name = "trace",
406 .implied_opt_name = "trace",
407 .head = QTAILQ_HEAD_INITIALIZER(qemu_trace_opts.head),
408 .desc = {
410 .name = "events",
411 .type = QEMU_OPT_STRING,
413 .name = "file",
414 .type = QEMU_OPT_STRING,
416 { /* end of list */ }
420 QemuOptsList qemu_spice_opts = {
421 .name = "spice",
422 .head = QTAILQ_HEAD_INITIALIZER(qemu_spice_opts.head),
423 .desc = {
425 .name = "port",
426 .type = QEMU_OPT_NUMBER,
428 .name = "tls-port",
429 .type = QEMU_OPT_NUMBER,
431 .name = "addr",
432 .type = QEMU_OPT_STRING,
434 .name = "ipv4",
435 .type = QEMU_OPT_BOOL,
437 .name = "ipv6",
438 .type = QEMU_OPT_BOOL,
440 .name = "password",
441 .type = QEMU_OPT_STRING,
443 .name = "disable-ticketing",
444 .type = QEMU_OPT_BOOL,
446 .name = "disable-copy-paste",
447 .type = QEMU_OPT_BOOL,
449 .name = "sasl",
450 .type = QEMU_OPT_BOOL,
452 .name = "x509-dir",
453 .type = QEMU_OPT_STRING,
455 .name = "x509-key-file",
456 .type = QEMU_OPT_STRING,
458 .name = "x509-key-password",
459 .type = QEMU_OPT_STRING,
461 .name = "x509-cert-file",
462 .type = QEMU_OPT_STRING,
464 .name = "x509-cacert-file",
465 .type = QEMU_OPT_STRING,
467 .name = "x509-dh-key-file",
468 .type = QEMU_OPT_STRING,
470 .name = "tls-ciphers",
471 .type = QEMU_OPT_STRING,
473 .name = "tls-channel",
474 .type = QEMU_OPT_STRING,
476 .name = "plaintext-channel",
477 .type = QEMU_OPT_STRING,
479 .name = "image-compression",
480 .type = QEMU_OPT_STRING,
482 .name = "jpeg-wan-compression",
483 .type = QEMU_OPT_STRING,
485 .name = "zlib-glz-wan-compression",
486 .type = QEMU_OPT_STRING,
488 .name = "streaming-video",
489 .type = QEMU_OPT_STRING,
491 .name = "agent-mouse",
492 .type = QEMU_OPT_BOOL,
494 .name = "playback-compression",
495 .type = QEMU_OPT_BOOL,
496 }, {
497 .name = "seamless-migration",
498 .type = QEMU_OPT_BOOL,
500 { /* end of list */ }
504 QemuOptsList qemu_option_rom_opts = {
505 .name = "option-rom",
506 .implied_opt_name = "romfile",
507 .head = QTAILQ_HEAD_INITIALIZER(qemu_option_rom_opts.head),
508 .desc = {
510 .name = "bootindex",
511 .type = QEMU_OPT_NUMBER,
512 }, {
513 .name = "romfile",
514 .type = QEMU_OPT_STRING,
516 { /* end of list */ }
520 static QemuOptsList qemu_machine_opts = {
521 .name = "machine",
522 .implied_opt_name = "type",
523 .merge_lists = true,
524 .head = QTAILQ_HEAD_INITIALIZER(qemu_machine_opts.head),
525 .desc = {
527 .name = "type",
528 .type = QEMU_OPT_STRING,
529 .help = "emulated machine"
530 }, {
531 .name = "accel",
532 .type = QEMU_OPT_STRING,
533 .help = "accelerator list",
534 }, {
535 .name = "kernel_irqchip",
536 .type = QEMU_OPT_BOOL,
537 .help = "use KVM in-kernel irqchip",
538 }, {
539 .name = "kvm_shadow_mem",
540 .type = QEMU_OPT_SIZE,
541 .help = "KVM shadow MMU size",
542 }, {
543 .name = "kernel",
544 .type = QEMU_OPT_STRING,
545 .help = "Linux kernel image file",
546 }, {
547 .name = "initrd",
548 .type = QEMU_OPT_STRING,
549 .help = "Linux initial ramdisk file",
550 }, {
551 .name = "append",
552 .type = QEMU_OPT_STRING,
553 .help = "Linux kernel command line",
554 }, {
555 .name = "dtb",
556 .type = QEMU_OPT_STRING,
557 .help = "Linux kernel device tree file",
558 }, {
559 .name = "dumpdtb",
560 .type = QEMU_OPT_STRING,
561 .help = "Dump current dtb to a file and quit",
562 }, {
563 .name = "phandle_start",
564 .type = QEMU_OPT_STRING,
565 .help = "The first phandle ID we may generate dynamically",
566 }, {
567 .name = "dt_compatible",
568 .type = QEMU_OPT_STRING,
569 .help = "Overrides the \"compatible\" property of the dt root node",
570 }, {
571 .name = "dump-guest-core",
572 .type = QEMU_OPT_BOOL,
573 .help = "Include guest memory in a core dump",
574 }, {
575 .name = "mem-merge",
576 .type = QEMU_OPT_BOOL,
577 .help = "enable/disable memory merge support",
579 .name = "usb",
580 .type = QEMU_OPT_BOOL,
581 .help = "Set on/off to enable/disable usb",
582 }, {
583 .name = "nvram",
584 .type = QEMU_OPT_STRING,
585 .help = "Drive backing persistent NVRAM",
587 { /* End of list */ }
591 QemuOptsList qemu_boot_opts = {
592 .name = "boot-opts",
593 .head = QTAILQ_HEAD_INITIALIZER(qemu_boot_opts.head),
594 .desc = {
595 /* the three names below are not used now */
597 .name = "order",
598 .type = QEMU_OPT_STRING,
599 }, {
600 .name = "once",
601 .type = QEMU_OPT_STRING,
602 }, {
603 .name = "menu",
604 .type = QEMU_OPT_STRING,
605 /* following are really used */
606 }, {
607 .name = "splash",
608 .type = QEMU_OPT_STRING,
609 }, {
610 .name = "splash-time",
611 .type = QEMU_OPT_STRING,
612 }, {
613 .name = "reboot-timeout",
614 .type = QEMU_OPT_STRING,
616 { /*End of list */ }
620 static QemuOptsList qemu_add_fd_opts = {
621 .name = "add-fd",
622 .head = QTAILQ_HEAD_INITIALIZER(qemu_add_fd_opts.head),
623 .desc = {
625 .name = "fd",
626 .type = QEMU_OPT_NUMBER,
627 .help = "file descriptor of which a duplicate is added to fd set",
629 .name = "set",
630 .type = QEMU_OPT_NUMBER,
631 .help = "ID of the fd set to add fd to",
633 .name = "opaque",
634 .type = QEMU_OPT_STRING,
635 .help = "free-form string used to describe fd",
637 { /* end of list */ }
641 static QemuOptsList qemu_object_opts = {
642 .name = "object",
643 .implied_opt_name = "qom-type",
644 .head = QTAILQ_HEAD_INITIALIZER(qemu_object_opts.head),
645 .desc = {
650 static QemuOptsList *vm_config_groups[32] = {
651 &qemu_drive_opts,
652 &qemu_chardev_opts,
653 &qemu_device_opts,
654 &qemu_netdev_opts,
655 &qemu_net_opts,
656 &qemu_rtc_opts,
657 &qemu_global_opts,
658 &qemu_mon_opts,
659 &qemu_trace_opts,
660 &qemu_option_rom_opts,
661 &qemu_machine_opts,
662 &qemu_boot_opts,
663 &qemu_iscsi_opts,
664 &qemu_sandbox_opts,
665 &qemu_add_fd_opts,
666 &qemu_object_opts,
667 NULL,
670 static QemuOptsList *find_list(QemuOptsList **lists, const char *group,
671 Error **errp)
673 int i;
675 for (i = 0; lists[i] != NULL; i++) {
676 if (strcmp(lists[i]->name, group) == 0)
677 break;
679 if (lists[i] == NULL) {
680 error_set(errp, QERR_INVALID_OPTION_GROUP, group);
682 return lists[i];
685 QemuOptsList *qemu_find_opts(const char *group)
687 QemuOptsList *ret;
688 Error *local_err = NULL;
690 ret = find_list(vm_config_groups, group, &local_err);
691 if (error_is_set(&local_err)) {
692 error_report("%s\n", error_get_pretty(local_err));
693 error_free(local_err);
696 return ret;
699 QemuOptsList *qemu_find_opts_err(const char *group, Error **errp)
701 return find_list(vm_config_groups, group, errp);
704 void qemu_add_opts(QemuOptsList *list)
706 int entries, i;
708 entries = ARRAY_SIZE(vm_config_groups);
709 entries--; /* keep list NULL terminated */
710 for (i = 0; i < entries; i++) {
711 if (vm_config_groups[i] == NULL) {
712 vm_config_groups[i] = list;
713 return;
716 fprintf(stderr, "ran out of space in vm_config_groups");
717 abort();
720 int qemu_set_option(const char *str)
722 char group[64], id[64], arg[64];
723 QemuOptsList *list;
724 QemuOpts *opts;
725 int rc, offset;
727 rc = sscanf(str, "%63[^.].%63[^.].%63[^=]%n", group, id, arg, &offset);
728 if (rc < 3 || str[offset] != '=') {
729 error_report("can't parse: \"%s\"", str);
730 return -1;
733 list = qemu_find_opts(group);
734 if (list == NULL) {
735 return -1;
738 opts = qemu_opts_find(list, id);
739 if (!opts) {
740 error_report("there is no %s \"%s\" defined",
741 list->name, id);
742 return -1;
745 if (qemu_opt_set(opts, arg, str+offset+1) == -1) {
746 return -1;
748 return 0;
751 int qemu_global_option(const char *str)
753 char driver[64], property[64];
754 QemuOpts *opts;
755 int rc, offset;
757 rc = sscanf(str, "%63[^.].%63[^=]%n", driver, property, &offset);
758 if (rc < 2 || str[offset] != '=') {
759 error_report("can't parse: \"%s\"", str);
760 return -1;
763 opts = qemu_opts_create_nofail(&qemu_global_opts);
764 qemu_opt_set(opts, "driver", driver);
765 qemu_opt_set(opts, "property", property);
766 qemu_opt_set(opts, "value", str+offset+1);
767 return 0;
770 struct ConfigWriteData {
771 QemuOptsList *list;
772 FILE *fp;
775 static int config_write_opt(const char *name, const char *value, void *opaque)
777 struct ConfigWriteData *data = opaque;
779 fprintf(data->fp, " %s = \"%s\"\n", name, value);
780 return 0;
783 static int config_write_opts(QemuOpts *opts, void *opaque)
785 struct ConfigWriteData *data = opaque;
786 const char *id = qemu_opts_id(opts);
788 if (id) {
789 fprintf(data->fp, "[%s \"%s\"]\n", data->list->name, id);
790 } else {
791 fprintf(data->fp, "[%s]\n", data->list->name);
793 qemu_opt_foreach(opts, config_write_opt, data, 0);
794 fprintf(data->fp, "\n");
795 return 0;
798 void qemu_config_write(FILE *fp)
800 struct ConfigWriteData data = { .fp = fp };
801 QemuOptsList **lists = vm_config_groups;
802 int i;
804 fprintf(fp, "# qemu config file\n\n");
805 for (i = 0; lists[i] != NULL; i++) {
806 data.list = lists[i];
807 qemu_opts_foreach(data.list, config_write_opts, &data, 0);
811 int qemu_config_parse(FILE *fp, QemuOptsList **lists, const char *fname)
813 char line[1024], group[64], id[64], arg[64], value[1024];
814 Location loc;
815 QemuOptsList *list = NULL;
816 Error *local_err = NULL;
817 QemuOpts *opts = NULL;
818 int res = -1, lno = 0;
820 loc_push_none(&loc);
821 while (fgets(line, sizeof(line), fp) != NULL) {
822 loc_set_file(fname, ++lno);
823 if (line[0] == '\n') {
824 /* skip empty lines */
825 continue;
827 if (line[0] == '#') {
828 /* comment */
829 continue;
831 if (sscanf(line, "[%63s \"%63[^\"]\"]", group, id) == 2) {
832 /* group with id */
833 list = find_list(lists, group, &local_err);
834 if (error_is_set(&local_err)) {
835 error_report("%s\n", error_get_pretty(local_err));
836 error_free(local_err);
837 goto out;
839 opts = qemu_opts_create(list, id, 1, NULL);
840 continue;
842 if (sscanf(line, "[%63[^]]]", group) == 1) {
843 /* group without id */
844 list = find_list(lists, group, &local_err);
845 if (error_is_set(&local_err)) {
846 error_report("%s\n", error_get_pretty(local_err));
847 error_free(local_err);
848 goto out;
850 opts = qemu_opts_create_nofail(list);
851 continue;
853 if (sscanf(line, " %63s = \"%1023[^\"]\"", arg, value) == 2) {
854 /* arg = value */
855 if (opts == NULL) {
856 error_report("no group defined");
857 goto out;
859 if (qemu_opt_set(opts, arg, value) != 0) {
860 goto out;
862 continue;
864 error_report("parse error");
865 goto out;
867 if (ferror(fp)) {
868 error_report("error reading file");
869 goto out;
871 res = 0;
872 out:
873 loc_pop(&loc);
874 return res;
877 int qemu_read_config_file(const char *filename)
879 FILE *f = fopen(filename, "r");
880 int ret;
882 if (f == NULL) {
883 return -errno;
886 ret = qemu_config_parse(f, vm_config_groups, filename);
887 fclose(f);
889 if (ret == 0) {
890 return 0;
891 } else {
892 return -EINVAL;