ref: c1bebe6d4d0c57aa45c9b421fae77a0817bfc06e
dir: /sys/src/cmd/fontsel.c/
#include <u.h>
#include <libc.h>
#include <thread.h>
#include <draw.h>
#include <bio.h>
#include <keyboard.h>
#include <mouse.h>
#define MIN(a,b) ((a)<=(b)?(a):(b))
#define MAX(a,b) ((a)>=(b)?(a):(b))
typedef struct Fontdir Fontdir;
struct Fontdir {
char *name;
char *prefix;
char **fonts;
int nfonts;
int isttf;
union {
int ifont;
int sz;
};
};
enum
{
Ckey,
Cmouse,
Cresize,
Numchan,
Ttfdefsz = 16,
};
static char *textdef[] = {
"Cwm fjord bank glyphs vext quiz!",
"Gud hjälpe Zorns mö qvickt få byxa?",
"Разъярённый чтец эгоистично бьёт пятью",
"жердями шустрого фехтовальщика.",
"今日も一日がんばるぞい!",
"세계를 향한 대화, 유니코드로 하십시오.",
"",
"static int",
"dosomestuff(Stuff *s, char *t, int n)",
"{",
" if(s == nil && (t == nil || n < 1))",
" return 0;",
" fprint(2, \"# %c\\n\", t[0]);",
" return dostuff(s) || dot(t, n);",
"}",
nil
};
static char **text = textdef;
static char *prefixes[] = {
"/lib/font/bit",
"/lib/font/ttf",
};
static Font *f;
static Fontdir *dirs, *cdir;
static int ndirs, idir;
static char lasterr[256];
static void
redraw(void)
{
Point p;
int i, w, maxw;
char t[256];
lockdisplay(display);
draw(screen, screen->r, display->white, nil, ZP);
p = screen->r.min;
if(f == nil){
p.x += Dx(screen->r)/2 - stringwidth(font, lasterr)/2;
p.y += Dy(screen->r)/2 - font->height/2;
string(screen, p, display->black, ZP, font, lasterr);
}else{
maxw = 0;
for(i = 0; text[i] != nil; i++){
if((w = stringwidth(f, text[i])) > maxw)
maxw = w;
}
p.x += Dx(screen->r)/2 - maxw/2;
p.y += Dy(screen->r)/2 - i*f->height/2;
for(i = 0; text[i] != nil; i++){
string(screen, p, display->black, ZP, f, text[i]);
p.y += f->height;
}
}
if(cdir->isttf)
snprint(t, sizeof(t), "/n/ttf/%s.%d/font", cdir->name, cdir->sz);
else
snprint(t, sizeof(t), "%s/%s", cdir->name, cdir->fonts[cdir->ifont]);
p = screen->r.max;
p.x -= Dx(screen->r)/2 + stringwidth(font, t)/2;
p.y -= font->height;
string(screen, p, display->black, ZP, font, t);
flushimage(display, 1);
unlockdisplay(display);
}
static int
fcmp(void *a, void *b)
{
return strcmp(*(char**)a, *(char**)b);
}
static int
fontdir(char *t, int f, Fontdir *fdir)
{
Dir *d;
int doff, k;
long i, n;
k = strlen(t);
if(k > 4 && (cistrcmp(&t[k-4], ".ttf") == 0 || cistrcmp(&t[k-4], ".otf") == 0)){
fdir->nfonts = 1;
fdir->sz = Ttfdefsz;
fdir->isttf = 1;
return 0;
}
if((n = dirreadall(f, &d)) < 1)
return -1;
doff = strlen(t);
t[doff++] = '/';
for(i = 0; i < n; i++){
if((k = strlen(d[i].name)) < 5 || strcmp(&d[i].name[k-5], ".font") != 0)
continue;
if((fdir->fonts = realloc(fdir->fonts, sizeof(*fdir->fonts)*(fdir->nfonts+1))) == nil)
sysfatal("no memory");
d[i].name[k-5] = 0;
strcpy(t+doff, d[i].name);
fdir->fonts[fdir->nfonts++] = strdup(t+doff);
}
free(d);
if(fdir->nfonts > 0)
qsort(fdir->fonts, fdir->nfonts, sizeof(*fdir->fonts), fcmp);
return 0;
}
static int
dcmp(void *a_, void *b_)
{
Fontdir *a, *b;
a = (Fontdir*)a_;
b = (Fontdir*)b_;
return strcmp(a->name, b->name);
}
static void
findfonts(char *prefix)
{
Dir *d, *din;
int f, fin, doff;
long i, n;
char t[1024];
doff = sprint(t, "%s", prefix);
t[doff++] = '/';
t[doff] = 0;
if((f = open(t, OREAD)) < 0){
fprint(2, "font dir: %r\n");
return;
}
if((n = dirreadall(f, &d)) < 1){
fprint(2, "%s: no fonts\n", t);
close(f);
return;
}
close(f);
for(i = 0; i < n; i++){
strcpy(t+doff, d[i].name);
if((fin = open(t, OREAD)) < 0)
continue;
if((din = dirfstat(fin)) != nil){
if((dirs = realloc(dirs, sizeof(Fontdir)*(ndirs+1))) == nil)
sysfatal("no memory");
memset(&dirs[ndirs], 0, sizeof(Fontdir));
dirs[ndirs].prefix = prefix;
if(fontdir(t, fin, &dirs[ndirs]) == 0 && dirs[ndirs].nfonts > 0)
dirs[ndirs++].name = strdup(d[i].name);
free(din);
}
close(fin);
}
free(d);
}
static void
newfont(void)
{
char t[512];
lockdisplay(display);
if(f != nil)
freefont(f);
if(cdir->isttf)
snprint(t, sizeof(t), "/n/ttf/%s.%d/font", cdir->name, cdir->sz);
else
snprint(t, sizeof(t), "%s/%s/%s.font", cdir->prefix, cdir->name, cdir->fonts[cdir->ifont]);
if((f = openfont(display, t)) == nil)
snprint(lasterr, sizeof(lasterr), "%r");
unlockdisplay(display);
}
static char *
dirgen(int i)
{
return i < ndirs ? dirs[i].name : nil;
}
static char *
fontgen(int i)
{
return i < cdir->nfonts ? cdir->fonts[i] : nil;
}
static void
usage(void)
{
print("usage: %s [FILE]\n", argv0);
threadexitsall("usage");
}
static void
loadtext(int f)
{
Biobuf *b;
int i;
if(f < 0 || (b = Bfdopen(f, OREAD)) == nil)
sysfatal("loadtext: %r");
if((text = calloc(256+1, sizeof(char*))) == nil)
sysfatal("memory");
for(i = 0; i < 256; i++)
if((text[i] = Brdstr(b, '\n', 1)) == nil)
break;
Bterm(b);
}
void
threadmain(int argc, char **argv)
{
Mousectl *mctl;
Keyboardctl *kctl;
Rune r;
Mouse m;
Menu menu;
Alt a[Numchan+1] = {
[Ckey] = {nil, &r, CHANRCV},
[Cmouse] = {nil, &m, CHANRCV },
[Cresize] = {nil, nil, CHANRCV},
{nil, nil, CHANEND},
};
int n;
ARGBEGIN{
default:
usage();
break;
}ARGEND;
if(argc > 1)
usage();
else if(argc == 1)
loadtext(strcmp(argv[0], "-") == 0 ? 0 : open(argv[0], OREAD));
for(n = 0; n < nelem(prefixes); n++)
findfonts(prefixes[n]);
if(ndirs < 1)
sysfatal("no fonts");
qsort(dirs, ndirs, sizeof(*dirs), dcmp);
if(initdraw(nil, nil, "fontsel") < 0)
sysfatal("initdraw: %r");
if((kctl = initkeyboard(nil)) == nil)
sysfatal("initkeyboard: %r");
a[Ckey].c = kctl->c;
if((mctl = initmouse(nil, screen)) == nil)
sysfatal("initmouse: %r");
a[Cmouse].c = mctl->c;
a[Cresize].c = mctl->resizec;
display->locking = 1;
unlockdisplay(display);
memset(&menu, 0, sizeof(menu));
cdir = &dirs[0];
newfont();
redraw();
for(;;){
switch(alt(a)){
case -1:
goto end;
case Ckey:
switch (r) {
case Kdel:
case 'q':
goto end;
case '-':
cdir->ifont = MAX(cdir->isttf ? 6 : 0, cdir->ifont-1);
newfont();
redraw();
break;
case '+':
cdir->ifont = MIN(cdir->isttf ? 256 : cdir->nfonts-1, cdir->ifont+1);
newfont();
redraw();
break;
}
break;
case Cmouse:
if(m.buttons == 2){
menu.gen = dirgen;
menu.lasthit = idir;
if((n = menuhit(2, mctl, &menu, nil)) >= 0){
idir = n;
cdir = &dirs[idir];
newfont();
redraw();
}
}else if(m.buttons == 4 && cdir->isttf == 0){
menu.gen = fontgen;
menu.lasthit = cdir->ifont;
if((n = menuhit(3, mctl, &menu, nil)) >= 0){
cdir->ifont = n;
newfont();
redraw();
}
}
break;
case Cresize:
getwindow(display, Refnone);
redraw();
break;
}
}
end:
if(f != nil){
if(cdir->isttf)
print("/n/ttf/%s.%d/font\n", cdir->name, cdir->sz);
else
print("%s/%s/%s.font\n", cdir->prefix, cdir->name, cdir->fonts[cdir->ifont]);
}
threadexitsall(nil);
}