Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Support / Functions.pm

package Psh::Support::Functions;

require Psh;

my %functions=();

sub add_function {
       my $name= shift;
       my $text= shift;
       $functions{$name}= [map { $_."\n" } split /\n/, $text];
}

sub call_function {
       my $name= shift;
       Psh::process_variable($functions{$name}) if $functions{$name};
}

sub remove_function {
       my $name= shift;
       delete $functions{$name};
}

sub get_function {
       my $name= shift;
       return $functions{$name};
}

sub list {
       return sort keys %functions;
}

1;