|
|
#include <windows.h>
#include <assert.h>
#include <ctype.h>
#include <malloc.h>
#include <process.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <tchar.h>
#include "windefs.h"
#include "toklist.h"
#include "restok.h"
#include "resread.h"
#include "showerrs.h"
#define MAXLINE 1024
#ifdef WIN32
extern HINSTANCE hInst; // Instance of the main window
#else
extern HWND hInst; // Instance of the main window
#endif
extern HWND hListWnd;extern HWND hMainWnd;extern HCURSOR hHourGlass;extern int nUpdateMode;extern HWND hStatusWnd;extern UCHAR szDHW[];
/**
* * * Function: * * Returns: * * History: * 01/92, Implemented. TerryRu. * * **/
int MatchToken(TOKEN tToken, TCHAR * szFindType, TCHAR *szFindText, WORD wStatus, WORD wStatusMask){ TCHAR szResIDStr[20];
if (tToken.wType <= 16) { LoadString( hInst, IDS_RESOURCENAMES + tToken.wType, szResIDStr, TCHARSIN( sizeof(szResIDStr))); } else {#ifndef UNICODE
_itoa(tToken.wType,szResIDStr, 10);#else
CHAR szTemp[32]; _itoa(tToken.wType, szTemp, 10); _MBSTOWCS( szResIDStr, szTemp, WCHARSIN( sizeof( szResIDStr)), ACHARSIN( lstrlenA(szTemp) + 1));#endif
} // need to both check because checking szFindType[0]
// when string is null cause exception
if (szFindType && szFindType[0]) { if (_tcsicmp((TCHAR *)szFindType, (TCHAR *)szResIDStr)) { return FALSE; } }
// this has case problems.
// how do I work around this and work with extened characters?
if ( szFindText && szFindText[0] ) { if (!_tcsstr( (TCHAR *)tToken.szText, (TCHAR *)szFindText)) { return FALSE; } }
// if we made it to here,
// all search criteria exept the status bits have matched.
return (wStatus == (WORD) (wStatusMask & tToken.wReserved));}
/**
* * * Function: DoTokenSearch * BiDirection token search utility to find tokens. * Search is based on, the status field, token type, and token text. * * Paramaters: * *szFindType, type of token to search for. * *szFindText, token text to search for. * wStatus, status values to search for * wStatusMask, status mask to search with * fDirection, direction to search through tokens 0 = down, 1 = up * * Returns: * TRUE, token located and selected. * FALSE token not found. * * History: * 01/92, Implemented. TerryRu. * 02/92, mask parameter added SteveBl * 01/93 Added support for var length token text strings. MHotchin * **/
int DoTokenSearch (TCHAR *szFindType, TCHAR *szFindText, WORD wStatus, WORD wStatusMask, BOOL fDirection, BOOL fSkipFirst){
UINT wLbCount; // number of tokens in list box
LPTSTR lpstrToken; int wCurSelection; // current selected token.
UINT wSaveSelection; // location in token list where the search began
TOKEN tToken; // info of current token
BOOL fWrapped = FALSE; // flag to indicate whether we wrapped during the search
TCHAR *szBuffer;
// get the number of tokens in the list
wLbCount = (UINT)SendMessage( hListWnd, LB_GETCOUNT, (WPARAM)0, (LPARAM)0);
// save the current in the token list
wCurSelection = (UINT)SendMessage( hListWnd, LB_GETCURSEL, (WPARAM)0, (LPARAM)0); wSaveSelection = wCurSelection;
// check for case where there is no current selection.
if (wCurSelection == (UINT) -1) { wSaveSelection = wCurSelection = 0; }
while (TRUE) { // get current token info in the tToken sturcture
HGLOBAL hMem = (HGLOBAL)SendMessage( hListWnd, LB_GETITEMDATA, (WPARAM)wCurSelection, (LPARAM)0); lpstrToken = (LPTSTR)GlobalLock( hMem);
if ( lpstrToken ) { szBuffer = (TCHAR *) FALLOC( MEMSIZE( lstrlen( lpstrToken)+1)); lstrcpy( szBuffer, lpstrToken); GlobalUnlock( hMem);
ParseBufToTok(szBuffer, &tToken); RLFREE( szBuffer);
// is it a match?
if ( MatchToken( tToken, szFindType, szFindText, wStatus, wStatusMask) && ! fSkipFirst) { // yes, select and return TRUE
RLFREE( tToken.szText); SendMessage( hListWnd, LB_SETCURSEL, (WPARAM)wCurSelection, (LPARAM)0); return (TRUE); } RLFREE( tToken.szText); } fSkipFirst = FALSE;
// no, continue search
if (fDirection) { // going upward during the search
if (--wCurSelection < 0) { LPSTR pszFind = NULL; DWORD dwMsgLen = 0;
// reached beginning of the tokens, do we want to wrap
dwMsgLen = B_FormatMessage((FORMAT_MESSAGE_MAX_WIDTH_MASK & 78) | FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_HMODULE, NULL, IDS_REACHEDBEGIN, szDHW, DHWSIZE, NULL); pszFind = szDHW + dwMsgLen + 2;
B_FormatMessage( (FORMAT_MESSAGE_MAX_WIDTH_MASK & 78) | FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_HMODULE, NULL, IDS_FINDTOKENS, pszFind, DHWSIZE - dwMsgLen - 2, NULL); if ( nUpdateMode == 0 && wSaveSelection != wLbCount && !fWrapped && (MessageBoxA( hMainWnd, szDHW, pszFind, MB_ICONQUESTION | MB_YESNO) == IDYES) ) { // yes, so wrap and reset counters
fWrapped = TRUE; wCurSelection = wLbCount-1; wLbCount = wSaveSelection; } // no, so return FALSE
else { break; } } } else { // going downward during the search
if (++wCurSelection >= (int) wLbCount) { LPSTR pszFind = NULL; DWORD dwMsgLen = 0;
// reached end of the tokens, do we want to wrap
dwMsgLen = B_FormatMessage((FORMAT_MESSAGE_MAX_WIDTH_MASK & 78) | FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_HMODULE, NULL, IDS_REACHEDEND, szDHW, DHWSIZE, NULL); pszFind = szDHW + dwMsgLen + 2;
B_FormatMessage( (FORMAT_MESSAGE_MAX_WIDTH_MASK & 78) | FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_HMODULE, NULL, IDS_FINDTOKENS, pszFind, DHWSIZE - dwMsgLen - 2, NULL); if ( nUpdateMode == 0 && wSaveSelection != wLbCount && !fWrapped && (MessageBoxA( hMainWnd, szDHW, pszFind, MB_ICONQUESTION | MB_YESNO) == IDYES) ) { // yes, so wrap and reset counters
fWrapped = TRUE; wCurSelection = 0; wLbCount = wSaveSelection; } // no, so return FALSE
else { break; } } } } return FALSE;}
//.......................................................................
int DoTokenSearchForRledit (TCHAR *szFindType, TCHAR *szFindText, WORD wStatus, WORD wStatusMask, BOOL fDirection, BOOL fSkipFirst){
UINT wLbCount; // number of tokens in list box
LPTSTR lpstrToken; int wCurSelection; // current selected token.
UINT wSaveSelection; // location in token list where the search began
TOKEN tToken; // info of current token
BOOL fWrapped = FALSE; // flag to indicate whether we wrapped during the search
TCHAR *szBuffer;
LPTOKDATA lpTokData;
// get the number of tokens in the list
wLbCount = (UINT)SendMessage( hListWnd, LB_GETCOUNT, (WPARAM)0, (LPARAM)0);
// save the current in the token list
wCurSelection = (UINT)SendMessage( hListWnd, LB_GETCURSEL, (WPARAM)0, (LPARAM)0); wSaveSelection = wCurSelection;
// check for case where there is no current selection.
if (wCurSelection == (UINT) -1) { wSaveSelection = wCurSelection = 0; }
while (TRUE) { // get current token info in the tToken sturcture
HGLOBAL hMem = (HGLOBAL)SendMessage( hListWnd, LB_GETITEMDATA, (WPARAM)wCurSelection, (LPARAM)0); //RLedit has different format data.
lpTokData = (LPTOKDATA)GlobalLock( hMem ); lpstrToken = (LPTSTR)GlobalLock( lpTokData->hToken );
if ( lpstrToken ) { szBuffer = (TCHAR *) FALLOC( MEMSIZE( lstrlen( lpstrToken)+1)); lstrcpy( szBuffer, lpstrToken);
GlobalUnlock( lpTokData->hToken ); GlobalUnlock( hMem);
ParseBufToTok(szBuffer, &tToken); RLFREE( szBuffer);
// is it a match?
if ( MatchToken( tToken, szFindType, szFindText, wStatus, wStatusMask) && ! fSkipFirst) { // yes, select and return TRUE
RLFREE( tToken.szText); SendMessage( hListWnd, LB_SETCURSEL, (WPARAM)wCurSelection, (LPARAM)0); return (TRUE); } RLFREE( tToken.szText); } fSkipFirst = FALSE;
// no, continue search
if (fDirection) { // going upward during the search
if (--wCurSelection < 0) { LPSTR pszFind = NULL; DWORD dwMsgLen = 0;
// reached beginning of the tokens, do we want to wrap
dwMsgLen = B_FormatMessage((FORMAT_MESSAGE_MAX_WIDTH_MASK & 78) | FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_HMODULE, NULL, IDS_REACHEDBEGIN, szDHW, DHWSIZE, NULL); pszFind = szDHW + dwMsgLen + 2;
B_FormatMessage( (FORMAT_MESSAGE_MAX_WIDTH_MASK & 78) | FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_HMODULE, NULL, IDS_FINDTOKENS, pszFind, DHWSIZE - dwMsgLen - 2, NULL); if ( nUpdateMode == 0 && wSaveSelection != wLbCount && !fWrapped && (MessageBoxA( hMainWnd, szDHW, pszFind, MB_ICONQUESTION | MB_YESNO) == IDYES) ) { // yes, so wrap and reset counters
fWrapped = TRUE; wCurSelection = wLbCount-1; wLbCount = wSaveSelection; } // no, so return FALSE
else { break; } } } else { // going downward during the search
if (++wCurSelection >= (int) wLbCount) { LPSTR pszFind = NULL; DWORD dwMsgLen = 0;
// reached end of the tokens, do we want to wrap
dwMsgLen = B_FormatMessage((FORMAT_MESSAGE_MAX_WIDTH_MASK & 78) | FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_HMODULE, NULL, IDS_REACHEDEND, szDHW, DHWSIZE, NULL); pszFind = szDHW + dwMsgLen + 2;
B_FormatMessage( (FORMAT_MESSAGE_MAX_WIDTH_MASK & 78) | FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_HMODULE, NULL, IDS_FINDTOKENS, pszFind, DHWSIZE - dwMsgLen - 2, NULL); if ( nUpdateMode == 0 && wSaveSelection != wLbCount && !fWrapped && (MessageBoxA( hMainWnd, szDHW, pszFind, MB_ICONQUESTION | MB_YESNO) == IDYES) ) { // yes, so wrap and reset counters
fWrapped = TRUE; wCurSelection = 0; wLbCount = wSaveSelection; } // no, so return FALSE
else { break; } } } } return FALSE;}
/**
* * * Function: * * * Arguments: * * Returns: * * Errors Codes: * * History: * * **/
#ifdef NO
void FindAllDirtyTokens(void){ int wSaveSelection; extern int wIndex; LONG lListParam = 0L;
// set listbox selection to begining of the token list
wSaveSelection = SendMessage( hListWnd, LB_GETCURSEL, 0 , 0L);
wIndex = 0; SendMessage(hListWnd, LB_SETCURSEL, wIndex, 0L);
while (DoTokenSearch (NULL, NULL, ST_TRANSLATED | ST_DIRTY , NULL)) { // go into edit mode
wIndex = (UINT) SendMessage(hListWnd, LB_GETCURSEL, 0 , 0L);
lListParam = MAKELONG(NULL, LBN_DBLCLK); SendMessage(hMainWnd, WM_COMMAND, IDC_LIST, lListParam);
// move selection to next token
wIndex++; SendMessage(hListWnd, LB_SETCURSEL, wIndex, 0L); } wIndex = wSaveSelection; SendMessage(hListWnd, LB_SETCURSEL, wIndex, 0L);}
#endif
/**
* * * Function: * * * Arguments: * * Returns: * * Errors Codes: * * History: * * **/TCHAR FAR *FindDeltaToken(TOKEN tToken, TOKENDELTAINFO FAR *pTokenDeltaInfo, UINT wStatus){ TOKENDELTAINFO FAR *ptTokenDeltaInfo; int found; ptTokenDeltaInfo = pTokenDeltaInfo;
while (ptTokenDeltaInfo) { found = ((tToken.wType == ptTokenDeltaInfo->DeltaToken.wType) && (tToken.wName == ptTokenDeltaInfo->DeltaToken.wName) && (tToken.wID == ptTokenDeltaInfo->DeltaToken.wID) && (tToken.wFlag == ptTokenDeltaInfo->DeltaToken.wFlag) && (wStatus == (UINT)ptTokenDeltaInfo->DeltaToken.wReserved)#ifdef UNICODE
&& !_tcscmp((TCHAR FAR *)tToken.szName, (TCHAR *)ptTokenDeltaInfo->DeltaToken.szName)#else
// !lstrcmp((TCHAR FAR *)tToken.szName,
// (TCHAR *)ptTokenDeltaInfo->DeltaToken.szName)
&& CompareStringW( MAKELCID( gMstr.wLanguageID, SORT_DEFAULT), SORT_STRINGSORT, tToken.szName, -1, ptTokenDeltaInfo->DeltaToken.szName, -1) == 2#endif
);
if (found) { return ((TCHAR FAR *)ptTokenDeltaInfo->DeltaToken.szText); } ptTokenDeltaInfo = ptTokenDeltaInfo->pNextTokenDelta; }
// token not found in token delta info
return NULL;}
/**
* * * Function: * * * Arguments: * * Returns: * * Errors Codes: * * History: * * **/TOKENDELTAINFO FAR *UpdateTokenDeltaInfo(TOKEN *pDeltaToken){ TOKENDELTAINFO FAR *pTokenDeltaInfo = NULL; int cTextLen;
if ( pDeltaToken ) { pTokenDeltaInfo = (TOKENDELTAINFO FAR *)FALLOC( sizeof( TOKENDELTAINFO));
if ( pTokenDeltaInfo ) { memcpy( (void *)&(pTokenDeltaInfo->DeltaToken), (void *)pDeltaToken, sizeof( TOKEN));
cTextLen = lstrlen( pDeltaToken->szText) + 1; pTokenDeltaInfo->DeltaToken.szText = (TCHAR *)FALLOC( MEMSIZE( cTextLen)); memcpy( (void *)pTokenDeltaInfo->DeltaToken.szText, (void *)pDeltaToken->szText, MEMSIZE( cTextLen)); pTokenDeltaInfo->pNextTokenDelta = NULL; } } return(pTokenDeltaInfo);}
/**
* * * Function: * * * Arguments: * * Returns: * * Errors Codes: * * History: * 02/93 - changed to use GetToken, rather that reading directly * from the file. This provides support for long token * text. MHotchin. * **/
TOKENDELTAINFO FAR *InsertTokMtkList(FILE * fpTokFile, FILE *fpMtkFile ){ int rcFileCode; TOKENDELTAINFO FAR * ptTokenDeltaInfo, FAR * pTokenDeltaInfo = NULL; TOKEN tToken; UINT wcChars = 0; HANDLE hTokData; LPTSTR lpstrToken; LPSTR lpstrDmy=0; LPTOKDATA lpstrTokData=0;
rewind(fpTokFile);
rewind( fpMtkFile );
//only make Dmy buffer
lpstrDmy = (LPSTR)FALLOC( MEMSIZE(MAXLINE) );
while ((rcFileCode = GetToken(fpTokFile, &tToken)) >= 0) { if (rcFileCode == 0) {
//For fast moving, save Mtk position
//Create Data
hTokData = GlobalAlloc( GMEM_MOVEABLE, sizeof(TOKDATA) ); if( !hTokData ){ RLFREE(tToken.szText); RLFREE( lpstrDmy ); QuitA( IDS_ENGERR_16, (LPSTR)IDS_ENGERR_11, NULL); } lpstrTokData = (LPTOKDATA)GlobalLock( hTokData );
//MtkFilePointer get
if( (lpstrTokData->lMtkPointer=ftell(fpMtkFile)) >= 0 ){ TOKEN cToken, ccToken; BOOL fFound; if( !GetToken(fpMtkFile,&cToken) ) { RLFREE(cToken.szText);
if( cToken.wReserved & ST_CHANGED ){ if( !GetToken(fpMtkFile,&ccToken) ) { RLFREE(ccToken.szText); fFound = ((cToken.wType ==ccToken.wType) && (cToken.wName == ccToken.wName) && (cToken.wID == ccToken.wID) && (cToken.wFlag == ccToken.wFlag) && (_tcscmp((TCHAR *)cToken.szName, (TCHAR *)ccToken.szName) == 0)); fseek( fpMtkFile, lpstrTokData->lMtkPointer, SEEK_SET); fgets( lpstrDmy, MAXLINE, fpMtkFile ); if( fFound ) fgets( lpstrDmy, MAXLINE, fpMtkFile ); } } } }
if(tToken.wReserved & ST_TRANSLATED) { TCHAR *szTokBuf;
szTokBuf = (TCHAR *) FALLOC(MEMSIZE(TokenToTextSize(&tToken))); ParseTokToBuf(szTokBuf, &tToken);
// only add tokens with the translated status bit set to the token list
lpstrTokData->hToken = GlobalAlloc(GMEM_MOVEABLE, MEMSIZE(lstrlen((TCHAR *)szTokBuf)+1));
if (!lpstrTokData->hToken){ RLFREE(tToken.szText); // MHotchin
RLFREE(szTokBuf); RLFREE( lpstrDmy ); QuitA(IDS_ENGERR_16, (LPSTR)IDS_ENGERR_11, NULL); }
lpstrToken = (LPTSTR) GlobalLock( lpstrTokData->hToken ); lstrcpy (lpstrToken, szTokBuf); GlobalUnlock( lpstrTokData->hToken ); GlobalUnlock( hTokData ); RLFREE(szTokBuf);
if( SendMessage(hListWnd,LB_ADDSTRING,0,(LONG_PTR)hTokData) < 0){ RLFREE(tToken.szText); // MHotchin
RLFREE( lpstrDmy ); QuitA (IDS_ENGERR_16, (LPSTR)IDS_ENGERR_11, NULL); } } else { // the current token is delta info so save in delta list.
if (!pTokenDeltaInfo){ ptTokenDeltaInfo = pTokenDeltaInfo = UpdateTokenDeltaInfo(&tToken); } else{ ptTokenDeltaInfo->pNextTokenDelta = UpdateTokenDeltaInfo(&tToken); ptTokenDeltaInfo = ptTokenDeltaInfo->pNextTokenDelta; }//don't use TokData
GlobalUnlock( hTokData ); GlobalFree( hTokData ); }
RLFREE(tToken.szText); // MHotchin
} }
RLFREE( lpstrDmy ); return(pTokenDeltaInfo);
}
/**
* * * Function: * * * Arguments: * * Returns: * * Errors Codes: * * History: * * **/void GenStatusLine( TOKEN *pTok){ TCHAR szName[32]; TCHAR szStatus[20];#ifdef UNICODE
CHAR szTmpBuf[32];#endif //UNICODE
TCHAR szResIDStr[20]; static BOOL fFirstCall = TRUE;
if (fFirstCall) { SendMessage( hStatusWnd, WM_FMTSTATLINE, (WPARAM)0, (LPARAM)TEXT("15s7s4i5s4i")); fFirstCall = FALSE; }
if (pTok->szName[0]) { lstrcpy( szName, pTok->szName); } else {#ifdef UNICODE
_itoa(pTok->wName, szTmpBuf, 10); _MBSTOWCS( szName, szTmpBuf, WCHARSIN( sizeof( szTmpBuf)), ACHARSIN( lstrlenA( szTmpBuf) + 1));#else
_itoa(pTok->wName, szName, 10);#endif
}
if (pTok->wReserved & ST_READONLY) { LoadString( hInst, IDS_READONLY, szStatus, TCHARSIN( sizeof( szStatus))); } else if (pTok->wReserved & ST_DIRTY) { LoadString( hInst, IDS_DIRTY, szStatus, TCHARSIN( sizeof( szStatus))); } else { LoadString( hInst, IDS_CLEAN, szStatus, TCHARSIN( sizeof( szStatus))); }
SendMessage( hStatusWnd, WM_UPDSTATLINE, (WPARAM)3, (LPARAM)szStatus);
if (pTok->wType <= 16) { LoadString( hInst, IDS_RESOURCENAMES+pTok->wType, szResIDStr, TCHARSIN( sizeof( szResIDStr))); } else {
#ifdef UNICODE
_itoa(pTok->wType, szTmpBuf, 10); _MBSTOWCS( szResIDStr, szTmpBuf, WCHARSIN( sizeof( szTmpBuf)), ACHARSIN( lstrlenA( szTmpBuf) + 1));#else
_itoa(pTok->wType, szResIDStr, 10);#endif
} SendMessage( hStatusWnd, WM_UPDSTATLINE, (WPARAM)0, (LPARAM)szName); SendMessage( hStatusWnd, WM_UPDSTATLINE, (WPARAM)1, (LPARAM)szResIDStr); SendMessage( hStatusWnd, WM_UPDSTATLINE, (WPARAM)2, (LPARAM)pTok->wID); SendMessage( hStatusWnd, WM_UPDSTATLINE, (WPARAM)4, (LPARAM)lstrlen( pTok->szText));}
|
