calc.h File Reference

#include <windows.h>
#include <tchar.h>
#include <commctrl.h>
#include <shellapi.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#include <float.h>
#include <malloc.h>
#include <htmlhelp.h>
#include <limits.h>
#include "resource.h"
#include <tmschema.h>
#include <uxtheme.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	WIN32_LEAN_AND_MEAN
#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	CALC_VERSION   _T("1.12")
#define	MAX_CALC_SIZE   256
#define	calc_HtmlHelp   calc_HtmlHelpA
#define	SIZEOF(_ar)   (sizeof(_ar)/sizeof(_ar[1]))
#define	CALC_E   2.718281828459045235360
#define	CALC_PI_2   1.570796326794896619231
#define	CALC_PI   3.141592653589793238462
#define	CALC_3_PI_2   4.712388980384689857694
#define	CALC_2_PI   6.283185307179586476925
#define	MODIFIER_INV   0x01
#define	MODIFIER_HYP   0x02
#define	NO_CHAIN   0x04

Typedefs
typedef HWND(WINAPI *	type_HtmlHelpA) (HWND, LPCSTR, UINT, DWORD)
typedef HWND(WINAPI *	type_HtmlHelpW) (HWND, LPCWSTR, UINT, DWORD)
typedef HTHEME(WINAPI *	type_OpenThemeData) (HWND, const WCHAR *)
typedef HRESULT(WINAPI *	type_CloseThemeData) (HTHEME)
typedef HRESULT(WINAPI *	type_DrawThemeBackground) (HTHEME, HDC, int, int, const RECT *, const RECT *)
typedef BOOL(WINAPI *	type_IsAppThemed) (void)
typedef BOOL(WINAPI *	type_IsThemeActive) (void)
typedef BOOL(WINAPI *	type_IsThemeBackgroundPartiallyTransparent) (HTHEME, int, int)
typedef HRESULT(WINAPI *	type_DrawThemeParentBackground) (HWND, HDC, RECT *)

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	HtmlHelp_Start (HINSTANCE hInstance)
void	HtmlHelp_Stop (void)
void	Theme_Start (HINSTANCE hInstance)
void	Theme_Stop (void)
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)
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_ave2 (calc_number_t *c)
void	rpn_sum (calc_number_t *c)
void	rpn_sum2 (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
type_HtmlHelpA	calc_HtmlHelpA
type_HtmlHelpW	calc_HtmlHelpW
type_OpenThemeData	calc_OpenThemeData
type_CloseThemeData	calc_CloseThemeData
type_DrawThemeBackground	calc_DrawThemeBackground
type_IsAppThemed	calc_IsAppThemed
type_IsThemeActive	calc_IsThemeActive
type_IsThemeBackgroundPartiallyTransparent	calc_IsThemeBackgroundPartiallyTransparent
type_DrawThemeParentBackground	calc_DrawThemeParentBackground
calc_t	calc

Macro Definition Documentation

CALC_2_PI

#define CALC_2_PI   6.283185307179586476925

Definition at line 214 of file calc.h.

CALC_3_PI_2

#define CALC_3_PI_2   4.712388980384689857694

Definition at line 213 of file calc.h.

CALC_E

#define CALC_E   2.718281828459045235360

Definition at line 210 of file calc.h.

calc_HtmlHelp

#define calc_HtmlHelp   calc_HtmlHelpA

Definition at line 59 of file calc.h.

CALC_PI

#define CALC_PI   3.141592653589793238462

Definition at line 212 of file calc.h.

CALC_PI_2

#define CALC_PI_2   1.570796326794896619231

Definition at line 211 of file calc.h.

CALC_VERSION

#define CALC_VERSION   _T("1.12")

Definition at line 47 of file calc.h.

LOCAL_EXP_SIZE

#define LOCAL_EXP_SIZE   10000L

Definition at line 43 of file calc.h.

MAX_CALC_SIZE

#define MAX_CALC_SIZE   256

Definition at line 49 of file calc.h.

MODIFIER_HYP

#define MODIFIER_HYP   0x02

Definition at line 217 of file calc.h.

MODIFIER_INV

#define MODIFIER_INV   0x01

Definition at line 216 of file calc.h.

NO_CHAIN

#define NO_CHAIN   0x04

Definition at line 218 of file calc.h.

SIZEOF

#define SIZEOF

(

_ar

)

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

Definition at line 97 of file calc.h.

WIN32_LEAN_AND_MEAN

#define WIN32_LEAN_AND_MEAN

Definition at line 4 of file calc.h.

WM_CLOSE_STATS

#define WM_CLOSE_STATS   (WM_APP+1)

Definition at line 24 of file calc.h.

WM_HANDLE_CLIPBOARD

#define WM_HANDLE_CLIPBOARD   (WM_APP+2)

Definition at line 25 of file calc.h.

WM_HANDLE_FROM

#define WM_HANDLE_FROM   (WM_APP+6)

Definition at line 29 of file calc.h.

WM_HANDLE_TO

#define WM_HANDLE_TO   (WM_APP+7)

Definition at line 30 of file calc.h.

WM_INSERT_STAT

#define WM_INSERT_STAT   (WM_APP+3)

Definition at line 26 of file calc.h.

WM_LOAD_STAT

#define WM_LOAD_STAT   (WM_APP+4)

Definition at line 27 of file calc.h.

WM_START_CONV

#define WM_START_CONV   (WM_APP+5)

Definition at line 28 of file calc.h.

Typedef Documentation

type_CloseThemeData

typedef HRESULT(WINAPI* type_CloseThemeData) (HTHEME)

Definition at line 80 of file calc.h.

type_DrawThemeBackground

typedef HRESULT(WINAPI* type_DrawThemeBackground) (HTHEME, HDC, int, int, const RECT *, const RECT *)

Definition at line 81 of file calc.h.

type_DrawThemeParentBackground

typedef HRESULT(WINAPI* type_DrawThemeParentBackground) (HWND, HDC, RECT *)

Definition at line 85 of file calc.h.

type_HtmlHelpA

typedef HWND(WINAPI* type_HtmlHelpA) (HWND, LPCSTR, UINT, DWORD)

Definition at line 52 of file calc.h.

type_HtmlHelpW

typedef HWND(WINAPI* type_HtmlHelpW) (HWND, LPCWSTR, UINT, DWORD)

Definition at line 53 of file calc.h.

type_IsAppThemed

typedef BOOL(WINAPI* type_IsAppThemed) (void)

Definition at line 82 of file calc.h.

type_IsThemeActive

typedef BOOL(WINAPI* type_IsThemeActive) (void)

Definition at line 83 of file calc.h.

type_IsThemeBackgroundPartiallyTransparent

typedef BOOL(WINAPI* type_IsThemeBackgroundPartiallyTransparent) (HTHEME, int, int)

Definition at line 84 of file calc.h.

type_OpenThemeData

typedef HTHEME(WINAPI* type_OpenThemeData) (HWND, const WCHAR *)

Definition at line 79 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 101 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 160 of file calc.h.

     {
    CALC_LAYOUT_SCIENTIFIC=0,
    CALC_LAYOUT_STANDARD,
    CALC_LAYOUT_CONVERSION,
};

Function Documentation

AboutDlgProc()

INT_PTR CALLBACK AboutDlgProc	(	HWND	hDlg,
		UINT	Msg,
		WPARAM	wParam,
		LPARAM	lParam
	)

@AboutDlgProc

"About" dialog procedure.

Parameters

hDlg	The handle object of the dialog.
Msg	Message events (in unsigned int).
wParam	Message parameter (in UINT_PTR).
lParam	Message paramater (in LONG_PTR).

Returns

Return TRUE if the dialog processed messages, FALSE otherwise.

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 26 of file fun_ieee.c.

{
    unsigned __int64 mask;

    switch (calc.size) {
    case IDC_RADIO_QWORD:
        mask = _UI64_MAX;
        break;
    case IDC_RADIO_DWORD:
        mask = ULONG_MAX;
        break;
    case IDC_RADIO_WORD:
        mask = USHRT_MAX;
        break;
    case IDC_RADIO_BYTE:
        mask = UCHAR_MAX;
        break;
    default:
        mask = (unsigned __int64)-1;
    }
    r->i &= mask;
}

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

ConvAdjust()

void ConvAdjust	(	HWND	hWnd,
		int	n_cat
	)

Definition at line 621 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 112 of file utl_ieee.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 86 of file utl_ieee.c.

{
    TCHAR *ptr;

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

Referenced by convert_text2number().

ConvExecute()

void ConvExecute

(

HWND

hWnd

)

Definition at line 568 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 650 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 457 of file rpn_ieee.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 422 of file rpn_ieee.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 436 of file rpn_ieee.c.

{
    calc_node_t *op, ip;

    ip.number = *number;
    ip.base = calc.base;
    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;
        }
    }
    *number = ip.number;
}

