Lines Matching defs:STKP
2885 #define STKP TT.stackp // pointer to top of stack
2897 return STKP-- -> num;
2902 if (!(STKP->flags & (ZF_ANYMAP | ZF_RX))) zstring_release(&STKP->vst);
2903 STKP--;
2913 struct zvalue tmp = STKP[-1];
2914 STKP[-1] = STKP[0];
2915 STKP[0] = tmp;
2921 struct zvalue *v = STKP;
2984 ref = STKP - ref_stack_ptr;
2994 v = get_map_val(v, STKP - ref_stack_ptr - 1);
3022 to_str(STKP); // filename at top of TT.stack
3024 if (!STKP[0].vst->str[0]) return fflush_all();
3028 if (!strcmp(STKP[0].vst->str, p->fn))
3061 to_str(STKP); // filename at top of TT.stack
3062 char *fn = STKP[0].vst->str;
3117 char *pfmt, *fmt = to_str(STKP-nargs+1)->vst->str;
3463 struct zvalue *ere = STKP-2;
3464 struct zvalue *repl = STKP-1;
3537 if (!IS_RX(STKP-2)) zstring_release(&STKP[-2].vst);
3556 STKP = (struct zvalue *)TT.stack.base + k;
3581 (STKP)->num = ! get_set_logical();
3589 STKP->num = -to_num(STKP);
3598 nleft = to_num(STKP-1);
3599 nright = to_num(STKP);
3609 STKP->num = nleft;
3614 to_str(STKP-1);
3615 to_str(STKP);
3616 STKP[-1].vst = zstring_extend(STKP[-1].vst, STKP[0].vst);
3644 if ( (IS_NUM(&STKP[-1]) &&
3645 (STKP[0].flags & (ZF_NUM | ZF_NUMSTR) || !STKP[0].flags)) ||
3646 (IS_NUM(&STKP[0]) &&
3647 (STKP[-1].flags & (ZF_NUM | ZF_NUMSTR) || !STKP[-1].flags))) {
3649 case tklt: cmp = STKP[-1].num < STKP[0].num; break;
3650 case tkle: cmp = STKP[-1].num <= STKP[0].num; break;
3651 case tkne: cmp = STKP[-1].num != STKP[0].num; break;
3652 case tkeq: cmp = STKP[-1].num == STKP[0].num; break;
3653 case tkgt: cmp = STKP[-1].num > STKP[0].num; break;
3654 case tkge: cmp = STKP[-1].num >= STKP[0].num; break;
3657 cmp = strcmp(to_str(STKP-1)->vst->str, to_str(STKP)->vst->str);
3680 mret = match(STKP-1, STKP); // mret == 0 if match
3697 to_num(STKP);
3701 v->num = pow(v->num, STKP->num);
3705 v->num = fmod(v->num, STKP->num);
3708 v->num *= STKP->num;
3711 v->num /= STKP->num;
3714 v->num += STKP->num;
3717 v->num -= STKP->num;
3732 force_maybemap_to_scalar(STKP);
3733 zvalue_copy(v, STKP);
3755 STKP->num -= (opcode == tkincr) ? 1 : -1;
3868 force_maybemap_to_scalar(STKP); // Unneeded?
3869 zvalue_copy(&STACK[parmbase+RETURN_VALUE], STKP);
3874 if ((STKP)->flags & ZF_ANYMAP) {
3875 zmap_delete_map_incl_slotdata((STKP)->map);
3876 xfree((STKP)->map);
3887 if (STKP > stackp_needmore) add_stack(&stackp_needmore);
3908 to_str(STKP);
3910 to_str(STKP);
3911 STKP[-1].vst = zstring_extend(STKP[-1].vst, STKP->vst);
3914 to_str(STKP);
3915 STKP[-1].vst = zstring_extend(STKP[-1].vst, STKP->vst);
3922 k = STKP->num;
3930 zmap_delete(v->map, to_str(STKP)->vst);
3941 v = get_map_val(v, STKP);
3947 if (!(STKP->flags & ZF_ANYMAP)) FATAL("scalar in array context");
3948 v = zmap_find(STKP->map, to_str(STKP-1)->vst);
3956 v = STKP-1;
3961 int kk = STKP->num + 1;
3964 STKP->num = kk; // save index for next iteration
3986 push_field((int)(to_num(STKP)));
4009 (STKP)->num = ! get_set_logical();
4043 to_num(STKP);
4044 (STKP)->flags |= ZF_FIELDREF;
4131 struct zstring *s = to_str(STKP-2)->vst;
4132 force_maybemap_to_map(STKP-1);
4133 struct zvalue *a = STKP-1;
4134 struct zvalue *fs = STKP;
4143 if (!IS_RX(STKP)) to_str(STKP);
4145 rx_zvalue_compile(&rxp, STKP);
4147 k = rx_find(rxp, to_str(STKP-1)->vst->str, &rso, &reo, 0);
4148 rx_zvalue_free(rxp, STKP);
4154 reo = utf8cnt(STKP[-1].vst->str, reo);
4155 rso = utf8cnt(STKP[-1].vst->str, rso);
4170 struct zstring *zz = to_str(STKP - nargs + 1)->vst;
4173 ssize_t mm = CLAMP(trunc(to_num(STKP - nargs + 2)) - 1, 0, nchars);
4175 if (nargs == 3) nn = CLAMP(trunc(to_num(STKP)), 0, nn);
4179 zstring_release(&(STKP - nargs + 1)->vst);
4180 (STKP - nargs + 1)->vst = zzz;
4186 char *s1 = to_str(STKP-1)->vst->str;
4187 char *s3 = strstr(s1, to_str(STKP)->vst->str);
4199 ; size_t acc = to_num(STKP);
4202 case tkband: acc &= (size_t)to_num(STKP-i); break;
4203 case tkbor: acc |= (size_t)to_num(STKP-i); break;
4204 case tkbxor: acc ^= (size_t)to_num(STKP-i); break;
4205 case tklshift: acc = (size_t)to_num(STKP-i) << acc; break;
4206 case tkrshift: acc = (size_t)to_num(STKP-i) >> acc; break;
4215 struct zstring *z = to_str(STKP)->vst;
4239 STKP->vst = zz;
4244 v = nargs ? STKP : &FIELD[0];
4259 r = system(to_str(STKP)->vst->str);
4279 r = close_file(to_str(STKP)->vst->str);
4297 d = atan2(to_num(STKP-1), to_num(STKP));
4299 STKP->num = d;
4306 STKP->num =
4312 STKP->num = seedrand(to_num(STKP));
4317 STKP->num = mathfunc[opcode-tkcos](to_num(STKP));
4339 STKP = &STACK[stkptrbefore];