From 673787cbdab4a47b0b3cb987866c57704d7bdee9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 23 Aug 1999 13:01:55 +0000
Subject: no_comment

---
 perl-install/commands.pm | 42 +++++++++++++++++++++++-------------------
 1 file changed, 23 insertions(+), 19 deletions(-)

(limited to 'perl-install/commands.pm')

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 9b06743fa..4a4340f2f 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -246,25 +246,29 @@ sub cp {
     &$cp(@_);
 }
 
-#sub ps {
-#    @_ and die "usage: ps\n";
-#    my ($pid, $cmd);
-#
-#    local (*STDOUT_TOP, *STDOUT);
-#    format STDOUT_TOP =
-#  PID   CMD
-#.
-#    format =
-#@>>>>  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-#$pid, $cmd
-#.
-#
-#    foreach $pid (sort {$a <=> $b} grep { /\d+/ } all('/proc')) {
-#	 (($cmd) = cat_("/proc/$pid/cmdline")) =~ s/\0/ /g;
-#	 $cmd ||= (split ' ', (cat_("/proc/$pid/stat"))[0])[1];
-#	 write STDOUT
-#    }
-#}
+sub ps {
+    @_ and die "usage: ps\n";
+    my ($pid, $cpu, $cmd);
+    my $uptime = int first(cat_("/proc/uptime"));
+    my $hertz = 100;
+
+    local (*STDOUT_TOP);
+    format STDOUT_TOP =
+  PID   CMD
+.
+    format =
+@>>>>  @>>> @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+$pid, $cpu, $cmd
+.
+
+    foreach $pid (sort {$a <=> $b} grep { /\d+/ } all('/proc')) {
+	 my @l = split(' ', cat_("/proc/$pid/stat"));
+	 $cpu = sprintf "%2.1f", max(0, min(99, ($l[13] + $l[14]) * 100 / $hertz / ($uptime - $l[21] / $hertz)));
+	 (($cmd) = cat_("/proc/$pid/cmdline")) =~ s/\0/ /g;
+	 $cmd ||= (split ' ', (cat_("/proc/$pid/stat"))[0])[1];
+	 write STDOUT;
+    }
+}
 
 
 sub dd {
-- 
cgit v1.2.1