#!/usr/bin/perl -w



use strict;

use Top;	       # treated like any other module



sub memfix ($) {

    	my $label = shift;

    	if ($label =~ m/(\d+)K/ && $1 > 8192) {

        		my $M = int($1 / 1024);

        		$label =~ s#$1K#${M}M#;

    	}

    	return $label;

}



sub names ($) {

    	my $ref	  = shift;

    	my @names = ();

    	for(my $i = 0; $val ne "NULL"; $i++) {

        		my $val = Top::ptrvalue($ref, $i);

        		push(@names, $val);

    	}

    	return(@names);

}



my $clear = 'clear';

# contains the OS specific field names

my($statics) = new statics();

# contains the raw system information

my($si)	     = new system_info();

# used to store process information

my($ps)	     = new process_select(); 

$ps->{idle}	     =  1;

$ps->{"system"} =  0;

$ps->{uid}	      = -1;



# Extract field names from their respective null-terminated lists.

Top::machine_init($statics);

my(@procstates) = names($statics->{procstate_names});

my(@cpustates)  = names($statics->{cpustate_names});

my(@memory)     = names($statics->{memory_names});



# We'll emulate top's basic display sixty times.

Top::get_system_info($si);

for (1 .. 60) {

    	sleep(1);



    	# Get the info and clear the screen

    	Top::get_system_info($si);

    	my $handle = Top::get_process_info($si, $ps);

    	print $clear;



    	# "load averages:  0.02,  0.05,	 0.01  20:43:09"

    	print("load averages");

    	for my $i (0 .. 2) {

            my $value =Top::ptrvalue($si->{load_avg},$i);

        	printf("%s %5.2f", $i == 0 ? ":" : ",", $value);

    	}

    	printf("\t\t\t\t      %2d:%02d:%02d\n", 

                              reverse((localtime())[0..2]));



    	# "34 processes: 1 running, 32 sleeping, 1 stopped"

    	printf("%d processes: ", $si->{p_total});

    	for my $i (0 .. $#procstates) {

           my $value = Top::ptrvalue($si->{procstates},$i);

            next 	unless $value;

            printf("%d%s", $value, $procstates[$i]);

    	}

    	print("\n");



    	# "CPU states:	2.3% user,  0.0% nice,	1.5% system,  

        # 0.0% interrupt, 96.2% idle"

    	my $sum = 0;

    	for my $i (0 .. $#cpustates) { 	

		    $sum += Top::ptrvalue($si->{cpustates}, $i) }

    	$sum /= 100.0;

    	for my $i (0 .. $#cpustates) {

            my $percent = Top::ptrvalue($si->{cpustates},$i)/$sum;

               my $value  = $percent == 100.0 	? "100" : 

			                 sprintf("%4.1f", $percent);  

               printf("%s %4s%% %s", $i == 0 ? "CPU states:" : ",", 

                      $value, $cpustates[$i]);

    	}

    	print("\n");



    	# "Mem: 25M Active, 3752K Inact, 14M Wired, 8M Cache, 

		#  7323K Buf, 8M Free"

    	print("Mem: ");

    	for my $i (0 .. $#memory) {

        		my $value = Top::ptrvalue($si->{memory},$i);

        		next 	if $value == 0;

        		print(memfix("$value$memory[$i]"));

    	}

    	print("\n");



    	# "29938 root   28   0  1204K  1648K RUN   

        #  0:00 20.31%  0.99% perl"

    	print("\n");

    	print(Top::full_format_header("USERNAME"), "\n");

    	for my $p (1 .. $si->{p_total}) {

            print(Top::full_format_next_process($handle), "\n");

    	}

}