calc.h File Reference

#include <stdarg.h>
#include <windef.h>
#include <winuser.h>
#include <tchar.h>
#include <math.h>
#include <float.h>
#include <malloc.h>
#include <htmlhelp.h>
#include "resource.h"

Include dependency graph for calc.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Classes
union	calc_number_t
struct	calc_node_t
struct	sequence_t
struct	statistic_t
struct	calc_t

Macros
#define	WM_CLOSE_STATS   (WM_APP+1)
#define	WM_HANDLE_CLIPBOARD   (WM_APP+2)
#define	WM_INSERT_STAT   (WM_APP+3)
#define	WM_LOAD_STAT   (WM_APP+4)
#define	WM_START_CONV   (WM_APP+5)
#define	WM_HANDLE_FROM   (WM_APP+6)
#define	WM_HANDLE_TO   (WM_APP+7)
#define	LOCAL_EXP_SIZE   10000L
#define	IDC_STATIC   ((DWORD)-1)
#define	MAX_CALC_SIZE   256
#define	SIZEOF(_ar)   (sizeof(_ar)/sizeof(_ar[1]))
#define	CALC_E   2.7182818284590452354
#define	CALC_PI_2   1.57079632679489661923
#define	CALC_PI   3.14159265358979323846
#define	CALC_3_PI_2   4.71238898038468985769
#define	CALC_2_PI   6.283185307179586476925
#define	MODIFIER_INV   0x01
#define	MODIFIER_HYP   0x02
#define	NO_CHAIN   0x04

Enumerations
enum	{   RPN_OPERATOR_PARENT, RPN_OPERATOR_PERCENT, RPN_OPERATOR_EQUAL, RPN_OPERATOR_OR,   RPN_OPERATOR_XOR, RPN_OPERATOR_AND, RPN_OPERATOR_LSH, RPN_OPERATOR_RSH,   RPN_OPERATOR_ADD, RPN_OPERATOR_SUB, RPN_OPERATOR_MULT, RPN_OPERATOR_DIV,   RPN_OPERATOR_MOD, RPN_OPERATOR_POW, RPN_OPERATOR_SQR, RPN_OPERATOR_NONE }
enum	{ CALC_LAYOUT_SCIENTIFIC =0, CALC_LAYOUT_STANDARD, CALC_LAYOUT_CONVERSION }

Functions
void	run_operator (calc_node_t *result, calc_node_t *a, calc_node_t *b, unsigned int operation)
int	exec_infix2postfix (calc_number_t *, unsigned int)
void	exec_closeparent (calc_number_t *)
int	eval_parent_count (void)
void	flush_postfix (void)
void	exec_change_infix (void)
void	start_rpn_engine (void)
void	stop_rpn_engine (void)
void	apply_int_mask (calc_number_t *a)
__int64	logic_dbl2int (calc_number_t *a)
double	logic_int2dbl (calc_number_t *a)
double	validate_rad2angle (double a)
double	validate_angle2rad (calc_number_t *c)
void	rpn_sin (calc_number_t *c)
void	rpn_cos (calc_number_t *c)
void	rpn_tan (calc_number_t *c)
void	rpn_asin (calc_number_t *c)
void	rpn_acos (calc_number_t *c)
void	rpn_atan (calc_number_t *c)
void	rpn_sinh (calc_number_t *c)
void	rpn_cosh (calc_number_t *c)
void	rpn_tanh (calc_number_t *c)
void	rpn_asinh (calc_number_t *c)
void	rpn_acosh (calc_number_t *c)
void	rpn_atanh (calc_number_t *c)
BOOL	rpn_validate_result (calc_number_t *c)
void	rpn_int (calc_number_t *c)
void	rpn_frac (calc_number_t *c)
void	rpn_reci (calc_number_t *c)
void	rpn_fact (calc_number_t *c)
void	rpn_not (calc_number_t *c)
void	rpn_pi (calc_number_t *c)
void	rpn_2pi (calc_number_t *c)
void	rpn_sign (calc_number_t *c)
void	rpn_exp2 (calc_number_t *c)
void	rpn_exp3 (calc_number_t *c)
void	rpn_sqrt (calc_number_t *c)
void	rpn_cbrt (calc_number_t *c)
void	rpn_exp (calc_number_t *c)
void	rpn_exp10 (calc_number_t *c)
void	rpn_ln (calc_number_t *c)
void	rpn_log (calc_number_t *c)
void	rpn_ave (calc_number_t *c)
void	rpn_sum (calc_number_t *c)
void	rpn_s (calc_number_t *c)
void	rpn_s_m1 (calc_number_t *c)
void	rpn_dms2dec (calc_number_t *c)
void	rpn_dec2dms (calc_number_t *c)
void	rpn_zero (calc_number_t *c)
void	rpn_copy (calc_number_t *dst, calc_number_t *src)
int	rpn_is_zero (calc_number_t *c)
void	rpn_alloc (calc_number_t *c)
void	rpn_free (calc_number_t *c)
void	prepare_rpn_result_2 (calc_number_t *rpn, TCHAR *buffer, int size, int base)
void	convert_text2number_2 (calc_number_t *a)
void	convert_real_integer (unsigned int base)
INT_PTR CALLBACK	AboutDlgProc (HWND hWnd, UINT msg, WPARAM wp, LPARAM lp)
void	ConvExecute (HWND hWnd)
void	ConvAdjust (HWND hWnd, int n_cat)
void	ConvInit (HWND hWnd)

