Cross Reference: /illumos-gate/usr/src/cmd/pgstat/pgstat.pl

Lines Matching refs:pg
101 my @sort_keys = qw(pg hwload swload user sys idle depth breadth);
110 my @pg_list;		# -P pg,...	- PG arguments
385 foreach my $pg (@pgs) {
386 	my $name =  $p->sh_name ($pg) || "unknown";
387 	my $level = $p->level($pg) || 0 if $do_levels;
390 		my $tags = $p->tags($pg);
392 		$name_of_pg{$pg} = $name;
395 	$name_of_pg{$pg} = $name;
505 	foreach my $pg (@pgs) {
507 		  get_load($p, $p_dup, $pg);
508 		my @cpus = $p->cpus ($pg);
510 		  $p->sw_utilization($p_dup, $pg);
515 		$pgs{$pg}->{pg} = $pg;
516 		$pgs{$pg}->{hwload} = $hwload;
517 		$pgs{$pg}->{swload} = $swload;
518 		$pgs{$pg}->{user} = $user;
519 		$pgs{$pg}->{sys} = $sys;
520 		$pgs{$pg}->{idle} = $idle;
521 		$pgs{$pg}->{utilization} = $utilization;
522 		$pgs{$pg}->{capacity} = $capacity;
527 		$history->{$pg}->{hwload} += $hwload if $hwload && $hwload >= 0;
528 		$history->{$pg}->{swload} += $swload if $swload;
529 		$history->{$pg}->{user} += $user if $user;
530 		$history->{$pg}->{sys} += $sys if $sys;
531 		$history->{$pg}->{idle} += $idle if $idle;
532 		$history->{$pg}->{maxhwload} = $hwload if
533 		  !defined($history->{$pg}->{maxhwload}) ||
534 		    $hwload > $history->{$pg}->{maxhwload};
535 		$history->{$pg}->{minhwload} = $hwload if
536 		  !defined($history->{$pg}->{minhwload}) ||
537 		    $hwload < $history->{$pg}->{minhwload};
538 		$history->{$pg}->{maxswload} = $swload if
539 		  !defined($history->{$pg}->{maxswload}) ||
540 		    $swload > $history->{$pg}->{maxswload};
541 		$history->{$pg}->{minswload} = $swload if
542 		  !defined($history->{$pg}->{minswload}) ||
543 		    $swload < $history->{$pg}->{minswload};
564 	foreach my $pg (@sorted_pgs) {
565 		my $shname = $name_of_pg{$pg};
569 			$level = $p->level($pg) - $minlevel;
573 		my $hwload = $pgs{$pg}->{hwload} || 0;
574 		my $swload = $pgs{$pg}->{swload};
576 		my @cpus = $p->cpus($pg);
580 		my $user = $pgs{$pg}->{user};
581 		my $sys = $pgs{$pg}->{sys};
582 		my $idle = $pgs{$pg}->{idle};
583 		my $utilization = $pgs{$pg}->{utilization};
584 		my $capacity = $pgs{$pg}->{capacity};
589 			    $pg, $shname,
597 			    $pg, $shname,
618 				     $p->cpu_utilization($p_dup, $pg, $cpu);
684 	foreach my $pg (@pgs) {
685 		$pgs{$pg}->{pg} = $pg;
688 		  get_load($p_initial, $p_dup, $pg);
690 		my @cpus = $p->cpus ($pg);
692 		  $p_dup->sw_utilization($p_initial, $pg);
697 		$pgs{$pg}->{pg} = $pg;
698 		$pgs{$pg}->{swload} = $swload;
699 		$pgs{$pg}->{user} = $user;
700 		$pgs{$pg}->{sys} = $sys;
701 		$pgs{$pg}->{idle} = $idle;
702 		$pgs{$pg}->{hwload} = $hwload;
703 		$pgs{$pg}->{utilization} = number_to_scaled_string($utilization);
704 		$pgs{$pg}->{capacity} = number_to_scaled_string($capacity);
705 		$pgs{$pg}->{minhwload} = $history->{$pg}->{minhwload};
706 		$pgs{$pg}->{maxhwload} = $history->{$pg}->{maxhwload};
707 		$pgs{$pg}->{minswload} = $history->{$pg}->{minswload} || 0;
708 		$pgs{$pg}->{maxswload} = $history->{$pg}->{maxswload} || 0;
754 	foreach my $pg (@sorted_pgs) {
755 		my $cpus = $p->cpus($pg);
757 		my $shname = $name_of_pg{$pg};
759 			my $level = $p->level($pg) - $minlevel;
764 		  $pg, $shname;
768 			  number_to_scaled_string($pgs{$pg}->{utilization}),
769 			    number_to_scaled_string($pgs{$pg}->{capacity});
772 		if (!defined($pgs{$pg}->{hwload}) ||
773 		    $pgs{$pg}->{hwload} == HWLOAD_UNDEF) {
778 			  load2str($pgs{$pg}->{minhwload}),
779 			  load2str($pgs{$pg}->{hwload}),
780 			  load2str($pgs{$pg}->{maxhwload});
783 		  load2str($pgs{$pg}->{minswload}),
784 		  load2str($pgs{$pg}->{swload}),
785 		  load2str($pgs{$pg}->{maxswload});
836 # get_load(snapshot1, snapshot2, pg)
849 	my $pg = shift;
851 	return HWLOAD_UNDEF if !$p->has_utilization($pg);
859 	$utilization = $p->utilization($p_dup, $pg) || 0;
860 	$capacity = $p_dup->capacity($pg);
861 	$accuracy = $p->accuracy($p_dup, $pg) || 0;
862 	$tdelta = $p->tdelta($p_dup, $pg);
950 	  gettext("\t\t[-r string] [-R string] [-P pg ...] [-c processor_id... ]\n");