9 * we included thread.h in order to include 9p.h,
10 * but we don't use threads, so exits is ok.
19 fprint(2, "usage: fontsrv [-m mtpt]\n");
20 fprint(2, "or fontsrv -p path\n");
26 packinfo(Fontchar *fc, uchar *p, int n)
51 #define QTYPE(p) ((p) & 0xF)
52 #define QFONT(p) (((p) >> 4) & 0xFFFF)
53 #define QSIZE(p) (((p) >> 20) & 0xFF)
54 #define QANTIALIAS(p) (((p) >> 28) & 0x1)
55 #define QRANGE(p) (((p) >> 29) & 0xFFFFFF)
56 static int sizes[] = { 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 24, 28 };
59 qpath(int type, int font, int size, int antialias, int range)
61 return type | (font << 4) | (size << 20) | (antialias << 28) | ((vlong)range << 29);
65 dostat(vlong path, Qid *qid, Dir *dir)
83 sysfatal("dostat %#llux", path);
92 f = &xfont[QFONT(path)];
98 snprint(buf, sizeof buf, "%lld%s", QSIZE(path), QANTIALIAS(path) ? "a" : "");
103 f = &xfont[QFONT(path)];
105 length = 11+1+11+1+f->nfile*(6+1+6+1+9+1);
110 snprint(buf, sizeof buf, "x%04x.bit", (int)QRANGE(path)*SubfontSize);
118 memset(dir, 0, sizeof *dir);
119 dir->name = estrdup9p(name);
120 dir->muid = estrdup9p("");
121 dir->uid = estrdup9p("font");
122 dir->gid = estrdup9p("font");
125 mode |= DMDIR | 0111;
127 dir->length = length;
132 xwalk1(Fid *fid, char *name, Qid *qid)
140 path = fid->qid.path;
141 dotdot = strcmp(name, "..") == 0;
142 switch(QTYPE(path)) {
145 return "file not found";
150 for(i=0; i<nxfont; i++) {
151 if(strcmp(xfont[i].name, name) == 0) {
152 path = qpath(Qfontdir, i, 0, 0, 0);
163 n = strtol(name, &p, 10);
173 path += Qsizedir - Qfontdir + qpath(0, 0, n, a, 0);
178 path = qpath(Qfontdir, QFONT(path), 0, 0, 0);
181 if(strcmp(name, "font") == 0) {
182 path += Qfontfile - Qsizedir;
185 f = &xfont[QFONT(path)];
191 n = strtoul(p, &p, 16);
192 if(p < name+5 || p > name+5 && name[1] == '0' || n%SubfontSize != 0 || n/SubfontSize >= MaxSubfont || strcmp(p, ".bit") != 0 || !f->range[n/SubfontSize])
194 path += Qsubfontfile - Qsizedir + qpath(0, 0, 0, 0, n/SubfontSize);
198 dostat(path, qid, nil);
204 rootgen(int i, Dir *d, void *v)
208 dostat(qpath(Qfontdir, i, 0, 0, 0), nil, d);
213 fontgen(int i, Dir *d, void *v)
220 if(i >= 2*nelem(sizes))
222 dostat(qpath(Qsizedir, QFONT(path), sizes[i/2], i&1, 0), nil, d);
227 sizegen(int i, Dir *d, void *v)
234 path = fid->qid.path;
236 path += Qfontfile - Qsizedir;
240 f = &xfont[QFONT(path)];
243 path += Qsubfontfile - Qsizedir;
244 path += qpath(0, 0, 0, 0, f->file[i]);
250 dostat(path, nil, d);
257 dostat(0, &r->ofcall.qid, nil);
258 r->fid->qid = r->ofcall.qid;
265 if(r->ifcall.mode != OREAD) {
266 respond(r, "permission denied");
269 r->ofcall.qid = r->fid->qid;
274 responderrstr(Req *r)
278 rerrstr(err, sizeof err);
285 int i, size, height, ascent;
293 path = r->fid->qid.path;
294 switch(QTYPE(path)) {
296 dirread9p(r, rootgen, nil);
299 dirread9p(r, fontgen, r->fid);
302 dirread9p(r, sizegen, r->fid);
306 f = &xfont[QFONT(path)];
308 if(f->unit == 0 && f->loadheight == nil) {
309 readstr(r, "font missing\n");
312 if(f->fonttext == nil) {
316 height = f->height * (int)QSIZE(path)/f->unit + 0.99999999;
317 ascent = height - (int)(-f->originy * (int)QSIZE(path)/f->unit + 0.99999999);
319 if(f->loadheight != nil)
320 f->loadheight(f, QSIZE(path), &height, &ascent);
321 fmtprint(&fmt, "%11d %11d\n", height, ascent);
322 for(i=0; i<f->nfile; i++)
323 fmtprint(&fmt, "0x%04x 0x%04x x%04x.bit\n", f->file[i]*SubfontSize, ((f->file[i]+1)*SubfontSize) - 1, f->file[i]*SubfontSize);
324 f->fonttext = fmtstrflush(&fmt);
325 f->nfonttext = strlen(f->fonttext);
327 readbuf(r, f->fonttext, f->nfonttext);
330 f = &xfont[QFONT(path)];
332 if(r->fid->aux == nil) {
333 r->fid->aux = mksubfont(f, f->name, QRANGE(path)*SubfontSize, ((QRANGE(path)+1)*SubfontSize)-1, QSIZE(path), QANTIALIAS(path));
334 if(r->fid->aux == nil) {
341 if(r->ifcall.offset < 5*12) {
347 data = smprint("%11s %11d %11d %11d %11d ", chan, m->r.min.x, m->r.min.y, m->r.max.x, m->r.max.y);
352 r->ifcall.offset -= 5*12;
353 size = bytesperline(m->r, chantodepth(m->chan)) * Dy(m->r);
354 if(r->ifcall.offset < size) {
355 readbuf(r, byteaddr(m, m->r.min), size);
358 r->ifcall.offset -= size;
359 data = emalloc9p(3*12+6*(sf->n+1));
360 sprint(data, "%11d %11d %11d ", sf->n, sf->height, sf->ascent);
361 packinfo(sf->info, (uchar*)data+3*12, sf->n);
362 readbuf(r, data, 3*12+6*(sf->n+1));
370 xdestroyfid(Fid *fid)
378 freememimage(sf->bits);
387 dostat(r->fid->qid.path, nil, &r->d);
394 proccreate(void (*f)(void*), void *a, unsigned i)
401 static long dirpackage(uchar*, long, Dir**);
406 char *elem, *p, *path0, *err;
415 memset(&fid, 0, sizeof fid);
416 dostat(0, &fid.qid, nil);
421 p = strchr(path, '/');
425 if(strcmp(elem, "") != 0 && strcmp(elem, ".") != 0) {
426 err = xwalk1(&fid, elem, &qid);
428 fprint(2, "%s: %s\n", path0, err);
437 memset(&r, 0, sizeof r);
445 r.ifcall.type = Tread;
446 r.ifcall.count = sizeof buf;
447 r.ifcall.offset = off;
448 r.ofcall.data = (char*)buf;
451 if(r.ofcall.type != Rread) {
452 fprint(2, "reading %s: %s\n", path0, r.ofcall.ename);
453 exits(r.ofcall.ename);
458 if(off == 0 && pflag > 1) {
462 if(qid.type & QTDIR) {
463 n = dirpackage(buf, n, &d);
465 print("%s%s\n", d[i].name, (d[i].mode&DMDIR) ? "/" : "");
473 fontcmp(const void *va, const void *vb)
479 return strcmp(a->name, b->name);
483 main(int argc, char **argv)
485 char *mtpt, *srvname;
498 mtpt = EARGF(usage());
501 srvname = EARGF(usage());
510 xsrv.attach = xattach;
515 xsrv.destroyfid = xdestroyfid;
517 fmtinstall('R', Rfmt);
518 fmtinstall('P', Pfmt);
521 qsort(xfont, nxfont, sizeof xfont[0], fontcmp);
524 if(argc != 1 || chatty9p || chattyfuse)
530 if(pflag || argc != 0)
534 * Check twice -- if there is an exited instance
535 * mounted there, the first access will fail but unmount it.
537 if(mtpt && access(mtpt, AEXIST) < 0 && access(mtpt, AEXIST) < 0)
538 sysfatal("mountpoint %s does not exist", mtpt);
541 threadpostmountsrv(&xsrv, srvname, mtpt, 0);
545 /sys/src/libc/9sys/dirread.c
549 dirpackage(uchar *buf, long ts, Dir **d)
552 long ss, i, n, nn, m;
559 * first find number of all stats, check they look like stats, & size all associated strings
563 for(i = 0; i < ts; i += m){
564 m = BIT16SZ + GBIT16(&buf[i]);
565 if(statcheck(&buf[i], m) < 0)
574 *d = malloc(n * sizeof(Dir) + ss);
579 * then convert all buffers
581 s = (char*)*d + n * sizeof(Dir);
583 for(i = 0; i < ts; i += m){
584 m = BIT16SZ + GBIT16((uchar*)&buf[i]);
585 if(nn >= n || convM2D(&buf[i], m, *d + nn, s) != m){