Variables
calc_t	calc

Macro Definition Documentation

CALC_2_PI

#define CALC_2_PI   6.283185307179586476925

Definition at line 163 of file calc.h.

CALC_3_PI_2

#define CALC_3_PI_2   4.71238898038468985769

Definition at line 162 of file calc.h.

CALC_E

#define CALC_E   2.7182818284590452354

Definition at line 158 of file calc.h.

CALC_PI

#define CALC_PI   3.14159265358979323846

Definition at line 161 of file calc.h.

CALC_PI_2

#define CALC_PI_2   1.57079632679489661923

Definition at line 160 of file calc.h.

IDC_STATIC

#define IDC_STATIC   ((DWORD)-1)

Definition at line 41 of file calc.h.

LOCAL_EXP_SIZE

#define LOCAL_EXP_SIZE   10000L

Definition at line 34 of file calc.h.

MAX_CALC_SIZE

#define MAX_CALC_SIZE   256

Definition at line 44 of file calc.h.

MODIFIER_HYP

#define MODIFIER_HYP   0x02

Definition at line 166 of file calc.h.

MODIFIER_INV

#define MODIFIER_INV   0x01

Definition at line 165 of file calc.h.

NO_CHAIN

#define NO_CHAIN   0x04

Definition at line 167 of file calc.h.

SIZEOF

#define SIZEOF

(

_ar

)

(sizeof(_ar)/sizeof(_ar[1]))

Definition at line 48 of file calc.h.

WM_CLOSE_STATS

#define WM_CLOSE_STATS   (WM_APP+1)

Definition at line 16 of file calc.h.

WM_HANDLE_CLIPBOARD

#define WM_HANDLE_CLIPBOARD   (WM_APP+2)

Definition at line 17 of file calc.h.

WM_HANDLE_FROM

#define WM_HANDLE_FROM   (WM_APP+6)

Definition at line 21 of file calc.h.

WM_HANDLE_TO

#define WM_HANDLE_TO   (WM_APP+7)

Definition at line 22 of file calc.h.

WM_INSERT_STAT

#define WM_INSERT_STAT   (WM_APP+3)

Definition at line 18 of file calc.h.

WM_LOAD_STAT

#define WM_LOAD_STAT   (WM_APP+4)

Definition at line 19 of file calc.h.

WM_START_CONV

#define WM_START_CONV   (WM_APP+5)

Definition at line 20 of file calc.h.

Enumeration Type Documentation

anonymous enum

anonymous enum

Enumerator
RPN_OPERATOR_PARENT
RPN_OPERATOR_PERCENT
RPN_OPERATOR_EQUAL
RPN_OPERATOR_OR
RPN_OPERATOR_XOR
RPN_OPERATOR_AND
RPN_OPERATOR_LSH
RPN_OPERATOR_RSH
RPN_OPERATOR_ADD
RPN_OPERATOR_SUB
RPN_OPERATOR_MULT
RPN_OPERATOR_DIV
RPN_OPERATOR_MOD
RPN_OPERATOR_POW
RPN_OPERATOR_SQR
RPN_OPERATOR_NONE

Definition at line 52 of file calc.h.

     {
    RPN_OPERATOR_PARENT,
    RPN_OPERATOR_PERCENT,
    RPN_OPERATOR_EQUAL,

    RPN_OPERATOR_OR,
    RPN_OPERATOR_XOR,
    RPN_OPERATOR_AND,
    RPN_OPERATOR_LSH,
    RPN_OPERATOR_RSH,
    RPN_OPERATOR_ADD,
    RPN_OPERATOR_SUB,
    RPN_OPERATOR_MULT,
    RPN_OPERATOR_DIV,
    RPN_OPERATOR_MOD,
    RPN_OPERATOR_POW,
    RPN_OPERATOR_SQR,

    RPN_OPERATOR_NONE
};

anonymous enum

anonymous enum

Enumerator
CALC_LAYOUT_SCIENTIFIC
CALC_LAYOUT_STANDARD
CALC_LAYOUT_CONVERSION

Definition at line 111 of file calc.h.

     {
    CALC_LAYOUT_SCIENTIFIC=0,
    CALC_LAYOUT_STANDARD,
    CALC_LAYOUT_CONVERSION,
};

Function Documentation

AboutDlgProc()

INT_PTR CALLBACK AboutDlgProc	(	HWND	hWnd,
		UINT	msg,
		WPARAM	wp,
		LPARAM	lp
	)

Definition at line 83 of file sndrec32.cpp.

{
    switch (msg)
    {
        case WM_COMMAND:
            switch (LOWORD(wp))
            {
                case IDOK:
                    EndDialog(hWnd, 0);
                    return TRUE;
            }
            break;
        case WM_CLOSE:
            EndDialog(hWnd, 0);
            return TRUE;
    }
    return FALSE;
}

Referenced by MenuCommand().

apply_int_mask()

void apply_int_mask

(

calc_number_t *

a

)

Definition at line 3 of file fun_mpfr.c.

