annotate admin/alloc-colors.c @ 74447:b57213679354

(Interactive Shell): Mention the alternative to `~/.emacs_SHELLNAME', which is `~/.emacs.d/init_SHELLNAME.sh'.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 05 Dec 2006 14:27:41 +0000
parents ddcbd2c1b70d
children 3d45362f1d38 f1d13e615070
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.
74439
ddcbd2c1b70d Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 70120
diff changeset
2 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 Free Software
ddcbd2c1b70d Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 70120
diff changeset
3 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
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
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
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10 any later version.
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
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
64079
c53a9463c31a Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
c53a9463c31a Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
20 Boston, MA 02110-1301, USA. */
39991
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 #include <X11/Xlib.h>
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
23 #include <stdio.h>
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
24 #include <stdlib.h>
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
25 #include <stdarg.h>
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26 #include <unistd.h>
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28 void
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29 fatal (const char *fmt, ...)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
31 va_list ap;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33 va_start (ap, fmt);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34 vfprintf (stderr, fmt, ap);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
35 fputc ('\n', stderr);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36 va_end (ap);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37 exit (1);
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
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 void
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41 usage (const char *progname)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 fprintf (stderr, "Usage %s options\n", progname);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
44 fprintf (stderr, "-n NCOLORS allcoate NCOLORS colors\n");
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 exit (1);
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
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48 int
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
49 main (int argc, char **argv)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51 Display *dpy;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52 int opt, ncolors = 0, i;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53 XColor *allocated;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54 int nallocated;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 XColor color;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56 Colormap cmap;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58 while ((opt = getopt (argc, argv, "n:")) != EOF)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 switch (opt)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 case 'n':
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62 ncolors = atoi (optarg);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
63 break;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 39991
diff changeset
64
39991
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65 case '?':
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 usage (argv[0]);
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
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69 if (ncolors == 0)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70 usage (argv[0]);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72 dpy = XOpenDisplay ("");
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 if (dpy == NULL)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74 fatal ("Cannot open display");
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75 cmap = DefaultColormap (dpy, 0);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 allocated = malloc (ncolors * sizeof *allocated);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 nallocated = 0;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79 memset (&color, 0, sizeof color);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81 while (nallocated < ncolors
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82 && color.red < 65536)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 allocated[nallocated] = color;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 if (XAllocColor (dpy, cmap, &allocated[nallocated]))
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
86 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
87 for (i = 0; i < nallocated; ++i)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
88 if (allocated[i].red == allocated[nallocated].red
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
89 && allocated[i].green == allocated[nallocated].green
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
90 && allocated[i].blue == allocated[nallocated].blue)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91 break;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
92
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
93 if (i == nallocated)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
94 {
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
95 printf ("allocated %d/%d/%d\n",
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
96 allocated[nallocated].red,
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
97 allocated[nallocated].green,
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
98 allocated[nallocated].blue);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
99 ++nallocated;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
100 }
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
101 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 39991
diff changeset
102
39991
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
103 ++color.red;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
104 ++color.green;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
105 ++color.blue;
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
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
108 fprintf (stderr, "Waiting. Press ^C to stop.\n");
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
109 while (1)
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
110 sleep (10);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
111
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
112 XCloseDisplay (dpy);
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
113 return 0;
3dc22c67fd71 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
114 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
115
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
116 /* arch-tag: f1be90ac-5b70-43c2-835e-5a6432a25145
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
117 (do not change this comment) */