[unix-history] / usr / src / bin / csh / time.c

/*	time.c	4.2	82/12/30	*/

#include "sh.h"

/*
 * C Shell - routines handling process timing and niceing
 */
struct	tms times0;
struct	tms timesdol;

settimes()
{
	struct rusage ruch;

	time(&time0);
	getrusage(RUSAGE_SELF, &ru0);
	getrusage(RUSAGE_CHILDREN, &ruch);
	ruadd(&ru0, &ruch);
}

/*
 * dotime is only called if it is truly a builtin function and not a
 * prefix to another command
 */
dotime()
{
	time_t timedol;
	struct rusage ru1, ruch;

	getrusage(RUSAGE_SELF, &ru1);
	getrusage(RUSAGE_CHILDREN, &ruch);
	ruadd(&ru1, &ruch);
	time(&timedol);
	prusage(&ru0, &ru1, timedol - time0);
}

/*
 * donice is only called when it on the line by itself or with a +- value
 */
donice(v)
	register char **v;
{
	register char *cp;

	v++, cp = *v++;
	if (cp == 0) {
#ifndef V6
		nice(20);
		nice(-10);
#endif
		nice(4);
	} else if (*v == 0 && any(cp[0], "+-")) {
#ifndef V6
		nice(20);
		nice(-10);
#endif
		nice(getn(cp));
	}
}

ruadd(ru, ru2)
	register struct rusage *ru, *ru2;
{
	register long *lp, *lp2;
	register int cnt;

	tvadd(&ru->ru_utime, &ru2->ru_utime);
	tvadd(&ru->ru_stime, &ru2->ru_stime);
	if (ru2->ru_maxrss > ru->ru_maxrss)
		ru->ru_maxrss = ru2->ru_maxrss;
	cnt = &ru->ru_last - &ru->ru_first + 1;
	lp = &ru->ru_first; lp2 = &ru2->ru_first;
	do
		*lp++ += *lp2++;
	while (--cnt > 0);
}

prusage(r0, r1, sec)
	register struct rusage *r0, *r1;
	time_t sec;
{
	register time_t t =
	    (r1->ru_utime.tv_sec-r0->ru_utime.tv_sec)*100+
	    (r1->ru_utime.tv_usec-r0->ru_utime.tv_usec)/10000+
	    (r1->ru_stime.tv_sec-r0->ru_stime.tv_sec)*100+
	    (r1->ru_stime.tv_usec-r0->ru_stime.tv_usec)/10000;
	register char *cp;
	register int i;
	register struct varent *vp = adrof("time");

	cp = "%Uu %Ss %E %P %X+%Dk %I+%Oio %Fpf+%Ww";
	if (vp && vp->vec[0] && vp->vec[1])
		cp = vp->vec[1];
	for (; *cp; cp++)
	if (*cp != '%')
		putchar(*cp);
	else if (cp[1]) switch(*++cp) {

	case 'U':
		pdeltat(&r1->ru_utime, &r0->ru_utime);
		break;

	case 'S':
		pdeltat(&r1->ru_stime, &r0->ru_stime);
		break;

	case 'E':
		psecs(sec);
		break;

	case 'P':
		printf("%d%%", (int) (t / ((sec ? sec : 1))));
		break;

	case 'W':
		i = r1->ru_nswap - r0->ru_nswap;
		printf("%d", i);
		break;

	case 'X':
		printf("%d", t == 0 ? 0 : (r1->ru_ixrss-r0->ru_ixrss)/t);
		break;

	case 'D':
		printf("%d", t == 0 ? 0 :
		    (r1->ru_idrss+r1->ru_isrss-(r0->ru_idrss+r0->ru_isrss))/t);
		break;

	case 'K':
		printf("%d", t == 0 ? 0 :
		    ((r1->ru_ixrss+r1->ru_isrss+r1->ru_idrss) -
		    (r0->ru_ixrss+r0->ru_idrss+r0->ru_isrss))/t);
		break;

	case 'M':
		printf("%d", r1->ru_maxrss/2);
		break;

	case 'F':
		printf("%d", r1->ru_majflt-r0->ru_majflt);
		break;

	case 'R':
		printf("%d", r1->ru_minflt-r0->ru_minflt);
		break;

	case 'I':
		printf("%d", r1->ru_inblock-r0->ru_inblock);
		break;

	case 'O':
		printf("%d", r1->ru_oublock-r0->ru_oublock);
		break;
	}
	putchar('\n');
}

