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

package Psh::Builtins::Source;

require Psh::Util;
require Psh;

=item * C<source FILE> [or C<. FILE>]

Read and process the contents of the given file as a sequence of B<psh>
commands.

=cut

sub bi_source
{
       local $Psh::echo = 0;
       local $Psh::interactive= 0;
       foreach my $file (@{$_[1]}) {
               print "$file\n";
               Psh::process_file(Psh::Util::abs_path($file));
       }

       return (1,undef);
}

1;