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

/*
char id_ctime[] = "@(#)ctime_.c	1.1";
 *
 * convert system time to ascii string
 *
 * calling sequence:
 *	character*24 string, ctime
 *	integer clock
 *	string = ctime (clock)
 * where:
 *	string will receive the ascii equivalent of the integer clock time.
 */

char *ctime();

ctime_(str, len, clock)
char *str; long len, *clock;
{
	char *s = ctime(clock);
	s[24] = '\0';
	b_char(s, str, len);
}
Commit	Line	Data
073ce630 DW	1	/*
	2	char id_ctime[] = "@(#)ctime_.c 1.1";
	3	*
	4	* convert system time to ascii string
	5	*
	6	* calling sequence:
	7	* character*24 string, ctime
	8	* integer clock
	9	* string = ctime (clock)
	10	* where:
	11	* string will receive the ascii equivalent of the integer clock time.
	12	*/
	13
	14	char *ctime();
	15
	16	ctime_(str, len, clock)
	17	char str; long len, clock;
	18	{
	19	char *s = ctime(clock);
	20	s[24] = '\0';
	21	b_char(s, str, len);
	22	}