calc.c File Reference

#include <rz_types.h>
#include <rz_util.h>
#include <ctype.h>
#include <stdio.h>

Go to the source code of this file.

Macros
#define	isvalidchar(x)    (isalnum(x) || (x) == ':' || (x) == '$' || (x) == '.' || (x) == '_' || (x) == '?' || (x) == '\\' || (x) == ' ' || (x) == '[' || (x) == ']' || (x) == '}' || (x) == '{' || ((x) >= '0' && (x) <= '9'))
#define	stringValueAppend(x)

Functions
static RzNumCalcValue	Nset (ut64 v)
static RzNumCalcValue	Nsetf (double v)
static RzNumCalcValue	Naddi (RzNumCalcValue n, ut64 v)
static RzNumCalcValue	Nsubi (RzNumCalcValue n, ut64 v)
static RzNumCalcValue	Nneg (RzNumCalcValue n)
static RzNumCalcValue	Norr (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nxor (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nlt (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Ngt (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nand (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nadd (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nsub (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nmul (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nshl (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nshr (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nrol (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nror (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nmod (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Ndiv (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	Nexp (RzNumCalcValue n, RzNumCalcValue v)
static RzNumCalcValue	expr (RzNum *, RzNumCalc *, int)
static RzNumCalcValue	term (RzNum *, RzNumCalc *, int)
static void	error (RzNum *, RzNumCalc *, const char *)
static RzNumCalcValue	prim (RzNum *, RzNumCalc *, int)
static RzNumCalcToken	get_token (RzNum *, RzNumCalc *)
static void	cin_putback (RzNum *num, RzNumCalc *nc, char c)
RZ_API const char *	rz_num_calc_index (RzNum *num, const char *p)
static int	cin_get (RzNum *num, RzNumCalc *nc, char *c)
static int	cin_get_num (RzNum *num, RzNumCalc *nc, RzNumCalcValue *n)
static void	load_token (RzNum *num, RzNumCalc *nc, const char *s)
RZ_API ut64	rz_num_calc (RzNum *num, const char *str, const char **err)

Macro Definition Documentation

isvalidchar

#define isvalidchar

(

x

)

(isalnum(x) || (x) == ':' || (x) == '$' || (x) == '.' || (x) == '_' || (x) == '?' || (x) == '\\' || (x) == ' ' || (x) == '[' || (x) == ']' || (x) == '}' || (x) == '{' || ((x) >= '0' && (x) <= '9'))

stringValueAppend

#define stringValueAppend

(

x

)

Value:

    { \
        const size_t max = sizeof(nc->string_value) - 1; \
        if (i < max) \
            nc->string_value[i++] = x; \
        else \
            nc->string_value[max] = 0; \
    }

Function Documentation

cin_get()

static int cin_get ( RzNum *  num, RzNumCalc *  nc, char *  c  )

static

Definition at line 300 of file calc.c.

                                                       {
    if (nc->oc) {
        *c = nc->oc;
        nc->oc = 0;
    } else {
        if (!nc->calc_buf || !*nc->calc_buf) {
            return 0;
        }
        *c = nc->calc_buf[nc->calc_i];
        if (*c) {
            nc->calc_i++;
        } else {
            return 0;
        }
    }
    return 1;
}

References c, rz_num_calc_t::calc_buf, rz_num_calc_t::calc_i, and rz_num_calc_t::oc.

Referenced by cin_get_num(), and get_token().

cin_get_num()

static int cin_get_num ( RzNum *  num, RzNumCalc *  nc, RzNumCalcValue *  n  )

static

Definition at line 318 of file calc.c.

                                                                     {
    double d;
    char str[RZ_NUMCALC_STRSZ + 1]; // TODO: move into the heap?
    int i = 0;
    char c;
    str[0] = 0;
    while (cin_get(num, nc, &c)) {
        if (c != '_' && c != ':' && c != '.' && !isalnum((ut8)c)) {
            cin_putback(num, nc, c);
            break;
        }
        if (i < RZ_NUMCALC_STRSZ) {
            str[i++] = c;
        }
    }
    str[i] = 0;
    *n = Nset(rz_num_get(num, str));
    if (IS_DIGIT(*str) && strchr(str, '.')) {
        if (sscanf(str, "%lf", &d) < 1) {
            return 0;
        }
        if (n->n < d) {
            *n = Nsetf(d);
        }
        n->d = d;
    }
    return 1;
}

References c, cin_get(), cin_putback(), d, i, IS_DIGIT, isalnum, n, Nset(), Nsetf(), num, rz_num_get(), RZ_NUMCALC_STRSZ, and cmd_descs_generate::str.

Referenced by get_token().

cin_putback()

static void cin_putback ( RzNum *  num, RzNumCalc *  nc, char  c  )

static

Definition at line 284 of file calc.c.

                                                           {
    nc->oc = c;
}

References c, and rz_num_calc_t::oc.

Referenced by cin_get_num(), and get_token().

error()

static void error ( RzNum *  num, RzNumCalc *  nc, const char *  s  )

static

Definition at line 161 of file calc.c.

                                                            {
    nc->errors++;
    nc->calc_err = s;
    // fprintf (stderr, "error: %s\n", s);
}

References rz_num_calc_t::calc_err, rz_num_calc_t::errors, and s.

Referenced by get_token(), and prim().

expr()

static RzNumCalcValue expr ( RzNum *  num, RzNumCalc *  nc, int  get  )

static

Definition at line 167 of file calc.c.

                                                               {
    RzNumCalcValue left = term(num, nc, get);
    for (;;) {
        switch (nc->curr_tok) {
        case RNCSHL: left = Nshl(left, term(num, nc, 1)); break;
        case RNCSHR: left = Nshr(left, term(num, nc, 1)); break;
        case RNCROL: left = Nrol(left, term(num, nc, 1)); break;
        case RNCROR: left = Nror(left, term(num, nc, 1)); break;
        case RNCPLUS: left = Nadd(left, term(num, nc, 1)); break;
        case RNCMINUS: left = Nsub(left, term(num, nc, 1)); break;
        case RNCXOR: left = Nxor(left, term(num, nc, 1)); break;
        case RNCORR: left = Norr(left, term(num, nc, 1)); break;
        case RNCAND: left = Nand(left, term(num, nc, 1)); break;
        case RNCLT: left = Nlt(left, term(num, nc, 1)); break;
        case RNCGT: left = Ngt(left, term(num, nc, 1)); break;
        default:
            return left;
        }
    }
    return left;
}

References rz_num_calc_t::curr_tok, Nadd(), Nand(), Ngt(), Nlt(), Norr(), Nrol(), Nror(), Nshl(), Nshr(), Nsub(), num, Nxor(), RNCAND, RNCGT, RNCLT, RNCMINUS, RNCORR, RNCPLUS, RNCROL, RNCROR, RNCSHL, RNCSHR, RNCXOR, and term().

Referenced by esil_cost(), ExprMatch(), exprmatch(), exprmatchreg(), indx(), match(), prim(), rz_analysis_cc_set(), rz_analysis_esil_trace_op(), rz_analysis_noreturn_drop(), rz_bp_item_set_expr(), rz_core_analysis_esil_step_over_untilexpr(), rz_core_visual_esil(), rz_debug_esil_watch(), rz_num_calc(), sdb_foreach_match(), and sdbkv_match().

get_token()

static RzNumCalcToken get_token ( RzNum *  num, RzNumCalc *  nc  )

static

Definition at line 347 of file calc.c.

                                                           {
    char ch = 0, c = 0;
 
    do {
        if (!cin_get(num, nc, &ch)) {
            return nc->curr_tok = RNCEND;
        }
    } while (ch != '\n' && isspace((ut8)ch));
 
    switch (ch) {
    case 0:
    case ';':
    case '\n':
        return nc->curr_tok = RNCEND;
    case '+': // added for ++name and name++
        if (cin_get(num, nc, &c) && c == '+') {
            return nc->curr_tok = RNCINC;
        }
        cin_putback(num, nc, c);
        return nc->curr_tok = (RzNumCalcToken)ch;
    // negate hack
    case '~':
        if (cin_get(num, nc, &c) && c == '-') {
            return nc->curr_tok = RNCNEG;
        }
        cin_putback(num, nc, c);
        return nc->curr_tok = (RzNumCalcToken)ch;
    // negative number
    case '-':
        if (cin_get(num, nc, &c) && c == '-') {
            return nc->curr_tok = RNCDEC;
        }
        cin_putback(num, nc, c);
        return nc->curr_tok = (RzNumCalcToken)ch;
    case '<':
        if (cin_get(num, nc, &c) && c == '<') { // "<<" = shift left
            if (cin_get(num, nc, &c) && c == '<') { // "<<<" = rotate left
                return nc->curr_tok = RNCROL;
            }
            cin_putback(num, nc, c);
            return nc->curr_tok = RNCSHL;
        }
        cin_putback(num, nc, c);
        return nc->curr_tok = RNCLT;
    case '>':
        if (cin_get(num, nc, &c) && c == '>') {
            if (cin_get(num, nc, &c) && c == '>') {
                return nc->curr_tok = RNCROR;
            }
            cin_putback(num, nc, c);
            return nc->curr_tok = RNCSHR;
        }
        cin_putback(num, nc, c);
        return nc->curr_tok = RNCGT;
    case '^':
    case '&':
    case '|':
    case '%':
    case '/':
    case '(':
    case ')':
    case '=':
        return nc->curr_tok = (RzNumCalcToken)ch;
    case '*':
        if (cin_get(num, nc, &c) && c == '*') {
            return nc->curr_tok = RNCEXP;
        }
        cin_putback(num, nc, c);
        return nc->curr_tok = RNCMUL;
    case '0':
    case '1':
    case '2':
    case '3':
    case '4':
    case '5':
    case '6':
    case '7':
    case '8':
    case '9':
    case '.':
        cin_putback(num, nc, ch);
        if (!cin_get_num(num, nc, &nc->number_value)) {
            error(num, nc, "invalid number conversion");
            return 1;
        }
        return nc->curr_tok = RNCNUMBER;
 
#define isvalidchar(x) \
    (isalnum(x) || (x) == ':' || (x) == '$' || (x) == '.' || (x) == '_' || (x) == '?' || (x) == '\\' || (x) == ' ' || (x) == '[' || (x) == ']' || (x) == '}' || (x) == '{' || ((x) >= '0' && (x) <= '9'))
 
    default: {
        int i = 0;
#define stringValueAppend(x) \
    { \
        const size_t max = sizeof(nc->string_value) - 1; \
        if (i < max) \
            nc->string_value[i++] = x; \
        else \
            nc->string_value[max] = 0; \
    }
        stringValueAppend(ch);
        if (ch == '[') {
            while (cin_get(num, nc, &ch) && ch != ']') {
                if (i > RZ_NUMCALC_STRSZ - 1) {
                    error(num, nc, "string too long");
                    return 0;
                }
                stringValueAppend(ch);
            }
            stringValueAppend(ch);
        } else {
            while (cin_get(num, nc, &ch) && isvalidchar((unsigned char)ch)) {
                if (i >= RZ_NUMCALC_STRSZ) {
                    error(num, nc, "string too long");
                    return 0;
                }
                stringValueAppend(ch);
            }
        }
        stringValueAppend(0);
        if (ch != '\'') {
            cin_putback(num, nc, ch);
        }
        return nc->curr_tok = RNCNAME;
    }
    }
}

References c, cin_get(), cin_get_num(), cin_putback(), rz_num_calc_t::curr_tok, error(), i, isspace, isvalidchar, num, rz_num_calc_t::number_value, RNCDEC, RNCEND, RNCEXP, RNCGT, RNCINC, RNCLT, RNCMUL, RNCNAME, RNCNEG, RNCNUMBER, RNCROL, RNCROR, RNCSHL, RNCSHR, RZ_NUMCALC_STRSZ, and stringValueAppend.

Referenced by prim(), and rz_num_calc().

load_token()

static void load_token ( RzNum *  num, RzNumCalc *  nc, const char *  s  )

static

Definition at line 475 of file calc.c.

                                                                 {
    nc->calc_i = 0;
    nc->calc_len = strlen(s);
    nc->calc_buf = s;
    nc->calc_err = NULL;
}

References rz_num_calc_t::calc_buf, rz_num_calc_t::calc_err, rz_num_calc_t::calc_i, rz_num_calc_t::calc_len, NULL, and s.

Referenced by rz_num_calc().

Nadd()

static RzNumCalcValue Nadd ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 72 of file calc.c.

                                                                      {
    n.d += v.d;
    n.n += v.n;
    return n;
}

References n, and v.

Referenced by expr().

Naddi()

static RzNumCalcValue Naddi ( RzNumCalcValue  n, ut64  v  )

inlinestatic

Definition at line 33 of file calc.c.

                                                             {
    n.d += (double)v;
    n.n += v;
    return n;
}

References n, and v.

Referenced by prim().

Nand()

static RzNumCalcValue Nand ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 67 of file calc.c.

                                                                      {
    n.d = v.d;
    n.n &= v.n;
    return n;
}

References n, and v.

Referenced by expr().

Ndiv()

static RzNumCalcValue Ndiv ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 122 of file calc.c.

                                                                      {
    if (v.d) {
        n.d /= v.d;
    } else {
        n.d = 0;
    }
    if (v.n) {
        n.n /= v.n;
    } else {
        n.n = 0;
    }
    return n;
}

References n, and v.

Referenced by Nexp(), and term().

Nexp()

static RzNumCalcValue Nexp ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 136 of file calc.c.

                                                                      {
    RzNumCalcValue exp_n = n;
    if (v.d - (st64)v.n) {
        RZ_LOG_WARN("floating point powers not yet supported\n");
    }
    if ((st64)v.n > 0) {
        for (st64 i = 1; i < (st64)v.n; i++) {
            n = Nmul(exp_n, n);
        }
    } else if ((st64)v.n < 0) {
        for (st64 i = 1; i > (st64)v.n; i--) {
            n = Ndiv(n, exp_n);
        }
    } else {
        n = Ndiv(n, exp_n);
    }
    return n;
}

References i, n, Ndiv(), Nmul(), RZ_LOG_WARN, st64, and v.

Referenced by term().

Ngt()

static RzNumCalcValue Ngt ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 62 of file calc.c.

                                                                     {
    n.d = v.d;
    n.n = n.n > v.n;
    return n;
}

References n, and v.

Referenced by expr().

Nlt()

static RzNumCalcValue Nlt ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 57 of file calc.c.

                                                                     {
    n.d = v.d;
    n.n = n.n < v.n;
    return n;
}

References n, and v.

Referenced by expr().

Nmod()

static RzNumCalcValue Nmod ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 108 of file calc.c.

                                                                      {
    if (v.d) {
        n.d = (n.d - (n.d / v.d));
    } else {
        n.d = 0;
    }
    if (v.n) {
        n.n %= v.n;
    } else {
        n.n = 0;
    }
    return n;
}

References n, and v.

Referenced by term().

Nmul()

static RzNumCalcValue Nmul ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 82 of file calc.c.

                                                                      {
    n.d *= v.d;
    n.n *= v.n;
    return n;
}

References n, and v.

Referenced by Nexp(), and term().

Nneg()

static RzNumCalcValue Nneg ( RzNumCalcValue  n )

inlinestatic

Definition at line 43 of file calc.c.

                                                    {
    n.n = ~n.n;
    return n;
}

References n.

Referenced by prim().

Norr()

static RzNumCalcValue Norr ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 47 of file calc.c.

                                                                      {
    n.d = v.d;
    n.n |= v.n;
    return n;
}

References n, and v.

Referenced by expr(), and prim().

Nrol()

static RzNumCalcValue Nrol ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 98 of file calc.c.

                                                                      {
    n.d += v.d;
    n.n = (n.n << v.n) | (n.n >> (sizeof(n.n) * 8 - v.n));
    return n;
}

References n, and v.

Referenced by expr().

Nror()

static RzNumCalcValue Nror ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 103 of file calc.c.

                                                                      {
    n.d += v.d;
    n.n = (n.n >> v.n) | (n.n << (sizeof(n.n) * 8 - v.n));
    return n;
}

References n, and v.

Referenced by expr().

Nset()

static RzNumCalcValue Nset ( ut64  v )

inlinestatic

Definition at line 20 of file calc.c.

                                          {
    RzNumCalcValue n;
    n.d = (double)v;
    n.n = v;
    return n;
}

References n, and v.

Referenced by cin_get_num(), and prim().

Nsetf()

static RzNumCalcValue Nsetf ( double  v )

inlinestatic

Definition at line 26 of file calc.c.

                                             {
    RzNumCalcValue n;
    n.d = v;
    n.n = (ut64)v;
    return n;
}

References n, ut64(), and v.

Referenced by cin_get_num().

Nshl()

static RzNumCalcValue Nshl ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 88 of file calc.c.

                                                                      {
    n.d += v.d;
    n.n <<= v.n;
    return n;
}

References n, and v.

Referenced by expr().

Nshr()

static RzNumCalcValue Nshr ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 93 of file calc.c.

                                                                      {
    n.d += v.d;
    n.n >>= v.n;
    return n;
}

References n, and v.

Referenced by expr().

Nsub()

static RzNumCalcValue Nsub ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 77 of file calc.c.

                                                                      {
    n.d -= v.d;
    n.n -= v.n;
    return n;
}

References n, and v.

Referenced by expr(), and prim().

Nsubi()

static RzNumCalcValue Nsubi ( RzNumCalcValue  n, ut64  v  )

inlinestatic

Definition at line 38 of file calc.c.

                                                             {
    n.d -= (double)v;
    n.n -= v;
    return n;
}

References n, and v.

Referenced by prim().

Nxor()

static RzNumCalcValue Nxor ( RzNumCalcValue  n, RzNumCalcValue  v  )

inlinestatic

Definition at line 52 of file calc.c.

                                                                      {
    n.d = v.d;
    n.n ^= v.n;
    return n;
}

References n, and v.

Referenced by expr().

prim()

static RzNumCalcValue prim ( RzNum *  num, RzNumCalc *  nc, int  get  )

static

Definition at line 216 of file calc.c.

                                                               {
    RzNumCalcValue v = { 0 };
    if (get) {
        get_token(num, nc);
    }
    switch (nc->curr_tok) {
    case RNCNUMBER:
        v = nc->number_value;
        get_token(num, nc);
        return v;
    case RNCNAME:
        // fprintf (stderr, "error: unknown keyword (%s)\n", nc->string_value);
        // double& v = table[nc->string_value];
        rz_str_trim(nc->string_value);
        v = Nset(rz_num_get(num, nc->string_value));
        get_token(num, nc);
        if (nc->curr_tok == RNCASSIGN) {
            v = expr(num, nc, 1);
        }
        if (nc->curr_tok == RNCINC) {
            Naddi(v, 1);
        }
        if (nc->curr_tok == RNCDEC) {
            Nsubi(v, 1);
        }
        return v;
    case RNCNEG:
        get_token(num, nc);
        return Nneg(nc->number_value); // prim (num, nc, 1), 1);
    case RNCINC:
        return Naddi(prim(num, nc, 1), 1);
    case RNCDEC:
        return Naddi(prim(num, nc, 1), -1);
    case RNCORR:
        return Norr(v, prim(num, nc, 1));
    case RNCMINUS:
        return Nsub(v, prim(num, nc, 1));
    case RNCLEFTP:
        v = expr(num, nc, 1);
        if (nc->curr_tok == RNCRIGHTP) {
            get_token(num, nc);
        } else {
            error(num, nc, " ')' expected");
        }
        return v;
    case RNCLT:
    case RNCGT:
    case RNCEND:
    case RNCXOR:
    case RNCAND:
    case RNCPLUS:
    case RNCMOD:
    case RNCMUL:
    case RNCDIV:
    case RNCEXP:
    case RNCPRINT:
    case RNCASSIGN:
    case RNCRIGHTP:
    case RNCSHL:
    case RNCSHR:
    case RNCROL:
    case RNCROR:
        return v;
        // default: error (num, nc, "primary expected");
    }
    return v;
}

References rz_num_calc_t::curr_tok, error(), expr(), get_token(), Naddi(), Nneg(), Norr(), Nset(), Nsub(), Nsubi(), num, rz_num_calc_t::number_value, RNCAND, RNCASSIGN, RNCDEC, RNCDIV, RNCEND, RNCEXP, RNCGT, RNCINC, RNCLEFTP, RNCLT, RNCMINUS, RNCMOD, RNCMUL, RNCNAME, RNCNEG, RNCNUMBER, RNCORR, RNCPLUS, RNCPRINT, RNCRIGHTP, RNCROL, RNCROR, RNCSHL, RNCSHR, RNCXOR, rz_num_get(), rz_str_trim(), rz_num_calc_t::string_value, and v.

Referenced by term().

rz_num_calc()

RZ_API ut64 rz_num_calc	(	RzNum *	num,
		const char *	str,
		const char **	err
	)

Definition at line 482 of file calc.c.

                                                                       {
    RzNumCalcValue n;
    RzNumCalc *nc, nc_local;
    if (!str || !*str) {
        return 0LL;
    }
    if (num) {
        nc = &num->nc;
        num->dbz = 0;
    } else {
        nc = &nc_local;
    }
    /* init */
    nc->curr_tok = RNCPRINT;
    nc->number_value.d = 0.0;
    nc->number_value.n = 0LL;
    nc->errors = 0;
    nc->oc = 0;
    nc->calc_err = NULL;
    nc->calc_i = 0;
    nc->calc_len = 0;
    nc->calc_buf = NULL;
    nc->under_calc = true;
 
    load_token(num, nc, str);
    get_token(num, nc);
    n = expr(num, nc, 0);
    if (err) {
        *err = nc->calc_err;
    }
    if (num) {
        num->fvalue = n.d;
    }
    nc->under_calc = false;
    return n.n;
}

References rz_num_calc_t::calc_buf, rz_num_calc_t::calc_err, rz_num_calc_t::calc_i, rz_num_calc_t::calc_len, rz_num_calc_t::curr_tok, RzNumCalcValue::d, err, rz_num_calc_t::errors, expr(), get_token(), load_token(), n, RzNumCalcValue::n, NULL, num, rz_num_calc_t::number_value, rz_num_calc_t::oc, RNCPRINT, cmd_descs_generate::str, and rz_num_calc_t::under_calc.

Referenced by rz_num_math().

rz_num_calc_index()

RZ_API const char* rz_num_calc_index	(	RzNum *	num,
		const char *	p
	)

Definition at line 288 of file calc.c.

                                                                {
    if (!num) {
        return NULL;
    }
    if (p) {
        num->nc.calc_buf = p;
        num->nc.calc_len = strlen(p);
        num->nc.calc_i = 0;
    }
    return num->nc.calc_buf + num->nc.calc_i;
}

References NULL, num, and p.

Referenced by num_callback().

term()

static RzNumCalcValue term ( RzNum *  num, RzNumCalc *  nc, int  get  )

static

Definition at line 189 of file calc.c.

                                                               {
    RzNumCalcValue left = prim(num, nc, get);
    for (;;) {
        if (nc->curr_tok == RNCMUL) {
            left = Nmul(left, prim(num, nc, 1));
        } else if (nc->curr_tok == RNCMOD) {
            RzNumCalcValue d = prim(num, nc, 1);
            if (!d.d) {
                // error (num, nc, "divide by 0");
                return d;
            }
            left = Nmod(left, d);
        } else if (nc->curr_tok == RNCDIV) {
            RzNumCalcValue d = prim(num, nc, 1);
            if (num != NULL && (!d.d || !d.n)) {
                num->dbz = 1;
                return d;
            }
            left = Ndiv(left, d);
        } else if (nc->curr_tok == RNCEXP) {
            left = Nexp(left, prim(num, nc, 1));
        } else {
            return left;
        }
    }
}

References rz_num_calc_t::curr_tok, d, Ndiv(), Nexp(), Nmod(), Nmul(), NULL, num, prim(), RNCDIV, RNCEXP, RNCMOD, and RNCMUL.

Referenced by expr().