12399Sdlw /* 2*13584Swnj char id_itime[] = "@(#)itime_.c 1.2"; 32399Sdlw * 42399Sdlw * return the current time in numerical form 52399Sdlw * 62399Sdlw * calling sequence: 72399Sdlw * integer iarray(3) 82399Sdlw * call itime(iarray) 92399Sdlw * where: 102399Sdlw * iarray will receive the current time; hour, min, sec. 112399Sdlw */ 122399Sdlw 132399Sdlw #include <sys/types.h> 14*13584Swnj #include <sys/time.h> 152399Sdlw 162399Sdlw itime_(iar) 172399Sdlw struct { long ihr; long imin; long isec; } *iar; 182399Sdlw { 192399Sdlw struct tm *localtime(), *lclt; 202399Sdlw long int time(), t; 212399Sdlw 222399Sdlw t = time(0); 232399Sdlw lclt = localtime(&t); 242399Sdlw iar->ihr = lclt->tm_hour; 252399Sdlw iar->imin = lclt->tm_min; 262399Sdlw iar->isec = lclt->tm_sec; 272399Sdlw } 28