]> git.saurik.com Git - wxWidgets.git/blame - src/xpm/simx.c
more minimal stuff
[wxWidgets.git] / src / xpm / simx.c
CommitLineData
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/*****************************************************************************\
27* simx.c: 0.1a *
28* *
29* This emulates some Xlib functionality for MSW. It's not a general solution, *
30* it is close related to XPM-lib. It is only intended to satisfy what is need *
31* there. Thus allowing to read XPM files under MS windows. *
32* *
33* Developed by HeDu 3/94 (hedu@cul-ipn.uni-kiel.de) *
34\*****************************************************************************/
35
e6ed776f
GRG
36/* Moved here so that FOR_MSW gets defined if we are using wxWindows (GRG) */
37#include "xpm.h"
cfbe03c9
JS
38
39#ifdef FOR_MSW
40
e6ed776f 41#include "xpmi.h" /* for XpmMalloc */
cfbe03c9
JS
42
43/*
44 * On DOS size_t is only 2 bytes, thus malloc(size_t s) can only malloc
45 * 64K. BUT an expression data=malloc(width*height) may result in an
46 * overflow. So this function takes a long as input, and returns NULL if the
47 * request is larger than 64K, is size_t is only 2 bytes.
48 *
49 * This requires casts like XpmMalloc( (long)width*(long(height)), else it
50 * might have no effect at all.
51 */
52
53void *
54boundCheckingMalloc(long s)
55{
56 if (sizeof(size_t) == sizeof(long)) { /* same size, just do it */
57 return (malloc((size_t) s));
58 } else {
59 if (sizeof(size_t) == 2) {
60 if (s > 0xFFFF)
61 return (NULL); /* to large, size_t with 2 bytes
62 * only allows 16 bits */
63 else
64 return (malloc((size_t) s));
65 } else { /* it's not a long, not 2 bytes,
66 * what is it ??? */
67 return (malloc((size_t) s));
68 }
69 }
70}
71void *
72boundCheckingCalloc(long num, long s)
73{
74 if (sizeof(size_t) == sizeof(long)) { /* same size, just do it */
75 return (calloc((size_t) num, (size_t) s));
76 } else {
77 if (sizeof(size_t) == 2) {
78 if (s > 0xFFFF || num * s > 0xFFFF)
79 return (NULL); /* to large, size_t with 2 bytes
80 * only allows 16 bits */
81 else
82 return (calloc((size_t) num, (size_t) s));
83 } else { /* it's not a long, not 2 bytes,
84 * what is it ??? */
85 return (calloc((size_t) num, (size_t) s));
86 }
87 }
88}
89void *
90boundCheckingRealloc(void *p, long s)
91{
92 if (sizeof(size_t) == sizeof(long)) { /* same size, just do it */
93 return (realloc(p, (size_t) s));
94 } else {
95 if (sizeof(size_t) == 2) {
96 if (s > 0xFFFF)
97 return (NULL); /* to large, size_t with 2 bytes
98 * only allows 16 bits */
99 else
100 return (realloc(p, (size_t) s));
101 } else { /* it's not a long, not 2 bytes,
102 * what is it ??? */
103 return (realloc(p, (size_t) s));
104 }
105 }
106}
107
108/* static Visual theVisual = { 0 }; */
109Visual *
110XDefaultVisual(Display *display, Screen *screen)
111{
112 return (NULL); /* struct could contain info about
113 * MONO, GRAY, COLOR */
114}
115
116Screen *
117XDefaultScreen(Display *d)
118{
119 return (NULL);
120}
121
122/* I get only 1 plane but 8 bits per pixel,
e6ed776f 123 so I think BITSPIXEL should be depth */
ea258ad3 124int
cfbe03c9
JS
125XDefaultDepth(Display *display, Screen *screen)
126{
127 int d, b;
ea258ad3
DW
128#ifdef __OS2__
129 HPS hpsScreen;
130 HDC hdcScreen;
131 LONG lPlanes;
132 LONG lBitsPerPixel;
133 LONG nDepth;
cfbe03c9 134
ea258ad3
DW
135 hpsScreen = WinGetScreenPS(HWND_DESKTOP);
136 hdcScreen = GpiQueryDevice(hpsScreen);
137 DevQueryCaps(hdcScreen, CAPS_COLOR_PLANES, 1L, &lPlanes);
138 DevQueryCaps(hdcScreen, CAPS_COLOR_BITCOUNT, 1L, &lBitsPerPixel);
139 b = (int)lBitsPerPixel;
140#else
cfbe03c9
JS
141 b = GetDeviceCaps(*display, BITSPIXEL);
142 d = GetDeviceCaps(*display, PLANES);
ea258ad3 143#endif
cfbe03c9
JS
144 return (b);
145}
146
147Colormap *
148XDefaultColormap(Display *display, Screen *screen)
149{
150 return (NULL);
151}
152
153/* convert hex color names,
154 wrong digits (not a-f,A-F,0-9) are treated as zero */
ea258ad3
DW
155static int
156hexCharToInt(char c)
cfbe03c9
JS
157{
158 int r;
159
160 if (c >= '0' && c <= '9')
161 r = c - '0';
162 else if (c >= 'a' && c <= 'f')
163 r = c - 'a' + 10;
164 else if (c >= 'A' && c <= 'F')
165 r = c - 'A' + 10;
166 else
167 r = 0;
168
169 return (r);
170}
171
ea258ad3 172static int
cfbe03c9
JS
173rgbFromHex(char *hex, int *r, int *g, int *b)
174{
175 int len;
176
177 if (hex == NULL || hex[0] != '#')
178 return (0);
179
180 len = strlen(hex);
181 if (len == 3 + 1) {
182 *r = hexCharToInt(hex[1]);
183 *g = hexCharToInt(hex[2]);
184 *b = hexCharToInt(hex[3]);
185 } else if (len == 6 + 1) {
186 *r = hexCharToInt(hex[1]) * 16 + hexCharToInt(hex[2]);
187 *g = hexCharToInt(hex[3]) * 16 + hexCharToInt(hex[4]);
188 *b = hexCharToInt(hex[5]) * 16 + hexCharToInt(hex[6]);
189 } else if (len == 12 + 1) {
190 /* it's like c #32329999CCCC */
191 /* so for now only take two digits */
192 *r = hexCharToInt(hex[1]) * 16 + hexCharToInt(hex[2]);
193 *g = hexCharToInt(hex[5]) * 16 + hexCharToInt(hex[6]);
194 *b = hexCharToInt(hex[9]) * 16 + hexCharToInt(hex[10]);
195 } else
196 return (0);
197
198 return (1);
199}
200
201/* Color related functions */
ea258ad3 202int
cfbe03c9
JS
203XParseColor(Display *d, Colormap *cmap, char *name, XColor *color)
204{
205 int r, g, b; /* only 8 bit values used */
206 int okay;
207
208/* TODO: use colormap via PALETTE */
209 /* parse name either in table or #RRGGBB #RGB */
210 if (name == NULL)
211 return (0);
212
213 if (name[0] == '#') { /* a hex string */
214 okay = rgbFromHex(name, &r, &g, &b);
215 } else {
216 okay = xpmGetRGBfromName(name, &r, &g, &b);
217 }
218
219 if (okay) {
ea258ad3
DW
220#ifdef __OS2__
221 color->pixel = OS2RGB(r, g, b);
222#else
cfbe03c9 223 color->pixel = RGB(r, g, b);
ea258ad3 224#endif
cfbe03c9
JS
225 color->red = (BYTE) r;
226 color->green = (BYTE) g;
227 color->blue = (BYTE) b;
228 return (1);
229 } else
230 return (0); /* --> ColorError */
231}
232
233
e6ed776f
GRG
234/* GRG: 2nd arg is Colormap*, not Colormap */
235
ea258ad3 236int
cfbe03c9
JS
237XAllocColor(Display *d, Colormap *cmap, XColor *color)
238{
239/* colormap not used yet so color->pixel is the real COLORREF (RBG) and not an
240 index in some colormap as in X */
241 return (1);
242}
ea258ad3 243void
cfbe03c9
JS
244XQueryColors(Display *display, Colormap *colormap,
245 XColor *xcolors, int ncolors)
246{
247/* under X this fills the rgb values to given .pixel */
248/* since there no colormap use FOR_MSW (not yet!!), rgb is plain encoded */
249 XColor *xc = xcolors;
250 int i;
251
252 for (i = 0; i < ncolors; i++, xc++) {
253 xc->red = GetRValue(xc->pixel);
254 xc->green = GetGValue(xc->pixel);
255 xc->blue = GetBValue(xc->pixel);
256 }
257 return;
258}
ea258ad3 259int
cfbe03c9
JS
260XFreeColors(Display *d, Colormap cmap,
261 unsigned long pixels[], int npixels, unsigned long planes)
262{
263 /* no colormap yet */
264 return (0); /* correct ??? */
265}
266
267/* XImage functions */
268XImage *
269XCreateImage(Display *d, Visual *v,
270 int depth, int format,
271 int x, int y, int width, int height,
272 int pad, int foo)
273{
274 XImage *img = (XImage *) XpmMalloc(sizeof(XImage));
ea258ad3
DW
275#ifdef __OS2__
276 HPS hps;
277 BITMAPINFOHEADER2 bmih;
278
279 hps = WinGetScreenPS(HWND_DESKTOP);
280 memset(&bmih, 0, sizeof(BITMAPINFOHEADER2));
281 bmih.cbFix = sizeof(BITMAPINFOHEADER2);
282 bmih.cx = width;
283 bmih.cy = height;
284 bmih.cPlanes = 1;
285 bmih.cBitCount = depth;
286#endif
cfbe03c9
JS
287
288 if (img) {
e6ed776f
GRG
289 /*JW: This is what it should be, but the picture comes out
290 just black!? It appears to be doing monochrome reduction,
291 but I've got no clue why. Using CreateBitmap() is supposed
292 to be slower, but otherwise ok
293 if ( depth == GetDeviceCaps(*d, BITSPIXEL) ) {
294 img->bitmap = CreateCompatibleBitmap(*d, width, height);
295 } else*/ {
ea258ad3
DW
296#ifdef __OS2__
297 img->bitmap = GpiCreateBitmap(hps, &bmih, 0L, NULL, NULL);
298#else
e6ed776f
GRG
299 img->bitmap = CreateBitmap(width, height, 1 /* plane */ ,
300 depth /* bits per pixel */ , NULL);
ea258ad3 301#endif
e6ed776f 302 }
cfbe03c9
JS
303 img->width = width;
304 img->height = height;
305 img->depth = depth;
306 }
307 return (img);
308
309}
310
ea258ad3 311void
cfbe03c9
JS
312XImageFree(XImage *img)
313{
314 if (img) {
315 XpmFree(img);
316 }
317}
ea258ad3 318void
cfbe03c9
JS
319XDestroyImage(XImage *img)
320{
321 if (img) {
ea258ad3
DW
322#ifdef __OS2__
323 GpiDeleteBitmap(img->bitmap);
324#else
cfbe03c9 325 DeleteObject(img->bitmap); /* check return ??? */
ea258ad3 326#endif
cfbe03c9
JS
327 XImageFree(img);
328 }
329}
330
331#endif