[Libguestfs] [PATCH 1/6] p2v: move kernel config to perl script
Pino Toscano
ptoscano at redhat.com
Mon Jul 1 16:51:17 UTC 2019
Instead of generating the p2v kernel config using the OCaml generator,
create a Perl script to do this job, mostly at build time. This is done
to rely less on the generator for p2v, and because the generation of
these sources is quick enough that it can be done at build time (instead
of shipping the generated sources in dist tarballs).
The generate-p2v-config.pl mimics what generator/p2v_config.ml --
namings, and general structure are kept close to that for comparison.
The two C sources are created at build time by the script; however, the
p2v-config.h header is generated at configure time: this is done because
p2v-config.h is included by p2v.h (another header), which in turn is
included by all the p2v C sources -- automake is not able to properly
resolve the dependency, and thus it would not be generated properly.
---
configure.ac | 5 +
docs/C_SOURCE_FILES | 3 -
generator/main.ml | 6 -
p2v/Makefile.am | 16 +-
p2v/generate-p2v-config.pl | 649 +++++++++++++++++++++++++++++++++++++
5 files changed, 665 insertions(+), 14 deletions(-)
create mode 100755 p2v/generate-p2v-config.pl
diff --git a/configure.ac b/configure.ac
index 6b701bef2..46bb7684a 100644
--- a/configure.ac
+++ b/configure.ac
@@ -376,6 +376,11 @@ AC_CONFIG_FILES([Makefile
v2v/test-harness/Makefile
v2v/test-harness/META
website/index.html])
+
+if test "x$HAVE_P2V_TRUE" = "x"; then
+ AC_CONFIG_COMMANDS([p2v/p2v-config.h], [${ac_srcdir}/p2v/generate-p2v-config.pl --file=p2v-config.h --output=p2v/p2v-config.h])
+fi
+
AC_OUTPUT
dnl Produce summary.
diff --git a/docs/C_SOURCE_FILES b/docs/C_SOURCE_FILES
index 519acedd5..20a38162c 100644
--- a/docs/C_SOURCE_FILES
+++ b/docs/C_SOURCE_FILES
@@ -356,7 +356,6 @@ ocaml/guestfs-c-errnos.c
ocaml/guestfs-c.c
ocaml/guestfs-c.h
p2v/about-authors.c
-p2v/config.c
p2v/conversion.c
p2v/cpuid.c
p2v/gui-gtk2-compat.h
@@ -364,11 +363,9 @@ p2v/gui-gtk3-compat.h
p2v/gui.c
p2v/inhibit.c
p2v/kernel-cmdline.c
-p2v/kernel-config.c
p2v/kernel.c
p2v/main.c
p2v/nbd.c
-p2v/p2v-config.h
p2v/p2v.h
p2v/physical-xml.c
p2v/rtc.c
diff --git a/generator/main.ml b/generator/main.ml
index 7974550c5..e5edc42e7 100644
--- a/generator/main.ml
+++ b/generator/main.ml
@@ -363,12 +363,6 @@ Run it from the top source directory using the command
output_to "customize/customize-options.pod"
Customize.generate_customize_options_pod;
- output_to "p2v/p2v-config.h"
- P2v_config.generate_p2v_config_h;
- output_to "p2v/config.c"
- P2v_config.generate_p2v_config_c;
- output_to "p2v/kernel-config.c"
- P2v_config.generate_p2v_kernel_config_c;
output_to "p2v/virt-p2v-kernel-config.pod"
P2v_config.generate_p2v_kernel_config_pod;
diff --git a/p2v/Makefile.am b/p2v/Makefile.am
index 92e2c5050..972cf22f5 100644
--- a/p2v/Makefile.am
+++ b/p2v/Makefile.am
@@ -19,9 +19,6 @@ include $(top_srcdir)/subdir-rules.mk
generator_built = \
about-authors.c \
- config.c \
- kernel-config.c \
- p2v-config.h \
virt-p2v-kernel-config.pod
BUILT_SOURCES = \
@@ -53,6 +50,7 @@ EXTRA_DIST = \
# consume system entropy to regenerate.
CLEANFILES += \
$(dependencies_files) \
+ $(generated_sources) \
stamp-test-virt-p2v-pxe-data-files \
stamp-test-virt-p2v-pxe-kernel \
test-virt-p2v-pxe.authorized_keys \
@@ -82,7 +80,6 @@ noinst_PROGRAMS = virt-p2v
virt_p2v_SOURCES = \
about-authors.c \
- config.c \
conversion.c \
cpuid.c \
gui.c \
@@ -91,7 +88,6 @@ virt_p2v_SOURCES = \
inhibit.c \
kernel.c \
kernel-cmdline.c \
- kernel-config.c \
main.c \
nbd.c \
p2v.h \
@@ -102,6 +98,13 @@ virt_p2v_SOURCES = \
utils.c \
whole-file.c
+generated_sources = \
+ config.c \
+ kernel-config.c
+
+nodist_virt_p2v_SOURCES = \
+ $(generated_sources)
+
virt_p2v_CPPFLAGS = \
-DLOCALEBASEDIR=\""$(datadir)/locale"\" \
-I$(top_srcdir)/common/utils -I$(top_builddir)/common/utils \
@@ -127,6 +130,9 @@ virt_p2v_LDADD = \
../gnulib/lib/libgnu.la \
-lm
+$(generated_sources): $(srcdir)/generate-p2v-config.pl
+ $(AM_V_GEN)rm -f $@ $@-t && $(PERL) $(<) --file=$@ --output=$@-t && mv $@-t $@
+
# Scripts to build the disk image, USB key, or kickstart.
bin_SCRIPTS = virt-p2v-make-disk virt-p2v-make-kickstart virt-p2v-make-kiwi
diff --git a/p2v/generate-p2v-config.pl b/p2v/generate-p2v-config.pl
new file mode 100755
index 000000000..dc36abbda
--- /dev/null
+++ b/p2v/generate-p2v-config.pl
@@ -0,0 +1,649 @@
+#!/usr/bin/env perl
+# Copyright (C) 2019 Red Hat Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+use strict;
+use warnings;
+
+use Class::Struct;
+use Getopt::Long;
+use List::Util qw(any);
+
+struct ConfigSection =>
+{
+ name => '$',
+ elements => '@',
+};
+
+struct ConfigString =>
+{
+ name => '$',
+};
+
+struct ConfigInt =>
+{
+ name => '$',
+ value => '$',
+};
+
+struct ConfigBool =>
+{
+ name => '$',
+};
+
+struct ConfigUInt64 =>
+{
+ name => '$',
+};
+
+struct ConfigUnsigned =>
+{
+ name => '$',
+};
+
+struct ConfigEnum =>
+{
+ name => '$',
+ enum => '$',
+};
+
+struct ConfigStringList =>
+{
+ name => '$',
+};
+
+# Enums.
+my @enums = (
+ ["basis", (
+ ["BASIS_UNKNOWN", "unknown", "RTC could not be read"],
+ ["BASIS_UTC", "utc", "RTC is either UTC or an offset from UTC"],
+ ["BASIS_LOCALTIME", "localtime", "RTC is localtime"],
+ )],
+ ["output_allocation", (
+ ["OUTPUT_ALLOCATION_NONE", "none", "output allocation not set"],
+ ["OUTPUT_ALLOCATION_SPARSE", "sparse", "sparse"],
+ ["OUTPUT_ALLOCATION_PREALLOCATED", "preallocated", "preallocated"],
+ )],
+);
+
+# Configuration fields.
+my @fields = [
+ ConfigSection->new(
+ name => 'remote',
+ elements => [
+ ConfigString->new(name => 'server'),
+ ConfigInt->new(name => 'port', value => 22),
+ ],
+ ),
+ ConfigSection->new(
+ name => 'auth',
+ elements => [
+ ConfigString->new(name => 'username'),
+ ConfigString->new(name => 'password'),
+ ConfigSection->new(
+ name => 'identity',
+ elements => [
+ ConfigString->new(name => 'url'),
+ ConfigString->new(name => 'file'),
+ ConfigBool->new(name => 'file_needs_update'),
+ ],
+ ),
+ ConfigBool->new(name => 'sudo'),
+ ],
+ ),
+ ConfigString->new(name => 'guestname'),
+ ConfigInt->new(name => 'vcpus', value => 0),
+ ConfigUInt64->new(name => 'memory'),
+ ConfigSection->new(
+ name => 'cpu',
+ elements => [
+ ConfigString->new(name => 'vendor'),
+ ConfigString->new(name => 'model'),
+ ConfigUnsigned->new(name => 'sockets'),
+ ConfigUnsigned->new(name => 'cores'),
+ ConfigUnsigned->new(name => 'threads'),
+ ConfigBool->new(name => 'acpi'),
+ ConfigBool->new(name => 'apic'),
+ ConfigBool->new(name => 'pae'),
+ ],
+ ),
+ ConfigSection->new(
+ name => 'rtc',
+ elements => [
+ ConfigEnum->new(name => 'basis', enum => 'basis'),
+ ConfigInt->new(name => 'offset', value => 0),
+ ],
+ ),
+ ConfigStringList->new(name => 'disks'),
+ ConfigStringList->new(name => 'removable'),
+ ConfigStringList->new(name => 'interfaces'),
+ ConfigStringList->new(name => 'network_map'),
+ ConfigSection->new(
+ name => 'output',
+ elements => [
+ ConfigString->new(name => 'type'),
+ ConfigEnum->new(name => 'allocation', enum => 'output_allocation'),
+ ConfigString->new(name => 'connection'),
+ ConfigString->new(name => 'format'),
+ ConfigString->new(name => 'storage'),
+ ],
+ ),
+];
+
+# Some /proc/cmdline p2v.* options were renamed when we introduced
+# the generator. This map creates backwards compatibility mappings
+# for these.
+my @cmdline_aliases = (
+ ["p2v.remote.server", "p2v.server"],
+ ["p2v.remote.port", "p2v.port"],
+ ["p2v.auth.username", "p2v.username"],
+ ["p2v.auth.password", "p2v.password"],
+ ["p2v.auth.identity.url", "p2v.identity"],
+ ["p2v.auth.sudo", "p2v.sudo"],
+ ["p2v.guestname", "p2v.name"],
+ ["p2v.network_map", "p2v.network"],
+ ["p2v.output.type", "p2v.o"],
+ ["p2v.output.allocation", "p2v.oa"],
+ ["p2v.output.connection", "p2v.oc"],
+ ["p2v.output.format", "p2v.of"],
+ ["p2v.output.storage", "p2v.os"],
+);
+
+# Some config entries are not exposed on the kernel command line.
+my @cmdline_ignore = (
+ "p2v.auth.identity.file",
+ "p2v.auth.identity.file_needs_update",
+);
+
+# Clean up the program name.
+my $progname = $0;
+$progname =~ s{.*/}{};
+
+my $filename;
+my $output;
+
+GetOptions(
+ 'file=s' => \$filename,
+ 'output=s' => \$output,
+ 'help' => sub { pod2usage(1); },
+) or pod2usage(2);
+die "$progname: Option --file not specified.\n" unless $filename;
+# die "$progname: Option --output not specified.\n" unless $output;
+
+sub print_generated_header {
+ my $fh = shift;
+ print $fh <<"EOF";
+/* libguestfs generated file
+ * WARNING: THIS FILE IS GENERATED FROM THE FOLLOWING FILES:
+ * $filename
+ * ANY CHANGES YOU MAKE TO THIS FILE WILL BE LOST.
+ */
+
+EOF
+}
+
+sub generate_config_struct {
+ my ($fh, $name, $fields) = @_;
+ # If there are any ConfigSection (sub-structs) in any of the
+ # fields then output those first.
+ foreach my $field (@$fields) {
+ if (ref($field) eq 'ConfigSection') {
+ generate_config_struct($fh, $field->name . "_config", $field->elements);
+ }
+ }
+
+ # Now generate this struct.
+ print $fh "struct $name {\n";
+ foreach my $field (@$fields) {
+ my $type = ref($field);
+ if ($type eq 'ConfigSection') {
+ printf $fh " struct %s_config %s;\n", $field->name, $field->name;
+ } elsif ($type eq 'ConfigString') {
+ printf $fh " char *%s;\n", $field->name;
+ } elsif ($type eq 'ConfigInt') {
+ printf $fh " int %s;\n", $field->name;
+ } elsif ($type eq 'ConfigBool') {
+ printf $fh " bool %s;\n", $field->name;
+ } elsif ($type eq 'ConfigUInt64') {
+ printf $fh " uint64_t %s;\n", $field->name;
+ } elsif ($type eq 'ConfigUnsigned') {
+ printf $fh " unsigned %s;\n", $field->name;
+ } elsif ($type eq 'ConfigEnum') {
+ printf $fh " enum %s %s;\n", $field->enum, $field->name;
+ } elsif ($type eq 'ConfigStringList') {
+ printf $fh " char **%s;\n", $field->name;
+ }
+ }
+ print $fh "};\n";
+ print $fh "\n"
+}
+
+sub generate_p2v_config_h {
+ my $fh = shift;
+ print_generated_header($fh);
+ print $fh <<"EOF";
+#ifndef GUESTFS_P2V_CONFIG_H
+#define GUESTFS_P2V_CONFIG_H
+
+#include <stdbool.h>
+#include <stdint.h>
+
+EOF
+
+ # Generate enums.
+ foreach my $enum (@enums) {
+ my $name = shift @$enum;
+ print $fh "enum $name {\n";
+ foreach my $items (@$enum) {
+ my ($n, $foo, $comment) = @$items;
+ printf $fh " %-25s /* %s */\n", ($n . ","), $comment;
+ }
+ print $fh "};\n";
+ print $fh "\n"
+ }
+
+ # Generate struct config.
+ generate_config_struct($fh, "config", @fields);
+
+ print $fh <<'EOF';
+extern struct config *new_config (void);
+extern struct config *copy_config (struct config *);
+extern void free_config (struct config *);
+extern void print_config (struct config *, FILE *);
+
+#endif /* GUESTFS_P2V_CONFIG_H */
+EOF
+}
+
+sub generate_field_initialization {
+ my ($fh, $v, $fields) = @_;
+ foreach my $field (@$fields) {
+ my $type = ref($field);
+ if ($type eq 'ConfigSection') {
+ my $lv = $v . $field->name . '.';
+ generate_field_initialization($fh, $lv, $field->elements);
+ } elsif ($type eq 'ConfigInt') {
+ if ($field->value > 0) {
+ printf $fh " %s%s = %d;\n", $v, $field->name, $field->value;
+ }
+ }
+ }
+}
+
+sub generate_field_copy {
+ my ($fh, $v, $fields) = @_;
+ foreach my $field (@$fields) {
+ my $type = ref($field);
+ if ($type eq 'ConfigSection') {
+ my $lv = $v . $field->name . '.';
+ generate_field_copy($fh, $lv, $field->elements);
+ } elsif ($type eq 'ConfigString') {
+ printf $fh " if (%s%s) {\n", $v, $field->name;
+ printf $fh " %s%s = strdup (%s%s);\n", $v, $field->name, $v, $field->name;
+ printf $fh " if (%s%s == NULL)\n", $v, $field->name;
+ printf $fh " error (EXIT_FAILURE, errno, \"strdup: %%s\", \"%s\");\n", $field->name;
+ printf $fh " }\n";
+ } elsif ($type eq 'ConfigStringList') {
+ printf $fh " if (%s%s) {\n", $v, $field->name;
+ printf $fh " %s%s = guestfs_int_copy_string_list (%s%s);\n", $v, $field->name, $v, $field->name;
+ printf $fh " if (%s%s == NULL)\n", $v, $field->name;
+ printf $fh " error (EXIT_FAILURE, errno, \"copy string list: %%s\", \"%s\");\n", $field->name;
+ printf $fh " }\n";
+ }
+ }
+}
+
+sub generate_field_free {
+ my ($fh, $v, $fields) = @_;
+ foreach my $field (@$fields) {
+ my $type = ref($field);
+ if ($type eq 'ConfigSection') {
+ my $lv = $v . $field->name . '.';
+ generate_field_free($fh, $lv, $field->elements);
+ } elsif ($type eq 'ConfigString') {
+ printf $fh " free (%s%s);\n", $v, $field->name;
+ } elsif ($type eq 'ConfigStringList') {
+ printf $fh " guestfs_int_free_string_list (%s%s);\n", $v, $field->name;
+ }
+ }
+}
+
+sub generate_field_print {
+ my ($fh, $prefix, $v, $fields) = @_;
+ foreach my $field (@$fields) {
+ my $type = ref($field);
+ my $printable_name = defined($prefix)
+ ? $prefix . '.' . $field->name
+ : $field->name;
+ if ($type eq 'ConfigSection') {
+ my $lv = $v . $field->name . '.';
+ generate_field_print($fh, $printable_name, $lv, $field->elements);
+ } elsif ($type eq 'ConfigString') {
+ print $fh " fprintf (fp, \"%-20s %s\\n\",\n";
+ printf $fh " \"%s\", %s%s ? %s%s : \"(none)\");\n",
+ $printable_name, $v, $field->name, $v, $field->name;
+ } elsif ($type eq 'ConfigInt') {
+ print $fh " fprintf (fp, \"%-20s %d\\n\",\n";
+ printf $fh " \"%s\", %s%s);\n", $printable_name, $v, $field->name;
+ } elsif ($type eq 'ConfigBool') {
+ print $fh " fprintf (fp, \"%-20s %s\\n\",\n";
+ printf $fh " \"%s\", %s%s ? \"true\" : \"false\");\n",
+ $printable_name, $v, $field->name;
+ } elsif ($type eq 'ConfigUInt64') {
+ print $fh " fprintf (fp, \"%-20s %\" PRIu64 \"\\n\",\n";
+ printf $fh " \"%s\", %s%s);\n", $printable_name, $v, $field->name;
+ } elsif ($type eq 'ConfigUnsigned') {
+ print $fh " fprintf (fp, \"%-20s %u\\n\",\n";
+ printf $fh " \"%s\", %s%s);\n", $printable_name, $v, $field->name;
+ } elsif ($type eq 'ConfigEnum') {
+ printf $fh " fprintf (fp, \"%%-20s \", \"%s\");\n", $printable_name;
+ printf $fh " print_%s (%s%s, fp);\n", $field->enum, $v, $field->name;
+ print $fh " fprintf (fp, \"\\n\");\n";
+ } elsif ($type eq 'ConfigStringList') {
+ printf $fh " fprintf (fp, \"%%-20s\", \"%s\");\n", $printable_name;
+ printf $fh " if (%s%s) {\n", $v, $field->name;
+ printf $fh " for (i = 0; %s%s[i] != NULL; ++i)\n", $v, $field->name;
+ printf $fh " fprintf (fp, \" %%s\", %s%s[i]);\n", $v, $field->name;
+ print $fh " }\n";
+ print $fh " else\n";
+ print $fh " fprintf (fp, \" (none)\\n\");\n";
+ print $fh " fprintf (fp, \"\\n\");\n";
+ }
+ }
+}
+
+sub generate_p2v_config_c {
+ my $fh = shift;
+ print_generated_header($fh);
+ print $fh <<"EOF";
+#include <config.h>
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <stdint.h>
+#include <stdbool.h>
+#include <inttypes.h>
+#include <errno.h>
+#include <error.h>
+
+#include "p2v.h"
+#include "p2v-config.h"
+
+/**
+ * Allocate a new config struct.
+ */
+struct config *
+new_config (void)
+{
+ struct config *c;
+
+ c = calloc (1, sizeof *c);
+ if (c == NULL)
+ error (EXIT_FAILURE, errno, "calloc");
+
+EOF
+
+ generate_field_initialization($fh, "c->", @fields);
+
+ print $fh <<"EOF";
+
+ return c;
+}
+
+/**
+ * Copy a config struct.
+ */
+struct config *
+copy_config (struct config *old)
+{
+ struct config *c = new_config ();
+
+ memcpy (c, old, sizeof *c);
+
+ /* Need to deep copy strings and string lists. */
+EOF
+
+ generate_field_copy($fh, "c->", @fields);
+
+ print $fh <<"EOF";
+
+ return c;
+}
+
+/**
+ * Free a config struct.
+ */
+void
+free_config (struct config *c)
+{
+ if (c == NULL)
+ return;
+
+EOF
+
+ generate_field_free($fh, "c->", @fields);
+
+ print $fh <<"EOF";
+}
+
+EOF
+
+ foreach my $enum (@enums) {
+ my $name = shift @$enum;
+ print $fh "static void\n";
+ printf $fh "print_%s (enum %s v, FILE *fp)\n", $name, $name;
+ print $fh "{\n";
+ printf $fh " switch (v) {\n";
+ foreach my $items (@$enum) {
+ my ($n, $cmdline, $foo) = @$items;
+ printf $fh " case %s:\n", $n;
+ printf $fh " fprintf (fp, \"%s\");\n", $cmdline;
+ print $fh " break;\n";
+ }
+ print $fh " }\n";
+ print $fh "}\n";
+ print $fh "\n"
+ }
+
+ print $fh <<"EOF";
+/**
+ * Print the conversion parameters and other important information.
+ */
+void
+print_config (struct config *c, FILE *fp)
+{
+ size_t i;
+
+ fprintf (fp, \"%-20s %s\\n\", \"local version\", PACKAGE_VERSION_FULL);
+ fprintf (fp, \"%-20s %s\\n\", \"remote version\",
+ v2v_version ? v2v_version : \"unknown\");
+EOF
+
+ generate_field_print($fh, undef, "c->", @fields);
+
+ print $fh <<"EOF";
+}
+EOF
+}
+
+sub find_alias {
+ my $name = shift;
+ foreach my $alias (@cmdline_aliases) {
+ if ($name eq @$alias[0]) {
+ return @$alias[1];
+ }
+ }
+ return;
+}
+
+sub find_enum {
+ my $name = shift;
+ foreach my $enum (@enums) {
+ my $n = shift @$enum;
+ if ($n eq $name) {
+ return @$enum;
+ }
+ }
+ return;
+}
+
+sub generate_field_config {
+ my ($fh, $prefix, $v, $fields) = @_;
+
+ foreach my $field (@$fields) {
+ my $type = ref($field);
+ if ($type eq 'ConfigSection') {
+ my $lprefix = $prefix . '.' . $field->name;
+ my $lv = $v . $field->name . '.';
+ generate_field_config($fh, $lprefix, $lv, $field->elements);
+ } else {
+ my $key = $prefix . '.' . $field->name;
+
+ if (not (any { $_ eq $key } @cmdline_ignore)) {
+ # Is there an alias for this field?
+ my $alias = find_alias($key);
+
+ printf $fh " if ((p = get_cmdline_key (cmdline, \"%s\")) != NULL", $key;
+ if (defined($alias)) {
+ print $fh " ||\n";
+ printf $fh " (p = get_cmdline_key (cmdline, \"%s\")) != NULL", $alias;
+ }
+ print $fh ") {\n";
+
+ # Parse the field.
+ if ($type eq 'ConfigString') {
+ printf $fh " free (%s%s);\n", $v, $field->name;
+ printf $fh " %s%s = strdup (p);\n", $v, $field->name;
+ printf $fh " if (%s%s == NULL)\n", $v, $field->name;
+ print $fh " error (EXIT_FAILURE, errno, \"strdup\");\n";
+ } elsif ($type eq 'ConfigInt') {
+ printf $fh " if (sscanf (p, \"%%d\", &%s%s) != 1)\n", $v, $field->name;
+ print $fh " error (EXIT_FAILURE, errno,\n";
+ print $fh " \"cannot parse %s=%s from the kernel command line\",\n";
+ printf $fh " \"%s\", p);\n", $key;
+ } elsif ($type eq 'ConfigBool') {
+ printf $fh " %s%s = guestfs_int_is_true (p) || STREQ (p, \"\");\n", $v, $field->name;
+ } elsif ($type eq 'ConfigUInt64') {
+ print $fh " xerr = xstrtoull (p, NULL, 0, &ull, \"0kKMGTPEZY\");\n";
+ print $fh " if (xerr != LONGINT_OK)\n";
+ print $fh " error (EXIT_FAILURE, 0,\n";
+ print $fh " \"cannot parse %s=%s from the kernel command line\",\n";
+ printf $fh " \"%s\", p);\n", $key;
+ printf $fh " %s%s = ull;\n", $v, $field->name;
+ } elsif ($type eq 'ConfigUnsigned') {
+ printf $fh " if (sscanf (p, \"%%u\", &%s%s) != 1)\n", $v, $field->name;
+ print $fh " error (EXIT_FAILURE, errno,\n";
+ print $fh " \"cannot parse %s=%s from the kernel command line\",\n";
+ printf $fh " \"%s\", p);\n", $key;
+ } elsif ($type eq 'ConfigEnum') {
+ my @enum_choices = find_enum($field->enum) or die "cannot find ConfigEnum $field->enum";
+ printf $fh " ";
+ foreach my $items (@enum_choices) {
+ my ($n, $cmdline, $foo) = @$items;
+ printf $fh "if (STREQ (p, \"%s\"))\n", $cmdline;
+ printf $fh " %s%s = %s;\n", $v, $field->name, $n;
+ print $fh " else ";
+ }
+ print $fh "{\n";
+ print $fh " error (EXIT_FAILURE, 0,\n";
+ print $fh " \"invalid value %s=%s from the kernel command line\",\n";
+ printf $fh " \"%s\", p);\n", $key;
+ print $fh " }\n";
+ } elsif ($type eq 'ConfigStringList') {
+ printf $fh " guestfs_int_free_string_list (%s%s);\n", $v, $field->name;
+ printf $fh " %s%s = guestfs_int_split_string (',', p);\n", $v, $field->name;
+ printf $fh " if (%s%s == NULL)\n", $v, $field->name;
+ print $fh " error (EXIT_FAILURE, errno, \"strdup\");\n";
+ }
+
+ print $fh " }\n";
+ print $fh "\n";
+ }
+ }
+ }
+}
+
+sub generate_p2v_kernel_config_c {
+ my $fh = shift;
+ print_generated_header($fh);
+ print $fh <<"EOF";
+#include <config.h>
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <inttypes.h>
+#include <unistd.h>
+#include <errno.h>
+#include <error.h>
+
+#include "xstrtol.h"
+
+#include "p2v.h"
+#include "p2v-config.h"
+
+/**
+ * Read the kernel command line and parse out any C<p2v.*> fields that
+ * we understand into the config struct.
+ */
+void
+update_config_from_kernel_cmdline (struct config *c, char **cmdline)
+{
+ const char *p;
+ strtol_error xerr;
+ unsigned long long ull;
+
+EOF
+
+ generate_field_config($fh, "p2v", "c->", @fields);
+
+ print $fh <<"EOF";
+ if (c->auth.identity.url != NULL)
+ c->auth.identity.file_needs_update = 1;
+
+ /* Undocumented command line parameter used for testing command line
+ * parsing.
+ */
+ p = get_cmdline_key (cmdline, "p2v.dump_config_and_exit");
+ if (p) {
+ print_config (c, stdout);
+ exit (EXIT_SUCCESS);
+ }
+}
+EOF
+}
+
+sub write_to {
+ my $fn = shift;
+ if (defined($output)) {
+ open(my $fh, '>', $output) or die "Could not open file '$output': $!";
+ $fn->($fh, @_);
+ close($fh);
+ } else {
+ $fn->(*STDOUT, @_);
+ }
+}
+
+if ($filename eq 'config.c') {
+ write_to(\&generate_p2v_config_c);
+} elsif ($filename eq 'kernel-config.c') {
+ write_to(\&generate_p2v_kernel_config_c);
+} elsif ($filename eq 'p2v-config.h') {
+ write_to(\&generate_p2v_config_h);
+} else {
+ die "$progname: unrecognized output file '$filename'\n";
+}
--
2.21.0
More information about the Libguestfs
mailing list