ref: c8b187f9db503465460d8bafa2d7a758bbcf59ca
dir: /libtk/parse.c/
#include "lib9.h" #include "kernel.h" #include "draw.h" #include "tk.h" #define O(t, e) ((long)(&((t*)0)->e)) static char* pdist(TkTop*, TkOption*, void*, char**, char*, char*); static char* pstab(TkTop*, TkOption*, void*, char**, char*, char*); static char* ptext(TkTop*, TkOption*, void*, char**, char*, char*); static char* pwinp(TkTop*, TkOption*, void*, char**, char*, char*); static char* pbmap(TkTop*, TkOption*, void*, char**, char*, char*); static char* pbool(TkTop*, TkOption*, void*, char**, char*, char*); static char* pfont(TkTop*, TkOption*, void*, char**, char*, char*); static char* pfrac(TkTop*, TkOption*, void*, char**, char*, char*); static char* pnnfrac(TkTop*, TkOption*, void*, char**, char*, char*); static char* pctag(TkTop*, TkOption*, void*, char**, char*, char*); static char* ptabs(TkTop*, TkOption*, void*, char**, char*, char*); static char* pcolr(TkTop*, TkOption*, void*, char**, char*, char*); static char* pimag(TkTop*, TkOption*, void*, char**, char*, char*); static char* psize(TkTop*, TkOption*, void*, char**, char*, char*); static char* pnndist(TkTop*, TkOption*, void*, char**, char*, char*); static char* pact(TkTop*, TkOption*, void*, char**, char*, char*); static char* pignore(TkTop*, TkOption*, void*, char**, char*, char*); static char* psticky(TkTop*, TkOption*, void*, char**, char*, char*); static char* plist(TkTop*, TkOption*, void*, char**, char*, char*); static char* (*oparse[])(TkTop*, TkOption*, void*, char**, char*, char*) = { /* OPTdist */ pdist, /* OPTstab */ pstab, /* OPTtext */ ptext, /* OPTwinp */ pwinp, /* OPTflag */ pstab, /* OPTbmap */ pbmap, /* OPTbool */ pbool, /* OPTfont */ pfont, /* OPTfrac */ pfrac, /* OPTnnfrac */ pnnfrac, /* OPTctag */ pctag, /* OPTtabs */ ptabs, /* OPTcolr */ pcolr, /* OPTimag */ pimag, /* OPTsize */ psize, /* OPTnndist */ pnndist, /* OPTact */ pact, /* OPTignore */ pignore, /* OPTsticky */ psticky, /* OPTlist */ plist, /* OPTflags */ pstab, }; char* tkskip(char *s, char *bl) { char *p; while(*s) { for(p = bl; *p; p++) if(*p == *s) break; if(*p == '\0') return s; s++; } return s; } /* XXX - Tad: error propagation? */ char* tkword(TkTop *t, char *str, char *buf, char *ebuf, int *gotarg) { int c, lev, tmp; char *val, *e, *p, *cmd; if (gotarg == nil) gotarg = &tmp; /* * ebuf is one beyond last byte in buf; leave room for nul byte in * all cases. */ --ebuf; str = tkskip(str, " \t"); *gotarg = 1; lev = 1; switch(*str) { case '{': /* XXX - DBK: According to Ousterhout (p.37), while back= * slashed braces don't count toward finding the matching * closing braces, the backslashes should not be removed. * Presumably this also applies to other backslashed * characters: the backslash should not be removed. */ str++; while(*str && buf < ebuf) { c = *str++; if(c == '\\') { if(*str == '}' || *str == '{' || *str == '\\') c = *str++; } else if(c == '}') { lev--; if(lev == 0) break; } else if(c == '{') lev++; *buf++ = c; } break; case '[': /* XXX - DBK: According to Ousterhout (p. 33) command * substitution may occur anywhere within a word, not * only (as here) at the beginning. */ cmd = malloc(strlen(str)); /* not strlen+1 because the first character is skipped */ if ( cmd == nil ) { buf[0] = '\0'; /* DBK - Why not an error message? */ return str; } p = cmd; str++; while(*str) { c = *str++; if(c == '\\') { if(*str == ']' || *str == '[' || *str == '\\') c = *str++; } else if(c == ']') { lev--; if(lev == 0) break; } else if(c == '[') lev++; *p++ = c; } *p = '\0'; val = nil; e = tkexec(t, cmd, &val); free(cmd); /* XXX - Tad: is this appropriate behavior? * Am I sure that the error doesn't need to be * propagated back to the caller? */ if(e == nil && val != nil) { strncpy(buf, val, ebuf-buf); buf = ebuf; free(val); } break; case '\'': str++; while(*str && buf < ebuf) *buf++ = *str++; break; case '\0': *gotarg = 0; break; default: /* XXX - DBK: See comment above about command substitution. * Also, any backslashed character should be replaced by * itself (e.g. to put a space, tab, or [ into a word. * We assume that the C compiler has already done the * standard ANSI C substitutions. (But should we?) */ while(*str && *str != ' ' && *str != '\t' && buf < ebuf) *buf++ = *str++; } *buf = '\0'; return str; } static TkOption* Getopt(TkOption *o, char *buf) { while(o->o != nil) { if(strcmp(buf, o->o) == 0) return o; o++; } return nil; } TkName* tkmkname(char *name) { TkName *n; n = malloc(sizeof(struct TkName)+strlen(name)); if(n == nil) return nil; strcpy(n->name, name); n->link = nil; n->obj = nil; return n; } char* tkparse(TkTop *t, char *str, TkOptab *ot, TkName **nl) { int l; TkOptab *ft; TkOption *o; TkName *f, *n; char *e, *buf, *ebuf; l = strlen(str); if (l < Tkmaxitem) l = Tkmaxitem; buf = malloc(l + 1); if(buf == 0) return TkNomem; ebuf = buf + l + 1; e = nil; while(e == nil) { str = tkword(t, str, buf, ebuf, nil); switch(*buf) { case '\0': goto done; case '-': if (buf[1] != '\0') { for(ft = ot; ft->ptr; ft++) { o = Getopt(ft->optab, buf+1); if(o != nil) { e = oparse[o->type](t, o, ft->ptr, &str, buf, ebuf); break; } } if(ft->ptr == nil){ e = TkBadop; tkerr(t, buf); } break; } /* fall through if we've got a singleton '-' */ default: if(nl == nil) { e = TkBadop; tkerr(t, buf); break; } n = tkmkname(buf); if(n == nil) { e = TkNomem; break; } if(*nl == nil) *nl = n; else { for(f = *nl; f->link; f = f->link) ; f->link = n; } } } if(e != nil && nl != nil) tkfreename(*nl); done: free(buf); return e; } char* tkconflist(TkOptab *ot, char **val) { TkOption *o; char *f, *e; f = "-%s"; while(ot->ptr != nil) { o = ot->optab; while(o->o != nil) { e = tkvalue(val, f, o->o); if(e != nil) return e; f = " -%s"; o++; } ot++; } return nil; } char* tkgencget(TkOptab *ft, char *arg, char **val, TkTop *t) { Tk *w; char *c; Point g; TkEnv *e; TkStab *s; TkOption *o; int wh, con, flag, *v; intptr i, n; char *r, *buf, *fmt, *out; buf = mallocz(Tkmaxitem, 0); if(buf == nil) return TkNomem; tkitem(buf, arg); r = buf; if(*r == '-') r++; o = nil; while(ft->ptr) { o = Getopt(ft->optab, r); if(o != nil) break; ft++; } if(o == nil) { tkerr(t, r); free(buf); return TkBadop; } switch(o->type) { default: tkerr(t, r); free(buf); return TkBadop; case OPTignore: return nil; case OPTact: w = ft->ptr; g = tkposn(w); n = g.y; if(o->aux == 0) n = g.x; free(buf); return tkvalue(val, "%d", n); case OPTdist: case OPTnndist: free(buf); return tkvalue(val, "%d", OPTION(ft->ptr, int, o->offset)); case OPTsize: w = ft->ptr; if(strcmp(r, "width") == 0) wh = w->req.width; else wh = w->req.height; free(buf); return tkvalue(val, "%d", wh); case OPTtext: c = OPTION(ft->ptr, char*, o->offset); if(c == nil) c = ""; free(buf); return tkvalue(val, "%s", c); case OPTwinp: w = OPTION(ft->ptr, Tk*, o->offset); if(w == nil || w->name == nil) c = ""; else c = w->name->name; free(buf); return tkvalue(val, "%s", c); case OPTstab: s = o->aux; c = ""; con = OPTION(ft->ptr, int, o->offset); while(s->val) { if(con == s->con) { c = s->val; break; } s++; } free(buf); return tkvalue(val, "%s", c); case OPTflag: con = OPTION(ft->ptr, int, o->offset); flag = 0; for (s = o->aux; s->val != nil; s++) flag |= s->con; c = ""; for (s = o->aux; s->val != nil; s++) { if ((con & flag) == s->con) { c = s->val; break; } } free(buf); return tkvalue(val, "%s", c); case OPTflags: con = OPTION(ft->ptr, int, o->offset); out = mallocz(Tkmaxitem, 0); if(out == nil) { free(buf); return TkNomem; } c = out; for (s = o->aux; s->val != nil; s++) { if (s->con == (s->con&-s->con) && (con & s->con) != 0) c = seprint(c, out+Tkmaxitem, " %s", s->val); /* should this be quoted? */ } free(buf); *c = 0; r = tkvalue(val, "%s", out); free(out); return r; case OPTfont: e = OPTION(ft->ptr, TkEnv*, o->offset); free(buf); if (e->font != nil) return tkvalue(val, "%s", e->font->name); return nil; case OPTcolr: e = OPTION(ft->ptr, TkEnv*, o->offset); i = AUXI(o->aux); free(buf); return tkvalue(val, "#%.8lux", e->colors[i]); case OPTfrac: case OPTnnfrac: v = &OPTION(ft->ptr, int, o->offset); n = (intptr)o->aux; if(n == 0) n = 1; fmt = "%s"; for(i = 0; i < n; i++) { tkfprint(buf, *v++); r = tkvalue(val, fmt, buf); if(r != nil) { free(buf); return r; } fmt = " %s"; } free(buf); return nil; case OPTbmap: //free(buf); return tkvalue(val, "%d", OPTION(ft->ptr, Image*, o->offset) != nil); case OPTimag: //free(buf); return tkvalue(val, "%d", OPTION(ft->ptr, TkImg*, o->offset) != nil); } } static char* pact(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { USED(buf); USED(ebuf); USED(str); USED(place); tkerr(t, o->o); return TkBadop; } static char* pignore(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { char *p; USED(t); USED(o); USED(place); p = tkword(t, *str, buf, ebuf, nil); if(*buf == '\0') return TkOparg; *str = p; return nil; } static char* pdist(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { s32 d; char *e; TkEnv *env; USED(buf); USED(ebuf); /* * this is a bit of a hack, as 0 is a valid option offset, * but a nil aux is commonly used when 'w' and 'h' suffixes * aren't appropriate. * just make sure that no structure placed in TkOptab->ptr * with an OPTdist element has a TkEnv as its first member. */ if (o->aux == nil) env = nil; else env = OPTION(place, TkEnv*, AUXI(o->aux)); e = tkfracword(t, str, &d, env); if(e != nil) return e; OPTION(place, int, o->offset) = TKF2I(d); return nil; } static char* pnndist(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { char* e; int oldv; oldv = OPTION(place, int, o->offset); e = pdist(t, o, place, str, buf, ebuf); if(e == nil && OPTION(place, int, o->offset) < 0) { OPTION(place, int, o->offset) = oldv; return TkBadvl; } return e; } static char* psize(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { Tk *tk; char *e; s32 d, off; USED(ebuf); e = tkfracword(t, str, &d, OPTION(place, TkEnv*, AUXI(o->aux))); if (e != nil) return e; if(d < 0) return TkBadvl; tk = place; /* * XXX there's no way of resetting Tksetwidth or Tksetheight. * could perhaps allow it by setting width/height to {} */ if(strcmp(buf+1, "width") == 0) { tk->flag |= Tksetwidth; off = O(Tk, req.width); } else { tk->flag |= Tksetheight; off = O(Tk, req.height); } OPTION(place, int, off) = TKF2I(d); return nil; } static TkStab* lookstab(TkStab *s, char *word) { for(; s->val != nil; s++) if(strcmp(s->val, word) == 0) return s; return nil; } static char* pstab(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { char *p, *fields[8]; int mask, val, nf; TkStab *s, *c; p = tkword(t, *str, buf, ebuf, nil); if(*buf == '\0') return TkOparg; if(o->type == OPTstab) { s = lookstab(o->aux, buf); if(s == nil) return TkBadvl; *str = p; OPTION(place, int, o->offset) = s->con; return nil; } nf = getfields(buf, fields, nelem(fields), 1, " \t,"); if(nf < 1 || nf > 1 && o->type != OPTflags) return TkBadvl; mask = 0; for(c = o->aux; c->val; c++) mask |= c->con; val = 0; while(--nf >= 0) { s = lookstab(o->aux, fields[nf]); if(s == nil) return TkBadvl; val |= s->con; } *str = p; OPTION(place, int, o->offset) &= ~mask; OPTION(place, int, o->offset) |= val; /* * a hack, but otherwise we have to dirty the focus order * every time any command is executed on a widget */ if(strcmp(o->o, "takefocus") == 0) tkdirtyfocusorder(t); return nil; } enum { Stickyn = (1<<0), Stickye = (1<<1), Stickys = (1<<2), Stickyw = (1<<3) }; static int stickymap[16] = { 0, Tknorth, Tkeast, Tknorth|Tkeast, Tksouth, Tkfilly, Tksouth|Tkeast, Tkeast|Tkfilly, Tkwest, Tknorth|Tkwest, Tkfillx, Tknorth|Tkfillx, Tksouth|Tkwest, Tkwest|Tkfilly, Tksouth|Tkfillx, Tkfillx|Tkfilly, }; static char* psticky(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { char *p, *s; int flag, sflag; p = tkword(t, *str, buf, ebuf, nil); *str = p; flag = 0; for (s = buf; *s; s++) { switch (*s) { case 'n': flag |= Stickyn; break; case 's': flag |= Stickys; break; case 'e': flag |= Stickye; break; case 'w': flag |= Stickyw; break; case ' ': case ',': break; default: return TkBadvl; } } sflag = OPTION(place, int, o->offset) & ~(Tkanchor|Tkfill); OPTION(place, int, o->offset) = sflag | stickymap[flag]; return nil; } static char* ptext(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { char **p; *str = tkword(t, *str, buf, ebuf, nil); p = &OPTION(place, char*, o->offset); if(*p != nil) free(*p); if(buf[0] == '\0') *p = nil; else { *p = strdup(buf); if(*p == nil) return TkNomem; } return nil; } static char* pimag(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { int locked; Display *d; TkImg **p, *i; i = nil; p = &OPTION(place, TkImg*, o->offset); *str = tkword(t, *str, buf, ebuf, nil); if(*buf != '\0') { i = tkname2img(t, buf); if(i == nil) return TkBadvl; i->ref++; } if(*p != nil) { d = t->display; locked = lockdisplay(d); tkimgput(*p); if(locked) unlockdisplay(d); } *p = i; return nil; } static char* pbmap(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { Display *d; Image *i, **p; int locked, fd; char *c; p = &OPTION(place, Image*, o->offset); d = t->display; *str = tkword(t, *str, buf, ebuf, nil); if(*buf == '\0' || *buf == '-') { if(*p != nil) { locked = lockdisplay(d); freeimage(*p); if(locked) unlockdisplay(d); *p = nil; } return nil; } if(buf[0] == '@') i = display_open(d, buf+1); else if(buf[0] == '<') { buf++; fd = strtoul(buf, &c, 0); if(c == buf) { return TkBadvl; } i = readimage(d, fd, 1); } else { char *file; file = mallocz(Tkmaxitem, 0); if(file == nil) return TkNomem; snprint(file, Tkmaxitem, "/icons/tk/%s", buf); i = display_open(d, file); free(file); } if(i == nil) return TkBadbm; if(*p != nil) { locked = lockdisplay(d); freeimage(*p); if(locked) unlockdisplay(d); } *p = i; return nil; } static char* pfont(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { TkEnv *e; Display *d; int locked; Font *font; *str = tkword(t, *str, buf, ebuf, nil); if(*buf == '\0') return TkOparg; d = t->display; font = font_open(d, buf); if(font == nil) return TkBadft; e = tkdupenv(&OPTION(place, TkEnv*, o->offset)); if(e == nil) { freefont(font); /* XXX lockdisplay around this? */ return TkNomem; } if(e->font) font_close(e->font); e->font = font; locked = lockdisplay(d); e->wzero = stringwidth(font, "0"); if ( e->wzero <= 0 ) e->wzero = e->font->height / 2; if(locked) unlockdisplay(d); return nil; } static int hex(int c) { if(c >= 'a') c -= 'a'-'A'; if(c >= 'A') c = 10 + (c - 'A'); else c -= '0'; return c; } static ulong changecol(TkEnv *e, int setcol, int col, ulong rgba) { if (setcol) { e->set |= (1<<col); } else { rgba = 0; e->set &= ~(1<<col); } e->colors[col] = rgba; return rgba; } char* tkparsecolor(char *buf, ulong *rgba) { char *p, *q, *e; int R, G, B, A; int i, len, alen; s32 alpha; /* * look for alpha modifier in *#AA or *0.5 format */ len = strlen(buf); p = strchr(buf, '*'); if(p != nil) { alen = len - (p - buf); if(p[1] == '#') { if(alen != 4) return TkBadvl; alpha = (hex(p[2])<<4) | (hex(p[3])); } else { q = p+1; e = tkfrac(&q, &alpha, nil); if (e != nil) return e; alpha = TKF2I(alpha * 0xff); } *p = '\0'; len -= alen; } else alpha = 0xff; if (*buf == '#') { switch(len) { case 4: /* #RGB */ R = hex(buf[1]); G = hex(buf[2]); B = hex(buf[3]); *rgba = (R<<28) | (G<<20) | (B<<12) | 0xff; break; case 7: /* #RRGGBB */ R = (hex(buf[1])<<4)|(hex(buf[2])); G = (hex(buf[3])<<4)|(hex(buf[4])); B = (hex(buf[5])<<4)|(hex(buf[6])); *rgba = (R<<24) | (G<<16) | (B<<8) | 0xff; break; case 9: /* #RRGGBBAA */ R = (hex(buf[1])<<4)|(hex(buf[2])); G = (hex(buf[3])<<4)|(hex(buf[4])); B = (hex(buf[5])<<4)|(hex(buf[6])); A = (hex(buf[7])<<4)|(hex(buf[8])); *rgba = (R<<24) | (G<<16) | (B<<8) | A; break; default: return TkBadvl; } } else { for(i = 0; tkcolortab[i].val != nil; i++) if (!strcmp(tkcolortab[i].val, buf)) break; if (tkcolortab[i].val == nil) return TkBadvl; *rgba = tkcolortab[i].con; } if (alpha != 0xff) { tkrgbavals(*rgba, &R, &G, &B, &A); A = (A * alpha) / 255; *rgba = tkrgba(R, G, B, A); } return nil; } static char* pcolr(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { TkEnv *env; char *e; ulong rgba, dark, light; int color, setcol; *str = tkword(t, *str, buf, ebuf, nil); rgba = 0; if(*buf == '\0') { setcol = 0; } else { setcol = 1; e = tkparsecolor(buf, &rgba); if(e != nil) return e; } env = tkdupenv(&OPTION(place, TkEnv*, o->offset)); if(env == nil) return TkNomem; color = AUXI(o->aux); rgba = changecol(env, setcol, color, rgba); if(color == TkCbackgnd || color == TkCselectbgnd || color == TkCactivebgnd) { if (setcol) { light = tkrgbashade(rgba, TkLightshade); dark = tkrgbashade(rgba, TkDarkshade); } else light = dark = 0; changecol(env, setcol, color+1, light); changecol(env, setcol, color+2, dark); } return nil; } static char* pbool(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { USED(buf); USED(ebuf); USED(str); USED(t); OPTION(place, int, o->offset) = 1; return nil; } static char* pwinp(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { Tk *f; char *p; p = tkword(t, *str, buf, ebuf, nil); if(*buf == '\0') return TkOparg; *str = p; f = tklook(t, buf, 0); if(f == nil){ tkerr(t, buf); return TkBadwp; } OPTION(place, Tk*, o->offset) = f; return nil; } static char* pctag(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { char *p; TkName *n, *l; *str = tkword(t, *str, buf, ebuf, nil); l = nil; p = buf; while(*p) { p = tkskip(p, " \t"); buf = p; while(*p && *p != ' ' && *p != '\t') p++; if(*p != '\0') *p++ = '\0'; if(p == buf || buf[0] >= '0' && buf[0] <= '9') { tkfreename(l); return TkBadtg; } n = tkmkname(buf); if(n == nil) { tkfreename(l); return TkNomem; } n->link = l; l = n; } tkfreename(OPTION(place, TkName*, o->offset)); OPTION(place, TkName*, o->offset) = l; return nil; } static char* pfrac(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { char *p, *e; int i, *v; s32 n, d; *str = tkword(t, *str, buf, ebuf, nil); v = &OPTION(place, int, o->offset); n = (intptr)o->aux; if(n == 0) n = 1; p = buf; for(i = 0; i < n; i++) { p = tkskip(p, " \t"); if(*p == '\0') return TkOparg; e = tkfracword(t, &p, &d, nil); if (e != nil) return e; *v++ = d; } return nil; } /* * N.B. nnfrac only accepts aux==nil (can't deal with several items) */ static char* pnnfrac(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { int oldv; char *e; oldv = OPTION(place, int, o->offset); e = pfrac(t, o, place, str, buf, ebuf); if(e == nil && OPTION(place, int, o->offset) < 0) { OPTION(place, int, o->offset) = oldv; return TkBadvl; } return e; } typedef struct Tabspec { int dist; int just; TkEnv *env; } Tabspec; static char* ptabs(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { char *e, *p, *eibuf; TkOption opd, opj; Tabspec tspec; TkTtabstop *tabfirst, *tab, *tabprev; char *ibuf; ibuf = mallocz(Tkmaxitem, 0); if(ibuf == nil) return TkNomem; eibuf = ibuf + Tkmaxitem; tspec.env = OPTION(place, TkEnv*, AUXI(o->aux)); opd.offset = O(Tabspec, dist); opd.aux = IAUX(O(Tabspec, env)); opj.offset = O(Tabspec, dist); opj.aux = tktabjust; tabprev = nil; tabfirst = nil; p = tkword(t, *str, buf, ebuf, nil); if(*buf == '\0') { free(ibuf); return TkOparg; } *str = p; p = buf; while(*p != '\0') { e = pdist(t, &opd, &tspec, &p, ibuf, eibuf); if(e != nil) { free(ibuf); return e; } e = pstab(t, &opj, &tspec, &p, ibuf, eibuf); if(e != nil) tspec.just = Tkleft; tab = malloc(sizeof(TkTtabstop)); if(tab == nil) { free(ibuf); return TkNomem; } tab->pos = tspec.dist; tab->justify = tspec.just; tab->next = nil; if(tabfirst == nil) tabfirst = tab; else tabprev->next = tab; tabprev = tab; } free(ibuf); tab = OPTION(place, TkTtabstop*, o->offset); if(tab != nil) free(tab); OPTION(place, TkTtabstop*, o->offset) = tabfirst; return nil; } char* tkxyparse(Tk* tk, char **parg, Point *p) { char *buf; buf = mallocz(Tkmaxitem, 0); if(buf == nil) return TkNomem; *parg = tkword(tk->env->top, *parg, buf, buf+Tkmaxitem, nil); if(*buf == '\0') { free(buf); return TkOparg; } p->x = atoi(buf); *parg = tkword(tk->env->top, *parg, buf, buf+Tkmaxitem, nil); if(*buf == '\0') { free(buf); return TkOparg; } p->y = atoi(buf); free(buf); return nil; } static char* plist(TkTop *t, TkOption *o, void *place, char **str, char *buf, char *ebuf) { char *w, ***p, *wbuf, *ewbuf, **v, **nv; int n, m, i, found; *str = tkword(t, *str, buf, ebuf, nil); n = strlen(buf) + 1; wbuf = mallocz(n, 0); if (wbuf == nil) return TkNomem; /* XXX should we free old values too? */ ewbuf = &wbuf[n]; p = &OPTION(place, char**, o->offset); if (*p != nil){ for (v = *p; *v; v++) free(*v); free(*p); } n = 0; m = 4; w = buf; v = malloc(m * sizeof(char*)); if (v == nil) goto Error; for (;;) { w = tkword(t, w, wbuf, ewbuf, &found); if (!found) break; if (n == m - 1) { m += m/2; nv = realloc(v, m * sizeof(char*)); if (nv == nil) goto Error; v = nv; } v[n] = strdup(wbuf); if (v[n] == nil) goto Error; n++; } v[n++] = nil; *p = realloc(v, n * sizeof(char*)); free(wbuf); return nil; Error: free(buf); for (i = 0; i < n; i++) free(v[i]); free(v); *p = nil; return TkNomem; }