{
    mpz_t a, mask;

    switch (calc.size) {
    case IDC_RADIO_QWORD:
        mpz_init_set_str(mask, "FFFFFFFFFFFFFFFF", 16);
        break;
    case IDC_RADIO_DWORD:
        mpz_init_set_str(mask, "00000000FFFFFFFF", 16);
        break;
    case IDC_RADIO_WORD:
        mpz_init_set_str(mask, "000000000000FFFF", 16);
        break;
    case IDC_RADIO_BYTE:
        mpz_init_set_str(mask, "00000000000000FF", 16);
        break;
    default:
        mpz_init_set_si(mask, -1);
    }
    mpz_init(a);
    mpfr_get_z(a, r->mf, MPFR_DEFAULT_RND);
    mpz_and(a, a, mask);
    mpfr_set_z(r->mf, a, MPFR_DEFAULT_RND);
    mpz_clear(a);
    mpz_clear(mask);
}

Referenced by convert_real_integer(), DlgMainProc(), run_operator(), and upload_stat_number().

ConvAdjust()

void ConvAdjust	(	HWND	hWnd,
		int	n_cat
	)

Definition at line 586 of file convert.c.

{
    TCHAR         txt[128];
    TCHAR         txt_cat[128];
    HWND          hFromWnd = GetDlgItem(hWnd, IDC_COMBO_FROM);
    HWND          hToWnd   = GetDlgItem(hWnd, IDC_COMBO_TO);
    const conv_t *item;
    unsigned int  n;

    SendDlgItemMessage(hWnd, IDC_COMBO_CATEGORY, CB_GETLBTEXT, n_cat, (LPARAM)txt_cat);
    for (n=0; n<SIZEOF(conv_table); n++) {
        item = conv_table[n].items;
        LoadString(calc.hInstance, conv_table[n].category, txt, SIZEOF(txt));
        if (!_tcscmp(txt_cat, txt))
            break;
    }

    SendMessage(hFromWnd, CB_RESETCONTENT, 0, 0);
    SendMessage(hToWnd,   CB_RESETCONTENT, 0, 0);
    while (item->unit) {
        LoadString(calc.hInstance, item->unit, txt, SIZEOF(txt));
        SendMessage(hFromWnd, CB_ADDSTRING, 0, (LPARAM)txt);
        SendMessage(hToWnd,   CB_ADDSTRING, 0, (LPARAM)txt);
        item++;
    }
    SendMessage(hFromWnd, CB_SETCURSEL, 0, 0);
    SendMessage(hToWnd,   CB_SETCURSEL, 0, 0);
}

Referenced by ConvInit(), and DlgMainProc().

convert_real_integer()

void convert_real_integer

(

unsigned int

base

)

Definition at line 92 of file utl.c.

{
    switch (base) {
    case IDC_RADIO_DEC:
        calc.code.f = (double)calc.code.i;
        break;
    case IDC_RADIO_OCT:
    case IDC_RADIO_BIN:
    case IDC_RADIO_HEX:
        if (calc.base == IDC_RADIO_DEC) {
            calc.code.i = (__int64)calc.code.f;
            apply_int_mask(&calc.code);
        }
        break;
    }
}

Referenced by update_radio().

convert_text2number_2()

void convert_text2number_2

(

calc_number_t *

a

)

Definition at line 66 of file utl.c.

{
    TCHAR *ptr;

    switch (calc.base) {
    case IDC_RADIO_HEX:
        _stscanf(calc.buffer, TEXT("%I64X"), &(a->i));
        break;
    case IDC_RADIO_DEC:
        _stscanf(calc.buffer, TEXT("%lf"), &(a->f));
        break;
    case IDC_RADIO_OCT:
        _stscanf(calc.buffer, TEXT("%I64o"), &(a->i));
        break;
    case IDC_RADIO_BIN:
        ptr = calc.buffer;
        a->i = 0;
        while (*ptr != TEXT('\0')) {
            a->i <<= 1;
            if (*ptr++ == TEXT('1'))
                a->i |= 1;
        }
        break;
    }
}

Referenced by convert_text2number().

ConvExecute()

void ConvExecute

(

HWND

hWnd

)

Definition at line 533 of file convert.c.

{
    DWORD         c_cat = (DWORD)SendDlgItemMessage(hWnd, IDC_COMBO_CATEGORY, CB_GETCURSEL, 0, 0);
    const conv_t *items = NULL;
    DWORD         from  = SendDlgItemMessage(hWnd, IDC_COMBO_FROM, CB_GETCURSEL, 0, 0);
    DWORD         to    = SendDlgItemMessage(hWnd, IDC_COMBO_TO,   CB_GETCURSEL, 0, 0);
    TCHAR         txt_cb[128];
    TCHAR         txt[128];
    const conv_t *item;

    /* do nothing if the indexes point to the same unit */
    if (from == to)
        return;

    /* Search correct category, since it can be sorted too */
    SendDlgItemMessage(hWnd, IDC_COMBO_CATEGORY, CB_GETLBTEXT, c_cat, (LPARAM)txt_cb);
    for (c_cat=0; c_cat < SIZEOF(conv_table); c_cat++) {
        LoadString(calc.hInstance, conv_table[c_cat].category, txt, SIZEOF(txt));
        if (!_tcscmp(txt_cb, txt)) {
            items = conv_table[c_cat].items;
            break;
        }
    }

    /* The units can be sorted, so I must search the exact match */
    item = items;
    SendDlgItemMessage(hWnd, IDC_COMBO_FROM, CB_GETLBTEXT, from, (LPARAM)txt_cb);
    while (item->unit) {
        LoadString(calc.hInstance, item->unit, txt, SIZEOF(txt));
        if (!_tcscmp(txt_cb, txt)) {
            from = item-items;
            break;
        }
        item++;
    }
    SendDlgItemMessage(hWnd, IDC_COMBO_TO, CB_GETLBTEXT, to, (LPARAM)txt_cb);
    item = items;
    while (item->unit) {
        LoadString(calc.hInstance, item->unit, txt, SIZEOF(txt));
        if (!_tcscmp(txt_cb, txt)) {
            to = item-items;
            break;
        }
        item++;
    }

    calc.Convert[0].data = (char *)items[from].formula_from;
    calc.Convert[1].data = (char *)items[to].formula_to;
    calc.Convert[0].wm_msg = WM_HANDLE_FROM;
    calc.Convert[1].wm_msg = WM_HANDLE_TO;
    PostMessage(hWnd, WM_START_CONV, 0, MAKELPARAM(0, WM_HANDLE_FROM));
}

