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

Much more efficient code with the newest dswim.

Browse Source
This commit is contained in:
freesource 2001-10-18 21:25:57 +00:00
parent fed9b6c6cd
commit 59c77e7e23
2 changed files with 38 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
add-ons/yard/make-debian-X11/make_debian-X11
View File

@ -292,11 +292,17 @@ return $stuff;
# to test for anyways, weirder things have been known to happen.
my @rpc;
foreach my $p (@required_packages) {
$/ = "";
my @required_stuff = `swim -qi @required_packages`;
$/ = "\n";
foreach my $package_info (@required_stuff) {
$package_info =~ /^package[:]*\s+([-\+\d\w]+)/i;
my $p = $1;
$p =~ s/\+/\\+/g if $p !~ /\\+/g;
if ( grep(/Status: deinstall|Status: purge|package $p is not installed/,
`swim -qi $p`) == 1 ) {
push(@rpc,$p);
$package_info ) == 1 ) {
$p =~ s/\\//g if $p =~ /\\+/g;
push( @rpc, $p );
}
}
@ -310,11 +316,17 @@ if (@rpc) {
}
my @epc;
foreach my $p (@extra_packages) {
$/ = "";
my @extra_stuff = `swim -qi @extra_packages`;
$/ = "\n";
foreach my $package_info (@extra_stuff) {
$package_info =~ /^package[:]*\s+([-\+\d\w]+)/i;
my $p = $1;
$p =~ s/\+/\\+/g if $p !~ /\\+/g;
if ( grep(/Status: deinstall|Status: purge|package $p is not installed/,
`swim -qi $p`) == 1 ) {
push(@epc,$p);
$package_info ) == 1 ) {
$p =~ s/\\//g if $p =~ /\\+/g;
push( @epc, $p );
}
}

26
yard/scripts/make_debian
View File

@ -265,14 +265,21 @@ return $stuff;
# to test for anyways, weirder things have been known to happen.
my @rpc;
foreach my $p (@required_packages) {
$/ = "";
my @required_stuff = `swim -qi @required_packages`;
$/ = "\n";
foreach my $package_info (@required_stuff) {
$package_info =~ /^package[:]*\s+([-\+\d\w]+)/i;
my $p = $1;
$p =~ s/\+/\\+/g if $p !~ /\\+/g;
if ( grep(/Status: deinstall|Status: purge|package $p is not installed/,
`swim -qi $p`) == 1 ) {
push(@rpc,$p);
$package_info ) == 1 ) {
$p =~ s/\\//g if $p =~ /\\+/g;
push( @rpc, $p );
}
}
if (@rpc) {
print STDERR "These are the required packages which were specified:\n\n";
$, = " ";
@ -282,12 +289,19 @@ if (@rpc) {
$, = "";
}
my @epc;
foreach my $p (@extra_packages) {
$/ = "";
my @extra_stuff = `swim -qi @extra_packages`;
$/ = "\n";
foreach my $package_info (@extra_stuff) {
$package_info =~ /^package[:]*\s+([-\+\d\w]+)/i;
my $p = $1;
$p =~ s/\+/\\+/g if $p !~ /\\+/g;
if ( grep(/Status: deinstall|Status: purge|package $p is not installed/,
`swim -qi $p`) == 1 ) {
push(@epc,$p);
$package_info ) == 1 ) {
$p =~ s/\\//g if $p =~ /\\+/g;
push( @epc, $p );
}
}