Flatten vendor/tcsh/dist.

1 files changed, 0 insertions, 739 deletions

diff --git a/contrib/tcsh/sh.time.c b/contrib/tcsh/sh.time.c
deleted file mode 100644
index f8ff370..0000000
--- a/contrib/tcsh/sh.time.c
+++ /dev/null
@@ -1,739 +0,0 @@
-/* $Header: /p/tcsh/cvsroot/tcsh/sh.time.c,v 3.33 2006/03/02 18:46:44 christos Exp $ */
-/*
- * sh.time.c: Shell time keeping and printing.
- */
-/*-
- * Copyright (c) 1980, 1991 The	Regents	of the University of California.
- * All rights reserved.
- *
- * Redistribution and use in source and	binary forms, with or without
- * modification, are permitted provided	that the following conditions
- * are met:
- * 1. Redistributions of source	code must retain the above copyright
- *    notice, this list	of conditions and the following	disclaimer.
- * 2. Redistributions in binary	form must reproduce the	above copyright
- *    notice, this list	of conditions and the following	disclaimer in the
- *    documentation and/or other materials provided with the distribution.
- * 3. Neither the name of the University nor the names of its contributors
- *    may be used to endorse or	promote	products derived from this software
- *    without specific prior written permission.
- *
- * THIS	SOFTWARE IS PROVIDED BY	THE REGENTS AND	CONTRIBUTORS ``AS IS'' AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED.  IN NO EVENT	SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR	CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- * OR SERVICES;	LOSS OF	USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH	DAMAGE.
- */
-#include "sh.h"
-
-RCSID("$tcsh: sh.time.c,v 3.33 2006/03/02 18:46:44 christos Exp $")
-
-#ifdef SUNOS4
-# include <machine/param.h>
-#endif /* SUNOS4 */
-
-/*
- * C Shell - routines handling process timing and niceing
- */
-#ifdef BSDTIMES
-# ifndef RUSAGE_SELF
-#  define	RUSAGE_SELF	0
-#  define	RUSAGE_CHILDREN	-1
-# endif	/* RUSAGE_SELF */
-#else /* BSDTIMES */
-struct tms times0;
-#endif /* BSDTIMES */
-
-#if !defined(BSDTIMES) && !defined(_SEQUENT_)
-# ifdef	POSIX
-static	void	pdtimet	(clock_t, clock_t);
-# else /* ! POSIX */
-static	void	pdtimet	(time_t, time_t);
-# endif	/* ! POSIX */
-#else /* BSDTIMES || _SEQUENT_ */
-static	void	tvadd	(timeval_t *, timeval_t *);
-static	void	pdeltat	(timeval_t *, timeval_t *);
-#endif /* BSDTIMES || _SEQUENT_	*/
-
-void
-settimes(void)
-{
-#ifdef BSDTIMES
-    struct sysrusage ruch;
-#ifdef convex
-    memset(&ru0, 0, sizeof(ru0));
-    memset(&ruch, 0, sizeof(ruch));
-#endif /* convex */
-
-    (void) gettimeofday(&time0,	NULL);
-    (void) getrusage(RUSAGE_SELF, (struct rusage *) &ru0);
-    (void) getrusage(RUSAGE_CHILDREN, (struct rusage *) &ruch);
-    ruadd(&ru0,	&ruch);
-#else
-# ifdef	_SEQUENT_
-    struct process_stats ruch;
-
-    (void) get_process_stats(&time0, PS_SELF, &ru0, &ruch);
-    ruadd(&ru0,	&ruch);
-# else	/* _SEQUENT_ */
-    seconds0 = time(NULL);
-    time0 = times(&times0);
-    times0.tms_stime +=	times0.tms_cstime;
-    times0.tms_utime +=	times0.tms_cutime;
-    times0.tms_cstime =	0;
-    times0.tms_cutime =	0;
-# endif	/* _SEQUENT_ */
-#endif /* BSDTIMES */
-}
-
-/*
- * dotime is only called if it is truly	a builtin function and not a
- * prefix to another command
- */
-/*ARGSUSED*/
-void
-dotime(Char **v, struct command *c)
-{
-#ifdef BSDTIMES
-    timeval_t timedol;
-    struct sysrusage ru1, ruch;
-#ifdef convex
-    memset(&ru1, 0, sizeof(ru1));
-    memset(&ruch, 0, sizeof(ruch));
-#endif /* convex */
-
-    (void) getrusage(RUSAGE_SELF, (struct rusage *) &ru1);
-    (void) getrusage(RUSAGE_CHILDREN, (struct rusage *) &ruch);
-    ruadd(&ru1,	&ruch);
-    (void) gettimeofday(&timedol, NULL);
-    prusage(&ru0, &ru1,	&timedol, &time0);
-#else
-# ifdef	_SEQUENT_
-    timeval_t timedol;
-    struct process_stats ru1, ruch;
-
-    (void) get_process_stats(&timedol, PS_SELF,	&ru1, &ruch);
-    ruadd(&ru1,	&ruch);
-    prusage(&ru0, &ru1,	&timedol, &time0);
-# else /* _SEQUENT_ */
-#  ifndef POSIX
-    time_t  timedol;
-#  else	/* POSIX */
-    clock_t timedol;
-#  endif /* POSIX */
-
-    struct tms times_dol;
-
-    timedol = times(&times_dol);
-    times_dol.tms_stime	+= times_dol.tms_cstime;
-    times_dol.tms_utime	+= times_dol.tms_cutime;
-    times_dol.tms_cstime = 0;
-    times_dol.tms_cutime = 0;
-    prusage(&times0, &times_dol, timedol, time0);
-# endif	/* _SEQUENT_ */
-#endif /* BSDTIMES */
-    USE(c);
-    USE(v);
-}
-
-/*
- * donice is only called when it on the	line by	itself or with a +- value
- */
-/*ARGSUSED*/
-void
-donice(Char **v, struct command *c)
-{
-    Char *cp;
-    int	    nval = 0;
-
-    USE(c);
-    v++, cp = *v++;
-    if (cp == 0)
-	nval = 4;
-    else if (*v	== 0 &&	any("+-", cp[0]))
-	nval = getn(cp);
-#ifdef HAVE_SETPRIORITY
-    if (setpriority(PRIO_PROCESS, 0, nval) == -1 && errno)
-	stderror(ERR_SYSTEM, "setpriority", strerror(errno));
-#else /* !HAVE_SETPRIORITY */
-    (void) nice(nval);
-#endif /* HAVE_SETPRIORITY */
-}
-
-#ifdef BSDTIMES
-void
-ruadd(struct sysrusage *ru, struct sysrusage *ru2)
-{
-    tvadd(&ru->ru_utime, &ru2->ru_utime);
-    tvadd(&ru->ru_stime, &ru2->ru_stime);
-#ifndef _OSD_POSIX
-    if (ru2->ru_maxrss > ru->ru_maxrss)
-	ru->ru_maxrss =	ru2->ru_maxrss;
-
-    ru->ru_ixrss += ru2->ru_ixrss;
-    ru->ru_idrss += ru2->ru_idrss;
-    ru->ru_isrss += ru2->ru_isrss;
-    ru->ru_minflt += ru2->ru_minflt;
-    ru->ru_majflt += ru2->ru_majflt;
-    ru->ru_nswap += ru2->ru_nswap;
-    ru->ru_inblock += ru2->ru_inblock;
-    ru->ru_oublock += ru2->ru_oublock;
-    ru->ru_msgsnd += ru2->ru_msgsnd;
-    ru->ru_msgrcv += ru2->ru_msgrcv;
-    ru->ru_nsignals += ru2->ru_nsignals;
-    ru->ru_nvcsw += ru2->ru_nvcsw;
-    ru->ru_nivcsw += ru2->ru_nivcsw;
-#endif /*bs2000*/
-
-# ifdef	convex
-    tvadd(&ru->ru_exutime, &ru2->ru_exutime);
-    ru->ru_utotal += ru2->ru_utotal;
-    ru->ru_usamples += ru2->ru_usamples;
-    ru->ru_stotal += ru2->ru_stotal;
-    ru->ru_ssamples += ru2->ru_ssamples;
-# endif	/* convex */
-}
-
-#else /* BSDTIMES */
-# ifdef	_SEQUENT_
-void
-ruadd(struct process_stats *ru, struct process_stats *ru2)
-{
-    tvadd(&ru->ps_utime, &ru2->ps_utime);
-    tvadd(&ru->ps_stime, &ru2->ps_stime);
-    if (ru2->ps_maxrss > ru->ps_maxrss)
-	ru->ps_maxrss =	ru2->ps_maxrss;
-
-    ru->ps_pagein += ru2->ps_pagein;
-    ru->ps_reclaim += ru2->ps_reclaim;
-    ru->ps_zerofill += ru2->ps_zerofill;
-    ru->ps_pffincr += ru2->ps_pffincr;
-    ru->ps_pffdecr += ru2->ps_pffdecr;
-    ru->ps_swap	+= ru2->ps_swap;
-    ru->ps_syscall += ru2->ps_syscall;
-    ru->ps_volcsw += ru2->ps_volcsw;
-    ru->ps_involcsw += ru2->ps_involcsw;
-    ru->ps_signal += ru2->ps_signal;
-    ru->ps_lread += ru2->ps_lread;
-    ru->ps_lwrite += ru2->ps_lwrite;
-    ru->ps_bread += ru2->ps_bread;
-    ru->ps_bwrite += ru2->ps_bwrite;
-    ru->ps_phread += ru2->ps_phread;
-    ru->ps_phwrite += ru2->ps_phwrite;
-}
-
-# endif	/* _SEQUENT_ */
-#endif /* BSDTIMES */
-
-#ifdef BSDTIMES
-
-/*
- * PWP:	the LOG1024 and	pagetok	stuff taken from the top command,
- * written by William LeFebvre
- */
-/* Log base 2 of 1024 is 10 (2^10 == 1024) */
-#define	LOG1024		10
-
-/* Convert clicks (kernel pages) to kbytes ... */
-/* If there is no PGSHIFT defined, assume it is	11 */
-/* Is this needed for compatability with some old flavor of 4.2	or 4.1?	*/
-#ifdef SUNOS4
-# ifndef PGSHIFT
-#  define pagetok(size)	  ((size) << 1)
-# else
-#  if PGSHIFT>10
-#   define pagetok(size)   ((size) << (PGSHIFT - LOG1024))
-#  else
-#   define pagetok(size)   ((size) >> (LOG1024 - PGSHIFT))
-#  endif
-# endif
-#endif
-
-/*
- * if any other	machines return	wierd values in	the ru_i* stuff, put
- * the adjusting macro here:
- */
-#ifdef SUNOS4
-# define IADJUST(i)	(pagetok(i)/2)
-#else /* SUNOS4	*/
-# ifdef	convex
-   /*
-    * convex has megabytes * CLK_TCK
-    * multiply by 100 since we use time	in 100ths of a second in prusage
-    */
-#  define IADJUST(i) (((i) << 10) / CLK_TCK * 100)
-# else /* convex */
-#  define IADJUST(i)	(i)
-# endif	/* convex */
-#endif /* SUNOS4 */
-
-void
-prusage(struct sysrusage *r0, struct sysrusage *r1, timeval_t *e, timeval_t *b)
-
-#else /* BSDTIMES */
-# ifdef	_SEQUENT_
-void
-prusage(struct process_stats *r0, struct process_stats *r1, timeval_t e,
-	timeval_t b)
-
-# else /* _SEQUENT_ */
-#  ifndef POSIX
-void
-prusage(struct tms *bs, struct tms *es, time_t e, time_t b)
-#  else	/* POSIX */
-void
-prusage(struct tms *bs, struct tms *es, clock_t e, clock_t b)
-#  endif /* POSIX */
-# endif	/* _SEQUENT_ */
-#endif /* BSDTIMES */
-{
-#ifdef BSDTIMES
-    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;
-
-#else
-# ifdef	_SEQUENT_
-    time_t t =
-    (r1->ps_utime.tv_sec - r0->ps_utime.tv_sec)	* 100 +
-    (r1->ps_utime.tv_usec - r0->ps_utime.tv_usec) / 10000 +
-    (r1->ps_stime.tv_sec - r0->ps_stime.tv_sec)	* 100 +
-    (r1->ps_stime.tv_usec - r0->ps_stime.tv_usec) / 10000;
-
-# else /* _SEQUENT_ */
-#  ifndef POSIX
-    time_t t =	(es->tms_utime - bs->tms_utime +
-			 es->tms_stime - bs->tms_stime)	* 100 /	HZ;
-
-#  else	/* POSIX */
-    clock_t t = (es->tms_utime	- bs->tms_utime	+
-			  es->tms_stime	- bs->tms_stime) * 100 / clk_tck;
-
-#  endif /* POSIX */
-# endif	/* _SEQUENT_ */
-#endif /* BSDTIMES */
-
-    const char *cp;
-    long i;
-    struct varent *vp = adrof(STRtime);
-
-#ifdef BSDTIMES
-# ifdef	convex
-    static struct system_information sysinfo;
-    long long memtmp;	/* let memory calculations exceede 2Gb */
-# endif	/* convex */
-    int	    ms = (int)
-    ((e->tv_sec	- b->tv_sec) * 100 + (e->tv_usec - b->tv_usec) / 10000);
-
-    cp = "%Uu %Ss %E %P	%X+%Dk %I+%Oio %Fpf+%Ww";
-#else /* !BSDTIMES */
-# ifdef	_SEQUENT_
-    int	    ms = (int)
-    ((e->tv_sec	- b->tv_sec) * 100 + (e->tv_usec - b->tv_usec) / 10000);
-
-    cp = "%Uu %Ss %E %P	%I+%Oio	%Fpf+%Ww";
-# else /* !_SEQUENT_ */
-#  ifndef POSIX
-    time_t ms = ((time_t)((e - b) / HZ) * 100) +
-		 (time_t)(((e - b) % HZ) * 100) / HZ;
-#  else	/* POSIX */
-    clock_t ms = ((clock_t)((e - b) / clk_tck) * 100) +
-		  (clock_t)(((e - b) % clk_tck) * 100) / clk_tck;
-#  endif /* POSIX */
-
-    cp = "%Uu %Ss %E %P";
-
-    /*
-     * the tms stuff is	not very precise, so we	fudge it.
-     * granularity fix:	can't be more than 100%	
-     * this breaks in multi-processor systems...
-     * maybe I should take it out and let people see more then 100% 
-     * utilizations.
-     */
-#  if 0
-    if (ms < t && ms !=	0)
-	ms = t;
-#  endif
-# endif	/*! _SEQUENT_ */
-#endif /* !BSDTIMES */
-#ifdef TDEBUG
-    xprintf("es->tms_utime %lu bs->tms_utime %lu\n",
-	    es->tms_utime, bs->tms_utime);
-    xprintf("es->tms_stime %lu bs->tms_stime %lu\n",
-	    es->tms_stime, bs->tms_stime);
-    xprintf("ms	%lu e %lu b %lu\n", ms,	e, b);
-    xprintf("t %lu\n", t);
-#endif /* TDEBUG */
-
-    if (vp && vp->vec && vp->vec[0] && vp->vec[1])
-	cp = short2str(vp->vec[1]);
-    for	(; *cp;	cp++)
-	if (*cp	!= '%')
-	    xputchar(*cp);
-	else if	(cp[1])
-	    switch (*++cp) {
-
-	    case 'U':		/* user	CPU time used */
-#ifdef BSDTIMES
-		pdeltat(&r1->ru_utime, &r0->ru_utime);
-#else
-# ifdef	_SEQUENT_
-		pdeltat(&r1->ps_utime, &r0->ps_utime);
-# else /* _SEQUENT_ */
-#  ifndef POSIX
-		pdtimet(es->tms_utime, bs->tms_utime);
-#  else	/* POSIX */
-		pdtimet(es->tms_utime, bs->tms_utime);
-#  endif /* POSIX */
-# endif	/* _SEQUENT_ */
-#endif /* BSDTIMES */
-		break;
-
-	    case 'S':		/* system CPU time used	*/
-#ifdef BSDTIMES
-		pdeltat(&r1->ru_stime, &r0->ru_stime);
-#else
-# ifdef	_SEQUENT_
-		pdeltat(&r1->ps_stime, &r0->ps_stime);
-# else /* _SEQUENT_ */
-#  ifndef POSIX
-		pdtimet(es->tms_stime, bs->tms_stime);
-#  else	/* POSIX */
-		pdtimet(es->tms_stime, bs->tms_stime);
-#  endif /* POSIX */
-# endif	/* _SEQUENT_ */
-#endif /* BSDTIMES */
-		break;
-
-	    case 'E':		/* elapsed (wall-clock)	time */
-#ifdef BSDTIMES
-		pcsecs((long) ms);
-#else /* BSDTIMES */
-		pcsecs(ms);
-#endif /* BSDTIMES */
-		break;
-
-	    case 'P':		/* percent time	spent running */
-		/* check if the	process	did not	run */
-#ifdef convex
-		/*
-		 * scale the cpu %- ages by the	number of processors
-		 * available on	this machine
-		 */
-		if ((sysinfo.cpu_count == 0) &&
-		    (getsysinfo(SYSINFO_SIZE, &sysinfo)	< 0))
-		    sysinfo.cpu_count =	1;
-		    i =	(ms == 0) ? 0 :	(t * 1000.0 / (ms * sysinfo.cpu_count));
-#else /* convex	*/
-		i = (ms	== 0) ?	0 : (long)(t * 1000.0 / ms);
-#endif /* convex */
-		xprintf("%ld.%01ld%%", i / 10, i % 10);	/* nn.n% */
-		break;
-
-#ifdef BSDTIMES
-	    case 'W':		/* number of swaps */
-#ifdef _OSD_POSIX
-		i = 0;
-#else
-		i = r1->ru_nswap - r0->ru_nswap;
-#endif
-		xprintf("%ld", i);
-		break;
- 
-#ifdef convex
-	    case 'X':		/* (average) shared text size */
-		memtmp = (t == 0 ? 0LL : IADJUST((long long)r1->ru_ixrss -
-				 (long long)r0->ru_ixrss) /
-			 (long long)t);
-		xprintf("%lu", (unsigned long)memtmp);
-		break;
-
-	    case 'D':		/* (average) unshared data size	*/
-		memtmp = (t == 0 ? 0LL : IADJUST((long long)r1->ru_idrss +
-				 (long long)r1->ru_isrss -
-				 ((long	long)r0->ru_idrss +
-				  (long	long)r0->ru_isrss)) /
-			 (long long)t);
-		xprintf("%lu", (unsigned long)memtmp);
-		break;
-
-	    case 'K':		/* (average) total data	memory used  */
-		memtmp = (t == 0 ? 0LL : IADJUST(((long	long)r1->ru_ixrss +
-				  (long	long)r1->ru_isrss +
-				  (long	long)r1->ru_idrss) -
-				  ((long long)r0->ru_ixrss +
-				   (long long)r0->ru_idrss +
-				   (long long)r0->ru_isrss)) /
-			 (long long)t);
-		xprintf("%lu", (unsigned long)memtmp);
-		break;
-#else /* !convex */
-	    case 'X':		/* (average) shared text size */
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", t == 0 ?	0L :
-			IADJUST(r1->ru_ixrss - r0->ru_ixrss) / t);
-#endif
-		break;
-
-	    case 'D':		/* (average) unshared data size	*/
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", t == 0 ?	0L :
-			IADJUST(r1->ru_idrss + r1->ru_isrss -
-				(r0->ru_idrss +	r0->ru_isrss)) / t);
-#endif
-		break;
-
-	    case 'K':		/* (average) total data	memory used  */
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", t == 0 ?	0L :
-			IADJUST((r1->ru_ixrss +	r1->ru_isrss + r1->ru_idrss) -
-			   (r0->ru_ixrss + r0->ru_idrss	+ r0->ru_isrss)) / t);
-#endif
-		break;
-#endif /* convex */
-	    case 'M':		/* max.	Resident Set Size */
-#ifdef SUNOS4
-		xprintf("%ld", pagetok(r1->ru_maxrss));
-#else
-# ifdef	convex
-		xprintf("%ld", r1->ru_maxrss * 4L);
-# else /* !convex */
-#  ifdef _OSD_POSIX
-		xprintf("0",0);
-#  else
-		xprintf("%ld", r1->ru_maxrss / 2L);
-#  endif
-# endif	/* convex */
-#endif /* SUNOS4 */
-		break;
-
-	    case 'F':		/* page	faults */
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", r1->ru_majflt - r0->ru_majflt);
-#endif
-		break;
-
-	    case 'R':		/* page	reclaims */
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", r1->ru_minflt - r0->ru_minflt);
-#endif
-		break;
-
-	    case 'I':		/* FS blocks in	*/
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", r1->ru_inblock -	r0->ru_inblock);
-#endif
-		break;
-
-	    case 'O':		/* FS blocks out */
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", r1->ru_oublock -	r0->ru_oublock);
-#endif
-		break;
-
-# ifdef	convex
-	    case 'C':			/*  CPU	parallelization	factor */
-		if (r1->ru_usamples	!= 0LL)	{
-		    long long parr = ((r1->ru_utotal * 100LL) /
-				      r1->ru_usamples);
-		    xprintf("%d.%02d", (int)(parr/100), (int)(parr%100));
-		} else
-		    xprintf("?");
-		break;
-# endif	/* convex */
-	    case 'r':		/* PWP:	socket messages	recieved */
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", r1->ru_msgrcv - r0->ru_msgrcv);
-#endif
-		break;
-
-	    case 's':		/* PWP:	socket messages	sent */
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", r1->ru_msgsnd - r0->ru_msgsnd);
-#endif
-		break;
-
-	    case 'k':		/* PWP:	signals	received */
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", r1->ru_nsignals - r0->ru_nsignals);
-#endif
-		break;
-
-	    case 'w':		/* PWP:	voluntary context switches (waits) */
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", r1->ru_nvcsw - r0->ru_nvcsw);
-#endif
-		break;
-
-	    case 'c':		/* PWP:	involuntary context switches */
-#ifdef _OSD_POSIX
-		xprintf("0",0);
-#else
-		xprintf("%ld", r1->ru_nivcsw - r0->ru_nivcsw);
-#endif
-		break;
-#else /* BSDTIMES */
-# ifdef	_SEQUENT_
-	    case 'W':		/* number of swaps */
-		i = r1->ps_swap	- r0->ps_swap;
-		xprintf("%ld", i);
-		break;
-
-	    case 'M':
-		xprintf("%ld", r1->ps_maxrss / 2);
-		break;
-
-	    case 'F':
-		xprintf("%ld", r1->ps_pagein - r0->ps_pagein);
-		break;
-
-	    case 'R':
-		xprintf("%ld", r1->ps_reclaim -	r0->ps_reclaim);
-		break;
-
-	    case 'I':
-		xprintf("%ld", r1->ps_bread - r0->ps_bread);
-		break;
-
-	    case 'O':
-		xprintf("%ld", r1->ps_bwrite - r0->ps_bwrite);
-		break;
-
-	    case 'k':
-		xprintf("%ld", r1->ps_signal - r0->ps_signal);
-		break;
-
-	    case 'w':
-		xprintf("%ld", r1->ps_volcsw - r0->ps_volcsw);
-		break;
-
-	    case 'c':
-		xprintf("%ld", r1->ps_involcsw - r0->ps_involcsw);
-		break;
-
-	    case 'Z':
-		xprintf("%ld", r1->ps_zerofill - r0->ps_zerofill);
-		break;
-
-	    case 'i':
-		xprintf("%ld", r1->ps_pffincr -	r0->ps_pffincr);
-		break;
-
-	    case 'd':
-		xprintf("%ld", r1->ps_pffdecr -	r0->ps_pffdecr);
-		break;
-
-	    case 'Y':
-		xprintf("%ld", r1->ps_syscall -	r0->ps_syscall);
-		break;
-
-	    case 'l':
-		xprintf("%ld", r1->ps_lread - r0->ps_lread);
-		break;
-
-	    case 'm':
-		xprintf("%ld", r1->ps_lwrite - r0->ps_lwrite);
-		break;
-
-	    case 'p':
-		xprintf("%ld", r1->ps_phread - r0->ps_phread);
-		break;
-
-	    case 'q':
-		xprintf("%ld", r1->ps_phwrite -	r0->ps_phwrite);
-		break;
-# endif	/* _SEQUENT_ */
-#endif /* BSDTIMES */
-	    default:
-		break;
-	    }
-    xputchar('\n');
-}
-
-#if defined(BSDTIMES) || defined(_SEQUENT_)
-static void
-pdeltat(timeval_t *t1, timeval_t *t0)
-{
-    timeval_t td;
-
-    tvsub(&td, t1, t0);
-    xprintf("%ld.%03ld", td.tv_sec, td.tv_usec / 1000L);
-}
-
-static void
-tvadd(timeval_t *tsum, timeval_t *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;
-}
-
-void
-tvsub(timeval_t *tdiff, timeval_t *t1, timeval_t *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;
-}
-
-#else /* !BSDTIMES && !_SEQUENT_ */
-static void
-#ifndef	POSIX
-pdtimet(time_t eval, time_t bval)
-
-#else /* POSIX */
-pdtimet(clock_t eval, clock_t bval)
-
-#endif /* POSIX	*/
-{
-#ifndef	POSIX
-    time_t  val;
-
-#else /* POSIX */
-    clock_t val;
-
-#endif /* POSIX	*/
-
-#ifndef	POSIX
-    val	= (eval	- bval)	* 100 /	HZ;
-#else /* POSIX */
-    val	= (eval	- bval)	* 100 /	clk_tck;
-#endif /* POSIX	*/
-
-    xprintf("%ld.%02ld", val / 100, val	- (val / 100 * 100));
-}
-#endif /* BSDTIMES || _SEQUENT_	*/