base/applications/calc/calc.h

   1
   2 #include <windows.h>
   3 #include <tchar.h>
   4 #include <stdio.h>
   5 #include <string.h>
   6 #include <math.h>
   7 #include <float.h>
   8 #include <malloc.h>
   9 #ifndef DISABLE_HTMLHELP_SUPPORT
  10 #include <htmlhelp.h>
  11 #endif
  12 #include <limits.h>
  13
  14 /* Messages reserved for the main dialog */
  15 #define WM_CLOSE_STATS      (WM_APP+1)
  16 #define WM_HANDLE_CLIPBOARD (WM_APP+2)
  17 #define WM_INSERT_STAT      (WM_APP+3)
  18 #define WM_LOAD_STAT        (WM_APP+4)
  19 #define WM_START_CONV       (WM_APP+5)
  20 #define WM_HANDLE_FROM      (WM_APP+6)
  21 #define WM_HANDLE_TO        (WM_APP+7)
  22
  23 #ifdef ENABLE_MULTI_PRECISION
  24 #include <mpfr.h>
  25
  26 #ifndef MPFR_DEFAULT_RND
  27 #define MPFR_DEFAULT_RND mpfr_get_default_rounding_mode ()
  28 #endif
  29
  30 #define LOCAL_EXP_SIZE  100000000L
  31 #else
  32
  33 #define LOCAL_EXP_SIZE  10000L
  34
  35 #endif
  36
  37 #include "resource.h"
  38
  39 #ifndef IDC_STATIC
  40 #define IDC_STATIC  ((DWORD)-1)
  41 #endif
  42
  43 #define CALC_VERSION        TEXT("1.11")
  44
  45 #define MAX_CALC_SIZE       256
  46
  47 /*#define USE_KEYBOARD_HOOK*/
  48
  49 #define SIZEOF(_ar)     (sizeof(_ar)/sizeof(_ar[1]))
  50
  51 // RPN.C
  52
  53 enum {
  54     RPN_OPERATOR_PARENT,
  55     RPN_OPERATOR_PERCENT,
  56     RPN_OPERATOR_EQUAL,
  57
  58     RPN_OPERATOR_OR,
  59     RPN_OPERATOR_XOR,
  60     RPN_OPERATOR_AND,
  61     RPN_OPERATOR_LSH,
  62     RPN_OPERATOR_RSH,
  63     RPN_OPERATOR_ADD,
  64     RPN_OPERATOR_SUB,
  65     RPN_OPERATOR_MULT,
  66     RPN_OPERATOR_DIV,
  67     RPN_OPERATOR_MOD,
  68     RPN_OPERATOR_POW,
  69     RPN_OPERATOR_SQR,
  70
  71     RPN_OPERATOR_NONE
  72 };
  73
  74 typedef union {
  75 #ifdef ENABLE_MULTI_PRECISION
  76     mpfr_t  mf;
  77 #else
  78     double  f;
  79     INT64   i;
  80     UINT64  u;
  81 #endif
  82 } calc_number_t;
  83
  84 typedef struct {
  85     calc_number_t number;
  86     unsigned int  operation;
  87     DWORD         base;
  88 } calc_node_t;
  89
  90 void run_operator(calc_node_t *result, calc_node_t *a,
  91                   calc_node_t *b, unsigned int operation);
  92 int  exec_infix2postfix(calc_number_t *, unsigned int);
  93 void exec_closeparent(calc_number_t *);
  94 int  eval_parent_count(void);
  95 void flush_postfix(void);
  96 void exec_change_infix(void);
  97 void start_rpn_engine(void);
  98 void stop_rpn_engine(void);
  99
 100 typedef struct {
 101     char *data;
 102     char *ptr;
 103     UINT  wm_msg;
 104 } sequence_t;
 105
 106 typedef struct {
 107     calc_number_t    num;
 108     DWORD            base;
 109     void            *next;
 110 } statistic_t;
 111
 112 enum {
 113     CALC_LAYOUT_SCIENTIFIC=0,
 114     CALC_LAYOUT_STANDARD,
 115     CALC_LAYOUT_CONVERSION,
 116 };
 117
 118 typedef struct {
 119     HINSTANCE     hInstance;
 120 #ifdef USE_KEYBOARD_HOOK
 121     HHOOK         hKeyboardHook;
 122 #endif
 123     HWND          hWnd;
 124     DWORD         layout;
 125     TCHAR         buffer[MAX_CALC_SIZE];
 126     TCHAR         source[MAX_CALC_SIZE];
 127     TCHAR        *ptr;
 128     calc_number_t code;
 129     calc_number_t prev;
 130     calc_node_t   memory;
 131     statistic_t  *stat;
 132     BOOL          is_memory;
 133     BOOL          is_nan;
 134     BOOL          sci_out;
 135     BOOL          sci_in;
 136     BOOL          usesep;
 137     BOOL          is_menu_on;
 138     signed int    esp;
 139     DWORD         base;
 140     DWORD         size;
 141     DWORD         degr;
 142     DWORD         action;
 143     HWND          hStatWnd;
 144     HWND          hConvWnd;
 145     sequence_t    Clipboard;
 146     sequence_t    Convert[2];
 147     unsigned int  last_operator;
 148     unsigned int  prev_operator;
 149     TCHAR         sDecimal[8];
 150     TCHAR         sThousand[8];
 151     unsigned int  sDecimal_len;
 152     unsigned int  sThousand_len;
 153     signed int    x_coord;
 154     signed int    y_coord;
 155 } calc_t;
 156
 157 extern calc_t calc;
 158
 159 //
 160 #define CALC_E      2.7182818284590452354
 161
 162 #define CALC_PI_2   1.57079632679489661923
 163 #define CALC_PI     3.14159265358979323846
 164 #define CALC_3_PI_2 4.71238898038468985769
 165 #define CALC_2_PI   6.283185307179586476925
 166
 167 #define MODIFIER_INV    0x01
 168 #define MODIFIER_HYP    0x02
 169 #define NO_CHAIN        0x04
 170
 171 void apply_int_mask(calc_number_t *a);
 172 #ifdef ENABLE_MULTI_PRECISION
 173 void validate_rad2angle(calc_number_t *c);
 174 void validate_angle2rad(calc_number_t *c);
 175 #else
 176 __int64 logic_dbl2int(calc_number_t *a);
 177 double logic_int2dbl(calc_number_t *a);
 178 double validate_rad2angle(double a);
 179 double validate_angle2rad(calc_number_t *c);
 180 #endif
 181 void rpn_sin(calc_number_t *c);
 182 void rpn_cos(calc_number_t *c);
 183 void rpn_tan(calc_number_t *c);
 184 void rpn_asin(calc_number_t *c);
 185 void rpn_acos(calc_number_t *c);
 186 void rpn_atan(calc_number_t *c);
 187 void rpn_sinh(calc_number_t *c);
 188 void rpn_cosh(calc_number_t *c);
 189 void rpn_tanh(calc_number_t *c);
 190 void rpn_asinh(calc_number_t *c);
 191 void rpn_acosh(calc_number_t *c);
 192 void rpn_atanh(calc_number_t *c);
 193 BOOL rpn_validate_result(calc_number_t *c);
 194 void rpn_int(calc_number_t *c);
 195 void rpn_frac(calc_number_t *c);
 196 void rpn_reci(calc_number_t *c);
 197 void rpn_fact(calc_number_t *c);
 198 void rpn_not(calc_number_t *c);
 199 void rpn_pi(calc_number_t *c);
 200 void rpn_2pi(calc_number_t *c);
 201 void rpn_sign(calc_number_t *c);
 202 void rpn_exp2(calc_number_t *c);
 203 void rpn_exp3(calc_number_t *c);
 204 void rpn_sqrt(calc_number_t *c);
 205 void rpn_cbrt(calc_number_t *c);
 206 void rpn_exp(calc_number_t *c);
 207 void rpn_exp10(calc_number_t *c);
 208 void rpn_ln(calc_number_t *c);
 209 void rpn_log(calc_number_t *c);
 210 void rpn_ave(calc_number_t *c);
 211 void rpn_sum(calc_number_t *c);
 212 void rpn_s(calc_number_t *c);
 213 void rpn_s_m1(calc_number_t *c);
 214 void rpn_dms2dec(calc_number_t *c);
 215 void rpn_dec2dms(calc_number_t *c);
 216 void rpn_zero(calc_number_t *c);
 217 void rpn_copy(calc_number_t *dst, calc_number_t *src);
 218 int  rpn_is_zero(calc_number_t *c);
 219 void rpn_alloc(calc_number_t *c);
 220 void rpn_free(calc_number_t *c);
 221
 222 //
 223
 224 void prepare_rpn_result_2(calc_number_t *rpn, TCHAR *buffer, int size, int base);
 225 void convert_text2number_2(calc_number_t *a);
 226 void convert_real_integer(unsigned int base);
 227
 228 //
 229
 230 INT_PTR CALLBACK AboutDlgProc(HWND hWnd, UINT msg, WPARAM wp, LPARAM lp);
 231
 232 //
 233
 234 void ConvExecute(HWND hWnd);
 235 void ConvAdjust(HWND hWnd, int n_cat);
 236 void ConvInit(HWND hWnd);