Lines Matching refs:STACK
256 #define STACK ((struct zvalue *)TT.stack.base)
2582 if (!IS_STR(&STACK[fmt_offs])) {
2583 zstring_release(&STACK[fmt_offs].vst);
2584 STACK[fmt_offs].vst = num_to_zstring(STACK[fmt_offs].num, "%.6g");
2585 STACK[fmt_offs].flags = ZF_STR;
2587 v->vst = num_to_zstring(v->num, STACK[fmt_offs].vst->str);
2724 STACK[NF].num = TT.nf_internal = nf;
2725 STACK[NF].flags = ZF_NUM;
2785 set_nf(*rec ? splitter(set_field, 0, rec, to_str(&STACK[FS])) : 0);
2794 zvalue_copy(&tempv, to_str(&STACK[OFS]));
2851 int new_nf = get_int_val(&STACK[NF]);
2858 set_nf(TT.nf_internal = STACK[NF].num);
2988 v = &STACK[k];
3086 return (int)to_num(&STACK[k]);
3155 s = to_str(&STACK[k++])->vst->str;
3156 } else if (fmtc == 'c' && !IS_NUM(&STACK[k])) {
3158 struct zvalue *z = &STACK[k++];
3162 n = to_num(&STACK[k++]);
3219 struct zvalue *v = &STACK[globals_ent];
3267 if (++TT.rgl.narg >= (int)to_num(&STACK[ARGC])) return 0;
3268 struct zvalue *v = &STACK[ARGV];
3270 num_to_zstring(TT.rgl.narg, to_str(&STACK[CONVFMT])->vst->str));
3288 zvalue_release_zstring(&STACK[FILENAME]);
3289 STACK[FILENAME].vst = new_zstring("<stdin>", 7);
3292 zvalue_copy(&STACK[FILENAME], &TT.rgl.cur_arg);
3293 set_num(&STACK[FNR], 0);
3339 int r = 0, rs = ENSURE_STR(&STACK[RS])->vst->str[0] & 0xff;
3343 rx_zvalue_compile(&rsrxp, &STACK[RS]);
3414 incr_zvalue(&STACK[NR]);
3415 incr_zvalue(&STACK[FNR]);
3436 incr_zvalue(&STACK[NR]);
3437 incr_zvalue(&STACK[FNR]);
3794 zvalue_copy(&tempv, &STACK[OFS]);
3800 v = &STACK[sp];
3808 fputs(ENSURE_STR(&STACK[ORS])->vst->str, outfp->fp);
3834 STACK[newparmbase + PREV_PARMBASE].num = parmbase;
3867 nargs = STACK[parmbase+ARG_CNT].num;
3869 zvalue_copy(&STACK[parmbase+RETURN_VALUE], STKP);
3882 ip = &ZCODE[(int)STACK[parmbase+RETURN_ADDR].num];
3883 parmbase = STACK[parmbase+PREV_PARMBASE].num;
3898 STACK[newparmbase+RETURN_ADDR].num = ip - &ZCODE[0];
3899 STACK[newparmbase+ARG_CNT].num = nargs;
3901 ip = &ZCODE[FUNC_DEF[(int)STACK[newparmbase+FUNCTION_NUM].num].zcode_addr];
3909 push_val(&STACK[SUBSEP]);
3924 v = &STACK[k];
3938 v = &STACK[k];
3978 v = &STACK[k];
4130 if (nargs == 2) push_val(&STACK[FS]);
4150 to_num(&STACK[RSTART]);
4151 to_num(&STACK[RLENGTH]);
4152 if (k) STACK[RSTART].num = 0, STACK[RLENGTH].num = -1;
4156 STACK[RSTART].num = rso + 1, STACK[RLENGTH].num = reo - rso;
4339 STKP = &STACK[stkptrbefore];
4348 struct zvalue zkey = ZVINIT(ZF_STR, 0, num_to_zstring(key, ENSURE_STR(&STACK[CONVFMT])->vst->str));
4363 STACK[CONVFMT] = new_str_val("%.6g");
4367 STACK[ENVIRON] = m;
4382 STACK[ARGV] = m;
4391 STACK[ARGC] = (struct zvalue)ZVINIT(ZF_NUM, nargc, 0);
4392 STACK[FILENAME] = new_str_val("");
4393 STACK[FNR] = (struct zvalue)ZVINIT(ZF_NUM, 0, 0);
4394 STACK[FS] = new_str_val(sepstring);
4395 STACK[NF] = (struct zvalue)ZVINIT(ZF_NUM, 0, 0);
4396 STACK[NR] = (struct zvalue)ZVINIT(ZF_NUM, 0, 0);
4397 STACK[OFMT] = new_str_val("%.6g");
4398 STACK[OFS] = new_str_val(" ");
4399 STACK[ORS] = new_str_val("\n");
4400 STACK[RLENGTH] = (struct zvalue)ZVINIT(ZF_NUM, 0, 0);
4401 STACK[RS] = new_str_val("\n");
4402 STACK[RSTART] = (struct zvalue)ZVINIT(ZF_NUM, 0, 0);
4403 STACK[SUBSEP] = new_str_val("\034");