Referenced by run_rpar().

exec_infix2postfix()

int exec_infix2postfix	(	calc_number_t *	,
		unsigned int
	)

Definition at line 391 of file rpn_ieee.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;

    tmp.number = *number;
    tmp.base = calc.base;
    tmp.operation = func;

    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(), and run_lpar().

flush_postfix()

void flush_postfix

(

void

)

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

HtmlHelp_Start()

void HtmlHelp_Start

(

HINSTANCE

hInstance

)

Definition at line 50 of file htmlhelp.c.

{
    hHtmlHelp = LoadLibrary(_T("HHCTRL.OCX"));
    if (hHtmlHelp == NULL)
        return;

    GET_CB(HtmlHelpW)
    GET_CB(HtmlHelpA)
}

Referenced by _tWinMain().

HtmlHelp_Stop()

void HtmlHelp_Stop

(

void

)

Definition at line 60 of file htmlhelp.c.

{
    if(hHtmlHelp == NULL)
        return;

    FreeLibrary(hHtmlHelp);
    hHtmlHelp = NULL;
}

Referenced by _tWinMain().

logic_dbl2int()

__int64 logic_dbl2int

(

calc_number_t *

a

)

Definition at line 261 of file fun_ieee.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 275 of file fun_ieee.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 23 of file utl_ieee.c.

