Lines Matching refs:Array
214 Cell **args; /* pointer to array of arguments after execute */
257 i, NN(y->nval), y->fval, isarr(y) ? "(array)" : NN(y->sval), y->tval) );
466 Cell *array(Node **a, int n) /* a[0] is symtab, a[1] is list of subscripts */
476 FATAL("out of memory in array");
484 if (!adjbuf(&buf, &bufsz, strlen(buf)+strlen(s)+nsub+1, recsize, 0, "array"))
492 dprintf( ("making %s into an array\n", NN(x->nval)) );
499 z = setsymtab(buf, "", 0.0, STR|NUM, (Array *) x->sval);
555 ap = execute(a[1]); /* array name */
557 dprintf( ("making %s into an array\n", ap->nval) );
579 k = lookup(buf, (Array *) ap->sval);
1277 ap = execute(a[1]); /* array name */
1307 setsymtab(num, s, atof(s), STR|NUM, (Array *) ap->sval);
1309 setsymtab(num, s, 0.0, STR, (Array *) ap->sval);
1315 setsymtab(num, "", 0.0, STR, (Array *) ap->sval);
1326 setsymtab(num, s, atof(s), STR|NUM, (Array *) ap->sval);
1328 setsymtab(num, s, 0.0, STR, (Array *) ap->sval);
1346 setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval);
1348 setsymtab(num, t, 0.0, STR, (Array *) ap->sval);
1361 setsymtab(num, buf, atof(buf), STR|NUM, (Array *) ap->sval);
1363 setsymtab(num, buf, 0.0, STR, (Array *) ap->sval);
1375 setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval);
1377 setsymtab(num, t, 0.0, STR, (Array *) ap->sval);
1487 Array *tp;
1495 tp = (Array *) arrayp->sval;
1534 u = ((Array *) x->sval)->nelem; /* GROT. should be function*/
