1 #include	"mk.h"
2 
3 /* table-driven version in bootes dump of 12/31/96 */
4 
5 long
6 mtime(char *name)
7 {
8 	return mkmtime(name);
9 }
10 
11 long
12 timeof(char *name, int force)
13 {
14 	Symtab *sym;
15 	long t;
16 
17 	if(utfrune(name, '('))
18 		return atimeof(force, name);	/* archive */
19 
20 	if(force)
21 		return mtime(name);
22 
23 
24 	sym = symlook(name, S_TIME, 0);
25 	if (sym)
26 		return sym->u.value;
27 
28 	t = mtime(name);
29 	if(t == 0)
30 		return 0;
31 
32 	symlook(name, S_TIME, (void*)t);		/* install time in cache */
33 	return t;
34 }
35 
36 void
37 touch(char *name)
38 {
39 	Bprint(&bout, "touch(%s)\n", name);
40 	if(nflag)
41 		return;
42 
43 	if(utfrune(name, '('))
44 		atouch(name);		/* archive */
45 	else if(chgtime(name) < 0) {
46 		fprint(2, "%s: %r\n", name);
47 		Exit();
48 	}
49 }
50 
51 void
52 delete(char *name)
53 {
54 	if(utfrune(name, '(') == 0) {		/* file */
55 		if(remove(name) < 0)
56 			fprint(2, "remove %s: %r\n", name);
57 	} else
58 		fprint(2, "hoon off; mk can'tdelete archive members\n");
59 }
60 
61 void
62 timeinit(char *s)
63 {
64 	long t;
65 	char *cp;
66 	Rune r;
67 	int c, n;
68 
69 	t = time(0);
70 	while (*s) {
71 		cp = s;
72 		do{
73 			n = chartorune(&r, s);
74 			if (r == ' ' || r == ',' || r == '\n')
75 				break;
76 			s += n;
77 		} while(*s);
78 		c = *s;
79 		*s = 0;
80 		symlook(strdup(cp), S_TIME, (void *)t)->u.value = t;
81 		if (c)
82 			*s++ = c;
83 		while(*s){
84 			n = chartorune(&r, s);
85 			if(r != ' ' && r != ',' && r != '\n')
86 				break;
87 			s += n;
88 		}
89 	}
90 }