Referenced by DlgMainProc().

ConvInit()

void ConvInit

(

HWND

hWnd

)

Definition at line 615 of file convert.c.

{
    HWND         hCatWnd = GetDlgItem(hWnd, IDC_COMBO_CATEGORY);
    TCHAR        txt[128];
    unsigned int n;

    /* Fill category combo */
    for (n=0; n<SIZEOF(conv_table); n++) {
        LoadString(calc.hInstance, conv_table[n].category, txt, SIZEOF(txt));
        SendMessage(hCatWnd, CB_ADDSTRING, 0, (LPARAM)txt);
    }
    SendMessage(hCatWnd, CB_SETCURSEL, 0, 0);
    ConvAdjust(hWnd, 0);
}

Referenced by DlgMainProc().

eval_parent_count()

int eval_parent_count

(

void

)

Definition at line 432 of file rpn.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().

exec_change_infix()

void exec_change_infix

(

void

)

Definition at line 397 of file rpn.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 *

)

Definition at line 411 of file rpn.c.

{
    stack_node_t *op, ip;

    ip.node.number = *number;
    ip.node.base = calc.base;
    while (!is_stack_empty()) {
        op = pop();

        if (op->node.operation == RPN_OPERATOR_PARENT)
            break;

        run_operator(&ip.node, &op->node, &ip.node, op->node.operation);
        if (calc.is_nan) {
            flush_postfix();
            return;
        }
    }
    *number = ip.node.number;
}

Referenced by run_rpar().

exec_infix2postfix()

int exec_infix2postfix	(	calc_number_t *	,
		unsigned int
	)

Definition at line 365 of file rpn.c.

{
    stack_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;

    tmp.node.number = *number;
    tmp.node.base = calc.base;
    tmp.node.operation = func;
    tmp.next = NULL;

    push(&tmp);

    if (func == RPN_OPERATOR_NONE)
        return 0;

    if (func != RPN_OPERATOR_PARENT) {
        calc.last_operator = func;
        evalStack(number);
    }
    return 1;
}

Referenced by DlgMainProc(), run_lpar(), run_pow(), and run_sqr().

flush_postfix()

void flush_postfix

(

void

)

Definition at line 445 of file rpn.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().

logic_dbl2int()

__int64 logic_dbl2int

(

calc_number_t *

a

)

Definition at line 240 of file function.c.

{
    double   int_part;
    int      width;

    modf(a->f, &int_part);
    width = (int_part==0) ? 1 : (int)log10(fabs(int_part))+1;
    if (width > 63) {
        calc.is_nan = TRUE;
        return 0;
    }
    return (__int64)int_part;
}

Referenced by rpn_and_f(), rpn_not(), rpn_or_f(), rpn_xor_f(), and run_operator().

logic_int2dbl()

double logic_int2dbl

(

calc_number_t *

a

)

Definition at line 253 of file function.c.

{
    return (double)a->i;
}

Referenced by run_operator().

prepare_rpn_result_2()

void prepare_rpn_result_2	(	calc_number_t *	rpn,
		TCHAR *	buffer,
		int	size,
		int	base
	)

Definition at line 3 of file utl.c.

