1 b330c942 2005-10-31 devnull #include <u.h>
  2 b330c942 2005-10-31 devnull #include <libc.h>
  3 b330c942 2005-10-31 devnull #include <draw.h>
  4 b330c942 2005-10-31 devnull #include <plumb.h>
  5 b330c942 2005-10-31 devnull #include <regexp.h>
  6 b330c942 2005-10-31 devnull #include <bio.h>
  7 b330c942 2005-10-31 devnull #include <9pclient.h>
  8 b330c942 2005-10-31 devnull #include "faces.h"
  9 b330c942 2005-10-31 devnull 
 10 b330c942 2005-10-31 devnull enum	/* number of deleted faces to cache */
 11 b330c942 2005-10-31 devnull {
 12 b330c942 2005-10-31 devnull 	Nsave	= 20,
 13 b330c942 2005-10-31 devnull };
 14 b330c942 2005-10-31 devnull 
 15 b330c942 2005-10-31 devnull static Facefile	*facefiles;
 16 b330c942 2005-10-31 devnull static int		nsaved;
 17 b330c942 2005-10-31 devnull static char	*facedom;
 18 b330c942 2005-10-31 devnull 
 19 b330c942 2005-10-31 devnull /*
 20 b330c942 2005-10-31 devnull  * Loading the files is slow enough on a dial-up line to be worth this trouble
 21 b330c942 2005-10-31 devnull  */
 22 b330c942 2005-10-31 devnull typedef struct Readcache	Readcache;
 23 b330c942 2005-10-31 devnull struct Readcache {
 24 b330c942 2005-10-31 devnull 	char *file;
 25 b330c942 2005-10-31 devnull 	char *data;
 26 b330c942 2005-10-31 devnull 	long mtime;
 27 b330c942 2005-10-31 devnull 	long rdtime;
 28 b330c942 2005-10-31 devnull 	Readcache *next;
 29 b330c942 2005-10-31 devnull };
 30 b330c942 2005-10-31 devnull 
 31 b330c942 2005-10-31 devnull static Readcache *rcache;
 32 b330c942 2005-10-31 devnull 
 33 b330c942 2005-10-31 devnull ulong
 34 b330c942 2005-10-31 devnull dirlen(char *s)
 35 b330c942 2005-10-31 devnull {
 36 b330c942 2005-10-31 devnull 	Dir *d;
 37 b330c942 2005-10-31 devnull 	ulong len;
 38 b330c942 2005-10-31 devnull 
 39 b330c942 2005-10-31 devnull 	d = dirstat(s);
 40 b330c942 2005-10-31 devnull 	if(d == nil)
 41 b330c942 2005-10-31 devnull 		return 0;
 42 b330c942 2005-10-31 devnull 	len = d->length;
 43 b330c942 2005-10-31 devnull 	free(d);
 44 b330c942 2005-10-31 devnull 	return len;
 45 b330c942 2005-10-31 devnull }
 46 b330c942 2005-10-31 devnull 
 47 b330c942 2005-10-31 devnull ulong
 48 b330c942 2005-10-31 devnull fsdirlen(CFsys *fs,char *s)
 49 b330c942 2005-10-31 devnull {
 50 b330c942 2005-10-31 devnull 	Dir *d;
 51 b330c942 2005-10-31 devnull 	ulong len;
 52 b330c942 2005-10-31 devnull 
 53 b330c942 2005-10-31 devnull 	d = fsdirstat(fs,s);
 54 b330c942 2005-10-31 devnull 	if(d == nil)
 55 b330c942 2005-10-31 devnull 		return 0;
 56 b330c942 2005-10-31 devnull 	len = d->length;
 57 b330c942 2005-10-31 devnull 	free(d);
 58 b330c942 2005-10-31 devnull 	return len;
 59 b330c942 2005-10-31 devnull }
 60 b330c942 2005-10-31 devnull 
 61 b330c942 2005-10-31 devnull ulong
 62 b330c942 2005-10-31 devnull dirmtime(char *s)
 63 b330c942 2005-10-31 devnull {
 64 b330c942 2005-10-31 devnull 	Dir *d;
 65 b330c942 2005-10-31 devnull 	ulong t;
 66 b330c942 2005-10-31 devnull 
 67 b330c942 2005-10-31 devnull 	d = dirstat(s);
 68 b330c942 2005-10-31 devnull 	if(d == nil)
 69 b330c942 2005-10-31 devnull 		return 0;
 70 b330c942 2005-10-31 devnull 	t = d->mtime;
 71 b330c942 2005-10-31 devnull 	free(d);
 72 b330c942 2005-10-31 devnull 	return t;
 73 b330c942 2005-10-31 devnull }
 74 b330c942 2005-10-31 devnull 
 75 b330c942 2005-10-31 devnull static char*
 76 b330c942 2005-10-31 devnull doreadfile(char *s)
 77 b330c942 2005-10-31 devnull {
 78 b330c942 2005-10-31 devnull 	char *p;
 79 b330c942 2005-10-31 devnull 	int fd, n;
 80 b330c942 2005-10-31 devnull 	ulong len;
 81 b330c942 2005-10-31 devnull 
 82 b330c942 2005-10-31 devnull 	len = dirlen(s);
 83 b330c942 2005-10-31 devnull 	if(len == 0)
 84 b330c942 2005-10-31 devnull 		return nil;
 85 b330c942 2005-10-31 devnull 
 86 b330c942 2005-10-31 devnull 	p = malloc(len+1);
 87 b330c942 2005-10-31 devnull 	if(p == nil)
 88 b330c942 2005-10-31 devnull 		return nil;
 89 b330c942 2005-10-31 devnull 
 90 b330c942 2005-10-31 devnull 	if((fd = open(s, OREAD)) < 0
 91 b330c942 2005-10-31 devnull 	|| (n = readn(fd, p, len)) < 0) {
 92 b330c942 2005-10-31 devnull 		close(fd);
 93 b330c942 2005-10-31 devnull 		free(p);
 94 b330c942 2005-10-31 devnull 		return nil;
 95 b330c942 2005-10-31 devnull 	}
 96 b330c942 2005-10-31 devnull 
 97 b330c942 2005-10-31 devnull 	p[n] = '\0';
 98 b330c942 2005-10-31 devnull 	return p;
 99 b330c942 2005-10-31 devnull }
