descriptor-bios.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#!/usr/bin/perl
use strict;
use warnings;
use JSON;

my $desc = shift;
my $file = shift;
die "arguments missing" unless defined($desc) and defined($file);

my $json = JSON->new->allow_nonref;
my $info;
my $x86;
my $x64;

$x86->{'architecture'} = 'i386';
$x86->{'machines'} = [ 'pc-i440fx-*', 'pc-q35-*' ];
$x64->{'architecture'} = 'x86_64';
$x64->{'machines'} = [ 'pc-i440fx-*', 'pc-q35-*' ];

$info->{'description'}           = $desc;
$info->{'interface-types'}       = [ 'bios' ];
$info->{'mapping'}->{'device'}   = 'memory';
$info->{'mapping'}->{'filename'} = $file;
$info->{'targets'}               = [ $x86, $x64 ];
$info->{'features'}              = [ 'acpi-s3', 'acpi-s4' ];
$info->{'tags'}                  = [ 'git master autobuild' ];

print $json->pretty->encode($info);