Listing 2 time.c

/* time function -- UNIX version */
#include <time.h>

       /* UNIX system call */
time_t_Time(time_t *);

time_t (time)(time_t *rod)
   {   /* return calendar time */
   time_t t = _Time(NULL) + (70*365LU+17)*86400;
   
   if (tod)
      *tod = t;
   return (t);
   }
/* End of File */