Lines Matching defs:ap
531 Cell *x, *ap, *k;
538 ap = execute(a[1]); /* array name */
539 if (!isarr(ap)) {
540 dprintf( ("making %s into an array\n", ap->nval) );
541 if (freeable(ap))
542 xfree(ap->sval);
543 ap->tval &= ~(STR|NUM|DONTFREE);
544 ap->tval |= ARR;
545 ap->sval = (char *) makesymtab(NSYMTAB);
561 k = lookup(buf, (Array *) ap->sval);
562 tempfree(ap);
1211 Cell *x = 0, *y, *ap;
1230 ap = execute(a[1]); /* array name */
1231 freesymtab(ap);
1232 dprintf( ("split: s=|%s|, a=%s, sep=|%s|\n", s, NN(ap->nval), fs) );
1233 ap->tval &= ~STR;
1234 ap->tval |= ARR;
1235 ap->sval = (char *) makesymtab(NSYMTAB);
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);
1330 tempfree(ap);
