Mercurial > hg > xemacs-beta
view lib-src/gnuserv.h @ 939:025200a2163c
[xemacs-hg @ 2002-07-31 07:23:39 by michaels]
2002-07-17 Marcus Crestani <crestani@informatik.uni-tuebingen.de>
Markus Kaltenbach <makalten@informatik.uni-tuebingen.de>
Mike Sperber <mike@xemacs.org>
configure flag to turn these changes on: --use-kkcc
First we added a dumpable flag to lrecord_implementation. It shows,
if the object is dumpable and should be processed by the dumper.
* lrecord.h (struct lrecord_implementation): added dumpable flag
(MAKE_LRECORD_IMPLEMENTATION): fitted the different makro definitions
to the new lrecord_implementation and their calls.
Then we changed mark_object, that it no longer needs a mark method for
those types that have pdump descritions.
* alloc.c:
(mark_object): If the object has a description, the new mark algorithm
is called, and the object is marked according to its description.
Otherwise it uses the mark method like before.
These procedures mark objects according to their descriptions. They
are modeled on the corresponding pdumper procedures.
(mark_with_description):
(get_indirect_count):
(structure_size):
(mark_struct_contents):
These procedures still call mark_object, this is needed while there are
Lisp_Objects without descriptions left.
We added pdump descriptions for many Lisp_Objects:
* extents.c: extent_auxiliary_description
* database.c: database_description
* gui.c: gui_item_description
* scrollbar.c: scrollbar_instance_description
* toolbar.c: toolbar_button_description
* event-stream.c: command_builder_description
* mule-charset.c: charset_description
* device-msw.c: devmode_description
* dialog-msw.c: mswindows_dialog_id_description
* eldap.c: ldap_description
* postgresql.c: pgconn_description
pgresult_description
* tooltalk.c: tooltalk_message_description
tooltalk_pattern_description
* ui-gtk.c: emacs_ffi_description
emacs_gtk_object_description
* events.c:
* events.h:
* event-stream.c:
* event-Xt.c:
* event-gtk.c:
* event-tty.c:
To write a pdump description for Lisp_Event, we converted every struct
in the union event to a Lisp_Object. So we created nine new
Lisp_Objects: Lisp_Key_Data, Lisp_Button_Data, Lisp_Motion_Data,
Lisp_Process_Data, Lisp_Timeout_Data, Lisp_Eval_Data,
Lisp_Misc_User_Data, Lisp_Magic_Data, Lisp_Magic_Eval_Data.
We also wrote makro selectors and mutators for the fields of the new
designed Lisp_Event and added everywhere these new abstractions.
We implemented XD_UNION support in (mark_with_description), so
we can describe exspecially console/device specific data with XD_UNION.
To describe with XD_UNION, we added a field to these objects, which
holds the variant type of the object. This field is initialized in
the appendant constructor. The variant is an integer, it has also to
be described in an description, if XD_UNION is used.
XD_UNION is used in following descriptions:
* console.c: console_description
(get_console_variant): returns the variant
(create_console): added variant initialization
* console.h (console_variant): the different console types
* console-impl.h (struct console): added enum console_variant contype
* device.c: device_description
(Fmake_device): added variant initialization
* device-impl.h (struct device): added enum console_variant devtype
* objects.c: image_instance_description
font_instance_description
(Fmake_color_instance): added variant initialization
(Fmake_font_instance): added variant initialization
* objects-impl.h (struct Lisp_Color_Instance): added color_instance_type
* objects-impl.h (struct Lisp_Font_Instance): added font_instance_type
* process.c: process_description
(make_process_internal): added variant initialization
* process.h (process_variant): the different process types
author | michaels |
---|---|
date | Wed, 31 Jul 2002 07:23:39 +0000 |
parents | 943eaba38521 |
children | cb345077c98c |
line wrap: on
line source
/* -*-C-*- Header file for the XEmacs server and client C code. This file is part of XEmacs. Copying is permitted under those conditions described by the GNU General Public License. Copyright (C) 1989 Free Software Foundation, Inc. Author: Andy Norman (ange@hplb.hpl.hp.com), based on 'etc/server.c' and 'etc/emacsclient.c' from the 18.52 GNU Emacs distribution. Please mail bugs and suggestions to the author at the above address. */ /* HISTORY * 11-Nov-1990 bristor@simba * Added EOT stuff. */ /* * This file incorporates new features added by Bob Weiner <weiner@mot.com>, * Darrell Kindred <dkindred@cmu.edu> and Arup Mukherjee <arup@cmu.edu>. * Please see the note at the end of the README file for details. * * (If gnuserv came bundled with your emacs, the README file is probably * ../etc/gnuserv.README relative to the directory containing this file) */ #define GNUSERV_VERSION "3.12" /* Note: this setting can cause client-server connection failure if the * value of TMPDIR is not shared by client and server at run-time. */ #define USE_TMPDIR #define PATCHLEVEL 2 #define NO_SHORTNAMES /* gnuserv should not be compiled using SOCKS */ #define DO_NOT_SOCKSIFY #include <config.h> #undef signal /* Define the communication method between server and clients: * You can have either or both kinds of sockets, but you can't mix * sockets with sysv ipc */ #define INTERNET_DOMAIN_SOCKETS #ifdef HAVE_SYS_UN_H #define UNIX_DOMAIN_SOCKETS /* #define SYSV_IPC */ #endif /* * Define additional authentication protocols to be used. These methods will * be tried before falling back to the default gnuserv protocol (based on * the GNU_SECURE environment variable). Currently, only MIT-MAGIC-COOKIE-1 * is also supported. * * Comment out the next line(s) if you don't want to enable the * appropriate authentication protocol. */ #if defined (HAVE_XAUTH) #define AUTH_MAGIC_COOKIE #endif /* HAVE_XAUTH */ /* * stuff related to supporting MIT-MAGIC-COOKIE-1 */ #define MCOOKIE_SCREEN "999" /* screen # to use as the gnuserv cookie */ #define MCOOKIE_NAME "MAGIC-1" /* authentication protocol name */ #define MCOOKIE_X_NAME "MIT-MAGIC-COOKIE-1" /* as needed by X */ #define DEFAUTH_NAME "GNU-SECURE" /* name of default auth protocol */ #define AUTH_TIMEOUT 15 /* # seconds to wait for auth data */ #define AUTH_NAMESZ 15 /* max allows auth protocol name size */ /* * Pick a default communication scheme, if none was specified. */ #if !defined(SYSV_IPC) && !defined(UNIX_DOMAIN_SOCKETS) && !defined(INTERNET_DOMAIN_SOCKETS) #ifdef HAVE_SYSVIPC #define SYSV_IPC /* SYSV systems use SYSV IPC by default */ #endif /* HAVE_SYSVIPC */ #ifdef BSD #define UNIX_DOMAIN_SOCKETS /* BSD systems use Unix Domain sockets by default */ #endif /* BSD */ #endif /* No communication method pre-defined */ #include <sys/types.h> #include <sys/param.h> #include <sys/stat.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #include <signal.h> #include <errno.h> #ifdef HAVE_UNISTD_H #include <unistd.h> #endif #ifdef HAVE_SYS_TIME_H #include <sys/time.h> #endif /* * If you are using SYSV_IPC, you might want to make the buffer size bigger * since it limits the size of requests and responses. Don't make it bigger * than your system's max message size though (usually a couple of k) or else * msgsend will start failing. For sockets, using the system BUFSIZ is usually * what you want. */ # define GSERV_BUFSZ BUFSIZ #ifdef SYSV_IPC #include <sys/ipc.h> #include <sys/msg.h> #define send_string(s,str) \ if (strlen(msgp->mtext) + strlen(str) < GSERV_BUFSZ) \ strcat(msgp->mtext,str); \ else \ { \ fprintf(stderr,"%s: not enough message buffer space\n",progname); \ exit(1); \ } \ #endif /* SYSV_IPC */ #if defined(INTERNET_DOMAIN_SOCKETS) || defined(UNIX_DOMAIN_SOCKETS) #include <sys/socket.h> #endif /* INTERNET_DOMAIN_SOCKETS || UNIX_DOMAIN_SOCKETS */ #ifdef INTERNET_DOMAIN_SOCKETS #include <netdb.h> #include <netinet/in.h> #include <arpa/inet.h> #define TABLE_SIZE 101 /* The number of entries in the hash table */ #define HASH(host) host /* Rather simplistic hash function */ #define DEFAULT_PORT 21490 /* default port number to use is * DEFAULT_PORT + uid */ #endif /* INTERNET_DOMAIN_SOCKETS */ #ifdef UNIX_DOMAIN_SOCKETS #include <sys/un.h> #define HIDE_UNIX_SOCKET /* put the unix socket in a protected dir */ #endif /* UNIX_DOMAIN_SOCKETS */ /* On some platforms, we need to do the equivalent of "stty litout" to get * characters like ^D to pass through to emacs. This problem has only * been observed under emacs18; fsf19 and lemacs are probably okay without it. */ #ifndef DONT_USE_LITOUT #if !defined(HAVE_TERMIO) && !defined(HAVE_TERMIOS) && !defined(VMS) #if !defined(BSD4_1) #define USE_LITOUT #endif #endif #endif #define HOSTNAMSZ 255 /* max size of a hostname */ #define REPLYSIZ 300 /* max size of reply from server to client */ #undef FALSE #define FALSE 0 #undef TRUE #define TRUE 1 extern char *optarg; extern int optind; extern char *progname; extern char *tmpdir; /* The casts shut Sun's compiler up and are safe in the context these are actually used. */ #define max2(x,y) (((int) (x) > (int) (y)) ? (x) : (y)) #define min2(x,y) (((int) (x) < (int) (y)) ? (x) : (y)) #ifndef _NFILE /* rough guess at maximum number of open files */ #define _NFILE 20 #endif #define EOT_STR "\004" #define EOT_CHR '\004' /* connection types */ #define CONN_UNIX 0 #define CONN_INTERNET 1 #define CONN_IPC 2 /* function declarations */ int make_connection (char *hostarg, int portarg, int *s); #ifdef SYSV_IPC void disconnect_from_ipc_server(); #endif #if defined(INTERNET_DOMAIN_SOCKETS) || defined(UNIX_DOMAIN_SOCKETS) void send_string (int s, const char *msg); void disconnect_from_server (int s, int echo); int read_line (int s, char *dest); #endif #ifdef INTERNET_DOMAIN_SOCKETS int internet_addr (char *host); #endif