aniramimage.c

Go to the documentation of this file.

/* file ANIRAMIMAGE.C */

// This file manages RAM images for the iamge maps;

#define MODULE_RAMIMAGE 1

#include "animate.h"

#define ALIGNULONG(i)   ((i+3)/4*4)
#define  temp_image_name "OFX_T_$$"
#define  temp_image_nameG "OFX_G_$$_"
#define  temp_image_nameS "OFX_S_$$_"

static int IdentifyImageFileType(char *fn);
static int  number_of_file_extensions=6;
static char *image_file_extensions[]={".gif",".tga",".tif",".jpg",".png",".bmp"};


void InitialiseRamImage(RAMIMAGE *im){
 im->size=0;
 im->filename=NULL;
 im->data=NULL;
}

BOOL LoadRamImage(RAMIMAGE *image, char *file){ // Read the RAM image file into store
 HANDLE fq;
 DWORD dwSize,dwRead;
 char *pfilename,*pdata;
 if(file == NULL)return FALSE;
 if(!bEmbedImageMaps)return TRUE;
 if(image->filename != NULL || image->data != NULL)UnloadRamImage(image);
 fq=CreateFile(file,GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,
    FILE_ATTRIBUTE_READONLY,(HANDLE)NULL);
 if(fq == INVALID_HANDLE_VALUE){
   MessageBox(NULL,file,"Bad Handle",MB_OK);
   return FALSE;
 }
 dwSize = GetFileSize (fq, NULL) ; 
 //{char xxx[256]; sprintf(xxx,"image [%s] size=%ld",file,dwSize);
 //MessageBox(NULL,xxx,"Loading",MB_OK);}
 if(dwSize == INVALID_FILE_SIZE || dwSize == 0){
   CloseHandle(fq);
   return FALSE;
 }
 if((pfilename=(char *)X__Malloc(strlen(file)+2)) == NULL){
   CloseHandle(fq);
   MessageBox(NULL,"Bad Read 1",NULL,MB_OK);
   return FALSE;
 }
 if((pdata=(unsigned char*)X__Malloc(dwSize)) == NULL){
   X__Free(pfilename);
   CloseHandle(fq);
   MessageBox(NULL,"Bad Read 2",NULL,MB_OK);
   return FALSE;   
 }
 if(ReadFile(fq,pdata,dwSize,&dwRead,NULL) == 0 || dwRead != dwSize){
   X__Free(pfilename);
   X__Free(pdata);
   CloseHandle(fq);
   MessageBox(NULL,"Bad Read 3",NULL,MB_OK);
   return FALSE;   
 } 
 strcpy(pfilename,file);
 image->filename=pfilename;
 image->data=pdata;
 image->size=dwSize;
 CloseHandle(fq);
 return TRUE;
}

BOOL UnloadRamImage(RAMIMAGE *image){
 //if(image->filename != NULL)MessageBox(NULL,image->filename,"Unloading",MB_OK);
 if(image->data != NULL)X__Free(image->data);
 if(image->filename != NULL)X__Free(image->filename);
 InitialiseRamImage(image);
 return TRUE;
}

BOOL CopyRamImage(RAMIMAGE *dest,RAMIMAGE *source){
 char *pfilename,*pdata;
 InitialiseRamImage(dest);
 if(source->filename != NULL && source->data != NULL){
   if((pfilename=(char *)X__Malloc(strlen(source->filename)+2)) == NULL)return FALSE;
   if((pdata=(unsigned char*)X__Malloc(source->size)) == NULL){
     X__Free(pfilename); return FALSE;   
   }
   dest->filename=pfilename;
   dest->data=pdata;
   dest->size=source->size;
   memcpy(dest->filename,source->filename,strlen(source->filename)+2);
   memcpy(dest->data,source->data,source->size);
   //MessageBox(NULL,dest->filename,"RAMIMAGE copied",MB_OK);
   return TRUE;
 }
 return FALSE;
}

