bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-02-22 00:23:28 -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) {
$argument = $_;
if ($commands->{"scripts"} ||
$commands->{"preinst"} ||
$commands->{"postinst"} ||
@ -63,6 +64,7 @@ sub T_indexer {
file(\%commands);
}
print "\n";
return;
}
} # end sub T_indexer
@ -412,9 +414,17 @@ sub indexer {
# -t -C &| -D || -L #
#####################
# conf stuf. Will only show stuff related to -a or -f with conf.
elsif (($commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"})) ||
($commands->{"c"} && ($commands->{"d"} || $commands->{"l"}))) {
c_indexer(\@alot,\%commands);
elsif (
($commands->{"c"} &&
(!$commands->{"d"} ||
!$commands->{"l"})) ||
($commands->{"c"} &&
($commands->{"d"} ||
$commands->{"l"}))) {
c_indexer(\@alot,\%commands);
} # end elsif
}
@ -438,6 +448,7 @@ sub indexer {
# -D #
######
if ($commands->{"d"} && !$commands->{"c"}) {
if ($commands->{"T"}) {
T_indexer(\@alot,\%commands);
}
@ -451,9 +462,16 @@ sub indexer {
################
# NOT -C,-D,-L #
################
elsif (!$commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"})) {
if ($commands->{"T"}) {
T_indexer(\@alot,\%commands);
elsif (!$commands->{"c"} &&
(!$commands->{"d"} || !$commands->{"l"})
) {
if ($commands->{"T"}) {
T_indexer(\@alot,\%commands);
}
elsif (which_character(\%commands)) {
which_character_indexer(\@alot,\%commands);
@ -468,14 +486,21 @@ sub indexer {
# -C &| -D || -L #
##################
# conf stuf. Will only show stuff related to -a or -f with conf.
elsif (($commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"})) ||
($commands->{"c"} && ($commands->{"d"} || $commands->{"l"}))) {
elsif (
($commands->{"c"} &&
(!$commands->{"d"} || !$commands->{"l"})) ||
($commands->{"c"} &&
($commands->{"d"} || $commands->{"l"}))) {
c_indexer(\@alot,\%commands);
}
} # without -t
}
else {
}
} # without -t
}
else {
$argument =~ m,.*\/(.*$),;
if ($1) {
my $file = $1;
@ -535,3 +560,8 @@ sub indexer {
1;