442
+ − 1 #include <config.h>
647
+ − 2 #include "lisp.h"
442
+ − 3
647
+ − 4 #include "sysfile.h"
+ − 5
428
+ − 6 #include "gifrlib.h"
+ − 7
+ − 8 /******************************************************************************
+ − 9 * Set up the GifFileType structure for use. This must be called first in any *
+ − 10 * client program. Then, if custom IO or Error functions are desired, call *
+ − 11 * GifSetIOFunc/GifSetErrorFunc, then call EGifInitWrite. Else call *
+ − 12 * EGifOpenFileName or EGifOpenFileHandle for standard IO functions. *
+ − 13 * If setup fails, a NULL pointer is returned. *
+ − 14 ******************************************************************************/
+ − 15 GifFileType *GifSetup(void)
+ − 16 {
+ − 17 GifIODataType *GifIO;
+ − 18 GifFileType *GifFile;
+ − 19
+ − 20 if ((GifFile = (GifFileType *) malloc(sizeof(GifFileType))) == NULL)
+ − 21 return NULL;
+ − 22 memset(GifFile, '\0', sizeof(GifFileType));
+ − 23 if ((GifIO = (GifIODataType *) malloc(sizeof(GifIODataType))) == NULL) {
+ − 24 free((char *) GifFile);
+ − 25 return NULL;
+ − 26 }
+ − 27 memset(GifIO, '\0', sizeof(GifIODataType));
+ − 28 GifFile->GifIO = GifIO;
+ − 29 return GifFile;
+ − 30 }
+ − 31
+ − 32 void GifFree(GifFileType *GifFile)
+ − 33 {
+ − 34 GifFilePrivateType *Private;
+ − 35
+ − 36 if (GifFile == NULL) return;
+ − 37
+ − 38 Private = (GifFilePrivateType *) GifFile->Private;
+ − 39
+ − 40 if (GifFile->SavedImages)
+ − 41 FreeSavedImages(GifFile);
+ − 42 if (GifFile->Image.ColorMap)
+ − 43 FreeMapObject(GifFile->Image.ColorMap);
+ − 44 if (GifFile->SColorMap)
+ − 45 FreeMapObject(GifFile->SColorMap);
+ − 46 if (Private)
+ − 47 {
+ − 48 free(Private);
+ − 49 }
+ − 50 if (GifFile->GifIO)
+ − 51 free(GifFile->GifIO);
+ − 52 free(GifFile);
+ − 53 }
+ − 54
+ − 55 /****************************************************************************
+ − 56 * Install the specified ReadFunction into the GifFile specified. *
+ − 57 ****************************************************************************/
+ − 58 void GifSetReadFunc(GifFileType *GifFile, Gif_rw_func ReadFunc, VoidPtr data)
+ − 59 {
+ − 60 GifIODataType *GifIO = (GifIODataType *)GifFile->GifIO;
+ − 61 GifIO->ReadFunc = ReadFunc;
+ − 62 GifIO->ReadFunc_data = data;
+ − 63 }
+ − 64
+ − 65 /****************************************************************************
+ − 66 * Install the specified WriteFunction into the GifFile specified. *
+ − 67 ****************************************************************************/
+ − 68 void GifSetWriteFunc(GifFileType *GifFile, Gif_rw_func WriteFunc, VoidPtr data)
+ − 69 {
+ − 70 GifIODataType *GifIO = (GifIODataType *)GifFile->GifIO;
+ − 71 GifIO->WriteFunc = WriteFunc;
+ − 72 GifIO->WriteFunc_data = data;
+ − 73 }
+ − 74
+ − 75 /****************************************************************************
+ − 76 * Install the specified CloseFunction into the GifFile specified. *
+ − 77 ****************************************************************************/
+ − 78 void GifSetCloseFunc(GifFileType *GifFile, Gif_close_func CloseFunc, VoidPtr data)
+ − 79 {
+ − 80 GifIODataType *GifIO = (GifIODataType *)GifFile->GifIO;
+ − 81 GifIO->CloseFunc = CloseFunc;
+ − 82 GifIO->CloseFunc_data = data;
+ − 83 }
+ − 84
+ − 85 /****************************************************************************
+ − 86 * Install the standard IO funcs into the GifFile, including the FILE info *
+ − 87 ****************************************************************************/
+ − 88 void GifStdIOInit(GifFileType *GifFile, FILE *file, int filehandle)
+ − 89 {
+ − 90 GifStdIODataType *IOData;
+ − 91
+ − 92 if ((IOData = (GifStdIODataType*)malloc(sizeof(GifStdIODataType))) == NULL)
+ − 93 GifInternError(GifFile, GIF_ERR_NOT_ENOUGH_MEM);
+ − 94 IOData->File = file;
+ − 95 IOData->FileHandle = filehandle;
+ − 96 GifSetReadFunc(GifFile, GifStdRead, IOData);
+ − 97 GifSetWriteFunc(GifFile, GifStdWrite, IOData);
+ − 98 GifSetCloseFunc(GifFile, GifStdFileClose, IOData);
+ − 99 }
+ − 100
665
+ − 101 Bytecount GifStdRead(GifByteType *buf, Bytecount size, VoidPtr method_data)
428
+ − 102 {
+ − 103 GifStdIODataType *IOtype = (GifStdIODataType*)method_data;
771
+ − 104 return (retry_fread(buf, 1, size, IOtype->File));
428
+ − 105 }
+ − 106
665
+ − 107 Bytecount GifStdWrite(GifByteType *buf, Bytecount size, VoidPtr method_data)
428
+ − 108 {
+ − 109 GifStdIODataType *IOtype = (GifStdIODataType*)method_data;
771
+ − 110 return (retry_fwrite(buf, 1, size, IOtype->File));
428
+ − 111 }
+ − 112
+ − 113 int GifStdFileClose(VoidPtr method_data)
+ − 114 {
+ − 115 int ret;
+ − 116 GifStdIODataType *IOtype = (GifStdIODataType*)method_data;
771
+ − 117 ret = retry_fclose(IOtype->File);
428
+ − 118 if (ret == 0 && IOtype->FileHandle != -1)
771
+ − 119 ret = retry_close(IOtype->FileHandle);
428
+ − 120 return ret;
+ − 121 }
+ − 122
665
+ − 123 void GifRead(GifByteType *buf, Bytecount size, GifFileType *GifFile)
428
+ − 124 {
+ − 125 GifIODataType *GifIO = (GifIODataType*)GifFile->GifIO;
+ − 126 if ((*(GifIO->ReadFunc))(buf, size, GifIO->ReadFunc_data) != size)
+ − 127 GifError(GifFile, "Read error!");
+ − 128 }
+ − 129
665
+ − 130 void GifWrite(GifByteType *buf, Bytecount size, GifFileType *GifFile)
428
+ − 131 {
+ − 132 GifIODataType *GifIO = (GifIODataType*)GifFile->GifIO;
+ − 133 if ((*(GifIO->WriteFunc))(buf, size, GifIO->WriteFunc_data) != size)
+ − 134 GifError(GifFile, "Write error!");
+ − 135 }
+ − 136
+ − 137 int GifClose(GifFileType *GifFile)
+ − 138 {
+ − 139 GifIODataType *GifIO = (GifIODataType*)GifFile->GifIO;
+ − 140 return ((*(GifIO->CloseFunc))(GifIO->CloseFunc_data));
+ − 141 }
+ − 142
+ − 143 static char *GifErrorString[14] = {
+ − 144 "Failed to open given file", /* D_GIF_ERR_OPEN_FAILED */
+ − 145 "Failed to read from given file", /* D_GIF_ERR_READ_FAILED */
+ − 146 "Given file is NOT a GIF file", /* D_GIF_ERR_NOT_GIF_FILE */
+ − 147 "No Screen Descriptor detected", /* D_GIF_ERR_NO_SCRN_DSCR */
+ − 148 "No Image Descriptor detected", /* D_GIF_ERR_NO_IMAG_DSCR */
+ − 149 "No global or local color map", /* D_GIF_ERR_NO_COLOR_MAP */
+ − 150 "Wrong record type detected", /* D_GIF_ERR_WRONG_RECORD */
+ − 151 "#Pixels bigger than Width * Height", /* D_GIF_ERR_DATA_TOO_BIG */
+ − 152 "Fail to allocate required memory", /* D_GIF_ERR_NOT_ENOUGH_MEM */
+ − 153 "Failed to close given file", /* D_GIF_ERR_CLOSE_FAILED */
+ − 154 "Given file was not opened for read", /* D_GIF_ERR_CLOSE_FAILED */
+ − 155 "Image is defective, decoding aborted", /* D_GIF_ERR_IMAGE_DEFECT */
+ − 156 "Image EOF detected before image complete", /* D_GIF_ERR_EOF_TOO_SOON */
+ − 157 "Undefined error!",
+ − 158 };
+ − 159
771
+ − 160 const char *GetGifError(int errore);
428
+ − 161
+ − 162 /*****************************************************************************
+ − 163 * Get the last GIF error in human-readable form. *
+ − 164 *****************************************************************************/
771
+ − 165 const char *GetGifError(int errore)
428
+ − 166 {
+ − 167 char *Err;
+ − 168
771
+ − 169 switch(errore) {
428
+ − 170 case D_GIF_ERR_OPEN_FAILED:
+ − 171 Err = GifErrorString[0];
+ − 172 break;
+ − 173 case D_GIF_ERR_READ_FAILED:
+ − 174 Err = GifErrorString[1];
+ − 175 break;
+ − 176 case D_GIF_ERR_NOT_GIF_FILE:
+ − 177 Err = GifErrorString[2];
+ − 178 break;
+ − 179 case D_GIF_ERR_NO_SCRN_DSCR:
+ − 180 Err = GifErrorString[3];
+ − 181 break;
+ − 182 case D_GIF_ERR_NO_IMAG_DSCR:
+ − 183 Err = GifErrorString[4];
+ − 184 break;
+ − 185 case D_GIF_ERR_NO_COLOR_MAP:
+ − 186 Err = GifErrorString[5];
+ − 187 break;
+ − 188 case D_GIF_ERR_WRONG_RECORD:
+ − 189 Err = GifErrorString[6];
+ − 190 break;
+ − 191 case D_GIF_ERR_DATA_TOO_BIG:
+ − 192 Err = GifErrorString[7];
+ − 193 break;
+ − 194 case D_GIF_ERR_NOT_ENOUGH_MEM:
+ − 195 Err = GifErrorString[8];
+ − 196 break;
+ − 197 case D_GIF_ERR_CLOSE_FAILED:
+ − 198 Err = GifErrorString[9];
+ − 199 break;
+ − 200 case D_GIF_ERR_NOT_READABLE:
+ − 201 Err = GifErrorString[10];
+ − 202 break;
+ − 203 case D_GIF_ERR_IMAGE_DEFECT:
+ − 204 Err = GifErrorString[11];
+ − 205 break;
+ − 206 case D_GIF_ERR_EOF_TOO_SOON:
+ − 207 Err = GifErrorString[12];
+ − 208 break;
+ − 209 default:
+ − 210 Err = GifErrorString[13];
+ − 211 break;
+ − 212 }
+ − 213 return Err;
+ − 214 }
+ − 215
+ − 216 /******************************
+ − 217 * These are called internally *
+ − 218 ******************************/
2268
+ − 219 DOESNT_RETURN GifError(GifFileType *GifFile, const char *err_str)
428
+ − 220 {
+ − 221 GifIODataType *GifIO = (GifIODataType*)GifFile->GifIO;
+ − 222 if (GifIO->ErrorFunc)
+ − 223 (*(GifIO->ErrorFunc))(err_str, GifIO->ErrorFunc_data);
+ − 224 else
+ − 225 fprintf(stderr, "GIF FATAL ERROR: %s", err_str);
+ − 226 exit(-10);
+ − 227 }
+ − 228
+ − 229 void GifWarning(GifFileType *GifFile, const char *err_str)
+ − 230 {
+ − 231 GifIODataType *GifIO = (GifIODataType*)GifFile->GifIO;
+ − 232 if (GifIO->WarningFunc)
+ − 233 (*(GifIO->WarningFunc))(err_str, GifIO->WarningFunc_data);
+ − 234 }
+ − 235
2268
+ − 236 DOESNT_RETURN GifInternError(GifFileType *GifFile, int error_num)
428
+ − 237 {
+ − 238 const char *ErrStr = GetGifError(error_num);
+ − 239 GifError(GifFile, ErrStr);
+ − 240 }
+ − 241
+ − 242 void GifInternWarning(GifFileType *GifFile, int error_num)
+ − 243 {
+ − 244 const char *ErrStr = GetGifError(error_num);
+ − 245 GifWarning(GifFile, ErrStr);
+ − 246 }
+ − 247
+ − 248 void GifSetErrorFunc(GifFileType *GifFile, Gif_error_func ErrorFunc, VoidPtr data)
+ − 249 {
+ − 250 GifIODataType *GifIO = (GifIODataType *)GifFile->GifIO;
+ − 251 GifIO->ErrorFunc = ErrorFunc;
+ − 252 GifIO->ErrorFunc_data = data;
+ − 253 }
+ − 254
+ − 255 void GifSetWarningFunc(GifFileType *GifFile, Gif_error_func WarningFunc, VoidPtr data)
+ − 256 {
+ − 257 GifIODataType *GifIO = (GifIODataType *)GifFile->GifIO;
+ − 258 GifIO->WarningFunc = WarningFunc;
+ − 259 GifIO->WarningFunc_data = data;
+ − 260 }