{
    calc_number_t tmp;
    int    width;

    switch (base) {
    case IDC_RADIO_HEX:
        _stprintf(buffer, _T("%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 == TRUE || width > MAX_LD_WIDTH || width < -MAX_LD_WIDTH)
            _stprintf(buffer, _T("%#.*e"), MAX_LD_WIDTH-1, rpn->f);
        else {
            TCHAR *ptr, *dst;

            ptr = buffer + _stprintf(buffer, _T("%#*.*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, _T('.'));
            while (--ptr > dst)
                if (*ptr != _T('0'))
                    break;

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

Referenced by prepare_rpn_result().

rpn_2pi()

void rpn_2pi

(

calc_number_t *

c

)

Definition at line 295 of file fun_ieee.c.

{
    c->f = CALC_PI*2;
}

rpn_acos()

void rpn_acos

(

calc_number_t *

c

)

Definition at line 150 of file fun_ieee.c.

{
    c->f = validate_rad2angle(acos(c->f));
    if (_isnan(c->f))
        calc.is_nan = TRUE;
}

rpn_acosh()

void rpn_acosh

(

calc_number_t *

c

)

Definition at line 188 of file fun_ieee.c.

{
    c->f = acosh(c->f);
    if (_isnan(c->f))
        calc.is_nan = TRUE;
}

rpn_alloc()

void rpn_alloc

(

calc_number_t *

c

)

Definition at line 601 of file fun_ieee.c.

{
}

Referenced by exec_closeparent(), and run_dat_sta().

rpn_asin()

void rpn_asin

(

calc_number_t *

c

)

Definition at line 144 of file fun_ieee.c.

{
    c->f = validate_rad2angle(asin(c->f));
    if (_isnan(c->f))
        calc.is_nan = TRUE;
}

rpn_asinh()

void rpn_asinh

(

calc_number_t *

c

)

Definition at line 182 of file fun_ieee.c.

{
    c->f = asinh(c->f);
    if (_isnan(c->f))
        calc.is_nan = TRUE;
}

rpn_atan()

void rpn_atan

(

calc_number_t *

c

)

Definition at line 156 of file fun_ieee.c.

{
    c->f = validate_rad2angle(atan(c->f));
    if (_isnan(c->f))
        calc.is_nan = TRUE;
}

rpn_atanh()

void rpn_atanh

(

calc_number_t *

c

)

Definition at line 194 of file fun_ieee.c.

{
    c->f = atanh(c->f);
    if (_isnan(c->f))
        calc.is_nan = TRUE;
}

rpn_ave()

void rpn_ave

(

calc_number_t *

c

)

Definition at line 467 of file fun_ieee.c.

{
    double       ave = 0;
    int          n;

    ave = stat_sum();
    n = SendDlgItemMessage(calc.hStatWnd, IDC_LIST_STAT, LB_GETCOUNT, 0, 0);

    if (n)
        ave = ave / (double)n;
    if (calc.base == IDC_RADIO_DEC)
        c->f = ave;
    else
        c->i = (__int64)ave;
}

rpn_ave2()

void rpn_ave2

(

calc_number_t *

c

)

Definition at line 483 of file fun_ieee.c.

{
    double       ave = 0;
    int          n;

    ave = stat_sum2();
    n = SendDlgItemMessage(calc.hStatWnd, IDC_LIST_STAT, LB_GETCOUNT, 0, 0);

    if (n)
        ave = ave / (double)n;
    if (calc.base == IDC_RADIO_DEC)
        c->f = ave;
    else
        c->i = (__int64)ave;
}

rpn_cbrt()

void rpn_cbrt

(

calc_number_t *

c

)

Definition at line 387 of file fun_ieee.c.

{
    if (calc.base == IDC_RADIO_DEC)
#if defined(__GNUC__) && !defined(__REACTOS__)
        c->f = cbrt(c->f);
#else
        c->f = pow(c->f,1./3.);
#endif
    else {
        c->i = cbrti(c->i);
    }
}

rpn_copy()

void rpn_copy	(	calc_number_t *	dst,
		calc_number_t *	src
	)

Definition at line 591 of file fun_ieee.c.

{
    *dst = *src;
}

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 116 of file fun_ieee.c.

{
    double angle = validate_angle2rad(c);

    if (angle == CALC_PI_2 || angle == CALC_3_PI_2)
        c->f = 0;
    else
    if (angle == CALC_PI)
        c->f = -1;
    else
    if (angle == CALC_2_PI)
        c->f = 1;
    else
        c->f = cos(angle);
}

rpn_cosh()

void rpn_cosh

(

calc_number_t *

c

)

Definition at line 169 of file fun_ieee.c.

{
    c->f = cosh(c->f);
    if (_isnan(c->f))
        calc.is_nan = TRUE;
}

rpn_dec2dms()

void rpn_dec2dms

(

calc_number_t *

c

)

Definition at line 577 of file fun_ieee.c.

{
    double d, m, s;

    m = modf(c->f, &d) * 60;
    s = ceil(modf(m, &m) * 60);
    c->f = d + m/100. + s/10000.;
}

rpn_dms2dec()

void rpn_dms2dec

(

calc_number_t *

c

)

Definition at line 563 of file fun_ieee.c.

{
    double d, m, s;

    m = modf(c->f, &d) * 100;
    s = (modf(m, &m) * 100)+.5;
    modf(s, &s);

    m = m/60;
    s = s/3600;

    c->f = d + m + s;
}

rpn_exp()

void rpn_exp

(

calc_number_t *

c

)

Definition at line 400 of file fun_ieee.c.

{
    c->f = exp(c->f);
    if (_finite(c->f) == 0)
        calc.is_nan = TRUE;
}

rpn_exp10()

void rpn_exp10

(

calc_number_t *

c

)

Definition at line 407 of file fun_ieee.c.

{
    double int_part;

    modf(c->f, &int_part);
    if (fmod(int_part, 2.) == 0.)
        calc.is_nan = TRUE;
    else {
        c->f = pow(10., c->f);
        if (_finite(c->f) == 0)
            calc.is_nan = TRUE;
    }
}

rpn_exp2()

void rpn_exp2

(

calc_number_t *

c

)

Definition at line 308 of file fun_ieee.c.

{
    if (calc.base == IDC_RADIO_DEC) {
        c->f *= c->f;
        if (_finite(c->f) == 0)
            calc.is_nan = TRUE;
    } else
        c->i *= c->i;
}

rpn_exp3()

void rpn_exp3

(

calc_number_t *

c

)

Definition at line 318 of file fun_ieee.c.

{
    if (calc.base == IDC_RADIO_DEC) {
        c->f = pow(c->f, 3.);
        if (_finite(c->f) == 0)
            calc.is_nan = TRUE;
    } else
        c->i *= (c->i*c->i);
}

rpn_fact()

void rpn_fact

(

calc_number_t *

c

)

Definition at line 224 of file fun_ieee.c.

{
    double fact, mult, num;

    if (calc.base == IDC_RADIO_DEC)
        num = c->f;
    else
        num = (double)c->i;
    if (num > 1000) {
        calc.is_nan = TRUE;
        return;
    }
    if (num < 0) {
        calc.is_nan = TRUE;
        return;
    } else
    if (num == 0)
        fact = 1;
    else {
        rpn_int(c);
        fact = 1;
        mult = 2;
        while (mult <= num) {
            fact *= mult;
            mult++;
        }
        c->f = fact;
    }
    if (_finite(fact) == 0)
        calc.is_nan = TRUE;
    else
    if (calc.base == IDC_RADIO_DEC)
        c->f = fact;
    else
        c->i = (__int64)fact;
}

rpn_frac()

void rpn_frac

(

calc_number_t *

c

)

Definition at line 209 of file fun_ieee.c.

{
    double int_part;

    c->f = modf(calc.code.f, &int_part);
}

rpn_free()

void rpn_free

(

calc_number_t *

c

)

Definition at line 605 of file fun_ieee.c.

{
}

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

rpn_int()

void rpn_int

(

calc_number_t *

c

)

Definition at line 201 of file fun_ieee.c.

{
    double int_part;

    modf(calc.code.f, &int_part);
    c->f = int_part;
}

Referenced by rpn_fact().

rpn_is_zero()

int rpn_is_zero

(

calc_number_t *

c

)

Definition at line 596 of file fun_ieee.c.

{
    return (c->f == 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 421 of file fun_ieee.c.

{
    if (c->f <= 0)
        calc.is_nan = TRUE;
    else
        c->f = log(c->f);
}

rpn_log()

void rpn_log

(

calc_number_t *

c

)

Definition at line 429 of file fun_ieee.c.

{
    if (c->f <= 0)
        calc.is_nan = TRUE;
    else
        c->f = log10(c->f);
}

rpn_not()

void rpn_not

(

calc_number_t *

c

)

Definition at line 280 of file fun_ieee.c.

{
    if (calc.base == IDC_RADIO_DEC) {
        calc_number_t n;
        n.i = logic_dbl2int(c);
        c->f = (long double)(~n.i);
    } else
        c->i = ~c->i;
}

rpn_pi()

void rpn_pi

(

calc_number_t *

c

)

Definition at line 290 of file fun_ieee.c.

{
    c->f = CALC_PI;
}

rpn_reci()

void rpn_reci

(

calc_number_t *

c

)

Definition at line 216 of file fun_ieee.c.

{
    if (c->f == 0)
        calc.is_nan = TRUE;
    else
        c->f = 1./c->f;
}

rpn_s()

void rpn_s

(

calc_number_t *

c

)

Definition at line 553 of file fun_ieee.c.

{
    rpn_s_ex(c, 0);
}

rpn_s_m1()

void rpn_s_m1

(

calc_number_t *

c

)

Definition at line 558 of file fun_ieee.c.

{
    rpn_s_ex(c, 1);
}

rpn_sign()

void rpn_sign

(

calc_number_t *

c

)

Definition at line 300 of file fun_ieee.c.

{
    if (calc.base == IDC_RADIO_DEC)
        c->f = 0-c->f;
    else
        c->i = 0-c->i;
}

Referenced by DlgMainProc().

rpn_sin()

void rpn_sin

(

calc_number_t *

c

)

Definition at line 101 of file fun_ieee.c.

{
    double angle = validate_angle2rad(c);

    if (angle == 0 || angle == CALC_PI)
        c->f = 0;
    else
    if (angle == CALC_3_PI_2)
        c->f = -1;
    else
    if (angle == CALC_2_PI)
        c->f = 1;
    else
        c->f = sin(angle);
}

rpn_sinh()

void rpn_sinh

(

calc_number_t *

c

)

Definition at line 163 of file fun_ieee.c.

{
    c->f = sinh(c->f);
    if (_isnan(c->f))
        calc.is_nan = TRUE;
}

rpn_sqrt()

void rpn_sqrt

(

calc_number_t *

c

)

Definition at line 358 of file fun_ieee.c.

{
    if (calc.base == IDC_RADIO_DEC) {
        if (c->f < 0)
            calc.is_nan = TRUE;
        else
            c->f = sqrt(c->f);
    } else {
        c->i = sqrti(c->i);
    }
}

rpn_sum()

void rpn_sum

(

calc_number_t *

c

)

Definition at line 499 of file fun_ieee.c.

{
    double sum = stat_sum();

    if (calc.base == IDC_RADIO_DEC)
        c->f = sum;
    else
        c->i = (__int64)sum;
}

rpn_sum2()

void rpn_sum2

(

calc_number_t *

c

)

Definition at line 509 of file fun_ieee.c.

{
    double sum = stat_sum2();

    if (calc.base == IDC_RADIO_DEC)
        c->f = sum;
    else
        c->i = (__int64)sum;
}

rpn_tan()

void rpn_tan

(

calc_number_t *

c

)

Definition at line 131 of file fun_ieee.c.

{
    double angle = validate_angle2rad(c);

    if (angle == CALC_PI_2 || angle == CALC_3_PI_2)
        calc.is_nan = TRUE;
    else
    if (angle == CALC_PI || angle == CALC_2_PI)
        c->f = 0;
    else
        c->f = tan(angle);
}

rpn_tanh()

void rpn_tanh

(

calc_number_t *

c

)

Definition at line 175 of file fun_ieee.c.

{
    c->f = tanh(c->f);
    if (_isnan(c->f))
        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 586 of file fun_ieee.c.

{
    c->f = 0;
}

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 314 of file rpn_ieee.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 479 of file rpn_ieee.c.

{
    stack = NULL;
}

Referenced by _tWinMain().

stop_rpn_engine()

void stop_rpn_engine

(

void

)

Definition at line 484 of file rpn_ieee.c.

{
}

Referenced by _tWinMain().

Theme_Start()

void Theme_Start

(

HINSTANCE

hInstance

)

Definition at line 105 of file theme.c.

{
    hUxTheme = LoadLibrary(_T("UXTHEME"));
    if (hUxTheme == NULL)
        return;

    GET_CB(OpenThemeData)
    GET_CB(CloseThemeData)
    GET_CB(DrawThemeBackground)
    GET_CB(IsAppThemed)
    GET_CB(IsThemeActive)
    GET_CB(IsThemeBackgroundPartiallyTransparent)
    GET_CB(DrawThemeParentBackground)
}

Referenced by _tWinMain().

Theme_Stop()

void Theme_Stop

(

void

)

Definition at line 120 of file theme.c.

{
    if(hUxTheme == NULL)
        return;

    FreeLibrary(hUxTheme);
    hUxTheme = NULL;
}

Referenced by _tWinMain().

Variable Documentation

calc

calc_t calc

Definition at line 247 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(), OnSettingChange(), 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_ave2(), 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_sum2(), rpn_tan(), rpn_tanh(), run_canc(), run_dat_sta(), run_fe(), run_mm(), run_mp(), run_ms(), run_mw(), run_operator(), save_config(), set_rpn_result(), start_rpn_engine(), stat_sum(), stat_sum2(), stop_rpn_engine(), SubclassButtonProc(), update_lcd_display(), update_memory_flag(), update_menu(), update_radio(), UpdateNumberIntl(), upload_stat_number(), validate_angle2rad(), and validate_rad2angle().

calc_CloseThemeData

type_CloseThemeData calc_CloseThemeData

Definition at line 51 of file theme.c.

Referenced by SubclassButtonProc().

calc_DrawThemeBackground

type_DrawThemeBackground calc_DrawThemeBackground

Definition at line 52 of file theme.c.

Referenced by SubclassButtonProc().

calc_DrawThemeParentBackground

type_DrawThemeParentBackground calc_DrawThemeParentBackground

Definition at line 57 of file theme.c.

Referenced by SubclassButtonProc().

calc_HtmlHelpA

type_HtmlHelpA calc_HtmlHelpA

Definition at line 33 of file htmlhelp.c.

calc_HtmlHelpW

type_HtmlHelpW calc_HtmlHelpW

Definition at line 34 of file htmlhelp.c.

calc_IsAppThemed

type_IsAppThemed calc_IsAppThemed

Definition at line 53 of file theme.c.

Referenced by SubclassButtonProc().

calc_IsThemeActive

type_IsThemeActive calc_IsThemeActive

Definition at line 54 of file theme.c.

Referenced by SubclassButtonProc().

calc_IsThemeBackgroundPartiallyTransparent

type_IsThemeBackgroundPartiallyTransparent calc_IsThemeBackgroundPartiallyTransparent

Definition at line 55 of file theme.c.

Referenced by SubclassButtonProc().

calc_OpenThemeData

type_OpenThemeData calc_OpenThemeData

Definition at line 50 of file theme.c.

Referenced by SubclassButtonProc().