BOOL UnstoreRamImage(RAMIMAGE *image, char *filename){ // used for saving images to files
 HANDLE fq;
 DWORD dwSize,dwWrite;
 char file[256];
 if(image->filename != NULL &&  image->data != NULL && image->size > 0){
   if(filename == NULL) // unstore to original location
         strcpy(file,image->filename);
   else strcpy(file,filename);
   fq=CreateFile(file,GENERIC_WRITE,FILE_SHARE_WRITE,NULL,CREATE_ALWAYS,
                  FILE_ATTRIBUTE_NORMAL,(HANDLE)NULL);
   if(fq == INVALID_HANDLE_VALUE){
    MessageBox(NULL,file,"Bad Handle",MB_OK);
    return FALSE;
   }
   dwSize=image->size;
   if(WriteFile(fq,image->data ,dwSize,&dwWrite,NULL) != 0 && dwWrite == dwSize){
     CloseHandle(fq);
     return TRUE;
   }
   else CloseHandle(fq);
 }
 return FALSE;
}

static int IdentifyImageFileType(char *fn){
 int i; char last4[5];
 last4[4]=0;
 strncpy(last4,(fn+strlen(fn)-4),4);
 strlwr(last4);
 for(i=0;i<number_of_file_extensions;i++){
   if(strncmp((char *)last4,image_file_extensions[i],4) == 0)return i;
 }
 return -1; 
}

void DisplayImageFromStore(RAMIMAGE *image, char *alternate_name){
 HANDLE fq;
 DWORD dwSize,dwWrite;
 int id;
 char file[256];
 if(image->filename != NULL &&  image->data != NULL && image->size > 0){
   id=IdentifyImageFileType(image->filename);
   if(id < 0){
     MessageBox(NULL,"Bad Type",NULL,MB_OK);
     return;
   }
   sprintf(file,"%s%s%s",TempPath,temp_image_name,image_file_extensions[id]);
   fq=CreateFile(file,GENERIC_WRITE,FILE_SHARE_WRITE,NULL,CREATE_ALWAYS,
                  FILE_ATTRIBUTE_NORMAL,(HANDLE)NULL);
   if(fq == INVALID_HANDLE_VALUE){
     MessageBox(NULL,file,"Bad Handle",MB_OK);
     return;
   }
   dwSize=image->size;
   if(WriteFile(fq,image->data ,dwSize,&dwWrite,NULL) != 0 && dwWrite == dwSize){
     CloseHandle(fq);
     Sleep(10);
     WritePrivateProfileString("VIEWER","MAPFILE",file,IniFilename);
     //MessageBox(NULL,file,"Displaying Image",MB_OK); 
     LoadViewer(2);
   }
   else CloseHandle(fq);
 }
 else{
   //MessageBox(NULL,alternate_name,"Displaying Alternate",MB_OK); 
   WritePrivateProfileString("VIEWER","MAPFILE",alternate_name,IniFilename);
   LoadViewer(2);
 }
}

void EraseTempImageFiles(void){
 int i,j;
 BOOL bRemoved;
 char file[256];
 for(i=0;i<number_of_file_extensions;i++){
   sprintf(file,"%s%s%s",TempPath,temp_image_name,image_file_extensions[i]);
   remove(file);
 }
 // Remove the temporary Ground and sky Image files that might have been
 // written during a script write.
 for(j=1;j<100;j++){  // try up to 100 
   bRemoved=FALSE;
   for(i=0;i<number_of_file_extensions;i++){
     sprintf(file,"%s%s%ld%s",TempPath,temp_image_nameS,j,image_file_extensions[i]);
     if(remove(file) == 0)bRemoved=TRUE;
   }
   if(!bRemoved)break;  // stop when none were removoved
 }
 for(j=1;j<100;j++){
   bRemoved=FALSE;
   for(i=0;i<number_of_file_extensions;i++){
     sprintf(file,"%s%s%ld%s",TempPath,temp_image_nameG,j,image_file_extensions[i]);
     if(remove(file) == 0)bRemoved=TRUE;
   }
   if(!bRemoved)break;
 }
}

static char LastSkyImageFile[256],LastGroundImageFile[256];
 
