annotate src/image.c @ 109302:60516122d066

Merge changes from emacs-23 branch.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 10 Jul 2010 14:52:53 -0400
parents 8cfee7d2955f f969130f2bb4
children d12162869c07
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1 /* Functions for image support on window system.
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64084
diff changeset
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 105959
diff changeset
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
79759
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 79528
diff changeset
4 Free Software Foundation, Inc.
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6 This file is part of GNU Emacs.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94934
diff changeset
8 GNU Emacs is free software: you can redistribute it and/or modify
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
9 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94934
diff changeset
10 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94934
diff changeset
11 (at your option) any later version.
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
12
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
13 GNU Emacs is distributed in the hope that it will be useful,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
16 GNU General Public License for more details.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
17
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94934
diff changeset
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
20
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
21 #include <config.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
22 #include <stdio.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
23 #include <math.h>
56065
022411ad6751 Include <ctype.h>.
Andreas Schwab <schwab@suse.de>
parents: 55886
diff changeset
24 #include <ctype.h>
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
25
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
26 #ifdef HAVE_UNISTD_H
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
27 #include <unistd.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
28 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
29
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 104573
diff changeset
30 #ifdef HAVE_PNG
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 104573
diff changeset
31 #if defined HAVE_LIBPNG_PNG_H
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 104573
diff changeset
32 # include <libpng/png.h>
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 104573
diff changeset
33 #else
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 104573
diff changeset
34 # include <png.h>
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 104573
diff changeset
35 #endif
106975
62f86ca36527 Use png_sig_cmp to allow linking with libpng 1.4.0.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
36 #endif
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 104573
diff changeset
37
105678
d46b7a138955 * fns.c: Remove code for unsupported system: MAC_OS.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105669
diff changeset
38 #include <setjmp.h>
d46b7a138955 * fns.c: Remove code for unsupported system: MAC_OS.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105669
diff changeset
39
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
40 /* This makes the fields of a Display accessible, in Xlib header files. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
41
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
42 #define XLIB_ILLEGAL_ACCESS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
43
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
44 #include "lisp.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
45 #include "frame.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
46 #include "window.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
47 #include "dispextern.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
48 #include "blockinput.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
49 #include "systime.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
50 #include <epaths.h>
94934
669d4161a058 (image_ascent): Don't include "charset.h". Include
Kenichi Handa <handa@m17n.org>
parents: 94780
diff changeset
51 #include "character.h"
69771
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
52 #include "coding.h"
92110
458c8171667a Include termhooks.h to find the image_cache slot in terminal objects.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
53 #include "termhooks.h"
94934
669d4161a058 (image_ascent): Don't include "charset.h". Include
Kenichi Handa <handa@m17n.org>
parents: 94780
diff changeset
54 #include "font.h"
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
55
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
56 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
57 #include "xterm.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
58 #include <sys/types.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
59 #include <sys/stat.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
60
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
61 #define COLOR_TABLE_SUPPORT 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
62
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
63 typedef struct x_bitmap_record Bitmap_Record;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
64 #define GET_PIXEL(ximg, x, y) XGetPixel(ximg, x, y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
65 #define NO_PIXMAP None
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
66
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
67 #define RGB_PIXEL_COLOR unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
68
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
69 #define PIX_MASK_RETAIN 0
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
70 #define PIX_MASK_DRAW 1
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
71 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
72
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
73
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
74 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
75 #include "w32term.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
76
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
77 /* W32_TODO : Color tables on W32. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
78 #undef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
79
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
80 typedef struct w32_bitmap_record Bitmap_Record;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
81 #define GET_PIXEL(ximg, x, y) GetPixel(ximg, x, y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
82 #define NO_PIXMAP 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
83
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
84 #define RGB_PIXEL_COLOR COLORREF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
85
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
86 #define PIX_MASK_RETAIN 0
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
87 #define PIX_MASK_DRAW 1
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
88
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
89 #define FRAME_X_VISUAL(f) FRAME_X_DISPLAY_INFO (f)->visual
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
90 #define x_defined_color w32_defined_color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
91 #define DefaultDepthOfScreen(screen) (one_w32_display_info.n_cbits)
100845
58017ff34d94 * w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 100826
diff changeset
92
58017ff34d94 * w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 100826
diff changeset
93 /* Functions from w32term.c that depend on XColor (so can't go in w32term.h
58017ff34d94 * w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 100826
diff changeset
94 without modifying lots of files). */
58017ff34d94 * w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 100826
diff changeset
95 extern void x_query_colors (struct frame *f, XColor *colors, int ncolors);
58017ff34d94 * w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 100826
diff changeset
96 extern void x_query_color (struct frame *f, XColor *color);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
97 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
98
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
99 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
100 #include "nsterm.h"
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
101 #include <sys/types.h>
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
102 #include <sys/stat.h>
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
103
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
104 #undef COLOR_TABLE_SUPPORT
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
105
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
106 typedef struct ns_bitmap_record Bitmap_Record;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
107
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
108 #define GET_PIXEL(ximg, x, y) XGetPixel(ximg, x, y)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
109 #define NO_PIXMAP 0
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
110
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
111 #define RGB_PIXEL_COLOR unsigned long
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
112 #define ZPixmap 0
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
113
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
114 #define PIX_MASK_RETAIN 0
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
115 #define PIX_MASK_DRAW 1
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
116
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
117 #define FRAME_X_VISUAL FRAME_NS_DISPLAY_INFO(f)->visual
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
118 #define x_defined_color(f, name, color_def, alloc) \
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
119 ns_defined_color (f, name, color_def, alloc, 0)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
120 #define FRAME_X_SCREEN(f) 0
96870
30f1368d9cf6 * term/ns-win.el: Rename ns- functions/variables to the
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96763
diff changeset
121 #define DefaultDepthOfScreen(screen) x_display_list->n_planes
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
122 #endif /* HAVE_NS */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
123
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
124
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
125 /* Search path for bitmap files. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
126
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
127 Lisp_Object Vx_bitmap_file_path;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
128
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
129
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
130 static void x_disable_image (struct frame *, struct image *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
131 static void x_edge_detection (struct frame *, struct image *, Lisp_Object,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
132 Lisp_Object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
133
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
134 static void init_color_table (void);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
135 static unsigned long lookup_rgb_color (struct frame *f, int r, int g, int b);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
136 #ifdef COLOR_TABLE_SUPPORT
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
137 static void free_color_table (void);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
138 static unsigned long *colors_in_color_table (int *n);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
139 static unsigned long lookup_pixel_color (struct frame *f, unsigned long p);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
140 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
141
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
142 /* Code to deal with bitmaps. Bitmaps are referenced by their bitmap
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
143 id, which is just an int that this section returns. Bitmaps are
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
144 reference counted so they can be shared among frames.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
145
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
146 Bitmap indices are guaranteed to be > 0, so a negative number can
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
147 be used to indicate no bitmap.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
148
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
149 If you use x_create_bitmap_from_data, then you must keep track of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
150 the bitmaps yourself. That is, creating a bitmap from the same
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
151 data more than once will not be caught. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
152
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
153 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
154 XImagePtr
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
155 XGetImage (Display *display, Pixmap pixmap, int x, int y,
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
156 unsigned int width, unsigned int height,
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
157 unsigned long plane_mask, int format)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
158 {
96763
a27390a84360 change most cases of PENDING to TODO, some to FIXME or XXX
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
159 /* TODO: not sure what this function is supposed to do.. */
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
160 ns_retain_object (pixmap);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
161 return pixmap;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
162 }
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
163
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
164 /* use with imgs created by ns_image_for_XPM */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
165 unsigned long
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
166 XGetPixel (XImagePtr ximage, int x, int y)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
167 {
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
168 return ns_get_pixel (ximage, x, y);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
169 }
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
170
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
171 /* use with imgs created by ns_image_for_XPM; alpha set to 1;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
172 pixel is assumed to be in form RGB */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
173 void
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
174 XPutPixel (XImagePtr ximage, int x, int y, unsigned long pixel)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
175 {
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
176 ns_put_pixel (ximage, x, y, pixel);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
177 }
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
178 #endif /* HAVE_NS */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
179
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
180
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
181 /* Functions to access the contents of a bitmap, given an id. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
182
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
183 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
184 x_bitmap_height (FRAME_PTR f, int id)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
185 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
186 return FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
187 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
188
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
189 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
190 x_bitmap_width (FRAME_PTR f, int id)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
191 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
192 return FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
193 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
194
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
195 #if defined (HAVE_X_WINDOWS) || defined (HAVE_NTGUI)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
196 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
197 x_bitmap_pixmap (FRAME_PTR f, int id)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
198 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
199 return (int) FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
200 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
201 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
202
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
203 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
204 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
205 x_bitmap_mask (FRAME_PTR f, int id)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
206 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
207 return FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
208 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
209 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
210
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
211 /* Allocate a new bitmap record. Returns index of new record. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
212
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
213 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
214 x_allocate_bitmap_record (FRAME_PTR f)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
215 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
216 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
217 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
218
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
219 if (dpyinfo->bitmaps == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
220 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
221 dpyinfo->bitmaps_size = 10;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
222 dpyinfo->bitmaps
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
223 = (Bitmap_Record *) xmalloc (dpyinfo->bitmaps_size * sizeof (Bitmap_Record));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
224 dpyinfo->bitmaps_last = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
225 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
226 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
227
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
228 if (dpyinfo->bitmaps_last < dpyinfo->bitmaps_size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
229 return ++dpyinfo->bitmaps_last;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
230
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
231 for (i = 0; i < dpyinfo->bitmaps_size; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
232 if (dpyinfo->bitmaps[i].refcount == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
233 return i + 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
234
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
235 dpyinfo->bitmaps_size *= 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
236 dpyinfo->bitmaps
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
237 = (Bitmap_Record *) xrealloc (dpyinfo->bitmaps,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
238 dpyinfo->bitmaps_size * sizeof (Bitmap_Record));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
239 return ++dpyinfo->bitmaps_last;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
240 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
241
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
242 /* Add one reference to the reference count of the bitmap with id ID. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
243
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
244 void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
245 x_reference_bitmap (FRAME_PTR f, int id)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
246 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
247 ++FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].refcount;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
248 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
249
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
250 /* Create a bitmap for frame F from a HEIGHT x WIDTH array of bits at BITS. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
251
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
252 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
253 x_create_bitmap_from_data (struct frame *f, char *bits, unsigned int width, unsigned int height)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
254 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
255 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
256 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
257
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
258 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
259 Pixmap bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
260 bitmap = XCreateBitmapFromData (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
261 bits, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
262 if (! bitmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
263 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
264 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
265
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
266 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
267 Pixmap bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
268 bitmap = CreateBitmap (width, height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
269 FRAME_X_DISPLAY_INFO (XFRAME (frame))->n_planes,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
270 FRAME_X_DISPLAY_INFO (XFRAME (frame))->n_cbits,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
271 bits);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
272 if (! bitmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
273 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
274 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
275
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
276 #ifdef HAVE_NS
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
277 void *bitmap = ns_image_from_XBM (bits, width, height);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
278 if (!bitmap)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
279 return -1;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
280 #endif
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
281
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
282 id = x_allocate_bitmap_record (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
283
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
284 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
285 dpyinfo->bitmaps[id - 1].img = bitmap;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
286 dpyinfo->bitmaps[id - 1].depth = 1;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
287 #endif
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
288
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
289 dpyinfo->bitmaps[id - 1].file = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
290 dpyinfo->bitmaps[id - 1].height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
291 dpyinfo->bitmaps[id - 1].width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
292 dpyinfo->bitmaps[id - 1].refcount = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
293
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
294 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
295 dpyinfo->bitmaps[id - 1].pixmap = bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
296 dpyinfo->bitmaps[id - 1].have_mask = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
297 dpyinfo->bitmaps[id - 1].depth = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
298 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
299
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
300 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
301 dpyinfo->bitmaps[id - 1].pixmap = bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
302 dpyinfo->bitmaps[id - 1].hinst = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
303 dpyinfo->bitmaps[id - 1].depth = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
304 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
305
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
306 return id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
307 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
308
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
309 /* Create bitmap from file FILE for frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
310
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
311 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
312 x_create_bitmap_from_file (struct frame *f, Lisp_Object file)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
313 {
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
314 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
315
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
316 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
317 return -1; /* W32_TODO : bitmap support */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
318 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
319
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
320 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
321 int id;
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
322 void *bitmap = ns_image_from_file (file);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
323
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
324 if (!bitmap)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
325 return -1;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
326
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
327
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
328 id = x_allocate_bitmap_record (f);
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
329 dpyinfo->bitmaps[id - 1].img = bitmap;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
330 dpyinfo->bitmaps[id - 1].refcount = 1;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
331 dpyinfo->bitmaps[id - 1].file = (char *) xmalloc (SBYTES (file) + 1);
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
332 dpyinfo->bitmaps[id - 1].depth = 1;
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
333 dpyinfo->bitmaps[id - 1].height = ns_image_width (bitmap);
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
334 dpyinfo->bitmaps[id - 1].width = ns_image_height (bitmap);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
335 strcpy (dpyinfo->bitmaps[id - 1].file, SDATA (file));
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
336 return id;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
337 #endif
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
338
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
339 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
340 unsigned int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
341 Pixmap bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
342 int xhot, yhot, result, id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
343 Lisp_Object found;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
344 int fd;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
345 char *filename;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
346
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
347 /* Look for an existing bitmap with the same name. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
348 for (id = 0; id < dpyinfo->bitmaps_last; ++id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
349 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
350 if (dpyinfo->bitmaps[id].refcount
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
351 && dpyinfo->bitmaps[id].file
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
352 && !strcmp (dpyinfo->bitmaps[id].file, (char *) SDATA (file)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
353 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
354 ++dpyinfo->bitmaps[id].refcount;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
355 return id + 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
356 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
357 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
358
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
359 /* Search bitmap-file-path for the file, if appropriate. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
360 fd = openp (Vx_bitmap_file_path, file, Qnil, &found, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
361 if (fd < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
362 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
363 emacs_close (fd);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
364
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
365 filename = (char *) SDATA (found);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
366
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
367 result = XReadBitmapFile (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
368 filename, &width, &height, &bitmap, &xhot, &yhot);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
369 if (result != BitmapSuccess)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
370 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
371
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
372 id = x_allocate_bitmap_record (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
373 dpyinfo->bitmaps[id - 1].pixmap = bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
374 dpyinfo->bitmaps[id - 1].have_mask = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
375 dpyinfo->bitmaps[id - 1].refcount = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
376 dpyinfo->bitmaps[id - 1].file = (char *) xmalloc (SBYTES (file) + 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
377 dpyinfo->bitmaps[id - 1].depth = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
378 dpyinfo->bitmaps[id - 1].height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
379 dpyinfo->bitmaps[id - 1].width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
380 strcpy (dpyinfo->bitmaps[id - 1].file, SDATA (file));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
381
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
382 return id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
383 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
384 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
385
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
386 /* Free bitmap B. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
387
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
388 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
389 free_bitmap_record (Display_Info *dpyinfo, Bitmap_Record *bm)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
390 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
391 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
392 XFreePixmap (dpyinfo->display, bm->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
393 if (bm->have_mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
394 XFreePixmap (dpyinfo->display, bm->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
395 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
396
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
397 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
398 DeleteObject (bm->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
399 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
400
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
401 #ifdef HAVE_NS
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
402 ns_release_object (bm->img);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
403 #endif
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
404
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
405 if (bm->file)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
406 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
407 xfree (bm->file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
408 bm->file = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
409 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
410 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
411
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
412 /* Remove reference to bitmap with id number ID. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
413
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
414 void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
415 x_destroy_bitmap (FRAME_PTR f, int id)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
416 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
417 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
418
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
419 if (id > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
420 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
421 Bitmap_Record *bm = &dpyinfo->bitmaps[id - 1];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
422
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
423 if (--bm->refcount == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
424 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
425 BLOCK_INPUT;
85095
4f61ded4a62e (free_bitmap_record): Renamed from Free_Bitmap_Record.
Richard M. Stallman <rms@gnu.org>
parents: 85039
diff changeset
426 free_bitmap_record (dpyinfo, bm);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
427 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
428 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
429 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
430 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
431
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
432 /* Free all the bitmaps for the display specified by DPYINFO. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
433
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
434 void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
435 x_destroy_all_bitmaps (Display_Info *dpyinfo)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
436 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
437 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
438 Bitmap_Record *bm = dpyinfo->bitmaps;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
439
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
440 for (i = 0; i < dpyinfo->bitmaps_last; i++, bm++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
441 if (bm->refcount > 0)
85095
4f61ded4a62e (free_bitmap_record): Renamed from Free_Bitmap_Record.
Richard M. Stallman <rms@gnu.org>
parents: 85039
diff changeset
442 free_bitmap_record (dpyinfo, bm);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
443
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
444 dpyinfo->bitmaps_last = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
445 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
446
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
447
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
448 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
449
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
450 /* Useful functions defined in the section
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
451 `Image type independent image structures' below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
452
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
453 static unsigned long four_corners_best (XImagePtr ximg,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
454 int *corners,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
455 unsigned long width,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
456 unsigned long height);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
457
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
458 static int x_create_x_image_and_pixmap (struct frame *f, int width, int height,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
459 int depth, XImagePtr *ximg,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
460 Pixmap *pixmap);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
461
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
462 static void x_destroy_x_image (XImagePtr ximg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
463
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
464
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
465 /* Create a mask of a bitmap. Note is this not a perfect mask.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
466 It's nicer with some borders in this context */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
467
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
468 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
469 x_create_bitmap_mask (struct frame *f, int id)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
470 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
471 Pixmap pixmap, mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
472 XImagePtr ximg, mask_img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
473 unsigned long width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
474 int result;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
475 unsigned long bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
476 unsigned long x, y, xp, xm, yp, ym;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
477 GC gc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
478
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
479 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
480
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
481 if (!(id > 0))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
482 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
483
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
484 pixmap = x_bitmap_pixmap (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
485 width = x_bitmap_width (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
486 height = x_bitmap_height (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
487
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
488 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
489 ximg = XGetImage (FRAME_X_DISPLAY (f), pixmap, 0, 0, width, height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
490 ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
491
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
492 if (!ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
493 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
494 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
495 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
496 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
497
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
498 result = x_create_x_image_and_pixmap (f, width, height, 1, &mask_img, &mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
499
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
500 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
501 if (!result)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
502 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
503 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
504 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
505 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
506
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
507 bg = four_corners_best (ximg, NULL, width, height);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
508
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
509 for (y = 0; y < ximg->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
510 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
511 for (x = 0; x < ximg->width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
512 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
513 xp = x != ximg->width - 1 ? x + 1 : 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
514 xm = x != 0 ? x - 1 : ximg->width - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
515 yp = y != ximg->height - 1 ? y + 1 : 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
516 ym = y != 0 ? y - 1 : ximg->height - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
517 if (XGetPixel (ximg, x, y) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
518 && XGetPixel (ximg, x, yp) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
519 && XGetPixel (ximg, x, ym) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
520 && XGetPixel (ximg, xp, y) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
521 && XGetPixel (ximg, xp, yp) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
522 && XGetPixel (ximg, xp, ym) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
523 && XGetPixel (ximg, xm, y) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
524 && XGetPixel (ximg, xm, yp) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
525 && XGetPixel (ximg, xm, ym) == bg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
526 XPutPixel (mask_img, x, y, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
527 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
528 XPutPixel (mask_img, x, y, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
529 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
530 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
531
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
532 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
533 gc = XCreateGC (FRAME_X_DISPLAY (f), mask, 0, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
534 XPutImage (FRAME_X_DISPLAY (f), mask, gc, mask_img, 0, 0, 0, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
535 width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
536 XFreeGC (FRAME_X_DISPLAY (f), gc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
537
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
538 dpyinfo->bitmaps[id - 1].have_mask = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
539 dpyinfo->bitmaps[id - 1].mask = mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
540
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
541 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
542 x_destroy_x_image (mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
543
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
544 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
545 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
546
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
547 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
548
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
549
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
550 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
551 Image types
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
552 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
553
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
554 /* Value is the number of elements of vector VECTOR. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
555
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
556 #define DIM(VECTOR) (sizeof (VECTOR) / sizeof *(VECTOR))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
557
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
558 /* List of supported image types. Use define_image_type to add new
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
559 types. Use lookup_image_type to find a type for a given symbol. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
560
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
561 static struct image_type *image_types;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
562
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
563 /* A list of symbols, one for each supported image type. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
564
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
565 Lisp_Object Vimage_types;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
566
62815
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
567 /* An alist of image types and libraries that implement the type. */
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
568
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
569 Lisp_Object Vimage_library_alist;
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
570
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
571 /* Cache for delayed-loading image types. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
572
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
573 static Lisp_Object Vimage_type_cache;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
574
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
575 /* The symbol `xbm' which is used as the type symbol for XBM images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
576
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
577 Lisp_Object Qxbm;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
578
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
579 /* Keywords. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
580
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
581 extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile;
85710
beb909dfc54d Rewrite abbrev.c in Elisp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85254
diff changeset
582 extern Lisp_Object QCdata, QCtype;
54427
5636e8542b77 (Qcenter): Move to xdisp.c.
Kim F. Storm <storm@cua.dk>
parents: 54391
diff changeset
583 extern Lisp_Object Qcenter;
107719
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
584 Lisp_Object QCascent, QCmargin, QCrelief, Qcount, Qextension_data;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
585 Lisp_Object QCconversion, QCcolor_symbols, QCheuristic_mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
586 Lisp_Object QCindex, QCmatrix, QCcolor_adjustment, QCmask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
587
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
588 /* Other symbols. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
589
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
590 Lisp_Object Qlaplace, Qemboss, Qedge_detection, Qheuristic;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
591
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
592 /* Time in seconds after which images should be removed from the cache
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
593 if not displayed. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
594
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
595 Lisp_Object Vimage_cache_eviction_delay;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
596
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
597 /* Function prototypes. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
598
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
599 static Lisp_Object define_image_type (struct image_type *type, int loaded);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
600 static struct image_type *lookup_image_type (Lisp_Object symbol);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
601 static void image_error (char *format, Lisp_Object, Lisp_Object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
602 static void x_laplace (struct frame *, struct image *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
603 static void x_emboss (struct frame *, struct image *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
604 static int x_build_heuristic_mask (struct frame *, struct image *,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
605 Lisp_Object);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
606
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
607 #define CACHE_IMAGE_TYPE(type, status) \
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
608 do { Vimage_type_cache = Fcons (Fcons (type, status), Vimage_type_cache); } while (0)
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
609
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
610 #define ADD_IMAGE_TYPE(type) \
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
611 do { Vimage_types = Fcons (type, Vimage_types); } while (0)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
612
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
613 /* Define a new image type from TYPE. This adds a copy of TYPE to
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
614 image_types and caches the loading status of TYPE. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
615
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
616 static Lisp_Object
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
617 define_image_type (struct image_type *type, int loaded)
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
618 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
619 Lisp_Object success;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
620
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
621 if (!loaded)
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
622 success = Qnil;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
623 else
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
624 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
625 /* Make a copy of TYPE to avoid a bus error in a dumped Emacs.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
626 The initialized data segment is read-only. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
627 struct image_type *p = (struct image_type *) xmalloc (sizeof *p);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
628 memcpy (p, type, sizeof *p);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
629 p->next = image_types;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
630 image_types = p;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
631 success = Qt;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
632 }
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
633
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
634 CACHE_IMAGE_TYPE (*type->type, success);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
635 return success;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
636 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
637
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
638
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
639 /* Look up image type SYMBOL, and return a pointer to its image_type
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
640 structure. Value is null if SYMBOL is not a known image type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
641
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
642 static INLINE struct image_type *
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
643 lookup_image_type (Lisp_Object symbol)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
644 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
645 struct image_type *type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
646
56132
56c3ef9caeed Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 56104
diff changeset
647 /* We must initialize the image-type if it hasn't been already. */
62815
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
648 if (NILP (Finit_image_library (symbol, Vimage_library_alist)))
56132
56c3ef9caeed Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 56104
diff changeset
649 return 0; /* unimplemented */
56c3ef9caeed Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 56104
diff changeset
650
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
651 for (type = image_types; type; type = type->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
652 if (EQ (symbol, *type->type))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
653 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
654
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
655 return type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
656 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
657
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
658
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
659 /* Value is non-zero if OBJECT is a valid Lisp image specification. A
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
660 valid image specification is a list whose car is the symbol
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
661 `image', and whose rest is a property list. The property list must
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
662 contain a value for key `:type'. That value must be the name of a
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
663 supported image type. The rest of the property list depends on the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
664 image type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
665
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
666 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
667 valid_image_p (Lisp_Object object)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
668 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
669 int valid_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
670
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
671 if (IMAGEP (object))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
672 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
673 Lisp_Object tem;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
674
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
675 for (tem = XCDR (object); CONSP (tem); tem = XCDR (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
676 if (EQ (XCAR (tem), QCtype))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
677 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
678 tem = XCDR (tem);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
679 if (CONSP (tem) && SYMBOLP (XCAR (tem)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
680 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
681 struct image_type *type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
682 type = lookup_image_type (XCAR (tem));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
683 if (type)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
684 valid_p = type->valid_p (object);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
685 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
686
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
687 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
688 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
689 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
690
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
691 return valid_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
692 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
693
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
694
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
695 /* Log error message with format string FORMAT and argument ARG.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
696 Signaling an error, e.g. when an image cannot be loaded, is not a
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
697 good idea because this would interrupt redisplay, and the error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
698 message display would lead to another redisplay. This function
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
699 therefore simply displays a message. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
700
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
701 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
702 image_error (char *format, Lisp_Object arg1, Lisp_Object arg2)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
703 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
704 add_to_log (format, arg1, arg2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
705 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
706
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
707
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
708
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
709 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
710 Image specifications
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
711 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
712
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
713 enum image_value_type
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
714 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
715 IMAGE_DONT_CHECK_VALUE_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
716 IMAGE_STRING_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
717 IMAGE_STRING_OR_NIL_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
718 IMAGE_SYMBOL_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
719 IMAGE_POSITIVE_INTEGER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
720 IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
721 IMAGE_NON_NEGATIVE_INTEGER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
722 IMAGE_ASCENT_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
723 IMAGE_INTEGER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
724 IMAGE_FUNCTION_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
725 IMAGE_NUMBER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
726 IMAGE_BOOL_VALUE
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
727 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
728
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
729 /* Structure used when parsing image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
730
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
731 struct image_keyword
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
732 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
733 /* Name of keyword. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
734 char *name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
735
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
736 /* The type of value allowed. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
737 enum image_value_type type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
738
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
739 /* Non-zero means key must be present. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
740 int mandatory_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
741
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
742 /* Used to recognize duplicate keywords in a property list. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
743 int count;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
744
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
745 /* The value that was found. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
746 Lisp_Object value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
747 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
748
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
749
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
750 static int parse_image_spec (Lisp_Object, struct image_keyword *,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
751 int, Lisp_Object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
752 static Lisp_Object image_spec_value (Lisp_Object, Lisp_Object, int *);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
753
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
754
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
755 /* Parse image spec SPEC according to KEYWORDS. A valid image spec
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
756 has the format (image KEYWORD VALUE ...). One of the keyword/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
757 value pairs must be `:type TYPE'. KEYWORDS is a vector of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
758 image_keywords structures of size NKEYWORDS describing other
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
759 allowed keyword/value pairs. Value is non-zero if SPEC is valid. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
760
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
761 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
762 parse_image_spec (Lisp_Object spec, struct image_keyword *keywords,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
763 int nkeywords, Lisp_Object type)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
764 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
765 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
766 Lisp_Object plist;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
767
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
768 if (!IMAGEP (spec))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
769 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
770
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
771 plist = XCDR (spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
772 while (CONSP (plist))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
773 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
774 Lisp_Object key, value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
775
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
776 /* First element of a pair must be a symbol. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
777 key = XCAR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
778 plist = XCDR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
779 if (!SYMBOLP (key))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
780 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
781
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
782 /* There must follow a value. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
783 if (!CONSP (plist))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
784 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
785 value = XCAR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
786 plist = XCDR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
787
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
788 /* Find key in KEYWORDS. Error if not found. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
789 for (i = 0; i < nkeywords; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
790 if (strcmp (keywords[i].name, SDATA (SYMBOL_NAME (key))) == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
791 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
792
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
793 if (i == nkeywords)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
794 continue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
795
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
796 /* Record that we recognized the keyword. If a keywords
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
797 was found more than once, it's an error. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
798 keywords[i].value = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
799 ++keywords[i].count;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
800
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
801 if (keywords[i].count > 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
802 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
803
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
804 /* Check type of value against allowed type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
805 switch (keywords[i].type)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
806 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
807 case IMAGE_STRING_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
808 if (!STRINGP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
809 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
810 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
811
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
812 case IMAGE_STRING_OR_NIL_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
813 if (!STRINGP (value) && !NILP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
814 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
815 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
816
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
817 case IMAGE_SYMBOL_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
818 if (!SYMBOLP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
819 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
820 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
821
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
822 case IMAGE_POSITIVE_INTEGER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
823 if (!INTEGERP (value) || XINT (value) <= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
824 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
825 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
826
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
827 case IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
828 if (INTEGERP (value) && XINT (value) >= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
829 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
830 if (CONSP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
831 && INTEGERP (XCAR (value)) && INTEGERP (XCDR (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
832 && XINT (XCAR (value)) >= 0 && XINT (XCDR (value)) >= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
833 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
834 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
835
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
836 case IMAGE_ASCENT_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
837 if (SYMBOLP (value) && EQ (value, Qcenter))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
838 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
839 else if (INTEGERP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
840 && XINT (value) >= 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
841 && XINT (value) <= 100)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
842 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
843 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
844
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
845 case IMAGE_NON_NEGATIVE_INTEGER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
846 if (!INTEGERP (value) || XINT (value) < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
847 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
848 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
849
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
850 case IMAGE_DONT_CHECK_VALUE_TYPE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
851 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
852
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
853 case IMAGE_FUNCTION_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
854 value = indirect_function (value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
855 if (SUBRP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
856 || COMPILEDP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
857 || (CONSP (value) && EQ (XCAR (value), Qlambda)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
858 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
859 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
860
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
861 case IMAGE_NUMBER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
862 if (!INTEGERP (value) && !FLOATP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
863 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
864 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
865
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
866 case IMAGE_INTEGER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
867 if (!INTEGERP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
868 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
869 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
870
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
871 case IMAGE_BOOL_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
872 if (!NILP (value) && !EQ (value, Qt))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
873 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
874 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
875
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
876 default:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
877 abort ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
878 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
879 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
880
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
881 if (EQ (key, QCtype) && !EQ (type, value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
882 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
883 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
884
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
885 /* Check that all mandatory fields are present. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
886 for (i = 0; i < nkeywords; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
887 if (keywords[i].mandatory_p && keywords[i].count == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
888 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
889
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
890 return NILP (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
891 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
892
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
893
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
894 /* Return the value of KEY in image specification SPEC. Value is nil
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
895 if KEY is not present in SPEC. if FOUND is not null, set *FOUND
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
896 to 1 if KEY was found in SPEC, set it to 0 otherwise. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
897
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
898 static Lisp_Object
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
899 image_spec_value (Lisp_Object spec, Lisp_Object key, int *found)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
900 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
901 Lisp_Object tail;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
902
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
903 xassert (valid_image_p (spec));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
904
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
905 for (tail = XCDR (spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
906 CONSP (tail) && CONSP (XCDR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
907 tail = XCDR (XCDR (tail)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
908 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
909 if (EQ (XCAR (tail), key))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
910 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
911 if (found)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
912 *found = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
913 return XCAR (XCDR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
914 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
915 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
916
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
917 if (found)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
918 *found = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
919 return Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
920 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
921
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
922
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
923 DEFUN ("image-size", Fimage_size, Simage_size, 1, 3, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
924 doc: /* Return the size of image SPEC as pair (WIDTH . HEIGHT).
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
925 PIXELS non-nil means return the size in pixels, otherwise return the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
926 size in canonical character units.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
927 FRAME is the frame on which the image will be displayed. FRAME nil
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
928 or omitted means use the selected frame. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
929 (Lisp_Object spec, Lisp_Object pixels, Lisp_Object frame)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
930 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
931 Lisp_Object size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
932
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
933 size = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
934 if (valid_image_p (spec))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
935 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
936 struct frame *f = check_x_frame (frame);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
937 int id = lookup_image (f, spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
938 struct image *img = IMAGE_FROM_ID (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
939 int width = img->width + 2 * img->hmargin;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
940 int height = img->height + 2 * img->vmargin;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
941
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
942 if (NILP (pixels))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
943 size = Fcons (make_float ((double) width / FRAME_COLUMN_WIDTH (f)),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
944 make_float ((double) height / FRAME_LINE_HEIGHT (f)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
945 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
946 size = Fcons (make_number (width), make_number (height));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
947 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
948 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
949 error ("Invalid image specification");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
950
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
951 return size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
952 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
953
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
954
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
955 DEFUN ("image-mask-p", Fimage_mask_p, Simage_mask_p, 1, 2, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
956 doc: /* Return t if image SPEC has a mask bitmap.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
957 FRAME is the frame on which the image will be displayed. FRAME nil
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
958 or omitted means use the selected frame. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
959 (Lisp_Object spec, Lisp_Object frame)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
960 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
961 Lisp_Object mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
962
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
963 mask = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
964 if (valid_image_p (spec))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
965 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
966 struct frame *f = check_x_frame (frame);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
967 int id = lookup_image (f, spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
968 struct image *img = IMAGE_FROM_ID (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
969 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
970 mask = Qt;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
971 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
972 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
973 error ("Invalid image specification");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
974
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
975 return mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
976 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
977
107719
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
978 DEFUN ("image-metadata", Fimage_metadata, Simage_metadata, 1, 2, 0,
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
979 doc: /* Return metadata for image SPEC.
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
980 FRAME is the frame on which the image will be displayed. FRAME nil
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
981 or omitted means use the selected frame. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
982 (Lisp_Object spec, Lisp_Object frame)
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
983 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
984 Lisp_Object ext;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
985
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
986 ext = Qnil;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
987 if (valid_image_p (spec))
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
988 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
989 struct frame *f = check_x_frame (frame);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
990 int id = lookup_image (f, spec);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
991 struct image *img = IMAGE_FROM_ID (f, id);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
992 ext = img->data.lisp_val;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
993 }
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
994
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
995 return ext;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
996 }
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
997
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
998
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
999 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1000 Image type independent image structures
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1001 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1002
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1003 static struct image *make_image (Lisp_Object spec, unsigned hash);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1004 static void free_image (struct frame *f, struct image *img);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1005 static int check_image_size (struct frame *f, int width, int height);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1006
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1007 #define MAX_IMAGE_SIZE 6.0
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1008 Lisp_Object Vmax_image_size;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1009
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1010 /* Allocate and return a new image structure for image specification
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1011 SPEC. SPEC has a hash value of HASH. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1012
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1013 static struct image *
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1014 make_image (Lisp_Object spec, unsigned int hash)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1015 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1016 struct image *img = (struct image *) xmalloc (sizeof *img);
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1017 Lisp_Object file = image_spec_value (spec, QCfile, NULL);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1018
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1019 xassert (valid_image_p (spec));
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
1020 memset (img, 0, sizeof *img);
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1021 img->dependencies = NILP (file) ? Qnil : list1 (file);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1022 img->type = lookup_image_type (image_spec_value (spec, QCtype, NULL));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1023 xassert (img->type != NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1024 img->spec = spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1025 img->data.lisp_val = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1026 img->ascent = DEFAULT_IMAGE_ASCENT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1027 img->hash = hash;
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1028 img->corners[BOT_CORNER] = -1; /* Full image */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1029 return img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1030 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1031
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1032
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1033 /* Free image IMG which was used on frame F, including its resources. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1034
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1035 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1036 free_image (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1037 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1038 if (img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1039 {
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1040 struct image_cache *c = FRAME_IMAGE_CACHE (f);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1041
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1042 /* Remove IMG from the hash table of its cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1043 if (img->prev)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1044 img->prev->next = img->next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1045 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1046 c->buckets[img->hash % IMAGE_CACHE_BUCKETS_SIZE] = img->next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1047
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1048 if (img->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1049 img->next->prev = img->prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1050
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1051 c->images[img->id] = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1052
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1053 /* Free resources, then free IMG. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1054 img->type->free (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1055 xfree (img);
109248
f969130f2bb4 * image.c (free_image): Mark frame as garbaged (Bug#6426).
Chong Yidong <cyd@stupidchicken.com>
parents: 106975
diff changeset
1056
f969130f2bb4 * image.c (free_image): Mark frame as garbaged (Bug#6426).
Chong Yidong <cyd@stupidchicken.com>
parents: 106975
diff changeset
1057 /* As display glyphs may still be referring to the image ID, we
f969130f2bb4 * image.c (free_image): Mark frame as garbaged (Bug#6426).
Chong Yidong <cyd@stupidchicken.com>
parents: 106975
diff changeset
1058 must garbage the frame (Bug#6426). */
f969130f2bb4 * image.c (free_image): Mark frame as garbaged (Bug#6426).
Chong Yidong <cyd@stupidchicken.com>
parents: 106975
diff changeset
1059 SET_FRAME_GARBAGED (f);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1060 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1061 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1062
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1063 /* Return 1 if the given widths and heights are valid for display;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1064 otherwise, return 0. */
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1065
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1066 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1067 check_image_size (struct frame *f, int width, int height)
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1068 {
66208
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1069 int w, h;
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1070
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1071 if (width <= 0 || height <= 0)
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1072 return 0;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1073
66208
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1074 if (INTEGERP (Vmax_image_size))
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1075 w = h = XINT (Vmax_image_size);
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1076 else if (FLOATP (Vmax_image_size))
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1077 {
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1078 if (f != NULL)
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1079 {
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1080 w = FRAME_PIXEL_WIDTH (f);
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1081 h = FRAME_PIXEL_HEIGHT (f);
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1082 }
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1083 else
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1084 w = h = 1024; /* Arbitrary size for unknown frame. */
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1085 w = (int) (XFLOAT_DATA (Vmax_image_size) * w);
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1086 h = (int) (XFLOAT_DATA (Vmax_image_size) * h);
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1087 }
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1088 else
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1089 return 1;
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1090
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1091 return (width <= w && height <= h);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1092 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1093
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1094 /* Prepare image IMG for display on frame F. Must be called before
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1095 drawing an image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1096
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1097 void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1098 prepare_image_for_display (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1099 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1100 EMACS_TIME t;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1101
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1102 /* We're about to display IMG, so set its timestamp to `now'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1103 EMACS_GET_TIME (t);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1104 img->timestamp = EMACS_SECS (t);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1105
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1106 /* If IMG doesn't have a pixmap yet, load it now, using the image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1107 type dependent loader function. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1108 if (img->pixmap == NO_PIXMAP && !img->load_failed_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1109 img->load_failed_p = img->type->load (f, img) == 0;
69511
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1110
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1111 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1112
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1113
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1114 /* Value is the number of pixels for the ascent of image IMG when
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1115 drawn in face FACE. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1116
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1117 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1118 image_ascent (struct image *img, struct face *face, struct glyph_slice *slice)
55022
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1119 {
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1120 int height;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1121 int ascent;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1122
55022
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1123 if (slice->height == img->height)
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1124 height = img->height + img->vmargin;
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1125 else if (slice->y == 0)
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1126 height = slice->height + img->vmargin;
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1127 else
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1128 height = slice->height;
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1129
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1130 if (img->ascent == CENTERED_IMAGE_ASCENT)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1131 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1132 if (face->font)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1133 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1134 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1135 /* W32 specific version. Why?. ++kfs */
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
1136 ascent = height / 2 - (FONT_DESCENT (face->font)
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
1137 - FONT_BASE (face->font)) / 2;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1138 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1139 /* This expression is arranged so that if the image can't be
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1140 exactly centered, it will be moved slightly up. This is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1141 because a typical font is `top-heavy' (due to the presence
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1142 uppercase letters), so the image placement should err towards
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1143 being top-heavy too. It also just generally looks better. */
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
1144 ascent = (height + FONT_BASE(face->font)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
1145 - FONT_DESCENT(face->font) + 1) / 2;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1146 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1147 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1148 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1149 ascent = height / 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1150 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1151 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1152 ascent = (int) (height * img->ascent / 100.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1153
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1154 return ascent;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1155 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1156
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1157
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1158 /* Image background colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1159
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1160 /* Find the "best" corner color of a bitmap.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1161 On W32, XIMG is assumed to a device context with the bitmap selected. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1162
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1163 static RGB_PIXEL_COLOR
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1164 four_corners_best (XImagePtr_or_DC ximg, int *corners,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1165 unsigned long width, unsigned long height)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1166 {
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1167 RGB_PIXEL_COLOR corner_pixels[4], best;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1168 int i, best_count;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1169
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1170 if (corners && corners[BOT_CORNER] >= 0)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1171 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1172 /* Get the colors at the corner_pixels of ximg. */
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1173 corner_pixels[0] = GET_PIXEL (ximg, corners[LEFT_CORNER], corners[TOP_CORNER]);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1174 corner_pixels[1] = GET_PIXEL (ximg, corners[RIGHT_CORNER] - 1, corners[TOP_CORNER]);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1175 corner_pixels[2] = GET_PIXEL (ximg, corners[RIGHT_CORNER] - 1, corners[BOT_CORNER] - 1);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1176 corner_pixels[3] = GET_PIXEL (ximg, corners[LEFT_CORNER], corners[BOT_CORNER] - 1);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1177 }
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1178 else
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1179 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1180 /* Get the colors at the corner_pixels of ximg. */
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1181 corner_pixels[0] = GET_PIXEL (ximg, 0, 0);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1182 corner_pixels[1] = GET_PIXEL (ximg, width - 1, 0);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1183 corner_pixels[2] = GET_PIXEL (ximg, width - 1, height - 1);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1184 corner_pixels[3] = GET_PIXEL (ximg, 0, height - 1);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1185 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1186 /* Choose the most frequently found color as background. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1187 for (i = best_count = 0; i < 4; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1188 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1189 int j, n;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1190
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1191 for (j = n = 0; j < 4; ++j)
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1192 if (corner_pixels[i] == corner_pixels[j])
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1193 ++n;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1194
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1195 if (n > best_count)
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1196 best = corner_pixels[i], best_count = n;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1197 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1198
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1199 return best;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1200 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1201
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1202 /* Portability macros */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1203
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1204 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1205
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1206 #define Destroy_Image(img_dc, prev) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1207 do { SelectObject (img_dc, prev); DeleteDC (img_dc); } while (0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1208
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1209 #define Free_Pixmap(display, pixmap) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1210 DeleteObject (pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1211
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
1212 #elif defined (HAVE_NS)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
1213
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
1214 #define Destroy_Image(ximg, dummy) \
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
1215 ns_release_object (ximg)
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
1216
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
1217 #define Free_Pixmap(display, pixmap) \
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
1218 ns_release_object (pixmap)
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
1219
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1220 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1221
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1222 #define Destroy_Image(ximg, dummy) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1223 XDestroyImage (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1224
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1225 #define Free_Pixmap(display, pixmap) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1226 XFreePixmap (display, pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1227
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
1228 #endif /* !HAVE_NTGUI && !HAVE_NS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1229
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1230
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1231 /* Return the `background' field of IMG. If IMG doesn't have one yet,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1232 it is guessed heuristically. If non-zero, XIMG is an existing
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1233 XImage object (or device context with the image selected on W32) to
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
1234 use for the heuristic. */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1235
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1236 RGB_PIXEL_COLOR
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1237 image_background (struct image *img, struct frame *f, XImagePtr_or_DC ximg)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1238 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1239 if (! img->background_valid)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1240 /* IMG doesn't have a background yet, try to guess a reasonable value. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1241 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1242 int free_ximg = !ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1243 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1244 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1245 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1246
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1247 if (free_ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1248 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1249 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1250 ximg = XGetImage (FRAME_X_DISPLAY (f), img->pixmap,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1251 0, 0, img->width, img->height, ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1252 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1253 HDC frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1254 ximg = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1255 release_frame_dc (f, frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1256 prev = SelectObject (ximg, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1257 #endif /* !HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1258 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1259
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1260 img->background = four_corners_best (ximg, img->corners, img->width, img->height);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1261
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1262 if (free_ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1263 Destroy_Image (ximg, prev);
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
1264
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1265 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1266 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1267
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1268 return img->background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1269 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1270
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1271 /* Return the `background_transparent' field of IMG. If IMG doesn't
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1272 have one yet, it is guessed heuristically. If non-zero, MASK is an
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1273 existing XImage object to use for the heuristic. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1274
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1275 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1276 image_background_transparent (struct image *img, struct frame *f, XImagePtr_or_DC mask)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1277 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1278 if (! img->background_transparent_valid)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1279 /* IMG doesn't have a background yet, try to guess a reasonable value. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1280 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1281 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1282 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1283 int free_mask = !mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1284 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1285 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1286 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1287
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1288 if (free_mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1289 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1290 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1291 mask = XGetImage (FRAME_X_DISPLAY (f), img->mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1292 0, 0, img->width, img->height, ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1293 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1294 HDC frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1295 mask = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1296 release_frame_dc (f, frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1297 prev = SelectObject (mask, img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1298 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1299 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1300
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1301 img->background_transparent
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1302 = (four_corners_best (mask, img->corners, img->width, img->height) == PIX_MASK_RETAIN);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1303
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1304 if (free_mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1305 Destroy_Image (mask, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1306 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1307 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1308 img->background_transparent = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1309
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1310 img->background_transparent_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1311 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1312
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1313 return img->background_transparent;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1314 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1315
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1316
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1317 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1318 Helper functions for X image types
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1319 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1320
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1321 static void x_clear_image_1 (struct frame *, struct image *, int,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1322 int, int);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1323 static void x_clear_image (struct frame *f, struct image *img);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1324 static unsigned long x_alloc_image_color (struct frame *f,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1325 struct image *img,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1326 Lisp_Object color_name,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1327 unsigned long dflt);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1328
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1329
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1330 /* Clear X resources of image IMG on frame F. PIXMAP_P non-zero means
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1331 free the pixmap if any. MASK_P non-zero means clear the mask
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1332 pixmap if any. COLORS_P non-zero means free colors allocated for
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1333 the image, if any. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1334
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1335 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1336 x_clear_image_1 (struct frame *f, struct image *img, int pixmap_p, int mask_p,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1337 int colors_p)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1338 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1339 if (pixmap_p && img->pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1340 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1341 Free_Pixmap (FRAME_X_DISPLAY (f), img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1342 img->pixmap = NO_PIXMAP;
99904
ba4876d944bc Fix bug #1362. * image.c (x_clear_image_1): Do not free background under HAVE_NS, it is not an indexed color. * nsterm.m (free_indexed_color): Add argument checking. * nsfns.m: Move config.h to before system includes (advised by Dan N.).
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 98490
diff changeset
1343 /* NOTE (HAVE_NS): background color is NOT an indexed color! */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1344 img->background_valid = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1345 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1346
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1347 if (mask_p && img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1348 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1349 Free_Pixmap (FRAME_X_DISPLAY (f), img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1350 img->mask = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1351 img->background_transparent_valid = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1352 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1353
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1354 if (colors_p && img->ncolors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1355 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1356 /* W32_TODO: color table support. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1357 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1358 x_free_colors (f, img->colors, img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1359 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1360 xfree (img->colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1361 img->colors = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1362 img->ncolors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1363 }
69511
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1364
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1365 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1366
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1367 /* Free X resources of image IMG which is used on frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1368
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1369 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1370 x_clear_image (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1371 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1372 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1373 x_clear_image_1 (f, img, 1, 1, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1374 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1375 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1376
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1377
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1378 /* Allocate color COLOR_NAME for image IMG on frame F. If color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1379 cannot be allocated, use DFLT. Add a newly allocated color to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1380 IMG->colors, so that it can be freed again. Value is the pixel
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1381 color. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1382
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1383 static unsigned long
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1384 x_alloc_image_color (struct frame *f, struct image *img, Lisp_Object color_name,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1385 unsigned long dflt)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1386 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1387 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1388 unsigned long result;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1389
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1390 xassert (STRINGP (color_name));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1391
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1392 if (x_defined_color (f, SDATA (color_name), &color, 1))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1393 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1394 /* This isn't called frequently so we get away with simply
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1395 reallocating the color vector to the needed size, here. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1396 ++img->ncolors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1397 img->colors =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1398 (unsigned long *) xrealloc (img->colors,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1399 img->ncolors * sizeof *img->colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1400 img->colors[img->ncolors - 1] = color.pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1401 result = color.pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1402 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1403 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1404 result = dflt;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1405
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1406 return result;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1407 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1408
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1409
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1410
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1411 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1412 Image Cache
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1413 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1414
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1415 static struct image *search_image_cache (struct frame *, Lisp_Object, unsigned);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1416 static void cache_image (struct frame *f, struct image *img);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1417 static void postprocess_image (struct frame *, struct image *);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1418
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1419 /* Return a new, initialized image cache that is allocated from the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1420 heap. Call free_image_cache to free an image cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1421
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1422 struct image_cache *
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1423 make_image_cache (void)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1424 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1425 struct image_cache *c = (struct image_cache *) xmalloc (sizeof *c);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1426 int size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1427
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
1428 memset (c, 0, sizeof *c);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1429 c->size = 50;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1430 c->images = (struct image **) xmalloc (c->size * sizeof *c->images);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1431 size = IMAGE_CACHE_BUCKETS_SIZE * sizeof *c->buckets;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1432 c->buckets = (struct image **) xmalloc (size);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
1433 memset (c->buckets, 0, size);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1434 return c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1435 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1436
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1437
78450
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1438 /* Find an image matching SPEC in the cache, and return it. If no
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1439 image is found, return NULL. */
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1440 static struct image *
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1441 search_image_cache (struct frame *f, Lisp_Object spec, unsigned int hash)
78450
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1442 {
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1443 struct image *img;
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1444 struct image_cache *c = FRAME_IMAGE_CACHE (f);
78450
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1445 int i = hash % IMAGE_CACHE_BUCKETS_SIZE;
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1446
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1447 if (!c) return NULL;
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1448
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1449 /* If the image spec does not specify a background color, the cached
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1450 image must have the same background color as the current frame.
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1451 The foreground color must also match, for the sake of monochrome
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1452 images.
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1453
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1454 In fact, we could ignore the foreground color matching condition
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1455 for color images, or if the image spec specifies :foreground;
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1456 similarly we could ignore the background color matching condition
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1457 for formats that don't use transparency (such as jpeg), or if the
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1458 image spec specifies :background. However, the extra memory
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1459 usage is probably negligible in practice, so we don't bother. */
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1460
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1461 for (img = c->buckets[i]; img; img = img->next)
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1462 if (img->hash == hash
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1463 && !NILP (Fequal (img->spec, spec))
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1464 && img->frame_foreground == FRAME_FOREGROUND_PIXEL (f)
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1465 && img->frame_background == FRAME_BACKGROUND_PIXEL (f))
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1466 break;
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1467 return img;
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1468 }
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1469
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1470
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1471 /* Search frame F for an image with spec SPEC, and free it. */
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1472
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1473 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1474 uncache_image (struct frame *f, Lisp_Object spec)
78450
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1475 {
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1476 struct image *img = search_image_cache (f, spec, sxhash (spec, 0));
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1477 if (img)
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1478 free_image (f, img);
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1479 }
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1480
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1481
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1482 /* Free image cache of frame F. Be aware that X frames share images
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1483 caches. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1484
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1485 void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1486 free_image_cache (struct frame *f)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1487 {
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1488 struct image_cache *c = FRAME_IMAGE_CACHE (f);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1489 if (c)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1490 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1491 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1492
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1493 /* Cache should not be referenced by any frame when freed. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1494 xassert (c->refcount == 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1495
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1496 for (i = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1497 free_image (f, c->images[i]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1498 xfree (c->images);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1499 xfree (c->buckets);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1500 xfree (c);
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1501 FRAME_IMAGE_CACHE (f) = NULL;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1502 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1503 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1504
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1505
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1506 /* Clear image cache of frame F. FILTER=t means free all images.
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1507 FILTER=nil means clear only images that haven't been
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1508 displayed for some time.
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1509 Else, only free the images which have FILTER in their `dependencies'.
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1510 Should be called from time to time to reduce the number of loaded images.
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1511 If image-cache-eviction-delay is non-nil, this frees images in the cache
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1512 which weren't displayed for at least that many seconds. */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1513
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1514 void
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1515 clear_image_cache (struct frame *f, Lisp_Object filter)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1516 {
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1517 struct image_cache *c = FRAME_IMAGE_CACHE (f);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1518
108741
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1519 if (c)
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1520 {
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1521 int i, nfreed = 0;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1522
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1523 /* Block input so that we won't be interrupted by a SIGIO
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1524 while being in an inconsistent state. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1525 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1526
108741
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1527 if (!NILP (filter))
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1528 {
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1529 /* Filter image cache. */
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1530 for (i = 0; i < c->used; ++i)
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1531 {
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1532 struct image *img = c->images[i];
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1533 if (img && (EQ (Qt, filter)
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1534 || !NILP (Fmember (filter, img->dependencies))))
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1535 {
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1536 free_image (f, img);
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1537 ++nfreed;
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1538 }
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1539 }
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1540 }
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1541 else if (INTEGERP (Vimage_cache_eviction_delay))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1542 {
108741
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1543 /* Free cache based on timestamp. */
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1544 EMACS_TIME t;
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1545 unsigned long old;
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1546 int delay, nimages = 0;
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1547
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1548 for (i = 0; i < c->used; ++i)
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1549 if (c->images[i])
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1550 nimages++;
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1551
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1552 /* If the number of cached images has grown unusually large,
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1553 decrease the cache eviction delay (Bug#6230). */
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1554 delay = XFASTINT (Vimage_cache_eviction_delay);
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1555 if (nimages > 40)
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1556 delay = max (1, 1600 * delay / (nimages*nimages));
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1557
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1558 EMACS_GET_TIME (t);
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1559 old = EMACS_SECS (t) - delay;
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1560
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1561 for (i = 0; i < c->used; ++i)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1562 {
108741
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1563 struct image *img = c->images[i];
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1564 if (img && img->timestamp < old)
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1565 {
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1566 free_image (f, img);
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1567 ++nfreed;
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
1568 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1569 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1570 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1571
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1572 /* We may be clearing the image cache because, for example,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1573 Emacs was iconified for a longer period of time. In that
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1574 case, current matrices may still contain references to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1575 images freed above. So, clear these matrices. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1576 if (nfreed)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1577 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1578 Lisp_Object tail, frame;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1579
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1580 FOR_EACH_FRAME (tail, frame)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1581 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1582 struct frame *f = XFRAME (frame);
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1583 if (FRAME_IMAGE_CACHE (f) == c)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1584 clear_current_matrices (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1585 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1586
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1587 ++windows_or_buffers_changed;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1588 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1589
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1590 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1591 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1592 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1593
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1594 void
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1595 clear_image_caches (Lisp_Object filter)
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1596 {
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1597 /* FIXME: We want to do
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1598 * struct terminal *t;
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1599 * for (t = terminal_list; t; t = t->next_terminal)
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1600 * clear_image_cache (t, filter); */
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1601 Lisp_Object tail, frame;
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1602 FOR_EACH_FRAME (tail, frame)
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1603 if (FRAME_WINDOW_P (XFRAME (frame)))
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1604 clear_image_cache (XFRAME (frame), filter);
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1605 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1606
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1607 DEFUN ("clear-image-cache", Fclear_image_cache, Sclear_image_cache,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1608 0, 1, 0,
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1609 doc: /* Clear the image cache.
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1610 FILTER nil or a frame means clear all images in the selected frame.
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1611 FILTER t means clear the image caches of all frames.
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1612 Anything else, means only clear those images which refer to FILTER,
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1613 which is then usually a filename. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
1614 (Lisp_Object filter)
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1615 {
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1616 if (!(EQ (filter, Qnil) || FRAMEP (filter)))
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1617 clear_image_caches (filter);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1618 else
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1619 clear_image_cache (check_x_frame (filter), Qt);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1620
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1621 return Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1622 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1623
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1624
108746
24d486687f54 Rename image-refresh to image-flush.
Chong Yidong <cyd@stupidchicken.com>
parents: 108741
diff changeset
1625 DEFUN ("image-flush", Fimage_flush, Simage_flush,
78450
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1626 1, 2, 0,
108746
24d486687f54 Rename image-refresh to image-flush.
Chong Yidong <cyd@stupidchicken.com>
parents: 108741
diff changeset
1627 doc: /* Fush the image with specification SPEC on frame FRAME.
24d486687f54 Rename image-refresh to image-flush.
Chong Yidong <cyd@stupidchicken.com>
parents: 108741
diff changeset
1628 This removes the image from the Emacs image cache. If SPEC specifies
24d486687f54 Rename image-refresh to image-flush.
Chong Yidong <cyd@stupidchicken.com>
parents: 108741
diff changeset
1629 an image file, the next redisplay of this image will read from the
24d486687f54 Rename image-refresh to image-flush.
Chong Yidong <cyd@stupidchicken.com>
parents: 108741
diff changeset
1630 current contents of that file.
24d486687f54 Rename image-refresh to image-flush.
Chong Yidong <cyd@stupidchicken.com>
parents: 108741
diff changeset
1631
78450
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1632 FRAME nil or omitted means use the selected frame.
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1633 FRAME t means refresh the image on all frames. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
1634 (Lisp_Object spec, Lisp_Object frame)
78450
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1635 {
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1636 if (!valid_image_p (spec))
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1637 error ("Invalid image specification");
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1638
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1639 if (EQ (frame, Qt))
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1640 {
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1641 Lisp_Object tail;
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1642 FOR_EACH_FRAME (tail, frame)
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1643 {
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1644 struct frame *f = XFRAME (frame);
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1645 if (FRAME_WINDOW_P (f))
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1646 uncache_image (f, spec);
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1647 }
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1648 }
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1649 else
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1650 uncache_image (check_x_frame (frame), spec);
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1651
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1652 return Qnil;
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1653 }
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1654
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1655
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1656 /* Compute masks and transform image IMG on frame F, as specified
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1657 by the image's specification, */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1658
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1659 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1660 postprocess_image (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1661 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1662 /* Manipulation of the image's mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1663 if (img->pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1664 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1665 Lisp_Object conversion, spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1666 Lisp_Object mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1667
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1668 spec = img->spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1669
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1670 /* `:heuristic-mask t'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1671 `:mask heuristic'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1672 means build a mask heuristically.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1673 `:heuristic-mask (R G B)'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1674 `:mask (heuristic (R G B))'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1675 means build a mask from color (R G B) in the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1676 image.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1677 `:mask nil'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1678 means remove a mask, if any. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1679
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1680 mask = image_spec_value (spec, QCheuristic_mask, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1681 if (!NILP (mask))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1682 x_build_heuristic_mask (f, img, mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1683 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1684 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1685 int found_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1686
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1687 mask = image_spec_value (spec, QCmask, &found_p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1688
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1689 if (EQ (mask, Qheuristic))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1690 x_build_heuristic_mask (f, img, Qt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1691 else if (CONSP (mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1692 && EQ (XCAR (mask), Qheuristic))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1693 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1694 if (CONSP (XCDR (mask)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1695 x_build_heuristic_mask (f, img, XCAR (XCDR (mask)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1696 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1697 x_build_heuristic_mask (f, img, XCDR (mask));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1698 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1699 else if (NILP (mask) && found_p && img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1700 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1701 Free_Pixmap (FRAME_X_DISPLAY (f), img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1702 img->mask = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1703 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1704 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1705
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1706
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1707 /* Should we apply an image transformation algorithm? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1708 conversion = image_spec_value (spec, QCconversion, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1709 if (EQ (conversion, Qdisabled))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1710 x_disable_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1711 else if (EQ (conversion, Qlaplace))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1712 x_laplace (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1713 else if (EQ (conversion, Qemboss))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1714 x_emboss (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1715 else if (CONSP (conversion)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1716 && EQ (XCAR (conversion), Qedge_detection))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1717 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1718 Lisp_Object tem;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1719 tem = XCDR (conversion);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1720 if (CONSP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1721 x_edge_detection (f, img,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1722 Fplist_get (tem, QCmatrix),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1723 Fplist_get (tem, QCcolor_adjustment));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1724 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1725 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1726 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1727
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1728
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1729 /* Return the id of image with Lisp specification SPEC on frame F.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1730 SPEC must be a valid Lisp image specification (see valid_image_p). */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1731
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1732 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1733 lookup_image (struct frame *f, Lisp_Object spec)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1734 {
83436
f67e432d150c Fix crash in lookup_image on termcap frames.
Karoly Lorentey <lorentey@elte.hu>
parents: 67785
diff changeset
1735 struct image_cache *c;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1736 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1737 unsigned hash;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1738 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1739 EMACS_TIME now;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1740
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1741 /* F must be a window-system frame, and SPEC must be a valid image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1742 specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1743 xassert (FRAME_WINDOW_P (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1744 xassert (valid_image_p (spec));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1745
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1746 c = FRAME_IMAGE_CACHE (f);
83436
f67e432d150c Fix crash in lookup_image on termcap frames.
Karoly Lorentey <lorentey@elte.hu>
parents: 67785
diff changeset
1747
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1748 GCPRO1 (spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1749
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1750 /* Look up SPEC in the hash table of the image cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1751 hash = sxhash (spec, 0);
78450
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1752 img = search_image_cache (f, spec, hash);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1753 if (img && img->load_failed_p)
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1754 {
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1755 free_image (f, img);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1756 img = NULL;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1757 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1758
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1759 /* If not found, create a new image and cache it. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1760 if (img == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1761 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1762 extern Lisp_Object Qpostscript;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1763
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1764 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1765 img = make_image (spec, hash);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1766 cache_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1767 img->load_failed_p = img->type->load (f, img) == 0;
78450
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1768 img->frame_foreground = FRAME_FOREGROUND_PIXEL (f);
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
1769 img->frame_background = FRAME_BACKGROUND_PIXEL (f);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1770
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1771 /* If we can't load the image, and we don't have a width and
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1772 height, use some arbitrary width and height so that we can
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1773 draw a rectangle for it. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1774 if (img->load_failed_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1775 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1776 Lisp_Object value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1777
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1778 value = image_spec_value (spec, QCwidth, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1779 img->width = (INTEGERP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1780 ? XFASTINT (value) : DEFAULT_IMAGE_WIDTH);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1781 value = image_spec_value (spec, QCheight, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1782 img->height = (INTEGERP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1783 ? XFASTINT (value) : DEFAULT_IMAGE_HEIGHT);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1784 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1785 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1786 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1787 /* Handle image type independent image attributes
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1788 `:ascent ASCENT', `:margin MARGIN', `:relief RELIEF',
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1789 `:background COLOR'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1790 Lisp_Object ascent, margin, relief, bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1791
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1792 ascent = image_spec_value (spec, QCascent, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1793 if (INTEGERP (ascent))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1794 img->ascent = XFASTINT (ascent);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1795 else if (EQ (ascent, Qcenter))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1796 img->ascent = CENTERED_IMAGE_ASCENT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1797
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1798 margin = image_spec_value (spec, QCmargin, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1799 if (INTEGERP (margin) && XINT (margin) >= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1800 img->vmargin = img->hmargin = XFASTINT (margin);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1801 else if (CONSP (margin) && INTEGERP (XCAR (margin))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1802 && INTEGERP (XCDR (margin)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1803 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1804 if (XINT (XCAR (margin)) > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1805 img->hmargin = XFASTINT (XCAR (margin));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1806 if (XINT (XCDR (margin)) > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1807 img->vmargin = XFASTINT (XCDR (margin));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1808 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1809
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1810 relief = image_spec_value (spec, QCrelief, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1811 if (INTEGERP (relief))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1812 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1813 img->relief = XINT (relief);
85254
8004c957b946 Replace `abs' with `eabs'.
Eli Zaretskii <eliz@gnu.org>
parents: 85118
diff changeset
1814 img->hmargin += eabs (img->relief);
8004c957b946 Replace `abs' with `eabs'.
Eli Zaretskii <eliz@gnu.org>
parents: 85118
diff changeset
1815 img->vmargin += eabs (img->relief);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1816 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1817
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1818 if (! img->background_valid)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1819 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1820 bg = image_spec_value (img->spec, QCbackground, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1821 if (!NILP (bg))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1822 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1823 img->background
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1824 = x_alloc_image_color (f, img, bg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1825 FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1826 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1827 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1828 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1829
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1830 /* Do image transformations and compute masks, unless we
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1831 don't have the image yet. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1832 if (!EQ (*img->type->type, Qpostscript))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1833 postprocess_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1834 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1835
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1836 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1837 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1838
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1839 /* We're using IMG, so set its timestamp to `now'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1840 EMACS_GET_TIME (now);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1841 img->timestamp = EMACS_SECS (now);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1842
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1843 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1844
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1845 /* Value is the image id. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1846 return img->id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1847 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1848
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1849
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1850 /* Cache image IMG in the image cache of frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1851
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1852 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1853 cache_image (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1854 {
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1855 struct image_cache *c = FRAME_IMAGE_CACHE (f);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1856 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1857
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1858 /* Find a free slot in c->images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1859 for (i = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1860 if (c->images[i] == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1861 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1862
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1863 /* If no free slot found, maybe enlarge c->images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1864 if (i == c->used && c->used == c->size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1865 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1866 c->size *= 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1867 c->images = (struct image **) xrealloc (c->images,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1868 c->size * sizeof *c->images);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1869 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1870
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1871 /* Add IMG to c->images, and assign IMG an id. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1872 c->images[i] = img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1873 img->id = i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1874 if (i == c->used)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1875 ++c->used;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1876
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1877 /* Add IMG to the cache's hash table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1878 i = img->hash % IMAGE_CACHE_BUCKETS_SIZE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1879 img->next = c->buckets[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1880 if (img->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1881 img->next->prev = img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1882 img->prev = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1883 c->buckets[i] = img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1884 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1885
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1886
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1887 /* Call FN on every image in the image cache of frame F. Used to mark
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1888 Lisp Objects in the image cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1889
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1890 /* Mark Lisp objects in image IMG. */
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1891
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1892 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1893 mark_image (struct image *img)
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1894 {
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1895 mark_object (img->spec);
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92110
diff changeset
1896 mark_object (img->dependencies);
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1897
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1898 if (!NILP (img->data.lisp_val))
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1899 mark_object (img->data.lisp_val);
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1900 }
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1901
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1902
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1903 void
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1904 mark_image_cache (struct image_cache *c)
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1905 {
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1906 if (c)
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1907 {
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1908 int i;
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1909 for (i = 0; i < c->used; ++i)
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1910 if (c->images[i])
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
1911 mark_image (c->images[i]);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1912 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1913 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1914
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1915
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1916
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1917 /***********************************************************************
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
1918 X / NS / W32 support code
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1919 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1920
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1921 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1922
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1923 /* Macro for defining functions that will be loaded from image DLLs. */
62561
a8d780395b8f (lookup_image, png_read_from_memory): Remove hacks (and misleading comments).
Juanma Barranquero <lekktu@gmail.com>
parents: 62216
diff changeset
1924 #define DEF_IMGLIB_FN(func) int (FAR CDECL *fn_##func)()
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1925
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1926 /* Macro for loading those image functions from the library. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1927 #define LOAD_IMGLIB_FN(lib,func) { \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1928 fn_##func = (void *) GetProcAddress (lib, #func); \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1929 if (!fn_##func) return 0; \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1930 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1931
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1932 /* Load a DLL implementing an image type.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1933 The `image-library-alist' variable associates a symbol,
82820
2f1e57a528f0 (syms_of_image) <image-library-alist, cross-disabled-images>: Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents: 82795
diff changeset
1934 identifying an image type, to a list of possible filenames.
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1935 The function returns NULL if no library could be loaded for
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1936 the given image type, or if the library was previously loaded;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1937 else the handle of the DLL. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1938 static HMODULE
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1939 w32_delayed_load (Lisp_Object libraries, Lisp_Object type)
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1940 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1941 HMODULE library = NULL;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1942
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1943 if (CONSP (libraries) && NILP (Fassq (type, Vimage_type_cache)))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1944 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1945 Lisp_Object dlls = Fassq (type, libraries);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1946
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1947 if (CONSP (dlls))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1948 for (dlls = XCDR (dlls); CONSP (dlls); dlls = XCDR (dlls))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1949 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1950 CHECK_STRING_CAR (dlls);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1951 if (library = LoadLibrary (SDATA (XCAR (dlls))))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1952 break;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1953 }
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1954 }
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1955
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1956 return library;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1957 }
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
1958
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1959 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1960
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1961 static int x_create_x_image_and_pixmap (struct frame *, int, int, int,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1962 XImagePtr *, Pixmap *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1963 static void x_destroy_x_image (XImagePtr);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
1964 static void x_put_x_image (struct frame *, XImagePtr, Pixmap, int, int);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1965
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1966
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1967 /* Create an XImage and a pixmap of size WIDTH x HEIGHT for use on
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1968 frame F. Set *XIMG and *PIXMAP to the XImage and Pixmap created.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1969 Set (*XIMG)->data to a raster of WIDTH x HEIGHT pixels allocated
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1970 via xmalloc. Print error messages via image_error if an error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1971 occurs. Value is non-zero if successful.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1972
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1973 On W32, a DEPTH of zero signifies a 24 bit image, otherwise DEPTH
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1974 should indicate the bit depth of the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1975
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1976 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1977 x_create_x_image_and_pixmap (struct frame *f, int width, int height, int depth,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
1978 XImagePtr *ximg, Pixmap *pixmap)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1979 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1980 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1981 Display *display = FRAME_X_DISPLAY (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1982 Window window = FRAME_X_WINDOW (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1983 Screen *screen = FRAME_X_SCREEN (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1984
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1985 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1986
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1987 if (depth <= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1988 depth = DefaultDepthOfScreen (screen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1989 *ximg = XCreateImage (display, DefaultVisualOfScreen (screen),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1990 depth, ZPixmap, 0, NULL, width, height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1991 depth > 16 ? 32 : depth > 8 ? 16 : 8, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1992 if (*ximg == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1993 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1994 image_error ("Unable to allocate X image", Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1995 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1996 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1997
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1998 /* Allocate image raster. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1999 (*ximg)->data = (char *) xmalloc ((*ximg)->bytes_per_line * height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2000
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2001 /* Allocate a pixmap of the same size. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2002 *pixmap = XCreatePixmap (display, window, width, height, depth);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2003 if (*pixmap == NO_PIXMAP)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2004 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2005 x_destroy_x_image (*ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2006 *ximg = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2007 image_error ("Unable to create X pixmap", Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2008 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2009 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2010
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2011 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2012 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2013
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2014 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2015
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2016 BITMAPINFOHEADER *header;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2017 HDC hdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2018 int scanline_width_bits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2019 int remainder;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2020 int palette_colors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2021
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2022 if (depth == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2023 depth = 24;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2024
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2025 if (depth != 1 && depth != 4 && depth != 8
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2026 && depth != 16 && depth != 24 && depth != 32)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2027 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2028 image_error ("Invalid image bit depth specified", Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2029 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2030 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2031
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2032 scanline_width_bits = width * depth;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2033 remainder = scanline_width_bits % 32;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2034
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2035 if (remainder)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2036 scanline_width_bits += 32 - remainder;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2037
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2038 /* Bitmaps with a depth less than 16 need a palette. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2039 /* BITMAPINFO structure already contains the first RGBQUAD. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2040 if (depth < 16)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2041 palette_colors = 1 << depth - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2042
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2043 *ximg = xmalloc (sizeof (XImage) + palette_colors * sizeof (RGBQUAD));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2044 if (*ximg == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2045 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2046 image_error ("Unable to allocate memory for XImage", Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2047 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2048 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2049
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
2050 header = &(*ximg)->info.bmiHeader;
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
2051 memset (&(*ximg)->info, 0, sizeof (BITMAPINFO));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2052 header->biSize = sizeof (*header);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2053 header->biWidth = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2054 header->biHeight = -height; /* negative indicates a top-down bitmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2055 header->biPlanes = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2056 header->biBitCount = depth;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2057 header->biCompression = BI_RGB;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2058 header->biClrUsed = palette_colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2059
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2060 /* TODO: fill in palette. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2061 if (depth == 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2062 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2063 (*ximg)->info.bmiColors[0].rgbBlue = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2064 (*ximg)->info.bmiColors[0].rgbGreen = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2065 (*ximg)->info.bmiColors[0].rgbRed = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2066 (*ximg)->info.bmiColors[0].rgbReserved = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2067 (*ximg)->info.bmiColors[1].rgbBlue = 255;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2068 (*ximg)->info.bmiColors[1].rgbGreen = 255;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2069 (*ximg)->info.bmiColors[1].rgbRed = 255;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2070 (*ximg)->info.bmiColors[1].rgbReserved = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2071 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2072
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2073 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2074
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2075 /* Create a DIBSection and raster array for the bitmap,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2076 and store its handle in *pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2077 *pixmap = CreateDIBSection (hdc, &((*ximg)->info),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2078 (depth < 16) ? DIB_PAL_COLORS : DIB_RGB_COLORS,
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
2079 /* casting avoids a GCC warning */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
2080 (void **)&((*ximg)->data), NULL, 0);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2081
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2082 /* Realize display palette and garbage all frames. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2083 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2084
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2085 if (*pixmap == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2086 {
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
2087 DWORD err = GetLastError ();
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2088 Lisp_Object errcode;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2089 /* All system errors are < 10000, so the following is safe. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2090 XSETINT (errcode, (int) err);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2091 image_error ("Unable to create bitmap, error code %d", errcode, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2092 x_destroy_x_image (*ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2093 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2094 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2095
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2096 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2097
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2098 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2099
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2100 #ifdef HAVE_NS
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
2101 *pixmap = ns_image_for_XPM (width, height, depth);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2102 if (*pixmap == 0)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2103 {
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2104 *ximg = NULL;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2105 image_error ("Unable to allocate NSImage for XPM pixmap", Qnil, Qnil);
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2106 return 0;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2107 }
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2108 *ximg = *pixmap;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2109 return 1;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2110 #endif
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2111 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2112
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2113
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2114 /* Destroy XImage XIMG. Free XIMG->data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2115
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2116 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2117 x_destroy_x_image (XImagePtr ximg)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2118 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2119 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2120 if (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2121 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2122 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2123 xfree (ximg->data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2124 ximg->data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2125 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2126 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2127 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2128 /* Data will be freed by DestroyObject. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2129 ximg->data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2130 xfree (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2131 #endif /* HAVE_NTGUI */
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2132 #ifdef HAVE_NS
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
2133 ns_release_object (ximg);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2134 #endif /* HAVE_NS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2135 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2136 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2137
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2138
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2139 /* Put XImage XIMG into pixmap PIXMAP on frame F. WIDTH and HEIGHT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2140 are width and height of both the image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2141
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2142 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2143 x_put_x_image (struct frame *f, XImagePtr ximg, Pixmap pixmap, int width, int height)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2144 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2145 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2146 GC gc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2147
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2148 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2149 gc = XCreateGC (FRAME_X_DISPLAY (f), pixmap, 0, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2150 XPutImage (FRAME_X_DISPLAY (f), pixmap, gc, ximg, 0, 0, 0, 0, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2151 XFreeGC (FRAME_X_DISPLAY (f), gc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2152 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2153
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2154 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2155 #if 0 /* I don't think this is necessary looking at where it is used. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2156 HDC hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2157 SetDIBits (hdc, pixmap, 0, height, ximg->data, &(ximg->info), DIB_RGB_COLORS);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2158 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2159 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2160 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2161
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2162 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2163 xassert (ximg == pixmap);
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
2164 ns_retain_object (ximg);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2165 #endif
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2166 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2167
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2168
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2169 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2170 File Handling
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2171 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2172
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
2173 static unsigned char *slurp_file (char *, int *);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2174
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2175
82736
ece5e5e6398e (x_find_image_file): Search in etc/images/ rather than etc/.
Glenn Morris <rgm@gnu.org>
parents: 82518
diff changeset
2176 /* Find image file FILE. Look in data-directory/images, then
69771
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2177 x-bitmap-file-path. Value is the encoded full name of the file
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2178 found, or nil if not found. */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2179
54391
138155b7215e (x_find_image_file): Make extern.
Kim F. Storm <storm@cua.dk>
parents: 54363
diff changeset
2180 Lisp_Object
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2181 x_find_image_file (Lisp_Object file)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2182 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2183 Lisp_Object file_found, search_path;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2184 struct gcpro gcpro1, gcpro2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2185 int fd;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2186
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2187 file_found = Qnil;
82736
ece5e5e6398e (x_find_image_file): Search in etc/images/ rather than etc/.
Glenn Morris <rgm@gnu.org>
parents: 82518
diff changeset
2188 /* TODO I think this should use something like image-load-path
ece5e5e6398e (x_find_image_file): Search in etc/images/ rather than etc/.
Glenn Morris <rgm@gnu.org>
parents: 82518
diff changeset
2189 instead. Unfortunately, that can contain non-string elements. */
ece5e5e6398e (x_find_image_file): Search in etc/images/ rather than etc/.
Glenn Morris <rgm@gnu.org>
parents: 82518
diff changeset
2190 search_path = Fcons (Fexpand_file_name (build_string ("images"),
ece5e5e6398e (x_find_image_file): Search in etc/images/ rather than etc/.
Glenn Morris <rgm@gnu.org>
parents: 82518
diff changeset
2191 Vdata_directory),
ece5e5e6398e (x_find_image_file): Search in etc/images/ rather than etc/.
Glenn Morris <rgm@gnu.org>
parents: 82518
diff changeset
2192 Vx_bitmap_file_path);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2193 GCPRO2 (file_found, search_path);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2194
83770
9109a293afb7 Comment.
Glenn Morris <rgm@gnu.org>
parents: 83763
diff changeset
2195 /* Try to find FILE in data-directory/images, then x-bitmap-file-path. */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2196 fd = openp (search_path, file, Qnil, &file_found, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2197
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2198 if (fd == -1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2199 file_found = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2200 else
69771
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2201 {
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2202 file_found = ENCODE_FILE (file_found);
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2203 close (fd);
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2204 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2205
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2206 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2207 return file_found;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2208 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2209
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2210
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2211 /* Read FILE into memory. Value is a pointer to a buffer allocated
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2212 with xmalloc holding FILE's contents. Value is null if an error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2213 occurred. *SIZE is set to the size of the file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2214
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2215 static unsigned char *
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2216 slurp_file (char *file, int *size)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2217 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2218 FILE *fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2219 unsigned char *buf = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2220 struct stat st;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2221
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2222 if (stat (file, &st) == 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2223 && (fp = fopen (file, "rb")) != NULL
65764
375ab086d366 * image.c (slurp_file, xbm_read_bitmap_data): Cast to the correct
Dan Nicolaescu <dann@ics.uci.edu>
parents: 65723
diff changeset
2224 && (buf = (unsigned char *) xmalloc (st.st_size),
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2225 fread (buf, 1, st.st_size, fp) == st.st_size))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2226 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2227 *size = st.st_size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2228 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2229 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2230 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2231 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2232 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2233 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2234 if (buf)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2235 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2236 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2237 buf = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2238 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2239 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2240
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2241 return buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2242 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2243
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2244
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2245
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2246 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2247 XBM images
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2248 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2249
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
2250 static int xbm_scan (unsigned char **, unsigned char *, char *, int *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
2251 static int xbm_load (struct frame *f, struct image *img);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
2252 static int xbm_load_image (struct frame *f, struct image *img,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
2253 unsigned char *, unsigned char *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
2254 static int xbm_image_p (Lisp_Object object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
2255 static int xbm_read_bitmap_data (struct frame *f,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
2256 unsigned char *, unsigned char *,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
2257 int *, int *, unsigned char **, int);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
2258 static int xbm_file_p (Lisp_Object);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2259
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2260
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2261 /* Indices of image specification fields in xbm_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2262
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2263 enum xbm_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2264 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2265 XBM_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2266 XBM_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2267 XBM_WIDTH,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2268 XBM_HEIGHT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2269 XBM_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2270 XBM_FOREGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2271 XBM_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2272 XBM_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2273 XBM_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2274 XBM_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2275 XBM_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2276 XBM_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2277 XBM_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2278 XBM_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2279 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2280
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2281 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2282 of valid XBM image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2283
105959
ba3ffbd9c422 * process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105877
diff changeset
2284 static const struct image_keyword xbm_format[XBM_LAST] =
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2285 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2286 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2287 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2288 {":width", IMAGE_POSITIVE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2289 {":height", IMAGE_POSITIVE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2290 {":data", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2291 {":foreground", IMAGE_STRING_OR_NIL_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2292 {":background", IMAGE_STRING_OR_NIL_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2293 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2294 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2295 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2296 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2297 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2298 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2299 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2300
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2301 /* Structure describing the image type XBM. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2302
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2303 static struct image_type xbm_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2304 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2305 &Qxbm,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2306 xbm_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2307 xbm_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2308 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2309 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2310 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2311
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2312 /* Tokens returned from xbm_scan. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2313
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2314 enum xbm_token
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2315 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2316 XBM_TK_IDENT = 256,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2317 XBM_TK_NUMBER
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2318 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2319
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2320
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2321 /* Return non-zero if OBJECT is a valid XBM-type image specification.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2322 A valid specification is a list starting with the symbol `image'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2323 The rest of the list is a property list which must contain an
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2324 entry `:type xbm..
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2325
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2326 If the specification specifies a file to load, it must contain
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2327 an entry `:file FILENAME' where FILENAME is a string.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2328
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2329 If the specification is for a bitmap loaded from memory it must
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2330 contain `:width WIDTH', `:height HEIGHT', and `:data DATA', where
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2331 WIDTH and HEIGHT are integers > 0. DATA may be:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2332
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2333 1. a string large enough to hold the bitmap data, i.e. it must
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2334 have a size >= (WIDTH + 7) / 8 * HEIGHT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2335
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2336 2. a bool-vector of size >= WIDTH * HEIGHT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2337
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2338 3. a vector of strings or bool-vectors, one for each line of the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2339 bitmap.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2340
78970
35f78a0b1e30 (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 78863
diff changeset
2341 4. a string containing an in-memory XBM file. WIDTH and HEIGHT
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2342 may not be specified in this case because they are defined in the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2343 XBM file.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2344
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2345 Both the file and data forms may contain the additional entries
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2346 `:background COLOR' and `:foreground COLOR'. If not present,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2347 foreground and background of the frame on which the image is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2348 displayed is used. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2349
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2350 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2351 xbm_image_p (Lisp_Object object)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2352 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2353 struct image_keyword kw[XBM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2354
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
2355 memcpy (kw, xbm_format, sizeof kw);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2356 if (!parse_image_spec (object, kw, XBM_LAST, Qxbm))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2357 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2358
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2359 xassert (EQ (kw[XBM_TYPE].value, Qxbm));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2360
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2361 if (kw[XBM_FILE].count)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2362 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2363 if (kw[XBM_WIDTH].count || kw[XBM_HEIGHT].count || kw[XBM_DATA].count)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2364 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2365 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2366 else if (kw[XBM_DATA].count && xbm_file_p (kw[XBM_DATA].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2367 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2368 /* In-memory XBM file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2369 if (kw[XBM_WIDTH].count || kw[XBM_HEIGHT].count || kw[XBM_FILE].count)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2370 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2371 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2372 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2373 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2374 Lisp_Object data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2375 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2376
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2377 /* Entries for `:width', `:height' and `:data' must be present. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2378 if (!kw[XBM_WIDTH].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2379 || !kw[XBM_HEIGHT].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2380 || !kw[XBM_DATA].count)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2381 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2382
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2383 data = kw[XBM_DATA].value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2384 width = XFASTINT (kw[XBM_WIDTH].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2385 height = XFASTINT (kw[XBM_HEIGHT].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2386
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2387 /* Check type of data, and width and height against contents of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2388 data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2389 if (VECTORP (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2390 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2391 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2392
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2393 /* Number of elements of the vector must be >= height. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2394 if (XVECTOR (data)->size < height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2395 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2396
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2397 /* Each string or bool-vector in data must be large enough
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2398 for one line of the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2399 for (i = 0; i < height; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2400 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2401 Lisp_Object elt = XVECTOR (data)->contents[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2402
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2403 if (STRINGP (elt))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2404 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2405 if (SCHARS (elt)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2406 < (width + BITS_PER_CHAR - 1) / BITS_PER_CHAR)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2407 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2408 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2409 else if (BOOL_VECTOR_P (elt))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2410 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2411 if (XBOOL_VECTOR (elt)->size < width)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2412 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2413 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2414 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2415 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2416 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2417 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2418 else if (STRINGP (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2419 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2420 if (SCHARS (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2421 < (width + BITS_PER_CHAR - 1) / BITS_PER_CHAR * height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2422 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2423 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2424 else if (BOOL_VECTOR_P (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2425 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2426 if (XBOOL_VECTOR (data)->size < width * height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2427 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2428 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2429 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2430 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2431 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2432
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2433 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2434 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2435
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2436
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2437 /* Scan a bitmap file. FP is the stream to read from. Value is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2438 either an enumerator from enum xbm_token, or a character for a
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2439 single-character token, or 0 at end of file. If scanning an
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2440 identifier, store the lexeme of the identifier in SVAL. If
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2441 scanning a number, store its value in *IVAL. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2442
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2443 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2444 xbm_scan (unsigned char **s, unsigned char *end, char *sval, int *ival)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2445 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2446 unsigned int c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2447
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2448 loop:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2449
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2450 /* Skip white space. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2451 while (*s < end && (c = *(*s)++, isspace (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2452 ;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2453
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2454 if (*s >= end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2455 c = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2456 else if (isdigit (c))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2457 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2458 int value = 0, digit;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2459
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2460 if (c == '0' && *s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2461 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2462 c = *(*s)++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2463 if (c == 'x' || c == 'X')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2464 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2465 while (*s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2466 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2467 c = *(*s)++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2468 if (isdigit (c))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2469 digit = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2470 else if (c >= 'a' && c <= 'f')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2471 digit = c - 'a' + 10;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2472 else if (c >= 'A' && c <= 'F')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2473 digit = c - 'A' + 10;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2474 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2475 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2476 value = 16 * value + digit;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2477 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2478 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2479 else if (isdigit (c))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2480 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2481 value = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2482 while (*s < end
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2483 && (c = *(*s)++, isdigit (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2484 value = 8 * value + c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2485 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2486 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2487 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2488 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2489 value = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2490 while (*s < end
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2491 && (c = *(*s)++, isdigit (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2492 value = 10 * value + c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2493 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2494
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2495 if (*s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2496 *s = *s - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2497 *ival = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2498 c = XBM_TK_NUMBER;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2499 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2500 else if (isalpha (c) || c == '_')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2501 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2502 *sval++ = c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2503 while (*s < end
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2504 && (c = *(*s)++, (isalnum (c) || c == '_')))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2505 *sval++ = c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2506 *sval = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2507 if (*s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2508 *s = *s - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2509 c = XBM_TK_IDENT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2510 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2511 else if (c == '/' && **s == '*')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2512 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2513 /* C-style comment. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2514 ++*s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2515 while (**s && (**s != '*' || *(*s + 1) != '/'))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2516 ++*s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2517 if (**s)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2518 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2519 *s += 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2520 goto loop;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2521 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2522 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2523
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2524 return c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2525 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2526
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2527 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2528
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2529 /* Create a Windows bitmap from X bitmap data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2530 static HBITMAP
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2531 w32_create_pixmap_from_bitmap_data (int width, int height, char *data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2532 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2533 static unsigned char swap_nibble[16]
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2534 = { 0x0, 0x8, 0x4, 0xc, /* 0000 1000 0100 1100 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2535 0x2, 0xa, 0x6, 0xe, /* 0010 1010 0110 1110 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2536 0x1, 0x9, 0x5, 0xd, /* 0001 1001 0101 1101 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2537 0x3, 0xb, 0x7, 0xf }; /* 0011 1011 0111 1111 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2538 int i, j, w1, w2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2539 unsigned char *bits, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2540 HBITMAP bmp;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2541
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2542 w1 = (width + 7) / 8; /* nb of 8bits elt in X bitmap */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2543 w2 = ((width + 15) / 16) * 2; /* nb of 16bits elt in W32 bitmap */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2544 bits = (unsigned char *) alloca (height * w2);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
2545 memset (bits, 0, height * w2);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2546 for (i = 0; i < height; i++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2547 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2548 p = bits + i*w2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2549 for (j = 0; j < w1; j++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2550 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2551 /* Bitswap XBM bytes to match how Windows does things. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2552 unsigned char c = *data++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2553 *p++ = (unsigned char)((swap_nibble[c & 0xf] << 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2554 | (swap_nibble[(c>>4) & 0xf]));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2555 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2556 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2557 bmp = CreateBitmap (width, height, 1, 1, (char *) bits);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2558
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2559 return bmp;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2560 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2561
78692
6e1f6f80e430 (syms_of_image) <image-library-alist, cross-disabled-images>: Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents: 78450
diff changeset
2562 static void
6e1f6f80e430 (syms_of_image) <image-library-alist, cross-disabled-images>: Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents: 78450
diff changeset
2563 convert_mono_to_color_image (f, img, foreground, background)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2564 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2565 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2566 COLORREF foreground, background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2567 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2568 HDC hdc, old_img_dc, new_img_dc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2569 HGDIOBJ old_prev, new_prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2570 HBITMAP new_pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2571
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2572 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2573 old_img_dc = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2574 new_img_dc = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2575 new_pixmap = CreateCompatibleBitmap (hdc, img->width, img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2576 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2577 old_prev = SelectObject (old_img_dc, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2578 new_prev = SelectObject (new_img_dc, new_pixmap);
79528
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2579 /* Windows convention for mono bitmaps is black = background,
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2580 white = foreground. */
78036
3766144496c2 (convert_mono_to_color_image): Swap fore and background.
Jason Rumney <jasonr@gnu.org>
parents: 77929
diff changeset
2581 SetTextColor (new_img_dc, background);
3766144496c2 (convert_mono_to_color_image): Swap fore and background.
Jason Rumney <jasonr@gnu.org>
parents: 77929
diff changeset
2582 SetBkColor (new_img_dc, foreground);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2583
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2584 BitBlt (new_img_dc, 0, 0, img->width, img->height, old_img_dc,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2585 0, 0, SRCCOPY);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2586
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2587 SelectObject (old_img_dc, old_prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2588 SelectObject (new_img_dc, new_prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2589 DeleteDC (old_img_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2590 DeleteDC (new_img_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2591 DeleteObject (img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2592 if (new_pixmap == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2593 fprintf (stderr, "Failed to convert image to color.\n");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2594 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2595 img->pixmap = new_pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2596 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2597
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2598 #define XBM_BIT_SHUFFLE(b) (~(b))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2599
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2600 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2601
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2602 #define XBM_BIT_SHUFFLE(b) (b)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2603
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2604 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2605
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2606
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2607 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2608 Create_Pixmap_From_Bitmap_Data (struct frame *f, struct image *img, char *data,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2609 RGB_PIXEL_COLOR fg, RGB_PIXEL_COLOR bg,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2610 int non_default_colors)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2611 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2612 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2613 img->pixmap
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2614 = w32_create_pixmap_from_bitmap_data (img->width, img->height, data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2615
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2616 /* If colors were specified, transfer the bitmap to a color one. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2617 if (non_default_colors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2618 convert_mono_to_color_image (f, img, fg, bg);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2619
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2620 #elif defined (HAVE_NS)
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
2621 img->pixmap = ns_image_from_XBM (data, img->width, img->height);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2622
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2623 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2624 img->pixmap
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2625 = XCreatePixmapFromBitmapData (FRAME_X_DISPLAY (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2626 FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2627 data,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2628 img->width, img->height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2629 fg, bg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2630 DefaultDepthOfScreen (FRAME_X_SCREEN (f)));
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
2631 #endif /* !HAVE_NTGUI && !HAVE_NS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2632 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2633
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2634
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2635
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2636 /* Replacement for XReadBitmapFileData which isn't available under old
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2637 X versions. CONTENTS is a pointer to a buffer to parse; END is the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2638 buffer's end. Set *WIDTH and *HEIGHT to the width and height of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2639 the image. Return in *DATA the bitmap data allocated with xmalloc.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2640 Value is non-zero if successful. DATA null means just test if
104259
a52366907b7a * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
Chong Yidong <cyd@stupidchicken.com>
parents: 102392
diff changeset
2641 CONTENTS looks like an in-memory XBM file. If INHIBIT_IMAGE_ERROR
a52366907b7a * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
Chong Yidong <cyd@stupidchicken.com>
parents: 102392
diff changeset
2642 is non-zero, inhibit the call to image_error when the image size is
a52366907b7a * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
Chong Yidong <cyd@stupidchicken.com>
parents: 102392
diff changeset
2643 invalid (the bitmap remains unread). */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2644
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2645 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2646 xbm_read_bitmap_data (struct frame *f, unsigned char *contents, unsigned char *end,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2647 int *width, int *height, unsigned char **data,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2648 int inhibit_image_error)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2649 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2650 unsigned char *s = contents;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2651 char buffer[BUFSIZ];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2652 int padding_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2653 int v10 = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2654 int bytes_per_line, i, nbytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2655 unsigned char *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2656 int value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2657 int LA1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2658
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2659 #define match() \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2660 LA1 = xbm_scan (&s, end, buffer, &value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2661
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2662 #define expect(TOKEN) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2663 if (LA1 != (TOKEN)) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2664 goto failure; \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2665 else \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2666 match ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2667
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2668 #define expect_ident(IDENT) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2669 if (LA1 == XBM_TK_IDENT && strcmp (buffer, (IDENT)) == 0) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2670 match (); \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2671 else \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2672 goto failure
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2673
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2674 *width = *height = -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2675 if (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2676 *data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2677 LA1 = xbm_scan (&s, end, buffer, &value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2678
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2679 /* Parse defines for width, height and hot-spots. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2680 while (LA1 == '#')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2681 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2682 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2683 expect_ident ("define");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2684 expect (XBM_TK_IDENT);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2685
73346
ba22be0026c7 (xbm_read_bitmap_data): Delete extra semicolon.
Romain Francoise <romain@orebokech.com>
parents: 72539
diff changeset
2686 if (LA1 == XBM_TK_NUMBER)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2687 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2688 char *p = strrchr (buffer, '_');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2689 p = p ? p + 1 : buffer;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2690 if (strcmp (p, "width") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2691 *width = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2692 else if (strcmp (p, "height") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2693 *height = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2694 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2695 expect (XBM_TK_NUMBER);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2696 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2697
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
2698 if (!check_image_size (f, *width, *height))
102392
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
2699 {
104259
a52366907b7a * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
Chong Yidong <cyd@stupidchicken.com>
parents: 102392
diff changeset
2700 if (!inhibit_image_error)
a52366907b7a * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
Chong Yidong <cyd@stupidchicken.com>
parents: 102392
diff changeset
2701 image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
102392
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
2702 goto failure;
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
2703 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2704 else if (data == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2705 goto success;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2706
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2707 /* Parse bits. Must start with `static'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2708 expect_ident ("static");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2709 if (LA1 == XBM_TK_IDENT)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2710 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2711 if (strcmp (buffer, "unsigned") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2712 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2713 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2714 expect_ident ("char");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2715 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2716 else if (strcmp (buffer, "short") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2717 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2718 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2719 v10 = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2720 if (*width % 16 && *width % 16 < 9)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2721 padding_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2722 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2723 else if (strcmp (buffer, "char") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2724 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2725 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2726 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2727 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2728 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2729 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2730
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2731 expect (XBM_TK_IDENT);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2732 expect ('[');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2733 expect (']');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2734 expect ('=');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2735 expect ('{');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2736
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2737 bytes_per_line = (*width + 7) / 8 + padding_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2738 nbytes = bytes_per_line * *height;
65764
375ab086d366 * image.c (slurp_file, xbm_read_bitmap_data): Cast to the correct
Dan Nicolaescu <dann@ics.uci.edu>
parents: 65723
diff changeset
2739 p = *data = (unsigned char *) xmalloc (nbytes);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2740
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2741 if (v10)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2742 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2743 for (i = 0; i < nbytes; i += 2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2744 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2745 int val = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2746 expect (XBM_TK_NUMBER);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2747
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2748 *p++ = XBM_BIT_SHUFFLE (val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2749 if (!padding_p || ((i + 2) % bytes_per_line))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2750 *p++ = XBM_BIT_SHUFFLE (value >> 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2751
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2752 if (LA1 == ',' || LA1 == '}')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2753 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2754 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2755 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2756 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2757 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2758 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2759 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2760 for (i = 0; i < nbytes; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2761 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2762 int val = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2763 expect (XBM_TK_NUMBER);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2764
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2765 *p++ = XBM_BIT_SHUFFLE (val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2766
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2767 if (LA1 == ',' || LA1 == '}')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2768 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2769 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2770 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2771 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2772 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2773
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2774 success:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2775 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2776
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2777 failure:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2778
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2779 if (data && *data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2780 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2781 xfree (*data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2782 *data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2783 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2784 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2785
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2786 #undef match
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2787 #undef expect
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2788 #undef expect_ident
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2789 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2790
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2791
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2792 /* Load XBM image IMG which will be displayed on frame F from buffer
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2793 CONTENTS. END is the end of the buffer. Value is non-zero if
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2794 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2795
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2796 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2797 xbm_load_image (struct frame *f, struct image *img, unsigned char *contents,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2798 unsigned char *end)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2799 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2800 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2801 unsigned char *data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2802 int success_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2803
104259
a52366907b7a * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
Chong Yidong <cyd@stupidchicken.com>
parents: 102392
diff changeset
2804 rc = xbm_read_bitmap_data (f, contents, end, &img->width, &img->height,
a52366907b7a * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
Chong Yidong <cyd@stupidchicken.com>
parents: 102392
diff changeset
2805 &data, 0);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2806 if (rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2807 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2808 unsigned long foreground = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2809 unsigned long background = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2810 int non_default_colors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2811 Lisp_Object value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2812
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2813 xassert (img->width > 0 && img->height > 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2814
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2815 /* Get foreground and background colors, maybe allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2816 value = image_spec_value (img->spec, QCforeground, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2817 if (!NILP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2818 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2819 foreground = x_alloc_image_color (f, img, value, foreground);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2820 non_default_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2821 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2822 value = image_spec_value (img->spec, QCbackground, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2823 if (!NILP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2824 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2825 background = x_alloc_image_color (f, img, value, background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2826 img->background = background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2827 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2828 non_default_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2829 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2830
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
2831 Create_Pixmap_From_Bitmap_Data (f, img, data,
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2832 foreground, background,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2833 non_default_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2834 xfree (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2835
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2836 if (img->pixmap == NO_PIXMAP)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2837 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2838 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2839 image_error ("Unable to create X pixmap for `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2840 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2841 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2842 success_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2843 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2844 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2845 image_error ("Error loading XBM image `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2846
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2847 return success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2848 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2849
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2850
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2851 /* Value is non-zero if DATA looks like an in-memory XBM file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2852
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2853 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2854 xbm_file_p (Lisp_Object data)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2855 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2856 int w, h;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2857 return (STRINGP (data)
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
2858 && xbm_read_bitmap_data (NULL, SDATA (data),
104259
a52366907b7a * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
Chong Yidong <cyd@stupidchicken.com>
parents: 102392
diff changeset
2859 (SDATA (data) + SBYTES (data)),
a52366907b7a * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
Chong Yidong <cyd@stupidchicken.com>
parents: 102392
diff changeset
2860 &w, &h, NULL, 1));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2861 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2862
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2863
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2864 /* Fill image IMG which is used on frame F with pixmap data. Value is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2865 non-zero if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2866
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2867 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
2868 xbm_load (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2869 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2870 int success_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2871 Lisp_Object file_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2872
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2873 xassert (xbm_image_p (img->spec));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2874
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2875 /* If IMG->spec specifies a file name, create a non-file spec from it. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2876 file_name = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2877 if (STRINGP (file_name))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2878 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2879 Lisp_Object file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2880 unsigned char *contents;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2881 int size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2882 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2883
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2884 file = x_find_image_file (file_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2885 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2886 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2887 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2888 image_error ("Cannot find image file `%s'", file_name, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2889 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2890 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2891 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2892
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2893 contents = slurp_file (SDATA (file), &size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2894 if (contents == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2895 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2896 image_error ("Error loading XBM image `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2897 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2898 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2899 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2900
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2901 success_p = xbm_load_image (f, img, contents, contents + size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2902 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2903 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2904 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2905 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2906 struct image_keyword fmt[XBM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2907 Lisp_Object data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2908 unsigned long foreground = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2909 unsigned long background = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2910 int non_default_colors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2911 char *bits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2912 int parsed_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2913 int in_memory_file_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2914
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2915 /* See if data looks like an in-memory XBM file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2916 data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2917 in_memory_file_p = xbm_file_p (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2918
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2919 /* Parse the image specification. */
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
2920 memcpy (fmt, xbm_format, sizeof fmt);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2921 parsed_p = parse_image_spec (img->spec, fmt, XBM_LAST, Qxbm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2922 xassert (parsed_p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2923
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2924 /* Get specified width, and height. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2925 if (!in_memory_file_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2926 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2927 img->width = XFASTINT (fmt[XBM_WIDTH].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2928 img->height = XFASTINT (fmt[XBM_HEIGHT].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2929 xassert (img->width > 0 && img->height > 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2930 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2931
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2932 /* Get foreground and background colors, maybe allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2933 if (fmt[XBM_FOREGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2934 && STRINGP (fmt[XBM_FOREGROUND].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2935 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2936 foreground = x_alloc_image_color (f, img, fmt[XBM_FOREGROUND].value,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2937 foreground);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2938 non_default_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2939 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2940
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2941 if (fmt[XBM_BACKGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2942 && STRINGP (fmt[XBM_BACKGROUND].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2943 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2944 background = x_alloc_image_color (f, img, fmt[XBM_BACKGROUND].value,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2945 background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2946 non_default_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2947 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2948
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2949 if (in_memory_file_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2950 success_p = xbm_load_image (f, img, SDATA (data),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2951 (SDATA (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2952 + SBYTES (data)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2953 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2954 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2955 if (VECTORP (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2956 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2957 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2958 char *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2959 int nbytes = (img->width + BITS_PER_CHAR - 1) / BITS_PER_CHAR;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2960
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2961 p = bits = (char *) alloca (nbytes * img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2962 for (i = 0; i < img->height; ++i, p += nbytes)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2963 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2964 Lisp_Object line = XVECTOR (data)->contents[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2965 if (STRINGP (line))
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
2966 memcpy (p, SDATA (line), nbytes);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2967 else
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
2968 memcpy (p, XBOOL_VECTOR (line)->data, nbytes);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2969 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2970 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2971 else if (STRINGP (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2972 bits = SDATA (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2973 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2974 bits = XBOOL_VECTOR (data)->data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2975
79528
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2976 #ifdef WINDOWSNT
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2977 {
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2978 char *invertedBits;
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2979 int nbytes, i;
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2980 /* Windows mono bitmaps are reversed compared with X. */
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2981 invertedBits = bits;
106975
62f86ca36527 Use png_sig_cmp to allow linking with libpng 1.4.0.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
2982 nbytes = (img->width + BITS_PER_CHAR - 1) / BITS_PER_CHAR
79528
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2983 * img->height;
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
2984 bits = (char *) alloca (nbytes);
79528
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2985 for (i = 0; i < nbytes; i++)
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2986 bits[i] = XBM_BIT_SHUFFLE (invertedBits[i]);
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2987 }
558b3650d5dc (xbm_load) [WINDOWSNT]: Shuffle the bits of directly specified XBMs.
Jason Rumney <jasonr@gnu.org>
parents: 78970
diff changeset
2988 #endif
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2989 /* Create the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2990
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2991 Create_Pixmap_From_Bitmap_Data (f, img, bits,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2992 foreground, background,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2993 non_default_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2994 if (img->pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2995 success_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2996 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2997 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2998 image_error ("Unable to create pixmap for XBM image `%s'",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2999 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3000 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3001 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3002 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3003 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3004
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3005 return success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3006 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3007
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3008
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3009
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3010 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3011 XPM images
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3012 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3013
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
3014 #if defined (HAVE_XPM) || defined (HAVE_NS)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3015
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3016 static int xpm_image_p (Lisp_Object object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3017 static int xpm_load (struct frame *f, struct image *img);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3018 static int xpm_valid_color_symbols_p (Lisp_Object);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3019
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
3020 #endif /* HAVE_XPM || HAVE_NS */
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3021
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3022 #ifdef HAVE_XPM
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3023 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3024 /* Indicate to xpm.h that we don't have Xlib. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3025 #define FOR_MSW
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3026 /* simx.h in xpm defines XColor and XImage differently than Emacs. */
55375
b9215c2d57ad (Display) [HAVE_NTGUI]: Redefine while loading xpm.h to avoid name clash.
Jason Rumney <jasonr@gnu.org>
parents: 55022
diff changeset
3027 /* It also defines Display the same way as Emacs, but gcc 3.3 still barfs. */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3028 #define XColor xpm_XColor
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3029 #define XImage xpm_XImage
55375
b9215c2d57ad (Display) [HAVE_NTGUI]: Redefine while loading xpm.h to avoid name clash.
Jason Rumney <jasonr@gnu.org>
parents: 55022
diff changeset
3030 #define Display xpm_Display
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3031 #define PIXEL_ALREADY_TYPEDEFED
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3032 #include "X11/xpm.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3033 #undef FOR_MSW
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3034 #undef XColor
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3035 #undef XImage
55375
b9215c2d57ad (Display) [HAVE_NTGUI]: Redefine while loading xpm.h to avoid name clash.
Jason Rumney <jasonr@gnu.org>
parents: 55022
diff changeset
3036 #undef Display
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3037 #undef PIXEL_ALREADY_TYPEDEFED
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3038 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3039 #include "X11/xpm.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3040 #endif /* HAVE_NTGUI */
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3041 #endif /* HAVE_XPM */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3042
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
3043 #if defined (HAVE_XPM) || defined (HAVE_NS)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3044 /* The symbol `xpm' identifying XPM-format images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3045
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3046 Lisp_Object Qxpm;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3047
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3048 /* Indices of image specification fields in xpm_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3049
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3050 enum xpm_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3051 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3052 XPM_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3053 XPM_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3054 XPM_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3055 XPM_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3056 XPM_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3057 XPM_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3058 XPM_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3059 XPM_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3060 XPM_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3061 XPM_COLOR_SYMBOLS,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3062 XPM_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3063 XPM_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3064 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3065
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3066 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3067 of valid XPM image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3068
105959
ba3ffbd9c422 * process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105877
diff changeset
3069 static const struct image_keyword xpm_format[XPM_LAST] =
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3070 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3071 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3072 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3073 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3074 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3075 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3076 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3077 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3078 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3079 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3080 {":color-symbols", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3081 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3082 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3083
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3084 /* Structure describing the image type XPM. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3085
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3086 static struct image_type xpm_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3087 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3088 &Qxpm,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3089 xpm_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3090 xpm_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3091 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3092 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3093 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3094
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3095 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3096
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3097 /* Define ALLOC_XPM_COLORS if we can use Emacs' own color allocation
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3098 functions for allocating image colors. Our own functions handle
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3099 color allocation failures more gracefully than the ones on the XPM
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3100 lib. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3101
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3102 #if defined XpmAllocColor && defined XpmFreeColors && defined XpmColorClosure
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3103 #define ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3104 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3105 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3106
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3107 #ifdef ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3108
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3109 static void xpm_init_color_cache (struct frame *, XpmAttributes *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3110 static void xpm_free_color_cache (void);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3111 static int xpm_lookup_color (struct frame *, char *, XColor *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3112 static int xpm_color_bucket (char *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3113 static struct xpm_cached_color *xpm_cache_color (struct frame *, char *,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3114 XColor *, int);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3115
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3116 /* An entry in a hash table used to cache color definitions of named
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3117 colors. This cache is necessary to speed up XPM image loading in
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3118 case we do color allocations ourselves. Without it, we would need
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3119 a call to XParseColor per pixel in the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3120
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3121 struct xpm_cached_color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3122 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3123 /* Next in collision chain. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3124 struct xpm_cached_color *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3125
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3126 /* Color definition (RGB and pixel color). */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3127 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3128
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3129 /* Color name. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3130 char name[1];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3131 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3132
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3133 /* The hash table used for the color cache, and its bucket vector
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3134 size. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3135
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3136 #define XPM_COLOR_CACHE_BUCKETS 1001
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3137 struct xpm_cached_color **xpm_color_cache;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3138
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3139 /* Initialize the color cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3140
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3141 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3142 xpm_init_color_cache (struct frame *f, XpmAttributes *attrs)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3143 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3144 size_t nbytes = XPM_COLOR_CACHE_BUCKETS * sizeof *xpm_color_cache;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3145 xpm_color_cache = (struct xpm_cached_color **) xmalloc (nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3146 memset (xpm_color_cache, 0, nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3147 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3148
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3149 if (attrs->valuemask & XpmColorSymbols)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3150 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3151 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3152 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3153
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3154 for (i = 0; i < attrs->numsymbols; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3155 if (XParseColor (FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3156 attrs->colorsymbols[i].value, &color))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3157 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3158 color.pixel = lookup_rgb_color (f, color.red, color.green,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3159 color.blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3160 xpm_cache_color (f, attrs->colorsymbols[i].name, &color, -1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3161 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3162 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3163 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3164
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3165 /* Free the color cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3166
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3167 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3168 xpm_free_color_cache (void)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3169 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3170 struct xpm_cached_color *p, *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3171 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3172
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3173 for (i = 0; i < XPM_COLOR_CACHE_BUCKETS; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3174 for (p = xpm_color_cache[i]; p; p = next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3175 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3176 next = p->next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3177 xfree (p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3178 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3179
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3180 xfree (xpm_color_cache);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3181 xpm_color_cache = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3182 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3183 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3184
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3185 /* Return the bucket index for color named COLOR_NAME in the color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3186 cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3187
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3188 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3189 xpm_color_bucket (char *color_name)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3190 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3191 unsigned h = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3192 char *s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3193
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3194 for (s = color_name; *s; ++s)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3195 h = (h << 2) ^ *s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3196 return h %= XPM_COLOR_CACHE_BUCKETS;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3197 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3198
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3199
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3200 /* On frame F, cache values COLOR for color with name COLOR_NAME.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3201 BUCKET, if >= 0, is a precomputed bucket index. Value is the cache
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3202 entry added. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3203
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3204 static struct xpm_cached_color *
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3205 xpm_cache_color (struct frame *f, char *color_name, XColor *color, int bucket)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3206 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3207 size_t nbytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3208 struct xpm_cached_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3209
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3210 if (bucket < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3211 bucket = xpm_color_bucket (color_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3212
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3213 nbytes = sizeof *p + strlen (color_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3214 p = (struct xpm_cached_color *) xmalloc (nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3215 strcpy (p->name, color_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3216 p->color = *color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3217 p->next = xpm_color_cache[bucket];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3218 xpm_color_cache[bucket] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3219 return p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3220 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3221
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3222 /* Look up color COLOR_NAME for frame F in the color cache. If found,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3223 return the cached definition in *COLOR. Otherwise, make a new
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3224 entry in the cache and allocate the color. Value is zero if color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3225 allocation failed. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3226
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3227 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3228 xpm_lookup_color (struct frame *f, char *color_name, XColor *color)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3229 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3230 struct xpm_cached_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3231 int h = xpm_color_bucket (color_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3232
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3233 for (p = xpm_color_cache[h]; p; p = p->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3234 if (strcmp (p->name, color_name) == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3235 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3236
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3237 if (p != NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3238 *color = p->color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3239 else if (XParseColor (FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3240 color_name, color))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3241 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3242 color->pixel = lookup_rgb_color (f, color->red, color->green,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3243 color->blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3244 p = xpm_cache_color (f, color_name, color, h);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3245 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3246 /* You get `opaque' at least from ImageMagick converting pbm to xpm
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3247 with transparency, and it's useful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3248 else if (strcmp ("opaque", color_name) == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3249 {
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
3250 memset (color, 0, sizeof (XColor)); /* Is this necessary/correct? */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3251 color->pixel = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3252 p = xpm_cache_color (f, color_name, color, h);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3253 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3254
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3255 return p != NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3256 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3257
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3258
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3259 /* Callback for allocating color COLOR_NAME. Called from the XPM lib.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3260 CLOSURE is a pointer to the frame on which we allocate the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3261 color. Return in *COLOR the allocated color. Value is non-zero
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3262 if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3263
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3264 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3265 xpm_alloc_color (Display *dpy, Colormap cmap, char *color_name, XColor *color,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3266 void *closure)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3267 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3268 return xpm_lookup_color ((struct frame *) closure, color_name, color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3269 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3270
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3271
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3272 /* Callback for freeing NPIXELS colors contained in PIXELS. CLOSURE
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3273 is a pointer to the frame on which we allocate the color. Value is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3274 non-zero if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3275
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3276 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3277 xpm_free_colors (Display *dpy, Colormap cmap, Pixel *pixels, int npixels, void *closure)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3278 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3279 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3280 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3281
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3282 #endif /* ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3283
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3284
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3285 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3286
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3287 /* XPM library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3288
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3289 DEF_IMGLIB_FN (XpmFreeAttributes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3290 DEF_IMGLIB_FN (XpmCreateImageFromBuffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3291 DEF_IMGLIB_FN (XpmReadFileToImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3292 DEF_IMGLIB_FN (XImageFree);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3293
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3294 static int
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
3295 init_xpm_functions (Lisp_Object libraries)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3296 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3297 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3298
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
3299 if (!(library = w32_delayed_load (libraries, Qxpm)))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3300 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3301
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3302 LOAD_IMGLIB_FN (library, XpmFreeAttributes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3303 LOAD_IMGLIB_FN (library, XpmCreateImageFromBuffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3304 LOAD_IMGLIB_FN (library, XpmReadFileToImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3305 LOAD_IMGLIB_FN (library, XImageFree);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3306 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3307 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3308
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3309 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3310
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3311
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3312 /* Value is non-zero if COLOR_SYMBOLS is a valid color symbols list
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3313 for XPM images. Such a list must consist of conses whose car and
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3314 cdr are strings. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3315
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3316 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3317 xpm_valid_color_symbols_p (Lisp_Object color_symbols)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3318 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3319 while (CONSP (color_symbols))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3320 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3321 Lisp_Object sym = XCAR (color_symbols);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3322 if (!CONSP (sym)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3323 || !STRINGP (XCAR (sym))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3324 || !STRINGP (XCDR (sym)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3325 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3326 color_symbols = XCDR (color_symbols);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3327 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3328
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3329 return NILP (color_symbols);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3330 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3331
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3332
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3333 /* Value is non-zero if OBJECT is a valid XPM image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3334
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3335 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3336 xpm_image_p (Lisp_Object object)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3337 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3338 struct image_keyword fmt[XPM_LAST];
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
3339 memcpy (fmt, xpm_format, sizeof fmt);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3340 return (parse_image_spec (object, fmt, XPM_LAST, Qxpm)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3341 /* Either `:file' or `:data' must be present. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3342 && fmt[XPM_FILE].count + fmt[XPM_DATA].count == 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3343 /* Either no `:color-symbols' or it's a list of conses
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3344 whose car and cdr are strings. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3345 && (fmt[XPM_COLOR_SYMBOLS].count == 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3346 || xpm_valid_color_symbols_p (fmt[XPM_COLOR_SYMBOLS].value)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3347 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3348
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
3349 #endif /* HAVE_XPM || HAVE_NS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3350
66919
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3351 #if defined (HAVE_XPM) && defined (HAVE_X_WINDOWS)
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3352 int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3353 x_create_bitmap_from_xpm_data (struct frame *f, char **bits)
66919
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3354 {
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3355 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3356 int id, rc;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3357 XpmAttributes attrs;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3358 Pixmap bitmap, mask;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3359
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
3360 memset (&attrs, 0, sizeof attrs);
66919
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3361
66924
53960d1c1f2f initialize XpmAttributes
Chong Yidong <cyd@stupidchicken.com>
parents: 66919
diff changeset
3362 attrs.visual = FRAME_X_VISUAL (f);
53960d1c1f2f initialize XpmAttributes
Chong Yidong <cyd@stupidchicken.com>
parents: 66919
diff changeset
3363 attrs.colormap = FRAME_X_COLORMAP (f);
53960d1c1f2f initialize XpmAttributes
Chong Yidong <cyd@stupidchicken.com>
parents: 66919
diff changeset
3364 attrs.valuemask |= XpmVisual;
53960d1c1f2f initialize XpmAttributes
Chong Yidong <cyd@stupidchicken.com>
parents: 66919
diff changeset
3365 attrs.valuemask |= XpmColormap;
53960d1c1f2f initialize XpmAttributes
Chong Yidong <cyd@stupidchicken.com>
parents: 66919
diff changeset
3366
66919
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3367 rc = XpmCreatePixmapFromData (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3368 bits, &bitmap, &mask, &attrs);
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3369 if (rc != XpmSuccess)
66984
9d0a2cc054be * image.c (x_create_bitmap_from_xpm_data): Free attributes on
Chong Yidong <cyd@stupidchicken.com>
parents: 66924
diff changeset
3370 {
9d0a2cc054be * image.c (x_create_bitmap_from_xpm_data): Free attributes on
Chong Yidong <cyd@stupidchicken.com>
parents: 66924
diff changeset
3371 XpmFreeAttributes (&attrs);
9d0a2cc054be * image.c (x_create_bitmap_from_xpm_data): Free attributes on
Chong Yidong <cyd@stupidchicken.com>
parents: 66924
diff changeset
3372 return -1;
9d0a2cc054be * image.c (x_create_bitmap_from_xpm_data): Free attributes on
Chong Yidong <cyd@stupidchicken.com>
parents: 66924
diff changeset
3373 }
66919
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3374
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3375 id = x_allocate_bitmap_record (f);
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3376 dpyinfo->bitmaps[id - 1].pixmap = bitmap;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3377 dpyinfo->bitmaps[id - 1].have_mask = 1;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3378 dpyinfo->bitmaps[id - 1].mask = mask;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3379 dpyinfo->bitmaps[id - 1].file = NULL;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3380 dpyinfo->bitmaps[id - 1].height = attrs.height;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3381 dpyinfo->bitmaps[id - 1].width = attrs.width;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3382 dpyinfo->bitmaps[id - 1].depth = attrs.depth;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3383 dpyinfo->bitmaps[id - 1].refcount = 1;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3384
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3385 XpmFreeAttributes (&attrs);
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3386 return id;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3387 }
66994
f7e79cfcfc4f Fix typo.
Chong Yidong <cyd@stupidchicken.com>
parents: 66984
diff changeset
3388 #endif /* defined (HAVE_XPM) && defined (HAVE_X_WINDOWS) */
66919
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3389
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3390 /* Load image IMG which will be displayed on frame F. Value is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3391 non-zero if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3392
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3393 #ifdef HAVE_XPM
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3394
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3395 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
3396 xpm_load (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3397 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3398 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3399 XpmAttributes attrs;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3400 Lisp_Object specified_file, color_symbols;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3401 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3402 HDC hdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3403 xpm_XImage * xpm_image = NULL, * xpm_mask = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3404 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3405
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3406 /* Configure the XPM lib. Use the visual of frame F. Allocate
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3407 close colors. Return colors allocated. */
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
3408 memset (&attrs, 0, sizeof attrs);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3409
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3410 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3411 attrs.visual = FRAME_X_VISUAL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3412 attrs.colormap = FRAME_X_COLORMAP (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3413 attrs.valuemask |= XpmVisual;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3414 attrs.valuemask |= XpmColormap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3415 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3416
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3417 #ifdef ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3418 /* Allocate colors with our own functions which handle
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3419 failing color allocation more gracefully. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3420 attrs.color_closure = f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3421 attrs.alloc_color = xpm_alloc_color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3422 attrs.free_colors = xpm_free_colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3423 attrs.valuemask |= XpmAllocColor | XpmFreeColors | XpmColorClosure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3424 #else /* not ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3425 /* Let the XPM lib allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3426 attrs.valuemask |= XpmReturnAllocPixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3427 #ifdef XpmAllocCloseColors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3428 attrs.alloc_close_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3429 attrs.valuemask |= XpmAllocCloseColors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3430 #else /* not XpmAllocCloseColors */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3431 attrs.closeness = 600;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3432 attrs.valuemask |= XpmCloseness;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3433 #endif /* not XpmAllocCloseColors */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3434 #endif /* ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3435
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3436 /* If image specification contains symbolic color definitions, add
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3437 these to `attrs'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3438 color_symbols = image_spec_value (img->spec, QCcolor_symbols, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3439 if (CONSP (color_symbols))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3440 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3441 Lisp_Object tail;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3442 XpmColorSymbol *xpm_syms;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3443 int i, size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3444
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3445 attrs.valuemask |= XpmColorSymbols;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3446
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3447 /* Count number of symbols. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3448 attrs.numsymbols = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3449 for (tail = color_symbols; CONSP (tail); tail = XCDR (tail))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3450 ++attrs.numsymbols;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3451
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3452 /* Allocate an XpmColorSymbol array. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3453 size = attrs.numsymbols * sizeof *xpm_syms;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3454 xpm_syms = (XpmColorSymbol *) alloca (size);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
3455 memset (xpm_syms, 0, size);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3456 attrs.colorsymbols = xpm_syms;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3457
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3458 /* Fill the color symbol array. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3459 for (tail = color_symbols, i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3460 CONSP (tail);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3461 ++i, tail = XCDR (tail))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3462 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3463 Lisp_Object name = XCAR (XCAR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3464 Lisp_Object color = XCDR (XCAR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3465 xpm_syms[i].name = (char *) alloca (SCHARS (name) + 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3466 strcpy (xpm_syms[i].name, SDATA (name));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3467 xpm_syms[i].value = (char *) alloca (SCHARS (color) + 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3468 strcpy (xpm_syms[i].value, SDATA (color));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3469 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3470 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3471
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3472 /* Create a pixmap for the image, either from a file, or from a
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3473 string buffer containing data in the same format as an XPM file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3474 #ifdef ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3475 xpm_init_color_cache (f, &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3476 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3477
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3478 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3479
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3480 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3481 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3482 HDC frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3483 hdc = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3484 release_frame_dc (f, frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3485 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3486 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3487
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3488 if (STRINGP (specified_file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3489 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3490 Lisp_Object file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3491 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3492 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3493 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3494 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3495 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3496
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3497 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3498 /* XpmReadFileToPixmap is not available in the Windows port of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3499 libxpm. But XpmReadFileToImage almost does what we want. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3500 rc = fn_XpmReadFileToImage (&hdc, SDATA (file),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3501 &xpm_image, &xpm_mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3502 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3503 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3504 rc = XpmReadFileToPixmap (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3505 SDATA (file), &img->pixmap, &img->mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3506 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3507 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3508 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3509 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3510 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3511 Lisp_Object buffer = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3512 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3513 /* XpmCreatePixmapFromBuffer is not available in the Windows port
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3514 of libxpm. But XpmCreateImageFromBuffer almost does what we want. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3515 rc = fn_XpmCreateImageFromBuffer (&hdc, SDATA (buffer),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3516 &xpm_image, &xpm_mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3517 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3518 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3519 rc = XpmCreatePixmapFromBuffer (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3520 SDATA (buffer),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3521 &img->pixmap, &img->mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3522 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3523 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3524 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3525
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3526 if (rc == XpmSuccess)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3527 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3528 #if defined (COLOR_TABLE_SUPPORT) && defined (ALLOC_XPM_COLORS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3529 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3530 #else /* not ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3531 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3532
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3533 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3534 /* W32 XPM uses XImage to wrap what W32 Emacs calls a Pixmap,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3535 plus some duplicate attributes. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3536 if (xpm_image && xpm_image->bitmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3537 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3538 img->pixmap = xpm_image->bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3539 /* XImageFree in libXpm frees XImage struct without destroying
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3540 the bitmap, which is what we want. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3541 fn_XImageFree (xpm_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3542 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3543 if (xpm_mask && xpm_mask->bitmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3544 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3545 /* The mask appears to be inverted compared with what we expect.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3546 TODO: invert our expectations. See other places where we
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3547 have to invert bits because our idea of masks is backwards. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3548 HGDIOBJ old_obj;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3549 old_obj = SelectObject (hdc, xpm_mask->bitmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3550
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3551 PatBlt (hdc, 0, 0, xpm_mask->width, xpm_mask->height, DSTINVERT);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3552 SelectObject (hdc, old_obj);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3553
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3554 img->mask = xpm_mask->bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3555 fn_XImageFree (xpm_mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3556 DeleteDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3557 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3558
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3559 DeleteDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3560 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3561
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3562 /* Remember allocated colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3563 img->ncolors = attrs.nalloc_pixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3564 img->colors = (unsigned long *) xmalloc (img->ncolors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3565 * sizeof *img->colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3566 for (i = 0; i < attrs.nalloc_pixels; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3567 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3568 img->colors[i] = attrs.alloc_pixels[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3569 #ifdef DEBUG_X_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3570 register_color (img->colors[i]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3571 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3572 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3573 #endif /* not ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3574
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3575 img->width = attrs.width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3576 img->height = attrs.height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3577 xassert (img->width > 0 && img->height > 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3578
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3579 /* The call to XpmFreeAttributes below frees attrs.alloc_pixels. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3580 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3581 fn_XpmFreeAttributes (&attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3582 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3583 XpmFreeAttributes (&attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3584 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3585 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3586 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3587 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3588 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3589 DeleteDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3590 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3591
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3592 switch (rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3593 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3594 case XpmOpenFailed:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3595 image_error ("Error opening XPM file (%s)", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3596 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3597
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3598 case XpmFileInvalid:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3599 image_error ("Invalid XPM file (%s)", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3600 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3601
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3602 case XpmNoMemory:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3603 image_error ("Out of memory (%s)", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3604 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3605
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3606 case XpmColorFailed:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3607 image_error ("Color allocation error (%s)", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3608 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3609
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3610 default:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3611 image_error ("Unknown error (%s)", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3612 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3613 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3614 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3615
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3616 #ifdef ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3617 xpm_free_color_cache ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3618 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3619 return rc == XpmSuccess;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3620 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3621
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3622 #endif /* HAVE_XPM */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3623
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
3624 #if defined (HAVE_NS) && !defined (HAVE_XPM)
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
3625
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
3626 /* XPM support functions for NS where libxpm is not available.
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3627 Only XPM version 3 (without any extensions) is supported. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3628
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3629 static int xpm_scan (const unsigned char **, const unsigned char *,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3630 const unsigned char **, int *);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3631 static Lisp_Object xpm_make_color_table_v
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3632 (void (**) (Lisp_Object, const unsigned char *, int, Lisp_Object),
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3633 Lisp_Object (**) (Lisp_Object, const unsigned char *, int));
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3634 static void xpm_put_color_table_v (Lisp_Object, const unsigned char *,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3635 int, Lisp_Object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3636 static Lisp_Object xpm_get_color_table_v (Lisp_Object,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3637 const unsigned char *, int);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3638 static Lisp_Object xpm_make_color_table_h
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3639 (void (**) (Lisp_Object, const unsigned char *, int, Lisp_Object),
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3640 Lisp_Object (**) (Lisp_Object, const unsigned char *, int));
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3641 static void xpm_put_color_table_h (Lisp_Object, const unsigned char *,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3642 int, Lisp_Object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3643 static Lisp_Object xpm_get_color_table_h (Lisp_Object,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3644 const unsigned char *, int);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3645 static int xpm_str_to_color_key (const char *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3646 static int xpm_load_image (struct frame *, struct image *,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
3647 const unsigned char *, const unsigned char *);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3648
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3649 /* Tokens returned from xpm_scan. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3650
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3651 enum xpm_token
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3652 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3653 XPM_TK_IDENT = 256,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3654 XPM_TK_STRING,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3655 XPM_TK_EOF
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3656 };
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3657
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3658 /* Scan an XPM data and return a character (< 256) or a token defined
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3659 by enum xpm_token above. *S and END are the start (inclusive) and
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3660 the end (exclusive) addresses of the data, respectively. Advance
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3661 *S while scanning. If token is either XPM_TK_IDENT or
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3662 XPM_TK_STRING, *BEG and *LEN are set to the start address and the
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3663 length of the corresponding token, respectively. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3664
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3665 static int
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3666 xpm_scan (s, end, beg, len)
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3667 const unsigned char **s, *end, **beg;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3668 int *len;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3669 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3670 int c;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3671
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3672 while (*s < end)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3673 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3674 /* Skip white-space. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3675 while (*s < end && (c = *(*s)++, isspace (c)))
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3676 ;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3677
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3678 /* gnus-pointer.xpm uses '-' in its identifier.
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3679 sb-dir-plus.xpm uses '+' in its identifier. */
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3680 if (isalpha (c) || c == '_' || c == '-' || c == '+')
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3681 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3682 *beg = *s - 1;
80545
d4410031dce7 (PIX_MASK_DRAW, PIX_MASK_RETAIN) [USE_MAC_IMAGE_IO]:
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 80382
diff changeset
3683 while (*s < end
d4410031dce7 (PIX_MASK_DRAW, PIX_MASK_RETAIN) [USE_MAC_IMAGE_IO]:
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 80382
diff changeset
3684 && (c = **s, isalnum (c) || c == '_' || c == '-' || c == '+'))
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3685 ++*s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3686 *len = *s - *beg;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3687 return XPM_TK_IDENT;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3688 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3689 else if (c == '"')
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3690 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3691 *beg = *s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3692 while (*s < end && **s != '"')
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3693 ++*s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3694 *len = *s - *beg;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3695 if (*s < end)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3696 ++*s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3697 return XPM_TK_STRING;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3698 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3699 else if (c == '/')
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3700 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3701 if (*s < end && **s == '*')
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3702 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3703 /* C-style comment. */
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3704 ++*s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3705 do
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3706 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3707 while (*s < end && *(*s)++ != '*')
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3708 ;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3709 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3710 while (*s < end && **s != '/');
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3711 if (*s < end)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3712 ++*s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3713 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3714 else
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3715 return c;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3716 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3717 else
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3718 return c;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3719 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3720
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3721 return XPM_TK_EOF;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3722 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3723
78970
35f78a0b1e30 (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 78863
diff changeset
3724 /* Functions for color table lookup in XPM data. A key is a string
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3725 specifying the color of each pixel in XPM data. A value is either
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3726 an integer that specifies a pixel color, Qt that specifies
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3727 transparency, or Qnil for the unspecified color. If the length of
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3728 the key string is one, a vector is used as a table. Otherwise, a
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3729 hash table is used. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3730
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3731 static Lisp_Object
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3732 xpm_make_color_table_v (put_func, get_func)
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3733 void (**put_func) (Lisp_Object, const unsigned char *, int, Lisp_Object);
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3734 Lisp_Object (**get_func) (Lisp_Object, const unsigned char *, int);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3735 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3736 *put_func = xpm_put_color_table_v;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3737 *get_func = xpm_get_color_table_v;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3738 return Fmake_vector (make_number (256), Qnil);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3739 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3740
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3741 static void
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3742 xpm_put_color_table_v (color_table, chars_start, chars_len, color)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3743 Lisp_Object color_table;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3744 const unsigned char *chars_start;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3745 int chars_len;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3746 Lisp_Object color;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3747 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3748 XVECTOR (color_table)->contents[*chars_start] = color;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3749 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3750
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3751 static Lisp_Object
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3752 xpm_get_color_table_v (color_table, chars_start, chars_len)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3753 Lisp_Object color_table;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3754 const unsigned char *chars_start;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3755 int chars_len;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3756 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3757 return XVECTOR (color_table)->contents[*chars_start];
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3758 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3759
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3760 static Lisp_Object
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3761 xpm_make_color_table_h (put_func, get_func)
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3762 void (**put_func) (Lisp_Object, const unsigned char *, int, Lisp_Object);
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3763 Lisp_Object (**get_func) (Lisp_Object, const unsigned char *, int);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3764 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3765 *put_func = xpm_put_color_table_h;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3766 *get_func = xpm_get_color_table_h;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3767 return make_hash_table (Qequal, make_number (DEFAULT_HASH_SIZE),
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3768 make_float (DEFAULT_REHASH_SIZE),
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3769 make_float (DEFAULT_REHASH_THRESHOLD),
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3770 Qnil, Qnil, Qnil);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3771 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3772
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3773 static void
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3774 xpm_put_color_table_h (color_table, chars_start, chars_len, color)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3775 Lisp_Object color_table;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3776 const unsigned char *chars_start;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3777 int chars_len;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3778 Lisp_Object color;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3779 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3780 struct Lisp_Hash_Table *table = XHASH_TABLE (color_table);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3781 unsigned hash_code;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3782 Lisp_Object chars = make_unibyte_string (chars_start, chars_len);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3783
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3784 hash_lookup (table, chars, &hash_code);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3785 hash_put (table, chars, color, hash_code);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3786 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3787
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3788 static Lisp_Object
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3789 xpm_get_color_table_h (color_table, chars_start, chars_len)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3790 Lisp_Object color_table;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3791 const unsigned char *chars_start;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3792 int chars_len;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3793 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3794 struct Lisp_Hash_Table *table = XHASH_TABLE (color_table);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3795 int i = hash_lookup (table, make_unibyte_string (chars_start, chars_len),
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3796 NULL);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3797
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3798 return i >= 0 ? HASH_VALUE (table, i) : Qnil;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3799 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3800
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3801 enum xpm_color_key {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3802 XPM_COLOR_KEY_S,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3803 XPM_COLOR_KEY_M,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3804 XPM_COLOR_KEY_G4,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3805 XPM_COLOR_KEY_G,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3806 XPM_COLOR_KEY_C
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3807 };
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3808
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3809 static const char xpm_color_key_strings[][4] = {"s", "m", "g4", "g", "c"};
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3810
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3811 static int
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3812 xpm_str_to_color_key (s)
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3813 const char *s;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3814 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3815 int i;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3816
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3817 for (i = 0;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3818 i < sizeof xpm_color_key_strings / sizeof xpm_color_key_strings[0];
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3819 i++)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3820 if (strcmp (xpm_color_key_strings[i], s) == 0)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3821 return i;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3822 return -1;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3823 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3824
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3825 static int
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3826 xpm_load_image (f, img, contents, end)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3827 struct frame *f;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3828 struct image *img;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3829 const unsigned char *contents, *end;
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3830 {
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3831 const unsigned char *s = contents, *beg, *str;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3832 unsigned char buffer[BUFSIZ];
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3833 int width, height, x, y;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3834 int num_colors, chars_per_pixel;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3835 int len, LA1;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3836 void (*put_color_table) (Lisp_Object, const unsigned char *, int, Lisp_Object);
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
3837 Lisp_Object (*get_color_table) (Lisp_Object, const unsigned char *, int);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3838 Lisp_Object frame, color_symbols, color_table;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3839 int best_key, have_mask = 0;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3840 XImagePtr ximg = NULL, mask_img = NULL;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3841
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3842 #define match() \
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3843 LA1 = xpm_scan (&s, end, &beg, &len)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3844
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3845 #define expect(TOKEN) \
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3846 if (LA1 != (TOKEN)) \
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3847 goto failure; \
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3848 else \
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3849 match ()
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3850
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3851 #define expect_ident(IDENT) \
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3852 if (LA1 == XPM_TK_IDENT \
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3853 && strlen ((IDENT)) == len && memcmp ((IDENT), beg, len) == 0) \
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3854 match (); \
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3855 else \
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3856 goto failure
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3857
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3858 if (!(end - s >= 9 && memcmp (s, "/* XPM */", 9) == 0))
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3859 goto failure;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3860 s += 9;
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
3861 match ();
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3862 expect_ident ("static");
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3863 expect_ident ("char");
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3864 expect ('*');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3865 expect (XPM_TK_IDENT);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3866 expect ('[');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3867 expect (']');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3868 expect ('=');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3869 expect ('{');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3870 expect (XPM_TK_STRING);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3871 if (len >= BUFSIZ)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3872 goto failure;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3873 memcpy (buffer, beg, len);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3874 buffer[len] = '\0';
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3875 if (sscanf (buffer, "%d %d %d %d", &width, &height,
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3876 &num_colors, &chars_per_pixel) != 4
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3877 || width <= 0 || height <= 0
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3878 || num_colors <= 0 || chars_per_pixel <= 0)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3879 goto failure;
66430
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
3880
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
3881 if (!check_image_size (f, width, height))
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
3882 {
102392
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
3883 image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
66430
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
3884 goto failure;
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
3885 }
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
3886
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3887 expect (',');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3888
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3889 XSETFRAME (frame, f);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3890 if (!NILP (Fxw_display_color_p (frame)))
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3891 best_key = XPM_COLOR_KEY_C;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3892 else if (!NILP (Fx_display_grayscale_p (frame)))
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3893 best_key = (XFASTINT (Fx_display_planes (frame)) > 2
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3894 ? XPM_COLOR_KEY_G : XPM_COLOR_KEY_G4);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3895 else
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3896 best_key = XPM_COLOR_KEY_M;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3897
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3898 color_symbols = image_spec_value (img->spec, QCcolor_symbols, NULL);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3899 if (chars_per_pixel == 1)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3900 color_table = xpm_make_color_table_v (&put_color_table,
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3901 &get_color_table);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3902 else
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3903 color_table = xpm_make_color_table_h (&put_color_table,
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3904 &get_color_table);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3905
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3906 while (num_colors-- > 0)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3907 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3908 unsigned char *color, *max_color;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3909 int key, next_key, max_key = 0;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3910 Lisp_Object symbol_color = Qnil, color_val;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3911 XColor cdef;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3912
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3913 expect (XPM_TK_STRING);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3914 if (len <= chars_per_pixel || len >= BUFSIZ + chars_per_pixel)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3915 goto failure;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3916 memcpy (buffer, beg + chars_per_pixel, len - chars_per_pixel);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3917 buffer[len - chars_per_pixel] = '\0';
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3918
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3919 str = strtok (buffer, " \t");
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3920 if (str == NULL)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3921 goto failure;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3922 key = xpm_str_to_color_key (str);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3923 if (key < 0)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3924 goto failure;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3925 do
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3926 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3927 color = strtok (NULL, " \t");
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3928 if (color == NULL)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3929 goto failure;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3930
69958
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3931 while ((str = strtok (NULL, " \t")) != NULL)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3932 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3933 next_key = xpm_str_to_color_key (str);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3934 if (next_key >= 0)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3935 break;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3936 color[strlen (color)] = ' ';
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3937 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3938
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3939 if (key == XPM_COLOR_KEY_S)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3940 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3941 if (NILP (symbol_color))
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3942 symbol_color = build_string (color);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3943 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3944 else if (max_key < key && key <= best_key)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3945 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3946 max_key = key;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3947 max_color = color;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3948 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3949 key = next_key;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3950 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3951 while (str);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3952
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3953 color_val = Qnil;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3954 if (!NILP (color_symbols) && !NILP (symbol_color))
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3955 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3956 Lisp_Object specified_color = Fassoc (symbol_color, color_symbols);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3957
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3958 if (CONSP (specified_color) && STRINGP (XCDR (specified_color)))
69958
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3959 {
95213
93de3f6c1a6c * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3960 if (xstrcasecmp (SDATA (XCDR (specified_color)), "None") == 0)
69958
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3961 color_val = Qt;
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3962 else if (x_defined_color (f, SDATA (XCDR (specified_color)),
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3963 &cdef, 0))
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3964 color_val = make_number (cdef.pixel);
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3965 }
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3966 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3967 if (NILP (color_val) && max_key > 0)
69958
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3968 {
95213
93de3f6c1a6c * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3969 if (xstrcasecmp (max_color, "None") == 0)
69958
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3970 color_val = Qt;
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3971 else if (x_defined_color (f, max_color, &cdef, 0))
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3972 color_val = make_number (cdef.pixel);
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
3973 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3974 if (!NILP (color_val))
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3975 (*put_color_table) (color_table, beg, chars_per_pixel, color_val);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3976
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3977 expect (',');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3978 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3979
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3980 if (!x_create_x_image_and_pixmap (f, width, height, 0,
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3981 &ximg, &img->pixmap)
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
3982 #ifndef HAVE_NS
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3983 || !x_create_x_image_and_pixmap (f, width, height, 1,
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
3984 &mask_img, &img->mask)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
3985 #endif
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
3986 )
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3987 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3988 image_error ("Out of memory (%s)", img->spec, Qnil);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3989 goto error;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3990 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3991
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3992 for (y = 0; y < height; y++)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3993 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3994 expect (XPM_TK_STRING);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3995 str = beg;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3996 if (len < width * chars_per_pixel)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3997 goto failure;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3998 for (x = 0; x < width; x++, str += chars_per_pixel)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
3999 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4000 Lisp_Object color_val =
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4001 (*get_color_table) (color_table, str, chars_per_pixel);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4002
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4003 XPutPixel (ximg, x, y,
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4004 (INTEGERP (color_val) ? XINT (color_val)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4005 : FRAME_FOREGROUND_PIXEL (f)));
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4006 #ifndef HAVE_NS
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4007 XPutPixel (mask_img, x, y,
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4008 (!EQ (color_val, Qt) ? PIX_MASK_DRAW
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4009 : (have_mask = 1, PIX_MASK_RETAIN)));
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4010 #else
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
4011 if (EQ (color_val, Qt))
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
4012 ns_set_alpha (ximg, x, y, 0);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4013 #endif
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4014 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4015 if (y + 1 < height)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4016 expect (',');
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4017 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4018
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4019 img->width = width;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4020 img->height = height;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4021
70147
37f988f09f67 [MAC_OS] (xpm_load_image): Fill in background field
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70068
diff changeset
4022 /* Maybe fill in the background field while we have ximg handy. */
37f988f09f67 [MAC_OS] (xpm_load_image): Fill in background field
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70068
diff changeset
4023 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
37f988f09f67 [MAC_OS] (xpm_load_image): Fill in background field
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70068
diff changeset
4024 IMAGE_BACKGROUND (img, f, ximg);
37f988f09f67 [MAC_OS] (xpm_load_image): Fill in background field
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70068
diff changeset
4025
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4026 x_put_x_image (f, ximg, img->pixmap, width, height);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4027 x_destroy_x_image (ximg);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4028 #ifndef HAVE_NS
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4029 if (have_mask)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4030 {
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4031 /* Fill in the background_transparent field while we have the
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4032 mask handy. */
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4033 image_background_transparent (img, f, mask_img);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4034
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4035 x_put_x_image (f, mask_img, img->mask, width, height);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4036 x_destroy_x_image (mask_img);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4037 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4038 else
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4039 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4040 x_destroy_x_image (mask_img);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4041 Free_Pixmap (FRAME_X_DISPLAY (f), img->mask);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4042 img->mask = NO_PIXMAP;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4043 }
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4044 #endif
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4045 return 1;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4046
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4047 failure:
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4048 image_error ("Invalid XPM file (%s)", img->spec, Qnil);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4049 error:
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4050 x_destroy_x_image (ximg);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4051 x_destroy_x_image (mask_img);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4052 x_clear_image (f, img);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4053 return 0;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4054
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4055 #undef match
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4056 #undef expect
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4057 #undef expect_ident
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4058 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4059
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4060 static int
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4061 xpm_load (f, img)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4062 struct frame *f;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4063 struct image *img;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4064 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4065 int success_p = 0;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4066 Lisp_Object file_name;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4067
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4068 /* If IMG->spec specifies a file name, create a non-file spec from it. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4069 file_name = image_spec_value (img->spec, QCfile, NULL);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4070 if (STRINGP (file_name))
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4071 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4072 Lisp_Object file;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4073 unsigned char *contents;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4074 int size;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4075 struct gcpro gcpro1;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4076
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4077 file = x_find_image_file (file_name);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4078 GCPRO1 (file);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4079 if (!STRINGP (file))
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4080 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4081 image_error ("Cannot find image file `%s'", file_name, Qnil);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4082 UNGCPRO;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4083 return 0;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4084 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4085
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4086 contents = slurp_file (SDATA (file), &size);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4087 if (contents == NULL)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4088 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4089 image_error ("Error loading XPM image `%s'", img->spec, Qnil);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4090 UNGCPRO;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4091 return 0;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4092 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4093
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4094 success_p = xpm_load_image (f, img, contents, contents + size);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4095 xfree (contents);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4096 UNGCPRO;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4097 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4098 else
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4099 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4100 Lisp_Object data;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4101
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4102 data = image_spec_value (img->spec, QCdata, NULL);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4103 success_p = xpm_load_image (f, img, SDATA (data),
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4104 SDATA (data) + SBYTES (data));
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4105 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4106
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4107 return success_p;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4108 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4109
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
4110 #endif /* HAVE_NS && !HAVE_XPM */
55886
ae9227eb8392 Work around bugs/problems with MinGW builds of graphics libraries
Juanma Barranquero <lekktu@gmail.com>
parents: 55540
diff changeset
4111
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4112
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4113
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4114 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4115 Color table
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4116 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4117
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4118 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4119
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4120 /* An entry in the color table mapping an RGB color to a pixel color. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4121
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4122 struct ct_color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4123 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4124 int r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4125 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4126
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4127 /* Next in color table collision list. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4128 struct ct_color *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4129 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4130
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4131 /* The bucket vector size to use. Must be prime. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4132
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4133 #define CT_SIZE 101
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4134
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4135 /* Value is a hash of the RGB color given by R, G, and B. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4136
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4137 #define CT_HASH_RGB(R, G, B) (((R) << 16) ^ ((G) << 8) ^ (B))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4138
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4139 /* The color hash table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4140
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4141 struct ct_color **ct_table;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4142
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4143 /* Number of entries in the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4144
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4145 int ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4146
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4147 /* Initialize the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4148
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4149 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4150 init_color_table (void)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4151 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4152 int size = CT_SIZE * sizeof (*ct_table);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4153 ct_table = (struct ct_color **) xmalloc (size);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
4154 memset (ct_table, 0, size);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4155 ct_colors_allocated = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4156 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4157
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4158
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4159 /* Free memory associated with the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4160
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4161 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4162 free_color_table (void)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4163 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4164 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4165 struct ct_color *p, *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4166
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4167 for (i = 0; i < CT_SIZE; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4168 for (p = ct_table[i]; p; p = next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4169 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4170 next = p->next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4171 xfree (p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4172 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4173
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4174 xfree (ct_table);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4175 ct_table = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4176 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4177
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4178
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4179 /* Value is a pixel color for RGB color R, G, B on frame F. If an
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4180 entry for that color already is in the color table, return the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4181 pixel color of that entry. Otherwise, allocate a new color for R,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4182 G, B, and make an entry in the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4183
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4184 static unsigned long
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4185 lookup_rgb_color (struct frame *f, int r, int g, int b)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4186 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4187 unsigned hash = CT_HASH_RGB (r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4188 int i = hash % CT_SIZE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4189 struct ct_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4190 Display_Info *dpyinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4191
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4192 /* Handle TrueColor visuals specially, which improves performance by
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4193 two orders of magnitude. Freeing colors on TrueColor visuals is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4194 a nop, and pixel colors specify RGB values directly. See also
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4195 the Xlib spec, chapter 3.1. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4196 dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4197 if (dpyinfo->red_bits > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4198 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4199 unsigned long pr, pg, pb;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4200
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4201 /* Apply gamma-correction like normal color allocation does. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4202 if (f->gamma)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4203 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4204 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4205 color.red = r, color.green = g, color.blue = b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4206 gamma_correct (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4207 r = color.red, g = color.green, b = color.blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4208 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4209
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4210 /* Scale down RGB values to the visual's bits per RGB, and shift
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4211 them to the right position in the pixel color. Note that the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4212 original RGB values are 16-bit values, as usual in X. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4213 pr = (r >> (16 - dpyinfo->red_bits)) << dpyinfo->red_offset;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4214 pg = (g >> (16 - dpyinfo->green_bits)) << dpyinfo->green_offset;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4215 pb = (b >> (16 - dpyinfo->blue_bits)) << dpyinfo->blue_offset;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4216
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4217 /* Assemble the pixel color. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4218 return pr | pg | pb;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4219 }
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
4220
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4221 for (p = ct_table[i]; p; p = p->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4222 if (p->r == r && p->g == g && p->b == b)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4223 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4224
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4225 if (p == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4226 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4227
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4228 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4229 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4230 Colormap cmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4231 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4232
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4233 color.red = r;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4234 color.green = g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4235 color.blue = b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4236
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4237 cmap = FRAME_X_COLORMAP (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4238 rc = x_alloc_nearest_color (f, cmap, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4239 if (rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4240 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4241 ++ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4242 p = (struct ct_color *) xmalloc (sizeof *p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4243 p->r = r;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4244 p->g = g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4245 p->b = b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4246 p->pixel = color.pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4247 p->next = ct_table[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4248 ct_table[i] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4249 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4250 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4251 return FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4252
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4253 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4254 COLORREF color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4255 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4256 color = PALETTERGB (r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4257 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4258 color = RGB_TO_ULONG (r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4259 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4260 ++ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4261 p = (struct ct_color *) xmalloc (sizeof *p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4262 p->r = r;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4263 p->g = g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4264 p->b = b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4265 p->pixel = color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4266 p->next = ct_table[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4267 ct_table[i] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4268 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4269
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4270 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4271
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4272 return p->pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4273 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4274
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4275
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4276 /* Look up pixel color PIXEL which is used on frame F in the color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4277 table. If not already present, allocate it. Value is PIXEL. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4278
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4279 static unsigned long
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4280 lookup_pixel_color (struct frame *f, unsigned long pixel)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4281 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4282 int i = pixel % CT_SIZE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4283 struct ct_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4284
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4285 for (p = ct_table[i]; p; p = p->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4286 if (p->pixel == pixel)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4287 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4288
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4289 if (p == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4290 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4291 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4292 Colormap cmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4293 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4294
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4295 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4296 cmap = FRAME_X_COLORMAP (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4297 color.pixel = pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4298 x_query_color (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4299 rc = x_alloc_nearest_color (f, cmap, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4300 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4301 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4302 cmap = DefaultColormapOfScreen (FRAME_X_SCREEN (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4303 color.pixel = pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4304 XQueryColor (NULL, cmap, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4305 rc = x_alloc_nearest_color (f, cmap, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4306 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4307 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4308
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4309 if (rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4310 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4311 ++ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4312
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4313 p = (struct ct_color *) xmalloc (sizeof *p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4314 p->r = color.red;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4315 p->g = color.green;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4316 p->b = color.blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4317 p->pixel = pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4318 p->next = ct_table[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4319 ct_table[i] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4320 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4321 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4322 return FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4323 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4324 return p->pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4325 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4326
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4327
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4328 /* Value is a vector of all pixel colors contained in the color table,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4329 allocated via xmalloc. Set *N to the number of colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4330
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4331 static unsigned long *
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4332 colors_in_color_table (int *n)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4333 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4334 int i, j;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4335 struct ct_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4336 unsigned long *colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4337
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4338 if (ct_colors_allocated == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4339 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4340 *n = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4341 colors = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4342 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4343 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4344 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4345 colors = (unsigned long *) xmalloc (ct_colors_allocated
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4346 * sizeof *colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4347 *n = ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4348
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4349 for (i = j = 0; i < CT_SIZE; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4350 for (p = ct_table[i]; p; p = p->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4351 colors[j++] = p->pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4352 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4353
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4354 return colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4355 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4356
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4357 #else /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4358
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4359 static unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4360 lookup_rgb_color (f, r, g, b)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4361 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4362 int r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4363 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4364 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4365
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4366 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4367 pixel = PALETTERGB (r >> 8, g >> 8, b >> 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4368 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4369
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4370 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4371 pixel = RGB_TO_ULONG (r >> 8, g >> 8, b >> 8);
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4372 #endif /* HAVE_NS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4373 return pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4374 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4375
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4376 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4377 init_color_table ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4378 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4379 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4380 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4381
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4382
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4383 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4384 Algorithms
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4385 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4386
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
4387 static XColor *x_to_xcolors (struct frame *, struct image *, int);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
4388 static void x_from_xcolors (struct frame *, struct image *, XColor *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
4389 static void x_detect_edges (struct frame *, struct image *, int[9], int);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4390
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4391 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4392 static void XPutPixel (XImagePtr , int, int, COLORREF);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4393 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4394
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4395 /* Non-zero means draw a cross on images having `:conversion
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4396 disabled'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4397
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4398 int cross_disabled_images;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4399
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4400 /* Edge detection matrices for different edge-detection
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4401 strategies. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4402
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4403 static int emboss_matrix[9] = {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4404 /* x - 1 x x + 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4405 2, -1, 0, /* y - 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4406 -1, 0, 1, /* y */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4407 0, 1, -2 /* y + 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4408 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4409
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4410 static int laplace_matrix[9] = {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4411 /* x - 1 x x + 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4412 1, 0, 0, /* y - 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4413 0, 0, 0, /* y */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4414 0, 0, -1 /* y + 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4415 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4416
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4417 /* Value is the intensity of the color whose red/green/blue values
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4418 are R, G, and B. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4419
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4420 #define COLOR_INTENSITY(R, G, B) ((2 * (R) + 3 * (G) + (B)) / 6)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4421
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4422
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4423 /* On frame F, return an array of XColor structures describing image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4424 IMG->pixmap. Each XColor structure has its pixel color set. RGB_P
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4425 non-zero means also fill the red/green/blue members of the XColor
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4426 structures. Value is a pointer to the array of XColors structures,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4427 allocated with xmalloc; it must be freed by the caller. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4428
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4429 static XColor *
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4430 x_to_xcolors (struct frame *f, struct image *img, int rgb_p)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4431 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4432 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4433 XColor *colors, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4434 XImagePtr_or_DC ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4435 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4436 HDC hdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4437 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4438 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4439
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4440 colors = (XColor *) xmalloc (img->width * img->height * sizeof *colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4441
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4442 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4443 /* Get the X image IMG->pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4444 ximg = XGetImage (FRAME_X_DISPLAY (f), img->pixmap,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4445 0, 0, img->width, img->height, ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4446 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4447 /* Load the image into a memory device context. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4448 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4449 ximg = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4450 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4451 prev = SelectObject (ximg, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4452 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4453
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4454 /* Fill the `pixel' members of the XColor array. I wished there
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4455 were an easy and portable way to circumvent XGetPixel. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4456 p = colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4457 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4458 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4459 XColor *row = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4460
100845
58017ff34d94 * w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 100826
diff changeset
4461 #if defined (HAVE_X_WINDOWS) || defined (HAVE_NTGUI)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4462 for (x = 0; x < img->width; ++x, ++p)
100845
58017ff34d94 * w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 100826
diff changeset
4463 p->pixel = GET_PIXEL (ximg, x, y);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4464 if (rgb_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4465 x_query_colors (f, row, img->width);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4466
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4467 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4468
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4469 for (x = 0; x < img->width; ++x, ++p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4470 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4471 /* W32_TODO: palette support needed here? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4472 p->pixel = GET_PIXEL (ximg, x, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4473 if (rgb_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4474 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4475 p->red = RED16_FROM_ULONG (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4476 p->green = GREEN16_FROM_ULONG (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4477 p->blue = BLUE16_FROM_ULONG (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4478 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4479 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4480 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4481 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4482
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4483 Destroy_Image (ximg, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4484
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4485 return colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4486 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4487
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4488 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4489
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4490 /* Put a pixel of COLOR at position X, Y in XIMG. XIMG must have been
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4491 created with CreateDIBSection, with the pointer to the bit values
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4492 stored in ximg->data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4493
78692
6e1f6f80e430 (syms_of_image) <image-library-alist, cross-disabled-images>: Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents: 78450
diff changeset
4494 static void
6e1f6f80e430 (syms_of_image) <image-library-alist, cross-disabled-images>: Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents: 78450
diff changeset
4495 XPutPixel (ximg, x, y, color)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4496 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4497 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4498 COLORREF color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4499 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4500 int width = ximg->info.bmiHeader.biWidth;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4501 int height = ximg->info.bmiHeader.biHeight;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4502 unsigned char * pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4503
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4504 /* True color images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4505 if (ximg->info.bmiHeader.biBitCount == 24)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4506 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4507 int rowbytes = width * 3;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4508 /* Ensure scanlines are aligned on 4 byte boundaries. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4509 if (rowbytes % 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4510 rowbytes += 4 - (rowbytes % 4);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4511
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4512 pixel = ximg->data + y * rowbytes + x * 3;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4513 /* Windows bitmaps are in BGR order. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4514 *pixel = GetBValue (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4515 *(pixel + 1) = GetGValue (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4516 *(pixel + 2) = GetRValue (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4517 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4518 /* Monochrome images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4519 else if (ximg->info.bmiHeader.biBitCount == 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4520 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4521 int rowbytes = width / 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4522 /* Ensure scanlines are aligned on 4 byte boundaries. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4523 if (rowbytes % 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4524 rowbytes += 4 - (rowbytes % 4);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4525 pixel = ximg->data + y * rowbytes + x / 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4526 /* Filter out palette info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4527 if (color & 0x00ffffff)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4528 *pixel = *pixel | (1 << x % 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4529 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4530 *pixel = *pixel & ~(1 << x % 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4531 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4532 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4533 image_error ("XPutPixel: palette image not supported", Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4534 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4535
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4536 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4537
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4538 /* Create IMG->pixmap from an array COLORS of XColor structures, whose
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4539 RGB members are set. F is the frame on which this all happens.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4540 COLORS will be freed; an existing IMG->pixmap will be freed, too. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4541
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4542 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4543 x_from_xcolors (struct frame *f, struct image *img, XColor *colors)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4544 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4545 int x, y;
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4546 XImagePtr oimg = NULL;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4547 Pixmap pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4548 XColor *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4549
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4550 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4551
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4552 x_create_x_image_and_pixmap (f, img->width, img->height, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4553 &oimg, &pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4554 p = colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4555 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4556 for (x = 0; x < img->width; ++x, ++p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4557 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4558 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4559 pixel = lookup_rgb_color (f, p->red, p->green, p->blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4560 XPutPixel (oimg, x, y, pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4561 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4562
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4563 xfree (colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4564 x_clear_image_1 (f, img, 1, 0, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4565
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4566 x_put_x_image (f, oimg, pixmap, img->width, img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4567 x_destroy_x_image (oimg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4568 img->pixmap = pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4569 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4570 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4571 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4572 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4573 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4574
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4575
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4576 /* On frame F, perform edge-detection on image IMG.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4577
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4578 MATRIX is a nine-element array specifying the transformation
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4579 matrix. See emboss_matrix for an example.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4580
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4581 COLOR_ADJUST is a color adjustment added to each pixel of the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4582 outgoing image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4583
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4584 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4585 x_detect_edges (struct frame *f, struct image *img, int *matrix, int color_adjust)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4586 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4587 XColor *colors = x_to_xcolors (f, img, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4588 XColor *new, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4589 int x, y, i, sum;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4590
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4591 for (i = sum = 0; i < 9; ++i)
85254
8004c957b946 Replace `abs' with `eabs'.
Eli Zaretskii <eliz@gnu.org>
parents: 85118
diff changeset
4592 sum += eabs (matrix[i]);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4593
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4594 #define COLOR(A, X, Y) ((A) + (Y) * img->width + (X))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4595
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4596 new = (XColor *) xmalloc (img->width * img->height * sizeof *new);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4597
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4598 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4599 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4600 p = COLOR (new, 0, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4601 p->red = p->green = p->blue = 0xffff/2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4602 p = COLOR (new, img->width - 1, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4603 p->red = p->green = p->blue = 0xffff/2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4604 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4605
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4606 for (x = 1; x < img->width - 1; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4607 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4608 p = COLOR (new, x, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4609 p->red = p->green = p->blue = 0xffff/2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4610 p = COLOR (new, x, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4611 p->red = p->green = p->blue = 0xffff/2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4612 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4613
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4614 for (y = 1; y < img->height - 1; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4615 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4616 p = COLOR (new, 1, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4617
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4618 for (x = 1; x < img->width - 1; ++x, ++p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4619 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4620 int r, g, b, y1, x1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4621
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4622 r = g = b = i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4623 for (y1 = y - 1; y1 < y + 2; ++y1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4624 for (x1 = x - 1; x1 < x + 2; ++x1, ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4625 if (matrix[i])
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4626 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4627 XColor *t = COLOR (colors, x1, y1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4628 r += matrix[i] * t->red;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4629 g += matrix[i] * t->green;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4630 b += matrix[i] * t->blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4631 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4632
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4633 r = (r / sum + color_adjust) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4634 g = (g / sum + color_adjust) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4635 b = (b / sum + color_adjust) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4636 p->red = p->green = p->blue = COLOR_INTENSITY (r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4637 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4638 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4639
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4640 xfree (colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4641 x_from_xcolors (f, img, new);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4642
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4643 #undef COLOR
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4644 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4645
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4646
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4647 /* Perform the pre-defined `emboss' edge-detection on image IMG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4648 on frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4649
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4650 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4651 x_emboss (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4652 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4653 x_detect_edges (f, img, emboss_matrix, 0xffff / 2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4654 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4655
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4656
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4657 /* Transform image IMG which is used on frame F with a Laplace
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4658 edge-detection algorithm. The result is an image that can be used
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4659 to draw disabled buttons, for example. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4660
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4661 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4662 x_laplace (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4663 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4664 x_detect_edges (f, img, laplace_matrix, 45000);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4665 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4666
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4667
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4668 /* Perform edge-detection on image IMG on frame F, with specified
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4669 transformation matrix MATRIX and color-adjustment COLOR_ADJUST.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4670
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4671 MATRIX must be either
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4672
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4673 - a list of at least 9 numbers in row-major form
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4674 - a vector of at least 9 numbers
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4675
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4676 COLOR_ADJUST nil means use a default; otherwise it must be a
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4677 number. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4678
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4679 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4680 x_edge_detection (struct frame *f, struct image *img, Lisp_Object matrix,
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4681 Lisp_Object color_adjust)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4682 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4683 int i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4684 int trans[9];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4685
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4686 if (CONSP (matrix))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4687 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4688 for (i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4689 i < 9 && CONSP (matrix) && NUMBERP (XCAR (matrix));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4690 ++i, matrix = XCDR (matrix))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4691 trans[i] = XFLOATINT (XCAR (matrix));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4692 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4693 else if (VECTORP (matrix) && ASIZE (matrix) >= 9)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4694 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4695 for (i = 0; i < 9 && NUMBERP (AREF (matrix, i)); ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4696 trans[i] = XFLOATINT (AREF (matrix, i));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4697 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4698
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4699 if (NILP (color_adjust))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4700 color_adjust = make_number (0xffff / 2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4701
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4702 if (i == 9 && NUMBERP (color_adjust))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4703 x_detect_edges (f, img, trans, (int) XFLOATINT (color_adjust));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4704 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4705
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4706
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4707 /* Transform image IMG on frame F so that it looks disabled. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4708
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4709 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4710 x_disable_image (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4711 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4712 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4713 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4714 int n_planes = dpyinfo->n_planes * dpyinfo->n_cbits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4715 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4716 int n_planes = dpyinfo->n_planes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4717 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4718
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4719 if (n_planes >= 2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4720 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4721 /* Color (or grayscale). Convert to gray, and equalize. Just
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4722 drawing such images with a stipple can look very odd, so
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4723 we're using this method instead. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4724 XColor *colors = x_to_xcolors (f, img, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4725 XColor *p, *end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4726 const int h = 15000;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4727 const int l = 30000;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4728
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4729 for (p = colors, end = colors + img->width * img->height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4730 p < end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4731 ++p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4732 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4733 int i = COLOR_INTENSITY (p->red, p->green, p->blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4734 int i2 = (0xffff - h - l) * i / 0xffff + l;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4735 p->red = p->green = p->blue = i2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4736 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4737
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4738 x_from_xcolors (f, img, colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4739 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4740
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4741 /* Draw a cross over the disabled image, if we must or if we
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4742 should. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4743 if (n_planes < 2 || cross_disabled_images)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4744 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4745 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4746 Display *dpy = FRAME_X_DISPLAY (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4747 GC gc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4748
104573
7690800317e8 joakim at verona.se
Glenn Morris <rgm@gnu.org>
parents: 104259
diff changeset
4749 #ifndef HAVE_NS /* TODO: NS support, however this not needed for toolbars */
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4750
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4751 #define MaskForeground(f) WHITE_PIX_DEFAULT (f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4752
75153
fd0c738b5d49 (XDrawLine) [MAC_OS]: Remove macro.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73570
diff changeset
4753 gc = XCreateGC (dpy, img->pixmap, 0, NULL);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4754 XSetForeground (dpy, gc, BLACK_PIX_DEFAULT (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4755 XDrawLine (dpy, img->pixmap, gc, 0, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4756 img->width - 1, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4757 XDrawLine (dpy, img->pixmap, gc, 0, img->height - 1,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4758 img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4759 XFreeGC (dpy, gc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4760
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4761 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4762 {
75153
fd0c738b5d49 (XDrawLine) [MAC_OS]: Remove macro.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73570
diff changeset
4763 gc = XCreateGC (dpy, img->mask, 0, NULL);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4764 XSetForeground (dpy, gc, MaskForeground (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4765 XDrawLine (dpy, img->mask, gc, 0, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4766 img->width - 1, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4767 XDrawLine (dpy, img->mask, gc, 0, img->height - 1,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4768 img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4769 XFreeGC (dpy, gc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4770 }
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4771 #endif /* !HAVE_NS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4772 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4773 HDC hdc, bmpdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4774 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4775
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4776 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4777 bmpdc = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4778 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4779
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4780 prev = SelectObject (bmpdc, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4781
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4782 SetTextColor (bmpdc, BLACK_PIX_DEFAULT (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4783 MoveToEx (bmpdc, 0, 0, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4784 LineTo (bmpdc, img->width - 1, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4785 MoveToEx (bmpdc, 0, img->height - 1, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4786 LineTo (bmpdc, img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4787
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4788 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4789 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4790 SelectObject (bmpdc, img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4791 SetTextColor (bmpdc, WHITE_PIX_DEFAULT (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4792 MoveToEx (bmpdc, 0, 0, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4793 LineTo (bmpdc, img->width - 1, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4794 MoveToEx (bmpdc, 0, img->height - 1, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4795 LineTo (bmpdc, img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4796 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4797 SelectObject (bmpdc, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4798 DeleteDC (bmpdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4799 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4800 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4801 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4802
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4803
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4804 /* Build a mask for image IMG which is used on frame F. FILE is the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4805 name of an image file, for error messages. HOW determines how to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4806 determine the background color of IMG. If it is a list '(R G B)',
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4807 with R, G, and B being integers >= 0, take that as the color of the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4808 background. Otherwise, determine the background color of IMG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4809 heuristically. Value is non-zero if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4810
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4811 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4812 x_build_heuristic_mask (struct frame *f, struct image *img, Lisp_Object how)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4813 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4814 XImagePtr_or_DC ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4815 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4816 XImagePtr mask_img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4817 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4818 HDC frame_dc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4819 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4820 char *mask_img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4821 int row_width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4822 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4823 int x, y, rc, use_img_background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4824 unsigned long bg = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4825
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4826 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4827 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4828 Free_Pixmap (FRAME_X_DISPLAY (f), img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4829 img->mask = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4830 img->background_transparent_valid = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4831 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4832
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4833 #ifndef HAVE_NTGUI
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4834 #ifndef HAVE_NS
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4835 /* Create an image and pixmap serving as mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4836 rc = x_create_x_image_and_pixmap (f, img->width, img->height, 1,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4837 &mask_img, &img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4838 if (!rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4839 return 0;
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4840 #endif /* !HAVE_NS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4841
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4842 /* Get the X image of IMG->pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4843 ximg = XGetImage (FRAME_X_DISPLAY (f), img->pixmap, 0, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4844 img->width, img->height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4845 ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4846 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4847 /* Create the bit array serving as mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4848 row_width = (img->width + 7) / 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4849 mask_img = xmalloc (row_width * img->height);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
4850 memset (mask_img, 0, row_width * img->height);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4851
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4852 /* Create a memory device context for IMG->pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4853 frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4854 ximg = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4855 release_frame_dc (f, frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4856 prev = SelectObject (ximg, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4857 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4858
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4859 /* Determine the background color of ximg. If HOW is `(R G B)'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4860 take that as color. Otherwise, use the image's background color. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4861 use_img_background = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4862
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4863 if (CONSP (how))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4864 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4865 int rgb[3], i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4866
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4867 for (i = 0; i < 3 && CONSP (how) && NATNUMP (XCAR (how)); ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4868 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4869 rgb[i] = XFASTINT (XCAR (how)) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4870 how = XCDR (how);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4871 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4872
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4873 if (i == 3 && NILP (how))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4874 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4875 char color_name[30];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4876 sprintf (color_name, "#%04x%04x%04x", rgb[0], rgb[1], rgb[2]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4877 bg = (
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4878 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4879 0x00ffffff & /* Filter out palette info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4880 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4881 x_alloc_image_color (f, img, build_string (color_name), 0));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4882 use_img_background = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4883 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4884 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4885
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4886 if (use_img_background)
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
4887 bg = four_corners_best (ximg, img->corners, img->width, img->height);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4888
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4889 /* Set all bits in mask_img to 1 whose color in ximg is different
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4890 from the background color bg. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4891 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4892 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4893 for (x = 0; x < img->width; ++x)
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4894 #ifndef HAVE_NS
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4895 XPutPixel (mask_img, x, y, (XGetPixel (ximg, x, y) != bg
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4896 ? PIX_MASK_DRAW : PIX_MASK_RETAIN));
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4897 #else
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4898 if (XGetPixel (ximg, x, y) == bg)
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
4899 ns_set_alpha (ximg, x, y, 0);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4900 #endif /* HAVE_NS */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4901 #ifndef HAVE_NS
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4902 /* Fill in the background_transparent field while we have the mask handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4903 image_background_transparent (img, f, mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4904
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4905 /* Put mask_img into img->mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4906 x_put_x_image (f, mask_img, img->mask, img->width, img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4907 x_destroy_x_image (mask_img);
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
4908 #endif /* !HAVE_NS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4909 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4910 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4911 for (x = 0; x < img->width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4912 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4913 COLORREF p = GetPixel (ximg, x, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4914 if (p != bg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4915 mask_img[y * row_width + x / 8] |= 1 << (x % 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4916 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4917
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4918 /* Create the mask image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4919 img->mask = w32_create_pixmap_from_bitmap_data (img->width, img->height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4920 mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4921 /* Fill in the background_transparent field while we have the mask handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4922 SelectObject (ximg, img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4923 image_background_transparent (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4924
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4925 /* Was: x_destroy_x_image ((XImagePtr )mask_img); which seems bogus ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4926 xfree (mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4927 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4928
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4929 Destroy_Image (ximg, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4930
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4931 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4932 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4933
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4934
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4935 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4936 PBM (mono, gray, color)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4937 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4938
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
4939 static int pbm_image_p (Lisp_Object object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
4940 static int pbm_load (struct frame *f, struct image *img);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
4941 static int pbm_scan_number (unsigned char **, unsigned char *);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4942
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4943 /* The symbol `pbm' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4944
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4945 Lisp_Object Qpbm;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4946
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4947 /* Indices of image specification fields in gs_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4948
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4949 enum pbm_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4950 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4951 PBM_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4952 PBM_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4953 PBM_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4954 PBM_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4955 PBM_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4956 PBM_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4957 PBM_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4958 PBM_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4959 PBM_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4960 PBM_FOREGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4961 PBM_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4962 PBM_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4963 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4964
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4965 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4966 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4967
105959
ba3ffbd9c422 * process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105877
diff changeset
4968 static const struct image_keyword pbm_format[PBM_LAST] =
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4969 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4970 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4971 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4972 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4973 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4974 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4975 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4976 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4977 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4978 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4979 {":foreground", IMAGE_STRING_OR_NIL_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4980 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4981 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4982
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4983 /* Structure describing the image type `pbm'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4984
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4985 static struct image_type pbm_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4986 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4987 &Qpbm,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4988 pbm_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4989 pbm_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4990 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4991 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4992 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4993
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4994
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4995 /* Return non-zero if OBJECT is a valid PBM image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4996
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4997 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
4998 pbm_image_p (Lisp_Object object)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4999 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5000 struct image_keyword fmt[PBM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5001
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
5002 memcpy (fmt, pbm_format, sizeof fmt);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5003
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5004 if (!parse_image_spec (object, fmt, PBM_LAST, Qpbm))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5005 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5006
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5007 /* Must specify either :data or :file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5008 return fmt[PBM_DATA].count + fmt[PBM_FILE].count == 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5009 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5010
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5011
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5012 /* Scan a decimal number from *S and return it. Advance *S while
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5013 reading the number. END is the end of the string. Value is -1 at
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5014 end of input. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5015
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5016 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
5017 pbm_scan_number (unsigned char **s, unsigned char *end)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5018 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5019 int c = 0, val = -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5020
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5021 while (*s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5022 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5023 /* Skip white-space. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5024 while (*s < end && (c = *(*s)++, isspace (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5025 ;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5026
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5027 if (c == '#')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5028 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5029 /* Skip comment to end of line. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5030 while (*s < end && (c = *(*s)++, c != '\n'))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5031 ;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5032 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5033 else if (isdigit (c))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5034 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5035 /* Read decimal number. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5036 val = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5037 while (*s < end && (c = *(*s)++, isdigit (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5038 val = 10 * val + c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5039 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5040 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5041 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5042 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5043 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5044
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5045 return val;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5046 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5047
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5048
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5049 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5050 #if 0 /* Unused. ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5051
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5052 /* Read FILE into memory. Value is a pointer to a buffer allocated
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5053 with xmalloc holding FILE's contents. Value is null if an error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5054 occurred. *SIZE is set to the size of the file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5055
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5056 static char *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5057 pbm_read_file (file, size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5058 Lisp_Object file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5059 int *size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5060 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5061 FILE *fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5062 char *buf = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5063 struct stat st;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5064
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5065 if (stat (SDATA (file), &st) == 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5066 && (fp = fopen (SDATA (file), "rb")) != NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5067 && (buf = (char *) xmalloc (st.st_size),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5068 fread (buf, 1, st.st_size, fp) == st.st_size))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5069 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5070 *size = st.st_size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5071 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5072 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5073 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5074 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5075 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5076 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5077 if (buf)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5078 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5079 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5080 buf = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5081 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5082 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5083
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5084 return buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5085 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5086 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5087 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5088
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5089 /* Load PBM image IMG for use on frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5090
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5091 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
5092 pbm_load (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5093 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5094 int raw_p, x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5095 int width, height, max_color_idx = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5096 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5097 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5098 enum {PBM_MONO, PBM_GRAY, PBM_COLOR} type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5099 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5100 unsigned char *contents = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5101 unsigned char *end, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5102 int size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5103
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5104 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5105 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5106 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5107
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5108 if (STRINGP (specified_file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5109 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5110 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5111 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5112 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5113 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5114 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5115 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5116 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5117
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5118 contents = slurp_file (SDATA (file), &size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5119 if (contents == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5120 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5121 image_error ("Error reading `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5122 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5123 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5124 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5125
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5126 p = contents;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5127 end = contents + size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5128 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5129 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5130 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5131 Lisp_Object data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5132 data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5133 p = SDATA (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5134 end = p + SBYTES (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5135 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5136
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5137 /* Check magic number. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5138 if (end - p < 2 || *p++ != 'P')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5139 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5140 image_error ("Not a PBM image: `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5141 error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5142 xfree (contents);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5143 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5144 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5145 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5146
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5147 switch (*p++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5148 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5149 case '1':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5150 raw_p = 0, type = PBM_MONO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5151 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5152
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5153 case '2':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5154 raw_p = 0, type = PBM_GRAY;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5155 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5156
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5157 case '3':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5158 raw_p = 0, type = PBM_COLOR;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5159 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5160
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5161 case '4':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5162 raw_p = 1, type = PBM_MONO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5163 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5164
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5165 case '5':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5166 raw_p = 1, type = PBM_GRAY;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5167 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5168
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5169 case '6':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5170 raw_p = 1, type = PBM_COLOR;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5171 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5172
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5173 default:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5174 image_error ("Not a PBM image: `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5175 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5176 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5177
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5178 /* Read width, height, maximum color-component. Characters
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5179 starting with `#' up to the end of a line are ignored. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5180 width = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5181 height = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5182
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5183 if (type != PBM_MONO)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5184 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5185 max_color_idx = pbm_scan_number (&p, end);
80382
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5186 if (max_color_idx > 65535 || max_color_idx < 0)
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5187 {
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5188 image_error ("Unsupported maximum PBM color value", Qnil, Qnil);
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5189 goto error;
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5190 }
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5191 }
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5192
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5193 if (!check_image_size (f, width, height))
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5194 {
102392
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
5195 image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
80382
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5196 goto error;
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5197 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5198
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5199 if (!x_create_x_image_and_pixmap (f, width, height, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5200 &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5201 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5202
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5203 /* Initialize the color hash table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5204 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5205
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5206 if (type == PBM_MONO)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5207 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5208 int c = 0, g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5209 struct image_keyword fmt[PBM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5210 unsigned long fg = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5211 unsigned long bg = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5212
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5213 /* Parse the image specification. */
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
5214 memcpy (fmt, pbm_format, sizeof fmt);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5215 parse_image_spec (img->spec, fmt, PBM_LAST, Qpbm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5216
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5217 /* Get foreground and background colors, maybe allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5218 if (fmt[PBM_FOREGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5219 && STRINGP (fmt[PBM_FOREGROUND].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5220 fg = x_alloc_image_color (f, img, fmt[PBM_FOREGROUND].value, fg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5221 if (fmt[PBM_BACKGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5222 && STRINGP (fmt[PBM_BACKGROUND].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5223 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5224 bg = x_alloc_image_color (f, img, fmt[PBM_BACKGROUND].value, bg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5225 img->background = bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5226 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5227 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5228
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5229 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5230 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5231 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5232 if (raw_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5233 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5234 if ((x & 7) == 0)
78450
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
5235 {
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
5236 if (p >= end)
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
5237 {
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
5238 x_destroy_x_image (ximg);
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
5239 x_clear_image (f, img);
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
5240 image_error ("Invalid image size in image `%s'",
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
5241 img->spec, Qnil);
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
5242 goto error;
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
5243 }
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
5244 c = *p++;
69b18f59a998 Sync to trunk version.
Chong Yidong <cyd@stupidchicken.com>
parents: 78260
diff changeset
5245 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5246 g = c & 0x80;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5247 c <<= 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5248 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5249 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5250 g = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5251
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5252 XPutPixel (ximg, x, y, g ? fg : bg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5253 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5254 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5255 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5256 {
80382
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5257 int expected_size = height * width;
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5258 if (max_color_idx > 255)
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5259 expected_size *= 2;
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5260 if (type == PBM_COLOR)
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5261 expected_size *= 3;
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5262
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5263 if (raw_p && p + expected_size > end)
76550
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5264 {
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5265 x_destroy_x_image (ximg);
77692
f6cc3f58ce04 (pbm_load): Correctly check image size for greyscale pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 76550
diff changeset
5266 x_clear_image (f, img);
76550
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5267 image_error ("Invalid image size in image `%s'",
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5268 img->spec, Qnil);
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5269 goto error;
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5270 }
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5271
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5272 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5273 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5274 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5275 int r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5276
80382
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5277 if (type == PBM_GRAY && raw_p)
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5278 {
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5279 r = g = b = *p++;
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5280 if (max_color_idx > 255)
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5281 r = g = b = r * 256 + *p++;
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5282 }
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5283 else if (type == PBM_GRAY)
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5284 r = g = b = pbm_scan_number (&p, end);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5285 else if (raw_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5286 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5287 r = *p++;
80382
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5288 if (max_color_idx > 255)
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5289 r = r * 256 + *p++;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5290 g = *p++;
80382
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5291 if (max_color_idx > 255)
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5292 g = g * 256 + *p++;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5293 b = *p++;
80382
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5294 if (max_color_idx > 255)
296f5c781a2b (pbm_load): Allow color values up to 65535.
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
5295 b = b * 256 + *p++;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5296 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5297 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5298 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5299 r = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5300 g = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5301 b = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5302 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5303
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5304 if (r < 0 || g < 0 || b < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5305 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5306 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5307 image_error ("Invalid pixel value in image `%s'",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5308 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5309 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5310 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5311
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5312 /* RGB values are now in the range 0..max_color_idx.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5313 Scale this to the range 0..0xffff supported by X. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5314 r = (double) r * 65535 / max_color_idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5315 g = (double) g * 65535 / max_color_idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5316 b = (double) b * 65535 / max_color_idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5317 XPutPixel (ximg, x, y, lookup_rgb_color (f, r, g, b));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5318 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5319 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5320
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5321 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5322 /* Store in IMG->colors the colors allocated for the image, and
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5323 free the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5324 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5325 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5326 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5327
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5328 img->width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5329 img->height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5330
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5331 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5332
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5333 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5334 /* Casting avoids a GCC warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5335 IMAGE_BACKGROUND (img, f, (XImagePtr_or_DC)ximg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5336
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5337 /* Put the image into a pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5338 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5339 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5340
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5341 /* X and W32 versions did it here, MAC version above. ++kfs
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
5342 img->width = width;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5343 img->height = height; */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5344
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5345 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5346 xfree (contents);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5347 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5348 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5349
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5350
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5351 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5352 PNG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5353 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5354
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
5355 #if defined (HAVE_PNG) || defined (HAVE_NS)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5356
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5357 /* Function prototypes. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5358
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
5359 static int png_image_p (Lisp_Object object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
5360 static int png_load (struct frame *f, struct image *img);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5361
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5362 /* The symbol `png' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5363
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5364 Lisp_Object Qpng;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5365
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5366 /* Indices of image specification fields in png_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5367
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5368 enum png_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5369 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5370 PNG_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5371 PNG_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5372 PNG_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5373 PNG_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5374 PNG_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5375 PNG_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5376 PNG_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5377 PNG_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5378 PNG_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5379 PNG_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5380 PNG_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5381 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5382
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5383 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5384 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5385
105959
ba3ffbd9c422 * process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105877
diff changeset
5386 static const struct image_keyword png_format[PNG_LAST] =
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5387 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5388 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5389 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5390 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5391 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5392 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5393 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5394 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5395 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5396 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5397 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5398 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5399
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5400 /* Structure describing the image type `png'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5401
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5402 static struct image_type png_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5403 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5404 &Qpng,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5405 png_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5406 png_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5407 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5408 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5409 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5410
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5411 /* Return non-zero if OBJECT is a valid PNG image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5412
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5413 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
5414 png_image_p (Lisp_Object object)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5415 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5416 struct image_keyword fmt[PNG_LAST];
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
5417 memcpy (fmt, png_format, sizeof fmt);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5418
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5419 if (!parse_image_spec (object, fmt, PNG_LAST, Qpng))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5420 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5421
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5422 /* Must specify either the :data or :file keyword. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5423 return fmt[PNG_FILE].count + fmt[PNG_DATA].count == 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5424 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5425
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
5426 #endif /* HAVE_PNG || HAVE_NS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5427
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5428
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5429 #ifdef HAVE_PNG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5430
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5431 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5432 /* PNG library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5433
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5434 DEF_IMGLIB_FN (png_get_io_ptr);
106975
62f86ca36527 Use png_sig_cmp to allow linking with libpng 1.4.0.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
5435 DEF_IMGLIB_FN (png_sig_cmp);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5436 DEF_IMGLIB_FN (png_create_read_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5437 DEF_IMGLIB_FN (png_create_info_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5438 DEF_IMGLIB_FN (png_destroy_read_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5439 DEF_IMGLIB_FN (png_set_read_fn);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5440 DEF_IMGLIB_FN (png_set_sig_bytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5441 DEF_IMGLIB_FN (png_read_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5442 DEF_IMGLIB_FN (png_get_IHDR);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5443 DEF_IMGLIB_FN (png_get_valid);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5444 DEF_IMGLIB_FN (png_set_strip_16);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5445 DEF_IMGLIB_FN (png_set_expand);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5446 DEF_IMGLIB_FN (png_set_gray_to_rgb);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5447 DEF_IMGLIB_FN (png_set_background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5448 DEF_IMGLIB_FN (png_get_bKGD);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5449 DEF_IMGLIB_FN (png_read_update_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5450 DEF_IMGLIB_FN (png_get_channels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5451 DEF_IMGLIB_FN (png_get_rowbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5452 DEF_IMGLIB_FN (png_read_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5453 DEF_IMGLIB_FN (png_read_end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5454 DEF_IMGLIB_FN (png_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5455
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5456 static int
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
5457 init_png_functions (Lisp_Object libraries)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5458 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5459 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5460
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5461 /* Try loading libpng under probable names. */
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
5462 if (!(library = w32_delayed_load (libraries, Qpng)))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5463 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5464
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5465 LOAD_IMGLIB_FN (library, png_get_io_ptr);
106975
62f86ca36527 Use png_sig_cmp to allow linking with libpng 1.4.0.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
5466 LOAD_IMGLIB_FN (library, png_sig_cmp);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5467 LOAD_IMGLIB_FN (library, png_create_read_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5468 LOAD_IMGLIB_FN (library, png_create_info_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5469 LOAD_IMGLIB_FN (library, png_destroy_read_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5470 LOAD_IMGLIB_FN (library, png_set_read_fn);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5471 LOAD_IMGLIB_FN (library, png_set_sig_bytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5472 LOAD_IMGLIB_FN (library, png_read_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5473 LOAD_IMGLIB_FN (library, png_get_IHDR);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5474 LOAD_IMGLIB_FN (library, png_get_valid);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5475 LOAD_IMGLIB_FN (library, png_set_strip_16);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5476 LOAD_IMGLIB_FN (library, png_set_expand);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5477 LOAD_IMGLIB_FN (library, png_set_gray_to_rgb);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5478 LOAD_IMGLIB_FN (library, png_set_background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5479 LOAD_IMGLIB_FN (library, png_get_bKGD);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5480 LOAD_IMGLIB_FN (library, png_read_update_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5481 LOAD_IMGLIB_FN (library, png_get_channels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5482 LOAD_IMGLIB_FN (library, png_get_rowbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5483 LOAD_IMGLIB_FN (library, png_read_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5484 LOAD_IMGLIB_FN (library, png_read_end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5485 LOAD_IMGLIB_FN (library, png_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5486 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5487 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5488 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5489
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5490 #define fn_png_get_io_ptr png_get_io_ptr
106975
62f86ca36527 Use png_sig_cmp to allow linking with libpng 1.4.0.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
5491 #define fn_png_sig_cmp png_sig_cmp
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5492 #define fn_png_create_read_struct png_create_read_struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5493 #define fn_png_create_info_struct png_create_info_struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5494 #define fn_png_destroy_read_struct png_destroy_read_struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5495 #define fn_png_set_read_fn png_set_read_fn
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5496 #define fn_png_set_sig_bytes png_set_sig_bytes
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5497 #define fn_png_read_info png_read_info
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5498 #define fn_png_get_IHDR png_get_IHDR
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5499 #define fn_png_get_valid png_get_valid
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5500 #define fn_png_set_strip_16 png_set_strip_16
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5501 #define fn_png_set_expand png_set_expand
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5502 #define fn_png_set_gray_to_rgb png_set_gray_to_rgb
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5503 #define fn_png_set_background png_set_background
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5504 #define fn_png_get_bKGD png_get_bKGD
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5505 #define fn_png_read_update_info png_read_update_info
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5506 #define fn_png_get_channels png_get_channels
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5507 #define fn_png_get_rowbytes png_get_rowbytes
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5508 #define fn_png_read_image png_read_image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5509 #define fn_png_read_end png_read_end
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5510 #define fn_png_error png_error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5511
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5512 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5513
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5514 /* Error and warning handlers installed when the PNG library
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5515 is initialized. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5516
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5517 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
5518 my_png_error (png_struct *png_ptr, const char *msg)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5519 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5520 xassert (png_ptr != NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5521 image_error ("PNG error: %s", build_string (msg), Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5522 longjmp (png_ptr->jmpbuf, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5523 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5524
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5525
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5526 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
5527 my_png_warning (png_struct *png_ptr, const char *msg)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5528 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5529 xassert (png_ptr != NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5530 image_error ("PNG warning: %s", build_string (msg), Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5531 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5532
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5533 /* Memory source for PNG decoding. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5534
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5535 struct png_memory_storage
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5536 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5537 unsigned char *bytes; /* The data */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5538 size_t len; /* How big is it? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5539 int index; /* Where are we? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5540 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5541
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5542
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5543 /* Function set as reader function when reading PNG image from memory.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5544 PNG_PTR is a pointer to the PNG control structure. Copy LENGTH
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5545 bytes from the input to DATA. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5546
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5547 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
5548 png_read_from_memory (png_structp png_ptr, png_bytep data, png_size_t length)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5549 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5550 struct png_memory_storage *tbr
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5551 = (struct png_memory_storage *) fn_png_get_io_ptr (png_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5552
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5553 if (length > tbr->len - tbr->index)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5554 fn_png_error (png_ptr, "Read error");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5555
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
5556 memcpy (data, tbr->bytes + tbr->index, length);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5557 tbr->index = tbr->index + length;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5558 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5559
55886
ae9227eb8392 Work around bugs/problems with MinGW builds of graphics libraries
Juanma Barranquero <lekktu@gmail.com>
parents: 55540
diff changeset
5560
63684
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5561 /* Function set as reader function when reading PNG image from a file.
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5562 PNG_PTR is a pointer to the PNG control structure. Copy LENGTH
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5563 bytes from the input to DATA. */
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5564
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5565 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
5566 png_read_from_file (png_structp png_ptr, png_bytep data, png_size_t length)
63684
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5567 {
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5568 FILE *fp = (FILE *) fn_png_get_io_ptr (png_ptr);
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5569
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5570 if (fread (data, 1, length, fp) < length)
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5571 fn_png_error (png_ptr, "Read error");
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5572 }
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5573
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5574
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5575 /* Load PNG image IMG for use on frame F. Value is non-zero if
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5576 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5577
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5578 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
5579 png_load (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5580 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5581 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5582 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5583 int x, y, i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5584 XImagePtr ximg, mask_img = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5585 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5586 png_struct *png_ptr = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5587 png_info *info_ptr = NULL, *end_info = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5588 FILE *volatile fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5589 png_byte sig[8];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5590 png_byte * volatile pixels = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5591 png_byte ** volatile rows = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5592 png_uint_32 width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5593 int bit_depth, color_type, interlace_type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5594 png_byte channels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5595 png_uint_32 row_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5596 int transparent_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5597 struct png_memory_storage tbr; /* Data to be read */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5598
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5599 /* Find out what file to load. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5600 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5601 specified_data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5602 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5603 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5604
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5605 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5606 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5607 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5608 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5609 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5610 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5611 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5612 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5613 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5614
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5615 /* Open the image file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5616 fp = fopen (SDATA (file), "rb");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5617 if (!fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5618 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5619 image_error ("Cannot open image file `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5620 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5621 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5622 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5623
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5624 /* Check PNG signature. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5625 if (fread (sig, 1, sizeof sig, fp) != sizeof sig
106975
62f86ca36527 Use png_sig_cmp to allow linking with libpng 1.4.0.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
5626 || fn_png_sig_cmp (sig, 0, sizeof sig))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5627 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5628 image_error ("Not a PNG file: `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5629 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5630 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5631 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5632 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5633 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5634 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5635 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5636 /* Read from memory. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5637 tbr.bytes = SDATA (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5638 tbr.len = SBYTES (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5639 tbr.index = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5640
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5641 /* Check PNG signature. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5642 if (tbr.len < sizeof sig
106975
62f86ca36527 Use png_sig_cmp to allow linking with libpng 1.4.0.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
5643 || fn_png_sig_cmp (tbr.bytes, 0, sizeof sig))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5644 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5645 image_error ("Not a PNG image: `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5646 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5647 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5648 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5649
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5650 /* Need to skip past the signature. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5651 tbr.bytes += sizeof (sig);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5652 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5653
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5654 /* Initialize read and info structs for PNG lib. Casting return
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5655 value avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5656 png_ptr = (png_structp)fn_png_create_read_struct (PNG_LIBPNG_VER_STRING,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5657 NULL, my_png_error,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5658 my_png_warning);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5659 if (!png_ptr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5660 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5661 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5662 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5663 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5664 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5665
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5666 /* Casting return value avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5667 info_ptr = (png_infop)fn_png_create_info_struct (png_ptr);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5668 if (!info_ptr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5669 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5670 fn_png_destroy_read_struct (&png_ptr, NULL, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5671 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5672 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5673 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5674 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5675
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5676 /* Casting return value avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5677 end_info = (png_infop)fn_png_create_info_struct (png_ptr);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5678 if (!end_info)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5679 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5680 fn_png_destroy_read_struct (&png_ptr, &info_ptr, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5681 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5682 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5683 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5684 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5685
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5686 /* Set error jump-back. We come back here when the PNG library
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5687 detects an error. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5688 if (setjmp (png_ptr->jmpbuf))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5689 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5690 error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5691 if (png_ptr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5692 fn_png_destroy_read_struct (&png_ptr, &info_ptr, &end_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5693 xfree (pixels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5694 xfree (rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5695 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5696 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5697 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5698 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5699
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5700 /* Read image info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5701 if (!NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5702 fn_png_set_read_fn (png_ptr, (void *) &tbr, png_read_from_memory);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5703 else
63684
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
5704 fn_png_set_read_fn (png_ptr, (void *) fp, png_read_from_file);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5705
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5706 fn_png_set_sig_bytes (png_ptr, sizeof sig);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5707 fn_png_read_info (png_ptr, info_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5708 fn_png_get_IHDR (png_ptr, info_ptr, &width, &height, &bit_depth, &color_type,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5709 &interlace_type, NULL, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5710
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
5711 if (!check_image_size (f, width, height))
102392
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
5712 {
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
5713 image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
5714 goto error;
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
5715 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5716 /* If image contains simply transparency data, we prefer to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5717 construct a clipping mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5718 if (fn_png_get_valid (png_ptr, info_ptr, PNG_INFO_tRNS))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5719 transparent_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5720 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5721 transparent_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5722
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5723 /* This function is easier to write if we only have to handle
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5724 one data format: RGB or RGBA with 8 bits per channel. Let's
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5725 transform other formats into that format. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5726
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5727 /* Strip more than 8 bits per channel. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5728 if (bit_depth == 16)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5729 fn_png_set_strip_16 (png_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5730
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5731 /* Expand data to 24 bit RGB, or 8 bit grayscale, with alpha channel
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5732 if available. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5733 fn_png_set_expand (png_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5734
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5735 /* Convert grayscale images to RGB. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5736 if (color_type == PNG_COLOR_TYPE_GRAY
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5737 || color_type == PNG_COLOR_TYPE_GRAY_ALPHA)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5738 fn_png_set_gray_to_rgb (png_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5739
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5740 /* Handle alpha channel by combining the image with a background
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5741 color. Do this only if a real alpha channel is supplied. For
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5742 simple transparency, we prefer a clipping mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5743 if (!transparent_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5744 {
83763
14a686983252 (png_load): Comment-out var only used in commented-out code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83676
diff changeset
5745 /* png_color_16 *image_bg; */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5746 Lisp_Object specified_bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5747 = image_spec_value (img->spec, QCbackground, NULL);
80600
43e764077e68 (png_load): Use correct bit-depth for setting background color.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 80554
diff changeset
5748 int shift = (bit_depth == 16) ? 0 : 8;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5749
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5750 if (STRINGP (specified_bg))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5751 /* The user specified `:background', use that. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5752 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5753 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5754 if (x_defined_color (f, SDATA (specified_bg), &color, 0))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5755 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5756 png_color_16 user_bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5757
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
5758 memset (&user_bg, 0, sizeof user_bg);
80600
43e764077e68 (png_load): Use correct bit-depth for setting background color.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 80554
diff changeset
5759 user_bg.red = color.red >> shift;
43e764077e68 (png_load): Use correct bit-depth for setting background color.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 80554
diff changeset
5760 user_bg.green = color.green >> shift;
43e764077e68 (png_load): Use correct bit-depth for setting background color.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 80554
diff changeset
5761 user_bg.blue = color.blue >> shift;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5762
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5763 fn_png_set_background (png_ptr, &user_bg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5764 PNG_BACKGROUND_GAMMA_SCREEN, 0, 1.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5765 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5766 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5767 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5768 {
80600
43e764077e68 (png_load): Use correct bit-depth for setting background color.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 80554
diff changeset
5769 /* We use the current frame background, ignoring any default
43e764077e68 (png_load): Use correct bit-depth for setting background color.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 80554
diff changeset
5770 background color set by the image. */
100845
58017ff34d94 * w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 100826
diff changeset
5771 #if defined (HAVE_X_WINDOWS) || defined (HAVE_NTGUI)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5772 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5773 png_color_16 frame_background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5774
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5775 color.pixel = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5776 x_query_color (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5777
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
5778 memset (&frame_background, 0, sizeof frame_background);
80600
43e764077e68 (png_load): Use correct bit-depth for setting background color.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 80554
diff changeset
5779 frame_background.red = color.red >> shift;
43e764077e68 (png_load): Use correct bit-depth for setting background color.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 80554
diff changeset
5780 frame_background.green = color.green >> shift;
43e764077e68 (png_load): Use correct bit-depth for setting background color.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 80554
diff changeset
5781 frame_background.blue = color.blue >> shift;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5782 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5783
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5784 fn_png_set_background (png_ptr, &frame_background,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5785 PNG_BACKGROUND_GAMMA_SCREEN, 0, 1.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5786 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5787 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5788
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5789 /* Update info structure. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5790 fn_png_read_update_info (png_ptr, info_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5791
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5792 /* Get number of channels. Valid values are 1 for grayscale images
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5793 and images with a palette, 2 for grayscale images with transparency
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5794 information (alpha channel), 3 for RGB images, and 4 for RGB
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5795 images with alpha channel, i.e. RGBA. If conversions above were
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5796 sufficient we should only have 3 or 4 channels here. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5797 channels = fn_png_get_channels (png_ptr, info_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5798 xassert (channels == 3 || channels == 4);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5799
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5800 /* Number of bytes needed for one row of the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5801 row_bytes = fn_png_get_rowbytes (png_ptr, info_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5802
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5803 /* Allocate memory for the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5804 pixels = (png_byte *) xmalloc (row_bytes * height * sizeof *pixels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5805 rows = (png_byte **) xmalloc (height * sizeof *rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5806 for (i = 0; i < height; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5807 rows[i] = pixels + i * row_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5808
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5809 /* Read the entire image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5810 fn_png_read_image (png_ptr, rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5811 fn_png_read_end (png_ptr, info_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5812 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5813 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5814 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5815 fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5816 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5817
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5818 /* Create the X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5819 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5820 &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5821 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5822
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5823 /* Create an image and pixmap serving as mask if the PNG image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5824 contains an alpha channel. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5825 if (channels == 4
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5826 && !transparent_p
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5827 && !x_create_x_image_and_pixmap (f, width, height, 1,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5828 &mask_img, &img->mask))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5829 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5830 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5831 Free_Pixmap (FRAME_X_DISPLAY (f), img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5832 img->pixmap = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5833 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5834 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5835
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5836 /* Fill the X image and mask from PNG data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5837 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5838
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5839 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5840 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5841 png_byte *p = rows[y];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5842
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5843 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5844 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5845 unsigned r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5846
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5847 r = *p++ << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5848 g = *p++ << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5849 b = *p++ << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5850 XPutPixel (ximg, x, y, lookup_rgb_color (f, r, g, b));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5851 /* An alpha channel, aka mask channel, associates variable
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5852 transparency with an image. Where other image formats
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5853 support binary transparency---fully transparent or fully
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5854 opaque---PNG allows up to 254 levels of partial transparency.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5855 The PNG library implements partial transparency by combining
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5856 the image with a specified background color.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5857
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5858 I'm not sure how to handle this here nicely: because the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5859 background on which the image is displayed may change, for
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5860 real alpha channel support, it would be necessary to create
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5861 a new image for each possible background.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5862
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5863 What I'm doing now is that a mask is created if we have
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5864 boolean transparency information. Otherwise I'm using
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5865 the frame's background color to combine the image with. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5866
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5867 if (channels == 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5868 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5869 if (mask_img)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
5870 XPutPixel (mask_img, x, y, *p > 0 ? PIX_MASK_DRAW : PIX_MASK_RETAIN);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5871 ++p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5872 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5873 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5874 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5875
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5876 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5877 /* Set IMG's background color from the PNG image, unless the user
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5878 overrode it. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5879 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5880 png_color_16 *bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5881 if (fn_png_get_bKGD (png_ptr, info_ptr, &bg))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5882 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5883 img->background = lookup_rgb_color (f, bg->red, bg->green, bg->blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5884 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5885 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5886 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5887
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5888 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5889 /* Remember colors allocated for this image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5890 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5891 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5892 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5893
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5894 /* Clean up. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5895 fn_png_destroy_read_struct (&png_ptr, &info_ptr, &end_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5896 xfree (rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5897 xfree (pixels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5898
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5899 img->width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5900 img->height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5901
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5902 /* Maybe fill in the background field while we have ximg handy.
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5903 Casting avoids a GCC warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5904 IMAGE_BACKGROUND (img, f, (XImagePtr_or_DC)ximg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5905
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5906 /* Put the image into the pixmap, then free the X image and its buffer. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5907 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5908 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5909
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5910 /* Same for the mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5911 if (mask_img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5912 {
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5913 /* Fill in the background_transparent field while we have the
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5914 mask handy. Casting avoids a GCC warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5915 image_background_transparent (img, f, (XImagePtr_or_DC)mask_img);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5916
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5917 x_put_x_image (f, mask_img, img->mask, img->width, img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5918 x_destroy_x_image (mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5919 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5920
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5921 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5922 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5923 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5924
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5925 #else /* HAVE_PNG */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5926
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
5927 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
5928 static int
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
5929 png_load (struct frame *f, struct image *img)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
5930 {
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
5931 return ns_load_image(f, img,
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
5932 image_spec_value (img->spec, QCfile, NULL),
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
5933 image_spec_value (img->spec, QCdata, NULL));
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
5934 }
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
5935 #endif /* HAVE_NS */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
5936
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
5937
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5938 #endif /* !HAVE_PNG */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5939
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5940
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5941
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5942 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5943 JPEG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5944 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5945
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
5946 #if defined (HAVE_JPEG) || defined (HAVE_NS)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5947
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
5948 static int jpeg_image_p (Lisp_Object object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
5949 static int jpeg_load (struct frame *f, struct image *img);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5950
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5951 /* The symbol `jpeg' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5952
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5953 Lisp_Object Qjpeg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5954
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5955 /* Indices of image specification fields in gs_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5956
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5957 enum jpeg_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5958 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5959 JPEG_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5960 JPEG_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5961 JPEG_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5962 JPEG_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5963 JPEG_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5964 JPEG_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5965 JPEG_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5966 JPEG_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5967 JPEG_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5968 JPEG_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5969 JPEG_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5970 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5971
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5972 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5973 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5974
105959
ba3ffbd9c422 * process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105877
diff changeset
5975 static const struct image_keyword jpeg_format[JPEG_LAST] =
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5976 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5977 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5978 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5979 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5980 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5981 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5982 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5983 {":conversions", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5984 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5985 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5986 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5987 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5988
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5989 /* Structure describing the image type `jpeg'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5990
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5991 static struct image_type jpeg_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5992 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5993 &Qjpeg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5994 jpeg_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5995 jpeg_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5996 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5997 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5998 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5999
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6000 /* Return non-zero if OBJECT is a valid JPEG image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6001
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6002 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6003 jpeg_image_p (Lisp_Object object)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6004 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6005 struct image_keyword fmt[JPEG_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6006
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
6007 memcpy (fmt, jpeg_format, sizeof fmt);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6008
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6009 if (!parse_image_spec (object, fmt, JPEG_LAST, Qjpeg))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6010 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6011
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6012 /* Must specify either the :data or :file keyword. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6013 return fmt[JPEG_FILE].count + fmt[JPEG_DATA].count == 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6014 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6015
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
6016 #endif /* HAVE_JPEG || HAVE_NS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6017
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6018 #ifdef HAVE_JPEG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6019
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6020 /* Work around a warning about HAVE_STDLIB_H being redefined in
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6021 jconfig.h. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6022 #ifdef HAVE_STDLIB_H
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6023 #define HAVE_STDLIB_H_1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6024 #undef HAVE_STDLIB_H
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6025 #endif /* HAVE_STLIB_H */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6026
59073
3501c078df60 (__WIN32__) [HAVE_NTGUI]: Define for correct behaviour of JPEG library.
Jason Rumney <jasonr@gnu.org>
parents: 58846
diff changeset
6027 #if defined (HAVE_NTGUI) && !defined (__WIN32__)
63112
e369bf902cfc Update comment.
Juanma Barranquero <lekktu@gmail.com>
parents: 62815
diff changeset
6028 /* In older releases of the jpeg library, jpeglib.h will define boolean
e369bf902cfc Update comment.
Juanma Barranquero <lekktu@gmail.com>
parents: 62815
diff changeset
6029 differently depending on __WIN32__, so make sure it is defined. */
59073
3501c078df60 (__WIN32__) [HAVE_NTGUI]: Define for correct behaviour of JPEG library.
Jason Rumney <jasonr@gnu.org>
parents: 58846
diff changeset
6030 #define __WIN32__ 1
3501c078df60 (__WIN32__) [HAVE_NTGUI]: Define for correct behaviour of JPEG library.
Jason Rumney <jasonr@gnu.org>
parents: 58846
diff changeset
6031 #endif
3501c078df60 (__WIN32__) [HAVE_NTGUI]: Define for correct behaviour of JPEG library.
Jason Rumney <jasonr@gnu.org>
parents: 58846
diff changeset
6032
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6033 #include <jpeglib.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6034 #include <jerror.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6035
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6036 #ifdef HAVE_STLIB_H_1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6037 #define HAVE_STDLIB_H 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6038 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6039
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6040 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6041
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6042 /* JPEG library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6043 DEF_IMGLIB_FN (jpeg_CreateDecompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6044 DEF_IMGLIB_FN (jpeg_start_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6045 DEF_IMGLIB_FN (jpeg_finish_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6046 DEF_IMGLIB_FN (jpeg_destroy_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6047 DEF_IMGLIB_FN (jpeg_read_header);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6048 DEF_IMGLIB_FN (jpeg_read_scanlines);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6049 DEF_IMGLIB_FN (jpeg_std_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6050 DEF_IMGLIB_FN (jpeg_resync_to_restart);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6051
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6052 static int
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
6053 init_jpeg_functions (Lisp_Object libraries)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6054 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6055 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6056
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
6057 if (!(library = w32_delayed_load (libraries, Qjpeg)))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6058 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6059
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6060 LOAD_IMGLIB_FN (library, jpeg_finish_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6061 LOAD_IMGLIB_FN (library, jpeg_read_scanlines);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6062 LOAD_IMGLIB_FN (library, jpeg_start_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6063 LOAD_IMGLIB_FN (library, jpeg_read_header);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6064 LOAD_IMGLIB_FN (library, jpeg_CreateDecompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6065 LOAD_IMGLIB_FN (library, jpeg_destroy_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6066 LOAD_IMGLIB_FN (library, jpeg_std_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6067 LOAD_IMGLIB_FN (library, jpeg_resync_to_restart);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6068 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6069 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6070
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6071 /* Wrapper since we can't directly assign the function pointer
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6072 to another function pointer that was declared more completely easily. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6073 static boolean
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
6074 jpeg_resync_to_restart_wrapper (cinfo, desired)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6075 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6076 int desired;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6077 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6078 return fn_jpeg_resync_to_restart (cinfo, desired);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6079 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6080
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6081 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6082
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6083 #define fn_jpeg_CreateDecompress(a,b,c) jpeg_create_decompress(a)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6084 #define fn_jpeg_start_decompress jpeg_start_decompress
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6085 #define fn_jpeg_finish_decompress jpeg_finish_decompress
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6086 #define fn_jpeg_destroy_decompress jpeg_destroy_decompress
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6087 #define fn_jpeg_read_header jpeg_read_header
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6088 #define fn_jpeg_read_scanlines jpeg_read_scanlines
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6089 #define fn_jpeg_std_error jpeg_std_error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6090 #define jpeg_resync_to_restart_wrapper jpeg_resync_to_restart
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6091
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6092 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6093
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6094 struct my_jpeg_error_mgr
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6095 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6096 struct jpeg_error_mgr pub;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6097 jmp_buf setjmp_buffer;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6098 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6099
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6100
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6101 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6102 my_error_exit (j_common_ptr cinfo)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6103 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6104 struct my_jpeg_error_mgr *mgr = (struct my_jpeg_error_mgr *) cinfo->err;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6105 longjmp (mgr->setjmp_buffer, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6106 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6107
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6108
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6109 /* Init source method for JPEG data source manager. Called by
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6110 jpeg_read_header() before any data is actually read. See
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6111 libjpeg.doc from the JPEG lib distribution. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6112
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6113 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6114 our_common_init_source (j_decompress_ptr cinfo)
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6115 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6116 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6117
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6118
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6119 /* Method to terminate data source. Called by
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6120 jpeg_finish_decompress() after all data has been processed. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6121
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6122 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6123 our_common_term_source (j_decompress_ptr cinfo)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6124 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6125 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6126
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6127
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6128 /* Fill input buffer method for JPEG data source manager. Called
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6129 whenever more data is needed. We read the whole image in one step,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6130 so this only adds a fake end of input marker at the end. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6131
78863
abdfd1f5b491 (our_memory_buffer): Renamed from omfib_buffer.
Richard M. Stallman <rms@gnu.org>
parents: 78788
diff changeset
6132 static JOCTET our_memory_buffer[2];
78788
c077ece08ff6 (our_memory_fill_input_buffer) <buffer>: Move to file scope and rename
Glenn Morris <rgm@gnu.org>
parents: 78746
diff changeset
6133
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6134 static boolean
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6135 our_memory_fill_input_buffer (j_decompress_ptr cinfo)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6136 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6137 /* Insert a fake EOI marker. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6138 struct jpeg_source_mgr *src = cinfo->src;
78788
c077ece08ff6 (our_memory_fill_input_buffer) <buffer>: Move to file scope and rename
Glenn Morris <rgm@gnu.org>
parents: 78746
diff changeset
6139
78863
abdfd1f5b491 (our_memory_buffer): Renamed from omfib_buffer.
Richard M. Stallman <rms@gnu.org>
parents: 78788
diff changeset
6140 our_memory_buffer[0] = (JOCTET) 0xFF;
abdfd1f5b491 (our_memory_buffer): Renamed from omfib_buffer.
Richard M. Stallman <rms@gnu.org>
parents: 78788
diff changeset
6141 our_memory_buffer[1] = (JOCTET) JPEG_EOI;
abdfd1f5b491 (our_memory_buffer): Renamed from omfib_buffer.
Richard M. Stallman <rms@gnu.org>
parents: 78788
diff changeset
6142
abdfd1f5b491 (our_memory_buffer): Renamed from omfib_buffer.
Richard M. Stallman <rms@gnu.org>
parents: 78788
diff changeset
6143 src->next_input_byte = our_memory_buffer;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6144 src->bytes_in_buffer = 2;
58846
4d7444f1a64c (our_fill_input_buffer, jpeg_load, CHECK_LIB_AVAILABLE, init_image):
Richard M. Stallman <rms@gnu.org>
parents: 58752
diff changeset
6145 return 1;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6146 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6147
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6148
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6149 /* Method to skip over NUM_BYTES bytes in the image data. CINFO->src
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6150 is the JPEG data source manager. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6151
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6152 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6153 our_memory_skip_input_data (j_decompress_ptr cinfo, long int num_bytes)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6154 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6155 struct jpeg_source_mgr *src = (struct jpeg_source_mgr *) cinfo->src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6156
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6157 if (src)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6158 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6159 if (num_bytes > src->bytes_in_buffer)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6160 ERREXIT (cinfo, JERR_INPUT_EOF);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6161
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6162 src->bytes_in_buffer -= num_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6163 src->next_input_byte += num_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6164 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6165 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6166
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6167
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6168 /* Set up the JPEG lib for reading an image from DATA which contains
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6169 LEN bytes. CINFO is the decompression info structure created for
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6170 reading the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6171
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6172 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6173 jpeg_memory_src (j_decompress_ptr cinfo, JOCTET *data, unsigned int len)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6174 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6175 struct jpeg_source_mgr *src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6176
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6177 if (cinfo->src == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6178 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6179 /* First time for this JPEG object? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6180 cinfo->src = (struct jpeg_source_mgr *)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6181 (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_PERMANENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6182 sizeof (struct jpeg_source_mgr));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6183 src = (struct jpeg_source_mgr *) cinfo->src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6184 src->next_input_byte = data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6185 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6186
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6187 src = (struct jpeg_source_mgr *) cinfo->src;
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6188 src->init_source = our_common_init_source;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6189 src->fill_input_buffer = our_memory_fill_input_buffer;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6190 src->skip_input_data = our_memory_skip_input_data;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6191 src->resync_to_restart = jpeg_resync_to_restart_wrapper; /* Use default method. */
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6192 src->term_source = our_common_term_source;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6193 src->bytes_in_buffer = len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6194 src->next_input_byte = data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6195 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6196
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6197
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6198 struct jpeg_stdio_mgr
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6199 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6200 struct jpeg_source_mgr mgr;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6201 boolean finished;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6202 FILE *file;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6203 JOCTET *buffer;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6204 };
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6205
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6206
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6207 /* Size of buffer to read JPEG from file.
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6208 Not too big, as we want to use alloc_small. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6209 #define JPEG_STDIO_BUFFER_SIZE 8192
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6210
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6211
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6212 /* Fill input buffer method for JPEG data source manager. Called
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6213 whenever more data is needed. The data is read from a FILE *. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6214
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6215 static boolean
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6216 our_stdio_fill_input_buffer (j_decompress_ptr cinfo)
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6217 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6218 struct jpeg_stdio_mgr *src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6219
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6220 src = (struct jpeg_stdio_mgr *) cinfo->src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6221 if (!src->finished)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6222 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6223 size_t bytes;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6224
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6225 bytes = fread (src->buffer, 1, JPEG_STDIO_BUFFER_SIZE, src->file);
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6226 if (bytes > 0)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6227 src->mgr.bytes_in_buffer = bytes;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6228 else
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6229 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6230 WARNMS (cinfo, JWRN_JPEG_EOF);
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6231 src->finished = 1;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6232 src->buffer[0] = (JOCTET) 0xFF;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6233 src->buffer[1] = (JOCTET) JPEG_EOI;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6234 src->mgr.bytes_in_buffer = 2;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6235 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6236 src->mgr.next_input_byte = src->buffer;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6237 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6238
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6239 return 1;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6240 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6241
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6242
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6243 /* Method to skip over NUM_BYTES bytes in the image data. CINFO->src
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6244 is the JPEG data source manager. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6245
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6246 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6247 our_stdio_skip_input_data (j_decompress_ptr cinfo, long int num_bytes)
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6248 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6249 struct jpeg_stdio_mgr *src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6250 src = (struct jpeg_stdio_mgr *) cinfo->src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6251
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6252 while (num_bytes > 0 && !src->finished)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6253 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6254 if (num_bytes <= src->mgr.bytes_in_buffer)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6255 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6256 src->mgr.bytes_in_buffer -= num_bytes;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6257 src->mgr.next_input_byte += num_bytes;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6258 break;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6259 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6260 else
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6261 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6262 num_bytes -= src->mgr.bytes_in_buffer;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6263 src->mgr.bytes_in_buffer = 0;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6264 src->mgr.next_input_byte = NULL;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6265
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6266 our_stdio_fill_input_buffer (cinfo);
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6267 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6268 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6269 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6270
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6271
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6272 /* Set up the JPEG lib for reading an image from a FILE *.
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6273 CINFO is the decompression info structure created for
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6274 reading the image. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6275
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6276 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6277 jpeg_file_src (j_decompress_ptr cinfo, FILE *fp)
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6278 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6279 struct jpeg_stdio_mgr *src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6280
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6281 if (cinfo->src != NULL)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6282 src = (struct jpeg_stdio_mgr *) cinfo->src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6283 else
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6284 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6285 /* First time for this JPEG object? */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6286 cinfo->src = (struct jpeg_source_mgr *)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6287 (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_PERMANENT,
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6288 sizeof (struct jpeg_stdio_mgr));
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6289 src = (struct jpeg_stdio_mgr *) cinfo->src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6290 src->buffer = (JOCTET *)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6291 (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_PERMANENT,
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6292 JPEG_STDIO_BUFFER_SIZE);
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6293 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6294
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6295 src->file = fp;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6296 src->finished = 0;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6297 src->mgr.init_source = our_common_init_source;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6298 src->mgr.fill_input_buffer = our_stdio_fill_input_buffer;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6299 src->mgr.skip_input_data = our_stdio_skip_input_data;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6300 src->mgr.resync_to_restart = jpeg_resync_to_restart_wrapper; /* Use default method. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6301 src->mgr.term_source = our_common_term_source;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6302 src->mgr.bytes_in_buffer = 0;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6303 src->mgr.next_input_byte = NULL;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6304 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6305
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6306
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6307 /* Load image IMG for use on frame F. Patterned after example.c
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6308 from the JPEG lib. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6309
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6310 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6311 jpeg_load (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6312 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6313 struct jpeg_decompress_struct cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6314 struct my_jpeg_error_mgr mgr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6315 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6316 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6317 FILE * volatile fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6318 JSAMPARRAY buffer;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6319 int row_stride, x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6320 XImagePtr ximg = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6321 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6322 unsigned long *colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6323 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6324 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6325
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6326 /* Open the JPEG file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6327 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6328 specified_data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6329 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6330 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6331
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6332 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6333 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6334 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6335 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6336 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6337 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6338 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6339 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6340 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6342 fp = fopen (SDATA (file), "rb");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6343 if (fp == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6344 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6345 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6346 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6347 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6348 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6349 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6350
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6351 /* Customize libjpeg's error handling to call my_error_exit when an
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6352 error is detected. This function will perform a longjmp.
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6353 Casting return value avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6354 cinfo.err = (struct jpeg_error_mgr *)fn_jpeg_std_error (&mgr.pub);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6355 mgr.pub.error_exit = my_error_exit;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6356
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6357 if ((rc = setjmp (mgr.setjmp_buffer)) != 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6358 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6359 if (rc == 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6360 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6361 /* Called from my_error_exit. Display a JPEG error. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6362 char buffer[JMSG_LENGTH_MAX];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6363 cinfo.err->format_message ((j_common_ptr) &cinfo, buffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6364 image_error ("Error reading JPEG image `%s': %s", img->spec,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6365 build_string (buffer));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6366 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6367
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6368 /* Close the input file and destroy the JPEG object. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6369 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6370 fclose ((FILE *) fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6371 fn_jpeg_destroy_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6372
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6373 /* If we already have an XImage, free that. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6374 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6375
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6376 /* Free pixmap and colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6377 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6378
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6379 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6380 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6381 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6382
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6383 /* Create the JPEG decompression object. Let it read from fp.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6384 Read the JPEG image header. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6385 fn_jpeg_CreateDecompress (&cinfo, JPEG_LIB_VERSION, sizeof (cinfo));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6386
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6387 if (NILP (specified_data))
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6388 jpeg_file_src (&cinfo, (FILE *) fp);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6389 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6390 jpeg_memory_src (&cinfo, SDATA (specified_data),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6391 SBYTES (specified_data));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6392
58846
4d7444f1a64c (our_fill_input_buffer, jpeg_load, CHECK_LIB_AVAILABLE, init_image):
Richard M. Stallman <rms@gnu.org>
parents: 58752
diff changeset
6393 fn_jpeg_read_header (&cinfo, 1);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6394
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6395 /* Customize decompression so that color quantization will be used.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6396 Start decompression. */
58846
4d7444f1a64c (our_fill_input_buffer, jpeg_load, CHECK_LIB_AVAILABLE, init_image):
Richard M. Stallman <rms@gnu.org>
parents: 58752
diff changeset
6397 cinfo.quantize_colors = 1;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6398 fn_jpeg_start_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6399 width = img->width = cinfo.output_width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6400 height = img->height = cinfo.output_height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6401
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6402 if (!check_image_size (f, width, height))
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6403 {
102392
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
6404 image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6405 longjmp (mgr.setjmp_buffer, 2);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6406 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6407
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6408 /* Create X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6409 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6410 longjmp (mgr.setjmp_buffer, 2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6411
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6412 /* Allocate colors. When color quantization is used,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6413 cinfo.actual_number_of_colors has been set with the number of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6414 colors generated, and cinfo.colormap is a two-dimensional array
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6415 of color indices in the range 0..cinfo.actual_number_of_colors.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6416 No more than 255 colors will be generated. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6417 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6418 int i, ir, ig, ib;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6419
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6420 if (cinfo.out_color_components > 2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6421 ir = 0, ig = 1, ib = 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6422 else if (cinfo.out_color_components > 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6423 ir = 0, ig = 1, ib = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6424 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6425 ir = 0, ig = 0, ib = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6426
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6427 /* Use the color table mechanism because it handles colors that
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6428 cannot be allocated nicely. Such colors will be replaced with
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6429 a default color, and we don't have to care about which colors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6430 can be freed safely, and which can't. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6431 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6432 colors = (unsigned long *) alloca (cinfo.actual_number_of_colors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6433 * sizeof *colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6434
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6435 for (i = 0; i < cinfo.actual_number_of_colors; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6436 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6437 /* Multiply RGB values with 255 because X expects RGB values
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6438 in the range 0..0xffff. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6439 int r = cinfo.colormap[ir][i] << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6440 int g = cinfo.colormap[ig][i] << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6441 int b = cinfo.colormap[ib][i] << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6442 colors[i] = lookup_rgb_color (f, r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6443 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6444
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6445 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6446 /* Remember those colors actually allocated. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6447 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6448 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6449 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6450 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6451
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6452 /* Read pixels. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6453 row_stride = width * cinfo.output_components;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6454 buffer = cinfo.mem->alloc_sarray ((j_common_ptr) &cinfo, JPOOL_IMAGE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6455 row_stride, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6456 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6457 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6458 fn_jpeg_read_scanlines (&cinfo, buffer, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6459 for (x = 0; x < cinfo.output_width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6460 XPutPixel (ximg, x, y, colors[buffer[0][x]]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6461 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6462
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6463 /* Clean up. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6464 fn_jpeg_finish_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6465 fn_jpeg_destroy_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6466 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6467 fclose ((FILE *) fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6468
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6469 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6470 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6471 /* Casting avoids a GCC warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6472 IMAGE_BACKGROUND (img, f, (XImagePtr_or_DC)ximg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6473
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6474 /* Put the image into the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6475 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6476 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6477 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6478 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6479 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6480
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6481 #else /* HAVE_JPEG */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6482
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6483 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6484 static int
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6485 jpeg_load (struct frame *f, struct image *img)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6486 {
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
6487 return ns_load_image (f, img,
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
6488 image_spec_value (img->spec, QCfile, NULL),
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
6489 image_spec_value (img->spec, QCdata, NULL));
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6490 }
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6491 #endif /* HAVE_NS */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6492
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6493 #endif /* !HAVE_JPEG */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6494
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6495
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6496
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6497 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6498 TIFF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6499 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6500
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
6501 #if defined (HAVE_TIFF) || defined (HAVE_NS)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6502
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
6503 static int tiff_image_p (Lisp_Object object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
6504 static int tiff_load (struct frame *f, struct image *img);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6505
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6506 /* The symbol `tiff' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6507
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6508 Lisp_Object Qtiff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6509
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6510 /* Indices of image specification fields in tiff_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6511
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6512 enum tiff_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6513 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6514 TIFF_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6515 TIFF_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6516 TIFF_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6517 TIFF_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6518 TIFF_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6519 TIFF_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6520 TIFF_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6521 TIFF_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6522 TIFF_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6523 TIFF_BACKGROUND,
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6524 TIFF_INDEX,
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6525 TIFF_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6526 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6527
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6528 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6529 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6530
105959
ba3ffbd9c422 * process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105877
diff changeset
6531 static const struct image_keyword tiff_format[TIFF_LAST] =
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6532 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6533 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6534 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6535 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6536 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6537 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6538 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6539 {":conversions", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6540 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6541 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6542 {":background", IMAGE_STRING_OR_NIL_VALUE, 0},
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6543 {":index", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0}
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6544 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6545
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6546 /* Structure describing the image type `tiff'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6547
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6548 static struct image_type tiff_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6549 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6550 &Qtiff,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6551 tiff_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6552 tiff_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6553 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6554 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6555 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6556
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6557 /* Return non-zero if OBJECT is a valid TIFF image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6558
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6559 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6560 tiff_image_p (Lisp_Object object)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6561 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6562 struct image_keyword fmt[TIFF_LAST];
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
6563 memcpy (fmt, tiff_format, sizeof fmt);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6564
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6565 if (!parse_image_spec (object, fmt, TIFF_LAST, Qtiff))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6566 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6567
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6568 /* Must specify either the :data or :file keyword. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6569 return fmt[TIFF_FILE].count + fmt[TIFF_DATA].count == 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6570 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6571
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
6572 #endif /* HAVE_TIFF || HAVE_NS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6573
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6574 #ifdef HAVE_TIFF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6575
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6576 #include <tiffio.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6577
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6578 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6579
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6580 /* TIFF library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6581 DEF_IMGLIB_FN (TIFFSetErrorHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6582 DEF_IMGLIB_FN (TIFFSetWarningHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6583 DEF_IMGLIB_FN (TIFFOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6584 DEF_IMGLIB_FN (TIFFClientOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6585 DEF_IMGLIB_FN (TIFFGetField);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6586 DEF_IMGLIB_FN (TIFFReadRGBAImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6587 DEF_IMGLIB_FN (TIFFClose);
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6588 DEF_IMGLIB_FN (TIFFSetDirectory);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6589
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6590 static int
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
6591 init_tiff_functions (Lisp_Object libraries)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6592 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6593 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6594
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
6595 if (!(library = w32_delayed_load (libraries, Qtiff)))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6596 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6597
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6598 LOAD_IMGLIB_FN (library, TIFFSetErrorHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6599 LOAD_IMGLIB_FN (library, TIFFSetWarningHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6600 LOAD_IMGLIB_FN (library, TIFFOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6601 LOAD_IMGLIB_FN (library, TIFFClientOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6602 LOAD_IMGLIB_FN (library, TIFFGetField);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6603 LOAD_IMGLIB_FN (library, TIFFReadRGBAImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6604 LOAD_IMGLIB_FN (library, TIFFClose);
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6605 LOAD_IMGLIB_FN (library, TIFFSetDirectory);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6606 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6607 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6608
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6609 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6610
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6611 #define fn_TIFFSetErrorHandler TIFFSetErrorHandler
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6612 #define fn_TIFFSetWarningHandler TIFFSetWarningHandler
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6613 #define fn_TIFFOpen TIFFOpen
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6614 #define fn_TIFFClientOpen TIFFClientOpen
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6615 #define fn_TIFFGetField TIFFGetField
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6616 #define fn_TIFFReadRGBAImage TIFFReadRGBAImage
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6617 #define fn_TIFFClose TIFFClose
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6618 #define fn_TIFFSetDirectory TIFFSetDirectory
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6619 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6620
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6621
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6622 /* Reading from a memory buffer for TIFF images Based on the PNG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6623 memory source, but we have to provide a lot of extra functions.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6624 Blah.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6625
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6626 We really only need to implement read and seek, but I am not
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6627 convinced that the TIFF library is smart enough not to destroy
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6628 itself if we only hand it the function pointers we need to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6629 override. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6630
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6631 typedef struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6632 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6633 unsigned char *bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6634 size_t len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6635 int index;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6636 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6637 tiff_memory_source;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6638
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6639 static size_t
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6640 tiff_read_from_memory (thandle_t data, tdata_t buf, tsize_t size)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6641 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6642 tiff_memory_source *src = (tiff_memory_source *) data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6643
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6644 if (size > src->len - src->index)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6645 return (size_t) -1;
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
6646 memcpy (buf, src->bytes + src->index, size);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6647 src->index += size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6648 return size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6649 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6650
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6651 static size_t
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6652 tiff_write_from_memory (thandle_t data, tdata_t buf, tsize_t size)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6653 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6654 return (size_t) -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6655 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6656
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6657 static toff_t
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6658 tiff_seek_in_memory (thandle_t data, toff_t off, int whence)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6659 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6660 tiff_memory_source *src = (tiff_memory_source *) data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6661 int idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6662
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6663 switch (whence)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6664 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6665 case SEEK_SET: /* Go from beginning of source. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6666 idx = off;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6667 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6668
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6669 case SEEK_END: /* Go from end of source. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6670 idx = src->len + off;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6671 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6672
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6673 case SEEK_CUR: /* Go from current position. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6674 idx = src->index + off;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6675 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6676
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6677 default: /* Invalid `whence'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6678 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6679 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6680
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6681 if (idx > src->len || idx < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6682 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6683
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6684 src->index = idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6685 return src->index;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6686 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6687
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6688 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6689 tiff_close_memory (thandle_t data)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6690 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6691 /* NOOP */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6692 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6693 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6694
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6695 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6696 tiff_mmap_memory (thandle_t data, tdata_t *pbase, toff_t *psize)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6697 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6698 /* It is already _IN_ memory. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6699 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6700 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6701
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6702 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6703 tiff_unmap_memory (thandle_t data, tdata_t base, toff_t size)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6704 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6705 /* We don't need to do this. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6706 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6707
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6708 static toff_t
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6709 tiff_size_of_memory (thandle_t data)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6710 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6711 return ((tiff_memory_source *) data)->len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6712 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6713
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6714
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6715 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6716 tiff_error_handler (const char *title, const char *format, va_list ap)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6717 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6718 char buf[512];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6719 int len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6720
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6721 len = sprintf (buf, "TIFF error: %s ", title);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6722 vsprintf (buf + len, format, ap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6723 add_to_log (buf, Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6724 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6725
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6726
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6727 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6728 tiff_warning_handler (const char *title, const char *format, va_list ap)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6729 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6730 char buf[512];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6731 int len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6732
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6733 len = sprintf (buf, "TIFF warning: %s ", title);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6734 vsprintf (buf + len, format, ap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6735 add_to_log (buf, Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6736 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6737
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6738
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6739 /* Load TIFF image IMG for use on frame F. Value is non-zero if
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6740 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6741
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6742 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6743 tiff_load (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6744 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6745 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6746 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6747 TIFF *tiff;
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6748 int width, height, x, y, count;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6749 uint32 *buf;
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6750 int rc, rc2;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6751 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6752 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6753 tiff_memory_source memsrc;
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6754 Lisp_Object image;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6755
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6756 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6757 specified_data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6758 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6759 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6760
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6761 fn_TIFFSetErrorHandler (tiff_error_handler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6762 fn_TIFFSetWarningHandler (tiff_warning_handler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6763
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6764 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6765 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6766 /* Read from a file */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6767 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6768 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6769 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6770 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6771 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6772 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6773 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6774
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6775 /* Try to open the image file. Casting return value avoids a
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6776 GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6777 tiff = (TIFF *)fn_TIFFOpen (SDATA (file), "r");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6778 if (tiff == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6779 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6780 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6781 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6782 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6783 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6784 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6785 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6786 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6787 /* Memory source! */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6788 memsrc.bytes = SDATA (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6789 memsrc.len = SBYTES (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6790 memsrc.index = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6791
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6792 /* Casting return value avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6793 tiff = (TIFF *)fn_TIFFClientOpen ("memory_source", "r", &memsrc,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6794 (TIFFReadWriteProc) tiff_read_from_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6795 (TIFFReadWriteProc) tiff_write_from_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6796 tiff_seek_in_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6797 tiff_close_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6798 tiff_size_of_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6799 tiff_mmap_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6800 tiff_unmap_memory);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6801
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6802 if (!tiff)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6803 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6804 image_error ("Cannot open memory source for `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6805 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6806 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6807 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6808 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6809
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6810 image = image_spec_value (img->spec, QCindex, NULL);
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6811 if (INTEGERP (image))
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6812 {
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6813 int ino = XFASTINT (image);
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6814 if (!fn_TIFFSetDirectory (tiff, ino))
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6815 {
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6816 image_error ("Invalid image number `%s' in image `%s'",
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6817 image, img->spec);
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6818 fn_TIFFClose (tiff);
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6819 UNGCPRO;
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6820 return 0;
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6821 }
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6822 }
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6823
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6824 /* Get width and height of the image, and allocate a raster buffer
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6825 of width x height 32-bit values. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6826 fn_TIFFGetField (tiff, TIFFTAG_IMAGEWIDTH, &width);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6827 fn_TIFFGetField (tiff, TIFFTAG_IMAGELENGTH, &height);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6828
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6829 if (!check_image_size (f, width, height))
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6830 {
102392
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
6831 image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6832 fn_TIFFClose (tiff);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6833 UNGCPRO;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6834 return 0;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6835 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6836
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6837 buf = (uint32 *) xmalloc (width * height * sizeof *buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6838
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6839 rc = fn_TIFFReadRGBAImage (tiff, width, height, buf, 0);
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6840
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6841 /* Count the number of images in the file. */
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6842 for (count = 1, rc2 = 1; rc2; count++)
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6843 rc2 = fn_TIFFSetDirectory (tiff, count);
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6844
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6845 if (count > 1)
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6846 img->data.lisp_val = Fcons (Qcount,
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6847 Fcons (make_number (count),
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6848 img->data.lisp_val));
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6849
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6850 fn_TIFFClose (tiff);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6851 if (!rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6852 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6853 image_error ("Error reading TIFF image `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6854 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6855 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6856 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6857 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6858
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6859 /* Create the X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6860 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6861 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6862 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6863 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6864 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6865 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6866
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6867 /* Initialize the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6868 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6869
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6870 /* Process the pixel raster. Origin is in the lower-left corner. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6871 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6872 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6873 uint32 *row = buf + y * width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6874
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6875 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6876 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6877 uint32 abgr = row[x];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6878 int r = TIFFGetR (abgr) << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6879 int g = TIFFGetG (abgr) << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6880 int b = TIFFGetB (abgr) << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6881 XPutPixel (ximg, x, height - 1 - y, lookup_rgb_color (f, r, g, b));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6882 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6883 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6884
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6885 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6886 /* Remember the colors allocated for the image. Free the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6887 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6888 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6889 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6890
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6891 img->width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6892 img->height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6893
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6894 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6895 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6896 /* Casting avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6897 IMAGE_BACKGROUND (img, f, (XImagePtr_or_DC)ximg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6898
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6899 /* Put the image into the pixmap, then free the X image and its buffer. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6900 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6901 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6902 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6903
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6904 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6905 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6906 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6907
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6908 #else /* HAVE_TIFF */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6909
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6910 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6911 static int
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6912 tiff_load (struct frame *f, struct image *img)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6913 {
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
6914 return ns_load_image (f, img,
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
6915 image_spec_value (img->spec, QCfile, NULL),
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
6916 image_spec_value (img->spec, QCdata, NULL));
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6917 }
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6918 #endif /* HAVE_NS */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
6919
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6920 #endif /* !HAVE_TIFF */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6921
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6922
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6923
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6924 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6925 GIF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6926 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6927
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
6928 #if defined (HAVE_GIF) || defined (HAVE_NS)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6929
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
6930 static int gif_image_p (Lisp_Object object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
6931 static int gif_load (struct frame *f, struct image *img);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
6932 static void gif_clear_image (struct frame *f, struct image *img);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6933
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6934 /* The symbol `gif' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6935
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6936 Lisp_Object Qgif;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6937
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6938 /* Indices of image specification fields in gif_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6939
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6940 enum gif_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6941 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6942 GIF_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6943 GIF_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6944 GIF_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6945 GIF_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6946 GIF_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6947 GIF_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6948 GIF_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6949 GIF_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6950 GIF_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6951 GIF_IMAGE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6952 GIF_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6953 GIF_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6954 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6955
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6956 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6957 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6958
105959
ba3ffbd9c422 * process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105877
diff changeset
6959 static const struct image_keyword gif_format[GIF_LAST] =
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6960 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6961 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6962 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6963 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6964 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6965 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6966 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6967 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6968 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6969 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
97635
eb8c3a9e1565 (enum tiff_keyword_index, tiff_format): Add :index keyword.
Jason Rumney <jasonr@gnu.org>
parents: 97043
diff changeset
6970 {":index", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0},
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6971 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6972 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6973
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6974 /* Structure describing the image type `gif'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6975
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6976 static struct image_type gif_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6977 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6978 &Qgif,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6979 gif_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6980 gif_load,
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
6981 gif_clear_image,
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6982 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6983 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6984
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
6985 /* Free X resources of GIF image IMG which is used on frame F. */
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
6986
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
6987 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6988 gif_clear_image (struct frame *f, struct image *img)
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
6989 {
107719
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
6990 /* IMG->data.ptr_val may contain metadata with extension data. */
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
6991 img->data.lisp_val = Qnil;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
6992 x_clear_image (f, img);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
6993 }
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
6994
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6995 /* Return non-zero if OBJECT is a valid GIF image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6996
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6997 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
6998 gif_image_p (Lisp_Object object)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6999 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7000 struct image_keyword fmt[GIF_LAST];
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
7001 memcpy (fmt, gif_format, sizeof fmt);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7002
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7003 if (!parse_image_spec (object, fmt, GIF_LAST, Qgif))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7004 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7005
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7006 /* Must specify either the :data or :file keyword. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7007 return fmt[GIF_FILE].count + fmt[GIF_DATA].count == 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7008 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7009
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
7010 #endif /* HAVE_GIF */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7011
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7012 #ifdef HAVE_GIF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7013
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
7014 #if defined (HAVE_NTGUI)
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7015 /* winuser.h might define DrawText to DrawTextA or DrawTextW.
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7016 Undefine before redefining to avoid a preprocessor warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7017 #ifdef DrawText
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7018 #undef DrawText
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7019 #endif
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7020 /* avoid conflict with QuickdrawText.h */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7021 #define DrawText gif_DrawText
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7022 #include <gif_lib.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7023 #undef DrawText
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7024
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
7025 #else /* HAVE_NTGUI */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7026
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7027 #include <gif_lib.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7028
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
7029 #endif /* HAVE_NTGUI */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7030
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7031
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7032 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7033
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7034 /* GIF library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7035 DEF_IMGLIB_FN (DGifCloseFile);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7036 DEF_IMGLIB_FN (DGifSlurp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7037 DEF_IMGLIB_FN (DGifOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7038 DEF_IMGLIB_FN (DGifOpenFileName);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7039
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7040 static int
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
7041 init_gif_functions (Lisp_Object libraries)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7042 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7043 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7044
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
7045 if (!(library = w32_delayed_load (libraries, Qgif)))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7046 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7047
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7048 LOAD_IMGLIB_FN (library, DGifCloseFile);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7049 LOAD_IMGLIB_FN (library, DGifSlurp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7050 LOAD_IMGLIB_FN (library, DGifOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7051 LOAD_IMGLIB_FN (library, DGifOpenFileName);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7052 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7053 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7054
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7055 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7056
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7057 #define fn_DGifCloseFile DGifCloseFile
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7058 #define fn_DGifSlurp DGifSlurp
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7059 #define fn_DGifOpen DGifOpen
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7060 #define fn_DGifOpenFileName DGifOpenFileName
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7061
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7062 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7063
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7064 /* Reading a GIF image from memory
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7065 Based on the PNG memory stuff to a certain extent. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7066
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7067 typedef struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7068 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7069 unsigned char *bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7070 size_t len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7071 int index;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7072 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7073 gif_memory_source;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7074
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7075 /* Make the current memory source available to gif_read_from_memory.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7076 It's done this way because not all versions of libungif support
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7077 a UserData field in the GifFileType structure. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7078 static gif_memory_source *current_gif_memory_src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7079
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7080 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7081 gif_read_from_memory (GifFileType *file, GifByteType *buf, int len)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7082 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7083 gif_memory_source *src = current_gif_memory_src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7084
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7085 if (len > src->len - src->index)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7086 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7087
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
7088 memcpy (buf, src->bytes + src->index, len);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7089 src->index += len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7090 return len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7091 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7092
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7093
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7094 /* Load GIF image IMG for use on frame F. Value is non-zero if
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7095 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7096
105959
ba3ffbd9c422 * process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105877
diff changeset
7097 static const int interlace_start[] = {0, 4, 2, 1};
ba3ffbd9c422 * process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105877
diff changeset
7098 static const int interlace_increment[] = {8, 8, 4, 2};
78788
c077ece08ff6 (our_memory_fill_input_buffer) <buffer>: Move to file scope and rename
Glenn Morris <rgm@gnu.org>
parents: 78746
diff changeset
7099
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7100 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7101 gif_load (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7102 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7103 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7104 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7105 int rc, width, height, x, y, i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7106 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7107 ColorMapObject *gif_color_map;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7108 unsigned long pixel_colors[256];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7109 GifFileType *gif;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7110 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7111 Lisp_Object image;
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7112 int ino, image_height, image_width;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7113 gif_memory_source memsrc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7114 unsigned char *raster;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7115
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7116 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7117 specified_data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7118 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7119 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7120
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7121 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7122 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7123 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7124 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7125 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7126 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7127 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7128 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7129 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7130
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7131 /* Open the GIF file. Casting return value avoids a GCC warning
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7132 on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7133 gif = (GifFileType *)fn_DGifOpenFileName (SDATA (file));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7134 if (gif == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7135 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7136 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7137 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7138 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7139 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7140 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7141 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7142 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7143 /* Read from memory! */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7144 current_gif_memory_src = &memsrc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7145 memsrc.bytes = SDATA (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7146 memsrc.len = SBYTES (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7147 memsrc.index = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7148
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7149 /* Casting return value avoids a GCC warning on W32. */
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7150 gif = (GifFileType *) fn_DGifOpen (&memsrc, gif_read_from_memory);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7151 if (!gif)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7152 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7153 image_error ("Cannot open memory source `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7154 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7155 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7156 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7157 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7158
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7159 /* Before reading entire contents, check the declared image size. */
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7160 if (!check_image_size (f, gif->SWidth, gif->SHeight))
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7161 {
102392
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
7162 image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7163 fn_DGifCloseFile (gif);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7164 UNGCPRO;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7165 return 0;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7166 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7167
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7168 /* Read entire contents. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7169 rc = fn_DGifSlurp (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7170 if (rc == GIF_ERROR)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7171 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7172 image_error ("Error reading `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7173 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7174 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7175 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7176 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7177
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7178 image = image_spec_value (img->spec, QCindex, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7179 ino = INTEGERP (image) ? XFASTINT (image) : 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7180 if (ino >= gif->ImageCount)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7181 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7182 image_error ("Invalid image number `%s' in image `%s'",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7183 image, img->spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7184 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7185 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7186 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7187 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7188
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7189 img->corners[TOP_CORNER] = gif->SavedImages[ino].ImageDesc.Top;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7190 img->corners[LEFT_CORNER] = gif->SavedImages[ino].ImageDesc.Left;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7191 image_height = gif->SavedImages[ino].ImageDesc.Height;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7192 img->corners[BOT_CORNER] = img->corners[TOP_CORNER] + image_height;
65723
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7193 image_width = gif->SavedImages[ino].ImageDesc.Width;
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7194 img->corners[RIGHT_CORNER] = img->corners[LEFT_CORNER] + image_width;
65723
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7195
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7196 width = img->width = max (gif->SWidth,
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7197 max (gif->Image.Left + gif->Image.Width,
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7198 img->corners[RIGHT_CORNER]));
65723
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7199 height = img->height = max (gif->SHeight,
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7200 max (gif->Image.Top + gif->Image.Height,
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7201 img->corners[BOT_CORNER]));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7202
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7203 if (!check_image_size (f, width, height))
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7204 {
102392
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
7205 image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7206 fn_DGifCloseFile (gif);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7207 UNGCPRO;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7208 return 0;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7209 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7210
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7211 /* Create the X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7212 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7213 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7214 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7215 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7216 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7217 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7218
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7219 /* Allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7220 gif_color_map = gif->SavedImages[ino].ImageDesc.ColorMap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7221 if (!gif_color_map)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7222 gif_color_map = gif->SColorMap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7223 init_color_table ();
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
7224 memset (pixel_colors, 0, sizeof pixel_colors);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7225
78746
8090732dfc6d (gif_load): Fix bug: Handle nonexistent colormap.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 78692
diff changeset
7226 if (gif_color_map)
8090732dfc6d (gif_load): Fix bug: Handle nonexistent colormap.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 78692
diff changeset
7227 for (i = 0; i < gif_color_map->ColorCount; ++i)
8090732dfc6d (gif_load): Fix bug: Handle nonexistent colormap.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 78692
diff changeset
7228 {
8090732dfc6d (gif_load): Fix bug: Handle nonexistent colormap.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 78692
diff changeset
7229 int r = gif_color_map->Colors[i].Red << 8;
8090732dfc6d (gif_load): Fix bug: Handle nonexistent colormap.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 78692
diff changeset
7230 int g = gif_color_map->Colors[i].Green << 8;
8090732dfc6d (gif_load): Fix bug: Handle nonexistent colormap.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 78692
diff changeset
7231 int b = gif_color_map->Colors[i].Blue << 8;
8090732dfc6d (gif_load): Fix bug: Handle nonexistent colormap.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 78692
diff changeset
7232 pixel_colors[i] = lookup_rgb_color (f, r, g, b);
8090732dfc6d (gif_load): Fix bug: Handle nonexistent colormap.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 78692
diff changeset
7233 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7234
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7235 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7236 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7237 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7238 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7239
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7240 /* Clear the part of the screen image that are not covered by
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7241 the image from the GIF file. Full animated GIF support
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7242 requires more than can be done here (see the gif89 spec,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7243 disposal methods). Let's simply assume that the part
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7244 not covered by a sub-image is in the frame's background color. */
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7245 for (y = 0; y < img->corners[TOP_CORNER]; ++y)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7246 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7247 XPutPixel (ximg, x, y, FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7248
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7249 for (y = img->corners[BOT_CORNER]; y < height; ++y)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7250 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7251 XPutPixel (ximg, x, y, FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7252
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7253 for (y = img->corners[TOP_CORNER]; y < img->corners[BOT_CORNER]; ++y)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7254 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7255 for (x = 0; x < img->corners[LEFT_CORNER]; ++x)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7256 XPutPixel (ximg, x, y, FRAME_BACKGROUND_PIXEL (f));
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7257 for (x = img->corners[RIGHT_CORNER]; x < width; ++x)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7258 XPutPixel (ximg, x, y, FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7259 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7260
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7261 /* Read the GIF image into the X image. We use a local variable
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7262 `raster' here because RasterBits below is a char *, and invites
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7263 problems with bytes >= 0x80. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7264 raster = (unsigned char *) gif->SavedImages[ino].RasterBits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7265
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7266 if (gif->SavedImages[ino].ImageDesc.Interlace)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7267 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7268 int pass;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7269 int row = interlace_start[0];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7270
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7271 pass = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7272
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7273 for (y = 0; y < image_height; y++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7274 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7275 if (row >= image_height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7276 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7277 row = interlace_start[++pass];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7278 while (row >= image_height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7279 row = interlace_start[++pass];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7280 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7281
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7282 for (x = 0; x < image_width; x++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7283 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7284 int i = raster[(y * image_width) + x];
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7285 XPutPixel (ximg, x + img->corners[LEFT_CORNER],
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7286 row + img->corners[TOP_CORNER], pixel_colors[i]);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7287 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7288
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7289 row += interlace_increment[pass];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7290 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7291 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7292 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7293 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7294 for (y = 0; y < image_height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7295 for (x = 0; x < image_width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7296 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7297 int i = raster[y * image_width + x];
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7298 XPutPixel (ximg, x + img->corners[LEFT_CORNER],
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7299 y + img->corners[TOP_CORNER], pixel_colors[i]);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7300 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7301 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7302
107719
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
7303 /* Save GIF image extension data for `image-metadata'.
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
7304 Format is (count IMAGES extension-data (FUNCTION "BYTES" ...)). */
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7305 img->data.lisp_val = Qnil;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7306 if (gif->SavedImages[ino].ExtensionBlockCount > 0)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7307 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7308 ExtensionBlock *ext = gif->SavedImages[ino].ExtensionBlocks;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7309 for (i = 0; i < gif->SavedImages[ino].ExtensionBlockCount; i++, ext++)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7310 /* Append (... FUNCTION "BYTES") */
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7311 img->data.lisp_val = Fcons (make_unibyte_string (ext->Bytes, ext->ByteCount),
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7312 Fcons (make_number (ext->Function),
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7313 img->data.lisp_val));
107719
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
7314 img->data.lisp_val = Fcons (Qextension_data,
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
7315 Fcons (Fnreverse (img->data.lisp_val),
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
7316 Qnil));
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7317 }
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7318 if (gif->ImageCount > 1)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7319 img->data.lisp_val = Fcons (Qcount,
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7320 Fcons (make_number (gif->ImageCount),
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7321 img->data.lisp_val));
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7322
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7323 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7324
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7325 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7326 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7327 /* Casting avoids a GCC warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7328 IMAGE_BACKGROUND (img, f, (XImagePtr_or_DC)ximg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7329
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7330 /* Put the image into the pixmap, then free the X image and its buffer. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7331 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7332 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7333
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7334 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7335 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7336 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7337
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7338 #else /* !HAVE_GIF */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7339
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
7340 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
7341 static int
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
7342 gif_load (struct frame *f, struct image *img)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
7343 {
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
7344 return ns_load_image (f, img,
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
7345 image_spec_value (img->spec, QCfile, NULL),
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
7346 image_spec_value (img->spec, QCdata, NULL));
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
7347 }
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
7348 #endif /* HAVE_NS */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95213
diff changeset
7349
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7350 #endif /* HAVE_GIF */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7351
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7352
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7353
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7354 /***********************************************************************
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7355 SVG
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7356 ***********************************************************************/
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7357
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7358 #if defined (HAVE_RSVG)
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7359
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7360 /* Function prototypes. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7361
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
7362 static int svg_image_p (Lisp_Object object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
7363 static int svg_load (struct frame *f, struct image *img);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
7364
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
7365 static int svg_load_image (struct frame *, struct image *,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
7366 unsigned char *, unsigned int);
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7367
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7368 /* The symbol `svg' identifying images of this type. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7369
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7370 Lisp_Object Qsvg;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7371
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7372 /* Indices of image specification fields in svg_format, below. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7373
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7374 enum svg_keyword_index
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7375 {
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7376 SVG_TYPE,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7377 SVG_DATA,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7378 SVG_FILE,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7379 SVG_ASCENT,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7380 SVG_MARGIN,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7381 SVG_RELIEF,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7382 SVG_ALGORITHM,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7383 SVG_HEURISTIC_MASK,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7384 SVG_MASK,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7385 SVG_BACKGROUND,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7386 SVG_LAST
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7387 };
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7388
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7389 /* Vector of image_keyword structures describing the format
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7390 of valid user-defined image specifications. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7391
105959
ba3ffbd9c422 * process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105877
diff changeset
7392 static const struct image_keyword svg_format[SVG_LAST] =
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7393 {
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7394 {":type", IMAGE_SYMBOL_VALUE, 1},
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7395 {":data", IMAGE_STRING_VALUE, 0},
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7396 {":file", IMAGE_STRING_VALUE, 0},
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7397 {":ascent", IMAGE_ASCENT_VALUE, 0},
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7398 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7399 {":relief", IMAGE_INTEGER_VALUE, 0},
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7400 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7401 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7402 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7403 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7404 };
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7405
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7406 /* Structure describing the image type `svg'. Its the same type of
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7407 structure defined for all image formats, handled by emacs image
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7408 functions. See struct image_type in dispextern.h. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7409
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7410 static struct image_type svg_type =
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7411 {
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7412 /* An identifier showing that this is an image structure for the SVG format. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7413 &Qsvg,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7414 /* Handle to a function that can be used to identify a SVG file. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7415 svg_image_p,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7416 /* Handle to function used to load a SVG file. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7417 svg_load,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7418 /* Handle to function to free sresources for SVG. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7419 x_clear_image,
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7420 /* An internal field to link to the next image type in a list of
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7421 image types, will be filled in when registering the format. */
82781
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7422 NULL
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7423 };
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7424
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7425
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7426 /* Return non-zero if OBJECT is a valid SVG image specification. Do
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7427 this by calling parse_image_spec and supplying the keywords that
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7428 identify the SVG format. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7429
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7430 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7431 svg_image_p (Lisp_Object object)
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7432 {
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7433 struct image_keyword fmt[SVG_LAST];
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
7434 memcpy (fmt, svg_format, sizeof fmt);
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7435
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7436 if (!parse_image_spec (object, fmt, SVG_LAST, Qsvg))
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7437 return 0;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7438
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7439 /* Must specify either the :data or :file keyword. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7440 return fmt[SVG_FILE].count + fmt[SVG_DATA].count == 1;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7441 }
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7442
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7443 #include <librsvg/rsvg.h>
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7444
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7445 #ifdef HAVE_NTGUI
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7446
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7447 /* SVG library functions. */
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7448 DEF_IMGLIB_FN (rsvg_handle_new);
97012
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7449 DEF_IMGLIB_FN (rsvg_handle_get_dimensions);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7450 DEF_IMGLIB_FN (rsvg_handle_write);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7451 DEF_IMGLIB_FN (rsvg_handle_close);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7452 DEF_IMGLIB_FN (rsvg_handle_get_pixbuf);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7453 DEF_IMGLIB_FN (rsvg_handle_free);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7454
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7455 DEF_IMGLIB_FN (gdk_pixbuf_get_width);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7456 DEF_IMGLIB_FN (gdk_pixbuf_get_height);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7457 DEF_IMGLIB_FN (gdk_pixbuf_get_pixels);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7458 DEF_IMGLIB_FN (gdk_pixbuf_get_rowstride);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7459 DEF_IMGLIB_FN (gdk_pixbuf_get_colorspace);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7460 DEF_IMGLIB_FN (gdk_pixbuf_get_n_channels);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7461 DEF_IMGLIB_FN (gdk_pixbuf_get_has_alpha);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7462 DEF_IMGLIB_FN (gdk_pixbuf_get_bits_per_sample);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7463
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7464 DEF_IMGLIB_FN (g_type_init);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7465 DEF_IMGLIB_FN (g_object_unref);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7466 DEF_IMGLIB_FN (g_error_free);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7467
100826
dd451a5b1d77 (Qgobject): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 99904
diff changeset
7468 Lisp_Object Qgdk_pixbuf, Qglib, Qgobject;
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7469
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7470 static int
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7471 init_svg_functions (Lisp_Object libraries)
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7472 {
100826
dd451a5b1d77 (Qgobject): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 99904
diff changeset
7473 HMODULE library, gdklib, glib, gobject;
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7474
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7475 if (!(glib = w32_delayed_load (libraries, Qglib))
100826
dd451a5b1d77 (Qgobject): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 99904
diff changeset
7476 || !(gobject = w32_delayed_load (libraries, Qgobject))
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7477 || !(gdklib = w32_delayed_load (libraries, Qgdk_pixbuf))
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7478 || !(library = w32_delayed_load (libraries, Qsvg)))
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7479 return 0;
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7480
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7481 LOAD_IMGLIB_FN (library, rsvg_handle_new);
97012
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7482 LOAD_IMGLIB_FN (library, rsvg_handle_get_dimensions);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7483 LOAD_IMGLIB_FN (library, rsvg_handle_write);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7484 LOAD_IMGLIB_FN (library, rsvg_handle_close);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7485 LOAD_IMGLIB_FN (library, rsvg_handle_get_pixbuf);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7486 LOAD_IMGLIB_FN (library, rsvg_handle_free);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7487
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7488 LOAD_IMGLIB_FN (gdklib, gdk_pixbuf_get_width);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7489 LOAD_IMGLIB_FN (gdklib, gdk_pixbuf_get_height);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7490 LOAD_IMGLIB_FN (gdklib, gdk_pixbuf_get_pixels);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7491 LOAD_IMGLIB_FN (gdklib, gdk_pixbuf_get_rowstride);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7492 LOAD_IMGLIB_FN (gdklib, gdk_pixbuf_get_colorspace);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7493 LOAD_IMGLIB_FN (gdklib, gdk_pixbuf_get_n_channels);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7494 LOAD_IMGLIB_FN (gdklib, gdk_pixbuf_get_has_alpha);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7495 LOAD_IMGLIB_FN (gdklib, gdk_pixbuf_get_bits_per_sample);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7496
100826
dd451a5b1d77 (Qgobject): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 99904
diff changeset
7497 LOAD_IMGLIB_FN (gobject, g_type_init);
dd451a5b1d77 (Qgobject): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 99904
diff changeset
7498 LOAD_IMGLIB_FN (gobject, g_object_unref);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7499 LOAD_IMGLIB_FN (glib, g_error_free);
100826
dd451a5b1d77 (Qgobject): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 99904
diff changeset
7500
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7501 return 1;
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7502 }
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7503
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7504 #else
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7505 /* The following aliases for library functions allow dynamic loading
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7506 to be used on some platforms. */
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7507 #define fn_rsvg_handle_new rsvg_handle_new
97012
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7508 #define fn_rsvg_handle_get_dimensions rsvg_handle_get_dimensions
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7509 #define fn_rsvg_handle_write rsvg_handle_write
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7510 #define fn_rsvg_handle_close rsvg_handle_close
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7511 #define fn_rsvg_handle_get_pixbuf rsvg_handle_get_pixbuf
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7512 #define fn_rsvg_handle_free rsvg_handle_free
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7513
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7514 #define fn_gdk_pixbuf_get_width gdk_pixbuf_get_width
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7515 #define fn_gdk_pixbuf_get_height gdk_pixbuf_get_height
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7516 #define fn_gdk_pixbuf_get_pixels gdk_pixbuf_get_pixels
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7517 #define fn_gdk_pixbuf_get_rowstride gdk_pixbuf_get_rowstride
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7518 #define fn_gdk_pixbuf_get_colorspace gdk_pixbuf_get_colorspace
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7519 #define fn_gdk_pixbuf_get_n_channels gdk_pixbuf_get_n_channels
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7520 #define fn_gdk_pixbuf_get_has_alpha gdk_pixbuf_get_has_alpha
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7521 #define fn_gdk_pixbuf_get_bits_per_sample gdk_pixbuf_get_bits_per_sample
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7522
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7523 #define fn_g_type_init g_type_init
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7524 #define fn_g_object_unref g_object_unref
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7525 #define fn_g_error_free g_error_free
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7526 #endif /* !HAVE_NTGUI */
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7527
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7528 /* Load SVG image IMG for use on frame F. Value is non-zero if
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7529 successful. this function will go into the svg_type structure, and
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7530 the prototype thus needs to be compatible with that structure. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7531
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7532 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7533 svg_load (struct frame *f, struct image *img)
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7534 {
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7535 int success_p = 0;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7536 Lisp_Object file_name;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7537
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7538 /* If IMG->spec specifies a file name, create a non-file spec from it. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7539 file_name = image_spec_value (img->spec, QCfile, NULL);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7540 if (STRINGP (file_name))
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7541 {
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7542 Lisp_Object file;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7543 unsigned char *contents;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7544 int size;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7545 struct gcpro gcpro1;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7546
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7547 file = x_find_image_file (file_name);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7548 GCPRO1 (file);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7549 if (!STRINGP (file))
82781
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7550 {
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7551 image_error ("Cannot find image file `%s'", file_name, Qnil);
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7552 UNGCPRO;
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7553 return 0;
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7554 }
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7555
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7556 /* Read the entire file into memory. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7557 contents = slurp_file (SDATA (file), &size);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7558 if (contents == NULL)
82781
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7559 {
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7560 image_error ("Error loading SVG image `%s'", img->spec, Qnil);
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7561 UNGCPRO;
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7562 return 0;
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7563 }
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7564 /* If the file was slurped into memory properly, parse it. */
82781
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7565 success_p = svg_load_image (f, img, contents, size);
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7566 xfree (contents);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7567 UNGCPRO;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7568 }
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7569 /* Else its not a file, its a lisp object. Load the image from a
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7570 lisp object rather than a file. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7571 else
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7572 {
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7573 Lisp_Object data;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7574
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7575 data = image_spec_value (img->spec, QCdata, NULL);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7576 success_p = svg_load_image (f, img, SDATA (data), SBYTES (data));
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7577 }
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7578
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7579 return success_p;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7580 }
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7581
85039
50b33e26718b (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 84561
diff changeset
7582 /* svg_load_image is a helper function for svg_load, which does the
50b33e26718b (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 84561
diff changeset
7583 actual loading given contents and size, apart from frame and image
50b33e26718b (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 84561
diff changeset
7584 structures, passed from svg_load.
50b33e26718b (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 84561
diff changeset
7585
50b33e26718b (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 84561
diff changeset
7586 Uses librsvg to do most of the image processing.
50b33e26718b (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 84561
diff changeset
7587
50b33e26718b (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 84561
diff changeset
7588 Returns non-zero when successful. */
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7589 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7590 svg_load_image (struct frame *f, /* Pointer to emacs frame structure. */
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7591 struct image *img, /* Pointer to emacs image structure. */
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7592 unsigned char *contents, /* String containing the SVG XML data to be parsed. */
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7593 unsigned int size) /* Size of data in bytes. */
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7594 {
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7595 RsvgHandle *rsvg_handle;
97012
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7596 RsvgDimensionData dimension_data;
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7597 GError *error = NULL;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7598 GdkPixbuf *pixbuf;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7599 int width;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7600 int height;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7601 const guint8 *pixels;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7602 int rowstride;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7603 XImagePtr ximg;
82781
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7604 Lisp_Object specified_bg;
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7605 XColor background;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7606 int x;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7607 int y;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7608
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7609 /* g_type_init is a glib function that must be called prior to using
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7610 gnome type library functions. */
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7611 fn_g_type_init ();
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7612 /* Make a handle to a new rsvg object. */
100845
58017ff34d94 * w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 100826
diff changeset
7613 rsvg_handle = (RsvgHandle *) fn_rsvg_handle_new ();
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7614
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7615 /* Parse the contents argument and fill in the rsvg_handle. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7616 fn_rsvg_handle_write (rsvg_handle, contents, size, &error);
97012
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7617 if (error) goto rsvg_error;
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7618
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7619 /* The parsing is complete, rsvg_handle is ready to used, close it
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7620 for further writes. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7621 fn_rsvg_handle_close (rsvg_handle, &error);
97012
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7622 if (error) goto rsvg_error;
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7623
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7624 fn_rsvg_handle_get_dimensions (rsvg_handle, &dimension_data);
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7625 if (! check_image_size (f, dimension_data.width, dimension_data.height))
102392
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
7626 {
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
7627 image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
7628 goto rsvg_error;
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
7629 }
97007
2b861be36de9 (svg_load_image): Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 97003
diff changeset
7630
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7631 /* We can now get a valid pixel buffer from the svg file, if all
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7632 went ok. */
100845
58017ff34d94 * w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 100826
diff changeset
7633 pixbuf = (GdkPixbuf *) fn_rsvg_handle_get_pixbuf (rsvg_handle);
97012
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7634 if (!pixbuf) goto rsvg_error;
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7635 fn_g_object_unref (rsvg_handle);
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7636
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7637 /* Extract some meta data from the svg handle. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7638 width = fn_gdk_pixbuf_get_width (pixbuf);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7639 height = fn_gdk_pixbuf_get_height (pixbuf);
100845
58017ff34d94 * w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 100826
diff changeset
7640 pixels = (const guint8 *) fn_gdk_pixbuf_get_pixels (pixbuf);
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7641 rowstride = fn_gdk_pixbuf_get_rowstride (pixbuf);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7642
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7643 /* Validate the svg meta data. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7644 eassert (fn_gdk_pixbuf_get_colorspace (pixbuf) == GDK_COLORSPACE_RGB);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7645 eassert (fn_gdk_pixbuf_get_n_channels (pixbuf) == 4);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7646 eassert (fn_gdk_pixbuf_get_has_alpha (pixbuf));
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7647 eassert (fn_gdk_pixbuf_get_bits_per_sample (pixbuf) == 8);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7648
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7649 /* Try to create a x pixmap to hold the svg pixmap. */
82781
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7650 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7651 {
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7652 fn_g_object_unref (pixbuf);
82781
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7653 return 0;
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7654 }
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7655
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7656 init_color_table ();
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7657
82781
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7658 /* Handle alpha channel by combining the image with a background
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7659 color. */
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7660 specified_bg = image_spec_value (img->spec, QCbackground, NULL);
101838
a4a5037b3040 (svg_load_image): Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 101638
diff changeset
7661 if (!STRINGP (specified_bg)
a4a5037b3040 (svg_load_image): Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 101638
diff changeset
7662 || !x_defined_color (f, SDATA (specified_bg), &background, 0))
101638
b6df48c94ca5 * image.c (svg_load_image): Don't right-shift background RGB when
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 100951
diff changeset
7663 {
b6df48c94ca5 * image.c (svg_load_image): Don't right-shift background RGB when
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 100951
diff changeset
7664 #ifndef HAVE_NS
b6df48c94ca5 * image.c (svg_load_image): Don't right-shift background RGB when
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 100951
diff changeset
7665 background.pixel = FRAME_BACKGROUND_PIXEL (f);
b6df48c94ca5 * image.c (svg_load_image): Don't right-shift background RGB when
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 100951
diff changeset
7666 x_query_color (f, &background);
b6df48c94ca5 * image.c (svg_load_image): Don't right-shift background RGB when
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 100951
diff changeset
7667 #else
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109144
diff changeset
7668 ns_query_color (FRAME_BACKGROUND_COLOR (f), &background, 1);
101638
b6df48c94ca5 * image.c (svg_load_image): Don't right-shift background RGB when
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 100951
diff changeset
7669 #endif
b6df48c94ca5 * image.c (svg_load_image): Don't right-shift background RGB when
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 100951
diff changeset
7670 }
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7671
101838
a4a5037b3040 (svg_load_image): Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 101638
diff changeset
7672 /* SVG pixmaps specify transparency in the last byte, so right
a4a5037b3040 (svg_load_image): Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 101638
diff changeset
7673 shift 8 bits to get rid of it, since emacs doesn't support
a4a5037b3040 (svg_load_image): Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 101638
diff changeset
7674 transparency. */
a4a5037b3040 (svg_load_image): Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 101638
diff changeset
7675 background.red >>= 8;
a4a5037b3040 (svg_load_image): Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 101638
diff changeset
7676 background.green >>= 8;
a4a5037b3040 (svg_load_image): Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 101638
diff changeset
7677 background.blue >>= 8;
a4a5037b3040 (svg_load_image): Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 101638
diff changeset
7678
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7679 /* This loop handles opacity values, since Emacs assumes
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7680 non-transparent images. Each pixel must be "flattened" by
85039
50b33e26718b (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 84561
diff changeset
7681 calculating the resulting color, given the transparency of the
50b33e26718b (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 84561
diff changeset
7682 pixel, and the image background color. */
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7683 for (y = 0; y < height; ++y)
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7684 {
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7685 for (x = 0; x < width; ++x)
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7686 {
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7687 unsigned red;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7688 unsigned green;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7689 unsigned blue;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7690 unsigned opacity;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7691
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7692 red = *pixels++;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7693 green = *pixels++;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7694 blue = *pixels++;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7695 opacity = *pixels++;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7696
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7697 red = ((red * opacity)
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7698 + (background.red * ((1 << 8) - opacity)));
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7699 green = ((green * opacity)
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7700 + (background.green * ((1 << 8) - opacity)));
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7701 blue = ((blue * opacity)
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7702 + (background.blue * ((1 << 8) - opacity)));
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7703
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7704 XPutPixel (ximg, x, y, lookup_rgb_color (f, red, green, blue));
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7705 }
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7706
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7707 pixels += rowstride - 4 * width;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7708 }
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7709
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7710 #ifdef COLOR_TABLE_SUPPORT
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7711 /* Remember colors allocated for this image. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7712 img->colors = colors_in_color_table (&img->ncolors);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7713 free_color_table ();
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7714 #endif /* COLOR_TABLE_SUPPORT */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7715
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7716 fn_g_object_unref (pixbuf);
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7717
82781
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7718 img->width = width;
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7719 img->height = height;
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7720
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7721 /* Maybe fill in the background field while we have ximg handy.
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7722 Casting avoids a GCC warning. */
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7723 IMAGE_BACKGROUND (img, f, (XImagePtr_or_DC)ximg);
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
7724
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7725 /* Put the image into the pixmap, then free the X image and its
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7726 buffer. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7727 x_put_x_image (f, ximg, img->pixmap, width, height);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7728 x_destroy_x_image (ximg);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7729
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7730 return 1;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7731
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7732 rsvg_error:
97012
c5f36ea75cba (svg_load_image): Use rsvg_handle_get_dimensions to check that image
Chong Yidong <cyd@stupidchicken.com>
parents: 97007
diff changeset
7733 fn_g_object_unref (rsvg_handle);
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7734 /* FIXME: Use error->message so the user knows what is the actual
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7735 problem with the image. */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7736 image_error ("Error parsing SVG image `%s'", img->spec, Qnil);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
7737 fn_g_error_free (error);
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7738 return 0;
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7739 }
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7740
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7741 #endif /* defined (HAVE_RSVG) */
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7742
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7743
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
7744
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7745
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7746 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7747 Ghostscript
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7748 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7749
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7750 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7751 #define HAVE_GHOSTSCRIPT 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7752 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7753
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7754 /* The symbol `postscript' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7755
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7756 Lisp_Object Qpostscript;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7757
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7758 #ifdef HAVE_GHOSTSCRIPT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7759
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
7760 static int gs_image_p (Lisp_Object object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
7761 static int gs_load (struct frame *f, struct image *img);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108746
diff changeset
7762 static void gs_clear_image (struct frame *f, struct image *img);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7763
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7764 /* Keyword symbols. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7765
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7766 Lisp_Object QCloader, QCbounding_box, QCpt_width, QCpt_height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7767
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7768 /* Indices of image specification fields in gs_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7769
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7770 enum gs_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7771 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7772 GS_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7773 GS_PT_WIDTH,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7774 GS_PT_HEIGHT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7775 GS_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7776 GS_LOADER,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7777 GS_BOUNDING_BOX,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7778 GS_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7779 GS_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7780 GS_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7781 GS_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7782 GS_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7783 GS_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7784 GS_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7785 GS_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7786 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7787
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7788 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7789 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7790
105959
ba3ffbd9c422 * process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105877
diff changeset
7791 static const struct image_keyword gs_format[GS_LAST] =
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7792 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7793 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7794 {":pt-width", IMAGE_POSITIVE_INTEGER_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7795 {":pt-height", IMAGE_POSITIVE_INTEGER_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7796 {":file", IMAGE_STRING_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7797 {":loader", IMAGE_FUNCTION_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7798 {":bounding-box", IMAGE_DONT_CHECK_VALUE_TYPE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7799 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7800 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7801 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7802 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7803 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7804 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7805 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7806 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7807
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7808 /* Structure describing the image type `ghostscript'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7809
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7810 static struct image_type gs_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7811 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7812 &Qpostscript,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7813 gs_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7814 gs_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7815 gs_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7816 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7817 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7818
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7819
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7820 /* Free X resources of Ghostscript image IMG which is used on frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7821
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7822 static void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7823 gs_clear_image (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7824 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7825 /* IMG->data.ptr_val may contain a recorded colormap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7826 xfree (img->data.ptr_val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7827 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7828 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7829
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7830
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7831 /* Return non-zero if OBJECT is a valid Ghostscript image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7832 specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7833
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7834 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7835 gs_image_p (Lisp_Object object)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7836 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7837 struct image_keyword fmt[GS_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7838 Lisp_Object tem;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7839 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7840
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109160
diff changeset
7841 memcpy (fmt, gs_format, sizeof fmt);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7842
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7843 if (!parse_image_spec (object, fmt, GS_LAST, Qpostscript))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7844 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7845
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7846 /* Bounding box must be a list or vector containing 4 integers. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7847 tem = fmt[GS_BOUNDING_BOX].value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7848 if (CONSP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7849 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7850 for (i = 0; i < 4; ++i, tem = XCDR (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7851 if (!CONSP (tem) || !INTEGERP (XCAR (tem)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7852 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7853 if (!NILP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7854 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7855 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7856 else if (VECTORP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7857 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7858 if (XVECTOR (tem)->size != 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7859 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7860 for (i = 0; i < 4; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7861 if (!INTEGERP (XVECTOR (tem)->contents[i]))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7862 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7863 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7864 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7865 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7866
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7867 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7868 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7869
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7870
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7871 /* Load Ghostscript image IMG for use on frame F. Value is non-zero
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7872 if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7873
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7874 static int
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7875 gs_load (struct frame *f, struct image *img)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7876 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7877 char buffer[100];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7878 Lisp_Object window_and_pixmap_id = Qnil, loader, pt_height, pt_width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7879 struct gcpro gcpro1, gcpro2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7880 Lisp_Object frame;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7881 double in_width, in_height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7882 Lisp_Object pixel_colors = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7883
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7884 /* Compute pixel size of pixmap needed from the given size in the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7885 image specification. Sizes in the specification are in pt. 1 pt
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7886 = 1/72 in, xdpi and ydpi are stored in the frame's X display
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7887 info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7888 pt_width = image_spec_value (img->spec, QCpt_width, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7889 in_width = XFASTINT (pt_width) / 72.0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7890 img->width = in_width * FRAME_X_DISPLAY_INFO (f)->resx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7891 pt_height = image_spec_value (img->spec, QCpt_height, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7892 in_height = XFASTINT (pt_height) / 72.0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7893 img->height = in_height * FRAME_X_DISPLAY_INFO (f)->resy;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7894
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7895 if (!check_image_size (f, img->width, img->height))
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7896 {
102392
689fbe81edc4 (xbm_read_bitmap_data, png_load, svg_load_image):
Jason Rumney <jasonr@gnu.org>
parents: 101838
diff changeset
7897 image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7898 return 0;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7899 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7900
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7901 /* Create the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7902 xassert (img->pixmap == NO_PIXMAP);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7903
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7904 /* Only W32 version did BLOCK_INPUT here. ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7905 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7906 img->pixmap = XCreatePixmap (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7907 img->width, img->height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7908 DefaultDepthOfScreen (FRAME_X_SCREEN (f)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7909 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7910
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7911 if (!img->pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7912 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7913 image_error ("Unable to create pixmap for `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7914 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7915 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7916
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7917 /* Call the loader to fill the pixmap. It returns a process object
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7918 if successful. We do not record_unwind_protect here because
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7919 other places in redisplay like calling window scroll functions
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7920 don't either. Let the Lisp loader use `unwind-protect' instead. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7921 GCPRO2 (window_and_pixmap_id, pixel_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7922
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7923 sprintf (buffer, "%lu %lu",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7924 (unsigned long) FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7925 (unsigned long) img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7926 window_and_pixmap_id = build_string (buffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7927
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7928 sprintf (buffer, "%lu %lu",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7929 FRAME_FOREGROUND_PIXEL (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7930 FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7931 pixel_colors = build_string (buffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7932
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7933 XSETFRAME (frame, f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7934 loader = image_spec_value (img->spec, QCloader, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7935 if (NILP (loader))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7936 loader = intern ("gs-load-image");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7937
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7938 img->data.lisp_val = call6 (loader, frame, img->spec,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7939 make_number (img->width),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7940 make_number (img->height),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7941 window_and_pixmap_id,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7942 pixel_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7943 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7944 return PROCESSP (img->data.lisp_val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7945 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7946
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7947
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7948 /* Kill the Ghostscript process that was started to fill PIXMAP on
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7949 frame F. Called from XTread_socket when receiving an event
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7950 telling Emacs that Ghostscript has finished drawing. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7951
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7952 void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
7953 x_kill_gs_process (Pixmap pixmap, struct frame *f)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7954 {
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
7955 struct image_cache *c = FRAME_IMAGE_CACHE (f);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7956 int class, i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7957 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7958
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7959 /* Find the image containing PIXMAP. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7960 for (i = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7961 if (c->images[i]->pixmap == pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7962 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7963
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7964 /* Should someone in between have cleared the image cache, for
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7965 instance, give up. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7966 if (i == c->used)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7967 return;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7968
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7969 /* Kill the GS process. We should have found PIXMAP in the image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7970 cache and its image should contain a process object. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7971 img = c->images[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7972 xassert (PROCESSP (img->data.lisp_val));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7973 Fkill_process (img->data.lisp_val, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7974 img->data.lisp_val = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7975
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7976 #if defined (HAVE_X_WINDOWS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7977
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7978 /* On displays with a mutable colormap, figure out the colors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7979 allocated for the image by looking at the pixels of an XImage for
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7980 img->pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7981 class = FRAME_X_VISUAL (f)->class;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7982 if (class != StaticColor && class != StaticGray && class != TrueColor)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7983 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7984 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7985
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7986 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7987
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7988 /* Try to get an XImage for img->pixmep. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7989 ximg = XGetImage (FRAME_X_DISPLAY (f), img->pixmap,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7990 0, 0, img->width, img->height, ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7991 if (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7992 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7993 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7994
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7995 /* Initialize the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7996 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7997
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7998 /* For each pixel of the image, look its color up in the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7999 color table. After having done so, the color table will
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8000 contain an entry for each color used by the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8001 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8002 for (x = 0; x < img->width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8003 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8004 unsigned long pixel = XGetPixel (ximg, x, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8005 lookup_pixel_color (f, pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8006 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8007
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8008 /* Record colors in the image. Free color table and XImage. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8009 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8010 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8011 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8012 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8013 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8014
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8015 #if 0 /* This doesn't seem to be the case. If we free the colors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8016 here, we get a BadAccess later in x_clear_image when
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8017 freeing the colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8018 /* We have allocated colors once, but Ghostscript has also
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8019 allocated colors on behalf of us. So, to get the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8020 reference counts right, free them once. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8021 if (img->ncolors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8022 x_free_colors (f, img->colors, img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8023 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8024 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8025 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8026 image_error ("Cannot get X image of `%s'; colors will not be freed",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8027 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8028
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8029 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8030 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8031 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8032
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8033 /* Now that we have the pixmap, compute mask and transform the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8034 image if requested. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8035 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8036 postprocess_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8037 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8038 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8039
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8040 #endif /* HAVE_GHOSTSCRIPT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8041
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8042
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8043 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8044 Tests
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8045 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8046
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8047 #if GLYPH_DEBUG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8048
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8049 DEFUN ("imagep", Fimagep, Simagep, 1, 1, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8050 doc: /* Value is non-nil if SPEC is a valid image specification. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
8051 (Lisp_Object spec)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8052 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8053 return valid_image_p (spec) ? Qt : Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8054 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8055
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8056
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8057 DEFUN ("lookup-image", Flookup_image, Slookup_image, 1, 1, 0, "")
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
8058 (Lisp_Object spec)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8059 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8060 int id = -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8061
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8062 if (valid_image_p (spec))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8063 id = lookup_image (SELECTED_FRAME (), spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8064
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8065 debug_print (spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8066 return make_number (id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8067 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8068
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8069 #endif /* GLYPH_DEBUG != 0 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8070
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8071
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8072 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8073 Initialization
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8074 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8075
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8076 #ifdef HAVE_NTGUI
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8077 /* Image types that rely on external libraries are loaded dynamically
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8078 if the library is available. */
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8079 #define CHECK_LIB_AVAILABLE(image_type, init_lib_fn, libraries) \
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8080 define_image_type (image_type, init_lib_fn (libraries))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8081 #else
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8082 #define CHECK_LIB_AVAILABLE(image_type, init_lib_fn, libraries) \
58846
4d7444f1a64c (our_fill_input_buffer, jpeg_load, CHECK_LIB_AVAILABLE, init_image):
Richard M. Stallman <rms@gnu.org>
parents: 58752
diff changeset
8083 define_image_type (image_type, 1)
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8084 #endif /* HAVE_NTGUI */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8085
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8086 DEFUN ("init-image-library", Finit_image_library, Sinit_image_library, 2, 2, 0,
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8087 doc: /* Initialize image library implementing image type TYPE.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8088 Return non-nil if TYPE is a supported image type.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8089
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8090 Image types pbm and xbm are prebuilt; other types are loaded here.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8091 Libraries to load are specified in alist LIBRARIES (usually, the value
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8092 of `image-library-alist', which see). */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
8093 (Lisp_Object type, Lisp_Object libraries)
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8094 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8095 Lisp_Object tested;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8096
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8097 /* Don't try to reload the library. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8098 tested = Fassq (type, Vimage_type_cache);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8099 if (CONSP (tested))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8100 return XCDR (tested);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8101
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
8102 #if defined (HAVE_XPM) || defined (HAVE_NS)
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8103 if (EQ (type, Qxpm))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8104 return CHECK_LIB_AVAILABLE (&xpm_type, init_xpm_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8105 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8106
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
8107 #if defined (HAVE_JPEG) || defined (HAVE_NS)
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8108 if (EQ (type, Qjpeg))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8109 return CHECK_LIB_AVAILABLE (&jpeg_type, init_jpeg_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8110 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8111
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
8112 #if defined (HAVE_TIFF) || defined (HAVE_NS)
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8113 if (EQ (type, Qtiff))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8114 return CHECK_LIB_AVAILABLE (&tiff_type, init_tiff_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8115 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8116
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
8117 #if defined (HAVE_GIF) || defined (HAVE_NS)
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8118 if (EQ (type, Qgif))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8119 return CHECK_LIB_AVAILABLE (&gif_type, init_gif_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8120 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8121
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
8122 #if defined (HAVE_PNG) || defined (HAVE_NS)
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8123 if (EQ (type, Qpng))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8124 return CHECK_LIB_AVAILABLE (&png_type, init_png_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8125 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8126
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
8127 #if defined (HAVE_RSVG)
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
8128 if (EQ (type, Qsvg))
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
8129 return CHECK_LIB_AVAILABLE (&svg_type, init_svg_functions, libraries);
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
8130 #endif
82781
916a16bcfda2 (svg_load_image): Blend with specified background if exists.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82736
diff changeset
8131
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8132 #ifdef HAVE_GHOSTSCRIPT
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8133 if (EQ (type, Qpostscript))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8134 return CHECK_LIB_AVAILABLE (&gs_type, init_gs_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8135 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8136
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8137 /* If the type is not recognized, avoid testing it ever again. */
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8138 CACHE_IMAGE_TYPE (type, Qnil);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8139 return Qnil;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8140 }
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8141
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8142 void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
8143 syms_of_image (void)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8144 {
62815
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8145 extern Lisp_Object Qrisky_local_variable; /* Syms_of_xdisp has already run. */
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8146
64910
eef3e25f6aed (syms_of_image): Init image_types here, and call define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64770
diff changeset
8147 /* Initialize this only once, since that's what we do with Vimage_types
eef3e25f6aed (syms_of_image): Init image_types here, and call define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64770
diff changeset
8148 and they are supposed to be in sync. Initializing here gives correct
eef3e25f6aed (syms_of_image): Init image_types here, and call define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64770
diff changeset
8149 operation on GNU/Linux of calling dump-emacs after loading some images. */
eef3e25f6aed (syms_of_image): Init image_types here, and call define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64770
diff changeset
8150 image_types = NULL;
eef3e25f6aed (syms_of_image): Init image_types here, and call define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64770
diff changeset
8151
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8152 /* Must be defined now becase we're going to update it below, while
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8153 defining the supported image types. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8154 DEFVAR_LISP ("image-types", &Vimage_types,
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8155 doc: /* List of potentially supported image types.
78970
35f78a0b1e30 (syms_of_image) <image-types>: Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 78863
diff changeset
8156 Each element of the list is a symbol for an image type, like 'jpeg or 'png.
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8157 To check whether it is really supported, use `image-type-available-p'. */);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8158 Vimage_types = Qnil;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8159
62815
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8160 DEFVAR_LISP ("image-library-alist", &Vimage_library_alist,
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8161 doc: /* Alist of image types vs external libraries needed to display them.
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8162
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8163 Each element is a list (IMAGE-TYPE LIBRARY...), where the car is a symbol
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8164 representing a supported image type, and the rest are strings giving
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8165 alternate filenames for the corresponding external libraries.
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8166
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8167 Emacs tries to load the libraries in the order they appear on the
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8168 list; if none is loaded, the running session of Emacs won't
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8169 support the image type. Types 'pbm and 'xbm don't need to be
78692
6e1f6f80e430 (syms_of_image) <image-library-alist, cross-disabled-images>: Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents: 78450
diff changeset
8170 listed; they are always supported. */);
62815
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8171 Vimage_library_alist = Qnil;
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8172 Fput (intern_c_string ("image-library-alist"), Qrisky_local_variable, Qt);
62815
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8173
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8174 DEFVAR_LISP ("max-image-size", &Vmax_image_size,
66208
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8175 doc: /* Maximum size of images.
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8176 Emacs will not load an image into memory if its pixel width or
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8177 pixel height exceeds this limit.
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8178
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8179 If the value is an integer, it directly specifies the maximum
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8180 image height and width, measured in pixels. If it is a floating
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8181 point number, it specifies the maximum image height and width
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8182 as a ratio to the frame height and width. If the value is
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8183 non-numeric, there is no explicit limit on the size of images. */);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8184 Vmax_image_size = make_float (MAX_IMAGE_SIZE);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8185
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8186 Vimage_type_cache = Qnil;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8187 staticpro (&Vimage_type_cache);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8188
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8189 Qpbm = intern_c_string ("pbm");
64967
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8190 staticpro (&Qpbm);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8191 ADD_IMAGE_TYPE (Qpbm);
64967
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8192
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8193 Qxbm = intern_c_string ("xbm");
64967
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8194 staticpro (&Qxbm);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8195 ADD_IMAGE_TYPE (Qxbm);
64967
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8196
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8197 define_image_type (&xbm_type, 1);
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8198 define_image_type (&pbm_type, 1);
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8199
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8200 Qcount = intern_c_string ("count");
85710
beb909dfc54d Rewrite abbrev.c in Elisp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85254
diff changeset
8201 staticpro (&Qcount);
107719
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
8202 Qextension_data = intern_c_string ("extension-data");
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
8203 staticpro (&Qextension_data);
85710
beb909dfc54d Rewrite abbrev.c in Elisp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85254
diff changeset
8204
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8205 QCascent = intern_c_string (":ascent");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8206 staticpro (&QCascent);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8207 QCmargin = intern_c_string (":margin");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8208 staticpro (&QCmargin);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8209 QCrelief = intern_c_string (":relief");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8210 staticpro (&QCrelief);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8211 QCconversion = intern_c_string (":conversion");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8212 staticpro (&QCconversion);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8213 QCcolor_symbols = intern_c_string (":color-symbols");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8214 staticpro (&QCcolor_symbols);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8215 QCheuristic_mask = intern_c_string (":heuristic-mask");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8216 staticpro (&QCheuristic_mask);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8217 QCindex = intern_c_string (":index");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8218 staticpro (&QCindex);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8219 QCmatrix = intern_c_string (":matrix");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8220 staticpro (&QCmatrix);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8221 QCcolor_adjustment = intern_c_string (":color-adjustment");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8222 staticpro (&QCcolor_adjustment);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8223 QCmask = intern_c_string (":mask");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8224 staticpro (&QCmask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8225
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8226 Qlaplace = intern_c_string ("laplace");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8227 staticpro (&Qlaplace);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8228 Qemboss = intern_c_string ("emboss");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8229 staticpro (&Qemboss);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8230 Qedge_detection = intern_c_string ("edge-detection");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8231 staticpro (&Qedge_detection);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8232 Qheuristic = intern_c_string ("heuristic");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8233 staticpro (&Qheuristic);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8234
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8235 Qpostscript = intern_c_string ("postscript");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8236 staticpro (&Qpostscript);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8237 #ifdef HAVE_GHOSTSCRIPT
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8238 ADD_IMAGE_TYPE (Qpostscript);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8239 QCloader = intern_c_string (":loader");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8240 staticpro (&QCloader);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8241 QCbounding_box = intern_c_string (":bounding-box");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8242 staticpro (&QCbounding_box);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8243 QCpt_width = intern_c_string (":pt-width");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8244 staticpro (&QCpt_width);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8245 QCpt_height = intern_c_string (":pt-height");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8246 staticpro (&QCpt_height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8247 #endif /* HAVE_GHOSTSCRIPT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8248
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
8249 #if defined (HAVE_XPM) || defined (HAVE_NS)
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8250 Qxpm = intern_c_string ("xpm");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8251 staticpro (&Qxpm);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8252 ADD_IMAGE_TYPE (Qxpm);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8253 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8254
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
8255 #if defined (HAVE_JPEG) || defined (HAVE_NS)
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8256 Qjpeg = intern_c_string ("jpeg");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8257 staticpro (&Qjpeg);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8258 ADD_IMAGE_TYPE (Qjpeg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8259 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8260
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
8261 #if defined (HAVE_TIFF) || defined (HAVE_NS)
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8262 Qtiff = intern_c_string ("tiff");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8263 staticpro (&Qtiff);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8264 ADD_IMAGE_TYPE (Qtiff);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8265 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8266
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
8267 #if defined (HAVE_GIF) || defined (HAVE_NS)
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8268 Qgif = intern_c_string ("gif");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8269 staticpro (&Qgif);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8270 ADD_IMAGE_TYPE (Qgif);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8271 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8272
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97034
diff changeset
8273 #if defined (HAVE_PNG) || defined (HAVE_NS)
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8274 Qpng = intern_c_string ("png");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8275 staticpro (&Qpng);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8276 ADD_IMAGE_TYPE (Qpng);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8277 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8278
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
8279 #if defined (HAVE_RSVG)
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8280 Qsvg = intern_c_string ("svg");
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
8281 staticpro (&Qsvg);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8282 ADD_IMAGE_TYPE (Qsvg);
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8283 #ifdef HAVE_NTGUI
100826
dd451a5b1d77 (Qgobject): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 99904
diff changeset
8284 /* Other libraries used directly by svg code. */
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8285 Qgdk_pixbuf = intern_c_string ("gdk-pixbuf");
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8286 staticpro (&Qgdk_pixbuf);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8287 Qglib = intern_c_string ("glib");
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8288 staticpro (&Qglib);
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105678
diff changeset
8289 Qgobject = intern_c_string ("gobject");
100826
dd451a5b1d77 (Qgobject): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 99904
diff changeset
8290 staticpro (&Qgobject);
82795
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8291 #endif /* HAVE_NTGUI */
bf61b6631aba [HAVE_NTGUI]: Define dynamic loaded functions.
Jason Rumney <jasonr@gnu.org>
parents: 82781
diff changeset
8292 #endif /* HAVE_RSVG */
82518
b6db95f12a9d Paul Pogonyshev <pogonyshev at gmx.net>
Glenn Morris <rgm@gnu.org>
parents: 82318
diff changeset
8293
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8294 defsubr (&Sinit_image_library);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8295 defsubr (&Sclear_image_cache);
108746
24d486687f54 Rename image-refresh to image-flush.
Chong Yidong <cyd@stupidchicken.com>
parents: 108741
diff changeset
8296 defsubr (&Simage_flush);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8297 defsubr (&Simage_size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8298 defsubr (&Simage_mask_p);
107719
9c0ed2d6731a Rename `image-extension-data' to `image-metadata'.
Juri Linkov <juri@jurta.org>
parents: 106975
diff changeset
8299 defsubr (&Simage_metadata);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8300
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8301 #if GLYPH_DEBUG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8302 defsubr (&Simagep);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8303 defsubr (&Slookup_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8304 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8305
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8306 DEFVAR_BOOL ("cross-disabled-images", &cross_disabled_images,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8307 doc: /* Non-nil means always draw a cross over disabled images.
78692
6e1f6f80e430 (syms_of_image) <image-library-alist, cross-disabled-images>: Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents: 78450
diff changeset
8308 Disabled images are those having a `:conversion disabled' property.
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8309 A cross is always drawn on black & white displays. */);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8310 cross_disabled_images = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8311
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8312 DEFVAR_LISP ("x-bitmap-file-path", &Vx_bitmap_file_path,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8313 doc: /* List of directories to search for window system bitmap files. */);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8314 Vx_bitmap_file_path = decode_env_path ((char *) 0, PATH_BITMAPS);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8315
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8316 DEFVAR_LISP ("image-cache-eviction-delay", &Vimage_cache_eviction_delay,
108741
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
8317 doc: /* Maximum time after which images are removed from the cache.
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
8318 When an image has not been displayed this many seconds, Emacs
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
8319 automatically removes it from the image cache. If the cache contains
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
8320 a large number of images, the actual eviction time may be shorter.
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
8321 The value can also be nil, meaning the cache is never cleared.
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
8322
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
8323 The function `clear-image-cache' disregards this variable. */);
9480d787845f Improve image cache clearing logic (Bug#6230).
Chong Yidong <cyd@stupidchicken.com>
parents: 107719
diff changeset
8324 Vimage_cache_eviction_delay = make_number (300);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8325 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8326
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8327 void
109144
7dceae91724c Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 109100
diff changeset
8328 init_image (void)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8329 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8330 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8331
54348
c0422921b537 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 54341
diff changeset
8332 /* arch-tag: 123c2a5e-14a8-4c53-ab95-af47d7db49b9
c0422921b537 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 54341
diff changeset
8333 (do not change this comment) */