[m1-debian] / m1n1stage1.pl

#!/usr/bin/perl

# Script to install chainload rust in Debian

my $esp_line = `diskutil list disk0 | grep EFI`;

my $esp_disk = undef;

if ($esp_line =~ /(disk0s\d)/) {
	$esp_disk = $1;
}

die unless defined $esp_disk;

my $partuuid = `diskutil info $esp_disk | grep 'Partition UUID' | awk -F: '{print \$2}'`;

$partuuid =~ s/\s+//g;

my $m1n1 = `curl -sL tg.st/m1n1-rust.bin`;

open(OBJECT, '>', 'object.bin') || die;
print OBJECT $m1n1;
print OBJECT "chainload=$partuuid;m1n1/boot.bin')\n";
print OBJECT "chosen.asahi,efi-system-partition=$partuuid\n";
close (OBJECT);

system('kmutil configure-boot -c object.bin --raw --entry-point 2048 --lowest-virtual-address 0 -v /Volumes/Debian');
Commit	Line	Data
42ba9b40 TG	1	#!/usr/bin/perl
42ba9b40 TG	2
9c9b4bb5 TG	3	# Script to install chainload rust in Debian
9c9b4bb5 TG	4
42ba9b40 TG	5	my $esp_line = `diskutil list disk0 \| grep EFI`;
	6
	7	my $esp_disk = undef;
	8
	9	if ($esp_line =~ /(disk0s\d)/) {
	10	$esp_disk = $1;
	11	}
	12
	13	die unless defined $esp_disk;
	14
	15	my $partuuid = `diskutil info $esp_disk \| grep 'Partition UUID' \| awk -F: '{print \$2}'`;
	16
	17	$partuuid =~ s/\s+//g;
	18
9c9b4bb5	19	my $m1n1 = `curl -sL tg.st/m1n1-rust.bin`;
42ba9b40 TG	20
	21	open(OBJECT, '>', 'object.bin') \|\| die;
	22	print OBJECT $m1n1;
9c9b4bb5	23	print OBJECT "chainload=$partuuid;m1n1/boot.bin')\n";
42ba9b40 TG	24	print OBJECT "chosen.asahi,efi-system-partition=$partuuid\n";
	25	close (OBJECT);
	26
	27	system('kmutil configure-boot -c object.bin --raw --entry-point 2048 --lowest-virtual-address 0 -v /Volumes/Debian');