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

package Psh::Builtins::Ulimit;

require Psh::Util;

my %map= (
		  c => 'RLIMIT_CORE',
		  d => 'RLIMIT_DATA',
		  f => 'RLIMIT_FSIZE',
		  l => 'RLIMIT_MEMLOCK',
		  m => 'RLIMIT_RSS',
		  n => 'RLIMIT_NOFILE',
		  u => 'RLIMIT_NPROC',
		  s => 'RLIMIT_STACK',
		  t => 'RLIMIT_CPU',
          v => 'RLIMIT_AS',
		 );
my %desc=(
		  RLIMIT_CORE => 'maximum size of core files',
		  RLIMIT_DATA => 'maximum size of data segment',
		  RLIMIT_FSIZE => 'maximum file size',
		  RLIMIT_MEMLOCK => 'maximum size of locked memory',
		  RLIMIT_RSS => 'maximum resident size',
		  RLIMIT_NOFILE => 'maximum number of open files',
		  RLIMIT_NPROC => 'maximum number of user processes',
		  RLIMIT_STACK => 'maximum stack size',
		  RLIMIT_CPU => 'maximum cpu time',
		  RLIMIT_AS => 'size of virtual memory',
		 );

sub bi_ulimit {
	my $arg= shift;
	local @ARGV = @{shift()};

	eval {
		require BSD::Resource;
	};
	if ($@) {
		Psh::Util::print_error_i18n('bi_bsdresource');
		return (0,undef);
	}
	eval {
		require Getopt::Std;
	};
	my $limits= BSD::Resource::get_rlimits();

	push @ARGV,'-c' unless @ARGV;

	my $type='S';
	my $opts= join('', keys %map,'SHa');
	my %opts=();
	Getopt::Std::getopts($opts,\%opts);

	if ($opts{'H'}) {
		$type='H';
	}
	if ($opts{'a'}) {
		foreach (keys %$limits) {
			my ($soft, $hard)= BSD::Resource::getrlimit($limits->{$_});
			my $val= $soft;
			$val= $hard if $type eq 'H';
			$val= 'unlimited' if $val<0;
			next unless $desc{$_};
			Psh::Util::print_out(sprintf("%-50s %s\n",$desc{$_},$val));
		}
	}
	return (1,undef);
}

1;