Pileus Git - ~andy/gtk/blob - gdk/gdkpixmap.c

   1 /* GDK - The GIMP Drawing Kit
   2  * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Library General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Library General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Library General Public
  15  * License along with this library; if not, write to the
  16  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17  * Boston, MA 02111-1307, USA.
  18  */
  19 #include "../config.h"
  20 #include <stdlib.h>
  21 #include <stdio.h>
  22 #include <string.h>
  23 /* Needed for SEEK_END in SunOS */
  24 #include <unistd.h>
  25 #include <X11/Xlib.h>
  26
  27 #include "gdk.h"
  28 #include "gdkprivate.h"
  29
  30 typedef struct
  31 {
  32   gchar *color_string;
  33   GdkColor color;
  34   gint transparent;
  35 } _GdkPixmapColor;
  36
  37 GdkPixmap*
  38 gdk_pixmap_new (GdkWindow *window,
  39                 gint       width,
  40                 gint       height,
  41                 gint       depth)
  42 {
  43   GdkPixmap *pixmap;
  44   GdkWindowPrivate *private;
  45   GdkWindowPrivate *window_private;
  46
  47   g_return_val_if_fail ((window != NULL) || (depth != -1), NULL);
  48   g_return_val_if_fail ((width != 0) && (height != 0), NULL);
  49
  50   if (!window)
  51     window = (GdkWindow*) &gdk_root_parent;
  52
  53   window_private = (GdkWindowPrivate*) window;
  54   if (window_private->destroyed)
  55     return NULL;
  56
  57   if (depth == -1)
  58     depth = gdk_window_get_visual (window)->depth;
  59
  60   private = g_new (GdkWindowPrivate, 1);
  61   pixmap = (GdkPixmap*) private;
  62
  63   private->xdisplay = window_private->xdisplay;
  64   private->window_type = GDK_WINDOW_PIXMAP;
  65   private->xwindow = XCreatePixmap (private->xdisplay, window_private->xwindow,
  66                                     width, height, depth);
  67   private->colormap = NULL;
  68   private->parent = NULL;
  69   private->x = 0;
  70   private->y = 0;
  71   private->width = width;
  72   private->height = height;
  73   private->resize_count = 0;
  74   private->ref_count = 1;
  75   private->destroyed = 0;
  76
  77   gdk_xid_table_insert (&private->xwindow, pixmap);
  78
  79   return pixmap;
  80 }
  81
  82 GdkPixmap *
  83 gdk_bitmap_create_from_data (GdkWindow *window,
  84                              gchar     *data,
  85                              gint       width,
  86                              gint       height)
  87 {
  88   GdkPixmap *pixmap;
  89   GdkWindowPrivate *private;
  90   GdkWindowPrivate *window_private;
  91
  92   g_return_val_if_fail (data != NULL, NULL);
  93   g_return_val_if_fail ((width != 0) && (height != 0), NULL);
  94
  95   if (!window)
  96     window = (GdkWindow*) &gdk_root_parent;
  97
  98   window_private = (GdkWindowPrivate*) window;
  99   if (window_private->destroyed)
 100     return NULL;
 101
 102   private = g_new (GdkWindowPrivate, 1);
 103   pixmap = (GdkPixmap*) private;
 104
 105   private->parent = NULL;
 106   private->xdisplay = window_private->xdisplay;
 107   private->window_type = GDK_WINDOW_PIXMAP;
 108   private->x = 0;
 109   private->y = 0;
 110   private->width = width;
 111   private->height = height;
 112   private->resize_count = 0;
 113   private->ref_count = 1;
 114   private->destroyed = FALSE;
 115
 116   private->xwindow = XCreateBitmapFromData (private->xdisplay,
 117                                             window_private->xwindow,
 118                                             data, width, height);
 119
 120   gdk_xid_table_insert (&private->xwindow, pixmap);
 121
 122   return pixmap;
 123 }
 124
 125 GdkPixmap*
 126 gdk_pixmap_create_from_data (GdkWindow *window,
 127                              gchar     *data,
 128                              gint       width,
 129                              gint       height,
 130                              gint       depth,
 131                              GdkColor  *fg,
 132                              GdkColor  *bg)
 133 {
 134   GdkPixmap *pixmap;
 135   GdkWindowPrivate *private;
 136   GdkWindowPrivate *window_private;
 137
 138   g_return_val_if_fail (data != NULL, NULL);
 139   g_return_val_if_fail (fg != NULL, NULL);
 140   g_return_val_if_fail (bg != NULL, NULL);
 141   g_return_val_if_fail ((window != NULL) || (depth != -1), NULL);
 142   g_return_val_if_fail ((width != 0) && (height != 0), NULL);
 143
 144   if (!window)
 145     window = (GdkWindow*) &gdk_root_parent;
 146
 147   window_private = (GdkWindowPrivate*) window;
 148   if (window_private->destroyed)
 149     return NULL;
 150
 151   if (depth == -1)
 152     depth = gdk_window_get_visual (window)->depth;
 153
 154   private = g_new (GdkWindowPrivate, 1);
 155   pixmap = (GdkPixmap*) private;
 156
 157   private->parent = NULL;
 158   private->xdisplay = window_private->xdisplay;
 159   private->window_type = GDK_WINDOW_PIXMAP;
 160   private->x = 0;
 161   private->y = 0;
 162   private->width = width;
 163   private->height = height;
 164   private->resize_count = 0;
 165   private->ref_count = 1;
 166   private->destroyed = FALSE;
 167
 168   private->xwindow = XCreatePixmapFromBitmapData (private->xdisplay,
 169                                                   window_private->xwindow,
 170                                                   data, width, height,
 171                                                   fg->pixel, bg->pixel, depth);
 172
 173   gdk_xid_table_insert (&private->xwindow, pixmap);
 174
 175   return pixmap;
 176 }
 177
 178 gint
 179 gdk_pixmap_seek_string (FILE  *infile,
 180                         const gchar *str,
 181                         gint   skip_comments)
 182 {
 183   char instr[1024];
 184
 185   while (!feof (infile))
 186     {
 187       fscanf (infile, "%1023s", instr);
 188       if (skip_comments == TRUE && strcmp (instr, "/*") == 0)
 189         {
 190           fscanf (infile, "%1023s", instr);
 191           while (!feof (infile) && strcmp (instr, "*/") != 0)
 192             fscanf (infile, "%1023s", instr);
 193           fscanf(infile, "%1023s", instr);
 194         }
 195       if (strcmp (instr, str)==0)
 196         return TRUE;
 197     }
 198
 199   return FALSE;
 200 }
 201
 202 gint
 203 gdk_pixmap_seek_char (FILE  *infile,
 204                       gchar  c)
 205 {
 206   gint b, oldb;
 207
 208   while ((b = getc(infile)) != EOF)
 209     {
 210       if (c != b && b == '/')
 211         {
 212           b = getc (infile);
 213           if (b == EOF)
 214             return FALSE;
 215           else if (b == '*')    /* we have a comment */
 216             {
 217               b = -1;
 218               do
 219                 {
 220                   oldb = b;
 221                   b = getc (infile);
 222                   if (b == EOF)
 223                     return FALSE;
 224                 }
 225               while (!(oldb == '*' && b == '/'));
 226             }
 227         }
 228       else if (c == b)
 229         return TRUE;
 230     }
 231   return FALSE;
 232 }
 233
 234 gint
 235 gdk_pixmap_read_string (FILE  *infile,
 236                         gchar **buffer,
 237                         guint *buffer_size)
 238 {
 239   gint c;
 240   guint cnt = 0, bufsiz, ret = FALSE;
 241   gchar *buf;
 242
 243   buf = *buffer;
 244   bufsiz = *buffer_size;
 245   if (buf == NULL)
 246     {
 247       bufsiz = 10 * sizeof (gchar);
 248       buf = g_new(gchar, bufsiz);
 249     }
 250
 251   do
 252     c = getc (infile);
 253   while (c != EOF && c != '"');
 254
 255   if (c != '"')
 256     goto out;
 257
 258   while ((c = getc(infile)) != EOF)
 259     {
 260       if (cnt == bufsiz)
 261         {
 262           guint new_size = bufsiz * 2;
 263           if (new_size > bufsiz)
 264             bufsiz = new_size;
 265           else
 266             goto out;
 267
 268           buf = (gchar *) g_realloc (buf, bufsiz);
 269           buf[bufsiz-1] = '\0';
 270         }
 271
 272       if (c != '"')
 273         buf[cnt++] = c;
 274       else
 275         {
 276           buf[cnt] = 0;
 277           ret = TRUE;
 278           break;
 279         }
 280     }
 281
 282  out:
 283   buf[bufsiz-1] = '\0';         /* ensure null termination for errors */
 284   *buffer = buf;
 285   *buffer_size = bufsiz;
 286   return ret;
 287 }
 288
 289 gchar*
 290 gdk_pixmap_skip_whitespaces (gchar *buffer)
 291 {
 292   gint32 index = 0;
 293
 294   while (buffer[index] != 0 && (buffer[index] == 0x20 || buffer[index] == 0x09))
 295     index++;
 296
 297   return &buffer[index];
 298 }
 299
 300 gchar*
 301 gdk_pixmap_skip_string (gchar *buffer)
 302 {
 303   gint32 index = 0;
 304
 305   while (buffer[index] != 0 && buffer[index] != 0x20 && buffer[index] != 0x09)
 306     index++;
 307
 308   return &buffer[index];
 309 }
 310
 311 /* Xlib crashed ince at a color name lengths around 125 */
 312 #define MAX_COLOR_LEN 120
 313
 314 gchar*
 315 gdk_pixmap_extract_color (gchar *buffer)
 316 {
 317   gint counter, numnames;
 318   gchar *ptr = NULL, ch, temp[128];
 319   gchar color[MAX_COLOR_LEN], *retcol;
 320   gint space;
 321
 322   counter = 0;
 323   while (ptr == NULL)
 324     {
 325       if (buffer[counter] == 'c')
 326         {
 327           ch = buffer[counter + 1];
 328           if (ch == 0x20 || ch == 0x09)
 329             ptr = &buffer[counter + 1];
 330         }
 331       else if (buffer[counter] == 0)
 332         return NULL;
 333
 334       counter++;
 335     }
 336
 337   ptr = gdk_pixmap_skip_whitespaces (ptr);
 338
 339   if (ptr[0] == 0)
 340     return NULL;
 341   else if (ptr[0] == '#')
 342     {
 343       retcol = g_strdup (ptr);
 344       return retcol;
 345     }
 346
 347   color[0] = 0;
 348   numnames = 0;
 349
 350   space = MAX_COLOR_LEN - 1;
 351   while (space > 0)
 352     {
 353       sscanf (ptr, "%127s", temp);
 354
 355       if (((gint)ptr[0] == 0) ||
 356           (strcmp ("s", temp) == 0) || (strcmp ("m", temp) == 0) ||
 357           (strcmp ("g", temp) == 0) || (strcmp ("g4", temp) == 0))
 358         {
 359           break;
 360         }
 361       else
 362         {
 363           if (numnames > 0)
 364             {
 365               space -= 1;
 366               strcat (color, " ");
 367             }
 368           strncat (color, temp, space);
 369           space -= MIN (space, strlen (temp));
 370           ptr = gdk_pixmap_skip_string (ptr);
 371           ptr = gdk_pixmap_skip_whitespaces (ptr);
 372           numnames++;
 373         }
 374     }
 375
 376   retcol = g_strdup (color);
 377   return retcol;
 378 }
 379
 380 static void
 381 free_color (gpointer key, gpointer value, gpointer user_data)
 382 {
 383   g_free (key);
 384   g_free (value);
 385 }
 386
 387
 388 enum buffer_op
 389 {
 390   op_header,
 391   op_cmap,
 392   op_body
 393 };
 394
 395
 396 static GdkPixmap *
 397 _gdk_pixmap_create_from_xpm (GdkWindow  *window,
 398                              GdkColormap *colormap,
 399                              GdkBitmap **mask,
 400                              GdkColor   *transparent_color,
 401                              gchar *   (*get_buf) (enum buffer_op op,
 402                                                    gpointer       handle),
 403                              gpointer    handle)
 404 {
 405   GdkPixmap *pixmap = NULL;
 406   GdkImage *image = NULL;
 407   GdkVisual *visual;
 408   GdkGC *gc;
 409   GdkColor tmp_color;
 410   gint width, height, num_cols, cpp, n, ns, cnt, xcnt, ycnt, wbytes;
 411   gchar *buffer, pixel_str[32];
 412   _GdkPixmapColor *color = NULL, *fallbackcolor = NULL;
 413   gulong index;
 414   GHashTable *colors = NULL;
 415
 416   if ((window == NULL) && (colormap == NULL))
 417     g_warning ("Creating pixmap from xpm with NULL window and colormap");
 418
 419   if (window == NULL)
 420     window = (GdkWindow *)&gdk_root_parent;
 421
 422   if (colormap == NULL)
 423     {
 424       colormap = gdk_window_get_colormap (window);
 425       visual = gdk_window_get_visual (window);
 426     }
 427   else
 428     visual = ((GdkColormapPrivate *)colormap)->visual;
 429
 430   buffer = (*get_buf) (op_header, handle);
 431   if (buffer == NULL)
 432     return NULL;
 433
 434   sscanf (buffer,"%d %d %d %d", &width, &height, &num_cols, &cpp);
 435   if (cpp >= 32)
 436     {
 437       g_warning ("Pixmap has more than 31 characters per color\n");
 438       return NULL;
 439     }
 440
 441   colors = g_hash_table_new (g_str_hash, g_str_equal);
 442
 443   if (transparent_color == NULL)
 444       {
 445         gdk_color_white (colormap, &tmp_color);
 446         transparent_color = &tmp_color;
 447     }
 448
 449   for (cnt = 0; cnt < num_cols; cnt++)
 450     {
 451       gchar *color_name;
 452
 453       buffer = (*get_buf) (op_cmap, handle);
 454       if (buffer == NULL)
 455         goto error;
 456
 457       color = g_new (_GdkPixmapColor, 1);
 458       color->color_string = g_new(gchar, cpp + 1);
 459       strncpy (color->color_string, buffer, cpp);
 460       color->color_string[cpp] = 0;
 461       buffer += strlen (color->color_string);
 462       color->transparent = FALSE;
 463
 464       color_name = gdk_pixmap_extract_color (buffer);
 465
 466       if (color_name == NULL ||
 467           gdk_color_parse (color_name, &color->color) == FALSE)
 468         {
 469           color->color = *transparent_color;
 470           color->transparent = TRUE;
 471         }
 472
 473       g_free (color_name);
 474
 475       /* FIXME: The remaining slowness appears to happen in this
 476          function. */
 477       gdk_color_alloc (colormap, &color->color);
 478       g_hash_table_insert (colors, color->color_string, color);
 479       if (cnt == 0)
 480         fallbackcolor = color;
 481     }
 482
 483   index = 0;
 484   image = gdk_image_new (GDK_IMAGE_FASTEST, visual, width, height);
 485
 486   gc = NULL;
 487   if (mask)
 488     {
 489       /* The pixmap mask is just a bits pattern.
 490        * Color 0 is used for background and 1 for foreground.
 491        * We don't care about the colormap, we just need 0 and 1.
 492        */
 493       GdkColor mask_pattern;
 494
 495       *mask = gdk_pixmap_new (window, width, height, 1);
 496       gc = gdk_gc_new (*mask);
 497
 498       mask_pattern.pixel = 0;
 499       gdk_gc_set_foreground (gc, &mask_pattern);
 500       gdk_draw_rectangle (*mask, gc, TRUE, 0, 0, -1, -1);
 501
 502       mask_pattern.pixel = 1;
 503       gdk_gc_set_foreground (gc, &mask_pattern);
 504     }
 505
 506   wbytes = width * cpp;
 507   for (ycnt = 0; ycnt < height; ycnt++)
 508     {
 509       buffer = (*get_buf) (op_body, handle);
 510
 511       /* FIXME: this slows things down a little - it could be
 512        * integrated into the strncpy below, perhaps. OTOH, strlen
 513        * is fast.
 514        */
 515       if ((buffer == NULL) || strlen (buffer) < wbytes)
 516         continue;
 517
 518       for (n = 0, cnt = 0, xcnt = 0; n < wbytes; n += cpp, xcnt++)
 519         {
 520           strncpy (pixel_str, &buffer[n], cpp);
 521           pixel_str[cpp] = 0;
 522           ns = 0;
 523
 524           color = g_hash_table_lookup (colors, pixel_str);
 525
 526           if (!color) /* screwed up XPM file */
 527             color = fallbackcolor;
 528
 529           gdk_image_put_pixel (image, xcnt, ycnt, color->color.pixel);
 530
 531           if (mask && color->transparent)
 532             {
 533               if (cnt < xcnt)
 534                 gdk_draw_line (*mask, gc, cnt, ycnt, xcnt - 1, ycnt);
 535               cnt = xcnt + 1;
 536             }
 537         }
 538
 539       if (mask && (cnt < xcnt))
 540         gdk_draw_line (*mask, gc, cnt, ycnt, xcnt - 1, ycnt);
 541     }
 542
 543  error:
 544
 545   if (mask)
 546     gdk_gc_destroy (gc);
 547
 548   if (image != NULL)
 549     {
 550       pixmap = gdk_pixmap_new (window, width, height, visual->depth);
 551
 552       gc = gdk_gc_new (pixmap);
 553       gdk_gc_set_foreground (gc, transparent_color);
 554       gdk_draw_image (pixmap, gc, image, 0, 0, 0, 0, image->width, image->height);
 555       gdk_gc_destroy (gc);
 556       gdk_image_destroy (image);
 557     }
 558
 559   if (colors != NULL)
 560     {
 561       g_hash_table_foreach (colors, free_color, 0);
 562       g_hash_table_destroy (colors);
 563     }
 564
 565   return pixmap;
 566 }
 567
 568
 569 struct file_handle
 570 {
 571   FILE *infile;
 572   gchar *buffer;
 573   guint buffer_size;
 574 };
 575
 576
 577 static gchar *
 578 file_buffer (enum buffer_op op, gpointer handle)
 579 {
 580   struct file_handle *h = handle;
 581
 582   switch (op)
 583     {
 584     case op_header:
 585       if (gdk_pixmap_seek_string (h->infile, "XPM", FALSE) != TRUE)
 586         break;
 587
 588       if (gdk_pixmap_seek_char (h->infile,'{') != TRUE)
 589         break;
 590       /* Fall through to the next gdk_pixmap_seek_char. */
 591
 592     case op_cmap:
 593       gdk_pixmap_seek_char (h->infile, '"');
 594       fseek (h->infile, -1, SEEK_CUR);
 595       /* Fall through to the gdk_pixmap_read_string. */
 596
 597     case op_body:
 598       gdk_pixmap_read_string (h->infile, &h->buffer, &h->buffer_size);
 599       return h->buffer;
 600     }
 601   return 0;
 602 }
 603
 604
 605 GdkPixmap*
 606 gdk_pixmap_colormap_create_from_xpm (GdkWindow   *window,
 607                                      GdkColormap *colormap,
 608                                      GdkBitmap  **mask,
 609                                      GdkColor    *transparent_color,
 610                                      const gchar *filename)
 611 {
 612   struct file_handle h;
 613   GdkPixmap *pixmap = NULL;
 614
 615   memset (&h, 0, sizeof (h));
 616   h.infile = fopen (filename, "rb");
 617   if (h.infile != NULL)
 618     {
 619       pixmap = _gdk_pixmap_create_from_xpm (window, colormap, mask,
 620                                             transparent_color,
 621                                             file_buffer, &h);
 622       fclose (h.infile);
 623       g_free (h.buffer);
 624     }
 625
 626   return pixmap;
 627 }
 628 >
 629 GdkPixmap*
 630 gdk_pixmap_create_from_xpm (GdkWindow  *window,
 631                             GdkBitmap **mask,
 632                             GdkColor   *transparent_color,
 633                             const gchar *filename)
 634 {
 635   return gdk_pixmap_colormap_create_from_xpm (window, NULL, mask,
 636                                        transparent_color, filename);
 637 }
 638
 639
 640 struct mem_handle
 641 {
 642   gchar **data;
 643   int offset;
 644 };
 645
 646
 647 static gchar *
 648 mem_buffer (enum buffer_op op, gpointer handle)
 649 {
 650   struct mem_handle *h = handle;
 651   switch (op)
 652     {
 653     case op_header:
 654     case op_cmap:
 655     case op_body:
 656       if (h->data[h->offset])
 657         return h->data[h->offset ++];
 658     }
 659   return 0;
 660 }
 661
 662
 663 GdkPixmap*
 664 gdk_pixmap_colormap_create_from_xpm_d (GdkWindow  *window,
 665                                        GdkColormap *colormap,
 666                                        GdkBitmap **mask,
 667                                        GdkColor   *transparent_color,
 668                                        gchar     **data)
 669 {
 670   struct mem_handle h;
 671   GdkPixmap *pixmap = NULL;
 672
 673   memset (&h, 0, sizeof (h));
 674   h.data = data;
 675   pixmap = _gdk_pixmap_create_from_xpm (window, colormap, mask,
 676                                         transparent_color,
 677                                         mem_buffer, &h);
 678   return pixmap;
 679 }
 680
 681
 682 GdkPixmap*
 683 gdk_pixmap_create_from_xpm_d (GdkWindow  *window,
 684                               GdkBitmap **mask,
 685                               GdkColor   *transparent_color,
 686                               gchar     **data)
 687 {
 688   return gdk_pixmap_colormap_create_from_xpm_d (window, NULL, mask,
 689                                                 transparent_color, data);
 690 }
 691
 692 GdkPixmap*
 693 gdk_pixmap_ref (GdkPixmap *pixmap)
 694 {
 695   GdkWindowPrivate *private = (GdkWindowPrivate *)pixmap;
 696   g_return_val_if_fail (pixmap != NULL, NULL);
 697
 698   private->ref_count += 1;
 699   return pixmap;
 700 }
 701
 702 void
 703 gdk_pixmap_unref (GdkPixmap *pixmap)
 704 {
 705   GdkWindowPrivate *private = (GdkWindowPrivate *)pixmap;
 706   g_return_if_fail(pixmap != NULL);
 707
 708   private->ref_count -= 1;
 709   if (private->ref_count == 0)
 710     {
 711       XFreePixmap (private->xdisplay, private->xwindow);
 712       gdk_xid_table_remove (private->xwindow);
 713       g_free (private);
 714     }
 715 }
 716
 717 GdkBitmap *
 718 gdk_bitmap_ref (GdkBitmap *bitmap)
 719 {
 720   return (GdkBitmap *)gdk_pixmap_ref ((GdkPixmap *)bitmap);
 721 }
 722
 723 void
 724 gdk_bitmap_unref (GdkBitmap *bitmap)
 725 {
 726   gdk_pixmap_unref ((GdkPixmap *)bitmap);
 727 }