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 / Readline.pm

package Psh::Builtins::Readline;

require Psh::Util;

=item * C<readline>

Prints out information about the current ReadLine module which is
being used for command line input. Very rudimentary at present, should 
be extended to allow rebinding, etc.

=cut

sub bi_readline
{
       Psh::Util::print_out_i18n('bi_readline_header',$Psh::term->ReadLine());

       my $featureref = $Psh::term->Features();

       for my $feechr (keys %{$featureref}) {
               Psh::Util::print_out("  $feechr => ${$featureref}{$feechr}\n");
       }

       return (1,undef);
}

1;