git.zerfleddert.de Git - micropolis/blob - src/tclx/ossupp/times.c

   1 /*
   2  * times.c
   3  *
   4  * Public-domain relatively quick-and-dirty implemenation of
   5  * ANSI library routine for System V Unix systems.
   6  *
   7  * It's written in old-style C for maximal portability.
   8  *
   9  * Arnold Robbins
  10  * January, February, 1991
  11  *
  12  * Fixes from ado@elsie.nci.nih.gov
  13  * February 1991
  14  *-----------------------------------------------------------------------------
  15  * $Id: times.c,v 2.0 1992/10/16 04:52:16 markd Rel $
  16  *-----------------------------------------------------------------------------
  17  */
  18
  19 /*
  20  * To avoid Unix version problems, this code has been simplified to avoid
  21  * const and size_t, however this can cause an incompatible definition on
  22  * ansi-C systems, so a game is played with defines to ignore a strftime
  23  * declaration in time.h
  24  */
  25
  26 #include <sys/types.h>
  27 #include <time.h>
  28 #include <sys/times.h>
  29
  30
  31 /* times --- produce process times */
  32
  33 clock_t
  34 times(buffer)
  35     struct tms      *buffer;
  36 {
  37     clock_t clk_time;
  38
  39     clk_time = clock();
  40     buffer->tms_utime  = clk_time;
  41     buffer->tms_utime2 = clk_time;
  42     buffer->tms_stime  = clk_time;
  43     buffer->tms_stime2 = clk_time;
  44
  45     return clk_time;
  46 }