| 1 | /* |
| 2 | * Copyright (C) 1989-95 GROUPE BULL |
| 3 | * |
| 4 | * Permission is hereby granted, free of charge, to any person obtaining a copy |
| 5 | * of this software and associated documentation files (the "Software"), to |
| 6 | * deal in the Software without restriction, including without limitation the |
| 7 | * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or |
| 8 | * sell copies of the Software, and to permit persons to whom the Software is |
| 9 | * furnished to do so, subject to the following conditions: |
| 10 | * |
| 11 | * The above copyright notice and this permission notice shall be included in |
| 12 | * all copies or substantial portions of the Software. |
| 13 | * |
| 14 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
| 15 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
| 16 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL |
| 17 | * GROUPE BULL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN |
| 18 | * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN |
| 19 | * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
| 20 | * |
| 21 | * Except as contained in this notice, the name of GROUPE BULL shall not be |
| 22 | * used in advertising or otherwise to promote the sale, use or other dealings |
| 23 | * in this Software without prior written authorization from GROUPE BULL. |
| 24 | */ |
| 25 | |
| 26 | /*****************************************************************************\ |
| 27 | * CrDataFI.c: * |
| 28 | * * |
| 29 | * XPM library * |
| 30 | * Scan an image and possibly its mask and create an XPM array * |
| 31 | * * |
| 32 | * Developed by Arnaud Le Hors * |
| 33 | \*****************************************************************************/ |
| 34 | |
| 35 | #include "XpmI.h" |
| 36 | |
| 37 | LFUNC(CreateColors, int, (char **dataptr, unsigned int *data_size, |
| 38 | XpmColor *colors, unsigned int ncolors, |
| 39 | unsigned int cpp)); |
| 40 | |
| 41 | LFUNC(CreatePixels, void, (char **dataptr, unsigned int width, |
| 42 | unsigned int height, unsigned int cpp, |
| 43 | unsigned int *pixels, XpmColor *colors)); |
| 44 | |
| 45 | LFUNC(CountExtensions, void, (XpmExtension *ext, unsigned int num, |
| 46 | unsigned int *ext_size, |
| 47 | unsigned int *ext_nlines)); |
| 48 | |
| 49 | LFUNC(CreateExtensions, void, (char **dataptr, unsigned int offset, |
| 50 | XpmExtension *ext, unsigned int num, |
| 51 | unsigned int ext_nlines)); |
| 52 | |
| 53 | #ifdef __OS2__ |
| 54 | /* Visual Age cannot deal with old, non-ansi, code */ |
| 55 | int |
| 56 | XpmCreateDataFromImage( |
| 57 | Display* display |
| 58 | , char*** data_return |
| 59 | , XImage* image |
| 60 | , XImage* shapeimage |
| 61 | , XpmAttributes* attributes |
| 62 | ) |
| 63 | #else |
| 64 | int |
| 65 | XpmCreateDataFromImage(display, data_return, image, shapeimage, attributes) |
| 66 | Display *display; |
| 67 | char ***data_return; |
| 68 | XImage *image; |
| 69 | XImage *shapeimage; |
| 70 | XpmAttributes *attributes; |
| 71 | #endif |
| 72 | { |
| 73 | XpmImage xpmimage; |
| 74 | XpmInfo info; |
| 75 | int ErrorStatus; |
| 76 | |
| 77 | /* initialize return value */ |
| 78 | if (data_return) |
| 79 | *data_return = NULL; |
| 80 | |
| 81 | /* create an XpmImage from the image */ |
| 82 | ErrorStatus = XpmCreateXpmImageFromImage(display, image, shapeimage, |
| 83 | &xpmimage, attributes); |
| 84 | if (ErrorStatus != XpmSuccess) |
| 85 | return (ErrorStatus); |
| 86 | |
| 87 | /* create the data from the XpmImage */ |
| 88 | if (attributes) { |
| 89 | xpmSetInfo(&info, attributes); |
| 90 | ErrorStatus = XpmCreateDataFromXpmImage(data_return, &xpmimage, &info); |
| 91 | } else |
| 92 | ErrorStatus = XpmCreateDataFromXpmImage(data_return, &xpmimage, NULL); |
| 93 | |
| 94 | /* free the XpmImage */ |
| 95 | XpmFreeXpmImage(&xpmimage); |
| 96 | |
| 97 | return (ErrorStatus); |
| 98 | } |
| 99 | |
| 100 | #undef RETURN |
| 101 | #define RETURN(status) \ |
| 102 | { \ |
| 103 | ErrorStatus = status; \ |
| 104 | goto exit; \ |
| 105 | } |
| 106 | |
| 107 | #ifdef __OS2__ |
| 108 | /* Visual Age cannot deal with old, non-ansi, code */ |
| 109 | int |
| 110 | XpmCreateDataFromXpmImage(char*** data_return, XpmImage* image, XpmInfo* info) |
| 111 | #else |
| 112 | int |
| 113 | XpmCreateDataFromXpmImage(data_return, image, info) |
| 114 | char ***data_return; |
| 115 | XpmImage *image; |
| 116 | XpmInfo *info; |
| 117 | #endif |
| 118 | { |
| 119 | /* calculation variables */ |
| 120 | int ErrorStatus; |
| 121 | char buf[BUFSIZ]; |
| 122 | char **header = NULL, **data, **sptr, **sptr2, *s; |
| 123 | unsigned int header_size, header_nlines; |
| 124 | unsigned int data_size, data_nlines; |
| 125 | unsigned int extensions = 0, ext_size = 0, ext_nlines = 0; |
| 126 | unsigned int offset, l, n; |
| 127 | |
| 128 | *data_return = NULL; |
| 129 | |
| 130 | extensions = info && (info->valuemask & XpmExtensions) |
| 131 | && info->nextensions; |
| 132 | |
| 133 | /* compute the number of extensions lines and size */ |
| 134 | if (extensions) |
| 135 | CountExtensions(info->extensions, info->nextensions, |
| 136 | &ext_size, &ext_nlines); |
| 137 | |
| 138 | /* |
| 139 | * alloc a temporary array of char pointer for the header section which |
| 140 | * is the hints line + the color table lines |
| 141 | */ |
| 142 | header_nlines = 1 + image->ncolors; |
| 143 | header_size = sizeof(char *) * header_nlines; |
| 144 | header = (char **) XpmCalloc(header_size, sizeof(char *)); |
| 145 | if (!header) |
| 146 | return (XpmNoMemory); |
| 147 | |
| 148 | /* print the hints line */ |
| 149 | s = buf; |
| 150 | #ifndef VOID_SPRINTF |
| 151 | s += |
| 152 | #endif |
| 153 | sprintf(s, "%d %d %d %d", image->width, image->height, |
| 154 | image->ncolors, image->cpp); |
| 155 | #ifdef VOID_SPRINTF |
| 156 | s += strlen(s); |
| 157 | #endif |
| 158 | |
| 159 | if (info && (info->valuemask & XpmHotspot)) { |
| 160 | #ifndef VOID_SPRINTF |
| 161 | s += |
| 162 | #endif |
| 163 | sprintf(s, " %d %d", info->x_hotspot, info->y_hotspot); |
| 164 | #ifdef VOID_SPRINTF |
| 165 | s += strlen(s); |
| 166 | #endif |
| 167 | } |
| 168 | if (extensions) { |
| 169 | strcpy(s, " XPMEXT"); |
| 170 | s += 7; |
| 171 | } |
| 172 | l = s - buf + 1; |
| 173 | *header = (char *) XpmMalloc(l); |
| 174 | if (!*header) |
| 175 | RETURN(XpmNoMemory); |
| 176 | header_size += l; |
| 177 | strcpy(*header, buf); |
| 178 | |
| 179 | /* print colors */ |
| 180 | ErrorStatus = CreateColors(header + 1, &header_size, |
| 181 | image->colorTable, image->ncolors, image->cpp); |
| 182 | |
| 183 | if (ErrorStatus != XpmSuccess) |
| 184 | RETURN(ErrorStatus); |
| 185 | |
| 186 | /* now we know the size needed, alloc the data and copy the header lines */ |
| 187 | offset = image->width * image->cpp + 1; |
| 188 | data_size = header_size + (image->height + ext_nlines) * sizeof(char *) |
| 189 | + image->height * offset + ext_size; |
| 190 | |
| 191 | data = (char **) XpmMalloc(data_size); |
| 192 | if (!data) |
| 193 | RETURN(XpmNoMemory); |
| 194 | |
| 195 | data_nlines = header_nlines + image->height + ext_nlines; |
| 196 | *data = (char *) (data + data_nlines); |
| 197 | n = image->ncolors; |
| 198 | for (l = 0, sptr = data, sptr2 = header; l <= n; l++, sptr++, sptr2++) { |
| 199 | strcpy(*sptr, *sptr2); |
| 200 | *(sptr + 1) = *sptr + strlen(*sptr2) + 1; |
| 201 | } |
| 202 | |
| 203 | /* print pixels */ |
| 204 | data[header_nlines] = (char *) data + header_size |
| 205 | + (image->height + ext_nlines) * sizeof(char *); |
| 206 | |
| 207 | CreatePixels(data + header_nlines, image->width, image->height, |
| 208 | image->cpp, image->data, image->colorTable); |
| 209 | |
| 210 | /* print extensions */ |
| 211 | if (extensions) |
| 212 | CreateExtensions(data + header_nlines + image->height - 1, offset, |
| 213 | info->extensions, info->nextensions, |
| 214 | ext_nlines); |
| 215 | |
| 216 | *data_return = data; |
| 217 | ErrorStatus = XpmSuccess; |
| 218 | |
| 219 | /* exit point, free only locally allocated variables */ |
| 220 | exit: |
| 221 | if (header) { |
| 222 | for (l = 0; l < header_nlines; l++) |
| 223 | if (header[l]) |
| 224 | XpmFree(header[l]); |
| 225 | XpmFree(header); |
| 226 | } |
| 227 | return(ErrorStatus); |
| 228 | } |
| 229 | |
| 230 | #ifdef __OS2__ |
| 231 | /* Visual Age cannot deal with old, non-ansi, code */ |
| 232 | static int |
| 233 | CreateColors( |
| 234 | char** dataptr |
| 235 | , unsigned int* data_size |
| 236 | , XpmColor* colors |
| 237 | , unsigned int ncolors |
| 238 | , unsigned int cpp |
| 239 | ) |
| 240 | #else |
| 241 | static int |
| 242 | CreateColors(dataptr, data_size, colors, ncolors, cpp) |
| 243 | char **dataptr; |
| 244 | unsigned int *data_size; |
| 245 | XpmColor *colors; |
| 246 | unsigned int ncolors; |
| 247 | unsigned int cpp; |
| 248 | #endif |
| 249 | { |
| 250 | char buf[BUFSIZ]; |
| 251 | unsigned int a, key, l; |
| 252 | char *s, *s2; |
| 253 | char **defaults; |
| 254 | |
| 255 | for (a = 0; a < ncolors; a++, colors++, dataptr++) { |
| 256 | |
| 257 | defaults = (char **) colors; |
| 258 | strncpy(buf, *defaults++, cpp); |
| 259 | s = buf + cpp; |
| 260 | |
| 261 | for (key = 1; key <= NKEYS; key++, defaults++) { |
| 262 | if (s2 = *defaults) { |
| 263 | #ifndef VOID_SPRINTF |
| 264 | s += |
| 265 | #endif |
| 266 | sprintf(s, "\t%s %s", xpmColorKeys[key - 1], s2); |
| 267 | #ifdef VOID_SPRINTF |
| 268 | s += strlen(s); |
| 269 | #endif |
| 270 | } |
| 271 | } |
| 272 | l = s - buf + 1; |
| 273 | s = (char *) XpmMalloc(l); |
| 274 | if (!s) |
| 275 | return (XpmNoMemory); |
| 276 | *data_size += l; |
| 277 | *dataptr = strcpy(s, buf); |
| 278 | } |
| 279 | return (XpmSuccess); |
| 280 | } |
| 281 | |
| 282 | #ifdef __OS2__ |
| 283 | /* Visual Age cannot deal with old, non-ansi, code */ |
| 284 | static void CreatePixels( |
| 285 | char** dataptr |
| 286 | , unsigned int width |
| 287 | , unsigned int height |
| 288 | , unsigned int cpp |
| 289 | , unsigned int* pixels |
| 290 | , XpmColor* colors |
| 291 | ) |
| 292 | #else |
| 293 | static void |
| 294 | CreatePixels(dataptr, width, height, cpp, pixels, colors) |
| 295 | char **dataptr; |
| 296 | unsigned int width; |
| 297 | unsigned int height; |
| 298 | unsigned int cpp; |
| 299 | unsigned int *pixels; |
| 300 | XpmColor *colors; |
| 301 | #endif |
| 302 | { |
| 303 | char *s; |
| 304 | unsigned int x, y, h, offset; |
| 305 | |
| 306 | h = height - 1; |
| 307 | offset = width * cpp + 1; |
| 308 | for (y = 0; y < h; y++, dataptr++) { |
| 309 | s = *dataptr; |
| 310 | for (x = 0; x < width; x++, pixels++) { |
| 311 | strncpy(s, colors[*pixels].string, cpp); |
| 312 | s += cpp; |
| 313 | } |
| 314 | *s = '\0'; |
| 315 | *(dataptr + 1) = *dataptr + offset; |
| 316 | } |
| 317 | /* duplicate some code to avoid a test in the loop */ |
| 318 | s = *dataptr; |
| 319 | for (x = 0; x < width; x++, pixels++) { |
| 320 | strncpy(s, colors[*pixels].string, cpp); |
| 321 | s += cpp; |
| 322 | } |
| 323 | *s = '\0'; |
| 324 | } |
| 325 | |
| 326 | #ifdef __OS2__ |
| 327 | /* Visual Age cannot deal with old, non-ansi, code */ |
| 328 | static void CountExtensions( |
| 329 | XpmExtension* ext |
| 330 | , unsigned int num |
| 331 | , unsigned int* ext_size |
| 332 | , unsigned int* ext_nlines |
| 333 | ) |
| 334 | #else |
| 335 | static void |
| 336 | CountExtensions(ext, num, ext_size, ext_nlines) |
| 337 | XpmExtension *ext; |
| 338 | unsigned int num; |
| 339 | unsigned int *ext_size; |
| 340 | unsigned int *ext_nlines; |
| 341 | #endif |
| 342 | { |
| 343 | unsigned int x, y, a, size, nlines; |
| 344 | char **line; |
| 345 | |
| 346 | size = 0; |
| 347 | nlines = 0; |
| 348 | for (x = 0; x < num; x++, ext++) { |
| 349 | /* 1 for the name */ |
| 350 | nlines += ext->nlines + 1; |
| 351 | /* 8 = 7 (for "XPMEXT ") + 1 (for 0) */ |
| 352 | size += strlen(ext->name) + 8; |
| 353 | a = ext->nlines; |
| 354 | for (y = 0, line = ext->lines; y < a; y++, line++) |
| 355 | size += strlen(*line) + 1; |
| 356 | } |
| 357 | /* 10 and 1 are for the ending "XPMENDEXT" */ |
| 358 | *ext_size = size + 10; |
| 359 | *ext_nlines = nlines + 1; |
| 360 | } |
| 361 | |
| 362 | #ifdef __OS2__ |
| 363 | /* Visual Age cannot deal with old, non-ansi, code */ |
| 364 | static void |
| 365 | CreateExtensions( |
| 366 | char** dataptr |
| 367 | , unsigned int offset |
| 368 | , XpmExtension* ext |
| 369 | , unsigned int num |
| 370 | , unsigned int ext_nlines |
| 371 | ) |
| 372 | #else |
| 373 | static void |
| 374 | CreateExtensions(dataptr, offset, ext, num, ext_nlines) |
| 375 | char **dataptr; |
| 376 | unsigned int offset; |
| 377 | XpmExtension *ext; |
| 378 | unsigned int num; |
| 379 | unsigned int ext_nlines; |
| 380 | #endif |
| 381 | { |
| 382 | unsigned int x, y, a, b; |
| 383 | char **line; |
| 384 | |
| 385 | *(dataptr + 1) = *dataptr + offset; |
| 386 | dataptr++; |
| 387 | a = 0; |
| 388 | for (x = 0; x < num; x++, ext++) { |
| 389 | sprintf(*dataptr, "XPMEXT %s", ext->name); |
| 390 | a++; |
| 391 | if (a < ext_nlines) |
| 392 | *(dataptr + 1) = *dataptr + strlen(ext->name) + 8; |
| 393 | dataptr++; |
| 394 | b = ext->nlines; |
| 395 | for (y = 0, line = ext->lines; y < b; y++, line++) { |
| 396 | strcpy(*dataptr, *line); |
| 397 | a++; |
| 398 | if (a < ext_nlines) |
| 399 | *(dataptr + 1) = *dataptr + strlen(*line) + 1; |
| 400 | dataptr++; |
| 401 | } |
| 402 | } |
| 403 | strcpy(*dataptr, "XPMENDEXT"); |
| 404 | } |