pdeltat(t1, t0)
	struct timeval *t1, *t0;
{
	struct timeval td;

	tvsub(&td, t1, t0);
	printf("%d.%01d", td.tv_sec, td.tv_usec/100000);
}

tvadd(tsum, t0)
	struct timeval *tsum, *t0;
{

	tsum->tv_sec += t0->tv_sec;
	tsum->tv_usec += t0->tv_usec;
	if (tsum->tv_usec > 1000000)
		tsum->tv_sec++, tsum->tv_usec -= 1000000;
}

tvsub(tdiff, t1, t0)
	struct timeval *tdiff, *t1, *t0;
{

	tdiff->tv_sec = t1->tv_sec - t0->tv_sec;
	tdiff->tv_usec = t1->tv_usec - t0->tv_usec;
	if (tdiff->tv_usec < 0)
		tdiff->tv_sec--, tdiff->tv_usec += 1000000;
}
Commit	Line	Data
ea775389	1	/* time.c 4.2 82/12/30 */
35867765 BJ	2
	3	#include "sh.h"
	4
	5	/*
	6	* C Shell - routines handling process timing and niceing
	7	*/
35867765 BJ	8	struct tms times0;
35867765 BJ	9	struct tms timesdol;
35867765 BJ	10
	11	settimes()
	12	{
ea775389	13	struct rusage ruch;
35867765 BJ	14
35867765 BJ	15	time(&time0);
ea775389 SL	16	getrusage(RUSAGE_SELF, &ru0);
	17	getrusage(RUSAGE_CHILDREN, &ruch);
	18	ruadd(&ru0, &ruch);
35867765 BJ	19	}
	20
	21	/*
	22	* dotime is only called if it is truly a builtin function and not a
	23	* prefix to another command
	24	*/
	25	dotime()
	26	{
	27	time_t timedol;
ea775389	28	struct rusage ru1, ruch;
35867765	29
ea775389 SL	30	getrusage(RUSAGE_SELF, &ru1);
	31	getrusage(RUSAGE_CHILDREN, &ruch);
	32	ruadd(&ru1, &ruch);
35867765	33	time(&timedol);
ea775389	34	prusage(&ru0, &ru1, timedol - time0);
35867765 BJ	35	}
	36
	37	/*
	38	* donice is only called when it on the line by itself or with a +- value
	39	*/
	40	donice(v)
	41	register char **v;
	42	{
	43	register char *cp;
	44
	45	v++, cp = *v++;
	46	if (cp == 0) {
	47	#ifndef V6
	48	nice(20);
	49	nice(-10);
	50	#endif
	51	nice(4);
	52	} else if (*v == 0 && any(cp[0], "+-")) {
	53	#ifndef V6
	54	nice(20);
	55	nice(-10);
	56	#endif
	57	nice(getn(cp));
	58	}
	59	}
	60
