String GZDecompress(const void *data, int len, Gate2<int, int> progress)
{
StringStream out;
MemReadStream in(data, len);
GZDecompress(out, in, progress);
return out;
}
void BCConvert(HWND dlg)
// performs the batch conversion on selected files
// TODO: progress dialogue, option to cancel process
// see SHFileOperation for recycle bin ops, write seperate fn.
{
int count;
int i, j, iLength;
char inBuf[MAX_PATH];
char outBuf[MAX_PATH];
char statusBuf[MAX_PATH];
char FileRoot[MAX_PATH];
char FileSuf[4];
char fileName[MAX_PATH];
HWND fl = GetDlgItem(dlg, IDC_BCFILELIST);
HWND sl = GetDlgItem(dlg, IDC_BCSTATUS);
int side,track,nbsect,image_size;
HXCFE * hxcfe;
HXCFE_FLOPPY* fp;
HXCFE_SECTORACCESS* ss;
HXCFE_IMGLDR * imgldr_ctx;
int loaderId;
unsigned char * floppybuffer;
FILE * f;
LRESULT State_ADZ;
LRESULT State_ADF;
LRESULT State_HFE;
HANDLE hFile;
BOOL bUsingTemp = FALSE; // TRUE if using temp directory for intermediate file.
USHORT dmsError;
// char dmsErrorMessage[MAX_PATH];
BOOL bOverwriting = TRUE;
count = SendMessage(fl, LB_GETCOUNT, 0, 0l);
for (i = 0 ; i < count ; i++) {
SendMessage(fl, LB_GETTEXT, 0, (LPARAM)&inBuf); // Get filename from list.
UpdateWindow(dlg);
strcpy(outBuf, inBuf);
iLength = strlen(inBuf); // Get name length.
for(j = 0;j < iLength - 3;j++) // Get name root.
FileRoot[j] = inBuf[j];
FileRoot[j] = '\0';
FileSuf[0] = inBuf[iLength - 3]; // Get name suffix.
FileSuf[1] = inBuf[iLength - 2];
FileSuf[2] = inBuf[iLength - 1];
FileSuf[3] = '\0';
strcpy(outBuf, FileRoot); // Set the outfile name root.
// Get the check state of the output buttons.
State_ADZ = SendMessage(GetDlgItem(dlg, IDC_BCADZ), BM_GETSTATE, 0, 0);
State_ADF = SendMessage(GetDlgItem(dlg, IDC_BCADF), BM_GETSTATE, 0, 0);
State_HFE = SendMessage(GetDlgItem(dlg, IDC_BCHFE), BM_GETSTATE, 0, 0);
// if hfe.
if(strcmp(FileSuf, "hfe") == 0 || strcmp(FileSuf, "HFE") == 0 ){
// Print decompression status message.
sprintf(statusBuf, "Unpacking file '%s'...", inBuf);
// If dms to adz, use temp directory.
if(State_ADZ & BST_CHECKED){
_splitpath(strOFNFileNames, NULL, NULL, fileName, NULL); // Get filename.
strcpy(outBuf, dirTemp);
strcat(outBuf, fileName);
strcat(outBuf, ".");
bUsingTemp = TRUE; // Using temp dir.
}
strcat(outBuf, "adf"); // Set the outfile name suffix.
SendMessage(sl, LB_ADDSTRING, 0, (LPARAM)&statusBuf);
// Check for file overwrite.
hFile = CreateFile(outBuf, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
// If file exists and we're not writing to temp dir, ask.
if(hFile != INVALID_HANDLE_VALUE && !bUsingTemp){
sprintf(statusBuf, "The file %s already exists.\n Do you want to overwrite this file?", outBuf);
// Set bool if not overwriting.
if(MessageBox(dlg, statusBuf, "ADF Opus Warning", MB_YESNO|MB_ICONEXCLAMATION) == IDNO){
bOverwriting = FALSE;
}
}
if(bOverwriting){
// Overwrite.
// Open HFE
hxcfe = hxcfe_init();
imgldr_ctx = hxcfe_imgInitLoader(hxcfe);
loaderId = hxcfe_imgGetLoaderID(imgldr_ctx,"HXC_HFE");
fp = hxcfe_imgLoad(imgldr_ctx,(char*)inBuf,loaderId,0);
if(fp)
{
image_size = hxcfe_getFloppySize(hxcfe,fp,0);
if(image_size)
{
floppybuffer=(char*)malloc(image_size);
nbsect=11;
switch(image_size)
{
case 80*11*2*512:
nbsect=11;
break;
case 80*22*2*512:
nbsect=22;
break;
}
ss = hxcfe_initSectorAccess(hxcfe,fp);
for(track=0;track<hxcfe_getNumberOfTrack(hxcfe,fp);track++)
{
for(side=0;side<hxcfe_getNumberOfSide(hxcfe,fp);side++)
{
hxcfe_readSectorData(ss,track,side,0,nbsect,512,AMIGA_MFM_ENCODING,&floppybuffer[(512*nbsect)*((track*hxcfe_getNumberOfSide(hxcfe,fp))+side)],0);
}
}
hxcfe_deinitSectorAccess(ss);
hxcfe_imgUnload(imgldr_ctx,fp);
hxcfe_imgDeInitLoader(imgldr_ctx);
hxcfe_deinit(hxcfe);
f=fopen(outBuf,"wb");
if(f)
{
fwrite(floppybuffer,image_size,1,f);
fclose(f);
}
free(floppybuffer);
strcpy(statusBuf, "...file loaded successfully.");
}
}
else
{
hxcfe_deinit(hxcfe);
strcpy(statusBuf, "...error occured during HFE Loading.");
}
}
else{
// Abort
strcpy(statusBuf, "...aborted to avoid overwrite.");
SendMessage(sl, LB_ADDSTRING, 0, (LPARAM)&statusBuf);
}
}
// if dms.
if(strcmp(FileSuf, "dms") == 0 || strcmp(FileSuf, "DMS") == 0 ){
// Print decompression status message.
sprintf(statusBuf, "Unpacking file '%s'...", inBuf);
// If dms to adz, use temp directory.
if(State_ADZ & BST_CHECKED){
_splitpath(strOFNFileNames, NULL, NULL, fileName, NULL); // Get filename.
strcpy(outBuf, dirTemp);
strcat(outBuf, fileName);
strcat(outBuf, ".");
bUsingTemp = TRUE; // Using temp dir.
}
strcat(outBuf, "adf"); // Set the outfile name suffix.
SendMessage(sl, LB_ADDSTRING, 0, (LPARAM)&statusBuf);
// Check for file overwrite.
hFile = CreateFile(outBuf, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
// If file exists and we're not writing to temp dir, ask.
if(hFile != INVALID_HANDLE_VALUE && !bUsingTemp){
sprintf(statusBuf, "The file %s already exists.\n Do you want to overwrite this file?", outBuf);
// Set bool if not overwriting.
if(MessageBox(dlg, statusBuf, "ADF Opus Warning", MB_YESNO|MB_ICONEXCLAMATION) == IDNO){
bOverwriting = FALSE;
}
}
if(bOverwriting){
// Overwrite.
if(dmsError = dmsUnpack(inBuf, outBuf) == NO_PROBLEM) // Decompress.
strcpy(statusBuf, "...file unpacked successfully.");
else
strcpy(statusBuf, "...error occured during DMS decompression.");
}
else{
// Abort
strcpy(statusBuf, "...aborted to avoid overwrite.");
// ************************** TRYING TO ACCESS DMS ERRORS IN XDMS.C - WON'T COMPILE
// dmsErrMsg(dmsError, inBuf, outBuf, dmsErrorMessage);
// strcat(statusBuf, dmsErrorMessage);
SendMessage(sl, LB_ADDSTRING, 0, (LPARAM)&statusBuf);
}
}
//if adz and adf button selected.
if((strcmp(FileSuf, "adz") == 0 || strcmp(FileSuf, "ADZ") == 0) && (State_ADF & BST_CHECKED) ){
// Print decompression status message.
sprintf(statusBuf, "Unpacking file '%s'...", inBuf);
strcat(outBuf, "adf"); // Set the outfile name suffix.
SendMessage(sl, LB_ADDSTRING, 0, (LPARAM)&statusBuf);
if(GZDecompress(dlg, inBuf, outBuf))
strcpy(statusBuf, "...file unpacked successfully.");
else
strcpy(statusBuf, "...failed to unpack file.");
}
//if adf or decompressed dms and adz button selected.
if(
( ( strcmp(FileSuf, "adf") == 0 || strcmp(FileSuf, "ADF") == 0 )
|| ( strcmp(FileSuf, "dms") == 0 || strcmp(FileSuf, "DMS") == 0 ) )
&& (State_ADZ & BST_CHECKED) )
{
// If recompressing an adf'd dms, remove the suffixes and
// write last status message.
if(strcmp(FileSuf, "dms") == 0 || strcmp(FileSuf, "DMS") == 0){
SendMessage(sl, LB_ADDSTRING, 0, (LPARAM)&statusBuf);
strcpy(inBuf, outBuf);
strcpy(outBuf, FileRoot);
}
// Print compression status message.
sprintf(statusBuf, "Compressing file '%s'...", inBuf);
strcat(outBuf, "adz"); // Set the outfile name suffix.
SendMessage(sl, LB_ADDSTRING, 0, (LPARAM)&statusBuf);
if(GZCompress(dlg, inBuf, outBuf))
strcpy(statusBuf, "...file compressed successfully.");
else
strcpy(statusBuf, "...failed to compress file.");
// Delete intermediate adf.
if(strcmp(FileSuf, "dms") == 0 || strcmp(FileSuf, "DMS") == 0)
remove(inBuf);
}
// hfe button selected.
if( ( ( strcmp(FileSuf, "adf") == 0 || strcmp(FileSuf, "ADF") == 0 )
|| ( strcmp(FileSuf, "dms") == 0 || strcmp(FileSuf, "DMS") == 0 )
|| ( strcmp(FileSuf, "adz") == 0 || strcmp(FileSuf, "ADZ") == 0 ) )
&& (State_HFE & BST_CHECKED) ){
// If recompressing an adf'd dms, remove the suffixes and
// write last status message.
if(strcmp(FileSuf, "dms") == 0 || strcmp(FileSuf, "DMS") == 0){
SendMessage(sl, LB_ADDSTRING, 0, (LPARAM)&statusBuf);
strcpy(inBuf, outBuf);
strcpy(outBuf, FileRoot);
}
// Print compression status message.
sprintf(statusBuf, "Compressing file '%s'...", inBuf);
strcat(outBuf, "hfe"); // Set the outfile name suffix.
SendMessage(sl, LB_ADDSTRING, 0, (LPARAM)&statusBuf);
hxcfe=hxcfe_init();
imgldr_ctx = hxcfe_imgInitLoader(hxcfe);
fp=0;
loaderId = hxcfe_imgAutoSetectLoader(imgldr_ctx,inBuf,0);
// Load the image
if(loaderId>=0)
fp = hxcfe_imgLoad(imgldr_ctx,inBuf,loaderId,0);
if(fp)
{
// Select the HFE loader/exporter.
loaderId=hxcfe_imgGetLoaderID(imgldr_ctx,"HXC_HFE");
// Save the file...
hxcfe_imgExport(imgldr_ctx,fp,outBuf,loaderId);
// Free the loaded image
hxcfe_imgUnload(imgldr_ctx,fp);
strcpy(statusBuf, "...file compressed successfully.");
}
else
{
strcpy(statusBuf, "...failed to compress file.");
}
hxcfe_imgDeInitLoader(imgldr_ctx);
hxcfe_deinit(hxcfe);
// Delete intermediate adf.
if(strcmp(FileSuf, "dms") == 0 || strcmp(FileSuf, "DMS") == 0)
remove(inBuf);
}
//no dms compression at this stage.
SendMessage(sl, LB_ADDSTRING, 0, (LPARAM)&statusBuf); // Write final status message.
SendMessage(fl, LB_DELETESTRING, 0, 0l); // Delete file from lister.
bUsingTemp = FALSE; // Reset temp dir flag.
if(SendDlgItemMessage(dlg, IDC_BCDELETE_ORIGINAL, BM_GETCHECK, 0, 0L) == BST_CHECKED){
//Delete the original file.
remove(inBuf);
sprintf(statusBuf, "Deleted %s.", inBuf);
SendMessage(sl, LB_ADDSTRING, 0, (LPARAM)&statusBuf); // Write deletion message.
}
}
// Write a divider line to improve readability.
SendMessage(sl, LB_ADDSTRING, 0,
(LPARAM)"----------------------------------------------------------------------------------------------");
// Re-enable output buttons once operations are complete.
SendMessage(GetDlgItem(dlg, IDC_BCADF), BM_SETCHECK, BST_CHECKED, 0);
SendMessage(GetDlgItem(dlg, IDC_BCADZ), BM_SETCHECK, BST_UNCHECKED, 0);
SendMessage(GetDlgItem(dlg, IDC_BCHFE), BM_SETCHECK, BST_UNCHECKED, 0);
EnableWindow(GetDlgItem(dlg, IDC_BCADF), TRUE);
EnableWindow(GetDlgItem(dlg, IDC_BCADZ), TRUE);
EnableWindow(GetDlgItem(dlg, IDC_BCHFE), TRUE);
BCUpdateButtons(dlg); // Dis/enable buttons.
}
String GZDecompress(const String& s, Gate2<int, int> progress)
{
return GZDecompress(~s, s.GetCount(), progress);
}
int GZDecompress(Stream& out, Stream& in, Gate2<int, int> progress = false)
{
return GZDecompress(out, in, (int)in.GetLeft(), progress);
}
