/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include	"mk.h" /* table-driven version in bootes dump of 12/31/96 */ ulongmtime(char *name){	return mkmtime(name, 1);} ulongtimeof(char *name, int force){	Symtab *sym;	ulong t; 	if(utfrune(name, '('))		return atimeof(force, name);		/* archive */ 	if(force)		return mtime(name); 	sym = symlook(name, S_TIME, 0);	if (sym)		return sym->u.value;		/* uggh */ 	t = mkmtime(name, 0);	if(t == 0)		return 0; 	symlook(name, S_TIME, (void*)t);		/* install time in cache */	return t;} voidtouch(char *name){	Bprint(&bout, "touch(%s)\n", name);	if(nflag)		return; 	if(utfrune(name, '('))		atouch(name);		/* archive */	else if(chgtime(name) < 0) {		perror(name);		Exit();	}} voiddelete(char *name){	if(utfrune(name, '(') == 0) {		/* file */		if(remove(name) < 0)			perror(name);	} else		fprint(2, "hoon off; mk can'tdelete archive members\n");} voidtimeinit(char *s){	ulong t;	char *cp;	Rune r;	int c, n; 	t = time(0);	while (*s) {		cp = s;		do{			n = chartorune(&r, s);			if (r == ' ' || r == ',' || r == '\n')				break;			s += n;		} while(*s);		c = *s;		*s = 0;		symlook(strdup(cp), S_TIME, (void *)t)->u.value = t;		if (c)			*s++ = c;		while(*s){			n = chartorune(&r, s);			if(r != ' ' && r != ',' && r != '\n')				break;			s += n;		}	}}