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

Added --build-dep.

master
freesource 23 years ago
parent
e13572c82e
commit
cce64f4874
4 changed files with 208 additions and 89 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 27
      SWIM/File.pm
  2. 100
      SWIM/Findex.pm
  3. 47
      SWIM/Indexer.pm
  4. 123
      SWIM/Safex.pm

27
SWIM/File.pm
View File

@ -541,17 +541,30 @@ sub file {
untie %db;
if (defined $file_now &&
!($commands->{"z"} ||
$commands->{"ftp"} ||
$commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"purge"} ||
$commands->{"reinstall"} ||
$commands->{"build-dep"})) {
if ($commands{"x"} ||
$commands{"ftp"} ||
$commands{"source"} ||
$commands{"source_only"} ||
$commands{"remove"} ||
$commands{"r"} ||
$commands{"purge"} ||
$commands->{"reinstall"} ||
$commands->{"build-dep"}) {
if (defined $file_now && !($commands->{"z"} ||
$commands->{"ftp"} ||
$commands->{"remove"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"reinstall"})) {
if ($commands{"x"} || $commands{"ftp"} || $commands{"source"} ||
$commands{"source_only"} || $commands{"remove"} ||
$commands{"r"} || $commands{"purge"} || $commands->{"reinstall"} ) {
require SWIM::Safex;
SWIM::Safex->import(qw(safex));
safex(\%commands);
}
}

100
SWIM/Findex.pm
View File

@ -67,9 +67,14 @@ sub findexer {
my $package = $ib{"$argument"};
@alot = split(/\s/, $package);
@PACKAGES = @alot;
if ($commands->{"z"} || $commands->{"ftp"} ||
$commands->{"remove"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"reinstall"}) {
if ($commands->{"z"} ||
$commands->{"ftp"} ||
$commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"purge"} ||
$commands->{"reinstall"} ||
$commands->{"build-dep"}) {
require SWIM::Safex;
SWIM::Safex->import(qw(safex));
safex(\%commands);
@ -79,9 +84,13 @@ sub findexer {
if ($commands->{"T"}) {
foreach (@alot) {
$argument = $_;
if ($commands->{"scripts"} || $commands->{"preinst"} ||
$commands->{"postinst"} || $commands->{"prerm"} ||
$commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"} ) {
if ($commands->{"scripts"} ||
$commands->{"preinst"} ||
$commands->{"postinst"} ||
$commands->{"prerm"} ||
$commands->{"postrm"} ||
$commands->{"config"} ||
$commands->{"templates"} ) {
scripts(\%commands);
}
menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
@ -123,9 +132,13 @@ sub findexer {
# no -Ts.
foreach (@alot) {
$argument = $_;
if ($commands->{"scripts"} || $commands->{"preinst"} ||
$commands->{"postinst"} || $commands->{"prerm"} ||
$commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"}) {
if ($commands->{"scripts"} ||
$commands->{"preinst"} ||
$commands->{"postinst"} ||
$commands->{"prerm"} ||
$commands->{"postrm"} ||
$commands->{"config"} ||
$commands->{"templates"}) {
scripts(\%commands);
}
menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
@ -158,9 +171,14 @@ sub findexer {
if ($commands->{"T"}) {
foreach (@alot) {
$argument = $_;
if ($commands->{"scripts"} || $commands->{"preinst"} ||
$commands->{"postinst"} || $commands->{"prerm"} ||
$commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"}) {
if ($commands->{"scripts"} ||
$commands->{"preinst"} ||
$commands->{"postinst"} ||
$commands->{"prerm"} ||
$commands->{"postrm"} ||
$commands->{"config"} ||
$commands->{"templates"}) {
scripts(\%commands);
}
menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
@ -198,9 +216,13 @@ sub findexer {
} # which_character
foreach (@alot) {
$argument = $_;
if ($commands->{"scripts"} || $commands->{"preinst"} ||
$commands->{"postinst"} || $commands->{"prerm"} ||
$commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"}) {
if ($commands->{"scripts"} ||
$commands->{"preinst"} ||
$commands->{"postinst"} ||
$commands->{"prerm"} ||
$commands->{"postrm"} ||
$commands->{"config"} ||
$commands->{"templates"}) {
scripts(\%commands);
}
menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
@ -241,13 +263,25 @@ sub findexer {
}
untie %ib;
if (!($commands->{"z"} || $commands->{"ftp"} ||
$commands->{"remove"} || $commands->{"r"} ||
$commands->{"purge"}|| $commands->{"reinstall"} )) {
if ($commands->{"x"} || $commands->{"ftp"} || $commands->{"source"} ||
$commands->{"source_only"} || $commands->{"remove"} ||
$commands->{"r"} || $commands->{"purge"}|| $commands->{"reinstall"} ) {
if (!($commands->{"z"} ||
$commands->{"ftp"} ||
$commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"purge"} ||
$commands->{"reinstall"} ||
$commands->{"build-dep"} )) {
if ($commands->{"x"} ||
$commands->{"ftp"} ||
$commands->{"source"} ||
$commands->{"source_only"} ||
$commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"purge"} ||
$commands->{"reinstall"} ||
$commands->{"build-dep"} ) {
require SWIM::Safex;
SWIM::Safex->import(qw(safex));
safex(\%commands);
}
@ -264,10 +298,15 @@ sub qindexer {
require SWIM::Ag;
SWIM::Ag->import(qw(description));
if ($commands->{"scripts"} || $commands->{"preinst"} ||
$commands->{"postinst"} || $commands->{"prerm"} ||
$commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"}) {
scripts(\%commands);
if ($commands->{"scripts"} ||
$commands->{"preinst"} ||
$commands->{"postinst"} ||
$commands->{"prerm"} ||
$commands->{"postrm"} ||
$commands->{"config"} ||
$commands->{"templates"}) {
scripts(\%commands);
}
menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
copyright(\%commands) if $commands->{"copyright"};
@ -296,9 +335,14 @@ sub qindexer {
my $package = $ib{"$argument"};
@alot = split(/\s/, $package);
@PACKAGES = @alot;
if ($commands->{"z"} || $commands->{"ftp"} ||
$commands->{"remove"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"reinstall"}) {
if ($commands->{"z"} ||
$commands->{"ftp"} ||
$commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"purge"} ||
$commands->{"reinstall"} ||
$commands->{"build-dep"}) {
require SWIM::Safex;
SWIM::Safex->import(qw(safex));
safex(\%commands);

47
SWIM/Indexer.pm
View File

@ -354,12 +354,17 @@ sub indexer {
if (@alot) {
@PACKAGES = @alot;
}
if ($commands->{"z"} || $commands->{"ftp"}||
$commands->{"remove"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"reinstall"}) {
require SWIM::Safex;
SWIM::Safex->import(qw(safex));
safex(\%commands);
if ($commands->{"z"} ||
$commands->{"ftp"}||
$commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"purge"} ||
$commands->{"reinstall"} ||
$commands->{"build-dep"}) {
require SWIM::Safex;
SWIM::Safex->import(qw(safex));
safex(\%commands);
}
@ -496,15 +501,27 @@ sub indexer {
if (@alot) {
@PACKAGES = @alot;
}
if (!($commands->{"z"} || $commands->{"ftp"} ||
$commands->{"remove"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"reinstall"})) {
if ($commands->{"x"} || $commands->{"ftp"} || $commands->{"source"} ||
$commands->{"source_only"} || $commands->{"remove"} ||
$commands->{"r"} || $commands->{"purge"} || $commands->{"reinstall"}) {
require SWIM::Safex;
SWIM::Safex->import(qw(safex));
safex(\%commands);
if (!($commands->{"z"} ||
$commands->{"ftp"} ||
$commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"purge"} ||
$commands->{"reinstall"} ||
$commands->{"build-dep"})) {
if ($commands->{"x"} ||
$commands->{"ftp"} ||
$commands->{"source"} ||
$commands->{"source_only"} ||
$commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"purge"} ||
$commands->{"reinstall"} ||
$commands->{"build-dep"}) {
require SWIM::Safex;
SWIM::Safex->import(qw(safex));
safex(\%commands);
}
}

123
SWIM/Safex.pm
View File

@ -42,7 +42,8 @@ sub safex {
$commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"purge"} ||
$commands->{"reinstall"}) {
$commands->{"reinstall"} ||
$commands->{"build-dep"}) {
if (!defined @PACKAGES) {
@ -75,7 +76,8 @@ sub safex {
$commands->{"purge"} ||
$commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"reinstall"} ) {
$commands->{"reinstall"} ||
$commands->{"build-dep"} ) {
if ($PACKAGES[$#PACKAGES] =~ /_/) {
$PACKAGES[$#PACKAGES] =~ m,(.*)_.*,;
$aptor = $1;
@ -97,7 +99,8 @@ sub safex {
$commands->{"purge"} ||
$commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"reinstall"}) {
$commands->{"reinstall"} ||
$commands->{"build-dep"}) {
if ($PACKAGES[$#PACKAGES] =~ /_/) {
$PACKAGES[$#PACKAGES] =~ m,(.*)_.*,;
$aptor = $1;
@ -189,32 +192,49 @@ sub xyz {
($commands->{"r"} ||
$commands->{"remove"} ||
$commands->{"purge"} ||
$commands->{"reinstall"}) ) {
$commands->{"reinstall"} ||
$commands->{"build-dep"}) ) {
print "swim: --ftp cannot be used with ";
print "-r " if defined $commands->{"r"};
print "--remove " if defined $commands->{"remove"};
print "--purge " if defined $commands->{"purge"};
print "--reinstall " if defined $commands->{"reinstall"};
print "--build-dep " if defined $commands->{"build-dep"};
print "\n";
exit;
}
if ((($commands->{"r"} ||
if (
(($commands->{"r"} ||
$commands->{"remove"}) &&
$commands->{"purge"}) ||
(($commands->{"r"} ||
$commands->{"remove"}) &&
$commands->{"build-dep"}) ||
(($commands->{"r"} ||
$commands->{"remove"}) &&
$commands->{"reinstall"}) ||
($commands->{"reinstall"} &&
$commands->{"purge"}) ||
($commands->{"reinstall"} &&
$commands->{"purge"})
) {
$commands->{"build-dep"}) ||
($commands->{"purge"} &&
$commands->{"build-dep"})
) {
print "swim: ";
print "-r " if defined $commands->{"r"};
print "--remove " if defined $commands->{"remove"};
print "--purge " if defined $commands->{"purge"};
print "--reinstall " if defined $commands->{"reinstall"};
print "--build-dep " if defined $commands->{"build-dep"};
print "cannot be used together\n";
exit;
}
@ -342,6 +362,9 @@ sub xyz {
elsif ( $commands->{"reinstall"} ) {
system "$apt_get --reinstall install -qs $arg";
}
elsif ( $commands->{"build-dep"} ) {
system "$apt_get build-dep -qs $arg";
}
else {
system "$apt_get install -qs $arg";
}
@ -401,6 +424,9 @@ sub xyz {
elsif ( $commands->{"reinstall"} ) {
system "$apt_get --reinstall install -qds $arg";
}
elsif ( $commands->{"build-dep"} ) {
system "$apt_get build-dep -qds $arg";
}
else {
system "$apt_get install -qds $arg";
}
@ -452,33 +478,43 @@ sub xyz {
#######
# XYZ #
#######
if (!($commands->{"ftp"} || $commands->{"purge"} ||
$commands->{"reinstall"})) {
if (!$commands->{"y"}) {
if (!$commands->{"download-only"}) {
!($commands->{"r"} || $commands{"remove"}) ?
system "$apt_get install $arg" :
system "$apt_get remove $arg";
}
else {
!($commands->{"r"} || $commands{"remove"}) ?
system "$apt_get -d install $arg" :
system "$apt_get remove $arg";
}
}
else {
if (!$commands->{"download-only"}) {
!($commands->{"r"} || $commands{"remove"}) ?
system "$apt_get install -y $arg" :
system "$apt_get remove -y $arg";
}
else {
# not that the y does anything
!($commands->{"r"} || $commands{"remove"}) ?
system "$apt_get install -y -d $arg" :
system "$apt_get remove -y $arg";
}
}
if (
!($commands->{"ftp"} ||
$commands->{"purge"} ||
$commands->{"reinstall"} ||
$commands->{"build-dep"} )
) {
if (!$commands->{"y"}) {
if (!$commands->{"download-only"}) {
!($commands->{"r"} || $commands{"remove"}) ?
system "$apt_get install $arg" :
system "$apt_get remove $arg";
}
else {
!($commands->{"r"} || $commands{"remove"}) ?
system "$apt_get -d install $arg" :
system "$apt_get remove $arg";
}
}
else {
if (!$commands->{"download-only"}) {
!($commands->{"r"} || $commands{"remove"}) ?
system "$apt_get install -y $arg" :
system "$apt_get remove -y $arg";
}
else {
# not that the y does anything or d for that matter
!($commands->{"r"} || $commands{"remove"}) ?
system "$apt_get install -y -d $arg" :
system "$apt_get remove -y $arg";
}
}
}
#######
# FTP #
@ -489,12 +525,17 @@ sub xyz {
qftp($arg,\%commands);
}
##############################
# PURGE & REMOVE & REINSTALL #
##############################
elsif ($commands->{"purge"} || $commands->{"remove"} || $commands->{"r"} ||
$commands->{"reinstall"}) {
##########################################
# PURGE & REMOVE & REINSTALL & BUILD-DEP #
#########################################
elsif ($commands->{"purge"} || $
commands->{"remove"} ||
$commands->{"r"} ||
$commands->{"reinstall"} ||
$commands->{"build-dep"} ) {
purge($arg,\%commands);
}
# this is a good time to return the versions, too, as well as
@ -530,6 +571,9 @@ sub purge {
elsif ($commands->{"reinstall"}) {
system "$apt_get --reinstall install $arg";
}
elsif ($commands->{"build-dep"}) {
system "$apt_get build-dep $arg";
}
}
else {
print "swim: ";
@ -537,6 +581,7 @@ sub purge {
print "--remove " if defined $commands->{"remove"};
print "--purge " if defined $commands->{"purge"};
print "--reinstall " if defined $commands->{"reinstall"};
print "--build-dep " if defined $commands->{"build-dep"};
print "can only be used with installed packages\n";
}

Write Preview
Loading…
Cancel
Save