ref: c1d40df49550393f3afe53fb6e6d500dfa8eb7a8
dir: /sys/src/libcontrol/control.c/
#include <u.h> #include <libc.h> #include <draw.h> #include <thread.h> #include <mouse.h> #include <keyboard.h> #include <control.h> static int debug = 0; enum /* alts */ { AKey, AMouse, ACtl, AExit, NALT }; static Controlset **controlset; int ncontrolset; int ctldeletequits; char *alignnames[Nalignments] = { [Aupperleft] = "upperleft", [Auppercenter] = "uppercenter", [Aupperright] = "upperright", [Acenterleft] = "centerleft", [Acenter] = "center", [Acenterright] = "centerright", [Alowerleft] = "lowerleft", [Alowercenter] = "lowercenter", [Alowerright] = "lowerright", }; char *ctltypenames[Ntypes] = { [Ctlunknown] = "unknown", [Ctlbox] = "box", [Ctlbutton] = "button", [Ctlentry] = "entry", [Ctlkeyboard] = "keyboard", [Ctllabel] = "label", [Ctlmenu] = "menu", [Ctlradio] = "radio", [Ctlscribble] = "scribble", [Ctlslider] = "slider", [Ctltabs] = "tabs", [Ctltext] = "text", [Ctltextbutton] = "textbutton", [Ctltextbutton3] = "textbutton3", [Ctlgroup] = "group", // divider between controls and metacontrols [Ctlboxbox] = "boxbox", [Ctlcolumn] = "column", [Ctlrow] = "row", [Ctlstack] = "stack", [Ctltab] = "tab", }; static void _ctlcmd(Controlset*, char*); static void _ctlcontrol(Controlset*, char*); static char* _mkctlcmd(Control *c, char *fmt, va_list arg) { char *name, *p, *both; name = quotestrdup(c->name); if(name == nil) ctlerror("quotestrdup in ctlprint failed"); p = vsmprint(fmt, arg); if(p == nil){ free(name); ctlerror("vsmprint1 in ctlprint failed"); } both = ctlmalloc(strlen(name)+strlen(p)+2); strcpy(both, name); strcat(both, " "); strcat(both, p); free(name); free(p); return both; } int ctlprint(Control *c, char *fmt, ...) { int n; char *p; va_list arg; va_start(arg, fmt); p = _mkctlcmd(c, fmt, arg); va_end(arg); n = sendp(c->controlset->ctl, p); yield(); return n; } void _ctlprint(Control *c, char *fmt, ...) { char *p; va_list arg; va_start(arg, fmt); p = _mkctlcmd(c, fmt, arg); va_end(arg); _ctlcmd(c->controlset, p); free(p); } int _ctllookup(char *s, char *tab[], int ntab) { int i; for(i=0; i<ntab; i++) if(tab[i] != nil && strcmp(s, tab[i]) == 0) return i; return -1; } static Control* _newcontrol(Controlset *cs, uint n, char *name, char *type) { Control *c; for(c=cs->controls; c; c=c->next) if(strcmp(c->name, name) == 0){ werrstr("control %q already defined", name); return nil; } c = ctlmalloc(n); c->screen = cs->screen; c->name = ctlstrdup(name); c->type = _ctllookup(type, ctltypenames, Ntypes); if (c->type < 0) ctlerror("unknown type: %s", type); c->event = chancreate(sizeof(char*), 64); c->data = chancreate(sizeof(char*), 0); c->size = Rect(1, 1, _Ctlmaxsize, _Ctlmaxsize); c->hidden = 0; c->ctl = nil; c->mouse = nil; c->key = nil; c->exit = nil; c->setsize = nil; c->controlset = cs; c->next = cs->controls; cs->controls = c; return c; } static void controlsetthread(void *v) { Controlset *cs; Mouse mouse; Control *f; int prevbut, n, i; Alt alts[NALT+1]; char *str; Rune buf[2][20], *rp; cs = v; threadsetname("controlsetthread 0x%p", cs); alts[AKey].c = cs->kbdc; alts[AKey].v = &rp; alts[AKey].op = CHANRCV; alts[AMouse].c = cs->mousec; alts[AMouse].v = &mouse; alts[AMouse].op = CHANRCV; alts[ACtl].c = cs->ctl; alts[ACtl].v = &str; alts[ACtl].op = CHANRCV; alts[AExit].c = cs->csexitc; alts[AExit].v = nil; alts[AExit].op = CHANRCV; alts[NALT].op = CHANEND; cs->focus = nil; prevbut=0; n = 0; for(;;){ /* toggle so we can receive in one buffer while client processes the other */ alts[AKey].v = buf[n]; rp = buf[n]; n = 1-n; switch(alt(alts)){ case AKey: if(ctldeletequits && rp[0]=='\177') ctlerror("delete"); for(i=1; i<nelem(buf[0])-1; i++) if(nbrecv(cs->kbdc, rp+i) <= 0) break; rp[i] = L'\0'; if(cs->focus && cs->focus->key) cs->focus->key(cs->focus, rp); break; case AMouse: /* is this a focus change? */ if(prevbut) /* don't change focus if button was down */ goto Send; if(cs->focus!=nil && cs->focus->hidden == 0 && ptinrect(mouse.xy, cs->focus->rect)) goto Send; if(cs->clicktotype == 0) goto Change; /* click to type: only change if button is down */ if(mouse.buttons == 0) goto Send; Change: /* change of focus */ if(cs->focus != nil) _ctlprint(cs->focus, "focus 0"); cs->focus = nil; for(f=cs->actives; f!=nil; f=f->nextactive) if(f->hidden == 0 && f->mouse && ptinrect(mouse.xy, f->rect)){ cs->focus = f; _ctlprint(f, "focus 1"); if (f->mouse) { if (debug) fprint(2, "f->mouse %s\n", f->name); f->mouse(f, &mouse); } break; } Send: if(cs->focus && cs->focus->mouse) { if (debug) fprint(2, "cs->focus->mouse %s\n", cs->focus->name); cs->focus->mouse(cs->focus, &mouse); } prevbut=mouse.buttons; break; case ACtl: _ctlcontrol(cs, str); free(str); break; case AExit: threadexits(nil); } } } Control* _createctl(Controlset *cs, char *type, uint size, char *name) { Control *c; c = _newcontrol(cs, size, name, type); if(c == nil) ctlerror("can't create %s control %q: %r", type, name); return c; } void closecontrol(Control *c) { Control *prev, *p; if(c == nil) return; if (c == c->controlset->focus) c->controlset->focus = nil; if(c->exit) c->exit(c); prev = nil; for(p=c->controlset->controls; p; p=p->next){ if(p == c) break; prev = p; } if(p == nil) ctlerror("closecontrol: no such control %q %p\n", c->name, c); if(prev == nil) c->controlset->controls = c->next; else prev->next = c->next; /* is it active? if so, delete from active list */ prev = nil; for(p=c->controlset->actives; p; p=p->nextactive){ if(p == c) break; prev = p; } if(p != nil){ if(prev == nil) c->controlset->actives = c->nextactive; else prev->nextactive = c->nextactive; } if(!c->wevent) chanfree(c->event); if(!c->wdata) chanfree(c->data); free(c->name); free(c->format); free(c); } Control* controlcalled(char *name) { Control *c; int i; for(i=0; i<ncontrolset; i++) for(c=controlset[i]->controls; c; c=c->next) if(strcmp(c->name, name) == 0) return c; return nil; } void ctlerror(char *fmt, ...) { va_list arg; char buf[256]; va_start(arg, fmt); vfprint(2, fmt, arg); va_end(arg); write(2, "\n", 1); threadexitsall(buf); } Rune* _ctlrunestr(char *s) { Rune *r, *ret; ret = r = ctlmalloc((utflen(s)+1)*sizeof(Rune)); while(*s != '\0') s += chartorune(r++, s); *r = L'\0'; return ret; } char* _ctlstrrune(Rune *r) { char *s; s = ctlmalloc(runestrlen(r)*UTFmax+1); sprint(s, "%S", r); return s; } void* ctlmalloc(uint n) { void *p; p = mallocz(n, 1); if(p == nil) ctlerror("control allocation failed: %r"); return p; } void* ctlrealloc(void *p, uint n) { p = realloc(p, n); if(p == nil) ctlerror("control reallocation failed: %r"); return p; } char* ctlstrdup(char *s) { char *t; t = strdup(s); if(t == nil) ctlerror("control strdup(%q) failed: %r", s); return t; } static void ctokenize(char *s, CParse *cp) { snprint(cp->str, sizeof cp->str, "%s", s); cp->args = cp->pargs; cp->nargs = tokenize(s, cp->args, nelem(cp->pargs)); } static int ctlparse(CParse *cp, char *s, int hasreceiver) { int i; char *t; /* keep original string for good error messages */ strncpy(cp->str, s, sizeof cp->str); cp->str[sizeof cp->str - 1] = '\0'; ctokenize(s, cp); if(cp->nargs == 0) return -1; /* strip leading sender name if present */ cp->sender = nil; i = strlen(cp->args[0])-1; if(cp->args[0][i] == ':'){ cp->sender = cp->args[0]; cp->sender[i] = '\0'; cp->args++; cp->nargs--; } if(hasreceiver){ if(cp->nargs-- == 0) return -1; cp->receiver = *cp->args++; }else cp->receiver = nil; for(i=0; i<cp->nargs; i++){ t = cp->args[i]; while(*t == '[') /* %R gives [0 0] [1 1]; strtol will stop at closing ] */ t++; cp->iargs[i] = strtol(t, 0, 0); } return cp->nargs; } void _ctlargcount(Control *c, CParse *cp, int n) { if(cp->nargs != n) ctlerror("%q: wrong argument count in '%s'", c->name, cp->str); } static void _ctlcmd(Controlset *cs, char*s) { CParse cp; char *rcvrs[32]; int ircvrs[32], n, i, hit; Control *c; // fprint(2, "_ctlcmd: %s\n", s); cp.args = cp.pargs; if (ctlparse(&cp, s, 1) < 0) ctlerror("bad command string: %q", cp.str); if (cp.nargs == 0 && strcmp(cp.receiver, "sync") == 0){ chanprint(cs->data, "sync"); return; } if (cp.nargs == 0) ctlerror("no command in command string: %q", cp.str); n = tokenize(cp.receiver, rcvrs, nelem(rcvrs)); // lookup type names: a receiver can be a named type or a named control for (i = 0; i < n; i++) ircvrs[i] = _ctllookup(rcvrs[i], ctltypenames, Ntypes); for(c = cs->controls; c != nil; c = c->next){ /* if a control matches on more than one receiver element, * make sure it gets processed once; hence loop through controls * in the outer loop */ hit = 0; for (i = 0; i < n; i++) if(strcmp(c->name, rcvrs[i]) == 0 || c->type == ircvrs[i]) hit++; if (hit && c->ctl) c->ctl(c, &cp); } } static void _ctlcontrol(Controlset *cs, char *s) { char *lines[16]; int i, n; char *l; // fprint(2, "_ctlcontrol: %s\n", s); n = gettokens(s, lines, nelem(lines), "\n"); for(i=0; i<n; i++){ l = lines[i]; while(*l==' ' || *l=='\t') l++; if(*l != '\0') _ctlcmd(cs, l); } } Rune* _ctlgetsnarf(void) { int i, n; char *sn, buf[512]; Rune *snarf; if(_ctlsnarffd < 0) return nil; sn = nil; i = 0; seek(_ctlsnarffd, 0, 0); while((n = read(_ctlsnarffd, buf, sizeof buf)) > 0){ sn = ctlrealloc(sn, i+n+1); memmove(sn+i, buf, n); i += n; sn[i] = 0; } snarf = nil; if(i > 0){ snarf = _ctlrunestr(sn); free(sn); } return snarf; } void _ctlputsnarf(Rune *snarf) { int fd, i, n, nsnarf; if(_ctlsnarffd<0 || snarf[0]==0) return; fd = open("/dev/snarf", OWRITE); if(fd < 0) return; nsnarf = runestrlen(snarf); /* snarf buffer could be huge, so fprint will truncate; do it in blocks */ for(i=0; i<nsnarf; i+=n){ n = nsnarf-i; if(n >= 256) n = 256; if(fprint(fd, "%.*S", n, snarf+i) < 0) break; } close(fd); } int _ctlalignment(char *s) { int i; i = _ctllookup(s, alignnames, Nalignments); if (i < 0) ctlerror("unknown alignment: %s", s); return i; } Point _ctlalignpoint(Rectangle r, int dx, int dy, int align) { Point p; p = r.min; /* in case of trouble */ switch(align%3){ case 0: /* left */ p.x = r.min.x; break; case 1: /* center */ p.x = r.min.x+(Dx(r)-dx)/2; break; case 2: /* right */ p.x = r.max.x-dx; break; } switch((align/3)%3){ case 0: /* top */ p.y = r.min.y; break; case 1: /* center */ p.y = r.min.y+(Dy(r)-dy)/2; break; case 2: /* bottom */ p.y = r.max.y - dy; break; } return p; } void controlwire(Control *cfrom, char *name, Channel *chan) { Channel **p; p = nil; if(strcmp(name, "event") == 0){ p = &cfrom->event; cfrom->wevent = 1; }else if(strcmp(name, "data") == 0){ p = &cfrom->data; cfrom->wdata = 1; }else ctlerror("%q: unknown controlwire channel %s", cfrom->name, name); chanfree(*p); *p = chan; } void _ctlfocus(Control *me, int set) { Controlset *cs; cs = me->controlset; if(set){ if(cs->focus == me) return; if(cs->focus != nil) _ctlprint(cs->focus, "focus 0"); cs->focus = me; }else{ if(cs->focus != me) return; cs->focus = nil; } } static void resizethread(void *v) { Controlset *cs; Alt alts[3]; cs = v; threadsetname("resizethread 0x%p", cs); alts[0].c = cs->resizec; alts[0].v = nil; alts[0].op = CHANRCV; alts[1].c = cs->resizeexitc; alts[1].v = nil; alts[1].op = CHANRCV; alts[2].op = CHANEND; for(;;){ switch(alt(alts)){ case 0: resizecontrolset(cs); break; case 1: return; } } } void activate(Control *a) { Control *c; for(c=a->controlset->actives; c; c=c->nextactive) if(c == a) ctlerror("%q already active\n", a->name); if (a->activate){ a->activate(a, 1); return; } /* prepend */ a->nextactive = a->controlset->actives; a->controlset->actives = a; } void deactivate(Control *a) { Control *c, *prev; /* if group, first deactivate kids, then self */ if (a->activate){ a->activate(a, 0); return; } prev = nil; for(c=a->controlset->actives; c; c=c->nextactive){ if(c == a){ if(a->controlset->focus == a) a->controlset->focus = nil; if(prev != nil) prev->nextactive = a->nextactive; else a->controlset->actives = a->nextactive; return; } prev = c; } ctlerror("%q not active\n", a->name); } static struct { char *name; ulong color; }coltab[] = { "red", DRed, "green", DGreen, "blue", DBlue, "cyan", DCyan, "magenta", DMagenta, "yellow", DYellow, "paleyellow", DPaleyellow, "darkyellow", DDarkyellow, "darkgreen", DDarkgreen, "palegreen", DPalegreen, "medgreen", DMedgreen, "darkblue", DDarkblue, "palebluegreen", DPalebluegreen, "paleblue", DPaleblue, "bluegreen", DBluegreen, "greygreen", DGreygreen, "palegreygreen", DPalegreygreen, "yellowgreen", DYellowgreen, "medblue", DMedblue, "greyblue", DGreyblue, "palegreyblue", DPalegreyblue, "purpleblue", DPurpleblue, nil, 0 }; void initcontrols(void) { int i; Image *im; quotefmtinstall(); namectlimage(display->opaque, "opaque"); namectlimage(display->transparent, "transparent"); namectlimage(display->white, "white"); namectlimage(display->black, "black"); for(i=0; coltab[i].name!=nil; i++){ im = allocimage(display, Rect(0,0,1,1), RGB24, 1, coltab[i].color); namectlimage(im, coltab[i].name); } namectlfont(font, "font"); _ctlsnarffd = open("/dev/snarf", OREAD); } Controlset* newcontrolset(Image *im, Channel *kbdc, Channel *mousec, Channel *resizec) { Controlset *cs; if(im == nil) im = screen; if((mousec==nil && resizec!=nil) || (mousec!=nil && resizec==nil)) ctlerror("must specify either or both of mouse and resize channels"); cs = ctlmalloc(sizeof(Controlset)); cs->screen = im; if(kbdc == nil){ cs->keyboardctl = initkeyboard(nil); if(cs->keyboardctl == nil) ctlerror("can't initialize keyboard: %r"); kbdc = cs->keyboardctl->c; } cs ->kbdc = kbdc; if(mousec == nil){ cs->mousectl = initmouse(nil, im); if(cs->mousectl == nil) ctlerror("can't initialize mouse: %r"); mousec = cs->mousectl->c; resizec = cs->mousectl->resizec; } cs->mousec = mousec; cs->resizec = resizec; cs->ctl = chancreate(sizeof(char*), 64); /* buffer to prevent deadlock */ cs->data = chancreate(sizeof(char*), 0); cs->resizeexitc = chancreate(sizeof(int), 0); cs->csexitc = chancreate(sizeof(int), 0); threadcreate(resizethread, cs, 32*1024); threadcreate(controlsetthread, cs, 32*1024); controlset = ctlrealloc(controlset, (ncontrolset+1)*sizeof(Controlset*)); controlset[ncontrolset++] = cs; return cs; } void closecontrolset(Controlset *cs) { int i; sendul(cs->resizeexitc, 0); chanfree(cs->resizeexitc); sendul(cs->csexitc, 0); chanfree(cs->csexitc); chanfree(cs->ctl); chanfree(cs->data); for(i=0; i<ncontrolset; i++) if(cs == controlset[i]){ memmove(controlset+i, controlset+i+1, (ncontrolset-(i+1))*sizeof(Controlset*)); ncontrolset--; goto Found; } if(i == ncontrolset) ctlerror("closecontrolset: control set not found"); Found: while(cs->controls != nil) closecontrol(cs->controls); }