Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Builtins / Hash.pm

package Psh::Builtins::Hash;

require Psh::Util;

=item * C<hash>

Shows information about Psh's executable and path hashes.

=item * C<hash -r>

Empties the path and executable hashes. This might be necessary if
executables are renamed/removed/added while you're logged in.

=cut


sub bi_hash {
       my @words=@{$_[1]};

       if (@words) {
               while (my $sub= shift @words) {
                       if (substr($sub,0,1) eq '-') {
                               if ($sub eq '-r') {
                                       %Psh::Util::command_hash=();
                                       %Psh::Util::path_hash=();
                               } else {
                                       Psh::Util::print_out("Unknown option $sub.\n");
                               }
                       } else {
                       }
               }
       }
       else {
               while (my ($key,$val)= each %Psh::Util::command_hash) {
                       Psh::Util::print_out("$key=$val\n");
               }
               while (my ($key,$val)= each %Psh::Util::path_hash) {
                       Psh::Util::print_out("$key=$val\n");
               }
       }
       return (1,undef);
}

1;