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

* All variables from ARS needed by root methods may be accessed through a hash

Browse Source 
record.  ($ars) = @_;  $ars->{device};
This commit is contained in:
freesource 2000-12-12 20:33:33 +00:00
parent c04c88be0b
commit 820e3a2af6
1 changed files with 20 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
gBootRoot
View File

@ -147,7 +147,6 @@ my $button_count_root = 0;
my $obj_count = 0;
my $obj_count_root = 0;
my ($lib_strip_check,$bin_strip_check);
my ($lib_strip_check_root,$bin_strip_check_root,$module_strip_check_root);
my ($bz2_toggle,$gz_toggle);
my ($bz2_toggle_root,$gz_toggle_root,$compression_off);
my ($combo);
@ -592,24 +591,6 @@ sub objcopy_right_click_advanced {
$obj_count--;
}
}
if (defined $lib_strip_check_root) {
if ($obj_count_root == 0) {
$tooltips->set_tip( $lib_strip_check_root,
"This is generally a good idea." .
" Press the right mouse button to" .
" change from [objcopy --strip-all]" .
" to [objcopy --strip-debug].", "" );
$obj_count_root++;
}
else {
$tooltips->set_tip( $lib_strip_check_root,
"This is generally a good idea." .
" Press the right mouse button to" .
" change from [objcopy --strip-debug]".
" to [objcopy --strip-all].", "" );
$obj_count_root--;
}
}
}
}
@ -971,14 +952,30 @@ sub Generate {
# 1 = Optional Devices
# 2 = Append Options
#------------------
$root_device = $entry_advanced[3]; # 3 = Root Device
$root_filename = $entry_advanced[4]; # 4 = Root Filename
# 3 = Root Device
# 4 = Root Filename
# 5 = UML Kernel
$method = $entry_advanced[6]; # 6 = Method
$template = $entry_advanced[7]; # 7 = Template
# 7 = Template
# $root_device_size;
# $filesystem_size;
# Stuff univeral for all root filesystem methods
# Compression, UML Kernel, and Method only need to be known by the Dock.
my $ars = { "device" => $entry_advanced[3],
"device_size" => $root_device_size,
"filename" => $entry_advanced[4],
"filesystem_size" => $filesystem_size,
"kernel" => $container[1],
"template_directory" => $template_dir,
"template" => $entry_advanced[7],
"tmp" => $tmp
};
my $template = $ars->{template};
$root_device = $ars->{device};
$root_filename = $ars->{filename};
if (!$root_device || $root_device eq "") {
error_window("gBootRoot: ERROR: Root Device not defined");
return;
@ -1002,12 +999,9 @@ sub Generate {
return;
}
# Stuff univeral for all root filesystem methods
my @method_stuff = qw($filesystem_size $obj_count_root $tmp);
if ($method eq "yard") {
my $kernel = $container[1];
yard($kernel,$template_dir,$template);
yard($ars);
}