From ca67b09c015d4af3ae3cce12aa72e60941dbb8b5 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 18:29:52 +0200 Subject: Adding debian version 2.06-13+deb12u1. Signed-off-by: Daniel Baumann --- debian/platform-subst | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100755 debian/platform-subst (limited to 'debian/platform-subst') diff --git a/debian/platform-subst b/debian/platform-subst new file mode 100755 index 0000000..436ffca --- /dev/null +++ b/debian/platform-subst @@ -0,0 +1,38 @@ +#! /usr/bin/perl +use warnings; +use strict; + +my %subst = (); +while ($ARGV[0] =~ /(.*?)=(.*)/) { + $subst{$1} = $2; + shift; +} + +die "no package specified\n" unless exists $subst{PACKAGE}; +(my $package = $subst{PACKAGE}) =~ s/-(?:bin|dbg)$//; + +my $grub_dir_path = "debian/tmp-$package/usr/lib/grub"; +opendir my $grub_dir, $grub_dir_path or die "can't opendir $grub_dir_path: $!"; +my @cpu_platforms = grep { !/^\./ } readdir $grub_dir; +closedir $grub_dir; + +$subst{FIRST_CPU_PLATFORM} = $cpu_platforms[0]; + +sub emit ($) { + my $line = shift; + while (my ($key, $value) = each %subst) { + $line =~ s/\@$key\@/$value/g; + } + print $line; +} + +while (<>) { + if (/\@CPU_PLATFORM\@/) { + for my $cpu_platform (@cpu_platforms) { + (my $line = $_) =~ s/\@CPU_PLATFORM\@/$cpu_platform/g; + emit($line); + } + } else { + emit($_); + } +} -- cgit v1.2.3