{
    calc_number_t tmp;
    int    width;

    switch (base) {
    case IDC_RADIO_HEX:
        _stprintf(buffer, TEXT("%I64X"), rpn->i);
        break;
    case IDC_RADIO_DEC:
/*
 * Modified from 17 to 16 for fixing this bug:
 * 14+14+6.3+6.3= 40.5999999 instead of 40.6
 * So, it's probably better to leave the least
 * significant digit out of the display.
 */
#define MAX_LD_WIDTH    16
        /* calculate the width of integer number */
        width = (rpn->f==0) ? 1 : (int)log10(fabs(rpn->f))+1;
        if ((calc.sci_out != FALSE) || (width > MAX_LD_WIDTH) || (width < -MAX_LD_WIDTH))
            _stprintf(buffer, TEXT("%#e"), rpn->f);
        else {
            TCHAR *ptr, *dst;

            ptr = buffer + _stprintf(buffer, TEXT("%#*.*f"), width, ((MAX_LD_WIDTH-width-1)>=0) ? MAX_LD_WIDTH-width-1 : 0, rpn->f);
            /* format string ensures there is a '.': */
            dst = _tcschr(buffer, TEXT('.'));
            while (--ptr > dst)
                if (*ptr != TEXT('0'))
                    break;

            /* put the string terminator for removing the final '0' (if any) */
            ptr[1] = TEXT('\0');
            /* check if the number finishes with '.' */
            if (ptr == dst)
                /* remove the dot (it will be re-added later) */
                ptr[0] = TEXT('\0');
        }
#undef MAX_LD_WIDTH
        break;
    case IDC_RADIO_OCT:
        _stprintf(buffer, TEXT("%I64o"), rpn->i);
        break;
    case IDC_RADIO_BIN:
        if (rpn->i == 0) {
            buffer[0] = TEXT('0');
            buffer[1] = TEXT('\0');
            break;
        }
        tmp = *rpn;
        buffer[0] = TEXT('\0');
        while (tmp.u) {
            memmove(buffer+1, buffer, (size-1)*sizeof(TCHAR));
            if (tmp.u & 1)
                calc.buffer[0] = TEXT('1');
            else
                calc.buffer[0] = TEXT('0');
            tmp.u >>= 1;
        }
        break;
    }
}

Referenced by prepare_rpn_result().

rpn_2pi()

void rpn_2pi

(

calc_number_t *

c

)

Definition at line 274 of file fun_mpfr.c.

{
    mpfr_const_pi(c->mf, MPFR_DEFAULT_RND);
    mpfr_mul_ui(c->mf, c->mf, 2, MPFR_DEFAULT_RND);
}

rpn_acos()

void rpn_acos

(

calc_number_t *

c

)

Definition at line 181 of file fun_mpfr.c.

{
    mpfr_acos(c->mf, c->mf, MPFR_DEFAULT_RND);
    validate_rad2angle(c);
}

rpn_acosh()

void rpn_acosh

(

calc_number_t *

c

)

Definition at line 213 of file fun_mpfr.c.

