projects
/
OpenSPARC-T2-DV
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Initial commit of OpenSPARC T2 design and verification files.
[OpenSPARC-T2-DV]
/
tools
/
perl-5.8.0
/
lib
/
site_perl
/
5.8.0
/
sun4-solaris
/
Tk
/
Stats.pm
package
Tk
::
Stats
;
(
$lu
,
$ls
) =
times
;
use
vars
qw(
$VERSION
);
$VERSION
= '3.006'; #
$Id
: //depot/Tk8/Tk/Stats.pm#6 $
sub stats
{
my (
$u
,
$s
) = times;
my
$du
=
$u
-
$lu
;
my
$ds
=
$s
-
$ls
;
$ls
=
$s
;
$lu
=
$u
;
print sprintf(' dt=
%4
.2f du=
%4
.2f ds=
%4
.2f',
$du
+
$ds
,
$du
,
$ds
);
print sprintf(' t=
%4
.2f u=
%4
.2f s=
%4
.2f',
$u
+
$s
,
$u
,
$s
);
print ' ',shift,"
\n
";
}
sub import
{
stats(
$_
[1]);
}
1;