#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)

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	hWnd,
		UINT	msg,
		WPARAM	wp,
		LPARAM	lp
	)

Definition at line 11 of file aboutdlg.c.

{
    UNREFERENCED_PARAMETER(lParam);
 
    switch(uMsg)
    {
        case WM_COMMAND:
            if( LOWORD(wParam) == IDCANCEL )
            {
                EndDialog(hwnd, 0);
                return TRUE;
            }
            break;
 
        case WM_INITDIALOG:
            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 * number )

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 *	number,
		unsigned int	func
	)

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.

602{

603}

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.

606{

607}

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.

485{

486}

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

extern

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(), seta_assignment(), seta_ltorTerm(), 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

extern

Definition at line 51 of file theme.c.

Referenced by SubclassButtonProc().

◆ calc_DrawThemeBackground

type_DrawThemeBackground calc_DrawThemeBackground

extern

Definition at line 52 of file theme.c.

Referenced by SubclassButtonProc().

◆ calc_DrawThemeParentBackground

type_DrawThemeParentBackground calc_DrawThemeParentBackground

extern

Definition at line 57 of file theme.c.

Referenced by SubclassButtonProc().

◆ calc_HtmlHelpA

type_HtmlHelpA calc_HtmlHelpA

extern

Definition at line 33 of file htmlhelp.c.

◆ calc_HtmlHelpW

type_HtmlHelpW calc_HtmlHelpW

extern

Definition at line 34 of file htmlhelp.c.

◆ calc_IsAppThemed

type_IsAppThemed calc_IsAppThemed

extern

Definition at line 53 of file theme.c.

Referenced by SubclassButtonProc().

◆ calc_IsThemeActive

type_IsThemeActive calc_IsThemeActive

extern

Definition at line 54 of file theme.c.

Referenced by SubclassButtonProc().

◆ calc_IsThemeBackgroundPartiallyTransparent

type_IsThemeBackgroundPartiallyTransparent calc_IsThemeBackgroundPartiallyTransparent

extern

Definition at line 55 of file theme.c.

Referenced by SubclassButtonProc().

◆ calc_OpenThemeData

type_OpenThemeData calc_OpenThemeData

extern

Definition at line 50 of file theme.c.

Referenced by SubclassButtonProc().

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

Classes

Macros

Typedefs

Enumerations

Functions

Variables

Macro Definition Documentation

◆ CALC_2_PI

◆ CALC_3_PI_2

◆ CALC_E

◆ calc_HtmlHelp

◆ CALC_PI

◆ CALC_PI_2

◆ CALC_VERSION

◆ LOCAL_EXP_SIZE

◆ MAX_CALC_SIZE

◆ MODIFIER_HYP

◆ MODIFIER_INV

◆ NO_CHAIN

◆ SIZEOF

◆ WIN32_LEAN_AND_MEAN

◆ WM_CLOSE_STATS

◆ WM_HANDLE_CLIPBOARD

◆ WM_HANDLE_FROM

◆ WM_HANDLE_TO

◆ WM_INSERT_STAT

◆ WM_LOAD_STAT

◆ WM_START_CONV

Typedef Documentation

◆ type_CloseThemeData

◆ type_DrawThemeBackground

◆ type_DrawThemeParentBackground

◆ type_HtmlHelpA

◆ type_HtmlHelpW

◆ type_IsAppThemed

◆ type_IsThemeActive

◆ type_IsThemeBackgroundPartiallyTransparent

◆ type_OpenThemeData

Enumeration Type Documentation

◆ anonymous enum

◆ anonymous enum

Function Documentation

◆ AboutDlgProc()

◆ apply_int_mask()

◆ ConvAdjust()

◆ convert_real_integer()

◆ convert_text2number_2()

◆ ConvExecute()

◆ ConvInit()

◆ eval_parent_count()

◆ exec_change_infix()

◆ exec_closeparent()

◆ exec_infix2postfix()

◆ flush_postfix()

◆ HtmlHelp_Start()

◆ HtmlHelp_Stop()

◆ logic_dbl2int()

◆ logic_int2dbl()

◆ prepare_rpn_result_2()

◆ rpn_2pi()

◆ rpn_acos()

◆ rpn_acosh()

◆ rpn_alloc()

◆ rpn_asin()

◆ rpn_asinh()

◆ rpn_atan()

◆ rpn_atanh()

◆ rpn_ave()

◆ rpn_ave2()

◆ rpn_cbrt()

◆ rpn_copy()

◆ rpn_cos()

◆ rpn_cosh()

◆ rpn_dec2dms()

◆ rpn_dms2dec()

◆ rpn_exp()

◆ rpn_exp10()

◆ rpn_exp2()

◆ rpn_exp3()

◆ rpn_fact()