12400Sdlw /* 2*23011Skre * Copyright (c) 1980 Regents of the University of California. 3*23011Skre * All rights reserved. The Berkeley software License Agreement 4*23011Skre * specifies the terms and conditions for redistribution. 52400Sdlw * 6*23011Skre * @(#)fdate_.c 5.1 06/07/85 7*23011Skre */ 8*23011Skre 9*23011Skre /* 102400Sdlw * Return date and time in an ASCII string. 112400Sdlw * 122400Sdlw * calling sequence: 132400Sdlw * character*24 string 142400Sdlw * call fdate(string) 152400Sdlw * where: 162400Sdlw * the 24 character string will be filled with the date & time in 172400Sdlw * ascii form as described under ctime(3). 182400Sdlw * No 'newline' or NULL will be included. 192400Sdlw */ 202400Sdlw 212400Sdlw fdate_(s, strlen) 222400Sdlw char *s; long strlen; 232400Sdlw { 242400Sdlw char *ctime(), *c; 252400Sdlw long time(), t; 262400Sdlw 272400Sdlw t = time(0); 282400Sdlw c = ctime(&t); 292400Sdlw c[24] = '\0'; 302400Sdlw b_char(c, s, strlen); 312400Sdlw } 32