1 9b4a2324 2009-07-09 rsc #include <u.h>
2 9b4a2324 2009-07-09 rsc #include <libc.h>
3 9b4a2324 2009-07-09 rsc #include <draw.h>
4 9b4a2324 2009-07-09 rsc #include <memdraw.h>
5 9b4a2324 2009-07-09 rsc #include <thread.h>
6 9b4a2324 2009-07-09 rsc #include <fcall.h>
7 9b4a2324 2009-07-09 rsc #include <9p.h>
9 9b4a2324 2009-07-09 rsc * we included thread.h in order to include 9p.h,
10 9b4a2324 2009-07-09 rsc * but we don't use threads, so exits is ok.
14 9b4a2324 2009-07-09 rsc #include "a.h"
19 9b4a2324 2009-07-09 rsc fprint(2, "usage: fontsrv [-m mtpt]\n");
20 9b4a2324 2009-07-09 rsc fprint(2, "or fontsrv -p path\n");
21 9b4a2324 2009-07-09 rsc exits("usage");
26 9b4a2324 2009-07-09 rsc packinfo(Fontchar *fc, uchar *p, int n)
30 9b4a2324 2009-07-09 rsc for(j=0; j<=n; j++){
31 9b4a2324 2009-07-09 rsc p[0] = fc->x;
32 9b4a2324 2009-07-09 rsc p[1] = fc->x>>8;
33 9b4a2324 2009-07-09 rsc p[2] = fc->top;
34 9b4a2324 2009-07-09 rsc p[3] = fc->bottom;
35 9b4a2324 2009-07-09 rsc p[4] = fc->left;
36 9b4a2324 2009-07-09 rsc p[5] = fc->width;
48 9b4a2324 2009-07-09 rsc Qsubfontfile,
51 9b4a2324 2009-07-09 rsc #define QTYPE(p) ((p) & 0xF)
52 9b4a2324 2009-07-09 rsc #define QFONT(p) (((p) >> 4) & 0xFFFF)
53 9b4a2324 2009-07-09 rsc #define QSIZE(p) (((p) >> 20) & 0xFF)
54 9b4a2324 2009-07-09 rsc #define QANTIALIAS(p) (((p) >> 28) & 0x1)
55 5f0fa185 2020-05-30 rsc #define QRANGE(p) (((p) >> 29) & 0xFFFFFF)
56 9b4a2324 2009-07-09 rsc static int sizes[] = { 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 24, 28 };
59 9b4a2324 2009-07-09 rsc qpath(int type, int font, int size, int antialias, int range)
61 9b4a2324 2009-07-09 rsc return type | (font << 4) | (size << 20) | (antialias << 28) | ((vlong)range << 29);
65 9b4a2324 2009-07-09 rsc dostat(vlong path, Qid *qid, Dir *dir)
70 9b4a2324 2009-07-09 rsc vlong length;
72 9b4a2324 2009-07-09 rsc char buf[100];
76 9b4a2324 2009-07-09 rsc q.path = path;
79 9b4a2324 2009-07-09 rsc name = "???";
81 9b4a2324 2009-07-09 rsc switch(QTYPE(path)) {
83 9b4a2324 2009-07-09 rsc sysfatal("dostat %#llux", path);
86 9b4a2324 2009-07-09 rsc q.type = QTDIR;
90 9b4a2324 2009-07-09 rsc case Qfontdir:
91 9b4a2324 2009-07-09 rsc q.type = QTDIR;
92 9b4a2324 2009-07-09 rsc f = &xfont[QFONT(path)];
93 9b4a2324 2009-07-09 rsc name = f->name;
96 9b4a2324 2009-07-09 rsc case Qsizedir:
97 9b4a2324 2009-07-09 rsc q.type = QTDIR;
98 9b4a2324 2009-07-09 rsc snprint(buf, sizeof buf, "%lld%s", QSIZE(path), QANTIALIAS(path) ? "a" : "");
102 9b4a2324 2009-07-09 rsc case Qfontfile:
103 9b4a2324 2009-07-09 rsc f = &xfont[QFONT(path)];
105 5f0fa185 2020-05-30 rsc length = 11+1+11+1+f->nfile*(6+1+6+1+9+1);
106 9b4a2324 2009-07-09 rsc name = "font";
109 9b4a2324 2009-07-09 rsc case Qsubfontfile:
110 775cb933 2015-08-27 rsc snprint(buf, sizeof buf, "x%04x.bit", (int)QRANGE(path)*SubfontSize);
118 9b4a2324 2009-07-09 rsc memset(dir, 0, sizeof *dir);
119 9b4a2324 2009-07-09 rsc dir->name = estrdup9p(name);
120 9b4a2324 2009-07-09 rsc dir->muid = estrdup9p("");
121 9b4a2324 2009-07-09 rsc dir->uid = estrdup9p("font");
122 9b4a2324 2009-07-09 rsc dir->gid = estrdup9p("font");
123 9b4a2324 2009-07-09 rsc dir->qid = q;
124 9b4a2324 2009-07-09 rsc if(q.type == QTDIR)
125 9b4a2324 2009-07-09 rsc mode |= DMDIR | 0111;
126 9b4a2324 2009-07-09 rsc dir->mode = mode;
127 9b4a2324 2009-07-09 rsc dir->length = length;
131 9b4a2324 2009-07-09 rsc static char*
132 9b4a2324 2009-07-09 rsc xwalk1(Fid *fid, char *name, Qid *qid)
134 9b4a2324 2009-07-09 rsc int i, dotdot;
140 9b4a2324 2009-07-09 rsc path = fid->qid.path;
141 9b4a2324 2009-07-09 rsc dotdot = strcmp(name, "..") == 0;
142 9b4a2324 2009-07-09 rsc switch(QTYPE(path)) {
145 32dc15fa 2015-02-17 rsc return "file not found";
150 9b4a2324 2009-07-09 rsc for(i=0; i<nxfont; i++) {
151 9b4a2324 2009-07-09 rsc if(strcmp(xfont[i].name, name) == 0) {
152 9b4a2324 2009-07-09 rsc path = qpath(Qfontdir, i, 0, 0, 0);
156 9b4a2324 2009-07-09 rsc goto NotFound;
158 9b4a2324 2009-07-09 rsc case Qfontdir:
159 9b4a2324 2009-07-09 rsc if(dotdot) {
160 9b4a2324 2009-07-09 rsc path = Qroot;
163 9b4a2324 2009-07-09 rsc n = strtol(name, &p, 10);
165 9b4a2324 2009-07-09 rsc goto NotFound;
167 9b4a2324 2009-07-09 rsc if(*p == 'a') {
172 9b4a2324 2009-07-09 rsc goto NotFound;
173 9b4a2324 2009-07-09 rsc path += Qsizedir - Qfontdir + qpath(0, 0, n, a, 0);
176 9b4a2324 2009-07-09 rsc case Qsizedir:
177 9b4a2324 2009-07-09 rsc if(dotdot) {
178 9b4a2324 2009-07-09 rsc path = qpath(Qfontdir, QFONT(path), 0, 0, 0);
181 9b4a2324 2009-07-09 rsc if(strcmp(name, "font") == 0) {
182 9b4a2324 2009-07-09 rsc path += Qfontfile - Qsizedir;
185 9b4a2324 2009-07-09 rsc f = &xfont[QFONT(path)];
188 9b4a2324 2009-07-09 rsc if(*p != 'x')
189 9b4a2324 2009-07-09 rsc goto NotFound;
191 9b4a2324 2009-07-09 rsc n = strtoul(p, &p, 16);
192 5f0fa185 2020-05-30 rsc if(p < name+5 || p > name+5 && name[1] == '0' || n%SubfontSize != 0 || n/SubfontSize >= MaxSubfont || strcmp(p, ".bit") != 0 || !f->range[n/SubfontSize])
193 9b4a2324 2009-07-09 rsc goto NotFound;
194 5f0fa185 2020-05-30 rsc path += Qsubfontfile - Qsizedir + qpath(0, 0, 0, 0, n/SubfontSize);
198 9b4a2324 2009-07-09 rsc dostat(path, qid, nil);
199 9b4a2324 2009-07-09 rsc fid->qid = *qid;
204 9b4a2324 2009-07-09 rsc rootgen(int i, Dir *d, void *v)
206 9b4a2324 2009-07-09 rsc if(i >= nxfont)
208 9b4a2324 2009-07-09 rsc dostat(qpath(Qfontdir, i, 0, 0, 0), nil, d);
213 9b4a2324 2009-07-09 rsc fontgen(int i, Dir *d, void *v)
219 9b4a2324 2009-07-09 rsc path = f->qid.path;
220 9b4a2324 2009-07-09 rsc if(i >= 2*nelem(sizes))
222 9b4a2324 2009-07-09 rsc dostat(qpath(Qsizedir, QFONT(path), sizes[i/2], i&1, 0), nil, d);
227 9b4a2324 2009-07-09 rsc sizegen(int i, Dir *d, void *v)
234 9b4a2324 2009-07-09 rsc path = fid->qid.path;
235 9b4a2324 2009-07-09 rsc if(i == 0) {
236 9b4a2324 2009-07-09 rsc path += Qfontfile - Qsizedir;
240 9b4a2324 2009-07-09 rsc f = &xfont[QFONT(path)];
242 5f0fa185 2020-05-30 rsc if(i < f->nfile) {
243 5f0fa185 2020-05-30 rsc path += Qsubfontfile - Qsizedir;
244 5f0fa185 2020-05-30 rsc path += qpath(0, 0, 0, 0, f->file[i]);
250 9b4a2324 2009-07-09 rsc dostat(path, nil, d);
255 9b4a2324 2009-07-09 rsc xattach(Req *r)
257 9b4a2324 2009-07-09 rsc dostat(0, &r->ofcall.qid, nil);
258 9b4a2324 2009-07-09 rsc r->fid->qid = r->ofcall.qid;
259 9b4a2324 2009-07-09 rsc respond(r, nil);
263 9b4a2324 2009-07-09 rsc xopen(Req *r)
265 9b4a2324 2009-07-09 rsc if(r->ifcall.mode != OREAD) {
266 9b4a2324 2009-07-09 rsc respond(r, "permission denied");
269 9b4a2324 2009-07-09 rsc r->ofcall.qid = r->fid->qid;
270 9b4a2324 2009-07-09 rsc respond(r, nil);
274 9b4a2324 2009-07-09 rsc responderrstr(Req *r)
276 9b4a2324 2009-07-09 rsc char err[ERRMAX];
278 9b4a2324 2009-07-09 rsc rerrstr(err, sizeof err);
279 9b4a2324 2009-07-09 rsc respond(r, err);
283 9b4a2324 2009-07-09 rsc xread(Req *r)
285 9b4a2324 2009-07-09 rsc int i, size, height, ascent;
290 9b4a2324 2009-07-09 rsc Memsubfont *sf;
291 9b4a2324 2009-07-09 rsc Memimage *m;
293 9b4a2324 2009-07-09 rsc path = r->fid->qid.path;
294 9b4a2324 2009-07-09 rsc switch(QTYPE(path)) {
296 9b4a2324 2009-07-09 rsc dirread9p(r, rootgen, nil);
298 9b4a2324 2009-07-09 rsc case Qfontdir:
299 9b4a2324 2009-07-09 rsc dirread9p(r, fontgen, r->fid);
301 9b4a2324 2009-07-09 rsc case Qsizedir:
302 9b4a2324 2009-07-09 rsc dirread9p(r, sizegen, r->fid);
304 9b4a2324 2009-07-09 rsc case Qfontfile:
305 9b4a2324 2009-07-09 rsc fmtstrinit(&fmt);
306 9b4a2324 2009-07-09 rsc f = &xfont[QFONT(path)];
308 32dc15fa 2015-02-17 rsc if(f->unit == 0 && f->loadheight == nil) {
309 32dc15fa 2015-02-17 rsc readstr(r, "font missing\n");
312 5f0fa185 2020-05-30 rsc if(f->fonttext == nil) {
315 5f0fa185 2020-05-30 rsc if(f->unit > 0) {
316 5f0fa185 2020-05-30 rsc height = f->height * (int)QSIZE(path)/f->unit + 0.99999999;
317 5f0fa185 2020-05-30 rsc ascent = height - (int)(-f->originy * (int)QSIZE(path)/f->unit + 0.99999999);
319 5f0fa185 2020-05-30 rsc if(f->loadheight != nil)
320 5f0fa185 2020-05-30 rsc f->loadheight(f, QSIZE(path), &height, &ascent);
321 5f0fa185 2020-05-30 rsc fmtprint(&fmt, "%11d %11d\n", height, ascent);
322 5f0fa185 2020-05-30 rsc for(i=0; i<f->nfile; i++)
323 5f0fa185 2020-05-30 rsc 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 5f0fa185 2020-05-30 rsc f->fonttext = fmtstrflush(&fmt);
325 5f0fa185 2020-05-30 rsc f->nfonttext = strlen(f->fonttext);
327 5f0fa185 2020-05-30 rsc readbuf(r, f->fonttext, f->nfonttext);
329 9b4a2324 2009-07-09 rsc case Qsubfontfile:
330 9b4a2324 2009-07-09 rsc f = &xfont[QFONT(path)];
332 9b4a2324 2009-07-09 rsc if(r->fid->aux == nil) {
333 775cb933 2015-08-27 rsc r->fid->aux = mksubfont(f, f->name, QRANGE(path)*SubfontSize, ((QRANGE(path)+1)*SubfontSize)-1, QSIZE(path), QANTIALIAS(path));
334 9b4a2324 2009-07-09 rsc if(r->fid->aux == nil) {
335 9b4a2324 2009-07-09 rsc responderrstr(r);
339 9b4a2324 2009-07-09 rsc sf = r->fid->aux;
340 9b4a2324 2009-07-09 rsc m = sf->bits;
341 9b4a2324 2009-07-09 rsc if(r->ifcall.offset < 5*12) {
343 9b4a2324 2009-07-09 rsc if(QANTIALIAS(path))
344 9b4a2324 2009-07-09 rsc chan = "k8";
346 9b4a2324 2009-07-09 rsc chan = "k1";
347 9b4a2324 2009-07-09 rsc data = smprint("%11s %11d %11d %11d %11d ", chan, m->r.min.x, m->r.min.y, m->r.max.x, m->r.max.y);
348 9b4a2324 2009-07-09 rsc readstr(r, data);
352 9b4a2324 2009-07-09 rsc r->ifcall.offset -= 5*12;
353 9b4a2324 2009-07-09 rsc size = bytesperline(m->r, chantodepth(m->chan)) * Dy(m->r);
354 9b4a2324 2009-07-09 rsc if(r->ifcall.offset < size) {
355 9b4a2324 2009-07-09 rsc readbuf(r, byteaddr(m, m->r.min), size);
358 9b4a2324 2009-07-09 rsc r->ifcall.offset -= size;
359 9b4a2324 2009-07-09 rsc data = emalloc9p(3*12+6*(sf->n+1));
360 9b4a2324 2009-07-09 rsc sprint(data, "%11d %11d %11d ", sf->n, sf->height, sf->ascent);
361 9b4a2324 2009-07-09 rsc packinfo(sf->info, (uchar*)data+3*12, sf->n);
362 9b4a2324 2009-07-09 rsc readbuf(r, data, 3*12+6*(sf->n+1));
366 9b4a2324 2009-07-09 rsc respond(r, nil);
370 9b4a2324 2009-07-09 rsc xdestroyfid(Fid *fid)
372 9b4a2324 2009-07-09 rsc Memsubfont *sf;
374 9b4a2324 2009-07-09 rsc sf = fid->aux;
375 9b4a2324 2009-07-09 rsc if(sf == nil)
378 9b4a2324 2009-07-09 rsc freememimage(sf->bits);
379 9b4a2324 2009-07-09 rsc free(sf->info);
381 9b4a2324 2009-07-09 rsc fid->aux = nil;
385 9b4a2324 2009-07-09 rsc xstat(Req *r)
387 9b4a2324 2009-07-09 rsc dostat(r->fid->qid.path, nil, &r->d);
388 9b4a2324 2009-07-09 rsc respond(r, nil);
394 9b4a2324 2009-07-09 rsc proccreate(void (*f)(void*), void *a, unsigned i)
401 9b4a2324 2009-07-09 rsc static long dirpackage(uchar*, long, Dir**);
404 9b4a2324 2009-07-09 rsc dump(char *path)
406 9b4a2324 2009-07-09 rsc char *elem, *p, *path0, *err;
407 9b4a2324 2009-07-09 rsc uchar buf[4096];
412 9b4a2324 2009-07-09 rsc int off, i, n;
415 9b4a2324 2009-07-09 rsc memset(&fid, 0, sizeof fid);
416 fa325e9b 2020-01-10 cross dostat(0, &fid.qid, nil);
417 9b4a2324 2009-07-09 rsc qid = fid.qid;
419 9b4a2324 2009-07-09 rsc path0 = path;
420 9b4a2324 2009-07-09 rsc while(path != nil) {
421 9b4a2324 2009-07-09 rsc p = strchr(path, '/');
422 9b4a2324 2009-07-09 rsc if(p != nil)
424 9b4a2324 2009-07-09 rsc elem = path;
425 9b4a2324 2009-07-09 rsc if(strcmp(elem, "") != 0 && strcmp(elem, ".") != 0) {
426 9b4a2324 2009-07-09 rsc err = xwalk1(&fid, elem, &qid);
427 9b4a2324 2009-07-09 rsc if(err != nil) {
428 9b4a2324 2009-07-09 rsc fprint(2, "%s: %s\n", path0, err);
437 9b4a2324 2009-07-09 rsc memset(&r, 0, sizeof r);
438 9b4a2324 2009-07-09 rsc xsrv.fake = 1;
440 9b4a2324 2009-07-09 rsc // read and display
443 9b4a2324 2009-07-09 rsc r.srv = &xsrv;
444 9b4a2324 2009-07-09 rsc r.fid = &fid;
445 9b4a2324 2009-07-09 rsc r.ifcall.type = Tread;
446 9b4a2324 2009-07-09 rsc r.ifcall.count = sizeof buf;
447 9b4a2324 2009-07-09 rsc r.ifcall.offset = off;
448 9b4a2324 2009-07-09 rsc r.ofcall.data = (char*)buf;
449 9b4a2324 2009-07-09 rsc r.ofcall.count = 0;
451 9b4a2324 2009-07-09 rsc if(r.ofcall.type != Rread) {
452 9b4a2324 2009-07-09 rsc fprint(2, "reading %s: %s\n", path0, r.ofcall.ename);
453 9b4a2324 2009-07-09 rsc exits(r.ofcall.ename);
455 9b4a2324 2009-07-09 rsc n = r.ofcall.count;
458 9b4a2324 2009-07-09 rsc if(off == 0 && pflag > 1) {
459 9b4a2324 2009-07-09 rsc print("\001");
462 9b4a2324 2009-07-09 rsc if(qid.type & QTDIR) {
463 9b4a2324 2009-07-09 rsc n = dirpackage(buf, n, &d);
464 9b4a2324 2009-07-09 rsc for(i=0; i<n; i++)
465 9b4a2324 2009-07-09 rsc print("%s%s\n", d[i].name, (d[i].mode&DMDIR) ? "/" : "");
468 9b4a2324 2009-07-09 rsc write(1, buf, n);
473 9b4a2324 2009-07-09 rsc fontcmp(const void *va, const void *vb)
475 9b4a2324 2009-07-09 rsc XFont *a, *b;
477 9b4a2324 2009-07-09 rsc a = (XFont*)va;
478 9b4a2324 2009-07-09 rsc b = (XFont*)vb;
479 9b4a2324 2009-07-09 rsc return strcmp(a->name, b->name);
483 9b4a2324 2009-07-09 rsc main(int argc, char **argv)
485 76f90e51 2009-07-09 rsc char *mtpt, *srvname;
488 76f90e51 2009-07-09 rsc srvname = "font";
495 9b4a2324 2009-07-09 rsc chattyfuse++;
498 9b4a2324 2009-07-09 rsc mtpt = EARGF(usage());
501 76f90e51 2009-07-09 rsc srvname = EARGF(usage());
510 9b4a2324 2009-07-09 rsc xsrv.attach = xattach;
511 9b4a2324 2009-07-09 rsc xsrv.open = xopen;
512 9b4a2324 2009-07-09 rsc xsrv.read = xread;
513 9b4a2324 2009-07-09 rsc xsrv.stat = xstat;
514 9b4a2324 2009-07-09 rsc xsrv.walk1 = xwalk1;
515 9b4a2324 2009-07-09 rsc xsrv.destroyfid = xdestroyfid;
517 9b4a2324 2009-07-09 rsc fmtinstall('R', Rfmt);
518 9b4a2324 2009-07-09 rsc fmtinstall('P', Pfmt);
519 9b4a2324 2009-07-09 rsc memimageinit();
520 9b4a2324 2009-07-09 rsc loadfonts();
521 9b4a2324 2009-07-09 rsc qsort(xfont, nxfont, sizeof xfont[0], fontcmp);
524 9b4a2324 2009-07-09 rsc if(argc != 1 || chatty9p || chattyfuse)
526 9b4a2324 2009-07-09 rsc dump(argv[0]);
530 9b4a2324 2009-07-09 rsc if(pflag || argc != 0)
534 9b4a2324 2009-07-09 rsc * Check twice -- if there is an exited instance
535 9b4a2324 2009-07-09 rsc * mounted there, the first access will fail but unmount it.
537 9b4a2324 2009-07-09 rsc if(mtpt && access(mtpt, AEXIST) < 0 && access(mtpt, AEXIST) < 0)
538 9b4a2324 2009-07-09 rsc sysfatal("mountpoint %s does not exist", mtpt);
540 9b4a2324 2009-07-09 rsc xsrv.foreground = 1;
541 76f90e51 2009-07-09 rsc threadpostmountsrv(&xsrv, srvname, mtpt, 0);
545 9b4a2324 2009-07-09 rsc /sys/src/libc/9sys/dirread.c
549 9b4a2324 2009-07-09 rsc dirpackage(uchar *buf, long ts, Dir **d)
552 9b4a2324 2009-07-09 rsc long ss, i, n, nn, m;
559 9b4a2324 2009-07-09 rsc * first find number of all stats, check they look like stats, & size all associated strings
563 9b4a2324 2009-07-09 rsc for(i = 0; i < ts; i += m){
564 9b4a2324 2009-07-09 rsc m = BIT16SZ + GBIT16(&buf[i]);
565 9b4a2324 2009-07-09 rsc if(statcheck(&buf[i], m) < 0)
574 9b4a2324 2009-07-09 rsc *d = malloc(n * sizeof(Dir) + ss);
575 9b4a2324 2009-07-09 rsc if(*d == nil)
579 9b4a2324 2009-07-09 rsc * then convert all buffers
581 9b4a2324 2009-07-09 rsc s = (char*)*d + n * sizeof(Dir);
583 9b4a2324 2009-07-09 rsc for(i = 0; i < ts; i += m){
584 9b4a2324 2009-07-09 rsc m = BIT16SZ + GBIT16((uchar*)&buf[i]);
585 9b4a2324 2009-07-09 rsc if(nn >= n || convM2D(&buf[i], m, *d + nn, s) != m){