1 /* Client process that communicates with GNU Emacs acting as server.
2 Copyright (C) 1986, 1987, 1994, 1999, 2000, 2001, 2002, 2003, 2004,
3 2005, 2006, 2007, 2008, 2009 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/>. */
27 /* config.h defines these, which disables sockets altogether! */
34 # include <commctrl.h>
36 # define NO_SOCKETS_IN_FILE_SYSTEM
38 # define HSOCKET SOCKET
39 # define CLOSE_SOCKET closesocket
40 # define INITIALIZE() (initialize_sockets ())
42 #else /* !WINDOWSNT */
46 # ifdef HAVE_INET_SOCKETS
47 # include <netinet/in.h>
50 # include <arpa/inet.h>
52 # define INVALID_SOCKET -1
54 # define CLOSE_SOCKET close
61 #endif /* !WINDOWSNT */
75 #else /* not WINDOWSNT */
77 #endif /* not WINDOWSNT */
84 char *getenv (), *getwd ();
89 #define egetenv(VAR) w32_getenv(VAR)
91 #define egetenv(VAR) getenv(VAR)
95 #define VERSION "unspecified"
100 #define EXIT_SUCCESS 0
104 #define EXIT_FAILURE 1
119 /* Additional space when allocating buffers for filenames, etc. */
120 #define EXTRA_SPACE 100
123 /* Name used to invoke this program. */
126 /* The second argument to main. */
129 /* Nonzero means don't wait for a response from Emacs. --no-wait. */
132 /* Nonzero means args are expressions to be evaluated. --eval. */
135 /* Nonzero means don't open a new frame. Inverse of --create-frame. */
136 int current_frame
= 1;
138 /* The display on which Emacs should work. --display. */
139 char *display
= NULL
;
141 /* Nonzero means open a new Emacs frame on the current terminal. */
144 /* If non-NULL, the name of an editor to fallback to if the server
145 is not running. --alternate-editor. */
146 const char *alternate_editor
= NULL
;
148 /* If non-NULL, the filename of the UNIX socket. */
149 char *socket_name
= NULL
;
151 /* If non-NULL, the filename of the authentication file. */
152 char *server_file
= NULL
;
154 /* PID of the Emacs server process. */
157 void print_help_and_exit () NO_RETURN
;
159 struct option longopts
[] =
161 { "no-wait", no_argument
, NULL
, 'n' },
162 { "eval", no_argument
, NULL
, 'e' },
163 { "help", no_argument
, NULL
, 'H' },
164 { "version", no_argument
, NULL
, 'V' },
165 { "tty", no_argument
, NULL
, 't' },
166 { "nw", no_argument
, NULL
, 't' },
167 { "create-frame", no_argument
, NULL
, 'c' },
168 { "alternate-editor", required_argument
, NULL
, 'a' },
169 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
170 { "socket-name", required_argument
, NULL
, 's' },
172 { "server-file", required_argument
, NULL
, 'f' },
174 { "display", required_argument
, NULL
, 'd' },
180 /* Like malloc but get fatal error if memory is exhausted. */
186 long *result
= (long *) malloc (size
);
195 /* Like strdup but get a fatal error if memory is exhausted. */
198 xstrdup (const char *s
)
200 char *result
= strdup (s
);
210 #if !defined (HAVE_GET_CURRENT_DIR_NAME) || defined (BROKEN_GET_CURRENT_DIR_NAME)
213 #ifndef DIRECTORY_SEP
214 #define DIRECTORY_SEP '/'
216 #ifndef IS_DIRECTORY_SEP
217 #define IS_DIRECTORY_SEP(_c_) ((_c_) == DIRECTORY_SEP)
219 #ifndef IS_DEVICE_SEP
221 #define IS_DEVICE_SEP(_c_) 0
223 #define IS_DEVICE_SEP(_c_) ((_c_) == DEVICE_SEP)
227 #define IS_ANY_SEP(_c_) (IS_DIRECTORY_SEP (_c_))
231 /* Return the current working directory. Returns NULL on errors.
232 Any other returned value must be freed with free. This is used
233 only when get_current_dir_name is not defined on the system. */
235 get_current_dir_name ()
239 struct stat dotstat
, pwdstat
;
240 /* If PWD is accurate, use it instead of calling getwd. PWD is
241 sometimes a nicer name, and using it may avoid a fatal error if a
242 parent directory is searchable but not readable. */
243 if ((pwd
= egetenv ("PWD")) != 0
244 && (IS_DIRECTORY_SEP (*pwd
) || (*pwd
&& IS_DEVICE_SEP (pwd
[1])))
245 && stat (pwd
, &pwdstat
) == 0
246 && stat (".", &dotstat
) == 0
247 && dotstat
.st_ino
== pwdstat
.st_ino
248 && dotstat
.st_dev
== pwdstat
.st_dev
250 && strlen (pwd
) < MAXPATHLEN
254 buf
= (char *) xmalloc (strlen (pwd
) + 1);
262 size_t buf_size
= 1024;
263 buf
= (char *) xmalloc (buf_size
);
268 if (getcwd (buf
, buf_size
) == buf
)
272 int tmp_errno
= errno
;
278 buf
= (char *) realloc (buf
, buf_size
);
286 /* We need MAXPATHLEN here. */
287 buf
= (char *) xmalloc (MAXPATHLEN
+ 1);
290 if (getwd (buf
) == NULL
)
292 int tmp_errno
= errno
;
305 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
307 /* Retrieve an environment variable from the Emacs subkeys of the registry.
308 Return NULL if the variable was not found, or it was empty.
309 This code is based on w32_get_resource (w32.c). */
311 w32_get_resource (predefined
, key
, type
)
316 HKEY hrootkey
= NULL
;
320 if (RegOpenKeyEx (predefined
, REG_ROOT
, 0, KEY_READ
, &hrootkey
) == ERROR_SUCCESS
)
322 if (RegQueryValueEx (hrootkey
, key
, NULL
, NULL
, NULL
, &cbData
) == ERROR_SUCCESS
)
324 result
= (char *) xmalloc (cbData
);
326 if ((RegQueryValueEx (hrootkey
, key
, NULL
, type
, result
, &cbData
) != ERROR_SUCCESS
)
334 RegCloseKey (hrootkey
);
341 getenv wrapper for Windows
343 This is needed to duplicate Emacs's behavior, which is to look for enviroment
344 variables in the registry if they don't appear in the environment.
353 if (value
= getenv (envvar
))
354 /* Found in the environment. */
357 if (! (value
= w32_get_resource (HKEY_CURRENT_USER
, envvar
, &dwType
)) &&
358 ! (value
= w32_get_resource (HKEY_LOCAL_MACHINE
, envvar
, &dwType
)))
360 /* "w32console" is what Emacs on Windows uses for tty-type under -nw. */
361 if (strcmp (envvar
, "TERM") == 0)
362 return xstrdup ("w32console");
363 /* Found neither in the environment nor in the registry. */
367 if (dwType
== REG_SZ
)
368 /* Registry; no need to expand. */
371 if (dwType
== REG_EXPAND_SZ
)
375 if (size
= ExpandEnvironmentStrings (value
, NULL
, 0))
377 char *buffer
= (char *) xmalloc (size
);
378 if (ExpandEnvironmentStrings (value
, buffer
, size
))
380 /* Found and expanded. */
385 /* Error expanding. */
390 /* Not the right type, or not correctly expanded. */
398 static int window_app
= -1;
399 char szTitle
[MAX_PATH
];
403 /* Checking for STDOUT does not work; it's a valid handle also in
404 nonconsole apps. Testing for the console title seems to work. */
405 window_app
= (GetConsoleTitleA (szTitle
, MAX_PATH
) == 0);
407 InitCommonControls();
414 execvp wrapper for Windows. Quotes arguments with embedded spaces.
416 This is necessary due to the broken implementation of exec* routines in
417 the Microsoft libraries: they concatenate the arguments together without
418 quoting special characters, and pass the result to CreateProcess, with
419 predictably bad results. By contrast, Posix execvp passes the arguments
420 directly into the argv array of the child process.
423 w32_execvp (path
, argv
)
429 /* Required to allow a .BAT script as alternate editor. */
430 argv
[0] = (char *) alternate_editor
;
432 for (i
= 0; argv
[i
]; i
++)
433 if (strchr (argv
[i
], ' '))
435 char *quoted
= alloca (strlen (argv
[i
]) + 3);
436 sprintf (quoted
, "\"%s\"", argv
[i
]);
440 return execvp (path
, argv
);
444 #define execvp w32_execvp
446 /* Emulation of ttyname for Windows. */
453 #endif /* WINDOWSNT */
455 /* Display a normal or error message.
456 On Windows, use a message box if compiled as a Windows app. */
458 message (int is_error
, char *message
, ...)
463 va_start (args
, message
);
464 vsprintf (msg
, message
, args
);
468 if (w32_window_app ())
471 MessageBox (NULL
, msg
, "Emacsclient ERROR", MB_ICONERROR
);
473 MessageBox (NULL
, msg
, "Emacsclient", MB_ICONINFORMATION
);
478 FILE *f
= is_error
? stderr
: stdout
;
485 /* Decode the options from argv and argc.
486 The global variable `optind' will say how many arguments we used up. */
489 decode_options (argc
, argv
)
493 alternate_editor
= egetenv ("ALTERNATE_EDITOR");
497 int opt
= getopt_long_only (argc
, argv
,
498 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
511 /* If getopt returns 0, then it has already processed a
512 long-named option. We should do nothing. */
516 alternate_editor
= optarg
;
519 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
521 socket_name
= optarg
;
526 server_file
= optarg
;
529 /* We used to disallow this argument in w32, but it seems better
530 to allow it, for the occasional case where the user is
531 connecting with a w32 client to a server compiled with X11
546 message (FALSE
, "emacsclient %s\n", VERSION
);
560 print_help_and_exit ();
564 message (TRUE
, "Try `%s --help' for more information\n", progname
);
570 /* If the -c option is used (without -t) and no --display argument
571 is provided, try $DISPLAY.
572 Without the -c option, we used to set `display' to $DISPLAY by
573 default, but this changed the default behavior and is sometimes
574 inconvenient. So we force users to use "--display $DISPLAY" if
575 they want Emacs to connect to their current display. */
576 if (!current_frame
&& !tty
&& !display
)
577 display
= egetenv ("DISPLAY");
579 /* A null-string display is invalid. */
580 if (display
&& strlen (display
) == 0)
583 /* If no display is available, new frames are tty frames. */
584 if (!current_frame
&& !display
)
587 /* --no-wait implies --current-frame on ttys when there are file
588 arguments or expressions given. */
589 if (nowait
&& tty
&& argc
- optind
> 0)
593 if (alternate_editor
&& alternate_editor
[0] == '\0')
595 message (TRUE
, "--alternate-editor argument or ALTERNATE_EDITOR variable cannot be\n\
599 #endif /* WINDOWSNT */
604 print_help_and_exit ()
606 /* Spaces and tabs are significant in this message; they're chosen so the
607 message aligns properly both in a tty and in a Windows message box.
608 Please try to preserve them; otherwise the output is very hard to read
609 when using emacsclientw. */
611 "Usage: %s [OPTIONS] FILE...\n\
612 Tell the Emacs server to visit the specified files.\n\
613 Every FILE can be either just a FILENAME or [+LINE[:COLUMN]] FILENAME.\n\
615 The following OPTIONS are accepted:\n\
616 -V, --version Just print version info and return\n\
617 -H, --help Print this usage information message\n\
618 -nw, -t, --tty Open a new Emacs frame on the current terminal\n\
619 -c, --create-frame Create a new frame instead of trying to\n\
620 use the current Emacs frame\n\
621 -e, --eval Evaluate the FILE arguments as ELisp expressions\n\
622 -n, --no-wait Don't wait for the server to return\n\
623 -d, --display=DISPLAY Visit the file in the given display\n"
624 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
625 "-s, --socket-name=FILENAME\n\
626 Set filename of the UNIX socket for communication\n"
628 "-f, --server-file=FILENAME\n\
629 Set filename of the TCP authentication file\n\
630 -a, --alternate-editor=EDITOR\n\
631 Editor to fallback to if the server is not running\n"
633 " If EDITOR is the empty string, start Emacs in daemon\n\
634 mode and try connecting again\n"
635 #endif /* WINDOWSNT */
637 Report bugs to bug-gnu-emacs@gnu.org.\n", progname
);
642 Try to run a different command, or --if no alternate editor is
643 defined-- exit with an errorcode.
644 Uses argv, but gets it from the global variable main_argv.
649 if (alternate_editor
)
653 execvp (alternate_editor
, main_argv
+ i
);
654 message (TRUE
, "%s: error executing alternate editor \"%s\"\n",
655 progname
, alternate_editor
);
661 #if !defined (HAVE_SOCKETS) || !defined (HAVE_INET_SOCKETS)
670 message (TRUE
, "%s: Sorry, the Emacs server is supported only\n"
671 "on systems with Berkeley sockets.\n",
676 #else /* HAVE_SOCKETS && HAVE_INET_SOCKETS */
679 # include <winsock2.h>
681 # include <sys/types.h>
682 # include <sys/socket.h>
686 #define AUTH_KEY_LENGTH 64
687 #define SEND_BUFFER_SIZE 4096
689 extern char *strerror ();
692 /* Buffer to accumulate data to send in TCP connections. */
693 char send_buffer
[SEND_BUFFER_SIZE
+ 1];
694 int sblen
= 0; /* Fill pointer for the send buffer. */
695 /* Socket used to communicate with the Emacs server process. */
696 HSOCKET emacs_socket
= 0;
698 /* On Windows, the socket library was historically separate from the standard
699 C library, so errors are handled differently. */
701 sock_err_message (function_name
)
707 FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM
708 | FORMAT_MESSAGE_ALLOCATE_BUFFER
709 | FORMAT_MESSAGE_ARGUMENT_ARRAY
,
710 NULL
, WSAGetLastError (), 0, (LPTSTR
)&msg
, 0, NULL
);
712 message (TRUE
, "%s: %s: %s\n", progname
, function_name
, msg
);
716 message (TRUE
, "%s: %s: %s\n", progname
, function_name
, strerror (errno
));
721 /* Let's send the data to Emacs when either
722 - the data ends in "\n", or
723 - the buffer is full (but this shouldn't happen)
724 Otherwise, we just accumulate it. */
726 send_to_emacs (s
, data
)
732 int dlen
= strlen (data
);
733 if (dlen
+ sblen
>= SEND_BUFFER_SIZE
)
735 int part
= SEND_BUFFER_SIZE
- sblen
;
736 strncpy (&send_buffer
[sblen
], data
, part
);
738 sblen
= SEND_BUFFER_SIZE
;
742 strcpy (&send_buffer
[sblen
], data
);
749 if (sblen
== SEND_BUFFER_SIZE
750 || (sblen
> 0 && send_buffer
[sblen
-1] == '\n'))
752 int sent
= send (s
, send_buffer
, sblen
, 0);
754 strcpy (send_buffer
, &send_buffer
[sent
]);
761 /* In STR, insert a & before each &, each space, each newline, and
762 any initial -. Change spaces to underscores, too, so that the
763 return value never contains a space.
765 Does not change the string. Outputs the result to STREAM. */
767 quote_argument (s
, str
)
771 char *copy
= (char *) xmalloc (strlen (str
) * 2 + 1);
792 if (*p
== '&' || (*p
== '-' && p
== str
))
799 send_to_emacs (s
, copy
);
805 /* The inverse of quote_argument. Removes quoting in string STR by
806 modifying the string in place. Returns STR. */
809 unquote_argument (str
)
841 file_name_absolute_p (filename
)
842 const unsigned char *filename
;
844 /* Sanity check, it shouldn't happen. */
845 if (! filename
) return FALSE
;
847 /* /xxx is always an absolute path. */
848 if (filename
[0] == '/') return TRUE
;
850 /* Empty filenames (which shouldn't happen) are relative. */
851 if (filename
[0] == '\0') return FALSE
;
854 /* X:\xxx is always absolute. */
855 if (isalpha (filename
[0])
856 && filename
[1] == ':' && (filename
[2] == '\\' || filename
[2] == '/'))
859 /* Both \xxx and \\xxx\yyy are absolute. */
860 if (filename
[0] == '\\') return TRUE
;
867 /* Wrapper to make WSACleanup a cdecl, as required by atexit. */
869 __cdecl
close_winsock ()
874 /* Initialize the WinSock2 library. */
876 initialize_sockets ()
880 if (WSAStartup (MAKEWORD (2, 0), &wsaData
))
882 message (TRUE
, "%s: error initializing WinSock2\n", progname
);
886 atexit (close_winsock
);
888 #endif /* WINDOWSNT */
892 * Read the information needed to set up a TCP comm channel with
893 * the Emacs server: host, port, pid and authentication string.
896 get_server_config (server
, authentication
)
897 struct sockaddr_in
*server
;
898 char *authentication
;
905 if (file_name_absolute_p (server_file
))
906 config
= fopen (server_file
, "rb");
909 char *home
= egetenv ("HOME");
913 char *path
= alloca (strlen (home
) + strlen (server_file
)
915 sprintf (path
, "%s/.emacs.d/server/%s", home
, server_file
);
916 config
= fopen (path
, "rb");
919 if (!config
&& (home
= egetenv ("APPDATA")))
921 char *path
= alloca (strlen (home
) + strlen (server_file
)
923 sprintf (path
, "%s/.emacs.d/server/%s", home
, server_file
);
924 config
= fopen (path
, "rb");
932 if (fgets (dotted
, sizeof dotted
, config
)
933 && (port
= strchr (dotted
, ':'))
934 && (pid
= strchr (port
, ' ')))
941 message (TRUE
, "%s: invalid configuration info\n", progname
);
945 server
->sin_family
= AF_INET
;
946 server
->sin_addr
.s_addr
= inet_addr (dotted
);
947 server
->sin_port
= htons (atoi (port
));
949 if (! fread (authentication
, AUTH_KEY_LENGTH
, 1, config
))
951 message (TRUE
, "%s: cannot read authentication info\n", progname
);
957 emacs_pid
= atoi (pid
);
966 struct sockaddr_in server
;
967 struct linger l_arg
= {1, 1};
968 char auth_string
[AUTH_KEY_LENGTH
+ 1];
970 if (! get_server_config (&server
, auth_string
))
971 return INVALID_SOCKET
;
973 if (server
.sin_addr
.s_addr
!= inet_addr ("127.0.0.1"))
974 message (FALSE
, "%s: connected to remote socket at %s\n",
975 progname
, inet_ntoa (server
.sin_addr
));
978 * Open up an AF_INET socket
980 if ((s
= socket (AF_INET
, SOCK_STREAM
, IPPROTO_TCP
)) < 0)
982 sock_err_message ("socket");
983 return INVALID_SOCKET
;
989 if (connect (s
, (struct sockaddr
*) &server
, sizeof server
) < 0)
991 sock_err_message ("connect");
992 return INVALID_SOCKET
;
995 setsockopt (s
, SOL_SOCKET
, SO_LINGER
, (char *) &l_arg
, sizeof l_arg
);
998 * Send the authentication
1000 auth_string
[AUTH_KEY_LENGTH
] = '\0';
1002 send_to_emacs (s
, "-auth ");
1003 send_to_emacs (s
, auth_string
);
1004 send_to_emacs (s
, " ");
1010 /* Returns 1 if PREFIX is a prefix of STRING. */
1012 strprefix (char *prefix
, char *string
)
1014 return !strncmp (prefix
, string
, strlen (prefix
));
1017 /* Get tty name and type. If successful, return the type in TTY_TYPE
1018 and the name in TTY_NAME, and return 1. Otherwise, fail if NOABORT
1019 is zero, or return 0 if NOABORT is non-zero. */
1022 find_tty (char **tty_type
, char **tty_name
, int noabort
)
1024 char *type
= egetenv ("TERM");
1025 char *name
= ttyname (fileno (stdout
));
1033 message (TRUE
, "%s: could not get terminal name\n", progname
);
1044 message (TRUE
, "%s: please set the TERM variable to your terminal type\n",
1050 if (strcmp (type
, "eterm") == 0)
1056 /* This causes nasty, MULTI_KBOARD-related input lockouts. */
1057 message (TRUE
, "%s: opening a frame in an Emacs term buffer"
1058 " is not supported\n", progname
);
1069 #if !defined (NO_SOCKETS_IN_FILE_SYSTEM)
1071 /* Three possibilities:
1072 2 - can't be `stat'ed (sets errno)
1073 1 - isn't owned by us
1074 0 - success: none of the above */
1077 socket_status (socket_name
)
1080 struct stat statbfr
;
1082 if (stat (socket_name
, &statbfr
) == -1)
1085 if (statbfr
.st_uid
!= geteuid ())
1092 /* A signal handler that passes the signal to the Emacs process.
1093 Useful for SIGWINCH. */
1096 pass_signal_to_emacs (int signalnum
)
1098 int old_errno
= errno
;
1101 kill (emacs_pid
, signalnum
);
1103 signal (signalnum
, pass_signal_to_emacs
);
1107 /* Signal handler for SIGCONT; notify the Emacs process that it can
1108 now resume our tty frame. */
1111 handle_sigcont (int signalnum
)
1113 int old_errno
= errno
;
1115 if (tcgetpgrp (1) == getpgrp ())
1117 /* We are in the foreground. */
1118 send_to_emacs (emacs_socket
, "-resume \n");
1122 /* We are in the background; cancel the continue. */
1123 kill (getpid (), SIGSTOP
);
1126 signal (signalnum
, handle_sigcont
);
1130 /* Signal handler for SIGTSTP; notify the Emacs process that we are
1131 going to sleep. Normally the suspend is initiated by Emacs via
1132 server-handle-suspend-tty, but if the server gets out of sync with
1133 reality, we may get a SIGTSTP on C-z. Handling this signal and
1134 notifying Emacs about it should get things under control again. */
1137 handle_sigtstp (int signalnum
)
1139 int old_errno
= errno
;
1143 send_to_emacs (emacs_socket
, "-suspend \n");
1145 /* Unblock this signal and call the default handler by temporarily
1146 changing the handler and resignalling. */
1147 sigprocmask (SIG_BLOCK
, NULL
, &set
);
1148 sigdelset (&set
, signalnum
);
1149 signal (signalnum
, SIG_DFL
);
1150 kill (getpid (), signalnum
);
1151 sigprocmask (SIG_SETMASK
, &set
, NULL
); /* Let's the above signal through. */
1152 signal (signalnum
, handle_sigtstp
);
1158 /* Set up signal handlers before opening a frame on the current tty. */
1163 /* Set up signal handlers. */
1164 signal (SIGWINCH
, pass_signal_to_emacs
);
1166 /* Don't pass SIGINT and SIGQUIT to Emacs, because it has no way of
1167 deciding which terminal the signal came from. C-g is now a
1168 normal input event on secondary terminals. */
1170 signal (SIGINT
, pass_signal_to_emacs
);
1171 signal (SIGQUIT
, pass_signal_to_emacs
);
1174 signal (SIGCONT
, handle_sigcont
);
1175 signal (SIGTSTP
, handle_sigtstp
);
1176 signal (SIGTTOU
, handle_sigtstp
);
1184 struct sockaddr_un server
;
1187 * Open up an AF_UNIX socket in this person's home directory
1190 if ((s
= socket (AF_UNIX
, SOCK_STREAM
, 0)) < 0)
1192 message (TRUE
, "%s: socket: %s\n", progname
, strerror (errno
));
1193 return INVALID_SOCKET
;
1196 server
.sun_family
= AF_UNIX
;
1199 int sock_status
= 0;
1200 int default_sock
= !socket_name
;
1201 int saved_errno
= 0;
1202 char *server_name
= "server";
1205 if (socket_name
&& !index (socket_name
, '/') && !index (socket_name
, '\\'))
1206 { /* socket_name is a file name component. */
1207 server_name
= socket_name
;
1209 default_sock
= 1; /* Try both UIDs. */
1214 tmpdir
= egetenv ("TMPDIR");
1217 socket_name
= alloca (strlen (tmpdir
) + strlen (server_name
)
1219 sprintf (socket_name
, "%s/emacs%d/%s",
1220 tmpdir
, (int) geteuid (), server_name
);
1223 if (strlen (socket_name
) < sizeof (server
.sun_path
))
1224 strcpy (server
.sun_path
, socket_name
);
1227 message (TRUE
, "%s: socket-name %s too long\n",
1228 progname
, socket_name
);
1232 /* See if the socket exists, and if it's owned by us. */
1233 sock_status
= socket_status (server
.sun_path
);
1234 saved_errno
= errno
;
1235 if (sock_status
&& default_sock
)
1237 /* Failing that, see if LOGNAME or USER exist and differ from
1238 our euid. If so, look for a socket based on the UID
1239 associated with the name. This is reminiscent of the logic
1240 that init_editfns uses to set the global Vuser_full_name. */
1242 char *user_name
= (char *) egetenv ("LOGNAME");
1245 user_name
= (char *) egetenv ("USER");
1249 struct passwd
*pw
= getpwnam (user_name
);
1251 if (pw
&& (pw
->pw_uid
!= geteuid ()))
1253 /* We're running under su, apparently. */
1254 socket_name
= alloca (strlen (tmpdir
) + strlen (server_name
)
1256 sprintf (socket_name
, "%s/emacs%d/%s",
1257 tmpdir
, (int) pw
->pw_uid
, server_name
);
1259 if (strlen (socket_name
) < sizeof (server
.sun_path
))
1260 strcpy (server
.sun_path
, socket_name
);
1263 message (TRUE
, "%s: socket-name %s too long\n",
1264 progname
, socket_name
);
1265 exit (EXIT_FAILURE
);
1268 sock_status
= socket_status (server
.sun_path
);
1269 saved_errno
= errno
;
1272 errno
= saved_errno
;
1276 switch (sock_status
)
1279 /* There's a socket, but it isn't owned by us. This is OK if
1281 if (0 != geteuid ())
1283 message (TRUE
, "%s: Invalid socket owner\n", progname
);
1284 return INVALID_SOCKET
;
1290 if (saved_errno
== ENOENT
)
1292 "%s: can't find socket; have you started the server?\n\
1293 To start the server in Emacs, type \"M-x server-start\".\n",
1296 message (TRUE
, "%s: can't stat %s: %s\n",
1297 progname
, server
.sun_path
, strerror (saved_errno
));
1298 return INVALID_SOCKET
;
1302 if (connect (s
, (struct sockaddr
*) &server
, strlen (server
.sun_path
) + 2)
1305 message (TRUE
, "%s: connect: %s\n", progname
, strerror (errno
));
1306 return INVALID_SOCKET
;
1311 #endif /* ! NO_SOCKETS_IN_FILE_SYSTEM */
1314 set_socket (int no_exit_if_error
)
1320 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
1321 /* Explicit --socket-name argument. */
1324 s
= set_local_socket ();
1325 if ((s
!= INVALID_SOCKET
) || no_exit_if_error
)
1327 message (TRUE
, "%s: error accessing socket \"%s\"\n",
1328 progname
, socket_name
);
1329 exit (EXIT_FAILURE
);
1333 /* Explicit --server-file arg or EMACS_SERVER_FILE variable. */
1335 server_file
= egetenv ("EMACS_SERVER_FILE");
1339 s
= set_tcp_socket ();
1340 if ((s
!= INVALID_SOCKET
) || no_exit_if_error
)
1343 message (TRUE
, "%s: error accessing server file \"%s\"\n",
1344 progname
, server_file
);
1345 exit (EXIT_FAILURE
);
1348 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
1349 /* Implicit local socket. */
1350 s
= set_local_socket ();
1351 if (s
!= INVALID_SOCKET
)
1355 /* Implicit server file. */
1356 server_file
= "server";
1357 s
= set_tcp_socket ();
1358 if ((s
!= INVALID_SOCKET
) || no_exit_if_error
)
1361 /* No implicit or explicit socket, and no alternate editor. */
1362 message (TRUE
, "%s: No socket or alternate editor. Please use:\n\n"
1363 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
1366 "\t--server-file (or environment variable EMACS_SERVER_FILE)\n\
1367 \t--alternate-editor (or environment variable ALTERNATE_EDITOR)\n",
1369 exit (EXIT_FAILURE
);
1373 FARPROC set_fg
; /* Pointer to AllowSetForegroundWindow. */
1374 FARPROC get_wc
; /* Pointer to RealGetWindowClassA. */
1377 w32_find_emacs_process (hWnd
, lParam
)
1384 /* Reject any window not of class "Emacs". */
1385 if (! get_wc (hWnd
, class, sizeof (class))
1386 || strcmp (class, "Emacs"))
1389 /* We only need the process id, not the thread id. */
1390 (void) GetWindowThreadProcessId (hWnd
, &pid
);
1392 /* Not the one we're looking for. */
1393 if (pid
!= (DWORD
) emacs_pid
) return TRUE
;
1395 /* OK, let's raise it. */
1398 /* Stop enumeration. */
1403 * Search for a window of class "Emacs" and owned by a process with
1404 * process id = emacs_pid. If found, allow it to grab the focus.
1411 /* It shouldn't happen when dealing with TCP sockets. */
1412 if (!emacs_pid
) return;
1414 if (!(hUser32
= LoadLibrary ("user32.dll"))) return;
1416 /* Modern Windows restrict which processes can set the foreground window.
1417 emacsclient can allow Emacs to grab the focus by calling the function
1418 AllowSetForegroundWindow. Unfortunately, older Windows (W95, W98 and
1419 NT) lack this function, so we have to check its availability. */
1420 if ((set_fg
= GetProcAddress (hUser32
, "AllowSetForegroundWindow"))
1421 && (get_wc
= GetProcAddress (hUser32
, "RealGetWindowClassA")))
1422 EnumWindows (w32_find_emacs_process
, (LPARAM
) 0);
1424 FreeLibrary (hUser32
);
1428 /* Start the emacs daemon and try to connect to it. */
1431 start_daemon_and_retry_set_socket (void)
1442 w
= waitpid (dpid
, &status
, WUNTRACED
| WCONTINUED
);
1444 if ((w
== -1) || !WIFEXITED (status
) || WEXITSTATUS(status
))
1446 message (TRUE
, "Error: Could not start the Emacs daemon\n");
1447 exit (EXIT_FAILURE
);
1450 /* Try connecting, the daemon should have started by now. */
1451 message (TRUE
, "Emacs daemon should have started, trying to connect again\n");
1452 if ((emacs_socket
= set_socket (1)) == INVALID_SOCKET
)
1454 message (TRUE
, "Error: Cannot connect even after starting the Emacs daemon\n");
1455 exit (EXIT_FAILURE
);
1460 fprintf (stderr
, "Error: Cannot fork!\n");
1465 char *d_argv
[] = {"emacs", "--daemon", 0 };
1466 if (socket_name
!= NULL
)
1468 /* Pass --daemon=socket_name as argument. */
1469 char *deq
= "--daemon=";
1470 char *daemon_arg
= alloca (strlen (deq
)
1471 + strlen (socket_name
) + 1);
1472 strcpy (daemon_arg
, deq
);
1473 strcat (daemon_arg
, socket_name
);
1474 d_argv
[1] = daemon_arg
;
1476 execvp ("emacs", d_argv
);
1477 message (TRUE
, "%s: error starting emacs daemon\n", progname
);
1479 #endif /* WINDOWSNT */
1487 int i
, rl
, needlf
= 0;
1489 char string
[BUFSIZ
+1];
1490 int null_socket_name
, null_server_file
, start_daemon_if_needed
;
1495 /* Process options. */
1496 decode_options (argc
, argv
);
1498 if ((argc
- optind
< 1) && !eval
&& current_frame
)
1500 message (TRUE
, "%s: file name or argument required\n"
1501 "Try `%s --help' for more information\n",
1502 progname
, progname
);
1503 exit (EXIT_FAILURE
);
1506 /* If alternate_editor is the empty string, start the emacs daemon
1507 in case of failure to connect. */
1508 start_daemon_if_needed
= (alternate_editor
1509 && (alternate_editor
[0] == '\0'));
1510 if (start_daemon_if_needed
)
1512 /* set_socket changes the values for socket_name and
1513 server_file, we need to reset them, if they were NULL before
1514 for the second call to set_socket. */
1515 null_socket_name
= (socket_name
== NULL
);
1516 null_server_file
= (server_file
== NULL
);
1519 if ((emacs_socket
= set_socket (alternate_editor
1520 || start_daemon_if_needed
)) == INVALID_SOCKET
)
1521 if (start_daemon_if_needed
)
1523 /* Reset socket_name and server_file if they were NULL
1524 before the set_socket call. */
1525 if (null_socket_name
)
1527 if (null_server_file
)
1530 start_daemon_and_retry_set_socket ();
1535 cwd
= get_current_dir_name ();
1538 /* getwd puts message in STRING if it fails. */
1539 message (TRUE
, "%s: %s\n", progname
,
1540 "Cannot get current working directory");
1548 /* Send over our environment and current directory. */
1551 extern char **environ
;
1553 for (i
= 0; environ
[i
]; i
++)
1555 char *name
= xstrdup (environ
[i
]);
1556 char *value
= strchr (name
, '=');
1557 send_to_emacs (emacs_socket
, "-env ");
1558 quote_argument (emacs_socket
, environ
[i
]);
1559 send_to_emacs (emacs_socket
, " ");
1561 send_to_emacs (emacs_socket
, "-dir ");
1562 quote_argument (emacs_socket
, cwd
);
1563 send_to_emacs (emacs_socket
, "/");
1564 send_to_emacs (emacs_socket
, " ");
1569 send_to_emacs (emacs_socket
, "-nowait ");
1572 send_to_emacs (emacs_socket
, "-current-frame ");
1576 send_to_emacs (emacs_socket
, "-display ");
1577 quote_argument (emacs_socket
, display
);
1578 send_to_emacs (emacs_socket
, " ");
1581 /* If using the current frame, send tty information to Emacs anyway.
1582 In daemon mode, Emacs may need to occupy this tty if no other
1583 frame is available. */
1584 if (tty
|| (current_frame
&& !eval
))
1586 char *tty_type
, *tty_name
;
1588 if (find_tty (&tty_type
, &tty_name
, !tty
))
1590 #if !defined (NO_SOCKETS_IN_FILE_SYSTEM)
1593 send_to_emacs (emacs_socket
, "-tty ");
1594 quote_argument (emacs_socket
, tty_name
);
1595 send_to_emacs (emacs_socket
, " ");
1596 quote_argument (emacs_socket
, tty_type
);
1597 send_to_emacs (emacs_socket
, " ");
1601 if (!current_frame
&& !tty
)
1602 send_to_emacs (emacs_socket
, "-window-system ");
1604 if ((argc
- optind
> 0))
1606 for (i
= optind
; i
< argc
; i
++)
1612 /* Don't prepend cwd or anything like that. */
1613 send_to_emacs (emacs_socket
, "-eval ");
1614 quote_argument (emacs_socket
, argv
[i
]);
1615 send_to_emacs (emacs_socket
, " ");
1619 if (*argv
[i
] == '+')
1621 char *p
= argv
[i
] + 1;
1622 while (isdigit ((unsigned char) *p
) || *p
== ':') p
++;
1625 send_to_emacs (emacs_socket
, "-position ");
1626 quote_argument (emacs_socket
, argv
[i
]);
1627 send_to_emacs (emacs_socket
, " ");
1633 else if (! file_name_absolute_p (argv
[i
]))
1637 /* Call GetFullPathName so filenames of the form X:Y, where X is
1638 a valid drive designator, are interpreted as drive:path, not
1639 file:stream, and treated as absolute.
1640 The user can still pass a file:stream if desired (for example,
1641 .\X:Y), but it is not very useful, as Emacs currently does a
1642 very bad job of dealing with NTFS streams. */
1644 char *filename
= (char *) xmalloc (MAX_PATH
);
1647 size
= GetFullPathName (argv
[i
], MAX_PATH
, filename
, NULL
);
1648 if (size
> 0 && size
< MAX_PATH
)
1658 send_to_emacs (emacs_socket
, "-file ");
1661 quote_argument (emacs_socket
, cwd
);
1662 send_to_emacs (emacs_socket
, "/");
1664 quote_argument (emacs_socket
, argv
[i
]);
1665 send_to_emacs (emacs_socket
, " ");
1670 /* Read expressions interactively. */
1671 while ((str
= fgets (string
, BUFSIZ
, stdin
)))
1673 send_to_emacs (emacs_socket
, "-eval ");
1674 quote_argument (emacs_socket
, str
);
1676 send_to_emacs (emacs_socket
, " ");
1679 send_to_emacs (emacs_socket
, "\n");
1681 /* Wait for an answer. */
1682 if (!eval
&& !tty
&& !nowait
)
1684 printf ("Waiting for Emacs...");
1690 /* Now, wait for an answer and print any messages. */
1691 while ((rl
= recv (emacs_socket
, string
, BUFSIZ
, 0)) > 0)
1696 p
= string
+ strlen (string
) - 1;
1697 while (p
> string
&& *p
== '\n')
1700 if (strprefix ("-emacs-pid ", string
))
1702 /* -emacs-pid PID: The process id of the Emacs process. */
1703 emacs_pid
= strtol (string
+ strlen ("-emacs-pid"), NULL
, 10);
1705 else if (strprefix ("-window-system-unsupported ", string
))
1707 /* -window-system-unsupported: Emacs was compiled without X
1708 support. Try again on the terminal. */
1713 else if (strprefix ("-print ", string
))
1715 /* -print STRING: Print STRING on the terminal. */
1716 str
= unquote_argument (string
+ strlen ("-print "));
1720 needlf
= str
[0] == '\0' ? needlf
: str
[strlen (str
) - 1] != '\n';
1722 else if (strprefix ("-error ", string
))
1724 /* -error DESCRIPTION: Signal an error on the terminal. */
1725 str
= unquote_argument (string
+ strlen ("-error "));
1728 fprintf (stderr
, "*ERROR*: %s", str
);
1729 needlf
= str
[0] == '\0' ? needlf
: str
[strlen (str
) - 1] != '\n';
1732 else if (strprefix ("-suspend ", string
))
1734 /* -suspend: Suspend this terminal, i.e., stop the process. */
1743 /* Unknown command. */
1746 printf ("*ERROR*: Unknown message: %s", string
);
1747 needlf
= string
[0] == '\0' ? needlf
: string
[strlen (string
) - 1] != '\n';
1756 CLOSE_SOCKET (emacs_socket
);
1757 return EXIT_SUCCESS
;
1760 #endif /* HAVE_SOCKETS && HAVE_INET_SOCKETS */
1763 #ifndef HAVE_STRERROR
1768 extern char *sys_errlist
[];
1769 extern int sys_nerr
;
1771 if (errnum
>= 0 && errnum
< sys_nerr
)
1772 return sys_errlist
[errnum
];
1773 return (char *) "Unknown error";
1776 #endif /* ! HAVE_STRERROR */
1778 /* arch-tag: f39bb9c4-73eb-477e-896d-50832e2ca9a7
1779 (do not change this comment) */
1781 /* emacsclient.c ends here */