cmd/lgrpinfo/lgrpinfo.pl

244 	# Walk through each requested lgrp and print whatever is requested.
245 	foreach my $lgrp (@lgrp_list) {
246 		my $is_leaf = $l->isleaf($lgrp);
249 		my $prefix = ($lgrp == $root) ?
251 		printf gettext("lgroup %d (%s):"), $lgrp, $prefix;
254 			# Get children of this lgrp.
255 			my @children = $l->children($lgrp);
259 			# Are there any parents for this lgrp?
260 			my @parents = $l->parents($lgrp);
267 			$cpus = lgrp_showcpus($lgrp, LGRP_CONTENT_HIERARCHY);
270 			$memstr = lgrp_showmemory($lgrp, LGRP_CONTENT_HIERARCHY);
273 			$rsrc = lgrp_showresources($lgrp);
276 		# Print all the information about lgrp.
281 		print "\n\t$loads->{$lgrp}"	if defined ($loads->{$lgrp});
282 		if ($do_lat && defined($self_latencies{$lgrp})) {
283 		    printf gettext("\n\tLatency: %d"), $self_latencies{$lgrp};
300 	print STDERR " [-aceGlLmrt] [-u unit] [-C|-P] [lgrp] ...\n";
301 	print STDERR "      \t$cmdname -I [-c] [-G] [-C|-P] [lgrp] ...\n";
327 	  gettext("    The lgrp may be specified as an lgroup ID,"),
380 # 	Translate 'root' to the root lgrp id
394 	foreach my $lgrp (@_) {
395 		push(@result, $lobj->root),   next if $lgrp =~ m/^root$/i;
396 		push(@result, @lgrps),	      next if $lgrp =~ m/^all$/i;
397 		push(@result, $lobj->leaves), next if $lgrp =~ m/^leaves$/i;
399 		  next if $lgrp =~ m/^intermediate$/i;
400 		push(@result, $lgrp),
401 		  next if $lgrp =~ m/^\d+$/ && $seen{$lgrp};
402 		printf STDERR gettext("%s: skipping invalid lgrp $lgrp\n"),
420 	my $lgrp = shift || $c->root;
423 	[ (map { lgrp_tree($c, $_) } $c->children($lgrp)), $lgrp ];
472 	my $lgrp = shift;
475 	my $is_interm = ($lgrp != $root && !$l->isleaf($lgrp));
476 	my $not_root = $is_uma || $lgrp != $root;
478 	print "$lgrp";
481 		$cpus   = lgrp_showcpus($lgrp, LGRP_CONTENT_HIERARCHY);
484 		$memstr = lgrp_showmemory($lgrp, LGRP_CONTENT_HIERARCHY);
487 		$rsrc   = lgrp_showresources($lgrp) if $do_rsrc;
490 	# Print all the information about lgrp.
495 	print "\n$prefix$loads->{$lgrp}"	if defined ($loads->{$lgrp});
498 	if ($do_lat && $lgrp != $root && defined($self_latencies{$lgrp})) {
500 		printf gettext("Latency: %d"), $self_latencies{$lgrp};
505 # What CPUs are in this lgrp?
508 	my $lgrp = shift;
511 	my @cpus = $l->cpus($lgrp, $hier);
522 # How much memory does this lgrp contain?
525 	my $lgrp = shift;
528 	my $memory = $l->mem_size($lgrp, LGRP_MEM_SZ_INSTALLED, $hier);
530 	my $freemem = $l->mem_size($lgrp, LGRP_MEM_SZ_FREE, $hier) || 0;
548 	my $lgrp = shift;
551 	my @resources_cpu = nsort($l->resources($lgrp, LGRP_RSRC_CPU));
552 	my @resources_mem = nsort($l->resources($lgrp, LGRP_RSRC_MEM));
729 # Read load averages from lgrp kstats Return hash reference indexed by lgroup ID
740 	my $lgrp_kstats = $ks->{lgrp} or
741 	  warn(gettext("$cmdname: can not read lgrp kstat\n)")),
746 		next unless $lgrp_kstats->{$i}->{"lgrp$i"};
747 		my $lav = $lgrp_kstats->{$i}->{"lgrp$i"}->{"load average"};
750 		my $scale = $lgrp_kstats->{$i}->{"lgrp$i"}->{"loadscale"} ||