Lines Matching refs:Array
211 Cell **args; /* pointer to array of arguments after execute */
254 i, NN(y->nval), y->fval, isarr(y) ? "(array)" : NN(y->sval), y->tval) );
451 Cell *array(Node **a, int n) /* a[0] is symtab, a[1] is list of subscripts */
461 FATAL("out of memory in array");
468 if (!adjbuf(&buf, &bufsz, strlen(buf)+strlen(s)+nsub+1, recsize, 0, "array"))
476 dprintf( ("making %s into an array\n", NN(x->nval)) );
483 z = setsymtab(buf, "", 0.0, STR|NUM, (Array *) x->sval);
538 ap = execute(a[1]); /* array name */
540 dprintf( ("making %s into an array\n", ap->nval) );
561 k = lookup(buf, (Array *) ap->sval);
1230 ap = execute(a[1]); /* array name */
1254 setsymtab(num, s, atof(s), STR|NUM, (Array *) ap->sval);
1256 setsymtab(num, s, 0.0, STR, (Array *) ap->sval);
1262 setsymtab(num, "", 0.0, STR, (Array *) ap->sval);
1273 setsymtab(num, s, atof(s), STR|NUM, (Array *) ap->sval);
1275 setsymtab(num, s, 0.0, STR, (Array *) ap->sval);
1293 setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval);
1295 setsymtab(num, t, 0.0, STR, (Array *) ap->sval);
1308 setsymtab(num, buf, atof(buf), STR|NUM, (Array *) ap->sval);
1310 setsymtab(num, buf, 0.0, STR, (Array *) ap->sval);
1322 setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval);
1324 setsymtab(num, t, 0.0, STR, (Array *) ap->sval);
1435 Array *tp;
1443 tp = (Array *) arrayp->sval;
1480 u = ((Array *) x->sval)->nelem; /* GROT. should be function*/
