fort not included in "all" or "install" until f77 copy of sources
[unix-history] / usr / src / old / refer / hunt / tick.c
/* time programs */
# include "stdio.h"
# include "sys/types.h"
# include "sys/timeb.h"
struct tbuffer {
long proc_user_time;
long proc_system_time;
long child_user_time;
long child_system_time;
};
static long start, user, system;
tick()
{
struct tbuffer tx;
struct timeb tp;
times (&tx);
ftime (&tp);
user = tx.proc_user_time;
system= tx.proc_system_time;
start = tp.time*1000+tp.millitm;
}
tock()
{
struct tbuffer tx;
struct timeb tp;
float lap, use, sys;
if (start==0) return;
times (&tx);
ftime (&tp);
lap = (tp.time*1000+tp.millitm-start)/1000.;
use = (tx.proc_user_time - user)/60.;
sys = (tx.proc_system_time - system)/60.;
printf("Elapsed %.2f CPU %.2f (user %.2f, sys %.2f)\n",
lap, use+sys, use, sys);
}