1 /* 2 * Copyright (c) 1980 Regents of the University of California. 3 * All rights reserved. The Berkeley software License Agreement 4 * specifies the terms and conditions for redistribution. 5 * 6 * @(#)fdate_.c 5.1 06/07/85 7 */ 8 9 /* 10 * Return date and time in an ASCII string. 11 * 12 * calling sequence: 13 * character*24 string 14 * call fdate(string) 15 * where: 16 * the 24 character string will be filled with the date & time in 17 * ascii form as described under ctime(3). 18 * No 'newline' or NULL will be included. 19 */ 20 21 fdate_(s, strlen) 22 char *s; long strlen; 23 { 24 char *ctime(), *c; 25 long time(), t; 26 27 t = time(0); 28 c = ctime(&t); 29 c[24] = '\0'; 30 b_char(c, s, strlen); 31 } 32