2.9BSD - /usr/src/lib/libU77/idate_.c

   1: /*
   2: char id_idate[] = "@(#)idate_.c	1.1";
   3:  *
   4:  * return date in numerical form
   5:  *
   6:  * calling sequence:
   7:  *	integer iarray(3)
   8:  *	call idate(iarray)
   9:  * where:
  10:  *	iarray will receive the current date; day, mon, year.
  11:  */
  12: 
  13: #include    "../libI77/fiodefs.h"
  14: #include    <sys/types.h>
  15: #include    <time.h>
  16: 
  17: idate_(iar)
  18: struct { ftnint iday; ftnint imon; ftnint iyer; } *iar;
  19: {
  20:     struct tm *localtime(), *lclt;
  21:     time_t time(), t;
  22: 
  23:     t = time(0);
  24:     lclt = localtime(&t);
  25:     iar->iday = (ftnint) lclt->tm_mday;
  26:     iar->imon = (ftnint) lclt->tm_mon + 1;
  27:     iar->iyer = (ftnint) lclt->tm_year + 1900;
  28: }

Defined functions