contrib/one-true-awk/run.c

48 			p->csub, p->ctype, p->sval);
258 			   i, NN(y->nval), y->fval, isarr(y) ? "(array)" : NN(y->sval), y->tval) );
286 	y = execute((Node *)(fcn->sval));	/* execute body */
300 					oargs[i]->sval = t->sval;
333 		y->sval = tostring(x->sval);
428 			if (is_number(fldtab[0]->sval)) {
429 				fldtab[0]->fval = atof(fldtab[0]->sval);
482 			xfree(x->sval);
485 		x->sval = (char *) makesymtab(NSYMTAB);
487 	z = setsymtab(buf, "", 0.0, STR|NUM, (Array *) x->sval);
509 		x->sval = (char *) makesymtab(NSYMTAB);
546 			xfree(ap->sval);
549 		ap->sval = (char *) makesymtab(NSYMTAB);
565 	k = lookup(buf, (Array *) ap->sval);
686 		   dprintf( ("freeing %s %s %o\n", NN(a->nval), NN(a->sval), a->tval) );
687 		xfree(a->sval);
961 	x->sval = buf;
1158 	n1 = strlen(x->sval);
1159 	n2 = strlen(y->sval);
1163 			x->sval, y->sval);
1164 	strcpy(s, x->sval);
1165 	strcpy(s+n1, y->sval);
1169 	z->sval = s;
1239 	ap->sval = (char *) makesymtab(NSYMTAB);
1264 					setsymtab(num, s, atof(s), STR|NUM, (Array *) ap->sval);
1266 					setsymtab(num, s, 0.0, STR, (Array *) ap->sval);
1272 					setsymtab(num, "", 0.0, STR, (Array *) ap->sval);
1283 			setsymtab(num, s, atof(s), STR|NUM, (Array *) ap->sval);
1285 			setsymtab(num, s, 0.0, STR, (Array *) ap->sval);
1303 				setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval);
1305 				setsymtab(num, t, 0.0, STR, (Array *) ap->sval);
1318 				setsymtab(num, buf, atof(buf), STR|NUM, (Array *) ap->sval);
1320 				setsymtab(num, buf, 0.0, STR, (Array *) ap->sval);
1332 				setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval);
1334 				setsymtab(num, t, 0.0, STR, (Array *) ap->sval);
1454 	tp = (Array *) arrayp->sval;
1492 			u = ((Array *) x->sval)->nelem;	/* GROT.  should be function*/
1728 		if (files[i].fname && strcmp(x->sval, files[i].fname) == 0) {