rpn_mpfr.c File Reference

#include "calc.h"

Include dependency graph for rpn_mpfr.c:

Go to the source code of this file.

Classes
struct	stack_node_t
struct	calc_operator_t

Typedefs
typedef void(*	operator_call) (calc_number_t *, calc_number_t *, calc_number_t *)
typedef void exec_call_t	__GMP_PROTO((mpz_ptr, mpz_srcptr, mpz_srcptr))

Functions
static void	rpn_add_f (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_sub_f (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_mul_f (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_div_f (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_pow_f (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_sqr_f (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_and_f (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_or_f (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_xor_f (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_shl_f (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_shr_f (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_add_i (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_sub_i (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_mul_i (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_div_i (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_mod_i (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_add_p (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_sub_p (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_mul_p (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	rpn_div_p (calc_number_t *r, calc_number_t *a, calc_number_t *b)
static void	node_copy (calc_node_t *dst, calc_node_t *src)
static calc_node_t *	pop (void)
static int	is_stack_empty (void)
static void	push (calc_node_t *op)
static void	rpn_exec_int (calc_number_t *r, calc_number_t *a, calc_number_t *b, exec_call_t cb)
void	run_operator (calc_node_t *result, calc_node_t *a, calc_node_t *b, unsigned int operation)
static void	evalStack (calc_number_t *number)
int	exec_infix2postfix (calc_number_t *number, unsigned int func)
void	exec_change_infix (void)
void	exec_closeparent (calc_number_t *number)
int	eval_parent_count (void)
void	flush_postfix (void)
void	start_rpn_engine (void)
void	stop_rpn_engine (void)

Variables
static stack_node_t *	stack
static calc_node_t	temp
static BOOL	percent_mode
static const calc_operator_t	operator_list []

Typedef Documentation

__GMP_PROTO

typedef void exec_call_t __GMP_PROTO((mpz_ptr, mpz_srcptr, mpz_srcptr))

Definition at line 135 of file rpn_mpfr.c.

operator_call

typedef void(* operator_call) (calc_number_t *, calc_number_t *, calc_number_t *)

Definition at line 28 of file rpn_mpfr.c.

Function Documentation

eval_parent_count()

int eval_parent_count

(

void

)

Definition at line 433 of file rpn_mpfr.c.

{
    stack_node_t *s = stack;
    int           n = 0;
 
    while (s != NULL) {
        if (s->node.operation == RPN_OPERATOR_PARENT)
            n++;
        s = (stack_node_t *)(s->next);
    }
    return n;
}

Referenced by update_parent_display().

evalStack()

static void evalStack ( calc_number_t *  number )

static

Definition at line 328 of file rpn_mpfr.c.

{
    calc_node_t *op, ip;
    unsigned int prec;
 
    mpfr_init(ip.number.mf);
    op = pop();
    node_copy(&ip, op);
    prec = operator_list[ip.operation].prec;
    while (!is_stack_empty()) {
        op = pop();
 
        if (prec <= operator_list[op->operation].prec) {
            if (op->operation == RPN_OPERATOR_PARENT) continue;
 
            rpn_copy(&calc.prev, &ip.number);
            run_operator(&ip, op, &ip, op->operation);
            if (calc.is_nan) {
                flush_postfix();
                mpfr_clear(ip.number.mf);
                return;
            }
        } else {
            push(op);
            break;
        }
    }
 
    if (ip.operation != RPN_OPERATOR_EQUAL && ip.operation != RPN_OPERATOR_PERCENT)
        push(&ip);
 
    calc.prev_operator = op->operation;
 
    rpn_copy(number, &ip.number);
    mpfr_clear(ip.number.mf);
}

Referenced by exec_infix2postfix().

exec_change_infix()

void exec_change_infix

(

void

)

Definition at line 397 of file rpn_mpfr.c.

{
    stack_node_t *op = stack;
 
    if (op == NULL)
        return;
    if (op->node.operation == RPN_OPERATOR_PARENT ||
        op->node.operation == RPN_OPERATOR_PERCENT ||
        op->node.operation == RPN_OPERATOR_EQUAL)
        return;
    /* remove the head, it will be re-inserted with new operator */
    pop();
}

Referenced by DlgMainProc().

exec_closeparent()

void exec_closeparent

(

calc_number_t *

number

)

Definition at line 411 of file rpn_mpfr.c.

{
    calc_node_t *op, ip;
 
    rpn_alloc(&ip.number);
    rpn_copy(&ip.number, number);
    while (!is_stack_empty()) {
        op = pop();
 
        if (op->operation == RPN_OPERATOR_PARENT)
            break;
 
        run_operator(&ip, op, &ip, op->operation);
        if (calc.is_nan) {
            flush_postfix();
            return;
        }
    }
    rpn_copy(number, &ip.number);
    rpn_free(&ip.number);
}

Referenced by run_rpar().

exec_infix2postfix()

int exec_infix2postfix	(	calc_number_t *	number,
		unsigned int	func
	)

Definition at line 365 of file rpn_mpfr.c.

{
    calc_node_t tmp;
 
    if (is_stack_empty() && func == RPN_OPERATOR_EQUAL) {
        /* if a number has been entered with exponential */
        /* notation, I may update it with normal mode */
        if (calc.sci_in)
            return 1;
        return 0;
    }
 
    if (func == RPN_OPERATOR_PERCENT)
        percent_mode = TRUE;
 
    mpfr_init(tmp.number.mf);
    rpn_copy(&tmp.number, number);
    tmp.operation = func;
 
    push(&tmp);
    mpfr_clear(tmp.number.mf);
 
    if (func == RPN_OPERATOR_NONE)
        return 0;
 
    if (func != RPN_OPERATOR_PARENT) {
        calc.last_operator = func;
        evalStack(number);
    }
    return 1;
}

Referenced by DlgMainProc(), and run_lpar().

flush_postfix()

void flush_postfix

(

void

)

Definition at line 446 of file rpn_mpfr.c.

{
    while (!is_stack_empty())
        pop();
    /* clear prev and last typed operators */
    calc.prev_operator =
    calc.last_operator = 0;
}

Referenced by evalStack(), exec_closeparent(), and run_canc().

is_stack_empty()

static int is_stack_empty ( void  )

static

Definition at line 109 of file rpn_mpfr.c.

{
    return (stack == NULL);
}

Referenced by evalStack(), exec_closeparent(), exec_infix2postfix(), and flush_postfix().

node_copy()

static void node_copy ( calc_node_t *  dst, calc_node_t *  src  )

static

Definition at line 84 of file rpn_mpfr.c.

{
    mpfr_set(dst->number.mf, src->number.mf, MPFR_DEFAULT_RND);
    dst->operation = src->operation;
}

Referenced by evalStack(), and pop().

pop()

static calc_node_t * pop ( void  )

static

Definition at line 90 of file rpn_mpfr.c.

{
    void *next;
 
    if (stack == NULL)
        return NULL;
 
    /* copy the node */
    node_copy(&temp, &stack->node);
    next = stack->next;
 
    /* free the node */
    mpfr_clear(stack->node.number.mf);
    free(stack);
    stack = next;
 
    return &temp;
}

Referenced by evalStack(), exec_change_infix(), exec_closeparent(), and flush_postfix().

push()

static void push ( calc_node_t *  op )

static

Definition at line 114 of file rpn_mpfr.c.

{
    stack_node_t *z = (stack_node_t *)malloc(sizeof(stack_node_t));
 
    mpfr_init_set(z->node.number.mf, op->number.mf, MPFR_DEFAULT_RND);
    z->node.operation = op->operation;
    z->next = stack;
    stack = z;
}

Referenced by evalStack(), and exec_infix2postfix().

rpn_add_f()

static void rpn_add_f ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 153 of file rpn_mpfr.c.

{
    mpfr_add(r->mf, a->mf, b->mf, MPFR_DEFAULT_RND);
}

rpn_add_i()

static void rpn_add_i ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 238 of file rpn_mpfr.c.

{
    rpn_exec_int(r, a, b, mpz_add);
}

rpn_add_p()

static void rpn_add_p ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 270 of file rpn_mpfr.c.

{
    mpfr_t tmp;
 
    mpfr_init(tmp);
    mpfr_set(tmp, b->mf, MPFR_DEFAULT_RND);
    mpfr_div_ui(tmp, tmp, 100, MPFR_DEFAULT_RND);
    mpfr_add_ui(tmp, tmp, 1, MPFR_DEFAULT_RND);
    mpfr_mul(r->mf, a->mf, tmp, MPFR_DEFAULT_RND);
    mpfr_clear(tmp);
}

rpn_and_f()

static void rpn_and_f ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 176 of file rpn_mpfr.c.

{
    rpn_exec_int(r, a, b, mpz_and);
}

rpn_div_f()

static void rpn_div_f ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 168 of file rpn_mpfr.c.

{
    if (mpfr_sgn(b->mf) == 0)
        calc.is_nan = TRUE;
    else
        mpfr_div(r->mf, a->mf, b->mf, MPFR_DEFAULT_RND);
}

rpn_div_i()

static void rpn_div_i ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 253 of file rpn_mpfr.c.

{
    if (mpfr_sgn(b->mf) == 0)
        calc.is_nan = TRUE;
    else
        rpn_exec_int(r, a, b, mpz_tdiv_q);
}

rpn_div_p()

static void rpn_div_p ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 300 of file rpn_mpfr.c.

{
    if (mpfr_sgn(b->mf) == 0)
        calc.is_nan = TRUE;
    else {
        mpfr_mul_ui(r->mf, a->mf, 100, MPFR_DEFAULT_RND);
        mpfr_div(r->mf, r->mf, b->mf, MPFR_DEFAULT_RND);
    }
}

rpn_exec_int()

static void rpn_exec_int ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b, exec_call_t  cb  )

static

Definition at line 137 of file rpn_mpfr.c.

{
    mpz_t ai, bi;
 
    mpz_init(ai);
    mpz_init(bi);
    mpfr_get_z(ai, a->mf, MPFR_DEFAULT_RND);
    mpfr_get_z(bi, b->mf, MPFR_DEFAULT_RND);
    cb(ai, ai, bi);
    mpfr_set_z(r->mf, ai, MPFR_DEFAULT_RND);
    mpz_clear(ai);
    mpz_clear(bi);
}

Referenced by rpn_add_i(), rpn_and_f(), rpn_div_i(), rpn_mod_i(), rpn_mul_i(), rpn_or_f(), rpn_sub_i(), and rpn_xor_f().

rpn_mod_i()

static void rpn_mod_i ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 261 of file rpn_mpfr.c.

{
    if (mpfr_sgn(b->mf) == 0)
        calc.is_nan = TRUE;
    else
        rpn_exec_int(r, a, b, mpz_tdiv_r);
}

rpn_mul_f()

static void rpn_mul_f ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 163 of file rpn_mpfr.c.

{
    mpfr_mul(r->mf, a->mf, b->mf, MPFR_DEFAULT_RND);
}

rpn_mul_i()

static void rpn_mul_i ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 248 of file rpn_mpfr.c.

{
    rpn_exec_int(r, a, b, mpz_mul);
}

rpn_mul_p()

static void rpn_mul_p ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 294 of file rpn_mpfr.c.

{
    mpfr_mul(r->mf, a->mf, b->mf, MPFR_DEFAULT_RND);
    mpfr_div_ui(r->mf, r->mf, 100, MPFR_DEFAULT_RND);
}

rpn_or_f()

static void rpn_or_f ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 181 of file rpn_mpfr.c.

{
    rpn_exec_int(r, a, b, mpz_ior);
}

rpn_pow_f()

static void rpn_pow_f ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 217 of file rpn_mpfr.c.

{
    mpfr_pow(r->mf, a->mf, b->mf, MPFR_DEFAULT_RND);
}

rpn_shl_f()

static void rpn_shl_f ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 191 of file rpn_mpfr.c.

{
    unsigned long e;
 
    mpfr_trunc(r->mf, b->mf);
    if (mpfr_fits_ulong_p(r->mf, MPFR_DEFAULT_RND) == 0)
        calc.is_nan = TRUE;
    else {
        e = mpfr_get_ui(r->mf, MPFR_DEFAULT_RND);
        mpfr_mul_2exp(r->mf, a->mf, e, MPFR_DEFAULT_RND);
    }
}

rpn_shr_f()

static void rpn_shr_f ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 204 of file rpn_mpfr.c.

{
    unsigned long e;
 
    mpfr_trunc(r->mf, b->mf);
    if (mpfr_fits_ulong_p(r->mf, MPFR_DEFAULT_RND) == 0)
        calc.is_nan = TRUE;
    else {
        e = mpfr_get_ui(r->mf, MPFR_DEFAULT_RND);
        mpfr_div_2exp(r->mf, a->mf, e, MPFR_DEFAULT_RND);
    }
}

rpn_sqr_f()

static void rpn_sqr_f ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 222 of file rpn_mpfr.c.

{
    if (mpfr_sgn(b->mf) == 0)
        calc.is_nan = TRUE;
    else {
        mpfr_t tmp;
 
        mpfr_init(tmp);
        mpfr_set(tmp, b->mf, MPFR_DEFAULT_RND);
        mpfr_ui_div(tmp, 1, tmp, MPFR_DEFAULT_RND);
        mpfr_pow(r->mf, a->mf, tmp, MPFR_DEFAULT_RND);
        mpfr_clear(tmp);
    }
}

rpn_sub_f()

static void rpn_sub_f ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 158 of file rpn_mpfr.c.

{
    mpfr_sub(r->mf, a->mf, b->mf, MPFR_DEFAULT_RND);
}

rpn_sub_i()

static void rpn_sub_i ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 243 of file rpn_mpfr.c.

{
    rpn_exec_int(r, a, b, mpz_sub);
}

rpn_sub_p()

static void rpn_sub_p ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 282 of file rpn_mpfr.c.

{
    mpfr_t tmp;
 
    mpfr_init(tmp);
    mpfr_set(tmp, b->mf, MPFR_DEFAULT_RND);
    mpfr_div_ui(tmp, tmp, 100, MPFR_DEFAULT_RND);
    mpfr_sub_ui(tmp, tmp, 1, MPFR_DEFAULT_RND);
    mpfr_mul(r->mf, a->mf, tmp, MPFR_DEFAULT_RND);
    mpfr_clear(tmp);
}

rpn_xor_f()

static void rpn_xor_f ( calc_number_t *  r, calc_number_t *  a, calc_number_t *  b  )

static

Definition at line 186 of file rpn_mpfr.c.

{
    rpn_exec_int(r, a, b, mpz_xor);
}

run_operator()

void run_operator	(	calc_node_t *	result,
		calc_node_t *	a,
		calc_node_t *	b,
		unsigned int	operation
	)

Definition at line 310 of file rpn_mpfr.c.

{
    if (calc.base == IDC_RADIO_DEC) {
        if (percent_mode) {
            percent_mode = FALSE;
            operator_list[operation].op_p(&result->number, &a->number, &b->number);
        } else
            operator_list[operation].op_f(&result->number, &a->number, &b->number);
    } else {
        operator_list[operation].op_i(&result->number, &a->number, &b->number);
        /* apply final limiter to result */
        apply_int_mask(&result->number);
    }
}

Referenced by evalStack(), exec_closeparent(), run_mm(), and run_mp().

start_rpn_engine()

void start_rpn_engine

(

void

)

Definition at line 455 of file rpn_mpfr.c.

{
    mpf_set_default_prec(512);
    mpfr_set_default_prec(512);
    stack = NULL;
    mpfr_init(calc.code.mf);
    mpfr_init(calc.prev.mf);
    mpfr_init(calc.memory.number.mf);
    mpfr_init(temp.number.mf);
    rpn_zero(&calc.memory.number);
}

Referenced by _tWinMain().

stop_rpn_engine()

void stop_rpn_engine

(

void

)

Definition at line 467 of file rpn_mpfr.c.

{
    mpfr_clear(calc.code.mf);
    mpfr_clear(calc.prev.mf);
    mpfr_clear(calc.memory.number.mf);
    mpfr_clear(temp.number.mf);
}

Referenced by _tWinMain().

Variable Documentation

operator_list

const calc_operator_t operator_list[]

static

Initial value:

= {
    { 0, NULL,      NULL,      NULL,      }, 
    { 0, NULL,      NULL,      NULL,      }, 
    { 0, NULL,      NULL,      NULL,      }, 
    { 1, rpn_or_f,  rpn_or_f,  NULL,      }, 
    { 2, rpn_xor_f, rpn_xor_f, NULL,      }, 
    { 3, rpn_and_f, rpn_and_f, NULL,      }, 
    { 4, rpn_shl_f, rpn_shl_f, NULL,      }, 
    { 4, rpn_shr_f, rpn_shr_f, NULL,      }, 
    { 5, rpn_add_f, rpn_add_i, rpn_add_p, }, 
    { 5, rpn_sub_f, rpn_sub_i, rpn_sub_p, }, 
    { 6, rpn_mul_f, rpn_mul_i, rpn_mul_p, }, 
    { 6, rpn_div_f, rpn_div_i, rpn_div_p, }, 
    { 6, rpn_mod_i, rpn_mod_i, NULL,      }, 
    { 7, rpn_pow_f, NULL,      NULL,      }, 
    { 7, rpn_sqr_f, NULL,      NULL,      }, 
}

Definition at line 66 of file rpn_mpfr.c.

Referenced by evalStack(), and run_operator().

percent_mode

BOOL percent_mode

static

Definition at line 39 of file rpn_mpfr.c.

Referenced by exec_infix2postfix(), and run_operator().

stack

stack_node_t* stack

static

Definition at line 37 of file rpn_mpfr.c.

Referenced by eval_parent_count(), exec_change_infix(), and push().

temp

calc_node_t temp

static

Definition at line 38 of file rpn_mpfr.c.

Referenced by pop(), start_rpn_engine(), and stop_rpn_engine().