void WriteTemporaryFileForScript(BOOL bSky, RAMIMAGE *image, 
                                 char *temp_name, long *lastID){
 HANDLE fq;
 DWORD dwSize,dwWrite;
 int id;
 char file[256];
 BOOL bFound=FALSE;
 if(image->filename != NULL &&  image->data != NULL && image->size > 0){
   id=IdentifyImageFileType(image->filename);
   if(id < 0){
     MessageBox(NULL,"Bad Type",NULL,MB_OK);
     return;
   }
   if(*lastID == 0){
     *lastID=1;
     if(bSky){
       sprintf(file,"%s%s%ld%s",TempPath,temp_image_nameS,1,image_file_extensions[id]);
       strcpy(LastSkyImageFile,image->filename);
     }
     else{
       sprintf(file,"%s%s%ld%s",TempPath,temp_image_nameG,1,image_file_extensions[id]);
       strcpy(LastGroundImageFile,image->filename);
     }
   }
   else {
     if(bSky){
       if(strcmp(image->filename,LastSkyImageFile) == 0)bFound=TRUE;
       else { 
         *lastID = (*lastID) + 1; strcpy(LastSkyImageFile,image->filename);
       }
       sprintf(file,"%s%s%ld%s",TempPath,temp_image_nameS,*lastID,image_file_extensions[id]);
     }
     else{
       if(strcmp(image->filename,LastGroundImageFile) == 0)bFound=TRUE;
       else { 
         *lastID = (*lastID) + 1; strcpy(LastGroundImageFile,image->filename);
       }
       sprintf(file,"%s%s%ld%s",TempPath,temp_image_nameG,*lastID,image_file_extensions[id]);
     }
   }
   strcpy(temp_name,file);
   if(bFound)return;
   fq=CreateFile(file,GENERIC_WRITE,FILE_SHARE_WRITE,NULL,CREATE_ALWAYS,
                  FILE_ATTRIBUTE_NORMAL,(HANDLE)NULL);
   if(fq == INVALID_HANDLE_VALUE){
     MessageBox(NULL,file,"Bad Handle",MB_OK);
     return;
   }
   dwSize=image->size;
   if(WriteFile(fq,image->data ,dwSize,&dwWrite,NULL) != 0 && dwWrite == dwSize){
     CloseHandle(fq);
   }
   else CloseHandle(fq);
 }
}


BOOL ReadRamImage(RAMIMAGE *image, FILE *fr){
 char *pfilename,*pdata;
 DWORD dwRead,dwSize,dwLen;
 long l,ls,ld;
 getlon_s(&l,fr);
 getlon_s(&ls,fr);
 //if(l)MessageBox(NULL,"In use","Reading Ram Image",MB_OK);
 //else MessageBox(NULL,"Not in use","Reading",MB_OK);
 if(l != 1 || ls == 0)return FALSE;
 getlon_s(&ld,fr);
 if((pfilename=(char *)X__Malloc(ls+1)) == NULL)return FALSE;
 if((pdata=(unsigned char*)X__Malloc(ld)) == NULL)return FALSE;
 fread(pfilename,ls+1,1,fr);  // Image name
 //{char xxx[256]; sprintf(xxx,"[%s] text len=%ld size=%ld",pfilename,ls,ld);
 //MessageBox(NULL,xxx,"Reading",MB_OK);}
 fread(pdata,ld,1,fr);  // data
 image->filename=pfilename;
 image->data=pdata;
 image->size=ld;
 return TRUE;
}

BOOL WriteRamImage(RAMIMAGE *image, FILE *fp){
 long l,zero=0,one;
 //if(image->in_use)MessageBox(NULL,image->filename,"Writing Ram Image",MB_OK);
 //else MessageBox(NULL,"Not in use","Writing",MB_OK);
 outlng_s(1,fp);
 if(image->size == 0 || image->filename == NULL || image->data == NULL){
   outlng_s(zero,fp);
   return TRUE;
 }
 l=strlen(image->filename);
 if(l <= 0){
   outlng_s(zero,fp);
   return TRUE;
 }
 outlng_s(l,fp);
 outlng_s(image->size,fp);
 fwrite(image->filename,strlen(image->filename)+1,1,fp);
 fwrite(image->data,image->size,1,fp);
 //{char xxx[256]; sprintf(xxx,"[%s] len=%ld size=%ld",image->filename,l,image->size);
 //MessageBox(NULL,xxx,"Writing Ram Image",MB_OK);}
 return TRUE;
}