12398Sdlw /* 2*13583Swnj char id_idate[] = "@(#)idate_.c 1.2"; 32398Sdlw * 42398Sdlw * return date in numerical form 52398Sdlw * 62398Sdlw * calling sequence: 72398Sdlw * integer iarray(3) 82398Sdlw * call idate(iarray) 92398Sdlw * where: 102398Sdlw * iarray will receive the current date; day, mon, year. 112398Sdlw */ 122398Sdlw 132398Sdlw #include <sys/types.h> 14*13583Swnj #include <sys/time.h> 152398Sdlw 162398Sdlw idate_(iar) 172398Sdlw struct { long iday; long imon; long iyer; } *iar; 182398Sdlw { 192398Sdlw struct tm *localtime(), *lclt; 202398Sdlw long int time(), t; 212398Sdlw 222398Sdlw t = time(0); 232398Sdlw lclt = localtime(&t); 242398Sdlw iar->iday = lclt->tm_mday; 252398Sdlw iar->imon = lclt->tm_mon + 1; 262398Sdlw iar->iyer = lclt->tm_year + 1900; 272398Sdlw } 28