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

package Psh::Builtins::Function;

require Psh::PerlEval;
require Psh::Support::Functions;

=item * C<function>

Function tries to emulate the functionality of bash's function builtin

=cut

sub bi_function
{
       $_[0]=~/^\s*(\S+)\s*\{(.*)\}\s*$/s;
       my $name=$1;
       my $def= $2;
       if ($name and $def) {
               Psh::Support::Functions::add_function($name,$def);
               Psh::PerlEval::protected_eval(qq[sub $name { Psh::Support::Functions::call_function($name); }], 'eval');
       }
       return (1,undef);
}

1;