public/nixpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

install-grub.pl: add comments

Browse Source
This commit is contained in:
Domen Kožar 2016-09-01 10:13:47 +02:00
parent 85546fb342
commit 5e5b0d039c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
nixos/modules/system/boot/loader/grub/install-grub.pl
View File

@ -12,8 +12,10 @@ require List::Compare;
use POSIX; use POSIX;
use Cwd; use Cwd;
# system.build.toplevel path
my $defaultConfig = $ARGV[1] or die; my $defaultConfig = $ARGV[1] or die;
# Grub config XML generated by grubConfig function in grub.nix
my $dom = XML::LibXML->load_xml(location => $ARGV[0]); my $dom = XML::LibXML->load_xml(location => $ARGV[0]);
sub get { my ($name) = @_; return $dom->findvalue("/expr/attrs/attr[\@name = '$name']/*/\@value"); } sub get { my ($name) = @_; return $dom->findvalue("/expr/attrs/attr[\@name = '$name']/*/\@value"); }
@ -97,6 +99,8 @@ sub PathInMount {
} }
return 1; return 1;
} }
# Figure out what filesystem is used for the directory with init/initrd/kernel files
sub GetFs { sub GetFs {
my ($dir) = @_; my ($dir) = @_;
my $bestFs = Fs->new(device => "", type => "", mount => ""); my $bestFs = Fs->new(device => "", type => "", mount => "");