ftp.nice.ch/pub/next/developer/languages/lisp/gcl.2.2-LISP.I.bs.tar.gz#/gcl-2.2/dos/dostimes.c

This is dostimes.c in view mode; [Download] [Up]

#include <sys/times.h>
#include <sys/resource.h>

#ifdef __ZTC__
#define HZ 100
#endif

times(x)
struct tms *x;
{ int hz;
struct rusage ru;
getrusage(RUSAGE_SELF,&ru);
hz =  ru.ru_utime.tv_sec * HZ +
       (ru.ru_utime.tv_usec *HZ)/1000000;
x->tms_utime = hz;
x->tms_stime = hz;
return 0;
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.