Mercurial > hg > xemacs-beta
annotate src/gif_io.c @ 4622:8cbca852bcd4
#'check-coding-systems-region: return nil on success, not t.
lisp/ChangeLog addition:
2009-02-18 Aidan Kehoe <kehoea@parhasard.net>
* coding.el (check-coding-systems-region):
Return null on success, not t. See
http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=1723
tests/ChangeLog addition:
2009-02-18 Aidan Kehoe <kehoea@parhasard.net>
* automated/query-coding-tests.el : Check that
#'check-coding-systems-region returns null on success here, not t.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 18 Feb 2009 07:53:34 +0000 |
| parents | 726060ee587c |
| children |
| rev | line source |
|---|---|
| 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 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
143 static const char *GifErrorString[14] = { |
| 428 | 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 { |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
167 const char *Err; |
| 428 | 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 } |