{
    mpfr_acosh(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_alloc()

void rpn_alloc

(

calc_number_t *

c

)

Definition at line 482 of file fun_mpfr.c.

{
    mpfr_init(c->mf);
}

Referenced by exec_closeparent(), and run_dat_sta().

rpn_asin()

void rpn_asin

(

calc_number_t *

c

)

Definition at line 176 of file fun_mpfr.c.

{
    mpfr_asin(c->mf, c->mf, MPFR_DEFAULT_RND);
    validate_rad2angle(c);
}

rpn_asinh()

void rpn_asinh

(

calc_number_t *

c

)

Definition at line 208 of file fun_mpfr.c.

{
    mpfr_asinh(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_atan()

void rpn_atan

(

calc_number_t *

c

)

Definition at line 186 of file fun_mpfr.c.

{
    mpfr_atan(c->mf, c->mf, MPFR_DEFAULT_RND);
    validate_rad2angle(c);
}

rpn_atanh()

void rpn_atanh

(

calc_number_t *

c

)

Definition at line 218 of file fun_mpfr.c.

{
    mpfr_atanh(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_ave()

void rpn_ave

(

calc_number_t *

c

)

Definition at line 344 of file fun_mpfr.c.

{
    int     n;

    stat_sum(c->mf);
    n = SendDlgItemMessage(calc.hStatWnd, IDC_LIST_STAT, LB_GETCOUNT, 0, 0);

    if (n)
        mpfr_div_ui(c->mf, c->mf, n, MPFR_DEFAULT_RND);

    if (calc.base != IDC_RADIO_DEC)
        mpfr_trunc(c->mf, c->mf);
}

rpn_cbrt()

void rpn_cbrt

(

calc_number_t *

c

)

Definition at line 303 of file fun_mpfr.c.

{
    mpfr_cbrt(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_copy()

void rpn_copy	(	calc_number_t *	dst,
		calc_number_t *	src
	)

Definition at line 472 of file fun_mpfr.c.

{
    mpfr_set(dst->mf, src->mf, MPFR_DEFAULT_RND);
}

Referenced by convert_text2number(), DlgMainProc(), evalStack(), exec_closeparent(), exec_infix2postfix(), run_dat_sta(), run_ms(), and run_mw().

rpn_cos()

void rpn_cos

(

calc_number_t *

c

)

Definition at line 130 of file fun_mpfr.c.

{
    mpfr_t mp_pi, mp_pi_2, mp_3_pi_2, mp_2_pi;

    validate_angle2rad(c);
    build_rad_const(&mp_pi, &mp_pi_2, &mp_3_pi_2, &mp_2_pi);

    if (!mpfr_cmp(c->mf, mp_pi_2) || !mpfr_cmp(c->mf, mp_3_pi_2))
        rpn_zero(c);
    else
    if (!mpfr_cmp(c->mf, mp_pi))
        mpfr_set_si(c->mf, -1, MPFR_DEFAULT_RND);
    else
    if (!mpfr_cmp(c->mf, mp_2_pi))
        mpfr_set_si(c->mf, 1, MPFR_DEFAULT_RND);
    else {
        mpfr_cos(c->mf, c->mf, MPFR_DEFAULT_RND);
        if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
    }
    mpfr_clear(mp_pi);
    mpfr_clear(mp_pi_2);
    mpfr_clear(mp_3_pi_2);
    mpfr_clear(mp_2_pi);
}

rpn_cosh()

void rpn_cosh

(

calc_number_t *

c

)

Definition at line 197 of file fun_mpfr.c.

{
    mpfr_cosh(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_dec2dms()

void rpn_dec2dms

(

calc_number_t *

c

)

Definition at line 440 of file fun_mpfr.c.

{
    mpfr_t d, m, s;

    mpfr_init(d);
    mpfr_init(m);
    mpfr_init(s);

    mpfr_trunc(d, c->mf);
    mpfr_frac(m, c->mf, MPFR_DEFAULT_RND);
    mpfr_mul_ui(m, m, 60, MPFR_DEFAULT_RND);

    mpfr_frac(s, m, MPFR_DEFAULT_RND);
    mpfr_trunc(m, m);
    mpfr_mul_ui(s, s, 60, MPFR_DEFAULT_RND);
    mpfr_ceil(s, s);

    mpfr_div_ui(m, m, 100, MPFR_DEFAULT_RND);
    mpfr_div_ui(s, s, 10000, MPFR_DEFAULT_RND);
    mpfr_add(c->mf, d, m, MPFR_DEFAULT_RND);
    mpfr_add(c->mf, c->mf, s, MPFR_DEFAULT_RND);

    mpfr_clear(d);
    mpfr_clear(m);
    mpfr_clear(s);
}

rpn_dms2dec()

void rpn_dms2dec

(

calc_number_t *

c

)

Definition at line 413 of file fun_mpfr.c.

{
    mpfr_t d, m, s;

    mpfr_init(d);
    mpfr_init(m);
    mpfr_init(s);

    mpfr_trunc(d, c->mf);
    mpfr_frac(m, c->mf, MPFR_DEFAULT_RND);
    mpfr_mul_ui(m, m, 100, MPFR_DEFAULT_RND);

    mpfr_frac(s, m, MPFR_DEFAULT_RND);
    mpfr_trunc(m, m);
    mpfr_mul_ui(s, s, 100, MPFR_DEFAULT_RND);
    mpfr_ceil(s, s);

    mpfr_div_ui(m, m, 60, MPFR_DEFAULT_RND);
    mpfr_div_ui(s, s, 3600, MPFR_DEFAULT_RND);
    mpfr_add(c->mf, d, m, MPFR_DEFAULT_RND);
    mpfr_add(c->mf, c->mf, s, MPFR_DEFAULT_RND);

    mpfr_clear(d);
    mpfr_clear(m);
    mpfr_clear(s);
}

rpn_exp()

void rpn_exp

(

calc_number_t *

c

)

Definition at line 309 of file fun_mpfr.c.

{
    mpfr_exp(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_exp10()

void rpn_exp10

(

calc_number_t *

c

)

Definition at line 315 of file fun_mpfr.c.

{
    mpfr_exp10(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_exp2()

void rpn_exp2

(

calc_number_t *

c

)

Definition at line 285 of file fun_mpfr.c.

{
    mpfr_sqr(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_exp3()

void rpn_exp3

(

calc_number_t *

c

)

Definition at line 291 of file fun_mpfr.c.

{
    mpfr_pow_ui(c->mf, c->mf, 3, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_fact()

void rpn_fact

(

calc_number_t *

c

)

Definition at line 242 of file fun_mpfr.c.

{
    if (mpfr_sgn(c->mf) < 0) {
        calc.is_nan = TRUE;
        return;
    }

    mpfr_trunc(c->mf, c->mf);
    if (mpfr_fits_ulong_p(c->mf, MPFR_DEFAULT_RND) == 0)
        calc.is_nan = TRUE;
    else {
        mpfr_fac_ui(c->mf, mpfr_get_ui(c->mf, MPFR_DEFAULT_RND), MPFR_DEFAULT_RND);
        if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
    }
}

rpn_frac()

void rpn_frac

(

calc_number_t *

c

)

Definition at line 229 of file fun_mpfr.c.

{
    mpfr_frac(c->mf, c->mf, MPFR_DEFAULT_RND);
}

rpn_free()

void rpn_free

(

calc_number_t *

c

)

Definition at line 487 of file fun_mpfr.c.

{
    mpfr_clear(c->mf);
}

Referenced by clean_stat_list(), delete_stat_item(), and exec_closeparent().

rpn_int()

void rpn_int

(

calc_number_t *

c

)

Definition at line 224 of file fun_mpfr.c.

{
    mpfr_trunc(c->mf, c->mf);
}

Referenced by rpn_fact().

rpn_is_zero()

int rpn_is_zero

(

calc_number_t *

c

)

Definition at line 477 of file fun_mpfr.c.

{
    return (mpfr_sgn(c->mf) == 0);
}

Referenced by prepare_rpn_result_2(), rpn_sin(), run_ms(), and run_mw().

rpn_ln()

void rpn_ln

(

calc_number_t *

c

)

Definition at line 321 of file fun_mpfr.c.

{
    mpfr_log(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_log()

void rpn_log

(

calc_number_t *

c

)

Definition at line 327 of file fun_mpfr.c.

{
    mpfr_log10(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_not()

void rpn_not

(

calc_number_t *

c

)

Definition at line 258 of file fun_mpfr.c.

{
    mpz_t a;

    mpz_init(a);
    mpfr_get_z(a, c->mf, MPFR_DEFAULT_RND);
    mpz_com(a, a);
    mpfr_set_z(c->mf, a, MPFR_DEFAULT_RND);
    mpz_clear(a);
}

rpn_pi()

void rpn_pi

(

calc_number_t *

c

)

Definition at line 269 of file fun_mpfr.c.

{
    mpfr_const_pi(c->mf, MPFR_DEFAULT_RND);
}

rpn_reci()

void rpn_reci

(

calc_number_t *

c

)

Definition at line 234 of file fun_mpfr.c.

{
    if (mpfr_sgn(c->mf) == 0)
        calc.is_nan = TRUE;
    else
        mpfr_ui_div(c->mf, 1, c->mf, MPFR_DEFAULT_RND);
}

rpn_s()

void rpn_s

(

calc_number_t *

c

)

Definition at line 403 of file fun_mpfr.c.

{
    rpn_s_ex(c, 0);
}

rpn_s_m1()

void rpn_s_m1

(

calc_number_t *

c

)

Definition at line 408 of file fun_mpfr.c.

{
    rpn_s_ex(c, 1);
}

rpn_sign()

void rpn_sign

(

calc_number_t *

c

)

Definition at line 280 of file fun_mpfr.c.

{
    mpfr_mul_si(c->mf, c->mf, -1, MPFR_DEFAULT_RND);
}

Referenced by DlgMainProc().

rpn_sin()

void rpn_sin

(

calc_number_t *

c

)

Definition at line 106 of file fun_mpfr.c.

{
    mpfr_t mp_pi, mp_pi_2, mp_3_pi_2, mp_2_pi;

    validate_angle2rad(c);
    build_rad_const(&mp_pi, &mp_pi_2, &mp_3_pi_2, &mp_2_pi);

    if (rpn_is_zero(c) || !mpfr_cmp(c->mf, mp_pi) || !mpfr_cmp(c->mf, mp_2_pi))
        rpn_zero(c);
    else
    if (!mpfr_cmp(c->mf, mp_3_pi_2))
        mpfr_set_si(c->mf, -1, MPFR_DEFAULT_RND);
    else
    if (!mpfr_cmp(c->mf, mp_pi_2))
        mpfr_set_si(c->mf, 1, MPFR_DEFAULT_RND);
    else {
        mpfr_sin(c->mf, c->mf, MPFR_DEFAULT_RND);
        if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
    }
    mpfr_clear(mp_pi);
    mpfr_clear(mp_pi_2);
    mpfr_clear(mp_3_pi_2);
    mpfr_clear(mp_2_pi);
}

rpn_sinh()

void rpn_sinh

(

calc_number_t *

c

)

Definition at line 192 of file fun_mpfr.c.

{
    mpfr_sinh(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_sqrt()

void rpn_sqrt

(

calc_number_t *

c

)

Definition at line 297 of file fun_mpfr.c.

{
    mpfr_sqrt(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_sum()

void rpn_sum

(

calc_number_t *

c

)

Definition at line 358 of file fun_mpfr.c.

{
    stat_sum(c->mf);

    if (calc.base != IDC_RADIO_DEC)
        mpfr_trunc(c->mf, c->mf);
}

rpn_tan()

void rpn_tan

(

calc_number_t *

c

)

Definition at line 154 of file fun_mpfr.c.

{
    mpfr_t mp_pi, mp_pi_2, mp_3_pi_2, mp_2_pi;

    validate_angle2rad(c);
    build_rad_const(&mp_pi, &mp_pi_2, &mp_3_pi_2, &mp_2_pi);

    if (!mpfr_cmp(c->mf, mp_pi_2) || !mpfr_cmp(c->mf, mp_3_pi_2))
        calc.is_nan = TRUE;
    else
    if (!mpfr_cmp(c->mf, mp_pi) || !mpfr_cmp(c->mf, mp_2_pi))
        rpn_zero(c);
    else {
        mpfr_tan(c->mf, c->mf, MPFR_DEFAULT_RND);
        if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
    }
    mpfr_clear(mp_pi);
    mpfr_clear(mp_pi_2);
    mpfr_clear(mp_3_pi_2);
    mpfr_clear(mp_2_pi);
}

rpn_tanh()

void rpn_tanh

(

calc_number_t *

c

)

Definition at line 202 of file fun_mpfr.c.

{
    mpfr_tanh(c->mf, c->mf, MPFR_DEFAULT_RND);
    if (!mpfr_number_p(c->mf)) calc.is_nan = TRUE;
}

rpn_validate_result()

BOOL rpn_validate_result

(

calc_number_t *

c

)

rpn_zero()

void rpn_zero

(

calc_number_t *

c

)

Definition at line 467 of file fun_mpfr.c.

{
    mpfr_set_ui(c->mf, 0, MPFR_DEFAULT_RND);
}

Referenced by convert_text2number(), DlgMainProc(), prepare_rpn_result(), rpn_cos(), rpn_sin(), rpn_tan(), run_canc(), and start_rpn_engine().

run_operator()

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

Definition at line 288 of file rpn.c.

{
    calc_number_t da, db, dc;
    DWORD         base = calc.base;

    da = a->number;
    db = b->number;
    if (a->base == IDC_RADIO_DEC && b->base != IDC_RADIO_DEC) {
        db.f = logic_int2dbl(&b->number);
        base = IDC_RADIO_DEC;
    } else
    if (a->base != IDC_RADIO_DEC && b->base == IDC_RADIO_DEC) {
        da.f = logic_int2dbl(&a->number);
        base = IDC_RADIO_DEC;
    }

    if (base == IDC_RADIO_DEC) {
        if (percent_mode) {
            percent_mode = FALSE;
            operator_list[operation].op_p(&dc, &da, &db);
        } else
            operator_list[operation].op_f(&dc, &da, &db);
        if (_finite(dc.f) == 0)
            calc.is_nan = TRUE;
    } else {
        operator_list[operation].op_i(&dc, &da, &db);
        /* apply final limiter to result */
        apply_int_mask(&dc);
    }

    if (a->base == IDC_RADIO_DEC && b->base != IDC_RADIO_DEC) {
        result->number.i = logic_dbl2int(&dc);
        apply_int_mask(&result->number);
    } else
    if (a->base != IDC_RADIO_DEC && b->base == IDC_RADIO_DEC)
        result->number.f = dc.f;
    else
        result->number = dc;
}

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

start_rpn_engine()

void start_rpn_engine

(

void

)

Definition at line 454 of file rpn.c.

{
    stack = NULL;
}

Referenced by _tWinMain().

stop_rpn_engine()

void stop_rpn_engine

(

void

)

Definition at line 459 of file rpn.c.

{
}

Referenced by _tWinMain().

validate_angle2rad()

double validate_angle2rad

(

calc_number_t *

c

)

Definition at line 58 of file fun_mpfr.c.

{
    mpfr_t mult, divs;

    if (!mpfr_number_p(r->mf)) {
        calc.is_nan = TRUE;
        return;
    }
    mpfr_init(mult);
    mpfr_init(divs);
    switch (calc.degr) {
    case IDC_RADIO_DEG:
        mpfr_const_pi(mult, MPFR_DEFAULT_RND);
        mpfr_set_ui(divs, 180, MPFR_DEFAULT_RND);
        break;
    case IDC_RADIO_RAD:
        mpfr_set_ui(mult, 1, MPFR_DEFAULT_RND);
        mpfr_set_ui(divs, 1, MPFR_DEFAULT_RND);
        break;
    case IDC_RADIO_GRAD:
        mpfr_const_pi(mult, MPFR_DEFAULT_RND);
        mpfr_set_ui(divs, 200, MPFR_DEFAULT_RND);
        break;
    }
    mpfr_mul(r->mf, r->mf, mult, MPFR_DEFAULT_RND);
    mpfr_div(r->mf, r->mf, divs, MPFR_DEFAULT_RND);

    mpfr_clear(mult);
    mpfr_clear(divs);
}

Referenced by rpn_cos(), rpn_sin(), and rpn_tan().

validate_rad2angle()

double validate_rad2angle

(

double

a

)

Definition at line 50 of file function.c.

{
    switch (calc.degr) {
    case IDC_RADIO_DEG:
        a = a * (180.0/CALC_PI);
        break;
    case IDC_RADIO_RAD:
        break;
    case IDC_RADIO_GRAD:
        a = a * (200.0/CALC_PI);
        break;
    }
    return a;
}

Referenced by rpn_acos(), rpn_asin(), and rpn_atan().

Variable Documentation

calc

calc_t calc

Definition at line 226 of file winmain.c.

Referenced by _tWinMain(), apply_int_mask(), build_operand(), check_csum(), clean_stat_list(), ConvAdjust(), convert_real_integer(), convert_text2number(), convert_text2number_2(), ConvExecute(), ConvInit(), delete_stat_item(), display_rpn_result(), DlgMainProc(), DlgStatProc(), enable_allowed_controls(), evalStack(), exec_closeparent(), exec_infix2postfix(), flush_postfix(), handle_context_menu(), handle_copy_command(), handle_sequence_input(), load_config(), logic_dbl2int(), post_key_press(), prepare_rpn_result(), prepare_rpn_result_2(), process_vk_key(), ReadConversion(), rpn_acos(), rpn_acosh(), rpn_asin(), rpn_asinh(), rpn_atan(), rpn_atanh(), rpn_ave(), rpn_cbrt(), rpn_cos(), rpn_cosh(), rpn_div_f(), rpn_div_i(), rpn_div_p(), rpn_exp(), rpn_exp10(), rpn_exp2(), rpn_exp3(), rpn_fact(), rpn_frac(), rpn_int(), rpn_ln(), rpn_log(), rpn_mod_f(), rpn_mod_i(), rpn_not(), rpn_pow_f(), rpn_reci(), rpn_s_ex(), rpn_shl_f(), rpn_shr_f(), rpn_sign(), rpn_sin(), rpn_sinh(), rpn_sqr_f(), rpn_sqrt(), rpn_sum(), rpn_tan(), rpn_tanh(), run_canc(), run_dat_sta(), run_fe(), run_mm(), run_mp(), run_ms(), run_mw(), run_operator(), save_config(), start_rpn_engine(), stat_sum(), stop_rpn_engine(), SubclassButtonProc(), update_lcd_display(), update_memory_flag(), update_menu(), update_radio(), upload_stat_number(), validate_angle2rad(), and validate_rad2angle().