Mercurial > emacs
view admin/alloc-colors.c @ 43968:7ec801358b7e
(Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
(QClocal, QCremote, QCserver, QCdatagram, QCnowait, QCnoquery,QCstop)
(QCcoding, QCoptions, QCfilter, QCsentinel, QClog, QCfeature):
New variables.
(NETCONN1_P): New macro.
(DATAGRAM_SOCKETS): New conditional symbol.
(datagram_address): New array.
(DATAGRAM_CONN_P, DATAGRAM_CHAN_P): New macros.
(status_message): Use concat3.
(Fprocess_status): Add `listen' status to doc string. Return `stop'
for a stopped network process.
(Fset_process_buffer): Update contact plist for network process.
(Fset_process_filter): Ditto. Don't enable input for stopped
network processes. Server must listen, even if filter is t.
(Fset_process_query_on_exit_flag, Fprocess_query_on_exit_flag):
New functions.
(Fprocess_kill_without_query): Removed. Now defined in simple.el.
(Fprocess_contact): Added KEY argument. Handle datagrams.
(list_processes_1): Optionally show only processes with the query
on exit flag set. Dynamically adjust column widths. Omit tty
column if not needed. Report stopped network processes.
Identify server and datagram network processes.
(Flist_processes): New optional arg `query-only'.
(conv_sockaddr_to_lisp, get_lisp_to_sockaddr_size)
(conv_lisp_to_sockaddr, set_socket_options)
(network_process_featurep, unwind_request_sigio): New helper functions.
(Fprocess_datagram_address, Fset_process_datagram_address):
(Fset_network_process_options): New lisp functions.
(Fopen_network_stream): Removed. Now defined in simple.el.
(Fmake_network_process): New lisp function. Code is based on previous
Fopen_network_stream, but heavily reworked with new property list based
argument list, support for datagrams, server processes, and local
sockets in addition to old client-only functionality.
(server_accept_connection): New function.
(wait_reading_process_input): Use it to handle incoming connects.
Do not enable input on a new connection if process is stopped.
(read_process_output): Handle datagram sockets. Use 2k buffer for them.
(send_process): Handle datagram sockets.
(Fstop_process, Fcontinue_process): Apply to network processes. A stopped
network process is indicated by setting command field to t .
(Fprocess_send_eof): No-op if datagram connection.
(Fstatus_notify): Don't read input for a stream server socket or a
stopped network process.
(init_process): Initialize datagram_address array.
(syms_of_process): Intern and staticpro new variables, defsubr new
functions.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Sun, 17 Mar 2002 20:20:33 +0000 |
parents | 3dc22c67fd71 |
children | 23a1cea22d13 |
line wrap: on
line source
/* Allocate X colors. Used for testing with dense colormaps. Copyright (C) 2001 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include <X11/Xlib.h> #include <stdio.h> #include <stdlib.h> #include <stdarg.h> #include <unistd.h> void fatal (const char *fmt, ...) { va_list ap; va_start (ap, fmt); vfprintf (stderr, fmt, ap); fputc ('\n', stderr); va_end (ap); exit (1); } void usage (const char *progname) { fprintf (stderr, "Usage %s options\n", progname); fprintf (stderr, "-n NCOLORS allcoate NCOLORS colors\n"); exit (1); } int main (int argc, char **argv) { Display *dpy; int opt, ncolors = 0, i; XColor *allocated; int nallocated; XColor color; Colormap cmap; while ((opt = getopt (argc, argv, "n:")) != EOF) switch (opt) { case 'n': ncolors = atoi (optarg); break; case '?': usage (argv[0]); } if (ncolors == 0) usage (argv[0]); dpy = XOpenDisplay (""); if (dpy == NULL) fatal ("Cannot open display"); cmap = DefaultColormap (dpy, 0); allocated = malloc (ncolors * sizeof *allocated); nallocated = 0; memset (&color, 0, sizeof color); while (nallocated < ncolors && color.red < 65536) { allocated[nallocated] = color; if (XAllocColor (dpy, cmap, &allocated[nallocated])) { for (i = 0; i < nallocated; ++i) if (allocated[i].red == allocated[nallocated].red && allocated[i].green == allocated[nallocated].green && allocated[i].blue == allocated[nallocated].blue) break; if (i == nallocated) { printf ("allocated %d/%d/%d\n", allocated[nallocated].red, allocated[nallocated].green, allocated[nallocated].blue); ++nallocated; } } ++color.red; ++color.green; ++color.blue; } fprintf (stderr, "Waiting. Press ^C to stop.\n"); while (1) sleep (10); XCloseDisplay (dpy); return 0; }