]>
Commit | Line | Data |
---|---|---|
cfbe03c9 | 1 | /* |
e6ed776f | 2 | * Copyright (C) 1989-95 GROUPE BULL |
cfbe03c9 JS |
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 | /*****************************************************************************\ | |
e6ed776f | 27 | * CrBufFrI.c: * |
cfbe03c9 JS |
28 | * * |
29 | * XPM library * | |
30 | * Scan an image and possibly its mask and create an XPM buffer * | |
31 | * * | |
32 | * Developed by Arnaud Le Hors * | |
33 | \*****************************************************************************/ | |
34 | ||
e6ed776f | 35 | #include "XpmI.h" |
cfbe03c9 JS |
36 | |
37 | LFUNC(WriteColors, int, (char **dataptr, unsigned int *data_size, | |
38 | unsigned int *used_size, XpmColor *colors, | |
39 | unsigned int ncolors, unsigned int cpp)); | |
40 | ||
41 | LFUNC(WritePixels, void, (char *dataptr, unsigned int *used_size, | |
42 | unsigned int width, unsigned int height, | |
43 | unsigned int cpp, unsigned int *pixels, | |
44 | XpmColor *colors)); | |
45 | ||
46 | LFUNC(WriteExtensions, void, (char *dataptr, unsigned int *used_size, | |
47 | XpmExtension *ext, unsigned int num)); | |
48 | ||
49 | LFUNC(ExtensionsSize, int, (XpmExtension *ext, unsigned int num)); | |
50 | LFUNC(CommentsSize, int, (XpmInfo *info)); | |
51 | ||
ea258ad3 DW |
52 | #ifdef __OS2__ |
53 | /* Visual Age cannot deal with old, non-ansi, code */ | |
54 | int XpmCreateBufferFromImage( | |
55 | Display* display | |
56 | , char** buffer_return | |
57 | , XImage* image | |
58 | , XImage* shapeimage | |
59 | , XpmAttributes* attributes | |
60 | ) | |
61 | #else | |
cfbe03c9 | 62 | int |
e6ed776f GRG |
63 | XpmCreateBufferFromImage(display, buffer_return, image, shapeimage, attributes) |
64 | Display *display; | |
65 | char **buffer_return; | |
66 | XImage *image; | |
67 | XImage *shapeimage; | |
68 | XpmAttributes *attributes; | |
ea258ad3 | 69 | #endif |
cfbe03c9 JS |
70 | { |
71 | XpmImage xpmimage; | |
72 | XpmInfo info; | |
73 | int ErrorStatus; | |
74 | ||
75 | /* initialize return value */ | |
76 | if (buffer_return) | |
77 | *buffer_return = NULL; | |
78 | ||
79 | /* create an XpmImage from the image */ | |
80 | ErrorStatus = XpmCreateXpmImageFromImage(display, image, shapeimage, | |
81 | &xpmimage, attributes); | |
82 | if (ErrorStatus != XpmSuccess) | |
83 | return (ErrorStatus); | |
84 | ||
85 | /* create the buffer from the XpmImage */ | |
86 | if (attributes) { | |
87 | xpmSetInfo(&info, attributes); | |
88 | ErrorStatus = | |
89 | XpmCreateBufferFromXpmImage(buffer_return, &xpmimage, &info); | |
90 | } else | |
91 | ErrorStatus = | |
92 | XpmCreateBufferFromXpmImage(buffer_return, &xpmimage, NULL); | |
93 | ||
94 | /* free the XpmImage */ | |
95 | XpmFreeXpmImage(&xpmimage); | |
96 | ||
97 | return (ErrorStatus); | |
98 | } | |
99 | ||
100 | ||
101 | #undef RETURN | |
102 | #define RETURN(status) \ | |
103 | { \ | |
e6ed776f GRG |
104 | ErrorStatus = status; \ |
105 | goto error; \ | |
cfbe03c9 JS |
106 | } |
107 | ||
ea258ad3 DW |
108 | #ifdef __OS2__ |
109 | /* Visual Age cannot deal with old, non-ansi, code */ | |
110 | int XpmCreateBufferFromXpmImage(char** buffer_return, XpmImage* image, XpmInfo* info) | |
111 | #else | |
cfbe03c9 | 112 | int |
e6ed776f GRG |
113 | XpmCreateBufferFromXpmImage(buffer_return, image, info) |
114 | char **buffer_return; | |
115 | XpmImage *image; | |
116 | XpmInfo *info; | |
ea258ad3 | 117 | #endif |
cfbe03c9 JS |
118 | { |
119 | /* calculation variables */ | |
120 | int ErrorStatus; | |
121 | char buf[BUFSIZ]; | |
122 | unsigned int cmts, extensions, ext_size = 0; | |
123 | unsigned int l, cmt_size = 0; | |
124 | char *ptr = NULL, *p; | |
125 | unsigned int ptr_size, used_size; | |
126 | ||
127 | *buffer_return = NULL; | |
128 | ||
129 | cmts = info && (info->valuemask & XpmComments); | |
130 | extensions = info && (info->valuemask & XpmExtensions) | |
131 | && info->nextensions; | |
132 | ||
133 | /* compute the extensions and comments size */ | |
134 | if (extensions) | |
135 | ext_size = ExtensionsSize(info->extensions, info->nextensions); | |
136 | if (cmts) | |
137 | cmt_size = CommentsSize(info); | |
138 | ||
139 | /* write the header line */ | |
e6ed776f GRG |
140 | #ifndef VOID_SPRINTF |
141 | used_size = | |
142 | #endif | |
cfbe03c9 | 143 | sprintf(buf, "/* XPM */\nstatic char * image_name[] = {\n"); |
e6ed776f | 144 | #ifdef VOID_SPRINTF |
cfbe03c9 | 145 | used_size = strlen(buf); |
e6ed776f | 146 | #endif |
cfbe03c9 JS |
147 | ptr_size = used_size + ext_size + cmt_size + 1; |
148 | ptr = (char *) XpmMalloc(ptr_size); | |
149 | if (!ptr) | |
150 | return XpmNoMemory; | |
151 | strcpy(ptr, buf); | |
152 | ||
153 | /* write the values line */ | |
154 | if (cmts && info->hints_cmt) { | |
e6ed776f GRG |
155 | #ifndef VOID_SPRINTF |
156 | used_size += | |
157 | #endif | |
cfbe03c9 | 158 | sprintf(ptr + used_size, "/*%s*/\n", info->hints_cmt); |
e6ed776f | 159 | #ifdef VOID_SPRINTF |
cfbe03c9 | 160 | used_size += strlen(info->hints_cmt) + 5; |
e6ed776f | 161 | #endif |
cfbe03c9 | 162 | } |
e6ed776f GRG |
163 | #ifndef VOID_SPRINTF |
164 | l = | |
165 | #endif | |
cfbe03c9 JS |
166 | sprintf(buf, "\"%d %d %d %d", image->width, image->height, |
167 | image->ncolors, image->cpp); | |
e6ed776f | 168 | #ifdef VOID_SPRINTF |
cfbe03c9 | 169 | l = strlen(buf); |
e6ed776f | 170 | #endif |
cfbe03c9 JS |
171 | |
172 | if (info && (info->valuemask & XpmHotspot)) { | |
e6ed776f GRG |
173 | #ifndef VOID_SPRINTF |
174 | l += | |
175 | #endif | |
cfbe03c9 | 176 | sprintf(buf + l, " %d %d", info->x_hotspot, info->y_hotspot); |
e6ed776f | 177 | #ifdef VOID_SPRINTF |
cfbe03c9 | 178 | l = strlen(buf); |
e6ed776f | 179 | #endif |
cfbe03c9 JS |
180 | } |
181 | if (extensions) { | |
e6ed776f GRG |
182 | #ifndef VOID_SPRINTF |
183 | l += | |
184 | #endif | |
cfbe03c9 | 185 | sprintf(buf + l, " XPMEXT"); |
e6ed776f | 186 | #ifdef VOID_SPRINTF |
cfbe03c9 | 187 | l = strlen(buf); |
e6ed776f | 188 | #endif |
cfbe03c9 | 189 | } |
e6ed776f GRG |
190 | #ifndef VOID_SPRINTF |
191 | l += | |
192 | #endif | |
cfbe03c9 | 193 | sprintf(buf + l, "\",\n"); |
e6ed776f | 194 | #ifdef VOID_SPRINTF |
cfbe03c9 | 195 | l = strlen(buf); |
e6ed776f | 196 | #endif |
cfbe03c9 JS |
197 | ptr_size += l; |
198 | p = (char *) XpmRealloc(ptr, ptr_size); | |
199 | if (!p) | |
200 | RETURN(XpmNoMemory); | |
201 | ptr = p; | |
202 | strcpy(ptr + used_size, buf); | |
203 | used_size += l; | |
204 | ||
205 | /* write colors */ | |
206 | if (cmts && info->colors_cmt) { | |
e6ed776f GRG |
207 | #ifndef VOID_SPRINTF |
208 | used_size += | |
209 | #endif | |
cfbe03c9 | 210 | sprintf(ptr + used_size, "/*%s*/\n", info->colors_cmt); |
e6ed776f | 211 | #ifdef VOID_SPRINTF |
cfbe03c9 | 212 | used_size += strlen(info->colors_cmt) + 5; |
e6ed776f | 213 | #endif |
cfbe03c9 JS |
214 | } |
215 | ErrorStatus = WriteColors(&ptr, &ptr_size, &used_size, | |
216 | image->colorTable, image->ncolors, image->cpp); | |
ea258ad3 | 217 | |
cfbe03c9 JS |
218 | if (ErrorStatus != XpmSuccess) |
219 | RETURN(ErrorStatus); | |
220 | ||
221 | /* | |
e6ed776f GRG |
222 | * now we know the exact size we need, realloc the data |
223 | * 4 = 1 (for '"') + 3 (for '",\n') | |
224 | * 1 = - 2 (because the last line does not end with ',\n') + 3 (for '};\n') | |
cfbe03c9 JS |
225 | */ |
226 | ptr_size += image->height * (image->width * image->cpp + 4) + 1; | |
227 | ||
228 | p = (char *) XpmRealloc(ptr, ptr_size); | |
229 | if (!p) | |
230 | RETURN(XpmNoMemory); | |
231 | ptr = p; | |
232 | ||
233 | /* print pixels */ | |
234 | if (cmts && info->pixels_cmt) { | |
e6ed776f GRG |
235 | #ifndef VOID_SPRINTF |
236 | used_size += | |
237 | #endif | |
cfbe03c9 | 238 | sprintf(ptr + used_size, "/*%s*/\n", info->pixels_cmt); |
e6ed776f | 239 | #ifdef VOID_SPRINTF |
cfbe03c9 | 240 | used_size += strlen(info->pixels_cmt) + 5; |
e6ed776f | 241 | #endif |
cfbe03c9 JS |
242 | } |
243 | WritePixels(ptr + used_size, &used_size, image->width, image->height, | |
244 | image->cpp, image->data, image->colorTable); | |
245 | ||
246 | /* print extensions */ | |
247 | if (extensions) | |
248 | WriteExtensions(ptr + used_size, &used_size, | |
249 | info->extensions, info->nextensions); | |
250 | ||
251 | /* close the array */ | |
e6ed776f | 252 | strcpy(ptr + used_size, "};\n"); |
cfbe03c9 JS |
253 | |
254 | *buffer_return = ptr; | |
255 | ||
256 | return (XpmSuccess); | |
e6ed776f GRG |
257 | |
258 | /* exit point in case of error, free only locally allocated variables */ | |
259 | error: | |
260 | if (ptr) | |
261 | XpmFree(ptr); | |
262 | return (ErrorStatus); | |
cfbe03c9 JS |
263 | } |
264 | ||
ea258ad3 DW |
265 | #ifdef __OS2__ |
266 | /* Visual Age cannot deal with old, non-ansi, code */ | |
267 | static int WriteColors( | |
268 | char** dataptr | |
269 | , unsigned int* data_size | |
270 | , unsigned int* used_size | |
271 | , XpmColor* colors | |
272 | , unsigned int ncolors | |
273 | , unsigned int cpp | |
274 | ) | |
275 | #else | |
cfbe03c9 | 276 | static int |
e6ed776f GRG |
277 | WriteColors(dataptr, data_size, used_size, colors, ncolors, cpp) |
278 | char **dataptr; | |
279 | unsigned int *data_size; | |
280 | unsigned int *used_size; | |
281 | XpmColor *colors; | |
282 | unsigned int ncolors; | |
283 | unsigned int cpp; | |
ea258ad3 | 284 | #endif |
cfbe03c9 JS |
285 | { |
286 | char buf[BUFSIZ]; | |
287 | unsigned int a, key, l; | |
288 | char *s, *s2; | |
289 | char **defaults; | |
290 | ||
291 | *buf = '"'; | |
292 | for (a = 0; a < ncolors; a++, colors++) { | |
293 | ||
294 | defaults = (char **) colors; | |
295 | s = buf + 1; | |
296 | strncpy(s, *defaults++, cpp); | |
297 | s += cpp; | |
298 | ||
299 | for (key = 1; key <= NKEYS; key++, defaults++) { | |
300 | if (s2 = *defaults) { | |
e6ed776f GRG |
301 | #ifndef VOID_SPRINTF |
302 | s += | |
303 | #endif | |
cfbe03c9 | 304 | sprintf(s, "\t%s %s", xpmColorKeys[key - 1], s2); |
e6ed776f | 305 | #ifdef VOID_SPRINTF |
cfbe03c9 | 306 | s += strlen(s); |
e6ed776f | 307 | #endif |
cfbe03c9 JS |
308 | } |
309 | } | |
310 | strcpy(s, "\",\n"); | |
e6ed776f | 311 | l = s + 3 - buf; |
cfbe03c9 JS |
312 | s = (char *) XpmRealloc(*dataptr, *data_size + l); |
313 | if (!s) | |
314 | return (XpmNoMemory); | |
315 | *data_size += l; | |
316 | strcpy(s + *used_size, buf); | |
317 | *used_size += l; | |
318 | *dataptr = s; | |
319 | } | |
320 | return (XpmSuccess); | |
321 | } | |
322 | ||
ea258ad3 DW |
323 | #ifdef __OS2__ |
324 | /* Visual Age cannot deal with old, non-ansi, code */ | |
325 | static void WritePixels( | |
326 | char* dataptr | |
327 | , unsigned int* used_size | |
328 | , unsigned int width | |
329 | , unsigned int height | |
330 | , unsigned int cpp | |
331 | , unsigned int* pixels | |
332 | , XpmColor* colors | |
333 | ) | |
334 | #else | |
cfbe03c9 | 335 | static void |
e6ed776f GRG |
336 | WritePixels(dataptr, used_size, width, height, cpp, pixels, colors) |
337 | char *dataptr; | |
338 | unsigned int *used_size; | |
339 | unsigned int width; | |
340 | unsigned int height; | |
341 | unsigned int cpp; | |
342 | unsigned int *pixels; | |
343 | XpmColor *colors; | |
ea258ad3 | 344 | #endif |
cfbe03c9 JS |
345 | { |
346 | char *s = dataptr; | |
347 | unsigned int x, y, h; | |
348 | ||
349 | h = height - 1; | |
350 | for (y = 0; y < h; y++) { | |
351 | *s++ = '"'; | |
352 | for (x = 0; x < width; x++, pixels++) { | |
353 | strncpy(s, colors[*pixels].string, cpp); | |
354 | s += cpp; | |
355 | } | |
356 | strcpy(s, "\",\n"); | |
357 | s += 3; | |
358 | } | |
359 | /* duplicate some code to avoid a test in the loop */ | |
360 | *s++ = '"'; | |
361 | for (x = 0; x < width; x++, pixels++) { | |
362 | strncpy(s, colors[*pixels].string, cpp); | |
363 | s += cpp; | |
364 | } | |
365 | *s++ = '"'; | |
366 | *used_size += s - dataptr; | |
367 | } | |
368 | ||
ea258ad3 DW |
369 | #ifdef __OS2__ |
370 | /* Visual Age cannot deal with old, non-ansi, code */ | |
371 | static int | |
372 | ExtensionsSize(XpmExtension* ext, unsigned int num) | |
373 | #else | |
cfbe03c9 | 374 | static int |
e6ed776f GRG |
375 | ExtensionsSize(ext, num) |
376 | XpmExtension *ext; | |
377 | unsigned int num; | |
ea258ad3 | 378 | #endif |
cfbe03c9 JS |
379 | { |
380 | unsigned int x, y, a, size; | |
381 | char **line; | |
382 | ||
383 | size = 0; | |
384 | for (x = 0; x < num; x++, ext++) { | |
385 | /* 11 = 10 (for ',\n"XPMEXT ') + 1 (for '"') */ | |
386 | size += strlen(ext->name) + 11; | |
387 | a = ext->nlines; | |
388 | for (y = 0, line = ext->lines; y < a; y++, line++) | |
389 | /* 4 = 3 (for ',\n"') + 1 (for '"') */ | |
390 | size += strlen(*line) + 4; | |
391 | } | |
392 | /* 13 is for ',\n"XPMENDEXT"' */ | |
393 | return size + 13; | |
394 | } | |
395 | ||
ea258ad3 DW |
396 | #ifdef __OS2__ |
397 | /* Visual Age cannot deal with old, non-ansi, code */ | |
398 | static void WriteExtensions( | |
399 | char* dataptr | |
400 | , unsigned int* used_size | |
401 | , XpmExtension* ext | |
402 | , unsigned int num | |
403 | ) | |
404 | #else | |
cfbe03c9 | 405 | static void |
e6ed776f GRG |
406 | WriteExtensions(dataptr, used_size, ext, num) |
407 | char *dataptr; | |
408 | unsigned int *used_size; | |
409 | XpmExtension *ext; | |
410 | unsigned int num; | |
ea258ad3 | 411 | #endif |
cfbe03c9 JS |
412 | { |
413 | unsigned int x, y, a; | |
414 | char **line; | |
415 | char *s = dataptr; | |
416 | ||
417 | for (x = 0; x < num; x++, ext++) { | |
e6ed776f GRG |
418 | #ifndef VOID_SPRINTF |
419 | s += | |
420 | #endif | |
cfbe03c9 | 421 | sprintf(s, ",\n\"XPMEXT %s\"", ext->name); |
e6ed776f | 422 | #ifdef VOID_SPRINTF |
cfbe03c9 | 423 | s += strlen(ext->name) + 11; |
e6ed776f | 424 | #endif |
cfbe03c9 JS |
425 | a = ext->nlines; |
426 | for (y = 0, line = ext->lines; y < a; y++, line++) { | |
e6ed776f GRG |
427 | #ifndef VOID_SPRINTF |
428 | s += | |
429 | #endif | |
cfbe03c9 | 430 | sprintf(s, ",\n\"%s\"", *line); |
e6ed776f | 431 | #ifdef VOID_SPRINTF |
cfbe03c9 | 432 | s += strlen(*line) + 4; |
e6ed776f | 433 | #endif |
cfbe03c9 JS |
434 | } |
435 | } | |
436 | strcpy(s, ",\n\"XPMENDEXT\""); | |
437 | *used_size += s - dataptr + 13; | |
438 | } | |
439 | ||
ea258ad3 DW |
440 | #ifdef __OS2__ |
441 | /* Visual Age cannot deal with old, non-ansi, code */ | |
442 | static int CommentsSize(XpmInfo* info) | |
443 | #else | |
444 | static int CommentsSize(info) | |
e6ed776f | 445 | XpmInfo *info; |
ea258ad3 | 446 | #endif |
cfbe03c9 JS |
447 | { |
448 | int size = 0; | |
449 | ||
450 | /* 5 = 2 (for "/_*") + 3 (for "*_/\n") */ | |
451 | if (info->hints_cmt) | |
452 | size += 5 + strlen(info->hints_cmt); | |
453 | ||
454 | if (info->colors_cmt) | |
455 | size += 5 + strlen(info->colors_cmt); | |
456 | ||
457 | if (info->pixels_cmt) | |
458 | size += 5 + strlen(info->pixels_cmt); | |
459 | ||
460 | return size; | |
461 | } |