12512Sdlw /* 2*23007Skre * Copyright (c) 1980 Regents of the University of California. 3*23007Skre * All rights reserved. The Berkeley software License Agreement 4*23007Skre * specifies the terms and conditions for redistribution. 52512Sdlw * 6*23007Skre * @(#)ctime_.c 5.1 06/07/85 7*23007Skre */ 8*23007Skre 9*23007Skre /* 102512Sdlw * convert system time to ascii string 112512Sdlw * 122512Sdlw * calling sequence: 132512Sdlw * character*24 string, ctime 142512Sdlw * integer clock 152512Sdlw * string = ctime (clock) 162512Sdlw * where: 172512Sdlw * string will receive the ascii equivalent of the integer clock time. 182512Sdlw */ 192512Sdlw 202512Sdlw char *ctime(); 212512Sdlw 222512Sdlw ctime_(str, len, clock) 232512Sdlw char *str; long len, *clock; 242512Sdlw { 252512Sdlw char *s = ctime(clock); 262512Sdlw s[24] = '\0'; 272512Sdlw b_char(s, str, len); 282512Sdlw } 29