annotate admin/alloc-colors.c @ 97042:0ac199626cb9 before-remove-carbon

fix up ns-extended-platform-support-mode
author Adrian Robert <Adrian.B.Robert@gmail.com>
date Sun, 27 Jul 2008 02:28:50 +0000
parents e6db9ee945b8
children ce88a631c161
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
39991
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 /* Allocate X colors. Used for testing with dense colormaps.
79744
cde444d03b82 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78240
diff changeset
2 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
75348
3d45362f1d38 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74439
diff changeset
3 Free Software Foundation, Inc.
39991
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5 This file is part of GNU Emacs.
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
6
94833
e6db9ee945b8 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79744
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
39991
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
94833
e6db9ee945b8 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79744
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
e6db9ee945b8 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79744
diff changeset
10 (at your option) any later version.
39991
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
15 GNU General Public License for more details.
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
94833
e6db9ee945b8 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79744
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
e6db9ee945b8 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79744
diff changeset
19
39991
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21 #include <X11/Xlib.h>
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 #include <stdio.h>
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
23 #include <stdlib.h>
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
24 #include <stdarg.h>
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
25 #include <unistd.h>
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27 void
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28 fatal (const char *fmt, ...)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30 va_list ap;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
31
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32 va_start (ap, fmt);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33 vfprintf (stderr, fmt, ap);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34 fputc ('\n', stderr);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
35 va_end (ap);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36 exit (1);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37 }
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
39 void
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 usage (const char *progname)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 fprintf (stderr, "Usage %s options\n", progname);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 fprintf (stderr, "-n NCOLORS allcoate NCOLORS colors\n");
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
44 exit (1);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 }
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
46
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47 int
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48 main (int argc, char **argv)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
49 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 Display *dpy;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51 int opt, ncolors = 0, i;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52 XColor *allocated;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53 int nallocated;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54 XColor color;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 Colormap cmap;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57 while ((opt = getopt (argc, argv, "n:")) != EOF)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58 switch (opt)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 case 'n':
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 ncolors = atoi (optarg);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62 break;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 39991
diff changeset
63
39991
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
64 case '?':
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65 usage (argv[0]);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 }
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
68 if (ncolors == 0)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69 usage (argv[0]);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 dpy = XOpenDisplay ("");
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72 if (dpy == NULL)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 fatal ("Cannot open display");
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74 cmap = DefaultColormap (dpy, 0);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76 allocated = malloc (ncolors * sizeof *allocated);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 nallocated = 0;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 memset (&color, 0, sizeof color);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80 while (nallocated < ncolors
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81 && color.red < 65536)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 allocated[nallocated] = color;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 if (XAllocColor (dpy, cmap, &allocated[nallocated]))
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
86 for (i = 0; i < nallocated; ++i)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
87 if (allocated[i].red == allocated[nallocated].red
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
88 && allocated[i].green == allocated[nallocated].green
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
89 && allocated[i].blue == allocated[nallocated].blue)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
90 break;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
92 if (i == nallocated)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
93 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
94 printf ("allocated %d/%d/%d\n",
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
95 allocated[nallocated].red,
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
96 allocated[nallocated].green,
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
97 allocated[nallocated].blue);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
98 ++nallocated;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
99 }
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
100 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 39991
diff changeset
101
39991
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
102 ++color.red;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
103 ++color.green;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
104 ++color.blue;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
105 }
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
106
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
107 fprintf (stderr, "Waiting. Press ^C to stop.\n");
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
108 while (1)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
109 sleep (10);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
110
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
111 XCloseDisplay (dpy);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
112 return 0;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
113 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
114
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
115 /* arch-tag: f1be90ac-5b70-43c2-835e-5a6432a25145
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
116 (do not change this comment) */