[unix-history] / usr / src / usr.bin / f77 / libU77 / fdate_.c

/*
char id_fdate[] = "@(#)fdate_.c	1.1";
 *
 * Return date and time in an ASCII string.
 *
 * calling sequence:
 *	character*24 string
 * 	call fdate(string)
 * where:
 *	the 24 character string will be filled with the date & time in
 *	ascii form as described under ctime(3).
 *	No 'newline' or NULL will be included.
 */

fdate_(s, strlen)
char *s; long strlen;
{
	char *ctime(), *c;
	long time(), t;

	t = time(0);
	c = ctime(&t);
	c[24] = '\0';
	b_char(c, s, strlen);
}
Commit	Line	Data
73f8d282 DW	1	/*
	2	char id_fdate[] = "@(#)fdate_.c 1.1";
	3	*
	4	* Return date and time in an ASCII string.
	5	*
	6	* calling sequence:
	7	* character*24 string
	8	* call fdate(string)
	9	* where:
	10	* the 24 character string will be filled with the date & time in
	11	* ascii form as described under ctime(3).
	12	* No 'newline' or NULL will be included.
	13	*/
	14
	15	fdate_(s, strlen)
	16	char *s; long strlen;
	17	{
	18	char ctime(), c;
	19	long time(), t;
	20
	21	t = time(0);
	22	c = ctime(&t);
	23	c[24] = '\0';
	24	b_char(c, s, strlen);
	25	}