100 b330c942 2005-10-31 devnull 
101 b330c942 2005-10-31 devnull static char*
102 b330c942 2005-10-31 devnull readfile(char *s)
103 b330c942 2005-10-31 devnull {
104 b330c942 2005-10-31 devnull 	Readcache *r, **l;
105 b330c942 2005-10-31 devnull 	char *p;
106 b330c942 2005-10-31 devnull 	ulong mtime;
107 b330c942 2005-10-31 devnull 
108 b330c942 2005-10-31 devnull 	for(l=&rcache, r=*l; r; l=&r->next, r=*l) {
109 b330c942 2005-10-31 devnull 		if(strcmp(r->file, s) != 0)
110 b330c942 2005-10-31 devnull 			continue;
111 b330c942 2005-10-31 devnull 
112 b330c942 2005-10-31 devnull 		/*
113 b330c942 2005-10-31 devnull 		 * if it's less than 30 seconds since we read it, or it 
114 b330c942 2005-10-31 devnull 		 * hasn't changed, send back our copy
115 b330c942 2005-10-31 devnull 		 */
116 b330c942 2005-10-31 devnull 		if(time(0) - r->rdtime < 30)
117 b330c942 2005-10-31 devnull 			return strdup(r->data);
118 b330c942 2005-10-31 devnull 		if(dirmtime(s) == r->mtime) {
119 b330c942 2005-10-31 devnull 			r->rdtime = time(0);
120 b330c942 2005-10-31 devnull 			return strdup(r->data);
121 b330c942 2005-10-31 devnull 		}
122 b330c942 2005-10-31 devnull 
123 b330c942 2005-10-31 devnull 		/* out of date, remove this and fall out of loop */
124 b330c942 2005-10-31 devnull 		*l = r->next;
125 b330c942 2005-10-31 devnull 		free(r->file);
126 b330c942 2005-10-31 devnull 		free(r->data);
127 b330c942 2005-10-31 devnull 		free(r);
128 b330c942 2005-10-31 devnull 		break;
129 b330c942 2005-10-31 devnull 	}
130 b330c942 2005-10-31 devnull 
131 b330c942 2005-10-31 devnull 	/* add to cache */
132 b330c942 2005-10-31 devnull 	mtime = dirmtime(s);
133 b330c942 2005-10-31 devnull 	if(mtime == 0)
134 b330c942 2005-10-31 devnull 		return nil;
135 b330c942 2005-10-31 devnull 
136 b330c942 2005-10-31 devnull 	if((p = doreadfile(s)) == nil)
137 b330c942 2005-10-31 devnull 		return nil;
138 b330c942 2005-10-31 devnull 
139 b330c942 2005-10-31 devnull 	r = malloc(sizeof(*r));
140 b330c942 2005-10-31 devnull 	if(r == nil)
141 b330c942 2005-10-31 devnull 		return nil;
142 b330c942 2005-10-31 devnull 	r->mtime = mtime;
143 b330c942 2005-10-31 devnull 	r->file = estrdup(s);
144 b330c942 2005-10-31 devnull 	r->data = p;
145 b330c942 2005-10-31 devnull 	r->rdtime = time(0);
146 b330c942 2005-10-31 devnull 	r->next = rcache;
147 b330c942 2005-10-31 devnull 	rcache = r;
148 b330c942 2005-10-31 devnull 	return strdup(r->data);
149 b330c942 2005-10-31 devnull }
150 b330c942 2005-10-31 devnull 
151 b330c942 2005-10-31 devnull 
152 b330c942 2005-10-31 devnull static char*
153 b330c942 2005-10-31 devnull translatedomain(char *dom)
154 b330c942 2005-10-31 devnull {
155 b330c942 2005-10-31 devnull 	static char buf[200];
156 b330c942 2005-10-31 devnull 	char *p, *ep, *q, *nextp, *file;
157 b330c942 2005-10-31 devnull 	char *bbuf, *ebuf;
158 b330c942 2005-10-31 devnull 	Reprog *exp;
159 b330c942 2005-10-31 devnull 
160 b330c942 2005-10-31 devnull 	if(dom == nil || *dom == 0)
161 b330c942 2005-10-31 devnull 		return nil;
162 b330c942 2005-10-31 devnull 
163 a5ba8a59 2005-11-12 devnull 	if((file = readfile(unsharp("#9/face/.machinelist"))) == nil)
164 b330c942 2005-10-31 devnull 		return dom;
165 b330c942 2005-10-31 devnull 
166 b330c942 2005-10-31 devnull 	for(p=file; p; p=nextp) {
167 b330c942 2005-10-31 devnull 		if(nextp = strchr(p, '\n'))
168 b330c942 2005-10-31 devnull 			*nextp++ = '\0';
169 b330c942 2005-10-31 devnull 
170 b330c942 2005-10-31 devnull 		if(*p == '#' || (q = strpbrk(p, " \t")) == nil || q-p > sizeof(buf)-2)
171 b330c942 2005-10-31 devnull 			continue;
172 b330c942 2005-10-31 devnull 
173 b330c942 2005-10-31 devnull 		bbuf = buf+1;
174 b330c942 2005-10-31 devnull 		ebuf = buf+(1+(q-p));
175 b330c942 2005-10-31 devnull 		strncpy(bbuf, p, ebuf-bbuf);
176 b330c942 2005-10-31 devnull 		*ebuf = 0;
177 b330c942 2005-10-31 devnull 		if(*bbuf != '^')
178 b330c942 2005-10-31 devnull 			*--bbuf = '^';
179 b330c942 2005-10-31 devnull 		if(ebuf[-1] != '$') {
180 b330c942 2005-10-31 devnull 			*ebuf++ = '$';
181 b330c942 2005-10-31 devnull 			*ebuf = 0;
182 b330c942 2005-10-31 devnull 		}
183 b330c942 2005-10-31 devnull 
184 b330c942 2005-10-31 devnull 		if((exp = regcomp(bbuf)) == nil){
185 b330c942 2005-10-31 devnull 			fprint(2, "bad regexp in machinelist: %s\n", bbuf);
186 b330c942 2005-10-31 devnull 			killall("regexp");
187 b330c942 2005-10-31 devnull 		}
188 b330c942 2005-10-31 devnull 
189 b330c942 2005-10-31 devnull 		if(regexec(exp, dom, 0, 0)){
190 b330c942 2005-10-31 devnull 			free(exp);
191 b330c942 2005-10-31 devnull 			ep = p+strlen(p);
192 b330c942 2005-10-31 devnull 			q += strspn(q, " \t");
193 b330c942 2005-10-31 devnull 			if(ep-q+2 > sizeof buf) {
194 b330c942 2005-10-31 devnull 				fprint(2, "huge replacement in machinelist: %.*s\n", utfnlen(q, ep-q), q);
195 b330c942 2005-10-31 devnull 				exits("bad big replacement");
196 b330c942 2005-10-31 devnull 			}
197 b330c942 2005-10-31 devnull 			strncpy(buf, q, ep-q);
198 b330c942 2005-10-31 devnull 			ebuf = buf+(ep-q);
199 b330c942 2005-10-31 devnull 			*ebuf = 0;
200 b330c942 2005-10-31 devnull 			while(ebuf > buf && (ebuf[-1] == ' ' || ebuf[-1] == '\t'))
201 b330c942 2005-10-31 devnull 				*--ebuf = 0;
202 b330c942 2005-10-31 devnull 			free(file);
203 b330c942 2005-10-31 devnull 			return buf;
204 b330c942 2005-10-31 devnull 		}
205 b330c942 2005-10-31 devnull 		free(exp);
206 b330c942 2005-10-31 devnull 	}
207 b330c942 2005-10-31 devnull 	free(file);
208 b330c942 2005-10-31 devnull 
209 b330c942 2005-10-31 devnull 	return dom;
210 b330c942 2005-10-31 devnull }
211 b330c942 2005-10-31 devnull 
212 b330c942 2005-10-31 devnull static char*
213 b330c942 2005-10-31 devnull tryfindpicture_user(char *dom, char *user, int depth)
214 b330c942 2005-10-31 devnull {
215 b330c942 2005-10-31 devnull 	static char buf[200];
216 a5ba8a59 2005-11-12 devnull 	char *p, *q, *nextp, *file;
217 a5ba8a59 2005-11-12 devnull 	static char *home;
218 b330c942 2005-10-31 devnull 
219 a5ba8a59 2005-11-12 devnull 	if(home == nil)
220 a5ba8a59 2005-11-12 devnull 		home = getenv("home");
221 a5ba8a59 2005-11-12 devnull 	if(home == nil)
222 a5ba8a59 2005-11-12 devnull 		home = getenv("HOME");
223 a5ba8a59 2005-11-12 devnull 	if(home == nil)
224 a5ba8a59 2005-11-12 devnull 		return nil;
225 a5ba8a59 2005-11-12 devnull 
226 a5ba8a59 2005-11-12 devnull 	sprint(buf, "%s/lib/face/48x48x%d/.dict", home, depth);
227 b330c942 2005-10-31 devnull 	if((file = readfile(buf)) == nil)
228 b330c942 2005-10-31 devnull 		return nil;
229 b330c942 2005-10-31 devnull 
230 b330c942 2005-10-31 devnull 	snprint(buf, sizeof buf, "%s/%s", dom, user);
231 b330c942 2005-10-31 devnull 
232 b330c942 2005-10-31 devnull 	for(p=file; p; p=nextp) {
233 b330c942 2005-10-31 devnull 		if(nextp = strchr(p, '\n'))
234 b330c942 2005-10-31 devnull 			*nextp++ = '\0';
235 b330c942 2005-10-31 devnull 
236 b330c942 2005-10-31 devnull 		if(*p == '#' || (q = strpbrk(p, " \t")) == nil)
237 b330c942 2005-10-31 devnull 			continue;
238 b330c942 2005-10-31 devnull 		*q++ = 0;
239 b330c942 2005-10-31 devnull 
240 b330c942 2005-10-31 devnull 		if(strcmp(buf, p) == 0) {
241 b330c942 2005-10-31 devnull 			q += strspn(q, " \t");
242 a5ba8a59 2005-11-12 devnull 			q = buf+snprint(buf, sizeof buf, "%s/lib/face/48x48x%d/%s", home, depth, q);
243 b330c942 2005-10-31 devnull 			while(q > buf && (q[-1] == ' ' || q[-1] == '\t'))
244 b330c942 2005-10-31 devnull 				*--q = 0;
245 b330c942 2005-10-31 devnull 			free(file);
246 b330c942 2005-10-31 devnull 			return buf;
247 b330c942 2005-10-31 devnull 		}
248 b330c942 2005-10-31 devnull 	}
249 b330c942 2005-10-31 devnull 	free(file);
250 b330c942 2005-10-31 devnull 	return nil;			
251 b330c942 2005-10-31 devnull }
252 b330c942 2005-10-31 devnull 
253 b330c942 2005-10-31 devnull static char*
254 b330c942 2005-10-31 devnull tryfindpicture_global(char *dom, char *user, int depth)
255 b330c942 2005-10-31 devnull {
256 b330c942 2005-10-31 devnull 	static char buf[200];
257 b330c942 2005-10-31 devnull 	char *p, *q, *nextp, *file;
258 b330c942 2005-10-31 devnull 
259 a5ba8a59 2005-11-12 devnull 	sprint(buf, "#9/face/48x48x%d/.dict", depth);
260 b330c942 2005-10-31 devnull 	if((file = readfile(unsharp(buf))) == nil)
261 b330c942 2005-10-31 devnull 		return nil;
262 b330c942 2005-10-31 devnull 
263 b330c942 2005-10-31 devnull 	snprint(buf, sizeof buf, "%s/%s", dom, user);
264 b330c942 2005-10-31 devnull 
265 b330c942 2005-10-31 devnull 	for(p=file; p; p=nextp) {
266 b330c942 2005-10-31 devnull 		if(nextp = strchr(p, '\n'))
267 b330c942 2005-10-31 devnull 			*nextp++ = '\0';
268 b330c942 2005-10-31 devnull 
269 b330c942 2005-10-31 devnull 		if(*p == '#' || (q = strpbrk(p, " \t")) == nil)
270 b330c942 2005-10-31 devnull 			continue;
271 b330c942 2005-10-31 devnull 		*q++ = 0;
272 b330c942 2005-10-31 devnull 
273 b330c942 2005-10-31 devnull 		if(strcmp(buf, p) == 0) {
274 b330c942 2005-10-31 devnull 			q += strspn(q, " \t");
275 a5ba8a59 2005-11-12 devnull 			q = buf+snprint(buf, sizeof buf, "#9/face/48x48x%d/%s", depth, q);
276 b330c942 2005-10-31 devnull 			while(q > buf && (q[-1] == ' ' || q[-1] == '\t'))
277 b330c942 2005-10-31 devnull 				*--q = 0;
278 b330c942 2005-10-31 devnull 			free(file);
279 b330c942 2005-10-31 devnull 			return unsharp(buf);
280 b330c942 2005-10-31 devnull 		}
281 b330c942 2005-10-31 devnull 	}
282 b330c942 2005-10-31 devnull 	free(file);
283 b330c942 2005-10-31 devnull 	return nil;			
284 b330c942 2005-10-31 devnull }
285 b330c942 2005-10-31 devnull 
286 b330c942 2005-10-31 devnull static char*
287 b330c942 2005-10-31 devnull tryfindpicture(char *dom, char *user, int depth)
288 b330c942 2005-10-31 devnull {
289 b330c942 2005-10-31 devnull 	char* result;
290 b330c942 2005-10-31 devnull 
291 b330c942 2005-10-31 devnull 	if((result = tryfindpicture_user(dom, user, depth)) != nil)
292 b330c942 2005-10-31 devnull 		return result;
293 b330c942 2005-10-31 devnull 
294 b330c942 2005-10-31 devnull 	return tryfindpicture_global(dom, user, depth);
295 b330c942 2005-10-31 devnull }
296 b330c942 2005-10-31 devnull 
297 b330c942 2005-10-31 devnull static char*
298 b330c942 2005-10-31 devnull tryfindfile(char *dom, char *user, int depth)
299 b330c942 2005-10-31 devnull {
300 b330c942 2005-10-31 devnull 	char *p, *q;
301 b330c942 2005-10-31 devnull 
302 b330c942 2005-10-31 devnull 	for(;;){
303 b330c942 2005-10-31 devnull 		for(p=dom; p; (p=strchr(p, '.')) && p++)
304 b330c942 2005-10-31 devnull 			if(q = tryfindpicture(p, user, depth))
305 b330c942 2005-10-31 devnull 				return q;
306 b330c942 2005-10-31 devnull 		depth >>= 1;
307 b330c942 2005-10-31 devnull 		if(depth == 0)
308 b330c942 2005-10-31 devnull 			break;
309 b330c942 2005-10-31 devnull 	}
310 b330c942 2005-10-31 devnull 	return nil;
311 b330c942 2005-10-31 devnull }
312 b330c942 2005-10-31 devnull 
313 b330c942 2005-10-31 devnull char*
314 b330c942 2005-10-31 devnull findfile(Face *f, char *dom, char *user)
315 b330c942 2005-10-31 devnull {
316 b330c942 2005-10-31 devnull 	char *p;
317 b330c942 2005-10-31 devnull 	int depth;
318 b330c942 2005-10-31 devnull 
319 b330c942 2005-10-31 devnull 	if(facedom == nil){
320 b330c942 2005-10-31 devnull 		facedom = getenv("facedom");
321 b330c942 2005-10-31 devnull 		if(facedom == nil)
322 b330c942 2005-10-31 devnull 			facedom = DEFAULT;
323 b330c942 2005-10-31 devnull 	}
324 b330c942 2005-10-31 devnull 
325 b330c942 2005-10-31 devnull 	dom = translatedomain(dom);
326 b330c942 2005-10-31 devnull 	if(dom == nil)
327 b330c942 2005-10-31 devnull 		dom = facedom;
328 b330c942 2005-10-31 devnull 
329 b330c942 2005-10-31 devnull 	if(screen == nil)
330 b330c942 2005-10-31 devnull 		depth = 8;
331 b330c942 2005-10-31 devnull 	else
332 b330c942 2005-10-31 devnull 		depth = screen->depth;
333 b330c942 2005-10-31 devnull 
334 b330c942 2005-10-31 devnull 	if(depth > 8)
335 b330c942 2005-10-31 devnull 		depth = 8;
336 b330c942 2005-10-31 devnull 
337 b330c942 2005-10-31 devnull 	f->unknown = 0;
338 b330c942 2005-10-31 devnull 	if(p = tryfindfile(dom, user, depth))
339 b330c942 2005-10-31 devnull 		return p;
340 b330c942 2005-10-31 devnull 	f->unknown = 1;
341 b330c942 2005-10-31 devnull 	p = tryfindfile(dom, "unknown", depth);
342 b330c942 2005-10-31 devnull 	if(p != nil || strcmp(dom, facedom)==0)
343 b330c942 2005-10-31 devnull 		return p;
344 b330c942 2005-10-31 devnull 	return tryfindfile("unknown", "unknown", depth);
345 b330c942 2005-10-31 devnull }
346 b330c942 2005-10-31 devnull 
347 b330c942 2005-10-31 devnull static
348 b330c942 2005-10-31 devnull void
349 b330c942 2005-10-31 devnull clearsaved(void)
350 b330c942 2005-10-31 devnull {
351 b330c942 2005-10-31 devnull 	Facefile *f, *next, **lf;
352 b330c942 2005-10-31 devnull 
353 b330c942 2005-10-31 devnull 	lf = &facefiles;
354 b330c942 2005-10-31 devnull 	for(f=facefiles; f!=nil; f=next){
355 b330c942 2005-10-31 devnull 		next = f->next;
356 b330c942 2005-10-31 devnull 		if(f->ref > 0){
357 b330c942 2005-10-31 devnull 			*lf = f;
358 b330c942 2005-10-31 devnull 			lf = &(f->next);
359 b330c942 2005-10-31 devnull 			continue;
360 b330c942 2005-10-31 devnull 		}
361 b330c942 2005-10-31 devnull 		if(f->image != display->black && f->image != display->white)
362 b330c942 2005-10-31 devnull 			freeimage(f->image);
363 b330c942 2005-10-31 devnull 		free(f->file);
364 b330c942 2005-10-31 devnull 		free(f);
365 b330c942 2005-10-31 devnull 	}
366 b330c942 2005-10-31 devnull 	*lf = nil;
367 b330c942 2005-10-31 devnull 	nsaved = 0;
368 b330c942 2005-10-31 devnull }
369 b330c942 2005-10-31 devnull 
370 b330c942 2005-10-31 devnull void
371 b330c942 2005-10-31 devnull freefacefile(Facefile *f)
372 b330c942 2005-10-31 devnull {
373 b330c942 2005-10-31 devnull 	if(f==nil || f->ref-->1)
374 b330c942 2005-10-31 devnull 		return;
375 b330c942 2005-10-31 devnull 	if(++nsaved > Nsave)
376 b330c942 2005-10-31 devnull 		clearsaved();
377 b330c942 2005-10-31 devnull }	
378 b330c942 2005-10-31 devnull 
379 b330c942 2005-10-31 devnull static Image*
380 b330c942 2005-10-31 devnull myallocimage(ulong chan)
381 b330c942 2005-10-31 devnull {
382 b330c942 2005-10-31 devnull 	Image *img;
383 b330c942 2005-10-31 devnull 	img = allocimage(display, Rect(0,0,Facesize,Facesize), chan, 0, DNofill);
384 b330c942 2005-10-31 devnull 	if(img == nil){
385 b330c942 2005-10-31 devnull 		clearsaved();
386 b330c942 2005-10-31 devnull 		img = allocimage(display, Rect(0,0,Facesize,Facesize), chan, 0, DNofill);
387 b330c942 2005-10-31 devnull 		if(img == nil)
388 b330c942 2005-10-31 devnull 			return nil;
389 b330c942 2005-10-31 devnull 	}
390 b330c942 2005-10-31 devnull 	return img;
391 b330c942 2005-10-31 devnull }
392 b330c942 2005-10-31 devnull 		
393 b330c942 2005-10-31 devnull 
394 b330c942 2005-10-31 devnull static Image*
395 b330c942 2005-10-31 devnull readbit(int fd, ulong chan)
396 b330c942 2005-10-31 devnull {
397 b330c942 2005-10-31 devnull 	char buf[4096], hx[4], *p;
398 b330c942 2005-10-31 devnull 	uchar data[Facesize*Facesize];	/* more than enough */
399 b330c942 2005-10-31 devnull 	int nhx, i, n, ndata, nbit;
400 b330c942 2005-10-31 devnull 	Image *img;
401 b330c942 2005-10-31 devnull 
402 b330c942 2005-10-31 devnull 	n = readn(fd, buf, sizeof buf);
403 b330c942 2005-10-31 devnull 	if(n <= 0)
404 b330c942 2005-10-31 devnull 		return nil;
405 b330c942 2005-10-31 devnull 	if(n >= sizeof buf)
406 b330c942 2005-10-31 devnull 		n = sizeof(buf)-1;
407 b330c942 2005-10-31 devnull 	buf[n] = '\0';
408 b330c942 2005-10-31 devnull 
409 b330c942 2005-10-31 devnull 	n = 0;
410 b330c942 2005-10-31 devnull 	nhx = 0;
411 b330c942 2005-10-31 devnull 	nbit = chantodepth(chan);
412 b330c942 2005-10-31 devnull 	ndata = (Facesize*Facesize*nbit)/8;
413 b330c942 2005-10-31 devnull 	p = buf;
414 b330c942 2005-10-31 devnull 	while(n < ndata) {
415 b330c942 2005-10-31 devnull 		p = strpbrk(p+1, "0123456789abcdefABCDEF");
416 b330c942 2005-10-31 devnull 		if(p == nil)
417 b330c942 2005-10-31 devnull 			break;
418 b330c942 2005-10-31 devnull 		if(p[0] == '0' && p[1] == 'x')
419 b330c942 2005-10-31 devnull 			continue;
420 b330c942 2005-10-31 devnull 
421 b330c942 2005-10-31 devnull 		hx[nhx] = *p;
422 b330c942 2005-10-31 devnull 		if(++nhx == 2) {
423 b330c942 2005-10-31 devnull 			hx[nhx] = 0;
424 b330c942 2005-10-31 devnull 			i = strtoul(hx, 0, 16);
425 b330c942 2005-10-31 devnull 			data[n++] = i;
426 b330c942 2005-10-31 devnull 			nhx = 0;
427 b330c942 2005-10-31 devnull 		}
428 b330c942 2005-10-31 devnull 	}
429 b330c942 2005-10-31 devnull 	if(n < ndata)
430 b330c942 2005-10-31 devnull 		return allocimage(display, Rect(0,0,Facesize,Facesize), CMAP8, 0, 0x88888888);
431 b330c942 2005-10-31 devnull 
432 b330c942 2005-10-31 devnull 	img = myallocimage(chan);
433 b330c942 2005-10-31 devnull 	if(img == nil)
434 b330c942 2005-10-31 devnull 		return nil;
435 b330c942 2005-10-31 devnull 	loadimage(img, img->r, data, ndata);
436 b330c942 2005-10-31 devnull 	return img;
437 b330c942 2005-10-31 devnull }
438 b330c942 2005-10-31 devnull 
439 b330c942 2005-10-31 devnull static Facefile*
440 b330c942 2005-10-31 devnull readface(char *fn)
441 b330c942 2005-10-31 devnull {
442 b330c942 2005-10-31 devnull 	int x, y, fd;
443 b330c942 2005-10-31 devnull 	uchar bits;
444 b330c942 2005-10-31 devnull 	uchar *p;
445 b330c942 2005-10-31 devnull 	Image *mask;
446 b330c942 2005-10-31 devnull 	Image *face;
447 b330c942 2005-10-31 devnull 	char buf[16];
448 b330c942 2005-10-31 devnull 	uchar data[Facesize*Facesize];
449 b330c942 2005-10-31 devnull 	uchar mdata[(Facesize*Facesize)/8];
450 b330c942 2005-10-31 devnull 	Facefile *f;
451 b330c942 2005-10-31 devnull 	Dir *d;
452 b330c942 2005-10-31 devnull 
453 b330c942 2005-10-31 devnull 	for(f=facefiles; f!=nil; f=f->next){
454 b330c942 2005-10-31 devnull 		if(strcmp(fn, f->file) == 0){
455 b330c942 2005-10-31 devnull 			if(f->image == nil)
456 b330c942 2005-10-31 devnull 				break;
457 b330c942 2005-10-31 devnull 			if(time(0) - f->rdtime >= 30) {
458 b330c942 2005-10-31 devnull 				if(dirmtime(fn) != f->mtime){
459 b330c942 2005-10-31 devnull 					f = nil;
460 b330c942 2005-10-31 devnull 					break;
461 b330c942 2005-10-31 devnull 				}
462 b330c942 2005-10-31 devnull 				f->rdtime = time(0);
463 b330c942 2005-10-31 devnull 			}
464 b330c942 2005-10-31 devnull 			f->ref++;
465 b330c942 2005-10-31 devnull 			return f;
466 b330c942 2005-10-31 devnull 		}
467 b330c942 2005-10-31 devnull 	}
468 b330c942 2005-10-31 devnull 
469 b330c942 2005-10-31 devnull 	if((fd = open(fn, OREAD)) < 0)
470 b330c942 2005-10-31 devnull 		return nil;
471 b330c942 2005-10-31 devnull 
472 b330c942 2005-10-31 devnull 	if(readn(fd, buf, sizeof buf) != sizeof buf){
473 b330c942 2005-10-31 devnull 		close(fd);
474 b330c942 2005-10-31 devnull 		return nil;
475 b330c942 2005-10-31 devnull 	}
476 b330c942 2005-10-31 devnull 
477 b330c942 2005-10-31 devnull 	seek(fd, 0, 0);
478 b330c942 2005-10-31 devnull 
479 b330c942 2005-10-31 devnull 	mask = nil;
480 b330c942 2005-10-31 devnull 	if(buf[0] == '0' && buf[1] == 'x'){
481 b330c942 2005-10-31 devnull 		/* greyscale faces are just masks that we draw black through! */
482 b330c942 2005-10-31 devnull 		if(buf[2+8] == ',')	/* ldepth 1 */
483 b330c942 2005-10-31 devnull 			mask = readbit(fd, GREY2);
484 b330c942 2005-10-31 devnull 		else
485 b330c942 2005-10-31 devnull 			mask = readbit(fd, GREY1);
486 b330c942 2005-10-31 devnull 		face = display->black;
487 b330c942 2005-10-31 devnull 	}else{
488 b330c942 2005-10-31 devnull 		face = readimage(display, fd, 0);
489 b330c942 2005-10-31 devnull 		if(face == nil)
490 b330c942 2005-10-31 devnull 			goto Done;
491 b330c942 2005-10-31 devnull 		else if(face->chan == GREY4 || face->chan == GREY8){	/* greyscale: use inversion as mask */
492 b330c942 2005-10-31 devnull 			mask = myallocimage(face->chan);
493 b330c942 2005-10-31 devnull 			/* okay if mask is nil: that will copy the image white background and all */
494 b330c942 2005-10-31 devnull 			if(mask == nil)
495 b330c942 2005-10-31 devnull 				goto Done;
496 b330c942 2005-10-31 devnull 
497 b330c942 2005-10-31 devnull 			/* invert greyscale image */
498 b330c942 2005-10-31 devnull 			draw(mask, mask->r, display->white, nil, ZP);
499 b330c942 2005-10-31 devnull 			gendraw(mask, mask->r, display->black, ZP, face, face->r.min);
500 b330c942 2005-10-31 devnull 			freeimage(face);
501 b330c942 2005-10-31 devnull 			face = display->black;
502 b330c942 2005-10-31 devnull 		}else if(face->depth == 8){	/* snarf the bytes back and do a fill. */
503 b330c942 2005-10-31 devnull 			mask = myallocimage(GREY1);
504 b330c942 2005-10-31 devnull 			if(mask == nil)
505 b330c942 2005-10-31 devnull 				goto Done;
506 b330c942 2005-10-31 devnull 			if(unloadimage(face, face->r, data, Facesize*Facesize) != Facesize*Facesize){	
507 b330c942 2005-10-31 devnull 				freeimage(mask);
508 b330c942 2005-10-31 devnull 				goto Done;
509 b330c942 2005-10-31 devnull 			}
510 b330c942 2005-10-31 devnull 			bits = 0;
511 b330c942 2005-10-31 devnull 			p = mdata;
512 b330c942 2005-10-31 devnull 			for(y=0; y<Facesize; y++){
513 b330c942 2005-10-31 devnull 				for(x=0; x<Facesize; x++){	
514 b330c942 2005-10-31 devnull 					bits <<= 1;
515 b330c942 2005-10-31 devnull 					if(data[Facesize*y+x] != 0xFF)
516 b330c942 2005-10-31 devnull 						bits |= 1;
517 b330c942 2005-10-31 devnull 					if((x&7) == 7)
518 b330c942 2005-10-31 devnull 						*p++ = bits&0xFF;
519 b330c942 2005-10-31 devnull 				}
520 b330c942 2005-10-31 devnull 			}
521 b330c942 2005-10-31 devnull 			if(loadimage(mask, mask->r, mdata, sizeof mdata) != sizeof mdata){
522 b330c942 2005-10-31 devnull 				freeimage(mask);
523 b330c942 2005-10-31 devnull 				goto Done;
524 b330c942 2005-10-31 devnull 			}
525 b330c942 2005-10-31 devnull 		}
526 b330c942 2005-10-31 devnull 	}
527 b330c942 2005-10-31 devnull 
528 b330c942 2005-10-31 devnull Done:
529 b330c942 2005-10-31 devnull 	/* always add at beginning of list, so updated files don't collide in cache */
530 b330c942 2005-10-31 devnull 	if(f == nil){
531 b330c942 2005-10-31 devnull 		f = emalloc(sizeof(Facefile));
532 b330c942 2005-10-31 devnull 		f->file = estrdup(fn);
533 b330c942 2005-10-31 devnull 		d = dirfstat(fd);
534 b330c942 2005-10-31 devnull 		if(d != nil){
535 b330c942 2005-10-31 devnull 			f->mtime = d->mtime;
536 b330c942 2005-10-31 devnull 			free(d);
537 b330c942 2005-10-31 devnull 		}
538 b330c942 2005-10-31 devnull 		f->next = facefiles;
539 b330c942 2005-10-31 devnull 		facefiles = f;
540 b330c942 2005-10-31 devnull 	}
541 b330c942 2005-10-31 devnull 	f->ref++;
542 b330c942 2005-10-31 devnull 	f->image = face;
543 b330c942 2005-10-31 devnull 	f->mask = mask;
544 b330c942 2005-10-31 devnull 	f->rdtime = time(0);
545 b330c942 2005-10-31 devnull 	close(fd);
546 b330c942 2005-10-31 devnull 	return f;
547 b330c942 2005-10-31 devnull }
548 b330c942 2005-10-31 devnull 
549 b330c942 2005-10-31 devnull void
550 b330c942 2005-10-31 devnull findbit(Face *f)
551 b330c942 2005-10-31 devnull {
552 b330c942 2005-10-31 devnull 	char *fn;
553 b330c942 2005-10-31 devnull 
554 b330c942 2005-10-31 devnull 	fn = findfile(f, f->str[Sdomain], f->str[Suser]);
555 b330c942 2005-10-31 devnull 	if(fn) {
556 b330c942 2005-10-31 devnull 		if(strstr(fn, "unknown"))
557 b330c942 2005-10-31 devnull 			f->unknown = 1;
558 b330c942 2005-10-31 devnull 		f->file = readface(fn);
559 b330c942 2005-10-31 devnull 	}
560 b330c942 2005-10-31 devnull 	if(f->file){
561 b330c942 2005-10-31 devnull 		f->bit = f->file->image;
562 b330c942 2005-10-31 devnull 		f->mask = f->file->mask;
563 b330c942 2005-10-31 devnull 	}else{
564 b330c942 2005-10-31 devnull 		/* if returns nil, this is still ok: draw(nil) works */
565 b330c942 2005-10-31 devnull 		f->bit = allocimage(display, Rect(0,0,1,1), CMAP8, 1, DYellow);
566 b330c942 2005-10-31 devnull 		replclipr(f->bit, 1, Rect(0, 0, Facesize, Facesize));
567 b330c942 2005-10-31 devnull 		f->mask = nil;
568 b330c942 2005-10-31 devnull 	}
569 b330c942 2005-10-31 devnull }