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

No code change, just prettifying.

Browse Source
This commit is contained in:
freesource 2001-10-21 03:58:45 +00:00
parent aba982e9ae
commit 34fac3917a
1 changed files with 150 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

202
SWIM/Pn_print.pm
View File

@ -34,64 +34,162 @@ sub singular {
my %commands = %$commands; my %commands = %$commands;
# for files, dirs, or groups # for files, dirs, or groups
if (($commands->{"f"} || $commands->{"dir"} || $commands->{"g"} || if (
$commands->{"q"}) && ($commands->{"f"} ||
!($commands->{"i"} || $commands->{"l"} || $commands->{"dir"} ||
$commands->{"df"} || $commands->{"d"} || $commands->{"c"} || $commands->{"g"} ||
$commands->{"scripts"} || $commands->{"preinst"} || $commands->{"postinst"} || $commands->{"q"}) &&
$commands->{"prerm"} || $commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"} || $commands->{"T"} ||
$commands->{"pre_depends"} || $commands->{"depends"} || !($commands->{"i"} ||
$commands->{"recommends"} || $commands->{"suggests"} || $commands->{"l"} ||
$commands->{"provides"} || $commands->{"replaces"} || $commands->{"df"} ||
$commands->{"conflicts"} || $commands->{"requires"} || $commands->{"d"} ||
$commands->{"changelog"} || $commands->{"m"} || $commands->{"menu"} || $commands->{"c"} ||
$commands->{"copyright"})) { $commands->{"scripts"} ||
print "$argument\n"; $commands->{"preinst"} ||
$commands->{"postinst"} ||
$commands->{"prerm"} ||
$commands->{"postrm"} ||
$commands->{"config"} ||
$commands->{"templates"} ||
$commands->{"T"} ||
$commands->{"pre_depends"} ||
$commands->{"depends"} ||
$commands->{"recommends"} ||
$commands->{"suggests"} ||
$commands->{"provides"} ||
$commands->{"replaces"} ||
$commands->{"conflicts"} ||
$commands->{"requires"} ||
$commands->{"changelog"} ||
$commands->{"m"} ||
$commands->{"menu"} ||
$commands->{"copyright"})
) {
print "$argument\n";
} }
elsif (($commands->{"f"} || $commands->{"dir"} || $commands->{"g"} || elsif (
$commands->{"q"}) && ($commands->{"f"} ||
$commands {"c"} && !($commands->{"i"} || $commands->{"dir"} ||
$commands->{"df"} || $commands->{"d"} || $commands->{"l"} || $commands->{"g"} ||
$commands->{"scripts"} || $commands->{"preinst"} || $commands->{"postinst"} || $commands->{"q"}) &&
$commands->{"prerm"} || $commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"} || $commands->{"T"} &&
$commands->{"pre_depends"} || $commands->{"depends"} || $commands {"c"} &&
$commands->{"recommends"} || $commands->{"suggests"} ||
$commands->{"provides"} || $commands->{"replaces"} || !($commands->{"i"} ||
$commands->{"conflicts"} || $commands->{"requires"} || $commands->{"df"} ||
$commands->{"changelog"} || $commands->{"m"} || $commands->{"menu"} || $commands->{"d"} ||
$commands->{"copyright"})) { $commands->{"l"} ||
print "$argument\n"; $commands->{"scripts"} ||
$commands->{"preinst"} ||
$commands->{"postinst"} ||
$commands->{"prerm"} ||
$commands->{"postrm"} ||
$commands->{"config"} ||
$commands->{"templates"} ||
$commands->{"T"} &&
$commands->{"pre_depends"} ||
$commands->{"depends"} ||
$commands->{"recommends"} ||
$commands->{"suggests"} ||
$commands->{"provides"} ||
$commands->{"replaces"} ||
$commands->{"conflicts"} ||
$commands->{"requires"} ||
$commands->{"changelog"} ||
$commands->{"m"} ||
$commands->{"menu"} ||
$commands->{"copyright"})
) {
print "$argument\n";
} }
elsif (($commands->{"f"} || $commands->{"dir"} || $commands->{"g"} || elsif (
$commands->{"q"}) && ($commands->{"f"} ||
$commands {"c"} && $commands->{"d"} && $commands->{"dir"} ||
!($commands->{"i"} || $commands->{"df"} || $commands->{"l"} || $commands->{"g"} ||
$commands->{"scripts"} || $commands->{"preinst"} || $commands->{"postinst"} || $commands->{"q"}) &&
$commands->{"prerm"} || $commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"} || $commands->{"T"} ||
$commands->{"pre_depends"} || $commands->{"depends"} || $commands {"c"} &&
$commands->{"recommends"} || $commands->{"suggests"} || $commands->{"d"} &&
$commands->{"provides"} || $commands->{"replaces"} ||
$commands->{"conflicts"} || $commands->{"requires"} || !($commands->{"i"} ||
$commands->{"changelog"} || $commands->{"m"} || $commands->{"menu"} || $commands->{"df"} ||
$commands->{"copyright"})) { $commands->{"l"} ||
print "$argument\n"; $commands->{"scripts"} ||
$commands->{"preinst"} ||
$commands->{"postinst"} ||
$commands->{"prerm"} ||
$commands->{"postrm"} ||
$commands->{"config"} ||
$commands->{"templates"} ||
$commands->{"T"} ||
$commands->{"pre_depends"} ||
$commands->{"depends"} ||
$commands->{"recommends"} ||
$commands->{"suggests"} ||
$commands->{"provides"} ||
$commands->{"replaces"} ||
$commands->{"conflicts"} ||
$commands->{"requires"} ||
$commands->{"changelog"} ||
$commands->{"m"} ||
$commands->{"menu"} ||
$commands->{"copyright"})
) {
print "$argument\n";
} }
elsif (($commands->{"f"} || $commands->{"dir"} || $commands->{"g"} || elsif (
$commands->{"q"}) && ($commands->{"f"} ||
$commands {"c"} && ($commands->{"d"} || $commands->{"dir"} ||
$commands->{"l"}) && !($commands->{"i"} || $commands->{"df"} || $commands->{"g"} ||
$commands->{"scripts"} || $commands->{"preinst"} || $commands->{"postinst"} || $commands->{"q"}) &&
$commands->{"prerm"} || $commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"} || $commands->{"T"} ||
$commands->{"pre_depends"} || $commands->{"depends"} || $commands {"c"} &&
$commands->{"recommends"} || $commands->{"suggests"} ||
$commands->{"provides"} || $commands->{"replaces"} || ($commands->{"d"} ||
$commands->{"conflicts"} || $commands->{"requires"} || $commands->{"l"}) &&
$commands->{"changelog"} || $commands->{"m"} || $commands->{"menu"} ||
$commands->{"copyright"})) { !($commands->{"i"} ||
print "$argument\n"; $commands->{"df"} ||
$commands->{"scripts"} ||
$commands->{"preinst"} ||
$commands->{"postinst"} ||
$commands->{"prerm"} ||
$commands->{"postrm"} ||
$commands->{"config"} ||
$commands->{"templates"} ||
$commands->{"T"} ||
$commands->{"pre_depends"} ||
$commands->{"depends"} ||
$commands->{"recommends"} ||
$commands->{"suggests"} ||
$commands->{"provides"} ||
$commands->{"replaces"} ||
$commands->{"conflicts"} ||
$commands->{"requires"} ||
$commands->{"changelog"} ||
$commands->{"m"} ||
$commands->{"menu"} ||
$commands->{"copyright"})
) {
print "$argument\n";
} }
} # end sub singular } # end sub singular
# Now that is fun.
1; 1;