bike
/
gbootroot
mirror of https://github.com/fspc/gbootroot.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

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

master
freesource 25 years ago
parent
764f969ee1
commit
5b00aa2c6a
1 changed files with 104 additions and 66 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 170
      gBootRoot

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 # The Advanced Section button
my $button_special = new Gtk::Button("Advanced Section"); hbox_advanced();
$tooltips->set_tip( $button_special, "This is where all the advanced stuff is found.", "" ); my $button_advanced = new Gtk::Button("Advanced Section");
$button_special->signal_connect("clicked", sub { $tooltips->set_tip( $button_advanced, "This is where all the advanced stuff is found.", "" );
if ($button_count == 0) { $button_advanced->signal_connect("clicked",\&advanced_section );
$box10->set_usize(321,300); $hbox_advanced->pack_start( $button_advanced, $true, $true, 0 );
hbox_special(); $button_advanced->show();
# 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 {
$box_special = new Gtk::HBox(1,1 );
$box_special->border_width( 2 ); # was 10
$box_special->set_usize(321, 20);
$box10->pack_start( $box_special, 0, 0, 0 );
show $box_special;
}
#######################################
# 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);
} #}
} }
} }
} }

Write Preview
Loading…
Cancel
Save