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

Add stripping to Advanced Section, changed default device size, removed testing for initrd_size.

Browse Source
This commit is contained in:
freesource 2000-08-26 22:45:28 +00:00
parent 764f969ee1
commit 5b00aa2c6a
1 changed files with 104 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

170
gBootRoot
View File

@ -1,7 +1,12 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# gBootRoot Copyright (C) 2000 # gBootRoot Copyright (C) 2000
# Jonathan Rosenbaum - mttrader@access.mountain.net # Project Developer and Coordinator
# Jonathan Rosenbaum <mttrader@access.mountain.net>
#
# Lead Programmer and Developer
# Cristian Ionescu-Idbohrn <cii@axis.com>
#
# http://the.netpedia.net/gBootRoot.html # http://the.netpedia.net/gBootRoot.html
# This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
@ -24,7 +29,7 @@ use strict;
init Gtk; init Gtk;
# Perhaps you are wondering where I learned how to program with Gtk-Perl? # Perhaps you are wondering where to learn how to program with Gtk-Perl?
# There is an excellent tutorial by Stephen Wilhelm at # There is an excellent tutorial by Stephen Wilhelm at
# http://personal.riverusers.com/~swilhelm/perlgtk/. Please # http://personal.riverusers.com/~swilhelm/perlgtk/. Please
# help support his development of this tutorial. Another good place # help support his development of this tutorial. Another good place
@ -95,6 +100,7 @@ my $true = 1;
my $ok; my $ok;
my $box2; my $box2;
my $label; my $label;
my $label_advanced;
my $separator; my $separator;
my $order; my $order;
my $text_window; my $text_window;
@ -106,10 +112,10 @@ my ($kernel,$root_image,$device,$size);
my $mtab; my $mtab;
my ($tmp,$mnt); my ($tmp,$mnt);
my $norm_root_device; my $norm_root_device;
my ($hbox_advanced,$ha1,$ha2);
my $separator_advanced;
# temporarily for a test my $button_count = 0;
my $strip = $false; 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.
my @xpm_data = ( my @xpm_data = (
@ -271,14 +277,14 @@ button("Device Selection",$entry4,"Device Selection",3,$true);
# Fifth row # Fifth row
hbox("what"); hbox("what");
my $adj = new Gtk::Adjustment( 1440.0, 0.0, 360000000.0, 282.0, 360.0, 0.0 ); my $adj = new Gtk::Adjustment( 1722.0, 0.0, 360000000.0, 282.0, 360.0, 0.0 );
my $spinner = new Gtk::SpinButton( $adj, 0, 0 ); my $spinner = new Gtk::SpinButton( $adj, 0, 0 );
$tooltips->set_tip( $spinner, "Choose the Device Size.", "" ); $tooltips->set_tip( $spinner, "Choose the Device Size.", "" );
$spinner->set_wrap( $true ); $spinner->set_wrap( $true );
$spinner->set_numeric( $true ); $spinner->set_numeric( $true );
$spinner->set_shadow_type( 'in' ); $spinner->set_shadow_type( 'in' );
$spinner->show(); $spinner->show();
$container[4] = 1440; $container[4] = 1722; # A better value - a rtbt trick.
$adj->signal_connect( "value_changed", sub { $adj->signal_connect( "value_changed", sub {
$container[4] = $spinner->get_value_as_int();}); $container[4] = $spinner->get_value_as_int();});
$box2->pack_start( $spinner, $true, $true, 0 ); $box2->pack_start( $spinner, $true, $true, 0 );
@ -306,61 +312,27 @@ $entry5->set_usize(15,20);
$box2->pack_start( $entry5, $true, $true, 0 ); $box2->pack_start( $entry5, $true, $true, 0 );
$entry5->show(); $entry5->show();
# The FUTURE ADVANCED SECTION # The ADVANCED SECTION
################################## ######################
# Separator # Separator
$separator = new Gtk::HSeparator(); $separator = new Gtk::HSeparator();
$box1->pack_start( $separator, $false, $true, 0 ); $box1->pack_start( $separator, $false, $true, 0 );
$separator->show(); $separator->show();
# This is cool how this works. # This is cool how this works.
my $box10 = new Gtk::VBox($false,0); my $vbox_advanced = new Gtk::VBox($false,0);
$box1->add($box10); $box1->add($vbox_advanced);
$box10->show(); $vbox_advanced->show();
my $box_special; my $box_special2;
my $button_count = 0;
hbox_special();
# The button
my $button_special = new Gtk::Button("Advanced Section");
$tooltips->set_tip( $button_special, "This is where all the advanced stuff is found.", "" );
$button_special->signal_connect("clicked", sub {
if ($button_count == 0) {
$box10->set_usize(321,300);
hbox_special();
# test stuff
my $label2 = new Gtk::Label( "Nothing here yet." );
$label2->set_justify( "fill" );
$box_special->pack_start( $label2, $false, $false, 5 );
$label2->show();
$label2 = new Gtk::Label( "Nothing here yet." );
$label2->set_justify( "fill" );
$box_special->pack_start( $label2, $false, $false, 5 );
$label2->show();
$button_count++;
}
else {
$box10->set_usize(321,0);
destroy $box_special;
$button_count--;
}
} );
$box_special->pack_start( $button_special, $true, $true, 0 );
$button_special->show();
sub hbox_special { # The Advanced Section button
$box_special = new Gtk::HBox(1,1 ); hbox_advanced();
$box_special->border_width( 2 ); # was 10 my $button_advanced = new Gtk::Button("Advanced Section");
$box_special->set_usize(321, 20); $tooltips->set_tip( $button_advanced, "This is where all the advanced stuff is found.", "" );
$box10->pack_start( $box_special, 0, 0, 0 ); $button_advanced->signal_connect("clicked",\&advanced_section );
show $box_special; $hbox_advanced->pack_start( $button_advanced, $true, $true, 0 );
} $button_advanced->show();
######################
#######################################
# Separator # Separator
$separator = new Gtk::HSeparator(); $separator = new Gtk::HSeparator();
@ -435,6 +407,73 @@ sub signal {
Gtk->exit(0); Gtk->exit(0);
} }
sub hbox_advanced {
$hbox_advanced = new Gtk::HBox(1,1 );
$hbox_advanced->border_width( 2 ); # was 10
$hbox_advanced->set_usize(321, 20);
$vbox_advanced->pack_start( $hbox_advanced, $false, $false, 0 );
show $hbox_advanced;
}
sub advanced_section {
if ($button_count == 0) {
#$vbox_advanced->set_usize(321,300);
# Will use a table once things start to take shape.
# The strip section
hbox_advanced(); $ha1 = $hbox_advanced;
label_advanced("Stripping:");
$lib_strip_check = new Gtk::CheckButton("Libraries");
$lib_strip_check->set_active($true);
$tooltips->set_tip( $lib_strip_check,
"This is generally a good idea. [--strip-debug]", "" );
$hbox_advanced->pack_start( $lib_strip_check, $false, $false, 0);
show $lib_strip_check;
$bin_strip_check = new Gtk::CheckButton("Binaries");
$bin_strip_check->set_active($true);
$tooltips->set_tip( $bin_strip_check,
"This is generally a good idea. [--strip-all]", "" );
$hbox_advanced->pack_start( $bin_strip_check, $true, $true, 0);
show $bin_strip_check;
# Verbosity section
separator_advanced();
hbox_advanced(); $ha2 = $hbox_advanced;
label_advanced("Verbosity Level: \"Coming Soon!\"");
$button_count++;
}
else {
#$vbox_advanced->set_usize(321,0);
destroy $ha1;
destroy $separator_advanced;
destroy $ha2;
$button_count--;
}
} # end sub advanced_section
sub separator_advanced {
$separator_advanced = new Gtk::HSeparator();
$vbox_advanced->pack_start( $separator_advanced, $false, $true, 0 );
$separator_advanced->show();
}
sub label_advanced {
my($text) = @_;
$label_advanced = new Gtk::Label( $text );
$label_advanced->set_justify( "fill" );
$hbox_advanced->pack_start( $label_advanced, $true, $true, 0 );
$label_advanced->show();
}
# Cristian's idea - bug 111579 enh for brlilo # Cristian's idea - bug 111579 enh for brlilo
sub norm_root_device { sub norm_root_device {
@ -1108,31 +1147,30 @@ sub initrd_size {
# lib sizes # lib sizes
# for testing purposes change $lib_place value # for testing purposes change $lib_place value
my $lib_place = "/lib";
open(L,"ldd /sbin/init|") or die "Oops, no init could be found :)\n"; # safe to use ldd open(L,"ldd /sbin/init|") or die "Oops, no init could be found :)\n"; # safe to use ldd
while (<L>) { while (<L>) {
$lib = (split(/=>/,$_))[0]; $lib = (split(/=>/,$_))[0];
$lib =~ s/\s+//; $lib =~ s/\s+//;
$lib = basename($lib); $lib = basename($lib);
$lib =~ s/\s+$//; $lib =~ s/\s+$//;
open (SL,"ls -l $lib_place/$lib|") or die "humm: $!\n"; open (SL,"ls -l /lib/$lib|") or die "humm: $!\n";
while (<SL>) { while (<SL>) {
# symbolic link # symbolic link
if (-l "$lib_place/$lib") { if (-l "/lib/$lib") {
$what = (split(/\s+/,$_))[10]; $what = (split(/\s+/,$_))[10];
$initrd_size = $initrd_size + 1; $initrd_size = $initrd_size + 1;
$initrd_size = $initrd_size + ((stat("$lib_place/$what"))[12]/2); $initrd_size = $initrd_size + ((stat("/lib/$what"))[12]/2);
} }
# no symbolic link # no symbolic link
else { else {
# This is a test right now # This is a test right now
if ($strip == 1) { #if ($strip == 1) {
system "objcopy $lib_place/$lib /tmp/$lib"; # system "objcopy /lib/$lib /tmp/$lib";
$initrd_size = $initrd_size + ((stat("/tmp/$lib"))[12]/2); # $initrd_size = $initrd_size + ((stat("/tmp/$lib"))[12]/2);
} #}
else { #else {
$initrd_size = $initrd_size + ((stat("$lib_place/$lib"))[12]/2); $initrd_size = $initrd_size + ((stat("/lib/$lib"))[12]/2);
} #}
} }
} }
} }