|
|
/**************************************************************************//*** SCICALC Scientific Calculator for Windows 3.00.12 ***//*** By Kraig Brockschmidt, Microsoft Co-op, Contractor, 1988-1989 ***//*** (c)1989 Microsoft Corporation. All Rights Reserved. ***//*** ***//*** scimenu.c ***//*** ***//*** Functions contained: ***//*** MenuFunctions--handles menu options. ***//*** ***//*** Functions called: ***//*** DisplayNum ***//*** ***//*** Last modification Thu 06-Dec-1989 ***//*** (-by- Amit Chatterjee [amitc]) ***//*** ***//*** Modified the 'PASTE' menu to check for unary minus, e, e+ & e- ***//*** in DEC mode. ***//*** ***//*** Also modified the COPY code to not copy the last '.' in the display***//*** if a decimal point has not been hit. ***//*** ***//**************************************************************************/
#include "scicalc.h"
#include "unifunc.h"
#include "input.h"
#include <shellapi.h>
#include <ctype.h>
#define CHARSCAN 66
extern HWND hEdit, hStatBox;extern TCHAR szAppName[10], szDec[5], gszSep[5], *rgpsz[CSTRINGS];extern LPTSTR gpszNum;extern BOOL bError;extern INT nLayout;
extern HMENU g_hDecMenu;extern HMENU g_hHexMenu;
extern CALCINPUTOBJ gcio;extern BOOL gbRecord;extern BOOL gbUseSep;
/* Menu handling routine for COPY, PASTE, ABOUT, and HELP. */VOID NEAR PASCAL MemErrorMessage(VOID){ MessageBeep(0); MessageBox(g_hwndDlg,rgpsz[IDS_STATMEM],NULL,MB_OK|MB_ICONHAND);}
VOID APIENTRY MenuFunctions(DWORD nFunc){ INT nx; static const int rgbMap[CHARSCAN * 2]= { TEXT('0'),IDC_0, TEXT('1'),IDC_1, TEXT('2'),IDC_2, TEXT('3'),IDC_3,
TEXT('4'),IDC_4, TEXT('5'),IDC_5, TEXT('6'),IDC_6, TEXT('7'),IDC_7,
TEXT('8'),IDC_8, TEXT('9'),IDC_9, TEXT('A'),IDC_A, TEXT('B'),IDC_B,
TEXT('C'),IDC_C, TEXT('D'),IDC_D, TEXT('E'),IDC_E, TEXT('F'),IDC_F,
TEXT('!'),IDC_FAC, TEXT('S'),IDC_SIN, TEXT('O'),IDC_COS, TEXT('T'),IDC_TAN,
TEXT('R'),IDC_REC, TEXT('Y'),IDC_PWR, TEXT('#'),IDC_CUB, TEXT('@'),IDC_SQR, TEXT('M'),IDM_DEG, TEXT('N'),IDC_LN, TEXT('L'),IDC_LOG, TEXT('V'),IDC_FE,
TEXT('X'),IDC_EXP, TEXT('I'),IDC_INV, TEXT('H'),IDC_HYP, TEXT('P'),IDC_PI,
TEXT('/'),IDC_DIV, TEXT('*'),IDC_MUL, TEXT('%'),IDC_MOD, TEXT('-'),IDC_SUB,
TEXT('='),IDC_EQU, TEXT('+'),IDC_ADD, TEXT('&'),IDC_AND, TEXT('|'),IDC_OR,
TEXT('^'),IDC_XOR, TEXT('~'),IDC_COM, TEXT(';'),IDC_CHOP, TEXT('<'),IDC_LSHF,
TEXT('('),IDC_OPENP,TEXT(')'),IDC_CLOSEP,
TEXT('\\'), IDC_DATA, TEXT('Q'), IDC_CLEAR, TEXT('Q')+128, IDC_CLEAR, // ":Q"=="Q"=>CLEAR
TEXT('S')+128, IDC_STAT, // ":S"=>CTRL-S
TEXT('M')+128, IDC_STORE, // ":M"=>CTRL-M
TEXT('P')+128, IDC_MPLUS, // ":P"=>CTRL-P
TEXT('C')+128, IDC_MCLEAR, // ":C"=>CTRL-C
TEXT('R')+128, IDC_RECALL, // ":R"=>CTRL-R
TEXT('A')+128, IDC_AVE, // ":A"=>CTRL-A
TEXT('T')+128, IDC_B_SUM, // ":T"=>CTRL-T
TEXT('D')+128, IDC_DEV, // ":D"=>CTRL-D
TEXT('2')+128, IDC_DWORD, // ":2"=>F2 IDC_DWORD
TEXT('3')+128, IDC_RAD, // ":3"=>F3 IDC_WORD
TEXT('4')+128, IDC_GRAD, // ":4"=>F4 IDC_BYTE
TEXT('5')+128, IDC_HEX, // ":5"=>F5
TEXT('6')+128, IDC_DEC, // ":6"=>F6
TEXT('7')+128, IDC_OCT, // ":7"=>F7
TEXT('8')+128, IDC_BIN, // ":8"=>F8
TEXT('9')+128, IDC_SIGN, // ":9"=>F9
TEXT('9')+3+128, IDC_QWORD // ":9"+2=>F12 (64 bit)
};
switch (nFunc) { case IDM_COPY: { TCHAR szJunk[256];
// Copy the string into a work buffer. It may be modified.
if (gbRecord) CIO_vConvertToString(&gpszNum, &gcio, nRadix);
lstrcpy(szJunk, gpszNum);
// Strip a trailing decimal point if it wasn't explicitly entered.
if (!gbRecord || !CIO_bDecimalPt(&gcio)) { nx = lstrlen(szJunk); if (szJunk[nx - 1] == szDec[0]) szJunk[nx - 1] = 0; }
/* Copy text to the clipboard through the hidden edit control.*/ SetWindowText(hEdit, szJunk); SendMessage(hEdit, EM_SETSEL, 0, -1); // select all text
SendMessage(hEdit, WM_CUT, 0, 0L); break; }
case IDM_PASTE: { HANDLE hClipData; char * lpClipData; char * lpEndOfBuffer; // used to ensure we don't GPF even if the clipboard data isn't NULL terminated
WORD b, bLast; INT nControl; BOOL bNeedIDC_SIGN = FALSE;
/* Get a handle on the clipboard data and paste by sending the*/ /* contents one character at a time like it was typed. */ if (!OpenClipboard(g_hwndDlg)) { MessageBox(g_hwndDlg, rgpsz[IDS_NOPASTE], rgpsz[IDS_CALC], MB_OK | MB_ICONEXCLAMATION); break; }
hClipData=GetClipboardData(CF_TEXT); if (hClipData) { lpClipData=(char *)GlobalLock(hClipData); if (lpClipData) { lpEndOfBuffer = lpClipData + GlobalSize(hClipData); bLast=0;
/* Continue this as long as no error occurs. If one */ /* does then it's useless to continue pasting. */ while (!bError && lpClipData < lpEndOfBuffer) { // we know that lpClipData points to a NULL terminated ansi
// string because this is the format we requested the data in.
// As a result we call CharNextA.
b = *lpClipData; lpClipData = CharNextA( lpClipData );
/* Skip spaces and LF and CR. */ if (b==32 || b==10 || b==13 || b==gszSep[0]) continue;
/* We're done if we get to a NULL character */ if ( b==0 ) break;
if (b == szDec[0]) { bLast = b; b = IDC_PNT; goto MappingDone; }
/*-----------------------------------------------------------------------------;
; Now we will check for certain special cases. These are: ;; ;; (1) Unary Minus. If bLast is still 0 and b is '-' we will force b to ;; be the code for 'SIGN'. ;; (2) If b is 'x' we will make it the code for EXP ;; (3) if bLast is 'x' and b is '+' we will ignore b, as '+' is the dflt. ;; (4) if bLast is 'x' and b is '-' we will force b to be SIGN. ;; ;; In case (3) we will go back to the top of the loop else we will jmp off ;; to the sendmessage point, bypassing the table lookup. ;;-----------------------------------------------------------------------------*/
/* check for unary minuses */ if (!bLast && b == TEXT('-')) { /* Doesn't work.
bLast = b ; b = IDC_SIGN ; goto MappingDone ; */ bNeedIDC_SIGN = TRUE ; continue ; }
/* check for 'x' */ if ((b == TEXT('x') || b == TEXT('e')) && nRadix == 10) { bLast = TEXT('x') ; b = IDC_EXP ; goto MappingDone ; }
/* if the last character was a 'x' & this is '+' - ignore */ if (bLast==TEXT('x') && b ==TEXT('+') && nRadix == 10) continue ;
/* if the last character was a 'x' & this is '-' - change
it to be the code for SIGN */ if (bLast==TEXT('x') && b==TEXT('-') && nRadix == 10) { bLast = b ; b = IDC_SIGN ; goto MappingDone ; }
/* -by- AmitC *//*--------------------------------------------------------------------------*/
/* Check for control character. */ if (bLast==TEXT(':')) nControl=128; else nControl=0;
bLast=b; if (b==TEXT(':')) continue;
b=toupper(b)+nControl;
nx=0; while (b!=rgbMap[nx*2] && nx < CHARSCAN) nx++;
if (nx==CHARSCAN) break;
b=(WORD)rgbMap[(nx*2)+1];
if (nRadix != 10) { switch(b) { case IDC_DEG: case IDC_RAD: case IDC_GRAD: b=IDC_DWORD+(b-IDC_DEG); break; } } // REVIEW NOTE:
// Conversion of IDC_MOD to IDC_PERCENT done in WM_COMMAND
// processing so that keyboard accelerator and paste are
// handled in the same place. The old conversion was broken
// anyway and actually happened in
MappingDone: /* Send the message to the window. */ SendMessage(g_hwndDlg, WM_COMMAND, GET_WM_COMMAND_MPS(b, 0, 1)); /* Note that we may need to apply the "+/-" key (IDC_SIGN)
now. (If it had been applied earlier, it would have been ignored.) Note further that it can't be applied if we have seen only the "-0" of something like "-0.1". */ if(bNeedIDC_SIGN && (IDC_0 != b)) { SendMessage(g_hwndDlg, WM_COMMAND, GET_WM_COMMAND_MPS(IDC_SIGN, 0, 1)); bNeedIDC_SIGN = FALSE; } } GlobalUnlock(hClipData); } } CloseClipboard(); break; }
case IDM_ABOUT: /* Start the About Box. */ if(ShellAbout(g_hwndDlg, rgpsz[IDS_CALC], NULL, LoadIcon(hInst, (LPTSTR)TEXT("SC"))) == -1) MemErrorMessage();
break;
case IDM_SC: case IDM_SSC: { INT nTemp; TCHAR szWinIni[2];
nTemp = (INT) nFunc - IDM_SC; if (nCalc != nTemp) { szWinIni[0] = TEXT('0') + nTemp; szWinIni[1]=0; WriteProfileString(szAppName, TEXT("layout"), szWinIni);
if (hStatBox && !nCalc) SetStat(FALSE);
nCalc = nTemp; InitSciCalc(TRUE); } break; }
case IDM_USE_SEPARATOR: { gbUseSep = !gbUseSep;
CheckMenuItem(g_hDecMenu, IDM_USE_SEPARATOR, MF_BYCOMMAND|(gbUseSep ? MF_CHECKED : MF_UNCHECKED));
if (g_hHexMenu) { CheckMenuItem(g_hHexMenu, IDM_USE_SEPARATOR, MF_BYCOMMAND | \ (gbUseSep ? MF_CHECKED:MF_UNCHECKED)); }
WriteProfileString(szAppName,TEXT("UseSep"), (gbUseSep ? TEXT("1") : TEXT("0")));
break; }
case IDM_HELPTOPICS: HtmlHelp(GetDesktopWindow(), rgpsz[IDS_CHMHELPFILE], HH_DISPLAY_TOPIC, 0L); break; }
return;}
|
