File mkspec-dtb of Package kernel-source.24574

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my $spec_in = "dtb.spec.in";

# DTB packages names, ordered by file names
my @armv7l_package_list = (
    ['dtb-am335x',     'am335x-*.dts',     "TI AM335x based systems"],
    ['dtb-am3517',     'am3517*.dts',      "TI AM3517 based systems"], # exception: am3517_mt_ventoux.dts
    ['dtb-am57xx',     'am57xx-*.dts',     "TI AM57xx based systems"],
    ['dtb-armada-370', 'armada-370-*.dts', "Armada 370 based systems"],
    ['dtb-armada-375', 'armada-375-*.dts', "Armada 375 based systems"],
    ['dtb-armada-385', 'armada-385-*.dts', "Armada 385 based systems"],
    ['dtb-armada-388', 'armada-388-*.dts', "Armada 388 based systems"],
    ['dtb-armada-398', 'armada-398-*.dts', "Armada 398 based systems"],
    ['dtb-armada-xp',  'armada-xp-*.dts',  "Armada XP based systems"],
    ['dtb-bcm2836',    'bcm2836*.dts',     "Raspberry Pi 2 Model B"],
    ['dtb-dove',       'dove-*.dts',       "Marvell dove based systems"],
    ['dtb-exynos4',    'exynos4*.dts',     "Samsung Exynos 4 based systems"],
    ['dtb-exynos5',    'exynos5*.dts',     "Samsung Exynos 5 based systems"],
    ['dtb-imx5',       'imx5*.dts',        "Freescale i.MX51 and i.MX53 based systems"],
    ['dtb-imx6',       'imx6*.dts',        "Freescale i.MX6 based systems"],
    ['dtb-imx7',       'imx7*.dts',        "Freescale i.MX7 based systems"],
    ['dtb-keystone',   'keystone-*.dts',   "TI Keystone 2 based systems"],
    ['dtb-meson6',     'meson6-*.dts',     "Amlogic Meson 6 based systems"],
    ['dtb-meson8',     'meson8-*.dts',     "Amlogic Meson 8 based systems"],
    ['dtb-meson8b',    'meson8b-*.dts',    "Amlogic Meson 8b based systems"],
    ['dtb-mt76',       'mt76*.dts',        "MediaTek mt76 based systems"],
    ['dtb-omap3',      'omap3*.dts',       "TI OMAP3 based systems"],
    ['dtb-omap4',      'omap4*.dts',       "TI OMAP4 based systems"],
    ['dtb-omap5',      'omap5*.dts',       "TI OMAP5 based systems"],
    ['dtb-qcom',       'qcom-*.dts',       "Qualcomm Snapdragon based systems"],
    ['dtb-rk3',        'rk3*.dts',         "Rockchip RK3xxx based systems"],
    ['dtb-socfpga',    'socfpga_*.dts',    "Altera SoC FPGA based systems"],
    ['dtb-ste',        'ste-*.dts',        "ST Ericsson based systems"],
    ['dtb-sun4i',      'sun4i-*.dts',      "Allwinner sun4i based systems"],
    ['dtb-sun5i',      'sun5i-*.dts',      "Allwinner sun5i based systems"],
    ['dtb-sun6i',      'sun6i-*.dts',      "Allwinner sun6i based systems"],
    ['dtb-sun7i',      'sun7i-*.dts',      "Allwinner sun7i based systems"],
    ['dtb-sun8i',      'sun8i-*.dts',      "Allwinner sun8i based systems"],
    ['dtb-sun9i',      'sun9i-*.dts',      "Allwinner sun9i based systems"],
    ['dtb-tegra2',     'tegra20-*.dts',    "NVidia Tegra2 based systems"],
    ['dtb-tegra3',     'tegra30-*.dts',    "NVidia Tegra3 based systems"],
    ['dtb-tegra114',   'tegra114-*.dts',   "NVidia Tegra4 based systems"],
    ['dtb-tegra124',   'tegra124-*.dts',   "NVidia Tegra K1 based systems"],
    ['dtb-vexpress',   'vexpress-*.dts',   "ARM Versatile Express machines"],
    ['dtb-vf500',      'vf500-*.dts',      "Freescale Vybrid VF500 based systems"],
    ['dtb-vf6',        'vf610-*.dts',      "Freescale Vybrid VF610 based systems"],
    ['dtb-xenvm',      'xenvm-*.dts',      "Xen virtual machines"],
    ['dtb-zynq',       'zynq-*.dts',       "Xilinx Zynq based systems"],
);

