diff options
| -rw-r--r-- | sys/src/cmd/acid/builtin.c | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/sys/src/cmd/acid/builtin.c b/sys/src/cmd/acid/builtin.c index e36a5dbdd..bfcb19d4a 100644 --- a/sys/src/cmd/acid/builtin.c +++ b/sys/src/cmd/acid/builtin.c @@ -42,6 +42,7 @@ void regexp(Node*, Node*); void dosysr1(Node*, Node*); void fmtof(Node*, Node*) ; void dofmtsize(Node*, Node*) ; +void dogetfields(Node*, Node*); typedef struct Btab Btab; struct Btab @@ -60,6 +61,7 @@ struct Btab "fnbound", funcbound, "fmt", fmt, "follow", follow, + "getfields", dogetfields, "itoa", cvtitoa, "kill", kill, "match", match, @@ -1314,3 +1316,38 @@ void dofmtsize(Node *r, Node *args) r->ival = fmtsize(&v) ; r->fmt = 'D'; } + +void +dogetfields(Node *r, Node *args) +{ + Node *av[Maxarg], nstr, ndelim, nmultif; + char *buf; + char *f[128]; + int rc, i; + List *l, **lp; + + na = 0; + flatten(av, args); + if(na != 3) + error("getfields(str, delims, multiflag): arg count"); + expr(av[0], &nstr); + expr(av[1], &ndelim); + expr(av[2], &nmultif); + if(nstr.type != TSTRING || ndelim.type != TSTRING) + error("getfields(str, delims, multiflag): arg type"); + buf = strdup(nstr.string->string); + if(buf == nil) + fatal("out of memory"); + rc = getfields(buf, f, nelem(f), bool(&nmultif), ndelim.string->string); + lp = &r->l; + for(i = 0; i < rc; i++){ + l = al(TSTRING); + l->fmt = 's'; + l->string = strnode(f[i]); + *lp = l; + lp = &l->next; + } + r->op = OCONST; + r->type = TLIST; + free(buf); +} |