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

Prettifying.

Browse Source
This commit is contained in:
freesource 2001-10-22 17:12:46 +00:00
parent 7f18ff576b
commit a27d9ae45e
1 changed files with 43 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
SWIM/Indexer.pm
View File

@ -40,6 +40,7 @@ sub T_indexer {
foreach (@$alot) { foreach (@$alot) {
$argument = $_; $argument = $_;
if ($commands->{"scripts"} || if ($commands->{"scripts"} ||
$commands->{"preinst"} || $commands->{"preinst"} ||
$commands->{"postinst"} || $commands->{"postinst"} ||
@ -63,6 +64,7 @@ sub T_indexer {
file(\%commands); file(\%commands);
} }
print "\n"; print "\n";
return;
} }
} # end sub T_indexer } # end sub T_indexer
@ -412,9 +414,17 @@ sub indexer {
# -t -C &| -D || -L # # -t -C &| -D || -L #
##################### #####################
# conf stuf. Will only show stuff related to -a or -f with conf. # conf stuf. Will only show stuff related to -a or -f with conf.
elsif (($commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"})) || elsif (
($commands->{"c"} && ($commands->{"d"} || $commands->{"l"}))) { ($commands->{"c"} &&
c_indexer(\@alot,\%commands); (!$commands->{"d"} ||
!$commands->{"l"})) ||
($commands->{"c"} &&
($commands->{"d"} ||
$commands->{"l"}))) {
c_indexer(\@alot,\%commands);
} # end elsif } # end elsif
} }
@ -438,6 +448,7 @@ sub indexer {
# -D # # -D #
###### ######
if ($commands->{"d"} && !$commands->{"c"}) { if ($commands->{"d"} && !$commands->{"c"}) {
if ($commands->{"T"}) { if ($commands->{"T"}) {
T_indexer(\@alot,\%commands); T_indexer(\@alot,\%commands);
} }
@ -451,9 +462,16 @@ sub indexer {
################ ################
# NOT -C,-D,-L # # NOT -C,-D,-L #
################ ################
elsif (!$commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"})) { elsif (!$commands->{"c"} &&
if ($commands->{"T"}) {
T_indexer(\@alot,\%commands); (!$commands->{"d"} || !$commands->{"l"})
) {
if ($commands->{"T"}) {
T_indexer(\@alot,\%commands);
} }
elsif (which_character(\%commands)) { elsif (which_character(\%commands)) {
which_character_indexer(\@alot,\%commands); which_character_indexer(\@alot,\%commands);
@ -468,14 +486,21 @@ sub indexer {
# -C &| -D || -L # # -C &| -D || -L #
################## ##################
# conf stuf. Will only show stuff related to -a or -f with conf. # conf stuf. Will only show stuff related to -a or -f with conf.
elsif (($commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"})) || elsif (
($commands->{"c"} && ($commands->{"d"} || $commands->{"l"}))) { ($commands->{"c"} &&
(!$commands->{"d"} || !$commands->{"l"})) ||
($commands->{"c"} &&
($commands->{"d"} || $commands->{"l"}))) {
c_indexer(\@alot,\%commands); c_indexer(\@alot,\%commands);
}
}
} # without -t
} } # without -t
else { }
else {
$argument =~ m,.*\/(.*$),; $argument =~ m,.*\/(.*$),;
if ($1) { if ($1) {
my $file = $1; my $file = $1;
@ -535,3 +560,8 @@ sub indexer {
1; 1;