[pve-qemu.git] / debian / parse-machines.pl

#!/usr/bin/perl

use warnings;
use strict;

use JSON;

my $machines = [];

while (<STDIN>) {
    if (/^\s*Supported machines are:/) {
	next;
    }

    s/^\s+//;
    my @machine = split(/\s+/);
    next if $machine[0] !~ m/^pc-(i440fx|q35)-(.+)$/;
    push @$machines, {
        'id' => $machine[0],
        'type' => $1,
        'version' => $2,
    };
}

die "no QEMU machine types detected from STDIN input" if scalar (@$machines) <= 0;

print to_json($machines, { utf8 => 1, canonical => 1 })
    or die "failed to encode detected machines as JSON - $!\n";
Commit	Line	Data
a6ede898 SR	1	#!/usr/bin/perl
	2
	3	use warnings;
	4	use strict;
	5
6503e6e0 TL	6	use JSON;
	7
	8	my $machines = [];
a6ede898 SR	9
	10	while (<STDIN>) {
	11	if (/^\s*Supported machines are:/) {
	12	next;
	13	}
	14
	15	s/^\s+//;
	16	my @machine = split(/\s+/);
6503e6e0 TL	17	next if $machine[0] !~ m/^pc-(i440fx\|q35)-(.+)$/;
	18	push @$machines, {
	19	'id' => $machine[0],
	20	'type' => $1,
	21	'version' => $2,
	22	};
a6ede898 SR	23	}
a6ede898 SR	24
6503e6e0	25	die "no QEMU machine types detected from STDIN input" if scalar (@$machines) <= 0;
a6ede898	26
590adba8 TL	27	print to_json($machines, { utf8 => 1, canonical => 1 })
590adba8 TL	28	or die "failed to encode detected machines as JSON - $!\n";