# DTB packages names
my @armv6l_package_list = (
     ['dtb-bcm2835',   'bcm2835*.dts',   "Raspberry Pi 1 (A+, B, B+)"],
);

# DTB packages names
my @aarch64_package_list = (
     ['dtb-al',              'al/*.dts',               "Alpine Labs based arm64 systems"],
     ['dtb-allwinner',       'allwinner/*.dts',        "Allwinner based arm64 systems"],
     ['dtb-altera',          'altera/*.dts',           "Altera based arm64 systems"],
     ['dtb-amd',             'amd/*.dts',              "AMD based arm64 systems"],
     ['dtb-amlogic',         'amlogic/*.dts',          "Amlogic based arm64 systems"],
     ['dtb-apm',             'apm/*.dts',              "AppliedMicro based arm64 systems"],
     ['dtb-arm',             'arm/*.dts',              "ARM Ltd. based arm64 systems"],
     ['dtb-broadcom',        'broadcom/*.dts',         "Broadcom based arm64 systems"],
     ['dtb-cavium',          'cavium/*.dts',           "Cavium based arm64 systems"],
     ['dtb-exynos',          'exynos/*.dts',           "Samsung Exynos based arm64 systems"],
     ['dtb-freescale',       'freescale/*.dts',        "NXP (Freescale) based arm64 systems"],
     ['dtb-hisilicon',       'hisilicon/*.dts',        "HiSilicon based arm64 systems"],
     ['dtb-lg',              'lg/*.dts',               "LG based arm64 systems"],
     ['dtb-marvell',         'marvell/*.dts',          "Marvell based arm64 systems"],
     ['dtb-mediatek',        'mediatek/*.dts',         "MediaTek based arm64 systems"],
     ['dtb-nvidia',          'nvidia/*.dts',           "Nvidia based arm64 systems"],
     ['dtb-qcom',            'qcom/*.dts',             "Qualcomm based arm64 systems"],
     ['dtb-renesas',         'renesas/*.dts',          "Renesas based arm64 systems"],
     ['dtb-rockchip',        'rockchip/*.dts',         "Rockchip based arm64 systems"],
     ['dtb-socionext',       'socionext/*.dts',        "Socionext based arm64 systems"],
     ['dtb-sprd',            'sprd/*.dts',             "Spreadtrum based arm64 systems"],
     ['dtb-xilinx',          'xilinx/*.dts',           "Xilinx based arm64 systems"],
     ['dtb-zte',             'zte/*.dts',              "ZTE based arm64 systems"],
);

# DTB packages names
my @riscv64_package_list = (
     ['dtb-sifive',   'sifive/*.dts',   "SiFive based riscv64 systems"],
);

