1*2399Sdlw /* 2*2399Sdlw char id_itime[] = "@(#)itime_.c 1.1"; 3*2399Sdlw * 4*2399Sdlw * return the current time in numerical form 5*2399Sdlw * 6*2399Sdlw * calling sequence: 7*2399Sdlw * integer iarray(3) 8*2399Sdlw * call itime(iarray) 9*2399Sdlw * where: 10*2399Sdlw * iarray will receive the current time; hour, min, sec. 11*2399Sdlw */ 12*2399Sdlw 13*2399Sdlw #include <sys/types.h> 14*2399Sdlw #include <time.h> 15*2399Sdlw 16*2399Sdlw itime_(iar) 17*2399Sdlw struct { long ihr; long imin; long isec; } *iar; 18*2399Sdlw { 19*2399Sdlw struct tm *localtime(), *lclt; 20*2399Sdlw long int time(), t; 21*2399Sdlw 22*2399Sdlw t = time(0); 23*2399Sdlw lclt = localtime(&t); 24*2399Sdlw iar->ihr = lclt->tm_hour; 25*2399Sdlw iar->imin = lclt->tm_min; 26*2399Sdlw iar->isec = lclt->tm_sec; 27*2399Sdlw } 28