bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-04-04 08:13:24 -04:00
Code Issues Projects Releases Wiki Activity

Added all the source options, rearranged the logic.

Browse Source
This commit is contained in:
freesource 2001-10-19 18:15:03 +00:00
parent efcac3dd3d
commit 81bd493ce3
5 changed files with 377 additions and 87 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
SWIM/File.pm
View File

@ -549,7 +549,9 @@ sub file {
$commands->{"r"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"})) { $commands->{"build-dep"} ||
$commands->{"source"}
)) {
if ($commands{"x"} || if ($commands{"x"} ||
$commands{"ftp"} || $commands{"ftp"} ||
@ -559,7 +561,9 @@ sub file {
$commands{"r"} || $commands{"r"} ||
$commands{"purge"} || $commands{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"}) { $commands->{"build-dep"} ||
$commands->{"source"}
) {
require SWIM::Safex; require SWIM::Safex;
SWIM::Safex->import(qw(safex)); SWIM::Safex->import(qw(safex));

17
SWIM/Findex.pm
View File

@ -73,7 +73,9 @@ sub findexer {
$commands->{"r"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"}) { $commands->{"build-dep"} ||
$commands->{"source"}
) {
require SWIM::Safex; require SWIM::Safex;
SWIM::Safex->import(qw(safex)); SWIM::Safex->import(qw(safex));
@ -269,7 +271,9 @@ sub findexer {
$commands->{"r"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"} )) { $commands->{"build-dep"} ||
$commands->{"source"}
)) {
if ($commands->{"x"} || if ($commands->{"x"} ||
$commands->{"ftp"} || $commands->{"ftp"} ||
@ -279,7 +283,10 @@ sub findexer {
$commands->{"r"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"} ) { $commands->{"build-dep"} ||
$commands->{"source"}
) {
require SWIM::Safex; require SWIM::Safex;
SWIM::Safex->import(qw(safex)); SWIM::Safex->import(qw(safex));
@ -341,7 +348,9 @@ sub qindexer {
$commands->{"r"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"}) { $commands->{"build-dep"} ||
$commands->{"source"}
) {
require SWIM::Safex; require SWIM::Safex;
SWIM::Safex->import(qw(safex)); SWIM::Safex->import(qw(safex));

12
SWIM/Indexer.pm
View File

@ -360,7 +360,9 @@ sub indexer {
$commands->{"r"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"}) { $commands->{"build-dep"} ||
$commands->{"source"}
) {
require SWIM::Safex; require SWIM::Safex;
SWIM::Safex->import(qw(safex)); SWIM::Safex->import(qw(safex));
@ -507,7 +509,9 @@ sub indexer {
$commands->{"r"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"})) { $commands->{"build-dep"} ||
$commands->{"source"}
)) {
if ($commands->{"x"} || if ($commands->{"x"} ||
$commands->{"ftp"} || $commands->{"ftp"} ||
@ -517,7 +521,9 @@ sub indexer {
$commands->{"r"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"}) { $commands->{"build-dep"} ||
$commands->{"source"}
) {
require SWIM::Safex; require SWIM::Safex;
SWIM::Safex->import(qw(safex)); SWIM::Safex->import(qw(safex));

410
SWIM/Safex.pm
View File

@ -37,13 +37,13 @@ sub safex {
if ($commands->{"x"} || if ($commands->{"x"} ||
$commands->{"ftp"} || $commands->{"ftp"} ||
$commands->{"source"} ||
$commands->{"source_only"} ||
$commands->{"remove"} || $commands->{"remove"} ||
$commands->{"r"} || $commands->{"r"} ||
$commands->{"purge"} || $commands->{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"}) { $commands->{"build-dep"} ||
$commands->{"source"}
) {
if (!defined @PACKAGES) { if (!defined @PACKAGES) {
@ -77,7 +77,10 @@ sub safex {
$commands->{"remove"} || $commands->{"remove"} ||
$commands->{"r"} || $commands->{"r"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"} ) { $commands->{"build-dep"} ||
$commands->{"source"}
) {
if ($PACKAGES[$#PACKAGES] =~ /_/) { if ($PACKAGES[$#PACKAGES] =~ /_/) {
$PACKAGES[$#PACKAGES] =~ m,(.*)_.*,; $PACKAGES[$#PACKAGES] =~ m,(.*)_.*,;
$aptor = $1; $aptor = $1;
@ -100,7 +103,10 @@ sub safex {
$commands->{"remove"} || $commands->{"remove"} ||
$commands->{"r"} || $commands->{"r"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"}) { $commands->{"build-dep"} ||
$commands->{"source"}
) {
if ($PACKAGES[$#PACKAGES] =~ /_/) { if ($PACKAGES[$#PACKAGES] =~ /_/) {
$PACKAGES[$#PACKAGES] =~ m,(.*)_.*,; $PACKAGES[$#PACKAGES] =~ m,(.*)_.*,;
$aptor = $1; $aptor = $1;
@ -193,7 +199,9 @@ sub xyz {
$commands->{"remove"} || $commands->{"remove"} ||
$commands->{"purge"} || $commands->{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"}) ) { $commands->{"build-dep"} ||
$commands->{"source"}
) ) {
print "swim: --ftp cannot be used with "; print "swim: --ftp cannot be used with ";
print "-r " if defined $commands->{"r"}; print "-r " if defined $commands->{"r"};
@ -201,6 +209,7 @@ sub xyz {
print "--purge " if defined $commands->{"purge"}; print "--purge " if defined $commands->{"purge"};
print "--reinstall " if defined $commands->{"reinstall"}; print "--reinstall " if defined $commands->{"reinstall"};
print "--build-dep " if defined $commands->{"build-dep"}; print "--build-dep " if defined $commands->{"build-dep"};
print "--source " if defined $commands->{"source"};
print "\n"; print "\n";
exit; exit;
} }
@ -208,24 +217,38 @@ sub xyz {
(($commands->{"r"} || (($commands->{"r"} ||
$commands->{"remove"}) && $commands->{"remove"}) &&
$commands->{"purge"}) || ($commands->{"purge"} ||
$commands->{"reinstall"} ||
(($commands->{"r"} || $commands->{"build-dep"} ||
$commands->{"remove"}) && $commands->{"source"})) ||
$commands->{"build-dep"}) ||
(($commands->{"r"} ||
$commands->{"remove"}) &&
$commands->{"reinstall"}) ||
($commands->{"reinstall"} && ($commands->{"reinstall"} &&
$commands->{"purge"}) || (($commands->{"r"} ||
$commands->{"remove"}) ||
($commands->{"reinstall"} && $commands->{"purge"} ||
$commands->{"build-dep"}) || $commands->{"build-dep"} ||
$commands->{"source"})) ||
($commands->{"purge"} && ($commands->{"purge"} &&
$commands->{"build-dep"}) (($commands->{"r"} ||
$commands->{"remove"}) ||
$commands->{"reinstall"} ||
$commands->{"build-dep"} ||
$commands->{"source"})) ||
($commands->{"build-dep"} &&
(($commands->{"r"} ||
$commands->{"remove"}) ||
$commands->{"reinstall"} ||
$commands->{"purge"} ||
$commands->{"source"})) ||
($commands->{"source"} &&
(($commands->{"r"} ||
$commands->{"remove"}) ||
$commands->{"reinstall"} ||
$commands->{"build-dep"} ||
$commands->{"purge"}))
) { ) {
@ -235,6 +258,7 @@ sub xyz {
print "--purge " if defined $commands->{"purge"}; print "--purge " if defined $commands->{"purge"};
print "--reinstall " if defined $commands->{"reinstall"}; print "--reinstall " if defined $commands->{"reinstall"};
print "--build-dep " if defined $commands->{"build-dep"}; print "--build-dep " if defined $commands->{"build-dep"};
print "--source " if defined $commands->{"source"};
print "cannot be used together\n"; print "cannot be used together\n";
exit; exit;
} }
@ -256,21 +280,23 @@ sub xyz {
print "\n"; print "\n";
exit; exit;
} }
if (($commands->{"source"} && $commands->{"source_only"})) {
print "swim: --source and --source_only cannot be used together\n";
exit;
}
if (($commands->{"source"} ||
$commands->{"source_only"}) &&
!$commands->{"ftp"}) { #if (($commands->{"source"} && $commands->{"source_only"})) {
# print "swim: --source and --source_only cannot be used together\n";
# exit;
#}
#if (($commands->{"source"} ||
# $commands->{"source_only"}) &&
# !$commands->{"ftp"}) {
# print "swim: --";
# print "source" if $commands->{"source"};
# print "source_only" if $commands->{"source_only"};
# print " cannot be used without --ftp\n";
# exit;
#}
print "swim: --";
print "source" if $commands->{"source"};
print "source_only" if $commands->{"source_only"};
print " cannot be used without --ftp\n";
exit;
}
if (($commands->{"y"} || $commands->{"z"} || $commands->{"download-only"}) && if (($commands->{"y"} || $commands->{"z"} || $commands->{"download-only"}) &&
!$commands->{"x"}) { !$commands->{"x"}) {
print "swim: requires -x option\n"; print "swim: requires -x option\n";
@ -365,6 +391,31 @@ sub xyz {
elsif ( $commands->{"build-dep"} ) { elsif ( $commands->{"build-dep"} ) {
system "$apt_get build-dep -qs $arg"; system "$apt_get build-dep -qs $arg";
} }
elsif ( $commands->{"source"} ) {
if ( $commands->{"tar-only"} ||
$commands->{"diff-only"} ||
($commands->{"tar-only"} &&
$commands->{"diff-only"})
) {
if ( $commands->{"tar-only"} ) {
system "$apt_get source --tar-only -qs $arg";
}
if ( $commands->{"diff-only"} ) {
system "$apt_get source --diff-only -qs $arg";
}
}
else {
if ( $commands->{"b"} ) {
system "$apt_get source -qbs $arg";
}
else {
system "$apt_get source -qs $arg";
}
}
}
else { else {
system "$apt_get install -qs $arg"; system "$apt_get install -qs $arg";
} }
@ -424,6 +475,41 @@ sub xyz {
elsif ( $commands->{"reinstall"} ) { elsif ( $commands->{"reinstall"} ) {
system "$apt_get --reinstall install -qds $arg"; system "$apt_get --reinstall install -qds $arg";
} }
elsif ( $commands->{"source"} ) {
if ( $commands->{"tar-only"} ) {
system "$apt_get source --tar-only -qds $arg";
}
elsif ( $commands->{"diff-only"} ) {
system "$apt_get source --diff-only -qds $arg";
}
else {
system "$apt_get source -qds $arg";
}
}
elsif ( $commands->{"source"} ) {
if ( $commands->{"tar-only"} ||
$commands->{"diff-only"} ||
($commands->{"tar-only"} &&
$commands->{"diff-only"})
) {
if ( $commands->{"tar-only"} ) {
system "$apt_get source --tar-only -qds $arg";
}
if ( $commands->{"diff-only"} ) {
system "$apt_get source --diff-only -qds $arg";
}
}
else {
if ( $commands->{"b"} ) {
system "$apt_get source -qdbs $arg";
}
else {
system "$apt_get source -qds $arg";
}
}
}
elsif ( $commands->{"build-dep"} ) { elsif ( $commands->{"build-dep"} ) {
system "$apt_get build-dep -qds $arg"; system "$apt_get build-dep -qds $arg";
} }
@ -482,37 +568,145 @@ sub xyz {
!($commands->{"ftp"} || !($commands->{"ftp"} ||
$commands->{"purge"} || $commands->{"purge"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"} ) $commands->{"build-dep"} ||
$commands->{"remove"} ||
$commands->{"r"} )
) { ) {
################################
# INSTALL SOURCE DOWNLOAD-ONLY #
################################
if (!$commands->{"y"}) { if (!$commands->{"y"}) {
if (!$commands->{"download-only"}) { if (!$commands->{"download-only"}) {
!($commands->{"r"} || $commands{"remove"}) ? if ( !$commands->{"source"} ) {
system "$apt_get install $arg" : system "$apt_get install $arg";
system "$apt_get remove $arg"; }
elsif ( $commands->{"source"} ) {
if ( $commands->{"tar-only"} ||
$commands->{"diff-only"} ||
($commands->{"tar-only"} &&
$commands->{"diff-only"})
) {
if ( $commands->{"tar-only"} ) {
system "$apt_get source --tar-only $arg";
}
if ( $commands->{"diff-only"} ) {
system "$apt_get source --diff-only $arg";
}
}
else {
if ( $commands->{"b"} ) {
system "$apt_get source -b $arg";
}
else {
system "$apt_get source $arg";
}
}
}
} }
else { else {
!($commands->{"r"} || $commands{"remove"}) ? if ( !$commands->{"source"} ) {
system "$apt_get -d install $arg" : system "$apt_get -d install $arg";
system "$apt_get remove $arg"; }
elsif ( $commands->{"source"} ) {
if ( $commands->{"tar-only"} ||
$commands->{"diff-only"} ||
($commands->{"tar-only"} &&
$commands->{"diff-only"})
) {
if ( $commands->{"tar-only"} ) {
system "$apt_get source -d --tar-only $arg";
}
if ( $commands->{"diff-only"} ) {
system "$apt_get source -d --diff-only $arg";
}
}
else {
if ( $commands->{"b"} ) {
system "$apt_get source -bd $arg";
}
else {
system "$apt_get source -d $arg";
}
}
}
} }
} }
#####
# Y #
#####
else { else {
if (!$commands->{"download-only"}) { if (!$commands->{"download-only"}) {
!($commands->{"r"} || $commands{"remove"}) ? if ( $commands->{"install"} ) {
system "$apt_get install -y $arg" : system "$apt_get install -y $arg";
system "$apt_get remove -y $arg"; }
elsif ( $commands->{"source"} ) {
if ( $commands->{"tar-only"} ||
$commands->{"diff-only"} ||
($commands->{"tar-only"} &&
$commands->{"diff-only"})
) {
if ( $commands->{"tar-only"} ) {
system "$apt_get source -y --tar-only $arg";
}
if ( $commands->{"diff-only"} ) {
system "$apt_get source -y --diff-only $arg";
}
}
else {
if ( $commands->{"b"} ) {
system "$apt_get source -by $arg";
}
else {
system "$apt_get source -y $arg";
}
}
}
} }
else { else {
# not that the y does anything or d for that matter if ( $commands->{"install"} ) {
!($commands->{"r"} || $commands{"remove"}) ? system "$apt_get install -y -d $arg";
system "$apt_get install -y -d $arg" : }
system "$apt_get remove -y $arg"; elsif ( $commands->{"source"} ) {
if ( $commands->{"tar-only"} ||
$commands->{"diff-only"} ||
($commands->{"tar-only"} &&
$commands->{"diff-only"})
) {
if ( $commands->{"tar-only"} ) {
system "$apt_get source -yd --tar-only $arg";
}
if ( $commands->{"diff-only"} ) {
system "$apt_get source -yd --diff-only $arg";
}
}
else {
if ( $commands->{"b"} ) {
system "$apt_get source -byd $arg";
}
else {
system "$apt_get source -y -d $arg";
}
}
}
} }
} }
} }
@ -525,14 +719,15 @@ sub xyz {
qftp($arg,\%commands); qftp($arg,\%commands);
} }
########################################## ########################################################
# PURGE & REMOVE & REINSTALL & BUILD-DEP # # PURGE & REMOVE & REINSTALL & BUILD-DEP DOWNLOAD-ONLY #
######################################### ########################################################
elsif ($commands->{"purge"} || $ elsif ($commands->{"purge"} ||
commands->{"remove"} || $commands->{"remove"} ||
$commands->{"r"} || $commands->{"r"} ||
$commands->{"reinstall"} || $commands->{"reinstall"} ||
$commands->{"build-dep"} ) { $commands->{"build-dep"}
){
purge($arg,\%commands); purge($arg,\%commands);
@ -560,30 +755,97 @@ sub purge {
my ($arg,$commands) = @_; my ($arg,$commands) = @_;
if (!$commands->{"n"}) {
if ($commands->{"purge"}) { if (!$commands->{"n"}) {
system "$apt_get --purge remove $arg";
# not yes
if (!$commands->{"y"}) {
# not download-only
if (!$commands->{"download-only"}) {
if ($commands->{"purge"}) {
system "$apt_get --purge remove $arg";
}
elsif ($commands->{"remove"} || $commands->{"r"}) {
system "$apt_get remove $arg";
}
elsif ($commands->{"reinstall"}) {
system "$apt_get --reinstall install $arg";
}
elsif ($commands->{"build-dep"}) {
system "$apt_get build-dep $arg";
}
}
# download-only
else {
if ($commands->{"purge"}) {
system "$apt_get --purge -d remove $arg";
}
elsif ($commands->{"remove"} || $commands->{"r"}) {
system "$apt_get -d remove $arg";
}
elsif ($commands->{"reinstall"}) {
system "$apt_get -d --reinstall install $arg";
}
elsif ($commands->{"build-dep"}) {
system "$apt_get -d build-dep $arg";
}
}
} }
elsif ($commands->{"remove"} || $commands->{"r"}) { # yes
system "$apt_get remove $arg"; else {
# not download-only
if (!$commands->{"download-only"}) {
if ($commands->{"purge"}) {
system "$apt_get -s --purge remove $arg";
}
elsif ($commands->{"remove"} || $commands->{"r"}) {
system "$apt_get -s remove $arg";
}
elsif ($commands->{"reinstall"}) {
system "$apt_get -s --reinstall install $arg";
}
elsif ($commands->{"build-dep"}) {
system "$apt_get -s build-dep $arg";
}
}
# download
else {
if ($commands->{"purge"}) {
system "$apt_get -sd --purge remove $arg";
}
elsif ($commands->{"remove"} || $commands->{"r"}) {
system "$apt_get -sd remove $arg";
}
elsif ($commands->{"reinstall"}) {
system "$apt_get -sd --reinstall install $arg";
}
elsif ($commands->{"build-dep"}) {
system "$apt_get -sd build-dep $arg";
}
}
} }
elsif ($commands->{"reinstall"}) {
system "$apt_get --reinstall install $arg"; }
} # if commands = -n
elsif ($commands->{"build-dep"}) { else {
system "$apt_get build-dep $arg"; print "swim: ";
} print "-r " if defined $commands->{"r"};
} print "--remove " if defined $commands->{"remove"};
else { print "--purge " if defined $commands->{"purge"};
print "swim: "; print "--reinstall " if defined $commands->{"reinstall"};
print "-r " if defined $commands->{"r"}; print "--build-dep " if defined $commands->{"build-dep"};
print "--remove " if defined $commands->{"remove"}; print "can only be used with installed packages\n";
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";
}
} # end sub purge } # end sub purge

15
swim
View File

@ -67,7 +67,8 @@ distribution a cinch.
Plan: Plan:
-- keeping just for historic interest -- keeping just for historic interest (and the previous has lots of history,
too).
Eventually add information about every executable and significant Eventually add information about every executable and significant
program every source ball has, and provide sophisticated searching program every source ball has, and provide sophisticated searching
@ -129,7 +130,10 @@ my($result) =
"remove", "r", # remove all, but conf. "remove", "r", # remove all, but conf.
"purge", # remove it all "purge", # remove it all
"reinstall", # reinstall "reinstall", # reinstall
"build-dep", # build dep packages for building a package "build-dep", # fetch package build deps
"source", # fetch source packages
"tar-only", # download tar source only
"diff-only", # download diff source only
"apt", # apt-get "apt", # apt-get
"update", # using sources.list "update", # using sources.list
"clean", # remove archives or apt2ftp "clean", # remove archives or apt2ftp
@ -1982,7 +1986,12 @@ usage:
--remove --remove
-r - remove the installed package, but not the -r - remove the installed package, but not the
package's configuration files package's configuration files
--reinstall - reinstall the installed package --reinstall - reinstall the installed package
--build-dep - satisfy package build dependencies
--source - fetch source packages
-b - compile source packages
--tar-only - download tar file only
--diff-only - download diff file only
Editing Option Editing Option
--stdin - allows readline editing capabilities when --stdin - allows readline editing capabilities when