1*47944Sbostic /*- 2*47944Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47944Sbostic * All rights reserved. 42400Sdlw * 5*47944Sbostic * %sccs.include.proprietary.c% 623011Skre */ 723011Skre 8*47944Sbostic #ifndef lint 9*47944Sbostic static char sccsid[] = "@(#)fdate_.c 5.2 (Berkeley) 04/12/91"; 10*47944Sbostic #endif /* not lint */ 11*47944Sbostic 1223011Skre /* 132400Sdlw * Return date and time in an ASCII string. 142400Sdlw * 152400Sdlw * calling sequence: 162400Sdlw * character*24 string 172400Sdlw * call fdate(string) 182400Sdlw * where: 192400Sdlw * the 24 character string will be filled with the date & time in 202400Sdlw * ascii form as described under ctime(3). 212400Sdlw * No 'newline' or NULL will be included. 222400Sdlw */ 232400Sdlw fdate_(s,strlen)242400Sdlwfdate_(s, strlen) 252400Sdlw char *s; long strlen; 262400Sdlw { 272400Sdlw char *ctime(), *c; 282400Sdlw long time(), t; 292400Sdlw 302400Sdlw t = time(0); 312400Sdlw c = ctime(&t); 322400Sdlw c[24] = '\0'; 332400Sdlw b_char(c, s, strlen); 342400Sdlw } 35