bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 09:03:23 -05:00
Code Issues Projects Releases Wiki Activity

Changes for device_table

Browse Source
This commit is contained in:
freesource 2001-11-01 18:32:31 +00:00
parent 68c3a4476c
commit 2f4febb6eb
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
BootRoot/Yard.pm
View File

@ -140,7 +140,7 @@ sub kernel_version_check {
## REQUIRES $contents_file ## REQUIRES $contents_file
sub read_contents_file { sub read_contents_file {
my ($contents_file) = @_; my ($contents_file, $mnt) = @_;
my $error; my $error;
# It's a good idea to clear the text buffer in the verbosity box # It's a good idea to clear the text buffer in the verbosity box
@ -157,6 +157,7 @@ sub read_contents_file {
undef %strippable; undef %strippable;
undef %lib_needed_by; undef %lib_needed_by;
undef @Libs; undef @Libs;
unlink("$mnt/device_table.txt") if -e "$mnt/device_table.txt";
} }
$contents_file_tmp = $contents_file; $contents_file_tmp = $contents_file;
@ -212,7 +213,7 @@ sub read_contents_file {
} }
# make device table # make device table
device_table(@globbed); device_table($mnt,@globbed);
} }
else { else {
@ -230,7 +231,6 @@ sub read_contents_file {
if ( $tmp_line ) { if ( $tmp_line ) {
$line = $tmp_line; $line = $tmp_line;
info(0,"D $line\n");
} }
else { else {
next LINE; next LINE;
@ -1045,8 +1045,7 @@ sub create_filesystem {
# genextfs modified by BusyBox maintainer Erick Andersen # genextfs modified by BusyBox maintainer Erick Andersen
# August 20, 2001. # August 20, 2001.
my $device_table; # to be removed once device table creation is my $device_table = "$mnt/device_table.txt";
# added.
if ( if (
sys("/usr/lib/bootroot/$main::makefs -b $fs_size -d $mount_point -D $device_table $device") !~ sys("/usr/lib/bootroot/$main::makefs -b $fs_size -d $mount_point -D $device_table $device") !~
@ -1682,8 +1681,22 @@ sub yard_glob {
# build device table for genext2fs # build device table for genext2fs
sub device_table { sub device_table {
my ( @devices ) = @_;
my $mnt = shift @devices;
my $error;
# /dev is always made automatically
open(DEVICE_TABLE, ">>$mnt/device_table.txt") or
($error = error("$mnt/device_table.txt: $!"));
return "ERROR"if $error && $error eq "ERROR";
#<path> <type> <mode> <uid> <gid> <major> <minor> <start> <inc>
# start and inc are the tricky parts with the glob
foreach (@devices) {
info(1,"$_\n");
}
close(DEVICE_TABLE);
} # end sub device_table } # end sub device_table