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.
 
 
 
 
 
 

765 lines
36 KiB

//////////////////////////////////////////////////////////////////////////
//
// The format of the token file is:
// [[TYPE ID|RES ID|Item ID|Flags|Status Flags|Item Name]]=
// this is the standar format used by several token file tools in MS.
//
///////////////////////////////////////////////////////////////////////////////
//
// Author: Alessandro Muti
// Date: 12/02/94
//
///////////////////////////////////////////////////////////////////////////////
#include <afx.h>
#include "iodll.h"
#include "main.h"
#include "token.h"
#include "vktbl.h"
#include "imagehlp.h"
extern CMainApp theApp;
/*******************************************************\
This is the part were the real code starts.
The function Bingen generate a binary from a token file.
If the user select the -u options then we perform a
token checking otherwise we'll be compatible with RLMAN
and just trust the ID.
\*******************************************************/
CMainApp::Error_Codes CMainApp::BinGen()
{
Error_Codes iErr = ERR_NOERROR;
CTokenFile m_tokenfile;
CToken * pToken;
iErr = (CMainApp::Error_Codes)m_tokenfile.Open(m_strSrcTok, m_strTgtTok);
if(iErr) {
return iErr;
}
WriteCon(CONERR, "%s\r\n", CalcTab("", 79, '-'));
// Copy the Src binary over the target
// Now we can go and open an handle to the SrcExe file
HANDLE hModule = RSOpenModule(m_strInExe, NULL);
if ((int)(UINT_PTR)hModule < LAST_ERROR) {
// error or warning
WriteCon(CONERR, "%s", CalcTab(m_strInExe, m_strInExe.GetLength()+5, ' '));
IoDllError((int)(UINT_PTR)hModule);
return ERR_FILE_NOTSUPP;
} else {
LPCSTR lpszType = 0L;
LPCSTR lpszRes = 0L;
DWORD dwLang = 0L;
DWORD dwItem = 0L;
DWORD dwItemId;
LPRESITEM lpResItem = NULL;
CString strResName = "";
BOOL bSkip;
BOOL bSkipLang = FALSE;
WORD wCount = 0;
CString strFaceName;
WORD wPointSize;
BYTE bCharSet;
// before we do anything else we have to check how many languages we have in the file
CString strLang;
char szLang[8];
BOOL b_multi_lang = FALSE;
USHORT usInputLang = MAKELANGID(m_usIPriLangId, m_usISubLangId);
if((b_multi_lang = RSLanguages(hModule, strLang.GetBuffer(1024))) && !IsFlag(INPUT_LANG))
{
// this is a multiple language file but we don't have an input language specified
// Fail, but warn the user that he has to set the input language to continue.
strLang.ReleaseBuffer();
theApp.SetReturn(ERROR_FILE_MULTILANG);
WriteCon(CONERR, "Multiple language file. Please specify an input language %s.\r\n", strLang);
goto exit;
}
strLang.ReleaseBuffer();
// Convert the language in to the hex value
if (usInputLang)
sprintf(szLang,"0x%3X", usInputLang);
else
sprintf(szLang,"0x000");
// Check if the input language that we got is a valid one
if(IsFlag(INPUT_LANG) && strLang.Find(szLang)==-1)
{
WriteCon(CONERR, "The language %s in not a valid language for this file.\r\n", szLang);
WriteCon(CONERR, "Valid languages are: %s.\r\n", strLang);
theApp.SetReturn(ERROR_RES_NOT_FOUND);
goto exit;
}
CString strFileName = m_strInExe;
CString strFileType;
CString strTokenDir = "";
int pos = m_strInExe.ReverseFind('\\');
if(pos!=-1)
{
strFileName = m_strInExe.Right(m_strInExe.GetLength()-pos-1);
}
else
if((pos = m_strInExe.ReverseFind(':'))!=-1)
{
strFileName = m_strInExe.Right(m_strInExe.GetLength()-pos-1);
}
pos = m_strTgtTok.ReverseFind('\\');
if(pos==-1)
pos = m_strTgtTok.ReverseFind(':');
if(pos!=-1)
strTokenDir = m_strTgtTok.Left(pos+1);
if (m_strSymPath[0] && m_strSymPath != m_strOutputSymPath)
{
CString strInDebugFile;
CString strOutDebugFile;
HANDLE hDebugFile = FindDebugInfoFile(
strFileName.GetBuffer(MAX_PATH),
m_strSymPath.GetBuffer(MAX_PATH),
strInDebugFile.GetBuffer(MAX_PATH)
);
strInDebugFile.ReleaseBuffer();
if ( hDebugFile == NULL ) {
return (Error_Codes)IoDllError(ERROR_IO_SYMBOLFILE_NOT_FOUND);
}
CloseHandle(hDebugFile);
strOutDebugFile = m_strOutputSymPath + strInDebugFile.Right(strInDebugFile.GetLength()-m_strSymPath.GetLength());
if (!CopyFile(strInDebugFile.GetBuffer(MAX_PATH), strOutDebugFile.GetBuffer(MAX_PATH),FALSE))
{
CString strTmp;
strTmp = strOutDebugFile.Left(strOutDebugFile.GetLength()-strFileName.GetLength()-1);
CreateDirectory(strTmp.GetBuffer(MAX_PATH),NULL);
if (!CopyFile(strInDebugFile.GetBuffer(MAX_PATH), strOutDebugFile.GetBuffer(MAX_PATH),FALSE))
{
return (Error_Codes)IoDllError(ERROR_FILE_SYMPATH_NOT_FOUND);
}
}
}
WriteCon(CONOUT, "Processing\t");
WriteCon(CONBOTH, "%s", CalcTab(strFileName, strFileName.GetLength()+5, ' '));
RSFileType(m_strInExe, strFileType.GetBuffer(10));
strFileType.ReleaseBuffer();
WriteCon(CONBOTH, "%s", CalcTab(strFileType, strFileType.GetLength()+5, ' '));
if(IsFlag(WARNING))
WriteCon(CONBOTH, "\r\n");
while ((lpszType = RSEnumResType(hModule, lpszType)))
{
// Check if is one of the type we care about
if(HIWORD(lpszType)==0)
switch(LOWORD(lpszType))
{
case 1:
case 2:
case 3:
case 4:
case 5:
case 6:
case 9:
case 10:
case 11:
case 12:
case 14:
case 16:
case 23:
case 240:
case 1024:
case 2110:
bSkip = FALSE;
break;
default:
bSkip = TRUE;
}
else
bSkip = FALSE;
lpszRes = 0L;
dwLang = 0L;
dwItem = 0L;
CString strText;
int iTokenErr = 0;
while ((!bSkip) && (lpszRes = RSEnumResId(hModule, lpszType, lpszRes))) {
while ((dwLang = RSEnumResLang(hModule, lpszType, lpszRes, dwLang))) {
// Check if we have to skip this language
if(b_multi_lang && (LOWORD(dwLang)!=usInputLang))
bSkipLang = TRUE;
else
bSkipLang = FALSE;
while ((!bSkipLang) && (dwItem = RSEnumResItemId(hModule, lpszType, lpszRes, dwLang, dwItem))) {
// Now Get the Data
DWORD dwImageSize = RSGetResItemData( hModule,
lpszType,
lpszRes,
dwLang,
dwItem,
m_pBuf,
MAX_BUF_SIZE );
lpResItem = (LPRESITEM)m_pBuf;
if(((wCount++ % 50)==0) && !(IsFlag(WARNING)))
WriteCon(CONOUT, ".");
if (HIWORD(lpszType))
{
if (lstrcmp (lpszType,"REGINST") == 0)
{
//
// Currently there is no id for REGINST defined
// in nt. We just use this 2200 for now.
//
lpResItem->dwTypeID = 2200;
}
}
lpResItem->dwLanguage = theApp.GetOutLang();
// Version stamp use class name as res id
if(lpResItem->lpszResID)
strResName = lpResItem->lpszResID;
else strResName = "";
if(lpResItem->dwTypeID==16)
{
strResName = lpResItem->lpszClassName;
}
switch(LOWORD(lpResItem->dwTypeID))
{
case 4:
{
if(!(lpResItem->dwFlags & MF_POPUP))
dwItemId = (LOWORD(lpResItem->dwItemID)==0xffff ? HIWORD(lpResItem->dwItemID) : lpResItem->dwItemID);
else dwItemId = lpResItem->dwItemID;
}
break;
case 5:
dwItemId = (LOWORD(lpResItem->dwItemID)==0xffff ? HIWORD(lpResItem->dwItemID) : lpResItem->dwItemID);
break;
case 11:
dwItemId = LOWORD(lpResItem->dwItemID);
break;
default:
dwItemId = lpResItem->dwItemID;
}
if (lpResItem->dwTypeID==1 || lpResItem->dwTypeID==12
|| lpResItem->dwTypeID==14)
{
// if user don't want to append redundant cursors,
// bitmaps, and icons, we make it NULL
if (IsFlag(LEANAPPEND) && IsFlag(APPEND)){
dwImageSize=0;
RSUpdateResImage(hModule,lpszType,lpszRes,dwLang,0,lpResItem,dwImageSize);
}
continue;
}
// Is this a bitmap?
if(lpResItem->dwTypeID==2
|| lpResItem->dwTypeID==3
|| lpResItem->dwTypeID==23
|| lpResItem->dwTypeID== 240
|| lpResItem->dwTypeID== 1024
|| lpResItem->dwTypeID== 2110
|| lpResItem->dwTypeID== 2200)
{
if (IsFlag(LEANAPPEND)
&& IsFlag(APPEND)
&& (lpResItem->dwTypeID == 2
|| lpResItem->dwTypeID == 3))
{
dwImageSize=0;
RSUpdateResImage(hModule,lpszType,lpszRes,dwLang,0,lpResItem,dwImageSize);
continue;
}
// Search for a token with this ID
pToken = (CToken *)m_tokenfile.GetNoCaptionToken(lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
strResName);
if(pToken!=NULL)
{
// Get the name of the input image
strText = pToken->GetTgtText();
// Open the file
CFile inputFile;
if(!inputFile.Open(strText,
CFile::modeRead |
CFile::shareDenyNone |
CFile::typeBinary ) &&
!inputFile.Open(strTokenDir + strText,
CFile::modeRead |
CFile::shareDenyNone |
CFile::typeBinary))
{
WriteCon(CONERR, "Input file %s not found! Using Src file data!\r\n", strTokenDir+strText);
goto skip;
}
DWORD dwSize = inputFile.GetLength();
BYTE * pInputBuf = (BYTE*)new BYTE[dwSize];
if(pInputBuf==NULL)
{
WriteCon(CONERR, "Error allocating memory for the image! (%d)\r\n", dwSize);
goto skip;
}
BYTE * pInputBufOrigin = pInputBuf;
inputFile.ReadHuge(pInputBuf, inputFile.GetLength());
CString strTmp = pToken->GetTokenID();
WriteCon(CONWRN, "Using image in file %s for ID %s\"]]!\r\n", strText.GetBuffer(0), strTmp.GetBuffer(0));
BYTE * pInputImage=(BYTE *) new BYTE[dwSize];
DWORD dwImageSize;
// remove the header from the file
switch(lpResItem->dwTypeID)
{
case 2:
{
dwImageSize = dwSize - sizeof(BITMAPFILEHEADER);
pInputBuf += sizeof(BITMAPFILEHEADER);
}
break;
case 3:
{
dwImageSize = dwSize - sizeof(ICONHEADER);
pInputBuf += sizeof(ICONHEADER);
}
case 23:
case 240:
case 1024:
case 2110:
case 2200:
{
dwImageSize = dwSize;
}
break;
default:
break;
}
memcpy(pInputImage, pInputBuf, dwImageSize);
//
// We need to keep output lang info seperately,
// because we dont't have lpResItem to send
// the info to io for icons and bitmaps.
//
DWORD dwUpdLang = theApp.GetOutLang();
// Update the resource
RSUpdateResImage(hModule,lpszType,lpszRes,dwLang,dwUpdLang, pInputImage,dwImageSize);
delete pInputBufOrigin;
delete pInputImage;
}
else
{
goto skip;
}
}
// is this an accelerator
else if(lpResItem->dwTypeID==9)
{
// Search for a token with this ID
pToken = (CToken *)m_tokenfile.GetNoCaptionToken(lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
strResName);
if(pToken!=NULL)
{
CAccel acc(pToken->GetTgtText());
if( (lpResItem->dwFlags & 0x80)==0x80 )
lpResItem->dwFlags = acc.GetFlags() | 0x80;
else
lpResItem->dwFlags = acc.GetFlags();
lpResItem->dwStyle = acc.GetEvent();
if(IoDllError(RSUpdateResItemData(hModule,lpszType,lpszRes,dwLang,dwItem,lpResItem,MAX_BUF_SIZE)))
{
// we have an error, warn the user
WriteCon(CONWRN, "Error updating token\t[[%hu|%hu|%hu|%hu|%hu|\"%s\"]]\r\n",
lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
0,
4,
strResName);
AddNotFound();
}
}
}
else
{
// Search for a token with this ID
pToken = (CToken *)m_tokenfile.GetToken(lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
Format(lpResItem->lpszCaption),
strResName);
}
if(pToken!=NULL) {
iTokenErr = pToken->GetLastError();
if(pToken->GetFlags() & ISEXTSTYLE){
CString strStyle= pToken->GetTgtText();
lpResItem->dwExtStyle = strtol(strStyle, (char**)0,16);
// Get the real Token
pToken = (CToken *)m_tokenfile.GetToken(lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
Format(lpResItem->lpszCaption),
strResName);
if(pToken!=NULL)
wCount++;
}
// Check if is a dialog font name
if(pToken != NULL &&
((pToken->GetFlags() & ISDLGFONTNAME) ||
(pToken->GetFlags() & ISDLGFONTSIZE)))
{
if(theApp.IsFlag(CMainApp::FONTS))
{
int iColon;
CString strTgtFaceName = pToken->GetTgtText();
// This should be the font description token
if( strTgtFaceName.IsEmpty() || ((iColon = strTgtFaceName.Find(':'))==-1) )
WriteCon(CONWRN, "Using Src file FaceName for ID %s\"]]!\r\n", pToken->GetTokenID());
// Check if the dialog has the DS_SETFONT flag set, otherwise let the user
// know that we can't do much with his font description
if( (lpResItem->dwStyle & DS_SETFONT)!=DS_SETFONT )
WriteCon(CONWRN, "Dialog ID %s\"]] is missing the DS_SETFONT bit. Cannot change font!\r\n", pToken->GetTokenID());
else
{
strFaceName = strTgtFaceName.Left(iColon);
strFaceName.TrimRight();
strTgtFaceName = strTgtFaceName.Right(strTgtFaceName.GetLength() - iColon-1);
strTgtFaceName.TrimLeft();
//sscanf( strTgtFaceName, "%d", &wPointSize );
if ((iColon=strTgtFaceName.Find(':'))!=-1) {
wPointSize=(WORD)atoi(strTgtFaceName.Left(iColon));
strTgtFaceName = strTgtFaceName.Right(strTgtFaceName.GetLength() - iColon-1);
bCharSet = (BYTE)atoi(strTgtFaceName);
lpResItem->bCharSet = bCharSet;
}else{
wPointSize=(WORD)atoi(strTgtFaceName);
}
lpResItem->lpszFaceName = strFaceName.GetBuffer(0);
lpResItem->wPointSize = wPointSize;
strFaceName.ReleaseBuffer();
}
}
// Get the real Token
pToken = (CToken *)m_tokenfile.GetToken(lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
Format(lpResItem->lpszCaption),
strResName);
if(pToken!=NULL)
wCount++;
}
}
if(pToken!=NULL && !pToken->GetLastError())
{
strText = UnFormat(pToken->GetTgtText());
if(m_tokenfile.GetTokenSize(pToken, &lpResItem->wX, &lpResItem->wY,
&lpResItem->wcX, &lpResItem->wcY))
wCount++;
lpResItem->lpszCaption = strText.GetBuffer(0);
// Static control and style flag is set. We need
// to take style alignment change as well
if (LOBYTE(lpResItem->wClassName) == 0x82 &&
theApp.IsFlag(CMainApp::ALIGNMENT))
{
//Get style alignment token
pToken = (CToken *)m_tokenfile.GetToken(
lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
Format(lpResItem->lpszCaption),
strResName);
if (pToken!=NULL)
{
wCount++;
CString strStyle=pToken->GetTgtText();
if (strStyle=="SS_CENTER")
lpResItem->dwStyle |= SS_CENTER;
else if (strStyle=="SS_RIGHT")
{
//reset the alignment bit
lpResItem->dwStyle &= 0xfffffffc;
lpResItem->dwStyle |= SS_RIGHT;
}
else if (strStyle=="SS_LEFT")
lpResItem->dwStyle &= 0xfffffffc;
else
//use provided style is wrong. warn!
WriteCon(CONWRN, "Using Src file alignment style for ID %s\"]]!\r\n", pToken->GetTokenID());
}
}
if(IoDllError(RSUpdateResItemData(hModule,lpszType,lpszRes,dwLang,dwItem,lpResItem,MAX_BUF_SIZE)))
{
// we have an error, warn the user
WriteCon(CONWRN, "Error updating token\t[[%hu|%hu|%hu|%hu|%hu|\"%s\"]]\r\n",
lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
0,
4,
strResName);
AddNotFound();
}
strText.ReleaseBuffer();
}
else
{
pToken = (CToken *)m_tokenfile.GetNoCaptionToken(lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
strResName);
if(pToken!=NULL)
{
if(pToken->GetFlags() & ISEXTSTYLE){
CString strStyle= pToken->GetTgtText();
lpResItem->dwExtStyle = strtol(strStyle, (char**)0,16);
// Get the real Token
pToken = (CToken *)m_tokenfile.GetNoCaptionToken(lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
strResName);
if(pToken!=NULL)
wCount++;
}
// Check if is a dialog font name
if(pToken != NULL &&
((pToken->GetFlags() & ISDLGFONTNAME) ||
(pToken->GetFlags() & ISDLGFONTSIZE)))
{
if(theApp.IsFlag(CMainApp::FONTS))
{
int iColon;
CString strTgtFaceName = pToken->GetTgtText();
// This should be the font description token
if( strTgtFaceName.IsEmpty() || ((iColon = strTgtFaceName.Find(':'))==-1) )
WriteCon(CONWRN, "Using Src file FaceName for ID %s\"]]!\r\n", pToken->GetTokenID());
// Check if the dialog has the DS_SETFONT flag set, otherwise let the user
// know that we can't do much with his font description
if( (lpResItem->dwStyle & DS_SETFONT)!=DS_SETFONT )
WriteCon(CONWRN, "Dialog ID %s\"]] is missing the DS_SETFONT bit. Cannot change font!\r\n", pToken->GetTokenID());
else
{
strFaceName = strTgtFaceName.Left(iColon);
strFaceName.TrimRight();
strTgtFaceName = strTgtFaceName.Right(strTgtFaceName.GetLength() - iColon-1);
strTgtFaceName.TrimLeft();
// sscanf( strTgtFaceName, "%d", &wPointSize );
if ((iColon=strTgtFaceName.Find(':'))!=-1){
wPointSize=(WORD)atoi(strTgtFaceName.Left(iColon));
strTgtFaceName = strTgtFaceName.Right(strTgtFaceName.GetLength() - iColon-1);
bCharSet = (BYTE)atoi(strTgtFaceName);
lpResItem->bCharSet = bCharSet;
}else{
wPointSize=(WORD)atoi(strTgtFaceName);
}
lpResItem->lpszFaceName = strFaceName.GetBuffer(0);
lpResItem->wPointSize = wPointSize;
strFaceName.ReleaseBuffer();
}
}
if(m_tokenfile.GetTokenSize(pToken, &lpResItem->wX, &lpResItem->wY,
&lpResItem->wcX, &lpResItem->wcY))
wCount++;
}
// Check if is a dialog size
else if(pToken->GetFlags() & ISCOR)
{
pToken->GetTgtSize(&lpResItem->wX, &lpResItem->wY,
&lpResItem->wcX, &lpResItem->wcY);
}
// Just size and/or font updated
if(IoDllError(RSUpdateResItemData(hModule,lpszType,lpszRes,dwLang,dwItem,lpResItem,MAX_BUF_SIZE)))
{
// we have an error, warn the user
WriteCon(CONWRN, "Error updating token\t[[%hu|%hu|%hu|%hu|%hu|\"%s\"]]\r\n",
lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
0,
4,
strResName);
AddNotFound();
}
}
else
{
switch(LOWORD(lpszType))
{
case 4:
case 5:
case 6:
case 10:
case 11:
// No Token was found for this ID
// Leave it for now but here will come the
// PSEUDO Translation code.
if(strlen(lpResItem->lpszCaption) && !iTokenErr)
{
WriteCon(CONWRN, "ID not found\t[[%hu|%hu|%hu|%hu|%hu|\"%s\"]]\r\n",
lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
0,
4,
strResName);
AddNotFound();
}
break;
case 9:
WriteCon(CONWRN, "ID not found\t[[%hu|%hu|%hu|%hu|%hu|\"%s\"]]\r\n",
lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
0,
4,
strResName);
AddNotFound();
break;
break;
case 16:
if (theApp.IsFlag(CMainApp::NOVERSION) &&
(strResName==TEXT("FileVersion") ||
strResName==TEXT("ProductVersion") ||
strResName==TEXT("Platform"))){
//
// do nothing
//
}else if(strlen(lpResItem->lpszCaption) && !iTokenErr){
WriteCon(CONWRN, "ID not found\t[[%hu|%hu|%hu|%hu|%hu|\"%s\"]]\r\n",
lpResItem->dwTypeID,
lpResItem->dwResID,
dwItemId,
0,
4,
strResName);
AddNotFound();
}
break;
default:
break;
}
// Let's update the item anyway, since the language might have changed
// RSUpdateResItemData(hModule,lpszType,lpszRes,dwLang,dwItem,lpResItem,MAX_BUF_SIZE);
}
}
skip:;
}
}
}
}
iErr=(Error_Codes)IoDllError(RSWriteResFile(hModule, m_strOutExe, NULL,m_strOutputSymPath));
if ((int)iErr > 0){
//WriteCon(CONERR, "%s", CalcTab(m_strOutExe, m_strOutExe.GetLength()+5, ' '));
goto exit;
}
WriteCon(CONBOTH, " %hu(%hu) Items\r\n", wCount, m_wIDNotFound);
// Check if some items were removed from the file
if(wCount<m_tokenfile.GetTokenNumber() ||
m_wIDNotFound ||
m_wCntxChanged ||
m_wResized)
WriteCon(CONWRN, "%s\tToken: ", CalcTab(strFileName, strFileName.GetLength()+5, ' '));
if(wCount<m_tokenfile.GetTokenNumber())
{
SetReturn(ERROR_RET_RESIZED);
WriteCon(CONWRN, "Removed %d ", m_tokenfile.GetTokenNumber()-wCount);
}
if(m_wIDNotFound)
WriteCon(CONWRN, "Not Found %d ", m_wIDNotFound);
if(m_wCntxChanged)
WriteCon(CONWRN, "Contex Changed %d ", m_wCntxChanged);
if(m_wResized)
WriteCon(CONWRN, "Resize Changed %d ", m_wResized);
if(wCount<m_tokenfile.GetTokenNumber() ||
m_wIDNotFound ||
m_wCntxChanged ||
m_wResized)
WriteCon(CONWRN, "\r\n");
}
exit:
RSCloseModule(hModule);
return iErr;
}