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

Can now switch between --strip-debug and --strip-all for libraries in the advanced section, mentions objcopy in tips.

Browse Source
This commit is contained in:
freesource 2000-08-28 20:41:28 +00:00
parent 05205ff245
commit 3006031c25
1 changed files with 53 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
gBootRoot
View File

@ -115,6 +115,7 @@ my $norm_root_device;
my ($hbox_advanced,$ha1,$ha2); my ($hbox_advanced,$ha1,$ha2);
my $separator_advanced; my $separator_advanced;
my $button_count = 0; my $button_count = 0;
my $obj_count = 0;
my ($lib_strip_check,$bin_strip_check); my ($lib_strip_check,$bin_strip_check);
# My own creation - the roots touch the ground if three lines are added. # My own creation - the roots touch the ground if three lines are added.
@ -414,6 +415,36 @@ sub hbox_advanced {
show $hbox_advanced; show $hbox_advanced;
} }
sub objcopy_right_click_advanced {
my ( @data ) = @_;
my $event = pop( @data );
if ( ( defined( $event->{'type'} ) )
and ( $event->{'type'} eq 'button_press' ) ) {
if ( $event->{'button'} == 3 ) {
if ($obj_count == 0) {
$tooltips->set_tip( $lib_strip_check,
"This is generally a good idea. Press right" .
" mouse button to change from" .
" [objcopy --strip-all] to" .
" [objcopy --strip-debug].", "" );
$obj_count++;
}
else {
$tooltips->set_tip( $lib_strip_check,
"This is generally a good idea. Press right" .
" mouse button to change from" .
" [objcopy --strip-debug] to" .
" [objcopy --strip-all].", "" );
$obj_count--;
}
}
}
}
sub advanced_section { sub advanced_section {
if ($button_count == 0) { if ($button_count == 0) {
@ -428,16 +459,23 @@ sub advanced_section {
: ($boolean = $lib_strip_check->get_active()); : ($boolean = $lib_strip_check->get_active());
$lib_strip_check = new Gtk::CheckButton("Libraries"); $lib_strip_check = new Gtk::CheckButton("Libraries");
$lib_strip_check->set_active($boolean); $lib_strip_check->set_active($boolean);
$lib_strip_check->signal_connect( "button_press_event",
\&objcopy_right_click_advanced);
$tooltips->set_tip( $lib_strip_check, $tooltips->set_tip( $lib_strip_check,
"This is generally a good idea. [--strip-debug]", "" ); "This is generally a good idea. Press right" .
" mouse button to change from" .
" [objcopy --strip-debug] to" .
" [objcopy --strip-all].", "" );
$hbox_advanced->pack_start( $lib_strip_check, $false, $false, 0); $hbox_advanced->pack_start( $lib_strip_check, $false, $false, 0);
show $lib_strip_check; show $lib_strip_check;
!defined $bin_strip_check ? ($boolean = 1) !defined $bin_strip_check ? ($boolean = 1)
: ($boolean = $bin_strip_check->get_active()); : ($boolean = $bin_strip_check->get_active());
$bin_strip_check = new Gtk::CheckButton("Binaries"); $bin_strip_check = new Gtk::CheckButton("Binaries");
$bin_strip_check->set_active($boolean); $bin_strip_check->set_active($boolean);
$tooltips->set_tip( $bin_strip_check, $tooltips->set_tip( $bin_strip_check,
"This is generally a good idea. [--strip-all]", "" ); "This is generally a good idea." .
" [objcopy --strip-all]", "" );
$hbox_advanced->pack_start( $bin_strip_check, $true, $true, 0); $hbox_advanced->pack_start( $bin_strip_check, $true, $true, 0);
show $bin_strip_check; show $bin_strip_check;
@ -819,6 +857,8 @@ elsif (defined $container[0] && defined $container[1] &&
: ($container[7] = $bin_strip_check->get_active()); : ($container[7] = $bin_strip_check->get_active());
!$container[7] ? ($container[7] = 4) : ($container[7] = 3); !$container[7] ? ($container[7] = 4) : ($container[7] = 3);
$obj_count == 0 ? ($container[8] = 5) : ($container[8] = 6);
if (@original_container) { # defined array deprecate Perl 5.6 - zas@metaconcept.com if (@original_container) { # defined array deprecate Perl 5.6 - zas@metaconcept.com
# a hash check isn't perfect for two values which are the same # a hash check isn't perfect for two values which are the same
# no need to check all the values # no need to check all the values
@ -842,7 +882,8 @@ elsif (defined $container[0] && defined $container[1] &&
} }
# reset # reset
@original_container = ($container[0],$root_image,$device,$size, @original_container = ($container[0],$root_image,$device,$size,
$compress,$container[6],$container[7]); $compress,$container[6],$container[7],
$container[8]);
lilo(); lilo();
} }
@ -1143,8 +1184,15 @@ sub stripper {
if ($not_stripped =~ m,not stripped,) { if ($not_stripped =~ m,not stripped,) {
if (($_[1] eq "lib" && !defined $lib_strip_check) or if (($_[1] eq "lib" && !defined $lib_strip_check) or
($_[1] eq "lib" && $lib_strip_check->active)) { ($_[1] eq "lib" && $lib_strip_check->active)) {
system "objcopy --strip-debug $_[0] $tmp/$filename"; # --strip-all works for initrd
return ( "$tmp/$filename", 1 ); if ($obj_count == 0) {
system "objcopy --strip-debug $_[0] $tmp/$filename";
return ( "$tmp/$filename", 1 );
}
elsif ($obj_count == 1) {
system "objcopy --strip-all $_[0] $tmp/$filename";
return ( "$tmp/$filename", 1 );
}
} }
elsif (($_[1] eq "bin" && !defined $bin_strip_check) or elsif (($_[1] eq "bin" && !defined $bin_strip_check) or
($_[1] eq "bin" && $bin_strip_check->active)) { ($_[1] eq "bin" && $bin_strip_check->active)) {