sub generate_spec($$$)
{
    my ($main_package, $exclusive_arch, $package_list) = @_;

    print "$main_package.spec\n";
    # open .spec and .spec.in files
    open (SPEC, ">$main_package.spec") or die "Unable to open $main_package.spec.\n";
    open (TEMPLATE, "$spec_in") or die "Unable to open $spec_in.\n";

    my $ARCH_RESTRICTIONS = "";
    $ARCH_RESTRICTIONS = "ExclusiveArch:  $exclusive_arch"
        unless ($exclusive_arch eq 'none');

    my $subpkg_desc = "";
    my $subpkg_post = "";
    my $subpkg_files = "";
    my $all_supported_dtb = "";
    my $DTS_folder = "arch/arm/boot/dts";
    if ($exclusive_arch =~ /aarch64/) {
	   $DTS_folder = "arch/arm64/boot/dts";
    } elsif ($exclusive_arch =~ /riscv64/) {
	   $DTS_folder = "arch/riscv/boot/dts";
    }

    foreach my $NAME (@$package_list) {
        my $PKG_NAME = @{$NAME}[0];
        my $SUPPORTED_DTB = @{$NAME}[1];
        my $MACHINES = @{$NAME}[2];

        $subpkg_desc .=
            "%package -n $PKG_NAME\n" .
            "Summary:        $MACHINES\n" .
            "Group:          System/Boot\n";
        if ($PKG_NAME eq 'dtb-keystone' and $main_package eq 'dtb-armv7l') {
            $subpkg_desc .= "Provides:       dtb-k2e = %version\n" .
                            "Provides:       dtb-k2l = %version\n";
        }
        if ($PKG_NAME eq 'dtb-apm' and $main_package eq 'dtb-aarch64') {
            $subpkg_desc .= "Provides:       dtb-apm-mustang = %version\n";
        }
        if ($PKG_NAME eq 'dtb-arm' and $main_package eq 'dtb-aarch64') {
            $subpkg_desc .= "Provides:       dtb-foundation-v8 = %version\n" .
                            "Provides:       dtb-rtsm_ve-aemv8a = %version\n";
        }
        if ($PKG_NAME eq 'dtb-cavium' and $main_package eq 'dtb-aarch64') {
            $subpkg_desc .= "Provides:       dtb-thunder-88xx = %version\n";
        }
        if ($PKG_NAME eq 'dtb-hisilicon' and $main_package eq 'dtb-aarch64') {
            $subpkg_desc .= "Provides:       dtb-hisilicon64 = %version\n";
        }
        $subpkg_desc .=
            "Provides:       multiversion(dtb)\n" .
            "Requires(post): coreutils\n" .
            "\n" .
            "%description -n $PKG_NAME\n" .
            "Device Tree files for $MACHINES.\n\n";

        $subpkg_post .=
            "%post -n $PKG_NAME\n" .
            "cd /boot\n" .
            "# If /boot/dtb is a symlink, remove it, so that we can replace it.\n" .
            "[ -d dtb ] && [ -L dtb ] && rm -f dtb\n" .
            "# Unless /boot/dtb exists as real directory, create a symlink.\n" .
            "[ -d dtb ] || ln -sf dtb-%kernelrelease dtb\n\n";

        my $bin_supported_dtb = $SUPPORTED_DTB;
        $bin_supported_dtb =~ s/\.dts/\.dtb/g;

        my $dtb_subdir = "";
        if ($bin_supported_dtb =~ /(.*)\/[^\/]+$/) {
            $dtb_subdir = "%dir %{dtbdir}/$1\n";
        }

        $subpkg_files .=
            "%ifarch aarch64 riscv64\n" .
            "%files -n $PKG_NAME -f $PKG_NAME.list\n" .
            "%else\n" .
            "%files -n $PKG_NAME\n" .
            "%endif\n" .
            "%defattr(-,root,root)\n" .
            "%ghost /boot/dtb\n" .
            "%dir %{dtbdir}\n" .
            $dtb_subdir .
            "%{dtbdir}/$bin_supported_dtb\n" .
            "\n";

        $all_supported_dtb .= "$SUPPORTED_DTB ";
    }
    chomp($all_supported_dtb);

    # spec file generation
    while(<TEMPLATE>){
        $_ =~ s/\$NAME/$main_package/g;
        $_ =~ s/\$ARCH_RESTRICTIONS/$ARCH_RESTRICTIONS/g;
        $_ =~ s/\$DTS_folder/$DTS_folder/g;
        $_ =~ s/\$SUBPKG_DESC/$subpkg_desc/g;
        $_ =~ s/\$ALL_SUPPORTED_DTB/$all_supported_dtb/g;
        $_ =~ s/\$SUBPKG_POST\n?/$subpkg_post/g;
        $_ =~ s/\$SUBPKG_FILES\n?/$subpkg_files/g;
        print SPEC $_;
    }

    close(TEMPLATE);
    close(SPEC);
}
if ( grep( /armv7/, @ARGV)) {
generate_spec('dtb-armv7l', "armv7l armv7hl", \@armv7l_package_list);
}
if ( grep( /armv6/, @ARGV)) {
generate_spec('dtb-armv6l', "armv6l armv6hl", \@armv6l_package_list);
}
if ( grep( /aarch64/, @ARGV)) {
generate_spec('dtb-aarch64', "aarch64", \@aarch64_package_list);
}
if ( grep( /riscv64/, @ARGV)) {
generate_spec('dtb-riscv64', "riscv64", \@riscv64_package_list);
}
openSUSE Build Service is sponsored by