#include <u.h>
#include <libc.h>
#include <draw.h>
#include <memdraw.h>
#include <thread.h>
#include <fcall.h>
#include <9p.h>
#include "dat.h"
char *mtpt = "/mnt/font";
char *service = "font";
Srv fs;
Xfont *xfont;
int nxfont;
static char Enotfound[] = "file not found";
enum
{
Qtopdir = 0,
Qfontdir,
Qsizedir,
Qfontfile,
Qsubfontfile,
};
#define QID(q,f,s,m,p) (vlong)((q)|((f)<<4)|((s)<<20)|((m)<<28)|((vlong)(p)<<32))
#define FILE(q) (int)((q).path & 0xF)
#define FONT(q) (int)(((q).path>>4) & 0xFFFF)
#define SIZE(q) (int)(((q).path>>20) & 0xFF)
#define MONO(q) (int)(((q).path>>28) & 0x1)
#define PAGE(q) (int)(((q).path>>32) & PageMask)
static int sizes[] = { 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 24, 28 };
void
usage(void)
{
fprint(2, "usage: fontsrv [-m mtpt] [-s service]\n");
exits("usage");
}
static char*
fswalk1(Fid *f, char *name, Qid *qid)
{
int i, n, k1, sz;
char *p, *err;
Qid q;
Xfont *font;
q = f->qid;
q.vers = 0;
switch(FILE(f->qid)) {
default:
return Enotfound;
case Qtopdir:
if(strcmp(name, "..") == 0)
break;
for(i=0; i<nxfont; i++){
if(strcmp(xfont[i].name, name) == 0){
q.path = QID(Qfontdir, i, 0, 0, 0);
q.type = QTDIR;
break;
}
}
if(i == nxfont)
return Enotfound;
break;
case Qfontdir:
if(strcmp(name, "..") == 0){
q.path = Qtopdir;
q.type = QTDIR;
break;
}
sz = strtol(name, &p, 10);
if(sz == 0)
return Enotfound;
k1 = 1;
if(*p == 'a'){
k1 = 0;
p++;
}
if(*p != 0)
return Enotfound;
q.path = QID(Qsizedir, FONT(f->qid), sz, k1, 0);
q.type = QTDIR;
break;
case Qsizedir:
if(strcmp(name, "..") == 0){
q.path = QID(Qfontdir, FONT(f->qid), 0, 0, 0);
q.type = QTDIR;
break;
}
sz = SIZE(f->qid);
k1 = MONO(f->qid);
if(strcmp(name, "font") == 0){
q.path = QID(Qfontfile, FONT(f->qid), sz, k1, 0);
q.type = 0;
break;
}
font = &xfont[FONT(f->qid)];
err = xfload(font);
if(err != nil)
return err;
p = name;
if(*p != 'x')
return Enotfound;
p++;
n = strtoul(p, &p, 16);
i = (n/PageSize)&PageMask;
if(p != name+7 || strcmp(p, ".bit") != 0 || n%PageSize != 0 || !font->page[i])
return Enotfound;
q.path = QID(Qsubfontfile, FONT(f->qid), sz, k1, i);
q.type = 0;
break;
}
*qid = q;
f->qid = q;
return nil;
}
static void
filldir(Dir *d)
{
Qid q;
Xfont *font;
char *err, buf[64];
q.path = d->qid.path;
q.type = 0;
q.vers = 0;
memset(d, 0, sizeof *d);
d->mode= 0444;
d->muid = estrdup9p("");
d->uid = estrdup9p("font");
d->gid = estrdup9p("font");
switch(FILE(q)){
default:
sysfatal("filldir %#llux", q.path);
case Qtopdir:
q.type = QTDIR;
d->name = estrdup9p("/");
break;
case Qfontdir:
q.type = QTDIR;
font = &xfont[FONT(q)];
d->name = estrdup9p(font->name);
break;
case Qsizedir:
q.type = QTDIR;
snprint(buf, sizeof buf, "%d%s", SIZE(q), MONO(q) ? "" : "a");
d->name = estrdup9p(buf);
break;
case Qfontfile:
font = &xfont[FONT(q)];
err = xfload(font);
if(err == nil)
d->length = 11+1+11+1+font->npage*(8+1+8+1+11+1);
d->name = estrdup9p("font");
break;
case Qsubfontfile:
snprint(buf, sizeof buf, "x%06x.bit", (int)PAGE(q)*PageSize);
d->name = estrdup9p(buf);
break;
}
d->qid = q;
if(q.type == QTDIR)
d->mode |= DMDIR | 0111;
}
int
rootgen(int i, Dir *d, void *)
{
if(i >= nxfont)
return -1;
d->qid.path = QID(Qfontdir, i, 0, 0, 0);
filldir(d);
return 0;
}
int
fontgen(int i, Dir *d, void *v)
{
Fid *f;
f = v;
if(i >= 2*nelem(sizes))
return -1;
d->qid.path = QID(Qsizedir, FONT(f->qid), sizes[i/2], i&1, 0);
filldir(d);
return 0;
}
int
sizegen(int i, Dir *d, void *v)
{
Qid q;
Fid *f;
Xfont *font;
int sz, k1, j;
char* err;
f = v;
q = f->qid;
sz = SIZE(f->qid);
k1 = MONO(f->qid);
if(i == 0) {
d->qid.path = QID(Qfontfile, FONT(f->qid), sz, k1, 0);
filldir(d);
return 0;
}
i--;
font = &xfont[FONT(q)];
err = xfload(font);
if(err != nil)
return -1;
for(j=0; j<nelem(font->page); j++){
if(font->page[j] == 0)
continue;
if(i == 0){
d->qid.path = QID(Qsubfontfile, FONT(f->qid), sz, k1, j);
filldir(d);
return 0;
}
i--;
}
return -1;
}
void
fsattach(Req *r)
{
Qid q;
q.path = Qtopdir;
q.type = QTDIR;
q.vers = 0;
r->ofcall.qid = q;
r->fid->qid = q;
respond(r, nil);
}
void
fsopen(Req *r)
{
if(r->ifcall.mode != OREAD) {
respond(r, "permission denied");
return;
}
r->ofcall.qid = r->fid->qid;
respond(r, nil);
}
void
fsreadfont(Req *r)
{
int i, size, lo, hi;
Fid* f;
Xfont* font;
char *data, *err;
Fmt fmt;
f = r->fid;
font = &xfont[FONT(f->qid)];
if((err = xfload(font)) != nil){
respond(r, err);
return;
}
size = SIZE(f->qid);
xfscale(font, size);
fmtstrinit(&fmt);
fmtprint(&fmt, "%11d %11d\n", font->height, font->ascent);
for(i=0; i<nelem(font->page); i++){
if(font->page[i] == 0)
continue;
lo = i*PageSize;
hi = ((i+1)*PageSize) - 1;
fmtprint(&fmt, "0x%06x 0x%06x x%06x.bit\n", lo, hi, lo);
}
data = fmtstrflush(&fmt);
readstr(r, data);
respond(r, nil);
free(data);
}
static void
packinfo(Fontchar *fc, uchar *p, int n)
{
int j;
for(j=0; j<=n; j++){
p[0] = fc->x;
p[1] = fc->x>>8;
p[2] = fc->top;
p[3] = fc->bottom;
p[4] = fc->left;
p[5] = fc->width;
fc++;
p += 6;
}
}
void
fsreadsubfont(Req *r)
{
int size, i, lo, hi;
Fid* f;
char *data, *err, cbuf[12];
Memsubfont *sf;
Memimage *m;
Xfont *font;
f = r->fid;
font = &xfont[FONT(f->qid)];
if((err = xfload(font)) != nil){
respond(r, err);
return;
}
if(f->aux == nil) {
i = PAGE(f->qid);
lo = i*PageSize;
hi = (i+1)*PageSize-1;
f->aux = mksubfont(font, nil, lo, hi, SIZE(f->qid), MONO(f->qid));
if(f->aux == nil){
responderror(r);
return;
}
}
sf = f->aux;
m = sf->bits;
if(r->ifcall.offset < 5*12){
data = smprint("%11s %11d %11d %11d %11d ",
chantostr(cbuf, m->chan), m->r.min.x, m->r.min.y, m->r.max.x, m->r.max.y);
readstr(r, data);
respond(r, nil);
free(data);
return;
}
r->ifcall.offset -= 5*12;
size = bytesperline(m->r, chantodepth(m->chan)) * Dy(m->r);
if(r->ifcall.offset < size) {
readbuf(r, byteaddr(m, m->r.min), size);
respond(r, nil);
return;
}
r->ifcall.offset -= size;
data = emalloc9p(3*12+6*(sf->n+1));
sprint(data, "%11d %11d %11d ", sf->n, sf->height, sf->ascent);
packinfo(sf->info, (uchar*)data+3*12, sf->n);
readbuf(r, data, 3*12+6*(sf->n+1));
respond(r, nil);
free(data);
}
void
fsread(Req *r)
{
Fid* f;
f = r->fid;
switch(FILE(f->qid)){
default:
respond(r, "internal error");
return;
case Qtopdir:
dirread9p(r, rootgen, nil);
break;
case Qfontdir:
dirread9p(r, fontgen, f);
break;
case Qsizedir:
dirread9p(r, sizegen, f);
break;
case Qfontfile:
fsreadfont(r);
return;
case Qsubfontfile:
fsreadsubfont(r);
return;
}
respond(r, nil);
}
void
fsdestroyfid(Fid *fid)
{
Memsubfont *sf;
sf = fid->aux;
freememsubfont(sf);
fid->aux = nil;
}
void
fsstat(Req *r)
{
r->d.qid.path = r->fid->qid.path;
filldir(&r->d);
respond(r, nil);
}
void
threadmain(int argc, char **argv)
{
ARGBEGIN{
case 'D':
chatty9p++;
break;
case 'm':
mtpt = EARGF(usage());
break;
case 's':
service = EARGF(usage());
break;
default:
usage();
}ARGEND
if(argc != 0)
usage();
fmtinstall('R', Rfmt);
fmtinstall('P', Pfmt);
xfontinit();
fs.attach = fsattach;
fs.open = fsopen;
fs.read = fsread;
fs.stat = fsstat;
fs.walk1 = fswalk1;
fs.destroyfid = fsdestroyfid;
threadpostmountsrv(&fs, service, mtpt, MREPL);
threadexits(nil);
}
|