archive
/
windows-server-2003
mirror of https://github.com/selfrender/Windows-Server-2003
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4 Commits
1 Branch
0 Tags
4.9 GiB
 
 
 
 
 
 
Tree: 5c6fe3db62
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '5c6fe3db62'
${ noResults }
windows-server-2003/sdktools/restools/rltools/common/restok.c

5048 lines
150 KiB
Raw Blame History

//#include <assert.h>
#include <ctype.h>
#include <malloc.h>
#include <process.h>
#include <stdio.h>
#include <stdlib.h>
//#include <string.h>
#include <tchar.h>
#ifdef RLDOS
#include "dosdefs.h"
#else
#include <windows.h>
#include "windefs.h"
#endif
#include "restok.h"
#include "custres.h"
#include "ntmsgtbl.h"
#include "rlmsgtbl.h"
#include "resread.h"
#include "projdata.h"
//B_FormatMessage prototype
#include "showerrs.h"
#define SAME 0 //... Used in string comparisons
#define STRINGFILEINFO (TEXT("StringFileInfo"))
#define VARFILEINFO (TEXT("VarFileInfo"))
#define TRANSLATION (TEXT("Translation"))
#define LANGUAGEINFO (TEXT("Language Info"))
#define STRINGFILEINFOLEN (lstrlen( (TCHAR *)STRINGFILEINFO) + 1)
#define VARFILEINFOLEN (lstrlen( (TCHAR *)VARFILEINFO) + 1)
#define TRANSLATIONLEN (lstrlen( (TCHAR *)TRANSLATION) + 1)
#define LANGSTRINGLEN 8 //... # WCHARs in string denoting language
//... and code page in a Version resource.
#define TRANSDATALEN 2 //... # bytes in a Translation value
#define VERTYPEBINARY 0 //... Version data value is binary
#define VERTYPESTRING 1 //... Version data value is a string
#define VERMEM 2048 //... Fixed size of buffer for new version stamp
//... Decrement WORD at *pw by given amount w
#define DECWORDBY( pw,w) if (pw) { *(pw) = (*(pw) > (w)) ? *(pw) - (w) : 0;}
//... Increment WORD at *pw by given amount w
#define INCWORDBY( pw,w) if (pw) { *(pw) += (w);}
//... How many BYTES in the given string?
#define BYTESINSTRING(s) (lstrlen( (TCHAR *)s) * sizeof( TCHAR))
//... Dialog box controls (from RC.H)
#define BUTTON 0x80
#define EDIT 0x81
#define STATIC 0x82
PVERBLOCK MoveAlongVer( PVERBLOCK, WORD *, WORD *, WORD *);
BOOL FilterRes( WORD, RESHEADER *);
TCHAR *GetVerValue( PVERBLOCK);
void PutNameOrd( FILE *, BOOL, WORD , TCHAR *, DWORD *);
void GetNameOrd( FILE *,
BOOL UNALIGNED*,
WORD UNALIGNED*,
TCHAR *UNALIGNED*,
DWORD *);
void CopyRes( FILE *fpInResFile,
FILE *fpOutResFile,
RESHEADER *pResHeader,
fpos_t *pResSizePos);
BOOL fInThirdPartyEditer = FALSE;//.. Are we in a 3rd-party resource editor?
BOOL fInQuikEd = FALSE; //... Are we in RLQuiked? (see rlquiked.c)
BOOL gfShowClass = FALSE; //... Set TRUE to put dlg box elemnt class
//... in token file
#if defined(DBCS)
BOOL gfExtendedTok = TRUE; //... Set TRUE if -x is choosen
#else
BOOL gfExtendedTok = FALSE; //... Set TRUE if -x is choosen
#endif
#ifdef _DEBUG
extern PMEMLIST pMemList;
#endif
#ifdef RLRES32
#ifndef CAIRO
extern VOID *pResMsgData; // NT-specific Message Table resource
#endif //RLRES32
#endif //CAIRO
extern BOOL gbMaster; //... TRUE if we are working on a Master Project
extern BOOL gfReplace; //... FALSE if appending new language to existing resources
extern BOOL gbShowWarnings; //... Display warnining messages if TRUE
extern UCHAR szDHW[];
extern char * gszTmpPrefix;
MSTRDATA gMstr = //... Data from Master Project file (MPJ)
{ //... Fields filled in main (UI)
"",
"",
"",
"",
"",
MAKELANGID( LANG_ENGLISH, SUBLANG_ENGLISH_US),
CP_ACP //... System default Windows code page
};
PROJDATA gProj = //... Data from Project file (PRJ)
{ //... Fields filled in main (UI)
"",
"",
"",
"",
"",
"",
CP_ACP, //... System default Windows code page
MAKELANGID( LANG_ENGLISH, SUBLANG_ENGLISH_US),
FALSE,
FALSE
};
/**
* Function: ReadWinRes
*
* The main resource Read/Writer function to process the resource file to be
* localzied.
*
* ReadWinRes reads the resource header to determine the current resource type,
* then executes the corresponding Get/Put resource functions to extract and
* insert localized information contained in the resource file. ReadWinRes, is
* excuted in two modes, Tokenize, and Generate. During Tokenize mode,
* ReadWinRes writes all the localized information contained in the resouce to
* a token file. During Generate mode, ReadWinRes, replaces all the localized
* information in the input resource file, with the corresponding information
* in the token file to gernerate a localized resource file.
*
* Currently the following resouce types are supported.
*
* Version Stamping.
* Menus.
* Dialogs.
* Accelerators.
* String Tables.
* Version Stamps
* Message Tables (NT)
*
* Arguments:
*
* InResFile, Handle to binary input resource file.
* OutFesFile, Handle to binary output resouce file. Not used during tokenize
* mode.
* TokFile, Handle to text token file.
* BOOL, flag to indicate whether to build output resource file.
* BOOL, flag to indicate whether to build token file.
*
*
* Returns:
* ???
*
* Errors Codes:
* ???
*
* History:
* 10/91 Added Version stamping support. TerryRu
* 11/91, Completed Version stamping support. TerryRu
*
*
**/
int ReadWinRes(
FILE *InResFile,
FILE *OutResFile,
FILE *TokFile,
BOOL fBuildRes,
BOOL fBuildTok,
WORD wFilter)
{
BOOL fDoAccel = TRUE; // set FALSE to not build accelerators
MENUHEADER *pMenuHdr = NULL; // Linked list of Menu info.
static RESHEADER ResHeader; // Structure contain Resource Header info.
VERBLOCK *pVerBlk = NULL; // Memory block containing Version Stamping String File Block,
static VERHEAD VerHdr; // Memory block containing Version Stamping Header info
DIALOGHEADER *pDialogHdr = NULL; // Linked list of Dialog info
STRINGHEADER *pStrHdr = NULL; // Array of String Tables.
ACCELTABLEENTRY *pAccelTable = NULL;// Array of Accelerator Keys
WORD wcTableEntries = 0; // Number of Accelerator tables
fpos_t ResSizePos = 0; // Position of lSize field in the
// Resource Header, used to fixup
// the Header once the size of the
// localized information is determined.
CUSTOM_RESOURCE *pCustomResource = NULL;
LONG lEndOffset = 0L;
//... How large is the res file?
fseek( InResFile, 0L, SEEK_END);
lEndOffset = ftell( InResFile);
rewind( InResFile);
//... process until end of input file
while ( ! feof( InResFile) ) {
LONG lCurrOffset = 0L;
lCurrOffset = (LONG)ftell( InResFile);
if ( (lCurrOffset + (LONG)sizeof( RESHEADER)) >= lEndOffset ) {
return 0;
}
if ( GetResHeader( InResFile, &ResHeader, (DWORD *) NULL) == -1 ) {
return (1);
}
//... Is this the dummy, res32-identifying, res?
if ( ResHeader.lSize == 0L ) { //... Yes, we so simply copy the header if we
//... are building a res file.
if ( fBuildRes ) {
CopyRes( InResFile, OutResFile, &ResHeader, &ResSizePos);
}
#ifdef RLRES32
else {
if ( gbShowWarnings && OutResFile && ftell( OutResFile) != 0L ) {
lstrcpyA( szDHW, "type");
if ( ResHeader.wTypeID == IDFLAG ) {
sprintf( &szDHW[ lstrlenA( szDHW)],
" \"%s\"",
ResHeader.pszType);
} else {
sprintf( &szDHW[ lstrlenA( szDHW)],
" %hu,",
ResHeader.wTypeID);
}
strcat( szDHW, " name");
if ( ResHeader.wNameID == IDFLAG ) {
sprintf( &szDHW[ lstrlenA( szDHW)],
" \"%s\"",
ResHeader.pszName);
} else {
sprintf( &szDHW[ lstrlenA( szDHW)],
" %hu,",
ResHeader.wNameID);
}
sprintf( &szDHW[ lstrlenA( szDHW)],
" pri-lang %#hx sub-lang %#hx",
PRIMARYLANGID( ResHeader.wLanguageId),
SUBLANGID( ResHeader.wLanguageId));
ShowEngineErr( IDS_ZERO_LEN_RES, szDHW, NULL);
}
DWordUpFilePointer( InResFile, MYREAD, ftell( InResFile), NULL);
if (OutResFile != NULL) {
DWordUpFilePointer( OutResFile,
MYWRITE,
ftell(OutResFile),
NULL);
}
}
#endif
ClearResHeader( ResHeader);
continue; //... Ship this dummy header
}
//... Check to see if we want to filter out this
//... resource type.
if ( FilterRes( wFilter, &ResHeader) ) {
//... skip this resource type
SkipBytes( InResFile, (DWORD *)&ResHeader.lSize);
#ifdef RLRES32
DWordUpFilePointer( InResFile, MYREAD, ftell( InResFile), NULL);
#endif
ClearResHeader( ResHeader);
continue;
}
if ( fBuildTok ) {
if ( ResHeader.wLanguageId != (fInThirdPartyEditer
? gProj.wLanguageID
: gMstr.wLanguageID) ) {
//... Skip this resource (wrong lanugage)
if ( gbShowWarnings ) {
lstrcpyA( szDHW, "type");
if ( ResHeader.wTypeID == IDFLAG ) {
sprintf( &szDHW[ lstrlenA( szDHW)],
" \"%s\"",
ResHeader.pszType);
} else {
sprintf( &szDHW[ lstrlenA( szDHW)],
" %u,",
ResHeader.wTypeID);
}
strcat( szDHW, " name");
if ( ResHeader.wNameID == IDFLAG ) {
sprintf( &szDHW[ lstrlenA( szDHW)],
" \"%s\"",
ResHeader.pszName);
} else {
sprintf( &szDHW[ lstrlenA( szDHW)],
" %u,",
ResHeader.wNameID);
}
sprintf( &szDHW[ lstrlenA( szDHW)],
" pri-lang %#x sub-lang %#x",
PRIMARYLANGID( ResHeader.wLanguageId),
SUBLANGID( ResHeader.wLanguageId));
ShowEngineErr( IDS_SKIP_RES,
LongToPtr(ResHeader.lSize),
szDHW);
}
SkipBytes( InResFile, (DWORD *)&ResHeader.lSize);
#ifdef RLRES32
DWordUpFilePointer( InResFile, MYREAD, ftell(InResFile), NULL);
#endif
ClearResHeader( ResHeader);
continue;
}
} else if ( fBuildRes ) {
if ( gfReplace ) {
if ( ResHeader.wLanguageId == gMstr.wLanguageID ) {
ResHeader.wLanguageId = gProj.wLanguageID;
} else {
//... Copy this resource
CopyRes( InResFile, OutResFile, &ResHeader, &ResSizePos);
ClearResHeader( ResHeader);
continue;
}
} else { //... ! gfReplace
if ( ResHeader.wLanguageId == gMstr.wLanguageID ) {
fpos_t lFilePos = 0L;
DWORD lTmpSize = 0L;
lFilePos = ftell( InResFile); //... Save file position
lTmpSize = ResHeader.lSize; //... and resource size
//... Duplicate this resource
CopyRes( InResFile, OutResFile, &ResHeader, &ResSizePos);
fseek( InResFile, (long)lFilePos, SEEK_SET);
ResHeader.wLanguageId = gProj.wLanguageID;
ResHeader.lSize = lTmpSize;
} else {
//... Simply copy this resource if not target language
if ( ResHeader.wLanguageId == gProj.wLanguageID ) {
SkipBytes( InResFile, (DWORD *)&ResHeader.lSize);
#ifdef RLRES32
DWordUpFilePointer( InResFile, MYREAD, ftell( InResFile), NULL);
#endif
} else {
CopyRes( InResFile, OutResFile, &ResHeader, &ResSizePos);
}
ClearResHeader( ResHeader);
continue;
}
}
}
switch ( ResHeader.wTypeID ) {
case ID_RT_ACCELERATORS:
pAccelTable = GetAccelTable(InResFile,
&wcTableEntries,
(DWORD *)&ResHeader.lSize);
if (fBuildTok) {
TokAccelTable(TokFile,
ResHeader,
pAccelTable,
wcTableEntries);
}
if (fBuildRes) {
PutAccelTable(OutResFile,
TokFile,
ResHeader,
pAccelTable,
wcTableEntries);
}
ClearAccelTable (pAccelTable , wcTableEntries);
break;
case ID_RT_DIALOG:
pDialogHdr = GetDialog(InResFile, (DWORD *)&ResHeader.lSize);
if (fBuildTok == TRUE) {
TokDialog(TokFile, ResHeader, pDialogHdr);
}
if (fBuildRes == TRUE) {
PutDialog(OutResFile, TokFile, ResHeader, pDialogHdr);
}
ClearDialog (pDialogHdr);
break;
case ID_RT_DLGINIT:
{
PDLGINITDATA pDlgInit = GetDlgInit( InResFile, (DWORD *)&ResHeader.lSize);
if ( fBuildTok ) {
TokDlgInit( TokFile, ResHeader, pDlgInit);
}
if ( fBuildRes ) {
PutDlgInit( OutResFile, TokFile, ResHeader, pDlgInit);
}
ClearDlgInitData( pDlgInit);
break;
}
case ID_RT_MENU:
// allocate space for a new header
pMenuHdr = (MENUHEADER *)FALLOC( sizeof( MENUHEADER));
GetResMenu(InResFile, (DWORD *)&ResHeader.lSize, pMenuHdr);
if (fBuildTok == TRUE) {
TokMenu(TokFile, ResHeader, pMenuHdr);
}
if (fBuildRes == TRUE) {
PutMenu(OutResFile, TokFile, ResHeader, pMenuHdr);
}
ClearMenu(pMenuHdr);
break;
case ID_RT_STRING:
pStrHdr = GetString(InResFile, (DWORD *)&ResHeader.lSize);
if (fBuildTok == TRUE) {
TokString(TokFile, ResHeader, pStrHdr);
}
if (fBuildRes == TRUE) {
PutStrHdr(OutResFile, TokFile, ResHeader, pStrHdr);
}
ClearString(pStrHdr);
break;
#ifdef RLRES32
#ifndef CAIRO
// we currently only do Error tables under NT,
// under CAIRO we ignore them
case ID_RT_ERRTABLE: //... NT-specific Message Table resource
pResMsgData = GetResMessage(InResFile, (DWORD *)&ResHeader.lSize);
if (! pResMsgData) {
QuitT( IDS_ENGERR_13, (LPTSTR)IDS_MSGRESTBL, NULL);
}
if (fBuildTok == TRUE) {
TokResMessage(TokFile, ResHeader, pResMsgData);
}
if (fBuildRes == TRUE) {
PutResMessage(OutResFile, TokFile, ResHeader, pResMsgData);
}
ClearResMsg( &pResMsgData);
break;
#endif
#endif
#ifndef CAIRO
case ID_RT_VERSION:
{
WORD wRead = 0;
wRead = GetResVer(InResFile,
(DWORD *)&ResHeader.lSize,
&VerHdr,
&pVerBlk);
#ifdef RLRES32
if (wRead == (WORD)-1)
#else
if (wRead == FALSE)
#endif
{
QuitT( IDS_ENGERR_14, (LPTSTR)IDS_VERBLOCK, NULL);
}
// Building Tok file ?
// but only tokenize it if it contains a Version Block
if ( pVerBlk && fBuildTok == TRUE ) {
#ifdef RLRES32
TokResVer( TokFile, ResHeader, pVerBlk, wRead);
#else
TokResVer( TokFile, ResHeader, pVerBlk);
#endif
}
// Building Res file ?
if ( fBuildRes == TRUE ) {
PutResVer( OutResFile, TokFile, ResHeader,&VerHdr, pVerBlk);
}
RLFREE( pVerBlk);
}
break;
#else
case ID_RT_VERSION:
#endif
case ID_RT_CURSOR:
case ID_RT_BITMAP:
case ID_RT_ICON:
case ID_RT_FONTDIR:
case ID_RT_FONT:
case ID_RT_RCDATA:
#ifndef RLRES32
case ID_RT_ERRTABLE: //... NT-specific Message Table resourc
#endif
case ID_RT_GROUP_CURSOR:
case ID_RT_GROUP_ICON:
case ID_RT_NAMETABLE:
default:
if (GetCustomResource(InResFile,
(DWORD *)&ResHeader.lSize,
&pCustomResource,
ResHeader)) {
// Non localized resource type, skip or copy it
if (fBuildTok == TRUE) {
if ( gbShowWarnings
&& ( ResHeader.wTypeID == ID_RT_RCDATA
|| ResHeader.wTypeID > 16) ) {
static CHAR szType[256];
static CHAR szName[256];
if ( ResHeader.bTypeFlag == IDFLAG )
sprintf( szType, "%u", ResHeader.wTypeID);
else {
_WCSTOMBS( &szType[1], ResHeader.pszType, sizeof( szType), (UINT)-1);
szType[0] = '\"';
szType[ lstrlenA( szType)] = '\"';
}
if ( ResHeader.bNameFlag == IDFLAG )
sprintf( szName, "%u", ResHeader.wNameID);
else {
_WCSTOMBS( &szName[1], ResHeader.pszName, sizeof( szName), (UINT)-1);
szName[0] = '\"';
szName[ lstrlenA( szName)] = '\"';
}
ShowEngineErr( IDS_UNK_CUST_RES, (void *)szType, (void *)szName);
}
SkipBytes(InResFile, (DWORD *)&ResHeader.lSize);
} else if ( fBuildRes ) {
CopyRes( InResFile, OutResFile, &ResHeader, &ResSizePos);
}
} else {
if (fBuildTok == TRUE) {
TokCustomResource(TokFile, ResHeader, &pCustomResource);
}
if (fBuildRes == TRUE) {
PutCustomResource(OutResFile,
TokFile,
ResHeader,
&pCustomResource);
}
ClearCustomResource(&pCustomResource);
}
#ifdef RLRES32
DWordUpFilePointer(InResFile, MYREAD, ftell(InResFile), NULL);
if (OutResFile != NULL) {
DWordUpFilePointer(OutResFile,
MYWRITE,
ftell(OutResFile),
NULL);
}
#endif
break;
} //... END SWITCH
#ifndef RLRES32
// skip any extra bytes (Win 3.1 exes have
// alot of extra stuff!).
// No extra stuff in res extracted from NT exes
SkipBytes(InResFile, (DWORD *)&ResHeader.lSize);
#endif
ClearResHeader(ResHeader);
#ifdef RLRES32
DWordUpFilePointer(InResFile, MYREAD, ftell(InResFile), NULL);
if (OutResFile != NULL) {
DWordUpFilePointer(OutResFile, MYWRITE, ftell(OutResFile), NULL);
}
#endif
} // END while ( ! feof( InResFile)
return 0;
}
/**
*
*
* Function:ClearAccelTable
* Removes the accelerator table array from memory.
*
* Arguments:
* pAccelTable, pointer to arary of accelerators
* wctablesEntries, number of accelerators in arrary
*
* Returns:
* NA.
*
* Errors Codes:
* NA.
*
* History:
* 7/91, Implemented Terryru
*
*
**/
void ClearAccelTable(ACCELTABLEENTRY *pAccelTable, WORD wcTableEntries)
{
RLFREE( pAccelTable);
}
/**
*
*
* Function: ClearDialog
* Remove Dialog defintions from memory.
*
* Arguments:
* pDilaogHdr, Linked list of dialog information.
*
* Returns:
* NA.
*
* Errors Codes:
* NA.
*
* History:
* 7/91, Implemented TerryRu
*
*
**/
void ClearDialog (DIALOGHEADER * pDialogHdr)
{
BYTE i;
for (i = 0; i < (BYTE) pDialogHdr->wNumberOfItems; i ++) {
if (pDialogHdr->pCntlData[i].pszClass) {
RLFREE( pDialogHdr->pCntlData[i].pszClass);
}
if ( pDialogHdr->pCntlData[i].pExtraStuff ) {
RLFREE( pDialogHdr->pCntlData[i].pExtraStuff );
}
RLFREE( pDialogHdr->pCntlData[i].pszDlgText);
}
// now RLFREE fields in dialog header
RLFREE( pDialogHdr->pszDlgClass);
RLFREE( pDialogHdr->pszFontName);
RLFREE( pDialogHdr->pszDlgMenu);
RLFREE( pDialogHdr->pszCaption);
RLFREE( pDialogHdr->pCntlData);
// and finally clear header
RLFREE( pDialogHdr);
}
/**
*
*
* Function: ClearMenu
* Removes Menu defintions from memory.
*
* Arguments:
* pMenuHdr, linked list of Menu info
*
* Returns:
* NA.
*
* Errors Codes:
* NA.
*
* History:
* 7/91, Implemented. TerryRu
*
*
**/
void ClearMenu(MENUHEADER *pMenuHdr)
{
MENUITEM *pMenuItem;
MENUITEM *pMenuHead;
pMenuItem = pMenuHead = pMenuHdr->pMenuItem;
// remove all the menu items from the list
while (pMenuItem) {
pMenuItem = pMenuHead->pNextItem;
RLFREE( pMenuHead->szItemText);
RLFREE( pMenuHead);
pMenuHead = pMenuItem;
}
// now remove the menuheader
if (pMenuHdr->pExtraStuff)
RLFREE( pMenuHdr->pExtraStuff );
RLFREE( pMenuHdr);
}
/**
*
*
* Function: ClearResHeader
* Remove resheader name, and type fields from memory.
*
* Arguments:
* ResHdr, structure containing resheader info.
*
* Returns:
* NA.
*
* Errors Codes:
* NA.
*
* History:
* 7/91, Implemented TerryRu.
*
*
**/
void ClearResHeader(RESHEADER ResHdr)
{
RLFREE( ResHdr.pszType);
RLFREE( ResHdr.pszName);
}
/**
*
*
* Function: ClearString
* Removes the StringTable Defintions from memory.
*
* Arguments:
* pStrHdr, pointer to array of 16 string tables.
*
* Returns:
* NA.
*
* Errors Codes:
* NA.
*
* History:
* 7/91, Implemented. TerryRu
*
*
**/
void ClearString( STRINGHEADER *pStrHdr)
{
BYTE i;
for (i = 0; i < 16; i++) {
RLFREE( pStrHdr->pszStrings[i]);
}
RLFREE( pStrHdr);
}
/**
*
*
* Function: quit
* quit, Error Handling routine used to display error code and terminate program
*
* Arguments:
* error, number of error.
* pszError, descriptive error message.
*
* Returns:
* NA.
*
* Errors Codes:
*
*
* History:
* 7/91, Implemented TerryRu
* 10/91, Hacked to work under windows TerryRu
* ??? Need to add better win/dos support
*
**/
void QuitA( int error, LPSTR pszArg1, LPSTR pszArg2)
{
char szErrStr1[2048] = "*?*";
char szErrStr2[2048] = "*?*";
char *psz1 = pszArg1;
char *psz2 = pszArg2;
//... clean up after error and exit,
//... returning error code
_fcloseall();
if ( pszArg1 != NULL && pszArg1 <= (LPSTR)0x0000ffff ) {
B_FormatMessage( (FORMAT_MESSAGE_MAX_WIDTH_MASK & 78)
| FORMAT_MESSAGE_IGNORE_INSERTS
| FORMAT_MESSAGE_FROM_HMODULE,
NULL,
(DWORD)(DWORD_PTR)pszArg1,
szErrStr1,
sizeof( szErrStr1),
NULL);
psz1 = szErrStr1;
}
if ( pszArg2 != NULL && pszArg2 < (LPSTR)0x0000ffff ) {
B_FormatMessage( (FORMAT_MESSAGE_MAX_WIDTH_MASK & 78)
| FORMAT_MESSAGE_IGNORE_INSERTS
| FORMAT_MESSAGE_FROM_HMODULE,
NULL,
(DWORD)(DWORD_PTR)pszArg2,
szErrStr2,
sizeof( szErrStr2),
NULL);
psz2 = szErrStr2;
}
ShowEngineErr( error, psz1, psz2);
FreeLangList();
#ifdef _DEBUG
FreeMemList( NULL);
#endif // _DEBUG
DoExit( (error == 4) ? 0 : error);
}
#ifdef UNICODE
/* Handles errors, in UNICODE environments*/
LPSTR MakeMBMsgW(
LPWSTR pszArg, //... Msg ID# or msg text
LPSTR szBuf, //... Buffer for converted msg
USHORT usBufLen) //... #bytes in szBuf
{
char *pszRet = NULL;
if ( pszArg ) {
if ( pszArg >= (LPTSTR)0x0400 ) {
_WCSTOMBS( szBuf,
(WCHAR *)pszArg,
usBufLen,
lstrlen( pszArg ) + 1 );
} else {
B_FormatMessage( (FORMAT_MESSAGE_MAX_WIDTH_MASK & 78)
| FORMAT_MESSAGE_IGNORE_INSERTS
| FORMAT_MESSAGE_FROM_HMODULE,
NULL,
(DWORD)(DWORD_PTR)pszArg,
szBuf,
usBufLen,
NULL);
}
pszRet = szBuf;
}
return ( pszRet);
}
//...............................................................
void QuitW( int error, LPWSTR pszArg1, LPWSTR pszArg2)
{
char szErrStr1[2048] = "*?*";
char szErrStr2[2048] = "*?*";
QuitA( error,
MakeMBMsgW( pszArg1, szErrStr1, sizeof( szErrStr1)),
MakeMBMsgW( pszArg2, szErrStr2, sizeof( szErrStr2)));
}
#endif
/**
*
*
* Function: GetAccelTable,
* Reads the Accelerator key defintions from the resource file
*
* Arguments:
* InResFile, Handle to Resource file.
* pwcTableEntries, pointer to an array of accelerator key defintions.
* plSize, address of size of Resource.
*
* Returns:
* pwcTableEntries containing all the key defintions.
*
* Errors Codes:
*
* History:
* 8/91 Implemented TerryRu
* 4/92 Added RLRES32 support TerryRu
*
*
*
**/
ACCELTABLEENTRY * GetAccelTable(FILE *InResFile,
WORD *pwcTableEntries,
DWORD *plSize)
{
ACCELTABLEENTRY *pAccelTable;
BOOL quit = FALSE;
// need to use sizeof operator in memory
// allocation because of structure packing.
*pwcTableEntries = (WORD) 0;
pAccelTable = (ACCELTABLEENTRY *) FALLOC( ((WORD)*plSize * sizeof( WORD)));
while (*plSize && !quit) {
#ifdef RLRES32
pAccelTable[ *pwcTableEntries].fFlags = (WORD) GetWord( InResFile,
plSize);
#else
pAccelTable[ *pwcTableEntries].fFlags = (BYTE) GetByte( InResFile,
plSize);
#endif
pAccelTable[*pwcTableEntries].wAscii = GetWord (InResFile, plSize);
pAccelTable[*pwcTableEntries].wID = GetWord (InResFile, plSize);
#ifdef RLRES32
pAccelTable[ *pwcTableEntries].wPadding = GetWord( InResFile, plSize);
#endif
if ( pAccelTable[ *pwcTableEntries].fFlags & HIBITVALUE ) {
quit = TRUE;
}
++*pwcTableEntries;
}
if ( (long)*plSize <= 0 ) {
*plSize = 0;
}
return pAccelTable;
}
/**
*
*
* Function: GetDialog,
* Reads the dialog defintions from the res file, and places the info
* into a linked list.
*
*
* Arguments:
* InResFile, Handle to input resource handle, posistioned to begining
* of dialog defintion.
* plSize, pointer to size in bytes of the dialog information.
*
* Returns:
* pointer to DIALOGHEADER type containing the dialog information,
*
*
* Errors Codes:
* None ???
*
* History:
* 12/91, Cleaned up comments. TerryRu
* 04/92, Added RLRES32 support. TerryRu
*
*
**/
DIALOGHEADER *GetDialog( FILE *InResFile, DWORD * plSize)
{
DIALOGHEADER *pDialogHdr;
TCHAR *UNALIGNED*ptr;
WORD i;
LONG lStartingOffset;
static TCHAR szBuf[ 255];
LONG lExtra;
WORD j;
lStartingOffset = ftell(InResFile);
pDialogHdr = (DIALOGHEADER *)FALLOC( sizeof( DIALOGHEADER));
// lstyle
pDialogHdr->lStyle = GetdWord(InResFile, plSize);
#ifdef RLRES32
pDialogHdr->fDialogEx = (HIWORD(pDialogHdr->lStyle)==0xffff);
if (pDialogHdr->fDialogEx) {
pDialogHdr->wDlgVer = LOWORD(pDialogHdr->lStyle);
pDialogHdr->wSignature = HIWORD(pDialogHdr->lStyle);
pDialogHdr->dwHelpID = GetdWord(InResFile, plSize);
pDialogHdr->lExtendedStyle = GetdWord(InResFile, plSize);
pDialogHdr->lStyle = GetdWord(InResFile, plSize);
} else {
pDialogHdr->lExtendedStyle = GetdWord(InResFile, plSize);
}
pDialogHdr->wNumberOfItems = GetWord(InResFile, plSize);
#else
pDialogHdr->wNumberOfItems = (BYTE) GetByte(InResFile, plSize);
#endif
// allocate space to hold wNumberOfItems of pointers
// to Control Data structures
pDialogHdr->pCntlData = (CONTROLDATA *)
FALLOC( pDialogHdr->wNumberOfItems * sizeof( CONTROLDATA));
// read x, y, cx, cy dialog cordinates
pDialogHdr->x = GetWord(InResFile, plSize);
pDialogHdr->y = GetWord(InResFile, plSize);
pDialogHdr->cx = GetWord(InResFile, plSize);
pDialogHdr->cy = GetWord(InResFile, plSize);
//... Dialog Menu Name
GetNameOrd( InResFile,
(BOOL UNALIGNED *)&pDialogHdr->bMenuFlag, // 9/11/91 (PW)
(WORD UNALIGNED *)&pDialogHdr->wDlgMenuID,
(TCHAR *UNALIGNED*)&pDialogHdr->pszDlgMenu,
plSize);
//... Dialog Class Name
GetNameOrd( InResFile,
(BOOL UNALIGNED *)&pDialogHdr->bClassFlag, // 9/11/91 (PW)
(WORD UNALIGNED *)&pDialogHdr->wDlgClassID,
(TCHAR *UNALIGNED*)&pDialogHdr->pszDlgClass,
plSize);
// Dialog caption name
GetName( InResFile, szBuf, plSize);
ptr = (TCHAR *UNALIGNED*)&pDialogHdr->pszCaption;
AllocateName( *ptr, szBuf);
lstrcpy( (TCHAR *)*ptr, (TCHAR *)szBuf);
// does dialog define a font.
if ( pDialogHdr->lStyle & DS_SETFONT ) {
// extract this info.
pDialogHdr->wPointSize = GetWord( InResFile, plSize);
if (pDialogHdr->fDialogEx) {
pDialogHdr->wWeight = GetWord( InResFile, plSize);
pDialogHdr->wItalic = GetWord( InResFile, plSize);
}
GetName( InResFile, szBuf, plSize);
ptr = (TCHAR *UNALIGNED*)&pDialogHdr->pszFontName;
AllocateName(*ptr, szBuf);
lstrcpy( (TCHAR *)*ptr, (TCHAR *)szBuf);
} else {
pDialogHdr->pszFontName = (TCHAR*)FALLOC( 0);
}
#ifdef RLRES32
DWordUpFilePointer( InResFile, MYREAD, ftell(InResFile), plSize);
#endif
//... read each dialog control
for (i = 0; i < pDialogHdr->wNumberOfItems ; i++) {
#ifdef RLRES32
if (pDialogHdr->fDialogEx) {
pDialogHdr->pCntlData[i].dwHelpID = GetdWord(InResFile, plSize);
pDialogHdr->pCntlData[i].lExtendedStyle = GetdWord(InResFile, plSize);
pDialogHdr->pCntlData[i].lStyle = GetdWord(InResFile, plSize);
} else {
pDialogHdr->pCntlData[i].lStyle = GetdWord(InResFile, plSize);
pDialogHdr->pCntlData[i].lExtendedStyle = GetdWord(InResFile, plSize);
}
#endif // RLRES32
pDialogHdr->pCntlData[i].x = GetWord(InResFile, plSize);
pDialogHdr->pCntlData[i].y = GetWord(InResFile, plSize);
pDialogHdr->pCntlData[i].cx = GetWord(InResFile, plSize);
pDialogHdr->pCntlData[i].cy = GetWord(InResFile, plSize);
// wId
if (pDialogHdr->fDialogEx)
pDialogHdr->pCntlData[i].dwID = GetdWord (InResFile, plSize);
else
pDialogHdr->pCntlData[i].dwID = (DWORD)GetWord (InResFile, plSize);
#ifdef RLRES16
// lStyle
pDialogHdr->pCntlData[i].lStyle = GetdWord(InResFile, plSize);
pDialogHdr->pCntlData[i].bClass = (BYTE) GetByte(InResFile, plSize);
// does dialog have a class?
if (!(pDialogHdr->pCntlData[i].bClass & 0x80)) {
GetName(InResFile, szBuf, plSize);
ptr = &pDialogHdr->pCntlData[i].pszClass;
AllocateName(*ptr, szBuf);
lstrcpy ((TCHAR *)*ptr, (TCHAR *)szBuf);
} else {
pDialogHdr->pCntlData[i].pszClass = NULL;
}
#else
GetNameOrd (InResFile,
(BOOL UNALIGNED *)&pDialogHdr->pCntlData[i].bClass_Flag, // 9/11/91 (PW)
(WORD UNALIGNED *)&pDialogHdr->pCntlData[i].bClass,
(TCHAR *UNALIGNED*)&pDialogHdr->pCntlData[i].pszClass,
plSize);
#endif
GetNameOrd (InResFile,
(BOOL UNALIGNED *)&pDialogHdr->pCntlData[i].bID_Flag, // 9/11/91 (PW)
(WORD UNALIGNED *)&pDialogHdr->pCntlData[i].wDlgTextID,
(TCHAR *UNALIGNED*)&pDialogHdr->pCntlData[i].pszDlgText,
plSize);
#ifdef RLRES16
pDialogHdr->pCntlData[i].unDefined = (BYTE) GetByte(InResFile, plSize);
#else
pDialogHdr->pCntlData[i].wExtraStuff = (WORD) GetWord(InResFile, plSize);
if (pDialogHdr->fDialogEx && pDialogHdr->pCntlData[i].wExtraStuff) {
lExtra = pDialogHdr->pCntlData[i].wExtraStuff;
j = 0;
pDialogHdr->pCntlData[i].pExtraStuff = (BYTE *)FALLOC( pDialogHdr->pCntlData[i].wExtraStuff );
while ( lExtra-- )
pDialogHdr->pCntlData[i].pExtraStuff[j++] = GetByte( InResFile, plSize );
} else
pDialogHdr->pCntlData[i].pExtraStuff = NULL;
#endif // RLRES16
#ifdef RLRES32
DWordUpFilePointer( InResFile, MYREAD, ftell(InResFile), plSize);
#endif // RLRES32
}
// watch for overflow of plsize
if ((long) *plSize <= 0) {
*plSize = 0;
}
return (pDialogHdr);
}
/**
*
*
* Function: GetResMenu,
* Reads the Menu defintions from the resrouce file, and insert the info
* into a linked list..
*
* Arguments:
* InResFile, Input res handle, positioned at being of Menu Definition.
* lSize, pointer to size of Menu Defintion.
* pMenuHeader, pointer to structure to contain menu info.
*
* Returns:
* pMenuHeader containing linkd list of Menu info.
*
* Errors Codes:
* None.
*
* History:
* 7/91, implemented Terryru
* 12/91, cleaned up comments Terryru
* 4/92, Added PDK2 support Terryru
* 4/92, Added RLRES32 support Terryru
*
**/
void GetResMenu(FILE *InResFile, DWORD *lSize , MENUHEADER *pMenuHeader)
{
static TCHAR szItemText[255];
BOOL fStart = TRUE;
BOOL fQuit = FALSE;
LONG lExtra = 0;
WORD i = 0;
WORD wPopItems = 0, wMenuID = 0;
MENUITEM * pcMenuItem;
TCHAR *UNALIGNED*ptr;
WORD wNestingLevel = 0;
WORD wFlags;
LONG lStartingOffset; // used to dword align file
lStartingOffset = ftell(InResFile);
pMenuHeader->wVersion = GetWord(InResFile, lSize);
pMenuHeader->cbHeaderSize = GetWord(InResFile, lSize);
pMenuHeader->fMenuEx = (pMenuHeader->wVersion == 1);
if (pMenuHeader->fMenuEx && pMenuHeader->cbHeaderSize) {
lExtra = pMenuHeader->cbHeaderSize;
pMenuHeader->pExtraStuff = (BYTE *)FALLOC( pMenuHeader->cbHeaderSize );
while ( lExtra-- )
pMenuHeader->pExtraStuff[i++] = GetByte( InResFile, lSize);
} else
pMenuHeader->pExtraStuff = NULL;
// add all the items to the list
while ( (((signed long) *lSize) >= 0) && !fQuit) {
if (fStart) {
// start the menu item list
pcMenuItem = pMenuHeader->pMenuItem =
(MENUITEM *)FALLOC( sizeof( MENUITEM));
pcMenuItem->pNextItem = NULL;
fStart = FALSE;
} else {
// add space to the menu list
// allocate space for next Item
pcMenuItem->pNextItem = (MENUITEM *)FALLOC (sizeof( MENUITEM));
pcMenuItem = pcMenuItem->pNextItem;
pcMenuItem->pNextItem = NULL;
}
if (pMenuHeader->fMenuEx) {
pcMenuItem->dwType = GetdWord( InResFile, lSize);
pcMenuItem->dwState = GetdWord( InResFile, lSize);
pcMenuItem->dwMenuID = GetdWord( InResFile, lSize);
pcMenuItem->fItemFlags = wFlags = GetWord(InResFile,lSize); // read type of menu item
if ( (wFlags & MFR_POPUP) ) {
wFlags &= ~MFR_POPUP; // Normalize the menu
wFlags |= MF_POPUP;
}
//pcMenuItem->fItemFlags = wFlags;
} else {
wFlags = GetWord(InResFile,lSize); // read type of menu item
pcMenuItem->fItemFlags = wFlags;
// is it a popup?
if ( ! (pcMenuItem->fItemFlags & POPUP) ) {
pcMenuItem->dwMenuID = (DWORD)GetWord( InResFile, lSize);
}
}
GetName( InResFile, szItemText, lSize);
ptr = (TCHAR *UNALIGNED*)&pcMenuItem->szItemText;
* ptr = (TCHAR *)FALLOC( MEMSIZE( lstrlen( szItemText) + 1));
lstrcpy( (TCHAR *)*ptr, (TCHAR *)szItemText);
if (pMenuHeader->fMenuEx) {
DWordUpFilePointer( InResFile, MYREAD, ftell(InResFile), lSize);
if ( (wFlags & POPUP) ) {
pcMenuItem->dwHelpID = GetdWord( InResFile, lSize);
}
}
if (wFlags & POPUP) {
++wNestingLevel;
}
if (wFlags & ENDMENU) {
if (wNestingLevel) {
--wNestingLevel;
} else {
fQuit = TRUE;
}
}
}
#ifdef RLRES32
WordUpFilePointer( InResFile,
MYREAD,
lStartingOffset,
ftell( InResFile), lSize);
#endif
}
int MyEOF(FILE *fPtr)
{
#ifdef RLRES32
LONG lCurOffset;
LONG lEndOffset;
lCurOffset = ftell(fPtr);
lEndOffset = fseek(fPtr, SEEK_END, 0);
// reset file pointer
fseek( fPtr, lCurOffset, SEEK_SET);
return ((lEndOffset - lCurOffset) < sizeof (DWORD));
#else
return ( feof(fPtr));
#endif
}
void WordUpFilePointer(FILE *fPtr,
BOOL bMode,
LONG lStartingOffset,
LONG lCurrentOffset ,
LONG *plPos)
{
LONG lDelta;
LONG lOffset;
char buffer[]="\0\0\0\0\0\0\0\0";
lDelta = lCurrentOffset - lStartingOffset ;
lOffset = WORDUPOFFSET( lDelta);
if ( bMode == MYREAD ) {
fseek( fPtr, lOffset , SEEK_CUR);
*plPos -= lOffset;
} else {
fwrite( buffer, 1, (size_t) lOffset, fPtr);
*plPos += lOffset;
}
}
void DWordUpFilePointer(
FILE *fPtr,
BOOL bMode,
LONG lCurrentOffset,
DWORD *plPos) //... New file position
{
LONG lOffset;
lOffset = DWORDUPOFFSET( lCurrentOffset);
if ( bMode == MYREAD ) {
fseek( fPtr, lOffset, SEEK_CUR);
if ( plPos != NULL ) {
*plPos -= lOffset;
}
} else {
char buffer[]="\0\0\0\0\0\0\0";
fwrite( buffer, 1, (size_t)lOffset, fPtr);
if ( plPos != NULL ) {
*plPos += lOffset;
}
}
}
//
// Function: FilterRes, Public
//
// Synopsis: Determine whether the resource type is to be filtered
// The non filtered resource are OR together, thus several
// resource types can pass through the filter. Zero indicates
// no resources are to be filterd, 0xFFFF indicates to not filter
// custom resource.
//
//
// Arguments: [wFilter] Indicates the resources which we are to pass thru.
// [pRes] Ptr to Resource header struct
//
//
// Effects:
//
// Returns: TRUE Skip the current resource
// FALSE Use the current resource
//
// Modifies:
//
// History:
// 18-Oct-92 Created TerryRu
//
//
// Notes:
//
BOOL FilterRes( WORD wFilter, RESHEADER *pRes)
{
WORD wCurRes;
wCurRes = pRes->wTypeID;
if ( wFilter == 0 ) {
return ( FALSE);
}
if ( wCurRes == 0 ) {
return ( FALSE);
}
// check for special case for custom resources
if ( wFilter == (WORD)0xFFFF ) {
if ( wCurRes > 16) {
return ( FALSE);
} else {
return ( TRUE);
}
}
return ( ! (wFilter == wCurRes));
}
/**
*
*
* Function: GetResVer
*
* Extracts the version stamping information that
* requires loclization from the resource file. The resource
* information is containd is a USER defined resource
* (ID = 16, Type = 1).
*
* The resource block format:
* WORD wTotLen
* WORD wValLen
* BYTE szKey
* BYTE szVal
*
* All information in the version stampling is contained in
* repeating patters of this block type. All Key, and Value
* fields are padded to start on DWORD boundaries. The
* padding necessary to allign the blocks is not included in
* the wTotLen field, but the padding to allign the fields inside
* the block is.
*
* The following information in the Resource block needs to be
* tokenized:
*
*
* Key Field in StringFileInfo Block
* Value Fields in StringFileInfo String Blocks.
* Code Page and Language ID Fields of VarFileInfo
* Standard Var Blocks.
*
* By defintion, any value string contained in the String requires
* in be localized. It is assumed that there will be two
* StringFileInfo Blocks in each international resource. The first
* one, is to remain in English, while the second Block, is to be
* localized in the language specified by the StingFileInfo Key Field.
* The VarFileInfo Code Page and Language ID Fields localized to
* indicate which StringFileInfo block the file supports.
*
*
* Arguments:
* FILE *InResFile
* File to extracte version stamping from
*
* DWORD *lSize
* Size of version stamping information
*
* VERHEADER *pVerHeader
* pointer to structure to contain parsed version info.
*
* Returns:
*
* pVerHead Buffer contain version stamping resource
* pVerBlock starting location of children blocks
*
* Errors Codes:
* TRUE, Read of Resource sucessfull.
* FALSE, Read of Resource failed.
*
* History:
*
* 11/91. Created TerryRu.
* 10/92. Added Support for NULL Version Blocks TerryRu
* 10/92. Added RLRES32 version DaveWi
**/
#ifdef RLRES32
WORD GetResVer(
FILE *InResFile,
DWORD *plSize,
VERHEAD *pVerHead,
VERBLOCK **pVerBuf)
{
WORD wVerHeadSize;
WORD wcRead;
*pVerBuf = NULL;
//... Read the fixed info that will not change
wVerHeadSize = (WORD)(3 * sizeof(WORD)
+ MEMSIZE( lstrlen( TEXT( "VS_VERSION_INFO")) + 1)
+ sizeof( VS_FIXEDFILEINFO));
wVerHeadSize = DWORDUP(wVerHeadSize);
if ( ResReadBytes( InResFile,
(CHAR *)pVerHead,
(size_t)wVerHeadSize,
plSize) == FALSE ) {
return ( (WORD)-1);
}
//... check for the special case where
//... there is no version block.
if ( wVerHeadSize >= pVerHead->wTotLen) {
return ( 0);
}
//... Version header information read okay
//... so make a buffer for the rest of the res.
*pVerBuf = (VERBLOCK *)FALLOC( DWORDUP( pVerHead->wTotLen) - wVerHeadSize);
//... Now Read Value Information
wcRead = DWORDUP( pVerHead->wTotLen) - wVerHeadSize;
return ( ResReadBytes( InResFile,
(CHAR *)*pVerBuf,
(size_t)wcRead,
plSize) == FALSE ? (WORD)-1 : wcRead);
}
#else //... RLRES32
BOOL GetResVer(
FILE *InResFile,
DWORD *plSize,
VERHEAD *pVerHead,
VERBLOCK **pVerBuf)
{
size_t wcRead = sizeof( VERHEAD);
if ( ResReadBytes( InResFile, (CHAR *) pVerHead, wcRead, plSize) == FALSE ) {
return ( FALSE);
}
// check for the special case where there is no version block
if ( (size_t)pVerHead->wTotLen == wcRead ) {
*pVerBuf = NULL;
return ( TRUE);
}
// Version header information read okay.
*pVerBuf = (VERBLOCK *)FALLOC( DWORDUP( pVerHead->wTotLen) - wcRead);
// Now Read Value Information
return ( ResReadBytes( InResFile,
(CHAR *) *pVerBuf,
(size_t)(DWORDUP( pVerHead->wTotLen) - wcRead),
plSize));
}
#endif //... RLRES32
/**
*
*
* Function: GetNameOrd
* Function to read either the string name, or ordinal number of a
* resource ID. If the ID begins with a 0xff, the resource ID
* is a ordinal number, otherwise the ID is a string.
*
*
* Arguments:
* InResFile, File handle positioned to location of resource
* ID information.
* cFlag, pointer to flag indicating which ID type is used.
* pwID, pointer of ordinal ID number
* pszText pointer, to address of ID string.
*
* Returns:
* cFlag to indicate if ID is string or ordinal number.
* pwID, pszText containing actual ID info.
*
* Errors Codes:
*
* History:
*
* 7/91, Implemented TerryRu
* 9/91, Inserted cFlag as a indicator for ID or string PeterW
* 4/92, Added RLRES32 support TerryRu
**/
void GetNameOrd(
FILE *fpInResFile, //... File to retrieve header from
BOOL UNALIGNED*pbFlag,//... For IDFLAG or 1st byte (WORD in RLRES32) of name/ord
WORD UNALIGNED*pwID, //... For retrieved resource ID (if not a string)
TCHAR *UNALIGNED*pszText, // For retrieved resource name if it is a string
DWORD *plSize) // Keeps count of bytes read (or NULL)
{
WORD fFlag;
//... get type info
#ifdef RLRES16
fFlag = GetByte( fpInResFile, plSize);
#else
fFlag = GetWord( fpInResFile, plSize);
#endif
*pbFlag = fFlag;
if ( fFlag == IDFLAG ) {
//... field is a numbered item
#ifdef RLRES16
*pwID = GetByte( fpInResFile , plSize);
#else
*pwID = GetWord( fpInResFile , plSize);
#endif
*pszText = (TCHAR *)FALLOC( 0);
} else {
static TCHAR szBuf[ 255];
//... field is a named item.
//... put fFlag byte(s) back into stream
//... because it is part of the name.
*pwID = IDFLAG;
#ifdef RLRES16
UnGetByte( fpInResFile, (BYTE) fFlag, plSize);
#else
UnGetWord( fpInResFile, (WORD) fFlag, plSize);
#endif
GetName( fpInResFile, szBuf, plSize);
*pszText = (TCHAR *)FALLOC( MEMSIZE( lstrlen( szBuf) + 1));
lstrcpy( (TCHAR *)*pszText, (TCHAR *)szBuf);
}
}
/**
*
*
* Function: GetResHeader
* Reads the Resource Header information, and stores it in a structure.
*
* Arguments:
* InResFile, File handle positioned to location of Resource Header.
* pResHeader, pointer to Resource Header structure.
*
* Returns:
* pResHeader, containing resource header info.
* plSize, contining size of remaining resource info.
*
* Errors Codes:
* -1, Read of resource header failed.
*
* History:
* 7/91, Implemented TerryRu
* 4/92, Added RLRES32 Support Terryru
*
*
**/
int GetResHeader(
FILE *InResFile, //... File to get header from
RESHEADER UNALIGNED*pResHeader, //... buffer for the retrieved header
DWORD *plSize) //... keeps track of the bytes read from the file
{
#ifdef RLRES32
pResHeader->lSize = GetdWord( InResFile, plSize);
pResHeader->lHeaderSize = GetdWord( InResFile, plSize);
#endif
//... get name ID and type ID
GetNameOrd( InResFile,
(BOOL UNALIGNED*)&pResHeader->bTypeFlag,
(WORD UNALIGNED*)&pResHeader->wTypeID,
(TCHAR *UNALIGNED*)&pResHeader->pszType,
plSize);
GetNameOrd( InResFile,
(BOOL UNALIGNED*)&pResHeader->bNameFlag,
(WORD UNALIGNED*)&pResHeader->wNameID,
(TCHAR *UNALIGNED*)&pResHeader->pszName,
plSize);
#ifdef RLRES32
DWordUpFilePointer( InResFile, MYREAD, ftell( InResFile), plSize);
pResHeader->lDataVersion = GetdWord( InResFile, plSize);
#endif
pResHeader->wMemoryFlags = GetWord( InResFile, plSize);
#ifdef RLRES32
pResHeader->wLanguageId = GetWord( InResFile, plSize);
pResHeader->lVersion = GetdWord( InResFile, plSize);
pResHeader->lCharacteristics = GetdWord( InResFile, plSize);
#else // RLRES32
pResHeader->lSize = (DWORD)GetdWord( InResFile, plSize);
#endif // RLRES32
return ( 0);
}
/**
*
*
* Function: isdup
* Used to determine if the current dialog control id is a duplicate
* of an earlyier control id. If so, isdup returns a flag indicating the
* ID is a duplicate.
*
* Arguments:
* wcCurrent, ID of current dialog control.
* wpIdBuf, array of dialog control ID's processed so far.
* wcItems, number of ID's in wpIdBuf
*
* Returns:
* TRUE, ID is a duplicate
* FALSE, ID is not a duplicate
*
* Errors Codes:
* None.
*
* History:
* 7/91, Implemented TerryRu
*
*
**/
BOOL isdup(WORD wCurrent, WORD *wpIdBuf, WORD wcItems)
{
WORD i;
for (i = 0; i < wcItems; i++) {
if (wCurrent == wpIdBuf[i]) {
return TRUE;
}
}
return FALSE;
}
/**
*
*
* Function: ParseTokCrd
* Places dialog coordinates into a buffer.
*
* Arguments:
* pszCrd, buffer to hold dialog control cordinates.
* pwX, pwY, pwCX, pwCY, dialog control cordiantes.
*
* Returns:
* NA.
*
* Errors Codes:
* NA.
*
* History:
* 7/91, implemented TerryRu
*
*
**/
void ParseTokCrd(
TCHAR *pszCrd,
WORD UNALIGNED * pwX,
WORD UNALIGNED * pwY,
WORD UNALIGNED * pwCX,
WORD UNALIGNED * pwCY)
{
#ifdef RLRES32
int x = 0;
int y = 0;
int cx = 0;
int cy = 0;
_stscanf( pszCrd, TEXT("%d %d %d %d"), &x, &y, &cx, &cy);
*pwX = (WORD) x;
*pwY = (WORD) y;
*pwCX = (WORD) cx;
*pwCY = (WORD) cy;
#else //RLRES32
sscanf( pszCrd, "%hd %hd %hd %hd", pwX, pwY, pwCX, pwCY);
#endif //RLRES32
}
int GetAlignFromString( TCHAR *pszStr)
{
TCHAR *pStyle;
if ( !(pStyle = _tcschr( pszStr, TEXT('('))) ) {
return (-1);
}
while ( *pStyle ) {
if ( *pStyle == TEXT('L') ) {
if ( ! _tcsnicmp( pStyle, TEXT("LEFT"), 4) ) {
return (0);
}
} else if ( *pStyle == TEXT('C') ) {
if ( ! _tcsnicmp( pStyle, TEXT("CENTER"), 6)) {
return (1);
}
} else if ( *pStyle == TEXT('R') ) {
if ( ! _tcsnicmp( pStyle, TEXT("RIGHT"), 5) ) {
return (2);
}
}
pStyle++;
}
return ( -1 ); //none
}
void ParseTokCrdAndAlign(
TCHAR *pszCrd,
CONTROLDATA *pCntrl)
{
int align = 0;
if ( (pCntrl->bClass_Flag == IDFLAG)
&& ((pCntrl->bClass == STATIC)
|| (pCntrl->bClass == EDIT)) ) {
if ( (align = GetAlignFromString( pszCrd)) >= 0 ) {
if ( pCntrl->bClass == STATIC ) {
pCntrl->lStyle &= ~(SS_LEFT|SS_RIGHT|SS_CENTER);
if ( align == 2 )
pCntrl->lStyle |= SS_RIGHT;
else if ( align == 1 )
pCntrl->lStyle |= SS_CENTER;
else
pCntrl->lStyle |= SS_LEFT;
} else {
pCntrl->lStyle &= ~(ES_LEFT|ES_RIGHT|ES_CENTER);
if ( align == 2 )
pCntrl->lStyle |= ES_RIGHT;
else if ( align == 1 )
pCntrl->lStyle |= ES_CENTER;
else
pCntrl->lStyle |= ES_LEFT;
}
}
}
ParseTokCrd( pszCrd,
(WORD UNALIGNED *)&pCntrl->x,
(WORD UNALIGNED *)&pCntrl->y,
(WORD UNALIGNED *)&pCntrl->cx,
(WORD UNALIGNED *)&pCntrl->cy);
}
/**
*
*
* Function: PutResHeader
* Writes Resource Header information contained in the ResHeader structure
* to the ouput resfile. Note, the value of the size field, is not yet
* know, so it is left blank, to be fixed up once the size resource
* determined.
*
* Arguments:
* OutResFile, File handle to Output Resource File.
* ResHeader, Structure containing resource header information.
* pResSizePos, file position buffer
*
* Returns:
* pResSizePos, position at localization of the OutResFile to insert
* the resource size.
*
* Errors Codes:
* None.
*
* History:
* 7/91, Implemented Terryru
* 9/91, Added bTypeFlag to handle case where ID is 255. Peterw
* 4/92, Added RLRES32 support Terryru
*
*
**/
int PutResHeader(
FILE *OutResFile, //... File to write to
RESHEADER ResHeader, //... Header to be written out
fpos_t *pResSizePos, //... For offset at which to write the adjusted res size
DWORD *plSize) //... Keeps track of bytes written
{
int rc;
DWORD ltSize = *plSize;
#ifdef RLRES32
//... save position to res size
rc = fgetpos( OutResFile, pResSizePos);
//... this size is bogus, will fill in later
//... unless we are called in the mail loop
PutdWord( OutResFile, ResHeader.lSize, plSize);
PutdWord( OutResFile, ResHeader.lHeaderSize, plSize);
#endif // RLRES32
PutNameOrd( OutResFile,
ResHeader.bTypeFlag,
ResHeader.wTypeID,
ResHeader.pszType,
plSize);
PutNameOrd( OutResFile,
ResHeader.bNameFlag,
ResHeader.wNameID,
ResHeader.pszName,
plSize);
#ifdef RLRES32
DWordUpFilePointer( OutResFile, MYWRITE, ftell( OutResFile), plSize);
PutdWord( OutResFile, ResHeader.lDataVersion, plSize);
#endif // RLRES32
PutWord( OutResFile, ResHeader.wMemoryFlags, plSize);
#ifdef RLRES32
PutWord( OutResFile, ResHeader.wLanguageId, plSize);
PutdWord( OutResFile, ResHeader.lVersion, plSize);
PutdWord( OutResFile, ResHeader.lCharacteristics, plSize);
#else // RLRES32
//... save position to res size
rc = fgetpos( OutResFile, pResSizePos);
//... this size is bogus, will fill in later
//... unless we are called in the mail loop
PutdWord( OutResFile, ltSize, plSize);
#endif // RLRES32
/////////////////// ??????? why? *plSize = ltSize;
return ( rc);
}
/**
*
*
* Function: PutDialog
* PutDialog writes dialog information to the output resource file as
* it traveres through the linked list of dialog info. If the info
* is of the type that needs to be localized, the corresponding translated
* info is read from the token file, and writen to the resource file.
*
* Arguments:
* OutResFile, The file handle of the res file being generated.
* TokFile, The file handle of the token file containing tokenized dialog info,
* typically this file has been localized.
* ResHeader, Structure containg Dialog resource header information.
* pDialogHdr, Linked list of unlocalized Dialog information.
*
* Returns:
* Translated dialog information written to the Output Resource file.
*
* Errors Codes:
* None,
*
* History:
* 7/91, Implemented. TerryRu
* 1/93, Now tokenize dlg fontnames TerryRu
* 01/93 Support for var length token text MHotchin
*
**/
void PutDialog(FILE *OutResFile,
FILE *TokFile,
RESHEADER ResHeader,
DIALOGHEADER *pDialogHdr)
{
static TOKEN tok;
int found = 0;
WORD wcDup = 0;
WORD *pwIdBuf;
static TCHAR pErrBuf[MAXINPUTBUFFER];
WORD i, j = 0, k = 0;
fpos_t ResSizePos;
CONTROLDATA *pCntlData = pDialogHdr->pCntlData;
DWORD lSize = 0;
LONG lStartingOffset; // used to dword align file
WORD y = 0;
LONG lExtra = 0;
lStartingOffset = ftell(OutResFile);
// Prep for find token call
tok.wType = ResHeader.wTypeID;
tok.wName = ResHeader.wNameID;
tok.wID = 0;
tok.wReserved = ST_TRANSLATED;
lstrcpy( (TCHAR *)tok.szName, (TCHAR *)ResHeader.pszName);
tok.szText = (TCHAR *)FALLOC( MEMSIZE( lstrlen( pDialogHdr->pszCaption) + 1));
lstrcpy( (TCHAR *)tok.szText, (TCHAR *)pDialogHdr->pszCaption);
// write the Dialog Res Header
if ( PutResHeader( OutResFile, ResHeader , &ResSizePos, &lSize)) {
RLFREE( tok.szText);
QuitT( IDS_ENGERR_06, (LPTSTR)IDS_DLGBOX, NULL);
}
// write the dialog header
lSize = 0L;
#ifdef RLRES32
if (pDialogHdr->fDialogEx) {
PutWord( OutResFile, pDialogHdr->wDlgVer, &lSize);
PutWord( OutResFile, pDialogHdr->wSignature, &lSize);
PutdWord( OutResFile, pDialogHdr->dwHelpID, &lSize);
PutdWord( OutResFile, pDialogHdr->lExtendedStyle, &lSize);
PutdWord( OutResFile, pDialogHdr->lStyle, &lSize);
} else {
PutdWord( OutResFile, pDialogHdr->lStyle, &lSize);
PutdWord( OutResFile, pDialogHdr->lExtendedStyle, &lSize);
}
PutWord( OutResFile, pDialogHdr->wNumberOfItems, &lSize);
#else // RLRES32
PutdWord( OutResFile, pDialogHdr->lStyle, &lSize);
PutByte( OutResFile, (BYTE)pDialogHdr->wNumberOfItems, &lSize);
#endif // RLRES32
// check to see if caption was localized
// but don't put it in the res file yet
// order of token is caption, cordinates,
// while in res its cordinates, caption
tok.wFlag = ISCAP;
if ( ! FindToken( TokFile, &tok, ST_TRANSLATED) ) {
// can not find token, terminate
ParseTokToBuf( pErrBuf, &tok);
RLFREE( tok.szText);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
tok.wReserved = ST_TRANSLATED;
// token found, continue
RLFREE( pDialogHdr->pszCaption);
pDialogHdr->pszCaption =
(TCHAR *)FALLOC( MEMSIZE( lstrlen( tok.szText) + 1));
TextToBin( pDialogHdr->pszCaption,
tok.szText,
lstrlen( tok.szText));
RLFREE( tok.szText);
// Now get the cordinates of the token
tok.wFlag = (ISCAP) | (ISCOR);
if ( ! FindToken( TokFile, &tok, ST_TRANSLATED) ) {
// token not found, terminate
ParseTokToBuf(pErrBuf, &tok);
RLFREE( tok.szText);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
tok.wReserved = ST_TRANSLATED;
// token found continue
ParseTokCrd( tok.szText,
(WORD UNALIGNED *)&pDialogHdr->x,
(WORD UNALIGNED *)&pDialogHdr->y,
(WORD UNALIGNED *)&pDialogHdr->cx,
(WORD UNALIGNED *)&pDialogHdr->cy);
RLFREE( tok.szText);
// put cordindates in new res file
PutWord(OutResFile, pDialogHdr->x , &lSize);
PutWord(OutResFile, pDialogHdr->y , &lSize);
PutWord(OutResFile, pDialogHdr->cx , &lSize);
PutWord(OutResFile, pDialogHdr->cy , &lSize);
PutNameOrd(OutResFile,
pDialogHdr->bMenuFlag, // 9/11/91 (PW)
pDialogHdr->wDlgMenuID,
pDialogHdr->pszDlgMenu,
&lSize);
PutNameOrd( OutResFile,
pDialogHdr->bClassFlag, // 9/11/91 (PW)
pDialogHdr->wDlgClassID,
pDialogHdr->pszDlgClass,
&lSize);
PutString(OutResFile, pDialogHdr->pszCaption, &lSize);
if ( pDialogHdr->lStyle & DS_SETFONT ) {
if (gfExtendedTok) {
static CHAR szTmpBuf[30];
// find dialog font size
tok.wFlag = ISDLGFONTSIZE;
tok.wReserved = ST_TRANSLATED;
if ( ! FindToken( TokFile, &tok, ST_TRANSLATED) ) {
// token not found, terminate
ParseTokToBuf(pErrBuf, &tok);
RLFREE( tok.szText);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
#ifdef RLRES32
_WCSTOMBS( szTmpBuf,
tok.szText,
sizeof( szTmpBuf),
lstrlen( tok.szText) + 1);
PutWord (OutResFile, (WORD) atoi(szTmpBuf), &lSize);
if (pDialogHdr->fDialogEx) {
PutWord( OutResFile, pDialogHdr->wWeight , &lSize);
PutWord( OutResFile, pDialogHdr->wItalic , &lSize);
}
#else // RLRES32
PutWord( OutResFile, (WORD) atoi( tok.szText), &lSize);
#endif // RLRES32
RLFREE( tok.szText);
// find dialog font name
tok.wFlag = ISDLGFONTNAME;
tok.wReserved = ST_TRANSLATED;
if ( ! FindToken( TokFile, &tok, ST_TRANSLATED) ) {
// token not found, terminate
ParseTokToBuf(pErrBuf, &tok);
RLFREE( tok.szText);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
PutString( OutResFile, tok.szText, &lSize);
RLFREE( tok.szText);
} else {
PutWord( OutResFile, pDialogHdr->wPointSize , &lSize);
if (pDialogHdr->fDialogEx) {
PutWord( OutResFile, pDialogHdr->wWeight , &lSize);
PutWord( OutResFile, pDialogHdr->wItalic , &lSize);
}
PutString( OutResFile, pDialogHdr->pszFontName, &lSize);
}
}
#ifdef RLRES32
DWordUpFilePointer( OutResFile, MYWRITE, ftell(OutResFile), &lSize);
#endif // RLRES32
//... That was the end of the DialogBoxHeader
//... Now we start with the ControlData's
pwIdBuf = (WORD *)FALLOC( (DWORD)pDialogHdr->wNumberOfItems
* sizeof( WORD));
tok.wReserved = ST_TRANSLATED;
// now place each of the dialog controls in the new res file
for (i = 0; i < pDialogHdr->wNumberOfItems; i ++) {
if (isdup ((WORD)pDialogHdr->pCntlData[i].dwID, pwIdBuf, (WORD)j)) {
tok.wID = (USHORT)wcDup++;
tok.wFlag = ISDUP;
} else {
// wid is unique so store in buffer for dup check
pwIdBuf[j++] = (USHORT)pDialogHdr->pCntlData[i].dwID;
tok.wID = (USHORT)pDialogHdr->pCntlData[i].dwID;
tok.wFlag = 0;
}
if (pDialogHdr->pCntlData[i].pszDlgText[0]) {
tok.szText = NULL;
if (!FindToken(TokFile, &tok, ST_TRANSLATED)) {
// can not find the token, terminate program
ParseTokToBuf(pErrBuf, &tok);
RLFREE( tok.szText);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
tok.wReserved = ST_TRANSLATED;
// token found, continue
RLFREE( pDialogHdr->pCntlData[i].pszDlgText);
pDialogHdr->pCntlData[i].pszDlgText =
(TCHAR *)FALLOC( MEMSIZE( lstrlen( tok.szText) + 1));
if ( pDialogHdr->pCntlData[i].pszDlgText ) {
TextToBin(pDialogHdr->pCntlData[i].pszDlgText,
(TCHAR *)tok.szText,
lstrlen((TCHAR *)tok.szText) + 1);
}
RLFREE( tok.szText);
}
tok.wFlag |= ISCOR;
if ( ! FindToken( TokFile, &tok, ST_TRANSLATED) ) {
ParseTokToBuf( pErrBuf, &tok);
RLFREE( tok.szText);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
tok.wReserved = ST_TRANSLATED;
ParseTokCrdAndAlign( tok.szText, &pDialogHdr->pCntlData[i] );
RLFREE( tok.szText);
#ifdef RLRES32
if (pDialogHdr->fDialogEx) {
PutdWord( OutResFile, pDialogHdr->pCntlData[i].dwHelpID, &lSize);
PutdWord( OutResFile, pDialogHdr->pCntlData[i].lExtendedStyle, &lSize);
PutdWord( OutResFile, pDialogHdr->pCntlData[i].lStyle, &lSize);
} else {
PutdWord( OutResFile, pDialogHdr->pCntlData[i].lStyle, &lSize);
PutdWord( OutResFile, pDialogHdr->pCntlData[i].lExtendedStyle, &lSize);
}
#endif // RLRES32
// now put control info into res file
PutWord (OutResFile, pDialogHdr->pCntlData[i].x , &lSize);
PutWord (OutResFile, pDialogHdr->pCntlData[i].y , &lSize);
PutWord (OutResFile, pDialogHdr->pCntlData[i].cx , &lSize);
PutWord (OutResFile, pDialogHdr->pCntlData[i].cy , &lSize);
if (pDialogHdr->fDialogEx)
PutdWord (OutResFile, pDialogHdr->pCntlData[i].dwID , &lSize);
else
PutWord (OutResFile, (WORD)pDialogHdr->pCntlData[i].dwID , &lSize);
#ifdef RLRES16
// lStyle
PutdWord (OutResFile, pDialogHdr->pCntlData[i].lStyle , &lSize);
PutByte(OutResFile, (BYTE) pDialogHdr->pCntlData[i].bClass, &lSize);
if (! (pDialogHdr->pCntlData[i].bClass & 0x80)) {
PutString (OutResFile, pDialogHdr->pCntlData[i].pszClass , &lSize);
}
#else // RLRES16
PutNameOrd(OutResFile,
pDialogHdr->pCntlData[i].bClass_Flag, // 9/11/91 (PW)
pDialogHdr->pCntlData[i].bClass,
pDialogHdr->pCntlData[i].pszClass,
&lSize);
#endif // RLRES16
PutNameOrd(OutResFile,
pDialogHdr->pCntlData[i].bID_Flag, // 9/11/91 (PW)
pDialogHdr->pCntlData[i].wDlgTextID,
pDialogHdr->pCntlData[i].pszDlgText,
&lSize);
#ifdef RLRES16
PutByte(OutResFile, (BYTE) pDialogHdr->pCntlData[i].unDefined, &lSize);
#else
PutWord(OutResFile, (WORD)pDialogHdr->pCntlData[i].wExtraStuff, &lSize);
if (pDialogHdr->fDialogEx && pDialogHdr->pCntlData[i].wExtraStuff) {
lExtra = pDialogHdr->pCntlData[i].wExtraStuff;
y = 0;
while ( lExtra-- )
PutByte (OutResFile, pDialogHdr->pCntlData[i].pExtraStuff[y++] , &lSize);
}
if ( i < pDialogHdr->wNumberOfItems - 1 ) {
DWordUpFilePointer( OutResFile, MYWRITE, ftell(OutResFile), &lSize);
}
#endif // RLRES16
}
RLFREE( pwIdBuf );
if (!UpdateResSize (OutResFile, &ResSizePos , lSize)) {
QuitT( IDS_ENGERR_07, (LPTSTR)IDS_DLGBOX, NULL);
}
DWordUpFilePointer( OutResFile, MYWRITE, ftell( OutResFile), NULL);
}
/**
*
*
* Function: PutMenu
* Traveres through the linked list of Menu information and writes the info to the
* output resource file. If the infortion is the type that requires localization,
* the translated info is read from the token file and writen to the resource.
* call PutMenuItem to do the actual write of the menu info to the resource.
*
* Arguments:
* OutResFile, File handle of output resource file.
* TokFile, File handle of token file.
* ResHeader, Sturcture contain Menu Resource header information.
* pMenuHdr, Linked list of menu info.
*
* Returns:
* Translated Menu Info written to output resource file.
*
* Errors Codes:
* None.
*
* History:
* 7/91, Implemented. TerryRu.
* 01/93 Changes to allow var length token text. MHotchin
*
**/
void PutMenu(FILE *OutResFile,
FILE *TokFile,
RESHEADER ResHeader,
MENUHEADER *pMenuHdr)
{
DWORD lSize = 0;
static TOKEN tok;
static WORD wcPopUp = 0;
fpos_t ResSizePos;
MENUITEM *pMenuItem = pMenuHdr->pMenuItem;
static TCHAR pErrBuf[ MAXINPUTBUFFER];
LONG lExtra = 0;
WORD i = 0;
// write the Menu Res header
if ( PutResHeader (OutResFile, ResHeader , &ResSizePos, &lSize)) {
QuitT( IDS_ENGERR_06, (LPTSTR)IDS_MENU, NULL);
}
lSize = 0;
// write the Menu header
PutWord (OutResFile, pMenuHdr->wVersion, &lSize);
PutWord (OutResFile, pMenuHdr->cbHeaderSize , &lSize);
if (pMenuHdr->fMenuEx && pMenuHdr->cbHeaderSize) {
lExtra = pMenuHdr->cbHeaderSize;
while ( lExtra-- )
PutByte (OutResFile, pMenuHdr->pExtraStuff[i++] , &lSize);
}
// prep for findtoken call
tok.wType = ResHeader.wTypeID;
tok.wName = ResHeader.wNameID;
tok.wReserved = ST_TRANSLATED;
// for all menu items,
// find translated token if item was tokenized
// write out that menu item, using new translation if available.
while (pMenuItem) {
// if Menu Item is a seperator skip it
if ( *pMenuItem->szItemText ) {
// check for the popup menu items
if ((pMenuItem->fItemFlags & MFR_POPUP) && pMenuHdr->fMenuEx) {
tok.wID = (pMenuItem->dwMenuID == 0 ||
pMenuItem->dwMenuID == 0x0000ffff) ?
(USHORT)pMenuItem->dwMenuID : 0x8000 + wcPopUp++;
tok.wFlag = ISPOPUP;
} else if (pMenuItem->fItemFlags & POPUP) {
tok.wID = wcPopUp++;
tok.wFlag = ISPOPUP;
} else {
tok.wID = (USHORT)pMenuItem->dwMenuID;
tok.wFlag = 0;
}
lstrcpy((TCHAR *)tok.szName, (TCHAR *)ResHeader.pszName);
tok.szText = NULL;
if ( ! FindToken( TokFile, &tok,ST_TRANSLATED) ) {
// can not find token, terminate
ParseTokToBuf(pErrBuf, &tok);
RLFREE( tok.szText);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
tok.wReserved = ST_TRANSLATED;
// token found, continue
RLFREE( pMenuItem->szItemText);
pMenuItem->szItemText=
(TCHAR *)FALLOC( MEMSIZE( lstrlen( tok.szText) + 1));
TextToBin(pMenuItem->szItemText,
(TCHAR *)tok.szText,
lstrlen((TCHAR *)tok.szText)+1);
RLFREE( tok.szText);
}
PutMenuItem (OutResFile, pMenuItem , &lSize, pMenuHdr->fMenuEx);
pMenuItem = pMenuItem->pNextItem;
}
if (!UpdateResSize (OutResFile, &ResSizePos , lSize)) {
QuitT( IDS_ENGERR_07, (LPTSTR)IDS_MENU, NULL);
}
}
/**
*
*
* Function: PutMenuItem
* Called by PutMenu to write a menu item info to the ouput resoruce file.
*
*
* Arguments:
* OutResFile, File handle of output resfile, positioned at location to
* write menu item info.
* pMenuItem, pointer to struture containing menu item info.
* plSize, pointer of variable to count the number of bytes written to
* the resource file. Used later to fixup the resource field in the
* header.
*
*
*
* Returns:
* OutReFile, containing translated menu item info, and plSize containing
* number of bytes written to resource file.
*
* Errors Codes:
* None.
*
* History:
* 7//91, Implemented TerryRu
*
*
**/
void PutMenuItem(FILE * OutResFile, MENUITEM * pMenuItem, DWORD * plSize, BOOL fMenuEx)
{
if (fMenuEx) {
PutdWord( OutResFile, pMenuItem->dwType, plSize);
PutdWord( OutResFile, pMenuItem->dwState, plSize);
PutdWord( OutResFile, pMenuItem->dwMenuID, plSize);
PutWord( OutResFile, pMenuItem->fItemFlags, plSize);
} else {
PutWord( OutResFile, pMenuItem->fItemFlags, plSize);
if ( ! (pMenuItem->fItemFlags & POPUP) ) {
PutWord( OutResFile, (WORD)pMenuItem->dwMenuID, plSize);
}
}
PutString( OutResFile, pMenuItem->szItemText, plSize);
if (fMenuEx) {
DWordUpFilePointer( OutResFile, MYWRITE, ftell(OutResFile), plSize);
if (pMenuItem->fItemFlags & MFR_POPUP) {
PutdWord( OutResFile, pMenuItem->dwHelpID, plSize);
}
}
}
/**
*
*
* Function: PutNameOrd
* Writes either the string or ordinal ID of the resource class or type.
*
*
* Arguments:
* OutResFile, File handle of resource file being generated.
* bFlag, Flag indicating whether ID is a string or ordinal.
* pszText, string ID, if used.
* wId, Ordinal ID if used.
* pLsize, pointer to DWORD counter var.
*
* Returns:
* OutResFile, containing ID info, and plSize containing the number of
* bytes written to the file.
*
* Errors Codes:
* None.
*
* History:
* 7/91, Implemented. TerryRu.
*
*
**/
void PutNameOrd(
FILE *fpOutResFile,
BOOL bFlag,
WORD wID,
TCHAR *pszText,
DWORD *plSize)
{
if ( bFlag == IDFLAG ) {
#ifdef RLRES16
PutByte( fpOutResFile, (BYTE)IDFLAG, plSize);
#else
PutWord( fpOutResFile, (WORD)IDFLAG, plSize);
#endif
PutWord( fpOutResFile, wID, plSize);
} else {
PutString( fpOutResFile, pszText, plSize);
}
}
/**
*
*
* Function: MyAtow,
* Special Ascii to WORD function that works on 4 digit, hex strings.
*
*
* Arguments:
* pszNum, 4 digit hex string to convert to binary.
*
*
* Returns:
* Binary value of pszNumString
*
* Errors Codes:
* None.
*
* History:
* 12//91, Implemented. TerryRu.
*
*
**/
WORD MyAtoX(
CHAR *pszNum, //... array of bytes to scan
int nLen) //... # oc bytes in pszNum to scan
{
WORD wNum = 0;
WORD i;
WORD nPower = 1;
if ( nLen > 4 ) {
QuitT( IDS_ENGERR_16, (LPTSTR)IDS_CHARSTOX, NULL);
}
for ( i = 0; i < nLen; i++, nPower *= 16 ) {
if ( isdigit( pszNum[ i]) ) {
wNum += nPower * (pszNum[i] - '0');
} else {
wNum += nPower * (toupper( pszNum[i]) - 'A' + 10);
}
}
return ( wNum);
}
WORD MyAtoW( CHAR *pszNum)
{
return ( MyAtoX( pszNum, 4));
}
/**
*
*
* Function: PutResVer.
* Writes the Version stamping info to the Resourc file. Unlike most
* put functions, PutResVer writes all the localized version stamping info
* into a memory block, then writes the complete version stamping info to
* the resource file. This was done because of large number of size
* fixups needed for the version stamping info.
*
*
* Arguments:
* OutResFile, file pointer of resource file being generated.
* TokeFile, file pointer of input token file containing localized info.
* ResHeader, Structure containing Resource Header info of the
* version stamping block.
* pVerHdr, address of Version Header. Note this is different the ResHdr.
* pVerBlk, address of Version stamping info, which is contained in
* a series of StringFile, and VarFile info blocks. The number of
* such blocks is determined by the size fields.
*
* Returns:
* OutResFile, containing localized version stamping info.
*
* Errors Codes:
* None.
*
* History:
* 11/91, Implemented. TerryRu.
* 12/91, Various fixes to work with different padding. TerryRu.
* 01/92, Size of Version block updated PeterW.
* 10/92, Now handles NULL Version Blocks TerryRu.
* 10/92, Added RLRES32 version DaveWi
* 01/93, Added var length token text support. MHotchin
**/
#ifdef RLRES32
int PutResVer(
FILE *fpOutResFile,
FILE *fpTokFile,
RESHEADER ResHeader,
VERHEAD *pVerHdr,
VERBLOCK *pVerBlk)
{
TOKEN Tok;
BOOL fInStringInfo = FALSE; //... TRUE if reading StringFileInfo
WORD wTokNum = 0; //... Put into Tok.wID field
WORD wTokContinueNum = 0; //... Put into Tok.wFlag field
WORD wDataLen = 0; //... Length of old resource data
WORD wVerHeadSize; //... Sizeof of the VERHEAD struct
fpos_t lResSizePos;
DWORD lSize = 0L;
int nWritten = 0;
int nNewVerBlockSize = 0;
PVERBLOCK pNewVerStamp = NULL;
PVERBLOCK pNewBlk = NULL;
wVerHeadSize = (WORD)(3 * sizeof(WORD)
+ MEMSIZE( lstrlen( TEXT( "VS_FIXEDFILEINFO")) + 1)
+ sizeof( VS_FIXEDFILEINFO));
wVerHeadSize = DWORDUP(wVerHeadSize);
//... write the Version resouce header
if ( PutResHeader(fpOutResFile, ResHeader, &lResSizePos, &lSize) ) {
QuitT( IDS_ENGERR_06, (LPTSTR)IDS_VERSTAMP, NULL);
}
lSize = 0L;
if ( pVerBlk == NULL ) {
//... We have no version block to write
//... just write the version header and return
nWritten = fwrite((void *)pVerHdr,
sizeof(char),
wVerHeadSize,
fpOutResFile);
if (! UpdateResSize(fpOutResFile, &lResSizePos, (DWORD)nWritten)) {
QuitT( IDS_ENGERR_07, (LPTSTR)IDS_VERSTAMP, NULL);
}
return (1);
}
wDataLen = pVerHdr->wTotLen;
if ( wDataLen == 0 || wDataLen == (WORD)-1 ) {
return (-1); //... No resource data
}
//... Allocate buffer to hold New Version
//... Stamping Block (make ne buffer large to
//... account for expansion of strings during
//... localization).
pNewVerStamp = (PVERBLOCK)FALLOC( (nNewVerBlockSize = wDataLen * 4));
//... Fill new memory block with zeros
memset((void *)pNewVerStamp, 0, nNewVerBlockSize);
//... Copy version header into buffer
memcpy((void *)pNewVerStamp, (void *)pVerHdr, wVerHeadSize);
pNewVerStamp->wLength = wVerHeadSize;
//... Move to start of new version info block
pNewBlk = (PVERBLOCK)((PBYTE)pNewVerStamp + wVerHeadSize);
wDataLen -= wVerHeadSize;
//... Fill in static part of TOKEN struct
Tok.wType = ResHeader.wTypeID;
Tok.wName = IDFLAG;
Tok.szName[0] = TEXT('\0');
Tok.szType[0] = TEXT('\0');
Tok.wReserved = ST_TRANSLATED;
//... Get a token for each string found in res
while (wDataLen > 0) {
WORD wRC;
//... Start of a StringFileInfo block?
#ifdef UNICODE
wRC = (WORD)CompareStringW( MAKELCID( MAKELANGID( LANG_ENGLISH,
SUBLANG_ENGLISH_US),
SORT_DEFAULT),
0,
pVerBlk->szKey,
min( wDataLen, (WORD)STRINGFILEINFOLEN),
STRINGFILEINFO,
min( wDataLen, (WORD)STRINGFILEINFOLEN));
if ( wRC == 2 )
#else
wRC = strncmp( pVerBlk->szKey,
STRINGFILEINFO,
min( wDataLen, (WORD)STRINGFILEINFOLEN));
if ( wRC == SAME )
#endif
{
WORD wStringInfoLen = 0; //... # of bytes in StringFileInfo
WORD wLen = 0;
PVERBLOCK pNewStringInfoBlk; //... Start of this StringFileInfo blk
pNewStringInfoBlk = pNewBlk;
pNewStringInfoBlk->wLength = 0; //... Gets fixed up later
pNewStringInfoBlk->wValueLength = 0;
pNewStringInfoBlk->wType = pVerBlk->wType;
lstrcpy( (TCHAR *)pNewStringInfoBlk->szKey, (TCHAR *)pVerBlk->szKey);
//... Get # of bytes in this StringFileInfo
//... (Length of value is always 0 here)
wStringInfoLen = pVerBlk->wLength;
//... Move to start of first StringTable blk.
wLen = (WORD)(DWORDUP(sizeof(VERBLOCK)
- sizeof(TCHAR)
+ MEMSIZE( STRINGFILEINFOLEN)));
pVerBlk = (PVERBLOCK)((PBYTE)pVerBlk + wLen);
pNewBlk = (PVERBLOCK)((PBYTE)pNewStringInfoBlk + wLen);
DECWORDBY(&wDataLen, wLen);
DECWORDBY(&wStringInfoLen, wLen);
INCWORDBY(&pNewVerStamp->wLength, wLen);
INCWORDBY(&pNewStringInfoBlk->wLength, wLen);
while (wStringInfoLen > 0) {
WORD wStringTableLen = 0;
PVERBLOCK pNewStringTblBlk = NULL;
//... Get # of bytes in this StringTable
//... (Length of value is always 0 here)
wStringTableLen = pVerBlk->wLength;
//... Copy StringFileInfo key into Token name
Tok.wID = wTokNum++;
Tok.wFlag = wTokContinueNum = 0;
lstrcpy((TCHAR *)Tok.szName, (TCHAR *)LANGUAGEINFO);
Tok.szText = NULL;
//... Find token for this
if ( ! FindToken( fpTokFile, &Tok, ST_TRANSLATED) ) {
//... token not found, flag error and exit.
ParseTokToBuf( (TCHAR *)szDHW, &Tok);
RLFREE( pNewVerStamp);
RLFREE( Tok.szText);
QuitT( IDS_ENGERR_05, (TCHAR *)szDHW, NULL);
}
Tok.wReserved = ST_TRANSLATED;
//... Copy lang string into buffer
pNewStringTblBlk = pNewBlk;
pNewStringTblBlk->wLength = 0; //... fixed up later
pNewStringTblBlk->wValueLength = 0;
pNewStringTblBlk->wType = pVerBlk->wType;
CopyMemory( pNewStringTblBlk->szKey,
Tok.szText,
MEMSIZE( LANGSTRINGLEN));
RLFREE( Tok.szText);
//... Move to start of first String.
wLen = DWORDUP( sizeof(VERBLOCK)
- sizeof(TCHAR)
+ MEMSIZE( LANGSTRINGLEN));
pVerBlk = (PVERBLOCK)((PBYTE)pVerBlk + wLen);
pNewBlk = (PVERBLOCK)((PBYTE)pNewBlk + wLen);
DECWORDBY(&wDataLen, wLen);
DECWORDBY(&wStringInfoLen, wLen);
DECWORDBY(&wStringTableLen, wLen);
INCWORDBY(&pNewVerStamp->wLength, wLen);
INCWORDBY(&pNewStringInfoBlk->wLength, wLen);
INCWORDBY(&pNewStringTblBlk->wLength, wLen);
while ( wStringTableLen > 0 ) {
//... Is value a string?
if (pVerBlk->wType == VERTYPESTRING) {
wTokContinueNum = 0;
Tok.wID = wTokNum++;
Tok.wReserved = ST_TRANSLATED;
lstrcpy( (TCHAR *)pNewBlk->szKey,
(TCHAR *)pVerBlk->szKey);
pNewBlk->wLength =
DWORDUP(sizeof(VERBLOCK) +
MEMSIZE(lstrlen((TCHAR *)pNewBlk->szKey)));
Tok.wFlag = wTokContinueNum++;
lstrcpy( (TCHAR *)Tok.szName, (TCHAR *)pVerBlk->szKey);
//... Find token for this
if ( ! FindToken( fpTokFile, &Tok, ST_TRANSLATED) ) {
//... token not found, flag error and exit.
ParseTokToBuf( (TCHAR *)szDHW, &Tok);
RLFREE( pNewVerStamp);
QuitT( IDS_ENGERR_05, (TCHAR *)szDHW, NULL);
}
Tok.wReserved = ST_TRANSLATED;
pNewBlk->wValueLength = (WORD)TextToBinW(
(TCHAR *)((PCHAR)pNewBlk + pNewBlk->wLength),
Tok.szText,
2048);
pNewBlk->wType = VERTYPESTRING;
pNewBlk->wLength += MEMSIZE( pNewBlk->wValueLength);
INCWORDBY(&pNewVerStamp->wLength,
DWORDUP(pNewBlk->wLength));
INCWORDBY(&pNewStringInfoBlk->wLength,
DWORDUP(pNewBlk->wLength));
INCWORDBY(&pNewStringTblBlk->wLength,
DWORDUP(pNewBlk->wLength));
pNewBlk = MoveAlongVer(pNewBlk, NULL, NULL, NULL);
RLFREE( Tok.szText);
}
//... Move to start of next String.
pVerBlk = MoveAlongVer(pVerBlk,
&wDataLen,
&wStringInfoLen,
&wStringTableLen);
} //... END while wStringTableLen
} //... END while wStringInfoLen
} else {
if (_tcsncmp((TCHAR *)pVerBlk->szKey,
(TCHAR *)VARFILEINFO,
min(wDataLen, (WORD)VARFILEINFOLEN)) == SAME) {
WORD wVarInfoLen = 0; //... # of bytes in VarFileInfo
WORD wNewVarInfoLen = 0; //... # of bytes in new VarFileInfo
WORD wLen = 0;
PVERBLOCK pNewVarStart = NULL; //... Start of VarInfo block
wVarInfoLen = pVerBlk->wLength;
pNewVarStart = pNewBlk;
//... Get # of bytes in this VarFileInfo
//... (Length of value is always 0 here)
wLen = (WORD)(DWORDUP(sizeof(VERBLOCK)
- sizeof(TCHAR)
+ MEMSIZE( VARFILEINFOLEN)));
//... Copy non-localized header
//... pNewVarStart->wLength field fixed up later
memcpy((void *)pNewVarStart, (void *)pVerBlk, wLen);
pNewVarStart->wLength = wLen;
//... Move to start of first Var.
pVerBlk = (PVERBLOCK)((PBYTE)pVerBlk + wLen);
pNewBlk = (PVERBLOCK)((PBYTE)pNewBlk + wLen);
DECWORDBY(&wDataLen, wLen);
DECWORDBY(&wVarInfoLen, wLen);
INCWORDBY(&pNewVerStamp->wLength, wLen);
while (wDataLen > 0 && wVarInfoLen > 0) {
if (_tcsncmp((TCHAR *)pVerBlk->szKey,
(TCHAR *)TRANSLATION,
min(wDataLen, (WORD)TRANSLATIONLEN)) == SAME) {
WORD wTransLen = 0;
PBYTE pValue = NULL;
wTokContinueNum = 0;
//... Copy VarFileInfo key into Token
Tok.wID = wTokNum;
Tok.wFlag = wTokContinueNum++;
Tok.szText = NULL;
lstrcpy((TCHAR *)Tok.szName, (TCHAR *)TRANSLATION);
Tok.wReserved = ST_TRANSLATED;
pNewBlk->wLength =
DWORDUP(sizeof(VERBLOCK) +
MEMSIZE(lstrlen((TCHAR *)TRANSLATION)));
INCWORDBY(&pNewVerStamp->wLength, pNewBlk->wLength);
INCWORDBY(&pNewVarStart->wLength, pNewBlk->wLength);
pNewBlk->wValueLength = 0; //... fixed up later
pNewBlk->wType = VERTYPEBINARY;
lstrcpy( (TCHAR *)pNewBlk->szKey, (TCHAR *)TRANSLATION);
lstrcpy((TCHAR *)Tok.szName, (TCHAR *)TRANSLATION);
//... Find token for this
if ( ! FindToken( fpTokFile, &Tok, ST_TRANSLATED) ) {
//... token not found, flag error and exit.
ParseTokToBuf((TCHAR *)szDHW, &Tok);
RLFREE( pNewVerStamp);
RLFREE( Tok.szText);
QuitT( IDS_ENGERR_05, (TCHAR *)szDHW, NULL);
} else {
PCHAR pszLangIDs = NULL;
PCHAR pszLangStart = NULL;
WORD wLangIDCount = 0;
size_t nChars;
//... Get # chars in input string (token text)
wTransLen = (WORD)lstrlen( Tok.szText);
pszLangIDs = (PCHAR)FALLOC( MEMSIZE( wTransLen + 1));
nChars = _WCSTOMBS( pszLangIDs,
Tok.szText,
MEMSIZE( wTransLen + 1),
wTransLen + 1);
RLFREE( Tok.szText);
if ( ! nChars ) {
RLFREE( pNewVerStamp);
RLFREE( pszLangIDs);
QuitT( IDS_ENGERR_14,
(LPTSTR)IDS_INVVERCHAR,
NULL);
}
//... Where to put these bytes?
pValue = (PBYTE)GetVerValue( pNewBlk);
//... Get each lang ID in the token
for ( wLangIDCount = 0, pszLangStart = pszLangIDs;
wTransLen >= 2 * TRANSDATALEN;
++wLangIDCount ) {
USHORT uByte1 = 0;
USHORT uByte2 = 0;
WORD wIndex = 0;
if ( sscanf( pszLangStart,
"%2hx%2hx",
&uByte2,
&uByte1) != 2 ) {
QuitA( IDS_ENGERR_16,
(LPSTR)IDS_ENGERR_21,
pszLangStart);
}
wIndex = wLangIDCount * TRANSDATALEN;
pValue[ wIndex] = (BYTE)uByte1;
pValue[ wIndex + 1] = (BYTE)uByte2;
INCWORDBY(&pNewVerStamp->wLength, TRANSDATALEN);
INCWORDBY(&pNewVarStart->wLength, TRANSDATALEN);
INCWORDBY(&pNewBlk->wLength, TRANSDATALEN);
INCWORDBY(&pNewBlk->wValueLength, TRANSDATALEN);
//... Set up to get next lang ID in token
wTransLen -= 2 * TRANSDATALEN;
pszLangStart += 2 * TRANSDATALEN;
while ( wTransLen > 2 * TRANSDATALEN
&& *pszLangStart != '\0'
&& isspace( *pszLangStart) ) {
wTransLen--;
pszLangStart++;
}
} //... END for ( wLangIDCount = 0 ...
RLFREE( pszLangIDs);
}
Tok.wReserved = ST_TRANSLATED;
} //... END if (_tcsncmp((TCHAR *)pVerBlk->szKey))
//... Move to start of next Var info block.
pVerBlk = MoveAlongVer(pVerBlk,
&wDataLen,
&wVarInfoLen,
NULL);
pNewBlk = MoveAlongVer(pNewBlk, NULL, NULL, NULL);
} //... END while (wDataLen > 0 && wVarInfoLen)
} else {
RLFREE( pNewVerStamp);
QuitT( IDS_ENGERR_14, (LPTSTR)IDS_INVVERBLK, NULL);
}
}
} //... END while (wDataLen)
//... write new version stamping information
//... to the resource file
nWritten = fwrite((void *)pNewVerStamp,
sizeof(char),
(WORD)lSize + pNewVerStamp->wLength,
fpOutResFile);
if ( ! UpdateResSize( fpOutResFile,
&lResSizePos,
lSize + pNewVerStamp->wLength) ) {
RLFREE( pNewVerStamp);
QuitT( IDS_ENGERR_07, (LPTSTR)IDS_VERSTAMP, NULL);
}
RLFREE( pNewVerStamp);
return (0);
}
#else //... #ifdef RLRES32
int PutResVer(
FILE *OutResFile,
FILE *TokFile,
RESHEADER ResHeader,
VERHEAD *pVerHdr,
VERBLOCK *pVerBlk)
{
TCHAR *pszBuf;
fpos_t ResSizePos;
WORD wcLang = 0,
wcBlock = 0;
TOKEN tok;
VERBLOCK *pCurBlk;
VERBLOCK *pNewBlk,
*pNewBlkStart;
TCHAR *pszStr,
pErrBuf[ 128];
WORD *pwVal;
DWORD lTotBlkSize,
lSize = 0;
int wTotLen,
wcCurBlkLen,
wcTransBlkLen,
wcRead;
WORD *pStrBlkSizeLoc,
wStrBlkSize = 0;
int wcBlkLen;
// write the Version resouce header
if ( PutResHeader( OutResFile, ResHeader, &ResSizePos, &lSize) ) {
QuitT( IDS_ENGERR_06, MAKEINTRESOURCE( IDS_VERSTAMP), NULL);
}
lSize = 0L;
if ( pVerBlk == NULL ) {
//... We have no version block to write
//... just write the version header and return
wcRead = fwrite( (void *)pVerHdr,
sizeof( char),
sizeof( VERHEAD),
OutResFile);
if ( ! UpdateResSize( OutResFile, &ResSizePos, (DWORD)wcRead) ) {
QuitT( IDS_ENGERR_07, MAKEINTRESOURCE( IDS_VERSTAMP), NULL);
}
return ( 1);
}
wTotLen = pVerBlk->nTotLen;
// Allocate buffer to hold New Version Stamping Block
pNewBlk = (VERBLOCK *)FALLOC( VERMEM));
// Set new memory block to NULLS
memset( (void *)pNewBlk, 0, VERMEM);
// save start of new version info block
pNewBlkStart = pNewBlk;
wcTransBlkLen = sizeof(VERHEAD);
lSize += wcTransBlkLen;
// Insert version header info into new version info bluffer
memcpy((void *)pNewBlk, (void *)pVerHdr, wcTransBlkLen);
// Position pNewBlk point at location to insert next piece of version info
pNewBlk = (VERBLOCK *) ((char *) pNewBlk + wcTransBlkLen);
// File in static part of TOKEN struct
tok.wType = ResHeader.wTypeID;
tok.wName = IDFLAG;
tok.wReserved = ST_TRANSLATED;
wTotLen = pVerBlk->nTotLen;
pCurBlk = pVerBlk;
tok.wID = wcLang++;
pszStr = pCurBlk->szKey;
wcCurBlkLen = 4 + DWORDUP(lstrlen((TCHAR *)pszStr) + 1);
wTotLen -= wcCurBlkLen;
// Insert StringFileInfo Header into new version info buffer
// this info is not localized
memcpy((void *)pNewBlk, (void *)pCurBlk, wcCurBlkLen);
pszStr=pNewBlk->szKey;
// reposition pointers
pCurBlk = (VERBLOCK *) ((char *) pCurBlk + wcCurBlkLen);
pNewBlk = (VERBLOCK *) ((char *) pNewBlk + wcCurBlkLen);
lSize += wcCurBlkLen;
// Read All the StringTableBlocks
while (wTotLen > 8) {
// For String tables blocks we localizes the key field
tok.wFlag = ISKEY;
wcBlkLen = pCurBlk->nTotLen;
lstrcpy((TCHAR *)tok.szName, TEXT("Language Info"));
tok.wID = wcBlock;
tok.szText = NULL;
if ((pszStr = FindTokenText (TokFile,&tok,ST_TRANSLATED)) == NULL) {
// token not found, flag error and exit.
ParseTokToBuf(pErrBuf, &tok);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
RLFREE(tok.szText);
tok.szText = NULL;
tok.wReserved = ST_TRANSLATED;
// Do not know length of the translated StringTable block
// so set the nValLen to zero , and save location
// of string file block size field, to be fixed up latter.
pNewBlk->nValLen = 0;
pStrBlkSizeLoc = (WORD *) &pNewBlk->nTotLen;
// copy the translated key into that location
TextToBin(pNewBlk->szKey,pszStr,VERMEM-2*sizeof(int));
RLFREE( pszStr);
// Update localized string block count
wStrBlkSize = (WORD) DWORDUP (4 + lstrlen((TCHAR *)pNewBlk->szKey) + 1);
// get the length of the current block, note the
// translated length does not change.
wcCurBlkLen = 4 + pVerBlk->nValLen + DWORDUP(lstrlen((TCHAR *)pCurBlk->szKey) + 1);
lSize += wStrBlkSize;
// Update counter vars
wTotLen -= DWORDUP(wcBlkLen);
wcBlkLen -= wcCurBlkLen;
// repostion pointers
pCurBlk = (VERBLOCK *) ((char *)pCurBlk + DWORDUP(wcCurBlkLen));
pNewBlk = (VERBLOCK *) ((char *)pNewBlk + DWORDUP(wcCurBlkLen)) ;
// Read the String Blocks
// For String Blocks we localize the value fields.
tok.wFlag = ISVAL;
while (wcBlkLen > 0) {
// for string blocks we translate the value fields.
pszStr = pCurBlk->szKey;
lstrcpy((TCHAR *)tok.szName, (TCHAR *)pszStr);
tok.szText = NULL;
if ((pszStr= FindTokenText(TokFile,&tok,ST_TRANSLATED)) == NULL) {
//token not found, flag error and exit.
ParseTokToBuf(pErrBuf, &tok);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
RLFREE(tok.szText);
tok.szText = NULL;
tok.wReserved = ST_TRANSLATED;
lstrcpy((TCHAR *)pNewBlk->szKey, (TCHAR *)pCurBlk->szKey);
// position pointer to location to insert translated token text into pCurBlk
pszBuf = (TCHAR*) pNewBlk + 4 +
DWORDUP(lstrlen((TCHAR *)pNewBlk->szKey) + 1);
// now insert the token text
TextToBin(pszBuf,
pszStr ,
VERMEM - (4+DWORDUP(lstrlen((TCHAR *)pNewBlk->szKey)+1)));
RLFREE( pszStr);
// fix up counter fields in pNewBlk
pNewBlk->nValLen = lstrlen((TCHAR *)pszBuf) + 1;
pNewBlk->nTotLen = 4 + pNewBlk->nValLen +
DWORDUP(lstrlen((TCHAR *)pNewBlk->szKey) + 1);
wcBlkLen -= DWORDUP(pCurBlk->nTotLen);
lSize += DWORDUP(pNewBlk->nTotLen);
wStrBlkSize += DWORDUP(pNewBlk->nTotLen);
pCurBlk = (VERBLOCK *) ((char *) pCurBlk + DWORDUP(pCurBlk->nTotLen));
pNewBlk = (VERBLOCK *) ((char *) pNewBlk + DWORDUP(pNewBlk->nTotLen));
} // while
wcBlock ++;
*pStrBlkSizeLoc = wStrBlkSize ;
}
// this stuff is not translated so just copy it straight over
// Skip past Head of VarInfoBlock
pszStr = pCurBlk->szKey;
wTotLen = pCurBlk->nTotLen;
wcCurBlkLen = 4 + DWORDUP(pVerBlk->nValLen) +
DWORDUP(lstrlen((TCHAR *)pszStr) + 1);
wTotLen -= wcCurBlkLen;
// Insert Head of Var Info Into new block buffer
memcpy((void *)pNewBlk, (void *)pCurBlk, wcCurBlkLen);
pCurBlk = (VERBLOCK *) ((char *) pCurBlk + wcCurBlkLen);
pNewBlk = (VERBLOCK *) ((char *) pNewBlk + wcCurBlkLen);
lTotBlkSize = lSize; // Save the size value for the total Version blk (PW)
lSize += wcCurBlkLen;
wcLang = 0;
// Read the Var Info Blocks
// For Var Info Blocks we localize the Translation Value field.
tok.wFlag = ISVAL;
while (wTotLen > 0) {
pszStr = pCurBlk->szKey;
lstrcpy((TCHAR *)tok.szName, TEXT("Translation"));
tok.wID = wcLang;
tok.szText = NULL;
// Read Language ID
if ((pszStr = FindTokenText(TokFile, &tok,ST_TRANSLATED)) == NULL) {
//token not found, flag error and exit.
ParseTokToBuf(pErrBuf, &tok);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
RLFREE(tok.szText);
tok.szText = NULL;
tok.wReserved = ST_TRANSLATED;
// Found ascii translation string,
// convert it to binary and insert into pCurBlk
pwVal = (WORD *)((char *)pCurBlk +
DWORDUP(4 + lstrlen((TCHAR *)pCurBlk->szKey) + 1));
*pwVal = MyAtoW((CHAR *)pszStr);
pwVal++;
*pwVal = MyAtoW((CHAR *)&pszStr[4]);
wcLang ++;
wTotLen -= DWORDUP(pCurBlk->nTotLen );
memcpy((void *)pNewBlk, (void *)pCurBlk, pCurBlk->nTotLen);
lSize += pCurBlk->nTotLen;
// reposition pointers
pCurBlk = (VERBLOCK *) ((char *) pCurBlk + DWORDUP(pCurBlk->nTotLen) + 4);
pNewBlk = (VERBLOCK *) ((char *) pNewBlk + DWORDUP(pNewBlk->nTotLen) + 4);
RLFREE( pszStr);
}
// Now fixup VerHeader Size. header not localized so
// we do not need to update the value size.
pVerHdr = (VERHEAD *) pNewBlkStart;
pVerHdr->wTotLen = (WORD) lSize;
// Update first size value of Version block (PW)
wcTransBlkLen = sizeof (VERHEAD);
pNewBlk = (VERBLOCK *) ((char *) pNewBlkStart + wcTransBlkLen);
pNewBlk->nTotLen = (WORD) (lTotBlkSize - wcTransBlkLen);
// write new version stamping information to the resource file
wcRead = fwrite( (void *)pNewBlkStart,
sizeof(char),
(size_t)lSize,
OutResFile);
if (!UpdateResSize (OutResFile, &ResSizePos, lSize)) {
QuitT( IDS_ENGERR_07, MAKEINTRESOURCE( IDS_VERSTAMP), NULL);
}
RLFREE( pNewBlkStart);
}
#endif //... RLRES32
/**
*
*
* Function: PutStrHdr.
* Writes the string block info to the resource file.
*
*
* Arguments:
* OutResFile, pointer to resource file being generated.
* TokFile, pointer to token file containing localized string blocks.
* ResHeader, structure containing Resource Header info for the string block.
* pStrHder, Array of strings defined in the string block.
*
*
* Returns:
* OutResFile, containing localized string blocks.
*
* Errors Codes:
* None.
*
*
* History:
* 7/91. Implemented. TerryRu.
* 01/93 Added support for var length token text strings. MHotchin
*
**/
void PutStrHdr( FILE * OutResFile,
FILE * TokFile,
RESHEADER ResHeader,
STRINGHEADER *pStrHdr)
{
static TOKEN tok;
WORD i, j, k;
static TCHAR pErrBuf[MAXINPUTBUFFER];
fpos_t ResSizePos;
DWORD lSize = 0;
// write the Menu Res header
if ( PutResHeader (OutResFile, ResHeader , &ResSizePos, &lSize)) {
QuitT( IDS_ENGERR_06, (LPTSTR)IDS_MENU, NULL);
}
lSize = 0L;
for (i = 0; i < 16; i++) {
tok.wType = ResHeader.wTypeID;
tok.wName = ResHeader.wNameID;
tok.wID = i;
tok.wFlag = 0;
tok.wReserved = ST_TRANSLATED;
tok.szText = NULL;
tok.szName[0] = 0;
lstrcpy((TCHAR *)tok.szName, (TCHAR *)ResHeader.pszName);
if ( ! FindToken(TokFile, &tok, ST_TRANSLATED) ) {
// can not find token, terminate
ParseTokToBuf( pErrBuf, &tok);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
tok.wReserved = ST_TRANSLATED;
// token text found continue
{
static TCHAR szTmp[4160];
int cChars = 0; //... # chars in token text, including nul
cChars = lstrlen( tok.szText) + 1;
j = TextToBin( szTmp, tok.szText, cChars) - 1;
RLFREE( tok.szText);
#ifdef RLRES16
PutByte( OutResFile, (BYTE) j, &lSize);
#else
PutWord( OutResFile, j, &lSize);
#endif
for (k = 0; k < j; k++) {
#ifdef RLRES16
PutByte( OutResFile, szTmp[k], &lSize);
#else
PutWord( OutResFile, szTmp[k], &lSize);
#endif
}
}
}
if (!UpdateResSize (OutResFile, &ResSizePos , lSize)) {
QuitT( IDS_ENGERR_07, (LPTSTR)IDS_MENU, NULL);
}
}
/**
*
*
* Function: GetString.
* Read a block of 16 strings from string block in the resource file.
*
* Arguments:
* InResFile, file pointer to location of string block in the
* resource file.
* lSize, dummy var not used.
*
* Returns:
* pStrHdr containing 16 strings.
*
*
* Errors Codes:
* None.
*
* History:
* 7/91. Implemented. TerryRu.
*
*
**/
STRINGHEADER *GetString( FILE *InResFile, DWORD *lSize)
{
WORD wCharsLeft = 0; // Count of remaining characters in the string
WORD i = 0, j = 0; // Indexes into current block of 16 strings
STRINGHEADER *pStrHdr;
pStrHdr = (STRINGHEADER *)FALLOC( sizeof( STRINGHEADER));
for (j = 0; j < 16; j ++) {
#ifdef RLRES16
wCharsLeft = pStrHdr->sChars[j] = (WORD)GetByte( InResFile, lSize);
#else
wCharsLeft = pStrHdr->wChars[j] = GetWord( InResFile, lSize);
#endif
pStrHdr->pszStrings[j] = (TCHAR *)FALLOC( MEMSIZE( wCharsLeft + 1));
while ( wCharsLeft-- ) {
#ifdef RLRES32
pStrHdr->pszStrings[j][i] = GetWord( InResFile, lSize);
#else //RLRES32
pStrHdr->pszStrings[j][i] = GetByte( InResFile, lSize);
#endif //RLRES32
++i;
}
pStrHdr->pszStrings[j][i] = TEXT('\0');
i = 0;
}
return (pStrHdr);
}
/**
*
*
* Function: ReadInRes.
* Reads a block of info from the input resource file, and
*. then writes the same info to the ouput resource file.
*
*
* Arguments:
* InFile, handle of input file.
* OutFile, handle of ouput file.
* lSize, number of bytes to Copy.
*
*
* Returns:
*
*
* Errors Codes:
* 8, read error.
* 9, write error.
*
* History:
* 7/91, Implemented. TerryRu.
* 11/91, Bug fix to copy more then 64k blocks. PeterW.
* 4/92, Bug fix to copy blocks in smaller chunks to save memory. SteveBl
*
**/
#define CHUNK_SIZE 5120
void ReadInRes( FILE *InFile, FILE *ResFile, DWORD *plSize )
{
if ( *plSize > 0L ) {
PBYTE pBuf;
size_t cNum;
size_t cAmount;
pBuf = (PBYTE)FALLOC( CHUNK_SIZE);
do {
cAmount = (*plSize > (DWORD)CHUNK_SIZE ? CHUNK_SIZE : *plSize);
cNum = fread( (void *)pBuf, sizeof( BYTE), cAmount, InFile);
if ( cNum != cAmount ) {
QuitT( IDS_ENGERR_09, (LPTSTR)IDS_READ, NULL);
}
cNum = fwrite( (void *)pBuf, sizeof( BYTE), cAmount, ResFile);
if ( cNum != cAmount) {
QuitT( IDS_ENGERR_09, (LPTSTR)IDS_WRITE, NULL);
}
*plSize -= cAmount;
} while ( *plSize);
RLFREE( pBuf);
}
}
/**
*
*
* Function: TokAccelTable
* Reads array of accelerator keys, and writes info to be localized
* to the token file.
*
*
* Arguments:
* TokeFile, file pointer of token file.
* ResHeader, Resource Header for Accelerator resource. This info
* is need to generate token id.
* pAccelTable, array of accelerator keys.
* wcTableEntries, number of key definition in Accelerator table
*
*
* Returns:
* Accelerator info to be localized writen to token file.
*
* Errors Codes:
* None.
*
* History:
* 7/91, Implemented. TerryRu.
* 01/93 Added support for var length token text strings. MHotchin
*
**/
void TokAccelTable (FILE *TokFile ,
RESHEADER ResHeader,
ACCELTABLEENTRY * pAccelTable,
WORD wcTableEntries)
{
TOKEN tok;
WORD i, l;
char szBuf[10];
tok.wType = ResHeader.wTypeID;
tok.wName = ResHeader.wNameID;
tok.wFlag = 0;
tok.wReserved = (gbMaster ? ST_NEW : ST_NEW | ST_TRANSLATED);
lstrcpy( tok.szName, ResHeader.pszName);
for (i = 0; i < wcTableEntries ; i ++) {
tok.wFlag = (WORD) pAccelTable[i].fFlags;
tok.wID = i;
// The order of wID and wAscii is reverse to the
// oder in the accelerator structure and the .rc file
sprintf( szBuf, "%hu %hu", pAccelTable[i].wID, pAccelTable[i].wAscii);
l = lstrlenA( szBuf) + 1;
tok.szText = (TCHAR *)FALLOC( MEMSIZE( l));
#ifdef RLRES32
_MBSTOWCS( (TCHAR *)tok.szText, szBuf, l, l);
#else
lstrcpyA(tok.szText, szBuf);
#endif
PutToken(TokFile, &tok);
RLFREE( tok.szText);
}
}
/**
*
*
* Function: TokDialog.
* Travers through linked list of the Dialog defintion, and writes any info
* which requires localization to the token file.
*
*
* Arguments:
* TokFile, file pointer of token file.
* ResHeader, Resource header info of dialog resource. This info is needed
* to generate the token id.
* pDialogHdr, linked list of dialog info. Each dialog control is a node
* in the linked list.
*
*
* Returns:
* The info requiring localization written to the tok file.
*
* Errors Codes:
* None.
*
* History:
* 7/91. Implemented. TerryRu.
* 7/91. Now tokenize all control cordiantes, so they are
* maintained during updates. TerryRu.
* 8/91. Supported signed coordinates. TerryRu.
* 1/93. Now tokenize dlg font names. TerryRu
* 01/93 Add support for var length token text MHotchin
**/
void TokDialog( FILE * TokFile, RESHEADER ResHeader, DIALOGHEADER *pDialogHdr)
{
WORD wcDup = 0;
WORD *pwIdBuf;
WORD i, j = 0, k = 0, l = 0;
static CHAR szTmpBuf[256];
static TCHAR szBuf[256];
static TOKEN tok;
*szTmpBuf = '\0';
*szBuf = TEXT('\0');
// tok the dialog caption
tok.wType = ResHeader.wTypeID;
tok.wName = ResHeader.wNameID;
tok.wID = 0;
tok.wFlag = ISCAP;
tok.wReserved = (gbMaster ? ST_NEW : ST_NEW | ST_TRANSLATED);
lstrcpy ((TCHAR *)tok.szName , (TCHAR *)ResHeader.pszName);
tok.szText = BinToText( pDialogHdr->pszCaption,
lstrlen( pDialogHdr->pszCaption));
PutToken(TokFile, &tok);
RLFREE( tok.szText);
// tok the dialog cordinates
// bug fix, cordinates can be signed.
tok.wFlag = (ISCAP) | (ISCOR);
#ifdef RLRES32
sprintf( szTmpBuf, "%4hd %4hd %4hd %4hd",
pDialogHdr->x,
pDialogHdr->y,
pDialogHdr->cx,
pDialogHdr->cy);
if ( gfShowClass ) {
sprintf( &szTmpBuf[ strlen( szTmpBuf)], " : TDB");
}
_MBSTOWCS( szBuf,
szTmpBuf,
WCHARSIN( sizeof( szBuf)),
ACHARSIN( lstrlenA( szTmpBuf ) + 1 ));
#else
sprintf( szBuf, "%4hd %4hd %4hd %4hd",
pDialogHdr->x,
pDialogHdr->y,
pDialogHdr->cx,
pDialogHdr->cy);
#endif
tok.szText = BinToText( szBuf, lstrlen( szBuf));
PutToken(TokFile, &tok);
RLFREE( tok.szText);
if (gfExtendedTok) {
// toknize dialog fontname, and size
if ( pDialogHdr->lStyle & DS_SETFONT ) {
tok.wFlag = ISDLGFONTSIZE;
sprintf(szTmpBuf, "%hu", pDialogHdr->wPointSize);
l = lstrlenA( szTmpBuf) + 1;
tok.szText = (TCHAR *)FALLOC( MEMSIZE( l));
#ifdef RLRES32
_MBSTOWCS( (TCHAR*) tok.szText, szTmpBuf, l, l);
#else
strcpy(tok.szText, szTmpBuf);
#endif
PutToken(TokFile, &tok);
RLFREE( tok.szText);
tok.wFlag = ISDLGFONTNAME;
tok.szText = (TCHAR *)FALLOC( MEMSIZE( lstrlen( pDialogHdr->pszFontName) + 1));
lstrcpy( tok.szText, pDialogHdr->pszFontName);
PutToken( TokFile, &tok);
RLFREE( tok.szText);
tok.szText = NULL;
}
}
// allocate buffer for for duplicate check
pwIdBuf = (WORD *) FALLOC((DWORD) pDialogHdr->wNumberOfItems * sizeof(WORD));
for (i = 0; i < (WORD) pDialogHdr->wNumberOfItems; i ++) {
if (isdup ((WORD)pDialogHdr->pCntlData[i].dwID, pwIdBuf, (WORD)j)) {
tok.wID = (USHORT)wcDup++;
tok.wFlag = ISDUP;
} else {
// wid is unique so store in buffer for dup check
pwIdBuf[j++] = (USHORT)pDialogHdr->pCntlData[i].dwID;
tok.wID = (USHORT)pDialogHdr->pCntlData[i].dwID;
tok.wFlag = 0;
}
if (pDialogHdr->pCntlData[i].pszDlgText[0]) {
tok.szText = BinToText( pDialogHdr->pCntlData[i].pszDlgText,
lstrlen( (TCHAR *)pDialogHdr->pCntlData[i].pszDlgText));
PutToken(TokFile, &tok);
RLFREE( tok.szText);
}
// now do the dialog corrdinates,
// bug fix, cordinates can be signed.
#ifdef RLRES32
sprintf( szTmpBuf,
"%4hd %4hd %4hd %4hd",
pDialogHdr->pCntlData[i].x,
pDialogHdr->pCntlData[i].y,
pDialogHdr->pCntlData[i].cx,
pDialogHdr->pCntlData[i].cy);
_MBSTOWCS( szBuf,
szTmpBuf,
WCHARSIN( sizeof ( szBuf)),
ACHARSIN( lstrlenA( szTmpBuf ) + 1));
if (gfExtendedTok)
if ( (pDialogHdr->pCntlData[i].bClass_Flag == IDFLAG)
&& ((pDialogHdr->pCntlData[i].bClass == STATIC)
|| (pDialogHdr->pCntlData[i].bClass == EDIT) ) ) {
TCHAR *pszCtrl[3] =
{
TEXT("LEFT"),
TEXT("CENTER"),
TEXT("RIGHT")
};
TCHAR *pszAlign = NULL;
DWORD dwStyle = pDialogHdr->pCntlData[i].lStyle;
if ( pDialogHdr->pCntlData[i].bClass == STATIC ) {
// STATIC class alignment values are constants
// not flags, so we handle them differently
// than we do for the EDIT class below.
dwStyle &= (SS_LEFT|SS_CENTER|SS_RIGHT);
if ( dwStyle == SS_RIGHT ) {
pszAlign = pszCtrl[2];
} else if ( dwStyle == SS_CENTER ) {
pszAlign = pszCtrl[1];
} else if ( dwStyle == SS_LEFT ) {
pszAlign = pszCtrl[0];
}
} else { // Dealing with an EDIT class
if ( dwStyle & ES_RIGHT ) {
pszAlign = pszCtrl[2];
} else if ( dwStyle & ES_CENTER ) {
pszAlign = pszCtrl[1];
} else if ( dwStyle & ES_LEFT ) {
pszAlign = pszCtrl[0];
}
}
if ( pszAlign ) {
_stprintf( &szBuf[ _tcslen( szBuf)], TEXT(" ( %s ) "), pszAlign);
}
}
if ( gfShowClass ) {
if ( pDialogHdr->pCntlData[i].bClass_Flag == IDFLAG ) {
TCHAR *pszCtrl = TEXT("???"); //... DLG box control class
switch ( pDialogHdr->pCntlData[i].bClass ) {
case BUTTON:
{
WORD wTmp;
wTmp = (WORD)(pDialogHdr->pCntlData[i].lStyle & 0xffL);
switch ( wTmp ) {
case BS_PUSHBUTTON:
case BS_DEFPUSHBUTTON:
pszCtrl = TEXT("BUT");
break;
case BS_CHECKBOX:
case BS_AUTOCHECKBOX:
case BS_3STATE:
case BS_AUTO3STATE:
pszCtrl = TEXT("CHX");
break;
case BS_RADIOBUTTON:
case BS_AUTORADIOBUTTON:
pszCtrl = TEXT("OPT");
break;
case BS_GROUPBOX:
case BS_USERBUTTON:
case BS_OWNERDRAW:
case BS_LEFTTEXT:
default:
pszCtrl = TEXT("DIA");
break;
} //... END switch( wTmp )
break;
}
case STATIC:
#ifdef DBCS
//Special hack
//I will remove this code later.
//This code is for fix code between 1.84 and 1.85(STATIC alignment problem)
{
WORD wTmp;
wTmp = (WORD)(pDialogHdr->pCntlData[i].lStyle & (SS_LEFT|SS_CENTER|SS_RIGHT));
if ( (wTmp==SS_CENTER)
|| (wTmp==SS_LEFT) || (wTmp==SS_RIGHT) ) {
pszCtrl = TEXT("TXB");
} else {
pszCtrl = TEXT("ICO");
}
break;
}
#else // not DBCS
pszCtrl = TEXT("TXB");
break;
#endif // DBCS
default:
pszCtrl = TEXT("DIA");
break;
} //... END switch ( pDialogHdr->pCntlData[i].bClass )
wsprintf( &szBuf[ lstrlen( szBuf)], TEXT(" : %s"), pszCtrl);
} else {
wsprintf( &szBuf[ lstrlen( szBuf)],
TEXT(" : \"%s\""),
pDialogHdr->pCntlData[i].pszClass);
}
}
#else
sprintf(szBuf, "%4hd %4hd %4hd %4hd",
pDialogHdr->pCntlData[i].x,
pDialogHdr->pCntlData[i].y,
pDialogHdr->pCntlData[i].cx,
pDialogHdr->pCntlData[i].cy);
#endif
tok.wFlag |= ISCOR;
tok.szText = BinToText( szBuf, lstrlen( (TCHAR *)szBuf));
PutToken(TokFile, &tok);
RLFREE( tok.szText);
tok.szText = NULL;
}
RLFREE( pwIdBuf);
pwIdBuf = NULL;
}
/**
*
*
* Function: TokMenu,
* Travers the linked list of the Menu definition, and writes any info
* requiring localization to the token file.
*
*
* Arguments:
* TokFile, file pointer of token file.
* ResHeader, Resource header of Menu info. Need to generate token ids.
* pMenuHdr, Header of the menu used to access the linked list of token info.
*
* Returns:
* TokenFile contain all info requiring localization.
*
* Errors Codes:
* None.
*
* History:
* 7/91, Implemented. TerryRu.
* 01/93 Added support for var length token text strings. MHotchin
*
**/
void TokMenu(FILE *TokFile , RESHEADER ResHeader, MENUHEADER *pMenuHdr)
{
TOKEN tok;
static WORD wcPopUp = 0;
MENUITEM *pMenuItem;
pMenuItem = pMenuHdr->pMenuItem;
tok.wReserved = (gbMaster? ST_NEW : ST_NEW | ST_TRANSLATED);
while (pMenuItem) {
// if Menu Item is a seperator skip it
if (*pMenuItem->szItemText) {
tok.wType = ResHeader.wTypeID;
tok.wName = ResHeader.wNameID;
// check for the popup menu items
if ((pMenuItem->fItemFlags & MFR_POPUP) && pMenuHdr->fMenuEx) {
tok.wID = (pMenuItem->dwMenuID == 0 ||
pMenuItem->dwMenuID == 0x0000ffff) ?
(USHORT)pMenuItem->dwMenuID : 0x8000 + wcPopUp++;
tok.wFlag = ISPOPUP;
} else if (pMenuItem->fItemFlags & POPUP) {
tok.wID = wcPopUp++;
tok.wFlag = ISPOPUP;
} else {
tok.wID = (USHORT)pMenuItem->dwMenuID;
tok.wFlag = 0;
}
lstrcpy ((TCHAR *)tok.szName, (TCHAR *)ResHeader.pszName);
tok.szText = BinToText( pMenuItem->szItemText,
lstrlen( (TCHAR *)pMenuItem->szItemText));
PutToken (TokFile, &tok);
RLFREE( tok.szText);
}
pMenuItem = pMenuItem->pNextItem;
}
}
/**
*
*
* Function: TokString
* Write the 16 strings contained in the string block.
*
*
* Arguments:
* TokFile, file pointer of Token File.
* ResHeader, Resource header info of String block.
* pStrHdr, Array of 16 strings making up portion of the string table.
*
* Returns:
* Strings written to the Token File.
*
* Errors Codes:
* None.
*
* History:
* 7/91, Implemented. TerryRu.
* 01/93 Added support for var length token text strings. MHotchin
*
**/
void TokString( FILE * TokFile, RESHEADER ResHeader, STRINGHEADER * pStrHdr)
{
// int nLen;
TOKEN tok;
BYTE i;
for ( i = 0; i < 16; i++ ) {
tok.wType = ResHeader.wTypeID;
tok.wName = ResHeader.wNameID;
tok.wID = i;
tok.wFlag = 0;
tok.wReserved = (gbMaster ? ST_NEW : ST_NEW | ST_TRANSLATED);
lstrcpy( (TCHAR *)tok.szName, (TCHAR *)ResHeader.pszName);
// nLen = lstrlen( (TCHAR *)pStrHdr->pszStrings[i]); //DHW_TOOLONG
tok.szText = BinToText( (TCHAR *)pStrHdr->pszStrings[i], pStrHdr->wChars[i]);
PutToken( TokFile, &tok);
RLFREE( tok.szText);
}
}
#ifdef RLRES32
//................................................................
//...
//... Move to start of value field in version resource blocks
//... and adjust remaining-data-sizes accordingly.
PVERBLOCK MoveAlongVer(
PVERBLOCK pVerData, //... Start of current version block
WORD *pw1, //... First word to decrement
WORD *pw2, //... Second word to decrement
WORD *pw3) //... Third word to decrement
{
WORD wLen;
PBYTE pData = (PBYTE)pVerData;
wLen = DWORDUP( pVerData->wLength);
pData += DWORDUP( wLen);
DECWORDBY( pw1, wLen);
DECWORDBY( pw2, wLen);
DECWORDBY( pw3, wLen);
return ( (PVERBLOCK)pData);
}
//....................................................................
TCHAR *GetVerValue( PVERBLOCK pVerData)
{
WORD wLen = sizeof( VERBLOCK);
//... sizeof(VERBLOCK) already includes
//... the size of a WCHAR so we do not
//... need to add 1 to length of the key.
wLen += (WORD) (BYTESINSTRING( pVerData->szKey));
wLen = DWORDUP( wLen); //... Possible DWORD padding
return ( (TCHAR *)((PBYTE)pVerData + wLen));
}
//....................................................................
#endif //... RLRES32
/**
*
*
* Function: TokResVer
* Reads through the Version Info blocks, and writes any info requiring
* localization to the token file.
*
*
* Arguments:
* TokeFile, file pointer of token file.
* ResHeader, Resource Header info for version stamping. Need to generate
* the token IDs.
*
* Returns:
*
* Errors Codes:
* 1, info written to token file.
*
* History:
* 11/91. Implemented. TerryRu.
* 10/92. Added RLRES32 version DaveWi
* 01/93 Added support for var length token text strings. MHotchin
*
**/
#ifdef RLRES32
int TokResVer(
FILE *fpTokFile, //... Output token file
RESHEADER ResHeader, //... Resource header of version resource
VERBLOCK *pVerData, //... Data to tokenize
WORD wDataLen) //... # bytes in pVerData
{
TOKEN Tok;
BOOL fInStringInfo = FALSE; //... TRUE if reading StringFileInfo
WORD wTokNum = 0; //... Put into Tok.wID field
WORD wTokContinueNum = 0; //... Put into Tok.wFlag field
if (wDataLen == 0 || wDataLen == (WORD)-1) {
return (-1); //... No data to tokenize
}
//... Fill in static part of TOKEN struct
Tok.wType = ResHeader.wTypeID;
Tok.wName = IDFLAG;
Tok.szName[0] = TEXT('\0');
Tok.szType[0] = TEXT('\0');
Tok.wReserved = (gbMaster? ST_NEW : ST_NEW | ST_TRANSLATED);
//... Make a token for each string found
while (wDataLen > 0) {
WORD wRC;
//... Start of a StringFileInfo block?
wRC =(WORD)_tcsncmp((TCHAR *)pVerData->szKey,
(TCHAR *)STRINGFILEINFO,
min(wDataLen, (WORD)STRINGFILEINFOLEN));
if (wRC == SAME) {
WORD wStringInfoLen = 0; //... # of bytes in StringFileInfo
WORD wLen = 0;
//... Get # of bytes in this StringFileInfo
//... (Length of value is always 0 here)
wStringInfoLen = pVerData->wLength;
//... Move to start of first StringTable blk.
wLen = (WORD)(DWORDUP(sizeof(VERBLOCK)
- sizeof(WCHAR)
+ MEMSIZE( STRINGFILEINFOLEN)));
pVerData = (PVERBLOCK)((PBYTE)pVerData + wLen);
DECWORDBY(&wDataLen, wLen);
DECWORDBY(&wStringInfoLen, wLen);
while (wStringInfoLen > 0) {
WORD wStringTableLen = 0;
//... Get # of bytes in this StringTable
//... (Length of value is always 0 here)
wStringTableLen = pVerData->wLength;
//... Copy Language BLOCK Info key
//... into Token name
lstrcpy((TCHAR *)Tok.szName, (TCHAR *)LANGUAGEINFO);
//... Copy lang string into token
Tok.szText = (TCHAR *) FALLOC(MEMSIZE(LANGSTRINGLEN+1));
CopyMemory( Tok.szText,
pVerData->szKey,
LANGSTRINGLEN * sizeof ( TCHAR));
Tok.szText[ LANGSTRINGLEN] = TEXT('\0');
Tok.wID = wTokNum++;
Tok.wFlag = 0;
PutToken(fpTokFile, &Tok);
RLFREE( Tok.szText);
//... Move to start of first String.
wLen = DWORDUP(sizeof(VERBLOCK)
- sizeof(WCHAR)
+ MEMSIZE( LANGSTRINGLEN));
pVerData = (PVERBLOCK)((PBYTE)pVerData + wLen);
DECWORDBY(&wDataLen, wLen);
DECWORDBY(&wStringInfoLen, wLen);
DECWORDBY(&wStringTableLen, wLen);
while (wStringTableLen > 0) {
//... Is value a string?
if (pVerData->wType == VERTYPESTRING) {
Tok.wID = wTokNum++;
lstrcpy( (TCHAR *)Tok.szName, (TCHAR *)pVerData->szKey);
Tok.szText = BinToText( GetVerValue( pVerData),
lstrlen( GetVerValue( pVerData)));
PutToken(fpTokFile, &Tok);
RLFREE( Tok.szText);
}
//... Move to start of next String.
pVerData = MoveAlongVer(pVerData,
&wDataLen,
&wStringInfoLen,
&wStringTableLen);
} //... END while (wStringTableLen)
} //... END while (wStringInfoLen)
} else {
if (_tcsncmp((TCHAR *)pVerData->szKey,
(TCHAR *)VARFILEINFO,
min(wDataLen, (WORD)VARFILEINFOLEN)) == SAME) {
WORD wVarInfoLen = 0; //... # of bytes in VarFileInfo
WORD wLen = 0;
//... Get # of bytes in this VarFileInfo
//... (Length of value is always 0 here)
wVarInfoLen = pVerData->wLength;
//... Move to start of first Var.
wLen = (WORD)(DWORDUP(sizeof(VERBLOCK)
- sizeof(WCHAR)
+ MEMSIZE( VARFILEINFOLEN)));
pVerData = (PVERBLOCK)((PBYTE)pVerData + wLen);
DECWORDBY(&wDataLen, wLen);
DECWORDBY(&wVarInfoLen, wLen);
while (wVarInfoLen > 0) {
if (_tcsncmp(pVerData->szKey,
TRANSLATION,
min( wDataLen, (WORD)TRANSLATIONLEN)) == SAME) {
PBYTE pValue = NULL;
WORD wTransLen = 0;
USHORT uByte1 = 0;
USHORT uByte2 = 0;
UINT uLen = 0;
wTokContinueNum = 0;
//... How many bytes are we to tokenize?
wTransLen = pVerData->wValueLength;
//... Where are those bytes?
pValue = (PBYTE)GetVerValue(pVerData);
//... Copy VarFileInfo into Token
lstrcpy((TCHAR *)Tok.szName, (TCHAR *)pVerData->szKey);
//... Allocate a buffer for a space-separated
//... list of the lang ID's in this vresion res.
*szDHW = '\0';
while ( wTransLen >= TRANSDATALEN ) {
//... Write translation language id by
//... reversing byte pairs so the id looks
//... like the language id string. This will
//... have to be undone in PutResVer().
uByte1 = *pValue;
uByte2 = *(pValue + 1);
sprintf( &szDHW[ lstrlenA( szDHW)],
"%02hx%02hx",
uByte2, //... Reverses byte order to
uByte1); //... be like transltn str.
//... Move to next possible translation value
wTransLen -= TRANSDATALEN;
if ( wTransLen >= TRANSDATALEN ) {
pValue += TRANSDATALEN;
strcat( szDHW, " "); //... white-space sep
}
} //... END while ( wTransLen ...
uLen = lstrlenA( szDHW) + 1;
Tok.szText = (TCHAR *)FALLOC( MEMSIZE( uLen));
_MBSTOWCS( (TCHAR *)Tok.szText, szDHW, uLen, (UINT)-1);
Tok.wID = wTokNum;
Tok.wFlag = wTokContinueNum++;
PutToken( fpTokFile, &Tok);
RLFREE( Tok.szText);
} //... END if (_tcsncmp( ...
//... Move to start of next Var info block.
pVerData = MoveAlongVer(pVerData,
&wDataLen,
&wVarInfoLen,
NULL);
} //... END while (wVarInfoLen)
} else {
QuitT( IDS_ENGERR_14, (LPTSTR)IDS_INVVERBLK, NULL);
}
}
} //... END while (wDataLen)
return (0);
}
#else //... RLRES32
int TokResVer(FILE * TokFile, RESHEADER ResHeader, VERBLOCK *pVerBlk)
{
TCHAR szLangIdBuf[20];
TCHAR szCodePageIdBuf[20];
#ifdef RLRES32
CHAR szTmpBuf[20];
#endif
WORD wcLang = 0, wcBlock = 0;
TOKEN tok;
VERBLOCK *pCurBlk;
TCHAR *pszStr;
DWORD *pdwVal;
int wTotLen, nHeadLen, wBlkLen;
// the count fields are int because count may go negative
// because the last DWORD alignment is not counted in the
// byte count.
// Fill in static part of TOKEN struct
tok.wType = ResHeader.wTypeID;
tok.wName = IDFLAG;
tok.wReserved = (gbMaster? ST_NEW : ST_NEW | ST_TRANSLATED);
wTotLen = DWORDUP(pVerBlk->nTotLen);
tok.wID = wcBlock;
pszStr = pVerBlk->szKey;
nHeadLen = 4 + DWORDUP(pVerBlk->nValLen) + DWORDUP(lstrlen((TCHAR *)pszStr) + 1);
wTotLen -= nHeadLen;
pCurBlk = (VERBLOCK *) ((TCHAR *) pVerBlk + nHeadLen);
while (wTotLen > 0) {
// For string file tables we localize the key field
tok.wFlag = ISKEY;
wBlkLen = DWORDUP(pCurBlk->nTotLen);
pszStr = pCurBlk->szKey;
tok.szText = BinToText( pszStr, lstrlen((TCHAR *)pszStr));
lstrcpy((TCHAR *)tok.szName, TEXT("Language Info"));
tok.wID = wcBlock;
PutToken(TokFile, &tok);
RLFREE(tok.szText);
// Get offset to next block;
nHeadLen = 4 +
DWORDUP(pVerBlk->nValLen) +
DWORDUP(lstrlen((TCHAR *)pszStr) + 1);
// Update counter vars
wTotLen -= wBlkLen;
wBlkLen -= nHeadLen;
// set pointer to next ver block
pCurBlk = (VERBLOCK*) ((TCHAR *) pCurBlk + nHeadLen);
// For string blocks we localize the value field.
tok.wFlag = ISVAL;
// Now output the tokens in String Block
while (wBlkLen>0) {
pszStr = pCurBlk->szKey;
lstrcpy((TCHAR *)tok.szName, (TCHAR *)pszStr);
pszStr = (TCHAR *) pCurBlk+4+DWORDUP(lstrlen((TCHAR *)pszStr)+1);
tok.szText = BinToText( pszStr, lstrlen((TCHAR *)pszStr));
PutToken(TokFile, &tok);
RLFREE(tok.szText);
wBlkLen -= DWORDUP(pCurBlk->nTotLen);
pCurBlk = (VERBLOCK *) ((TCHAR *) pCurBlk + DWORDUP(pCurBlk->nTotLen));
}
wcBlock++;
}
// Skip past Head of VarInfoBlock
wTotLen = DWORDUP(pCurBlk->nTotLen);
pszStr = pCurBlk->szKey;
nHeadLen = 4 + DWORDUP(pVerBlk->nValLen) + DWORDUP(lstrlen((TCHAR *)pszStr) + 1);
wTotLen -= nHeadLen;
pCurBlk = (VERBLOCK *)((TCHAR *) pCurBlk + nHeadLen);
wcLang = 0;
// In Var File blocks we localize the value fields.
tok.wFlag = ISVAL;
while (wTotLen > 0) {
TCHAR szTemp[256];
pszStr = pCurBlk->szKey;
tok.wID = wcLang;
lstrcpy((TCHAR *)tok.szName, TEXT("Translation"));
pdwVal = (DWORD *)((TCHAR *) pCurBlk + 4 + DWORDUP(lstrlen((TCHAR *)pszStr) + 1));
#ifdef RLRES32
_itoa(HIWORD(*pdwVal) , szTmpBuf, 16);
_MBSTOWCS( szLangIdBuf,
szTmpBuf,
WCHARSIN( sizeof( szLangIdBuf)),
ACHARSIN( strlen( szTmpBuf ) + 1));
#else
_itoa(HIWORD(*pdwVal) , szLangIdBuf, 16);
#endif
#ifdef RLRES32
_itoa(LOWORD(*pdwVal), szTmpBuf, 16);
_MBSTOWCS( szCodePageIdBuf,
szTmpBuf,
WCHARSIN( sizeof( szCodePageIdBuf)),
ACHARSIN( strlen( szTmpBuf ) + 1));
#else
_itoa(LOWORD(*pdwVal), szCodePageIdBuf, 16);
#endif
// Construct Token Text
// Note leading zeros gets lost in itoa translation
lstrcpy((TCHAR *)szTemp, TEXT("0"));
_tcscat((TCHAR *)szTemp, _tcsupr((TCHAR *)szCodePageIdBuf));
_tcscat((TCHAR *)szTemp, TEXT("0"));
_tcscat((TCHAR *)szTemp, _tcsupr((TCHAR *)szLangIdBuf));
tok.szText = BinToText( szTemp, lstrlen((TCHAR *)szTemp));
PutToken(TokFile, &tok);
RLFREE(tok.szText);
wcLang ++;
wTotLen -= DWORDUP(pCurBlk->nTotLen);
pCurBlk = (VERBLOCK *) ((BYTE *) pCurBlk + DWORDUP(pCurBlk->nTotLen));
}
return (1);
}
#endif //... RLRES32
/**
*
*
* Function: UpdateResSize
* Preforms the Resource Header size fixup, once the size of
* the localized resource block is determined.
*
*
* Arguments:
* OutResFile, File pointer of localized resource file.
* pResSizePos, file location of size file, of the resoure header.
* lSize, size of the localized resource.
*
* Returns:
* The size field fixed up to the value specfied in the lsize.
*
* Errors Codes:
* TRUE, fixup sucessfull.
* Result of fsetpos, and fgetpos call.
*
* History:
*
*
**/
WORD UpdateResSize (FILE * OutResFile, fpos_t *pResSizePos, DWORD lSize)
{
WORD rc;
fpos_t tResSizePos;
if ((rc = (WORD) fgetpos (OutResFile, &tResSizePos)) != 0) {
return (rc);
}
if ((rc = (WORD) fsetpos (OutResFile, pResSizePos)) != 0) {
return (rc);
}
PutdWord(OutResFile, lSize, NULL);
if ((rc = (WORD) fsetpos (OutResFile, &tResSizePos)) != 0) {
return (rc);
}
return (TRUE) ;
}
/**
*
*
* Function:
*
*
* Arguments:
*
* Returns:
*
* Errors Codes:
*
* History:
* 01/93 Added support for var length token text strings. MHotchin
*
**/
void PutAccelTable(FILE *OutResFile,
FILE *TokFile,
RESHEADER ResHeader,
ACCELTABLEENTRY *pAccelTable,
WORD wcAccelEntries)
{
fpos_t ResSizePos = 0;
TOKEN tok;
WORD wcCount = 0;
DWORD lSize = 0L;
TCHAR pErrBuf[MAXINPUTBUFFER];
#ifdef RLRES32
CHAR szTmpBuf[30];
#endif
TCHAR *cpAscii, *cpID;
if ( PutResHeader (OutResFile, ResHeader , &ResSizePos, &lSize)) {
QuitT( IDS_ENGERR_06, (LPTSTR)IDS_ACCELKEY, NULL);
}
lSize = 0L;
// Prep for find token call
tok.wType = ResHeader.wTypeID;
tok.wName = ResHeader.wNameID;
tok.wID = 0;
tok.wFlag = 0;
tok.wReserved = ST_TRANSLATED;
lstrcpy( tok.szName, ResHeader.pszName);
for (wcCount = 0; wcCount < wcAccelEntries; wcCount++) {
tok.wID = wcCount;
tok.wFlag = (WORD) pAccelTable[wcCount].fFlags;
tok.szText = NULL;
if (!FindToken(TokFile, &tok, ST_TRANSLATED)) {
ParseTokToBuf(pErrBuf, &tok);
QuitT( IDS_ENGERR_05, pErrBuf, NULL);
}
tok.wReserved = ST_TRANSLATED;
cpID = (TCHAR *)tok.szText;
cpAscii = _tcschr((TCHAR *)tok.szText, TEXT(' '));
(*cpAscii) = '\0';
cpAscii++;
#ifdef RLRES16
#ifndef PDK2
PutByte (OutResFile, (BYTE) pAccelTable[wcCount].fFlags, &lSize);
#else // PDK2
PutWord (OutResFile, (WORD) pAccelTable[wcCount].fFlags, &lSize);
#endif // PDK2
#else // RLRES16
PutWord (OutResFile, (WORD) pAccelTable[wcCount].fFlags, &lSize);
#endif // RLRES16
#ifdef RLRES32
_WCSTOMBS( szTmpBuf,
cpAscii,
ACHARSIN( sizeof( szTmpBuf)),
lstrlen( cpAscii ) + 1 );
PutWord (OutResFile, (WORD) atoi(szTmpBuf), &lSize);
_WCSTOMBS( szTmpBuf,
cpID,
ACHARSIN( sizeof( szTmpBuf)),
lstrlen( cpID ) + 1 );
PutWord (OutResFile, (WORD) atoi(szTmpBuf), &lSize);
#else // RLRES32
PutWord (OutResFile, (WORD) atoi(cpAscii), &lSize);
PutWord (OutResFile, (WORD) atoi(cpID), &lSize);
#endif // RLRES32
#ifdef RLRES32
PutWord (OutResFile, pAccelTable[wcCount].wPadding, &lSize);
#endif
RLFREE( tok.szText);
} // for
if (!UpdateResSize (OutResFile, &ResSizePos , lSize)) {
QuitT( IDS_ENGERR_07, (LPTSTR)IDS_ACCELKEY, NULL);
}
} // PutAccelTable
void CopyRes(
FILE *fpInResFile,
FILE *fpOutResFile,
RESHEADER *pResHeader,
fpos_t *pResSizePos)
{
DWORD dwTmp = 0L;
PutResHeader( fpOutResFile, *pResHeader, pResSizePos, &dwTmp);
ReadInRes( fpInResFile, fpOutResFile, (DWORD *)&(pResHeader->lSize));
#ifdef RLRES32
DWordUpFilePointer( fpInResFile, MYREAD, ftell( fpInResFile), NULL);
DWordUpFilePointer( fpOutResFile, MYWRITE, ftell( fpOutResFile), NULL);
#endif
}
/////////////////////////////
// GetDlgInit
//
// VC++ uses a new resource type, DLGINIT (#240) when storing the
// initial contents of a list box. The data for this resource type
// is unaligned and containg non-Unicode strings. This function will
// read the resource data from the resource file pfInRes into a linked
// list of structures and will return a pointer to the head of that list.
// The parameter pdwSize contains the size of the resource as read from
// the resources associated resource header prior to this function
// being called.
// NOTE: The first entry in the list is aligned so it is treated
// slightly differently than are the remaining entries.
PDLGINITDATA GetDlgInit( FILE * pfInRes, DWORD *pdwSize)
{
PDLGINITDATA pList = NULL;
PDLGINITDATA pListEntry = NULL;
WORD wTmp = 0;
while ( *pdwSize > sizeof( DWORD) + 2 * sizeof( WORD) ) {
if ( pList ) { // allocate the next entry in the list
pListEntry->pNext = (PDLGINITDATA)FALLOC( sizeof( DLGINITDATA));
pListEntry = pListEntry->pNext;
} else { // allocate the head of the list
pList = (PDLGINITDATA)FALLOC( sizeof( DLGINITDATA));
pListEntry = pList;
}
// save the first two WORD fields of the data
pListEntry->wControlID = GetWord( pfInRes, pdwSize);
pListEntry->wMessageNumber = GetWord( pfInRes, pdwSize);
// get the string's length (incl nul terminator)
pListEntry->dwStringLen = GetdWord( pfInRes, pdwSize);
// get the string
pListEntry->pszString = FALLOC( pListEntry->dwStringLen);
for ( wTmp = 0; (pListEntry->pszString[ wTmp] = GetByte( pfInRes, pdwSize)); ++wTmp )
; // empty loop
}
// Skip the trailing zero-value WORD
SkipBytes( pfInRes, pdwSize);
#ifdef RLRES32
DWordUpFilePointer( pfInRes, MYREAD, ftell( pfInRes), NULL);
#endif
return ( pList);
}
//////////////////////////////
// TokDlgInit
//
// Make tokens in pTokFile out of the data in the pDlgInit linked list.
void TokDlgInit( FILE *pfTokFile, RESHEADER ResHeader, PDLGINITDATA pDlgInit)
{
int nLen = 0;
WORD wCount = 0;
static TOKEN Tok;
#ifdef UNICODE
static TCHAR szTmpBuf[ 256];
#else
PCHAR szTmpBuf = NULL;
#endif
ZeroMemory( &Tok, sizeof( Tok));
Tok.wType = ResHeader.wTypeID;
Tok.wName = ResHeader.wNameID;
Tok.wReserved = (gbMaster ? ST_NEW : ST_NEW | ST_TRANSLATED);
lstrcpy( Tok.szName, ResHeader.pszName);
while ( pDlgInit ) {
Tok.wID = wCount++;
Tok.wFlag = 0;
#ifdef UNICODE
nLen = _MBSTOWCS( szTmpBuf,
pDlgInit->pszString,
WCHARSIN( sizeof( szTmpBuf)),
(UINT)-1);
#else
nLen = strlen( pDlgInit->pszString);
szTmpBuf = pDlgInit->pszString;
#endif
Tok.szText = BinToTextW( szTmpBuf, nLen);
PutToken( pfTokFile, &Tok);
RLFREE( Tok.szText);
pDlgInit = pDlgInit->pNext;
}
}
////////////////////////////
// PutDlgInit
//
// Create a new resource in pfOutRes using the data stored in pDlgInit
// and the token text in the pfTokFile.
void PutDlgInit( FILE *pOutResFile, FILE *pTokFile, RESHEADER ResHeader, PDLGINITDATA pDlgInit)
{
fpos_t ResSizePos = 0;
TOKEN Tok;
DWORD lSize = 0L;
PCHAR pszTmp = NULL;
if ( PutResHeader( pOutResFile, ResHeader , &ResSizePos, &lSize)) {
QuitT( IDS_ENGERR_06, TEXT("DLGINIT"), NULL);
}
lSize = 0L;
// Prep for find token call
Tok.wType = ResHeader.wTypeID;
Tok.wName = ResHeader.wNameID;
Tok.wID = 0;
Tok.wFlag = 0;
Tok.wReserved = ST_TRANSLATED;
lstrcpy( Tok.szName, ResHeader.pszName);
while ( pDlgInit ) {
Tok.szText = NULL;
if ( ! FindToken( pTokFile, &Tok, ST_TRANSLATED)) {
ParseTokToBuf( (LPTSTR)szDHW, &Tok);
QuitT( IDS_ENGERR_05, (LPTSTR)szDHW, NULL);
}
Tok.wReserved = ST_TRANSLATED;
Tok.wID++;
// Write out the two unchanged WORD fields
PutWord( pOutResFile, pDlgInit->wControlID, &lSize);
PutWord( pOutResFile, pDlgInit->wMessageNumber, &lSize);
// write the length of the new string (incl nul)
_WCSTOMBS( szDHW, Tok.szText, DHWSIZE, (UINT)-1);
PutdWord( pOutResFile, strlen( szDHW) + 1, &lSize);
// write the new string (incl nul)
for ( pszTmp = szDHW; *pszTmp; ++pszTmp ) {
PutByte( pOutResFile, *pszTmp, &lSize);
}
PutByte( pOutResFile, '\0', &lSize);
pDlgInit = pDlgInit->pNext;
}
// write the trailing zero-value WORD
PutWord( pOutResFile, 0, &lSize);
if ( ! UpdateResSize( pOutResFile, &ResSizePos, lSize) ) {
QuitT( IDS_ENGERR_07, TEXT("DLGINIT"), NULL);
}
#ifdef RLRES32
DWordUpFilePointer( pOutResFile, MYWRITE, ftell( pOutResFile), NULL);
#endif
}
//////////////////////////////
// ClearDlgInitData
//
// Free the memory allocated for the DlgInitData linked list in GetDlgInit().
void ClearDlgInitData( PDLGINITDATA pDlgInit)
{
while ( pDlgInit ) {
PDLGINITDATA pTmp = pDlgInit->pNext;
RLFREE( pDlgInit->pszString);
RLFREE( pDlgInit);
pDlgInit = pTmp;
}
}