src/ChangeLog: Fix typos.
[emacs.git] / admin / alloc-colors.c
blob8ff699382a02cb440805b2dec5530f03563b0805
1 /* Allocate X colors. Used for testing with dense colormaps.
2 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
3 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
21 #include <X11/Xlib.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <stdarg.h>
25 #include <unistd.h>
27 void
28 fatal (const char *fmt, ...)
30 va_list ap;
32 va_start (ap, fmt);
33 vfprintf (stderr, fmt, ap);
34 fputc ('\n', stderr);
35 va_end (ap);
36 exit (1);
39 void
40 usage (const char *progname)
42 fprintf (stderr, "Usage %s options\n", progname);
43 fprintf (stderr, "-n NCOLORS allcoate NCOLORS colors\n");
44 exit (1);
47 int
48 main (int argc, char **argv)
50 Display *dpy;
51 int opt, ncolors = 0, i;
52 XColor *allocated;
53 int nallocated;
54 XColor color;
55 Colormap cmap;
57 while ((opt = getopt (argc, argv, "n:")) != EOF)
58 switch (opt)
60 case 'n':
61 ncolors = atoi (optarg);
62 break;
64 case '?':
65 usage (argv[0]);
68 if (ncolors == 0)
69 usage (argv[0]);
71 dpy = XOpenDisplay ("");
72 if (dpy == NULL)
73 fatal ("Cannot open display");
74 cmap = DefaultColormap (dpy, 0);
76 allocated = malloc (ncolors * sizeof *allocated);
77 nallocated = 0;
78 memset (&color, 0, sizeof color);
80 while (nallocated < ncolors
81 && color.red < 65536)
83 allocated[nallocated] = color;
84 if (XAllocColor (dpy, cmap, &allocated[nallocated]))
86 for (i = 0; i < nallocated; ++i)
87 if (allocated[i].red == allocated[nallocated].red
88 && allocated[i].green == allocated[nallocated].green
89 && allocated[i].blue == allocated[nallocated].blue)
90 break;
92 if (i == nallocated)
94 printf ("allocated %d/%d/%d\n",
95 allocated[nallocated].red,
96 allocated[nallocated].green,
97 allocated[nallocated].blue);
98 ++nallocated;
102 ++color.red;
103 ++color.green;
104 ++color.blue;
107 fprintf (stderr, "Waiting. Press ^C to stop.\n");
108 while (1)
109 sleep (10);
111 XCloseDisplay (dpy);
112 return 0;
115 /* arch-tag: f1be90ac-5b70-43c2-835e-5a6432a25145
116 (do not change this comment) */