[unix-history] / src / px / pdattim.c

/* (c) 1979 Regents of the University of California */
#include "opcode.h"

char	pd_date[] {
	8, 9, 10, 4, 5, 6, 10, 22, 23, 10, 0
};

pdattim(op, alfap)
char *alfap;
{
	register char *ap, *cp, *dp;
	long a;
	int i;

	time(&a);
	cp = ctime(&a);
	ap = alfap;
	if (op == O_DATE)
		for (dp = pd_date; *dp; *ap++ = cp[*dp++]);
	else
		for (cp =+ 10, i = 10; i; *ap++ = *cp++, i--);
}
Commit	Line	Data
310dbffb BJ	1	/* (c) 1979 Regents of the University of California */
	2	#include "opcode.h"
	3
	4	char pd_date[] {
	5	8, 9, 10, 4, 5, 6, 10, 22, 23, 10, 0
	6	};
	7
	8	pdattim(op, alfap)
	9	char *alfap;
	10	{
	11	register char ap, cp, *dp;
	12	long a;
	13	int i;
	14
	15	time(&a);
	16	cp = ctime(&a);
	17	ap = alfap;
	18	if (op == O_DATE)
	19	for (dp = pd_date; dp; ap++ = cp[*dp++]);
	20	else
	21	for (cp =+ 10, i = 10; i; ap++ = cp++, i--);
	22	}