Lines Matching defs:num
79 double num;
92 int nfiles; // num of cmdline data file args processed
243 #define ZVINIT(flags, num, ptr) {(flags), (double)(num), {(ptr)}}
1145 static int make_literal_num_val(double num)
1147 struct zvalue v = ZVINIT(ZF_NUM, num, 0);
1703 // num, string, regex, var, var with subscripts, and function calls
2503 // num string must begin space, +, -, ., or digit.
2505 double num = strtod(s, &end);
2507 v->num = num;
2584 STACK[fmt_offs].vst = num_to_zstring(STACK[fmt_offs].num, "%.6g");
2587 v->vst = num_to_zstring(v->num, STACK[fmt_offs].vst->str);
2676 if (IS_NUM(v)) return (int)v->num;
2724 STACK[NF].num = TT.nf_internal = nf;
2730 if (fnum < 0 || fnum > FIELDS_MAX) FFATAL("bad field num %d\n", fnum);
2818 if (fnum < 0 || fnum > FIELDS_MAX) error_exit("bad field num %d", fnum);
2858 set_nf(TT.nf_internal = STACK[NF].num);
2875 if (fnum < 0 || fnum > FIELDS_MAX) error_exit("bad field num %d", fnum);
2897 return STKP-- -> num;
2924 if (IS_NUM(v)) r = !! v->num;
2927 v->num = r;
2938 v->num = 0.0;
2939 if (IS_STR(v) && v->vst) v->num = atof(v->vst->str);
2943 return v->num;
2949 v->num = n;
2955 v->num = trunc(to_num(v)) + 1;
2985 if (ref->flags & ZF_FIELDREF) return get_field_ref(*field_num = ref->num);
2986 k = ref->num >= 0 ? ref->num : parmbase - ref->num;
3581 (STKP)->num = ! get_set_logical();
3589 STKP->num = -to_num(STKP);
3609 STKP->num = nleft;
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;
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;
3752 v->num += (opcode == tkincr) ? 1 : -1;
3755 STKP->num -= (opcode == tkincr) ? 1 : -1;
3758 v->num += (opcode == oppreincr) ? 1 : -1;
3827 op2 = *ip++; // func table num
3834 STACK[newparmbase + PREV_PARMBASE].num = parmbase;
3867 nargs = STACK[parmbase+ARG_CNT].num;
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];
3922 k = STKP->num;
3961 int kk = STKP->num + 1;
3964 STKP->num = kk; // save index for next iteration
4009 (STKP)->num = ! get_set_logical();
4149 // Force these to num before setting.
4152 if (k) STACK[RSTART].num = 0, STACK[RLENGTH].num = -1;
4156 STACK[RSTART].num = rso + 1, STACK[RLENGTH].num = reo - rso;
4299 STKP->num = d;
4306 STKP->num =
4312 STKP->num = seedrand(to_num(STKP));
4317 STKP->num = mathfunc[opcode-tkcos](to_num(STKP));