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