ea775389 SL	61	ruadd(ru, ru2)
ea775389 SL	62	register struct rusage ru, ru2;
35867765	63	{
ea775389 SL	64	register long lp, lp2;
	65	register int cnt;
	66
	67	tvadd(&ru->ru_utime, &ru2->ru_utime);
	68	tvadd(&ru->ru_stime, &ru2->ru_stime);
	69	if (ru2->ru_maxrss > ru->ru_maxrss)
	70	ru->ru_maxrss = ru2->ru_maxrss;
	71	cnt = &ru->ru_last - &ru->ru_first + 1;
	72	lp = &ru->ru_first; lp2 = &ru2->ru_first;
	73	do
	74	lp++ += lp2++;
	75	while (--cnt > 0);
35867765 BJ	76	}
35867765 BJ	77
ea775389 SL	78	prusage(r0, r1, sec)
ea775389 SL	79	register struct rusage r0, r1;
35867765 BJ	80	time_t sec;
	81	{
	82	register time_t t =
ea775389 SL	83	(r1->ru_utime.tv_sec-r0->ru_utime.tv_sec)*100+
	84	(r1->ru_utime.tv_usec-r0->ru_utime.tv_usec)/10000+
	85	(r1->ru_stime.tv_sec-r0->ru_stime.tv_sec)*100+
	86	(r1->ru_stime.tv_usec-r0->ru_stime.tv_usec)/10000;
35867765 BJ	87	register char *cp;
	88	register int i;
	89	register struct varent *vp = adrof("time");
	90
	91	cp = "%Uu %Ss %E %P %X+%Dk %I+%Oio %Fpf+%Ww";
	92	if (vp && vp->vec[0] && vp->vec[1])
	93	cp = vp->vec[1];
	94	for (; *cp; cp++)
	95	if (*cp != '%')
	96	putchar(*cp);
	97	else if (cp[1]) switch(*++cp) {
	98
	99	case 'U':
ea775389	100	pdeltat(&r1->ru_utime, &r0->ru_utime);
35867765 BJ	101	break;
	102
	103	case 'S':
ea775389	104	pdeltat(&r1->ru_stime, &r0->ru_stime);
35867765 BJ	105	break;
	106
	107	case 'E':
	108	psecs(sec);
	109	break;
	110
	111	case 'P':
ea775389	112	printf("%d%%", (int) (t / ((sec ? sec : 1))));
35867765 BJ	113	break;
	114
	115	case 'W':
ea775389	116	i = r1->ru_nswap - r0->ru_nswap;
35867765 BJ	117	printf("%d", i);
	118	break;
	119
	120	case 'X':
ea775389	121	printf("%d", t == 0 ? 0 : (r1->ru_ixrss-r0->ru_ixrss)/t);
35867765 BJ	122	break;
	123
	124	case 'D':
ea775389 SL	125	printf("%d", t == 0 ? 0 :
ea775389 SL	126	(r1->ru_idrss+r1->ru_isrss-(r0->ru_idrss+r0->ru_isrss))/t);
35867765 BJ	127	break;
	128
	129	case 'K':
ea775389 SL	130	printf("%d", t == 0 ? 0 :
	131	((r1->ru_ixrss+r1->ru_isrss+r1->ru_idrss) -
	132	(r0->ru_ixrss+r0->ru_idrss+r0->ru_isrss))/t);
35867765 BJ	133	break;
	134
	135	case 'M':
ea775389	136	printf("%d", r1->ru_maxrss/2);
35867765 BJ	137	break;
	138
	139	case 'F':
ea775389	140	printf("%d", r1->ru_majflt-r0->ru_majflt);
35867765 BJ	141	break;
	142
	143	case 'R':
ea775389	144	printf("%d", r1->ru_minflt-r0->ru_minflt);
35867765 BJ	145	break;
	146
	147	case 'I':
ea775389	148	printf("%d", r1->ru_inblock-r0->ru_inblock);
35867765 BJ	149	break;
	150
	151	case 'O':
ea775389	152	printf("%d", r1->ru_oublock-r0->ru_oublock);
35867765	153	break;
35867765 BJ	154	}
	155	putchar('\n');
	156	}
ea775389 SL	157
	158	pdeltat(t1, t0)
	159	struct timeval t1, t0;
	160	{
	161	struct timeval td;
	162
	163	tvsub(&td, t1, t0);
	164	printf("%d.%01d", td.tv_sec, td.tv_usec/100000);
	165	}
	166
	167	tvadd(tsum, t0)
	168	struct timeval tsum, t0;
	169	{
	170
	171	tsum->tv_sec += t0->tv_sec;
	172	tsum->tv_usec += t0->tv_usec;
	173	if (tsum->tv_usec > 1000000)
	174	tsum->tv_sec++, tsum->tv_usec -= 1000000;
	175	}
	176
	177	tvsub(tdiff, t1, t0)
	178	struct timeval tdiff, t1, *t0;
	179	{
	180
	181	tdiff->tv_sec = t1->tv_sec - t0->tv_sec;
	182	tdiff->tv_usec = t1->tv_usec - t0->tv_usec;
	183	if (tdiff->tv_usec < 0)
	184	tdiff->tv_sec--, tdiff->tv_usec += 1000000;
	185	}