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

package Psh::Support::Builtins;

my %builtins=();
my %builtin_aliases= (
					  '.' => 'source',
					  'options' => 'option',
					 );

# Returns a list of builtins
sub get_builtin_commands {
	return sort keys %builtins;
}

# Called during initialization
sub build_autoload_list {
	%builtins= ();

	my $unshift='';
	foreach my $tmp (@INC) {
		my $tmpdir= Psh::OS::catdir($tmp,'Psh','Builtins');
		if (-r $tmpdir) {
			$unshift=$tmp;
			my @files= Psh::OS::glob('*.pm',$tmpdir,1);
			foreach( @files) {
				s/\.pm$//;
				$_= lc($_);
				$builtins{$_}= 1;
			}
		}
	}
	unshift @INC, $unshift if $unshift;
}

sub is_builtin {
	my $name= shift;
	$name= $builtin_aliases{$name} if $builtin_aliases{$name};
	return $name if $builtins{$name};
	return 0;
}


1;