mirror of https://github.com/lianthony/NT4.0
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.
515 lines
20 KiB
515 lines
20 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 "vktbl.h"
|
|
|
|
extern CMainApp theApp;
|
|
|
|
#define RECURSIVE 0x10
|
|
#define WARNINGS 0x20
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
CString CreateName(CString & strTokenName, CString strExt, int iID)
|
|
{
|
|
CString strBmpName = strTokenName;
|
|
int iNamePos = strTokenName.ReverseFind('\\');
|
|
if(iNamePos!=-1) {
|
|
strBmpName = strTokenName.Right(strTokenName.GetLength()-iNamePos-1);
|
|
} else if(iNamePos = strTokenName.ReverseFind(':')!=-1){
|
|
strBmpName = strTokenName.Right(strTokenName.GetLength()-iNamePos-1);
|
|
}
|
|
|
|
CString strID = "";
|
|
// subst with ID name
|
|
_itoa(iID++, strID.GetBuffer(10), 10);
|
|
strID.ReleaseBuffer(-1);
|
|
|
|
// Check the length of the name
|
|
iNamePos = strBmpName.Find('.');
|
|
if(iNamePos!=-1)
|
|
strBmpName.SetAt(iNamePos, '_');
|
|
|
|
strBmpName = strBmpName + "_" + strID + strExt;
|
|
return strBmpName;
|
|
}
|
|
|
|
CString CreateName(CString & strTokenName, CString strExt, CString strIdName)
|
|
{
|
|
CString strBmpName = strTokenName;
|
|
int iNamePos = strTokenName.ReverseFind('\\');
|
|
if(iNamePos!=-1) {
|
|
strBmpName = strTokenName.Right(strTokenName.GetLength()-iNamePos-1);
|
|
} else if(iNamePos = strTokenName.ReverseFind(':')!=-1){
|
|
strBmpName = strTokenName.Right(strTokenName.GetLength()-iNamePos-1);
|
|
}
|
|
|
|
iNamePos = strBmpName.Find('.');
|
|
if(iNamePos!=-1)
|
|
strBmpName.SetAt(iNamePos, '_');
|
|
|
|
strBmpName = strBmpName + "_" + strIdName + strExt;
|
|
return strBmpName;
|
|
}
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// This function will parse the source file and create the token file
|
|
CMainApp::Error_Codes CMainApp::TokGen()
|
|
{
|
|
Error_Codes ReturnErr = ERR_NOERROR;
|
|
|
|
WriteCon(CONERR, "%s\r\n", CalcTab("", 79, '-'));
|
|
|
|
// Open the iodll.dll using the first file name
|
|
HANDLE hModule = RSOpenModule(m_strInExe, NULL);
|
|
if ((int)hModule < 100) {
|
|
// error or warning
|
|
WriteCon(CONERR, "%s", CalcTab(m_strInExe, m_strInExe.GetLength()+5, ' '));
|
|
IoDllError((int)hModule);
|
|
return ERR_FILE_NOTSUPP;
|
|
} else {
|
|
// 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(128))) && !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();
|
|
WriteCon(CONERR, "Multiple language file. Please specify an input language %s.\r\n", strLang);
|
|
goto exit;
|
|
}
|
|
|
|
// Convert the language in to the hex value
|
|
sprintf(szLang,"0x%3.3X", usInputLang);
|
|
|
|
// 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);
|
|
goto exit;
|
|
}
|
|
|
|
// Check if the user is extracting the neutral language
|
|
if(!usInputLang)
|
|
usInputLang = 0xFFFF;
|
|
|
|
// Open the output file
|
|
CStdioFile fileOut;
|
|
if(!fileOut.Open(m_strTgtTok, CFile::modeCreate | CFile::modeReadWrite)) {
|
|
WriteCon(CONERR, "Cannot create file: %s\r\n", CalcTab(m_strTgtTok, m_strTgtTok.GetLength()+5, ' '));
|
|
return ERR_FILE_CREATE;
|
|
}
|
|
|
|
CString strBmpDir = "";
|
|
CString strFileName = m_strInExe;
|
|
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)
|
|
{
|
|
strBmpDir = m_strTgtTok.Left(pos+1);
|
|
}
|
|
else
|
|
if((pos = m_strTgtTok.ReverseFind(':'))!=-1)
|
|
{
|
|
strBmpDir = m_strTgtTok.Left(pos+1);
|
|
}
|
|
|
|
// inform the user ...
|
|
WriteCon(CONOUT, "Processing\t");
|
|
WriteCon(CONBOTH, "%s", CalcTab(strFileName, strFileName.GetLength()+5, ' '));
|
|
|
|
LPCSTR lpszType = 0L;
|
|
LPCSTR lpszRes = 0L;
|
|
DWORD dwLang = 0L;
|
|
DWORD dwItem = 0L;
|
|
DWORD dwItemID = 0L;
|
|
LPRESITEM lpResItem = NULL;
|
|
|
|
CString strToken;
|
|
CString strResName;
|
|
CString strCaption;
|
|
WORD wFlag;
|
|
BOOL bSkip = FALSE;
|
|
BOOL bSkipEmpty = FALSE;
|
|
BOOL bSkipLang = FALSE;
|
|
WORD wCount = 0;
|
|
|
|
WORD wMsgCount = 0;
|
|
int iPos = 1;
|
|
int iBmpIdCount = 0;
|
|
|
|
BOOL bVersionStampOnly = TRUE;
|
|
|
|
while ((lpszType = RSEnumResType(hModule, lpszType))) {
|
|
|
|
// Check if is one of the type we care about
|
|
if(HIWORD(lpszType)==0)
|
|
switch(LOWORD(lpszType))
|
|
{
|
|
case 2:
|
|
case 3:
|
|
if(theApp.IsFlag(CMainApp::BITMAPS))
|
|
bSkip = FALSE;
|
|
else bSkip = TRUE;
|
|
break;
|
|
case 4:
|
|
case 5:
|
|
case 6:
|
|
case 9:
|
|
case 10:
|
|
case 11:
|
|
bVersionStampOnly = FALSE;
|
|
case 16:
|
|
bSkip = FALSE;
|
|
break;
|
|
default:
|
|
bSkip = TRUE;
|
|
}
|
|
|
|
lpszRes = 0L;
|
|
dwLang = 0L;
|
|
dwItem = 0L;
|
|
|
|
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)
|
|
WriteCon(CONOUT, ".");
|
|
|
|
// Check if we want or not empty strings
|
|
switch(lpResItem->dwTypeID)
|
|
{
|
|
case 4:
|
|
case 5:
|
|
case 16:
|
|
bSkipEmpty = TRUE;
|
|
break;
|
|
default:
|
|
bSkipEmpty = FALSE;
|
|
break;
|
|
}
|
|
|
|
// Version stamp use class name as res id
|
|
if(lpResItem->lpszResID)
|
|
strResName = lpResItem->lpszResID;
|
|
else strResName = "";
|
|
|
|
dwItemID = lpResItem->dwItemID;
|
|
|
|
// Add font info for dialogs
|
|
if((theApp.IsFlag(CMainApp::FONTS) && (lpResItem->dwTypeID==5) && (dwItemID==0))) {
|
|
// Add font information
|
|
sprintf(strToken.GetBuffer(MAX_STR_SIZE),
|
|
TEXT("[[%u|%u|%u|%u|%u|\"%s\"]]=%s:%hd\n"),
|
|
lpResItem->dwTypeID,
|
|
lpResItem->dwResID,
|
|
dwItemID,
|
|
ISDLGFONTNAME | ISDLGFONTSIZE,
|
|
ST_TRANSLATED,
|
|
strResName.GetBuffer(0),
|
|
Format(lpResItem->lpszFaceName),
|
|
lpResItem->wPointSize);
|
|
|
|
fileOut.WriteString(strToken);
|
|
}
|
|
|
|
strCaption = lpResItem->lpszCaption;
|
|
|
|
// Set the flag
|
|
wFlag = 0;
|
|
|
|
if(!(bSkipEmpty && strCaption.IsEmpty()))
|
|
{
|
|
switch(lpResItem->dwTypeID)
|
|
{
|
|
case 2:
|
|
case 3:
|
|
{
|
|
// create the BMP name
|
|
CString strBmpName;
|
|
if(lpResItem->dwTypeID==2)
|
|
if(lpResItem->dwResID)
|
|
strBmpName = CreateName(strFileName, ".bmp", lpResItem->dwResID);
|
|
else strBmpName = CreateName(strFileName, ".bmp", lpResItem->lpszResID);
|
|
else
|
|
if(lpResItem->dwResID)
|
|
strBmpName = CreateName(strFileName, ".ico", lpResItem->dwResID);
|
|
else strBmpName = CreateName(strFileName, ".ico", lpResItem->lpszResID);
|
|
|
|
// Get the image from the file
|
|
DWORD dwBufSize = RSGetResImage( hModule,
|
|
lpszType,
|
|
lpszRes,
|
|
dwLang,
|
|
NULL,
|
|
0 );
|
|
|
|
BYTE * pBuf = (BYTE*)(new BYTE[dwBufSize]);
|
|
if(pBuf==NULL)
|
|
{
|
|
WriteCon(CONERR, "Warning: Failed to allocate buffer for image! (%d, %d, %s, Size: %d)\r\n",
|
|
lpResItem->dwTypeID, lpResItem->dwResID, lpResItem->lpszResID, dwBufSize);
|
|
break;
|
|
}
|
|
|
|
dwBufSize = RSGetResImage( hModule,
|
|
lpszType,
|
|
lpszRes,
|
|
dwLang,
|
|
pBuf,
|
|
dwBufSize );
|
|
|
|
// write the data in to a file
|
|
CFile BmpFile;
|
|
if(!BmpFile.Open(strBmpDir+strBmpName, CFile::modeCreate | CFile::modeWrite))
|
|
{
|
|
WriteCon(CONERR, "Cannot create file: %s\r\n",
|
|
CalcTab(strBmpDir+strBmpName, strBmpName.GetLength()+strBmpDir.GetLength()+5, ' '));
|
|
delete pBuf;
|
|
break;
|
|
}
|
|
|
|
switch(lpResItem->dwTypeID)
|
|
{
|
|
case 2:
|
|
{
|
|
BITMAPFILEHEADER bmpFileHeader;
|
|
BITMAPINFO * pbmpInfo = (BITMAPINFO *)pBuf;
|
|
DWORD dwNumColor = 0;
|
|
if(pbmpInfo->bmiHeader.biBitCount!=24)
|
|
dwNumColor = ( 1L << pbmpInfo->bmiHeader.biBitCount);
|
|
|
|
bmpFileHeader.bfType = 0x4d42;
|
|
bmpFileHeader.bfSize = (dwBufSize+sizeof(BITMAPFILEHEADER))/4;
|
|
bmpFileHeader.bfReserved1 = 0;
|
|
bmpFileHeader.bfReserved2 = 0;
|
|
bmpFileHeader.bfOffBits = sizeof(BITMAPFILEHEADER) + pbmpInfo->bmiHeader.biSize + dwNumColor*sizeof(RGBQUAD);
|
|
|
|
BmpFile.Write(&bmpFileHeader, sizeof(BITMAPFILEHEADER));
|
|
}
|
|
break;
|
|
case 3:
|
|
{
|
|
ICONHEADER icoHeader;
|
|
BITMAPINFOHEADER * pbmpInfoH = (BITMAPINFOHEADER*)pBuf;
|
|
|
|
icoHeader.idReserved = 0;
|
|
icoHeader.idType = 1;
|
|
icoHeader.idCount = 1;
|
|
icoHeader.bWidth = LOBYTE(pbmpInfoH->biWidth);
|
|
icoHeader.bHeight = LOBYTE(pbmpInfoH->biWidth);
|
|
icoHeader.bColorCount = 16;
|
|
icoHeader.bReserved = 0;
|
|
icoHeader.wPlanes = 0;
|
|
icoHeader.wBitCount = 0;
|
|
icoHeader.dwBytesInRes = dwBufSize;
|
|
icoHeader.dwImageOffset = sizeof(ICONHEADER);
|
|
|
|
BmpFile.Write(&icoHeader, sizeof(ICONHEADER));
|
|
}
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
|
|
BmpFile.Write(pBuf, dwBufSize);
|
|
|
|
BmpFile.Close();
|
|
delete pBuf;
|
|
|
|
strCaption = strBmpName;
|
|
}
|
|
break;
|
|
case 4:
|
|
if(lpResItem->dwFlags & MF_POPUP) {
|
|
wFlag = ISPOPUP;
|
|
|
|
// check if this popup has a valid ID
|
|
if (LOWORD(dwItemID)==0xffff)
|
|
wFlag |= OLD_POPUP_ID;
|
|
|
|
dwItemID = (LOWORD(dwItemID)==0xffff ? HIWORD(dwItemID) : dwItemID);
|
|
}
|
|
break;
|
|
case 5:
|
|
if(dwItemID==0) {
|
|
wFlag = ISCAP;
|
|
}
|
|
|
|
// check if this is a duplicated id
|
|
if (LOWORD(dwItemID)==0xffff)
|
|
wFlag |= ISDUP;
|
|
|
|
dwItemID = (LOWORD(dwItemID)==0xffff ? HIWORD(dwItemID) : dwItemID);
|
|
break;
|
|
case 9:
|
|
{
|
|
CAccel accel(lpResItem->dwFlags, lpResItem->dwStyle);
|
|
strCaption = accel.GetText();
|
|
|
|
// check if this is a duplicated ID
|
|
if(HIWORD(dwItemID))
|
|
{
|
|
wFlag |= ISDUP;
|
|
}
|
|
}
|
|
break;
|
|
case 11:
|
|
dwItemID = LOWORD(dwItemID);
|
|
break;
|
|
case 16:
|
|
strResName = lpResItem->lpszClassName;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
|
|
// Create the token file
|
|
if(lpResItem->dwTypeID==11 && theApp.IsFlag(CMainApp::SPLIT))
|
|
{
|
|
// Search for the \r\n and replace them
|
|
while((iPos = strCaption.Find("\r\n"))!=-1)
|
|
{
|
|
sprintf(strToken.GetBuffer(MAX_STR_SIZE),
|
|
TEXT("[[%u|%u|%u|%u|%u|\"%s\"]]=%s\\r\\n\n"),
|
|
lpResItem->dwTypeID,
|
|
lpResItem->dwResID,
|
|
dwItemID,
|
|
wFlag | wMsgCount++,
|
|
ST_TRANSLATED,
|
|
strResName.GetBuffer(0),
|
|
Format(strCaption.Left(iPos)));
|
|
|
|
strCaption = strCaption.Right(strCaption.GetLength()-2-iPos);
|
|
fileOut.WriteString(strToken);
|
|
}
|
|
wMsgCount = 0;
|
|
}
|
|
else
|
|
{
|
|
sprintf(strToken.GetBuffer(MAX_STR_SIZE),
|
|
TEXT("[[%u|%u|%u|%u|%u|\"%s\"]]=%s\n"),
|
|
lpResItem->dwTypeID,
|
|
lpResItem->dwResID,
|
|
dwItemID, /*(LOWORD(dwItemID)==0xffff ? HIWORD(dwItemID) : dwItemID),*/
|
|
wFlag,
|
|
ST_TRANSLATED,
|
|
strResName.GetBuffer(0),
|
|
Format(strCaption));
|
|
|
|
fileOut.WriteString(strToken);
|
|
}
|
|
|
|
// If this is a dialog box add the coordinates
|
|
if(lpResItem->dwTypeID==5)
|
|
{
|
|
sprintf(strToken.GetBuffer(MAX_STR_SIZE),
|
|
TEXT("[[%u|%u|%u|%u|%u|\"%s\"]]=%hu %hu %hu %hu\n"),
|
|
lpResItem->dwTypeID,
|
|
lpResItem->dwResID,
|
|
(LOWORD(dwItemID)==0xffff ? HIWORD(dwItemID) : dwItemID),
|
|
wFlag | ISCOR,
|
|
ST_TRANSLATED,
|
|
strResName.GetBuffer(0),
|
|
lpResItem->wX,
|
|
lpResItem->wY,
|
|
lpResItem->wcX,
|
|
lpResItem->wcY);
|
|
|
|
fileOut.WriteString(strToken);
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
// If this is a dialog box add the coordinates
|
|
if(lpResItem->dwTypeID==5) {
|
|
|
|
sprintf(strToken.GetBuffer(MAX_STR_SIZE),
|
|
TEXT("[[%u|%u|%u|%u|%u|\"%s\"]]=%hu %hu %hu %hu\n"),
|
|
lpResItem->dwTypeID,
|
|
lpResItem->dwResID,
|
|
(LOWORD(dwItemID)==0xffff ? HIWORD(dwItemID) : dwItemID),
|
|
wFlag | ISCOR,
|
|
ST_TRANSLATED,
|
|
strResName.GetBuffer(0),
|
|
lpResItem->wX,
|
|
lpResItem->wY,
|
|
lpResItem->wcX,
|
|
lpResItem->wcY);
|
|
|
|
fileOut.WriteString(strToken);
|
|
}
|
|
}
|
|
} // end while
|
|
}
|
|
}
|
|
}
|
|
|
|
fileOut.Close();
|
|
|
|
// Check the size of the new file and remove it if empty...
|
|
CFileStatus fstat;
|
|
if(CFile::GetStatus(m_strTgtTok, fstat))
|
|
if(fstat.m_size==0)
|
|
CFile::Remove(m_strTgtTok);
|
|
|
|
WriteCon(CONBOTH, " %hu Items\r\n", wCount);
|
|
if(bVersionStampOnly) {
|
|
ReturnErr = ERR_FILE_VERSTAMPONLY;
|
|
WriteCon(CONWRN, "%s : Version Stamping only!\r\n", strFileName);
|
|
}
|
|
}
|
|
|
|
exit:
|
|
RSCloseModule(hModule);
|
|
|
|
return ReturnErr;
|
|
}
|