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 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 */
44 # include <sys/types.h>
46 # ifdef HAVE_INET_SOCKETS
47 # include <netinet/in.h>
50 # define INVALID_SOCKET -1
52 # define CLOSE_SOCKET close
55 #endif /* !WINDOWSNT */
69 #else /* not WINDOWSNT */
71 #endif /* not WINDOWSNT */
78 char *getenv (), *getwd ();
83 #define egetenv(VAR) w32_getenv(VAR)
85 #define egetenv(VAR) getenv(VAR)
89 #define VERSION "unspecified"
94 #define EXIT_SUCCESS 0
98 #define EXIT_FAILURE 1
113 /* Name used to invoke this program. */
116 /* The second argument to main. */
119 /* Nonzero means don't wait for a response from Emacs. --no-wait. */
122 /* Nonzero means args are expressions to be evaluated. --eval. */
125 /* Nonzero means don't open a new frame. Inverse of --create-frame. */
126 int current_frame
= 1;
128 /* Nonzero means open a new graphical frame. */
129 int window_system
= 0;
131 /* The display on which Emacs should work. --display. */
132 char *display
= NULL
;
134 /* Nonzero means open a new Emacs frame on the current terminal. */
137 /* If non-NULL, the name of an editor to fallback to if the server
138 is not running. --alternate-editor. */
139 const char *alternate_editor
= NULL
;
141 /* If non-NULL, the filename of the UNIX socket. */
142 char *socket_name
= NULL
;
144 /* If non-NULL, the filename of the authentication file. */
145 char *server_file
= NULL
;
147 /* PID of the Emacs server process. */
150 void print_help_and_exit () NO_RETURN
;
152 struct option longopts
[] =
154 { "no-wait", no_argument
, NULL
, 'n' },
155 { "eval", no_argument
, NULL
, 'e' },
156 { "help", no_argument
, NULL
, 'H' },
157 { "version", no_argument
, NULL
, 'V' },
158 { "tty", no_argument
, NULL
, 't' },
159 { "nw", no_argument
, NULL
, 't' },
160 { "create-frame", no_argument
, NULL
, 'c' },
161 { "alternate-editor", required_argument
, NULL
, 'a' },
162 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
163 { "socket-name", required_argument
, NULL
, 's' },
165 { "server-file", required_argument
, NULL
, 'f' },
167 { "display", required_argument
, NULL
, 'd' },
173 /* Like malloc but get fatal error if memory is exhausted. */
179 long *result
= (long *) malloc (size
);
188 /* Like strdup but get a fatal error if memory is exhausted. */
191 xstrdup (const char *s
)
193 char *result
= strdup (s
);
203 #if !defined (HAVE_GET_CURRENT_DIR_NAME) || defined (BROKEN_GET_CURRENT_DIR_NAME)
206 #ifndef DIRECTORY_SEP
207 #define DIRECTORY_SEP '/'
209 #ifndef IS_DIRECTORY_SEP
210 #define IS_DIRECTORY_SEP(_c_) ((_c_) == DIRECTORY_SEP)
212 #ifndef IS_DEVICE_SEP
214 #define IS_DEVICE_SEP(_c_) 0
216 #define IS_DEVICE_SEP(_c_) ((_c_) == DEVICE_SEP)
220 #define IS_ANY_SEP(_c_) (IS_DIRECTORY_SEP (_c_))
224 /* Return the current working directory. Returns NULL on errors.
225 Any other returned value must be freed with free. This is used
226 only when get_current_dir_name is not defined on the system. */
228 get_current_dir_name ()
232 struct stat dotstat
, pwdstat
;
233 /* If PWD is accurate, use it instead of calling getwd. PWD is
234 sometimes a nicer name, and using it may avoid a fatal error if a
235 parent directory is searchable but not readable. */
236 if ((pwd
= egetenv ("PWD")) != 0
237 && (IS_DIRECTORY_SEP (*pwd
) || (*pwd
&& IS_DEVICE_SEP (pwd
[1])))
238 && stat (pwd
, &pwdstat
) == 0
239 && stat (".", &dotstat
) == 0
240 && dotstat
.st_ino
== pwdstat
.st_ino
241 && dotstat
.st_dev
== pwdstat
.st_dev
243 && strlen (pwd
) < MAXPATHLEN
247 buf
= (char *) xmalloc (strlen (pwd
) + 1);
255 size_t buf_size
= 1024;
256 buf
= (char *) xmalloc (buf_size
);
261 if (getcwd (buf
, buf_size
) == buf
)
265 int tmp_errno
= errno
;
271 buf
= (char *) realloc (buf
, buf_size
);
279 /* We need MAXPATHLEN here. */
280 buf
= (char *) xmalloc (MAXPATHLEN
+ 1);
283 if (getwd (buf
) == NULL
)
285 int tmp_errno
= errno
;
298 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
300 /* Retrieve an environment variable from the Emacs subkeys of the registry.
301 Return NULL if the variable was not found, or it was empty.
302 This code is based on w32_get_resource (w32.c). */
304 w32_get_resource (predefined
, key
, type
)
309 HKEY hrootkey
= NULL
;
313 if (RegOpenKeyEx (predefined
, REG_ROOT
, 0, KEY_READ
, &hrootkey
) == ERROR_SUCCESS
)
315 if (RegQueryValueEx (hrootkey
, key
, NULL
, NULL
, NULL
, &cbData
) == ERROR_SUCCESS
)
317 result
= (char *) xmalloc (cbData
);
319 if ((RegQueryValueEx (hrootkey
, key
, NULL
, type
, result
, &cbData
) != ERROR_SUCCESS
) ||
327 RegCloseKey (hrootkey
);
334 getenv wrapper for Windows
336 This is needed to duplicate Emacs's behavior, which is to look for enviroment
337 variables in the registry if they don't appear in the environment.
346 if (value
= getenv (envvar
))
347 /* Found in the environment. */
350 if (! (value
= w32_get_resource (HKEY_CURRENT_USER
, envvar
, &dwType
)) &&
351 ! (value
= w32_get_resource (HKEY_LOCAL_MACHINE
, envvar
, &dwType
)))
352 /* Not found in the registry. */
355 if (dwType
== REG_SZ
)
356 /* Registry; no need to expand. */
359 if (dwType
== REG_EXPAND_SZ
)
363 if (size
= ExpandEnvironmentStrings (value
, NULL
, 0))
365 char *buffer
= (char *) xmalloc (size
);
366 if (ExpandEnvironmentStrings (value
, buffer
, size
))
368 /* Found and expanded. */
373 /* Error expanding. */
378 /* Not the right type, or not correctly expanded. */
386 static int window_app
= -1;
387 char szTitle
[MAX_PATH
];
391 /* Checking for STDOUT does not work; it's a valid handle also in
392 nonconsole apps. Testing for the console title seems to work. */
393 window_app
= (GetConsoleTitleA (szTitle
, MAX_PATH
) == 0);
395 InitCommonControls();
402 execvp wrapper for Windows. Quotes arguments with embedded spaces.
404 This is necessary due to the broken implementation of exec* routines in
405 the Microsoft libraries: they concatenate the arguments together without
406 quoting special characters, and pass the result to CreateProcess, with
407 predictably bad results. By contrast, Posix execvp passes the arguments
408 directly into the argv array of the child process.
411 w32_execvp (path
, argv
)
417 /* Required to allow a .BAT script as alternate editor. */
418 argv
[0] = (char *) alternate_editor
;
420 for (i
= 0; argv
[i
]; i
++)
421 if (strchr (argv
[i
], ' '))
423 char *quoted
= alloca (strlen (argv
[i
]) + 3);
424 sprintf (quoted
, "\"%s\"", argv
[i
]);
428 return execvp (path
, argv
);
432 #define execvp w32_execvp
434 #endif /* WINDOWSNT */
436 /* Display a normal or error message.
437 On Windows, use a message box if compiled as a Windows app. */
439 message (int is_error
, char *message
, ...)
444 va_start (args
, message
);
445 vsprintf (msg
, message
, args
);
449 if (w32_window_app ())
452 MessageBox (NULL
, msg
, "Emacsclient ERROR", MB_ICONERROR
);
454 MessageBox (NULL
, msg
, "Emacsclient", MB_ICONINFORMATION
);
459 FILE *f
= is_error
? stderr
: stdout
;
466 /* Decode the options from argv and argc.
467 The global variable `optind' will say how many arguments we used up. */
470 decode_options (argc
, argv
)
474 alternate_editor
= egetenv ("ALTERNATE_EDITOR");
478 int opt
= getopt_long_only (argc
, argv
,
479 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
492 /* If getopt returns 0, then it has already processed a
493 long-named option. We should do nothing. */
497 alternate_editor
= optarg
;
500 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
502 socket_name
= optarg
;
507 server_file
= optarg
;
510 /* We used to disallow this argument in w32, but it seems better
511 to allow it, for the occasional case where the user is
512 connecting with a w32 client to a server compiled with X11
514 #if 1 /* !defined WINDOWS */
529 message (FALSE
, "emacsclient %s\n", VERSION
);
543 print_help_and_exit ();
547 message (TRUE
, "Try `%s --help' for more information\n", progname
);
553 /* We used to set `display' to $DISPLAY by default, but this changed the
554 default behavior and is sometimes inconvenient. So instead of forcing
555 users to say "--display ''" when they want to use Emacs's existing tty
556 or display connection, we force them to use "--display $DISPLAY" if
557 they want Emacs to connect to their current display.
558 -c still implicitly passes --display $DISPLAY unless -t was specified
559 so as to try and mimick the behavior of `emacs' which either uses
560 the current tty or the current $DISPLAY. */
561 if (!current_frame
&& !tty
&& !display
)
562 display
= egetenv ("DISPLAY");
564 if (display
&& strlen (display
) == 0)
569 #if !defined (WINDOWSNT)
570 else if (!current_frame
)
574 /* --no-wait implies --current-frame on ttys when there are file
575 arguments or expressions given. */
576 if (nowait
&& tty
&& argc
- optind
> 0)
591 print_help_and_exit ()
593 /* Spaces and tabs are significant in this message; they're chosen so the
594 message aligns properly both in a tty and in a Windows message box.
595 Please try to preserve them; otherwise the output is very hard to read
596 when using emacsclientw. */
598 "Usage: %s [OPTIONS] FILE...\n\
599 Tell the Emacs server to visit the specified files.\n\
600 Every FILE can be either just a FILENAME or [+LINE[:COLUMN]] FILENAME.\n\
602 The following OPTIONS are accepted:\n\
603 -V, --version Just print version info and return\n\
604 -H, --help Print this usage information message\n\
605 -nw, -t, --tty Open a new Emacs frame on the current terminal\n\
606 -c, --create-frame Create a new frame instead of trying to\n\
607 use the current Emacs frame\n\
608 -e, --eval Evaluate the FILE arguments as ELisp expressions\n\
609 -n, --no-wait Don't wait for the server to return\n\
610 -d, --display=DISPLAY Visit the file in the given display\n"
611 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
612 "-s, --socket-name=FILENAME\n\
613 Set filename of the UNIX socket for communication\n"
615 "-f, --server-file=FILENAME\n\
616 Set filename of the TCP authentication file\n\
617 -a, --alternate-editor=EDITOR\n\
618 Editor to fallback to if the server is not running\n\
620 Report bugs to bug-gnu-emacs@gnu.org.\n", progname
);
625 Try to run a different command, or --if no alternate editor is
626 defined-- exit with an errorcode.
627 Uses argv, but gets it from the global variable main_argv.
632 if (alternate_editor
)
636 execvp (alternate_editor
, main_argv
+ i
);
637 message (TRUE
, "%s: error executing alternate editor \"%s\"\n",
638 progname
, alternate_editor
);
644 #if !defined (HAVE_SOCKETS) || !defined (HAVE_INET_SOCKETS)
653 message (TRUE
, "%s: Sorry, the Emacs server is supported only\n"
654 "on systems with Berkeley sockets.\n",
659 #else /* HAVE_SOCKETS && HAVE_INET_SOCKETS */
662 # include <winsock2.h>
664 # include <sys/types.h>
665 # include <sys/socket.h>
669 #define AUTH_KEY_LENGTH 64
670 #define SEND_BUFFER_SIZE 4096
672 extern char *strerror ();
675 /* Buffer to accumulate data to send in TCP connections. */
676 char send_buffer
[SEND_BUFFER_SIZE
+ 1];
677 int sblen
= 0; /* Fill pointer for the send buffer. */
678 /* Socket used to communicate with the Emacs server process. */
679 HSOCKET emacs_socket
= 0;
681 /* On Windows, the socket library was historically separate from the standard
682 C library, so errors are handled differently. */
684 sock_err_message (function_name
)
690 FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM
691 | FORMAT_MESSAGE_ALLOCATE_BUFFER
692 | FORMAT_MESSAGE_ARGUMENT_ARRAY
,
693 NULL
, WSAGetLastError (), 0, (LPTSTR
)&msg
, 0, NULL
);
695 message (TRUE
, "%s: %s: %s\n", progname
, function_name
, msg
);
699 message (TRUE
, "%s: %s: %s\n", progname
, function_name
, strerror (errno
));
704 /* Let's send the data to Emacs when either
705 - the data ends in "\n", or
706 - the buffer is full (but this shouldn't happen)
707 Otherwise, we just accumulate it. */
709 send_to_emacs (s
, data
)
715 int dlen
= strlen (data
);
716 if (dlen
+ sblen
>= SEND_BUFFER_SIZE
)
718 int part
= SEND_BUFFER_SIZE
- sblen
;
719 strncpy (&send_buffer
[sblen
], data
, part
);
721 sblen
= SEND_BUFFER_SIZE
;
725 strcpy (&send_buffer
[sblen
], data
);
732 if (sblen
== SEND_BUFFER_SIZE
733 || (sblen
> 0 && send_buffer
[sblen
-1] == '\n'))
735 int sent
= send (s
, send_buffer
, sblen
, 0);
737 strcpy (send_buffer
, &send_buffer
[sent
]);
744 /* In STR, insert a & before each &, each space, each newline, and
745 any initial -. Change spaces to underscores, too, so that the
746 return value never contains a space.
748 Does not change the string. Outputs the result to STREAM. */
750 quote_argument (s
, str
)
754 char *copy
= (char *) xmalloc (strlen (str
) * 2 + 1);
775 if (*p
== '&' || (*p
== '-' && p
== str
))
782 send_to_emacs (s
, copy
);
788 /* The inverse of quote_argument. Removes quoting in string STR by
789 modifying the string in place. Returns STR. */
792 unquote_argument (str
)
824 file_name_absolute_p (filename
)
825 const unsigned char *filename
;
827 /* Sanity check, it shouldn't happen. */
828 if (! filename
) return FALSE
;
830 /* /xxx is always an absolute path. */
831 if (filename
[0] == '/') return TRUE
;
833 /* Empty filenames (which shouldn't happen) are relative. */
834 if (filename
[0] == '\0') return FALSE
;
837 /* X:\xxx is always absolute. */
838 if (isalpha (filename
[0])
839 && filename
[1] == ':' && (filename
[2] == '\\' || filename
[2] == '/'))
842 /* Both \xxx and \\xxx\yyy are absolute. */
843 if (filename
[0] == '\\') return TRUE
;
850 /* Wrapper to make WSACleanup a cdecl, as required by atexit. */
852 __cdecl
close_winsock ()
857 /* Initialize the WinSock2 library. */
859 initialize_sockets ()
863 if (WSAStartup (MAKEWORD (2, 0), &wsaData
))
865 message (TRUE
, "%s: error initializing WinSock2\n", progname
);
869 atexit (close_winsock
);
871 #endif /* WINDOWSNT */
875 * Read the information needed to set up a TCP comm channel with
876 * the Emacs server: host, port, pid and authentication string.
879 get_server_config (server
, authentication
)
880 struct sockaddr_in
*server
;
881 char *authentication
;
888 if (file_name_absolute_p (server_file
))
889 config
= fopen (server_file
, "rb");
892 char *home
= egetenv ("HOME");
896 char *path
= alloca (32 + strlen (home
) + strlen (server_file
));
897 sprintf (path
, "%s/.emacs.d/server/%s", home
, server_file
);
898 config
= fopen (path
, "rb");
901 if (!config
&& (home
= egetenv ("APPDATA")))
903 char *path
= alloca (32 + strlen (home
) + strlen (server_file
));
904 sprintf (path
, "%s/.emacs.d/server/%s", home
, server_file
);
905 config
= fopen (path
, "rb");
913 if (fgets (dotted
, sizeof dotted
, config
)
914 && (port
= strchr (dotted
, ':'))
915 && (pid
= strchr (port
, ' ')))
922 message (TRUE
, "%s: invalid configuration info\n", progname
);
926 server
->sin_family
= AF_INET
;
927 server
->sin_addr
.s_addr
= inet_addr (dotted
);
928 server
->sin_port
= htons (atoi (port
));
930 if (! fread (authentication
, AUTH_KEY_LENGTH
, 1, config
))
932 message (TRUE
, "%s: cannot read authentication info\n", progname
);
938 emacs_pid
= atoi (pid
);
947 struct sockaddr_in server
;
948 struct linger l_arg
= {1, 1};
949 char auth_string
[AUTH_KEY_LENGTH
+ 1];
951 if (! get_server_config (&server
, auth_string
))
952 return INVALID_SOCKET
;
954 if (server
.sin_addr
.s_addr
!= inet_addr ("127.0.0.1"))
955 message (FALSE
, "%s: connected to remote socket at %s\n",
956 progname
, inet_ntoa (server
.sin_addr
));
959 * Open up an AF_INET socket
961 if ((s
= socket (AF_INET
, SOCK_STREAM
, IPPROTO_TCP
)) < 0)
963 sock_err_message ("socket");
964 return INVALID_SOCKET
;
970 if (connect (s
, (struct sockaddr
*) &server
, sizeof server
) < 0)
972 sock_err_message ("connect");
973 return INVALID_SOCKET
;
976 setsockopt (s
, SOL_SOCKET
, SO_LINGER
, (char *) &l_arg
, sizeof l_arg
);
979 * Send the authentication
981 auth_string
[AUTH_KEY_LENGTH
] = '\0';
983 send_to_emacs (s
, "-auth ");
984 send_to_emacs (s
, auth_string
);
985 send_to_emacs (s
, " ");
991 /* Returns 1 if PREFIX is a prefix of STRING. */
993 strprefix (char *prefix
, char *string
)
995 return !strncmp (prefix
, string
, strlen (prefix
));
999 #if !defined (NO_SOCKETS_IN_FILE_SYSTEM)
1001 /* Three possibilities:
1002 2 - can't be `stat'ed (sets errno)
1003 1 - isn't owned by us
1004 0 - success: none of the above */
1007 socket_status (socket_name
)
1010 struct stat statbfr
;
1012 if (stat (socket_name
, &statbfr
) == -1)
1015 if (statbfr
.st_uid
!= geteuid ())
1022 /* A signal handler that passes the signal to the Emacs process.
1023 Useful for SIGWINCH. */
1026 pass_signal_to_emacs (int signalnum
)
1028 int old_errno
= errno
;
1031 kill (emacs_pid
, signalnum
);
1033 signal (signalnum
, pass_signal_to_emacs
);
1037 /* Signal handler for SIGCONT; notify the Emacs process that it can
1038 now resume our tty frame. */
1041 handle_sigcont (int signalnum
)
1043 int old_errno
= errno
;
1045 if (tcgetpgrp (1) == getpgrp ())
1047 /* We are in the foreground. */
1048 send_to_emacs (emacs_socket
, "-resume \n");
1052 /* We are in the background; cancel the continue. */
1053 kill (getpid (), SIGSTOP
);
1056 signal (signalnum
, handle_sigcont
);
1060 /* Signal handler for SIGTSTP; notify the Emacs process that we are
1061 going to sleep. Normally the suspend is initiated by Emacs via
1062 server-handle-suspend-tty, but if the server gets out of sync with
1063 reality, we may get a SIGTSTP on C-z. Handling this signal and
1064 notifying Emacs about it should get things under control again. */
1067 handle_sigtstp (int signalnum
)
1069 int old_errno
= errno
;
1073 send_to_emacs (emacs_socket
, "-suspend \n");
1075 /* Unblock this signal and call the default handler by temporarily
1076 changing the handler and resignalling. */
1077 sigprocmask (SIG_BLOCK
, NULL
, &set
);
1078 sigdelset (&set
, signalnum
);
1079 signal (signalnum
, SIG_DFL
);
1080 kill (getpid (), signalnum
);
1081 sigprocmask (SIG_SETMASK
, &set
, NULL
); /* Let's the above signal through. */
1082 signal (signalnum
, handle_sigtstp
);
1086 /* Set up signal handlers before opening a frame on the current tty. */
1091 /* Set up signal handlers. */
1092 signal (SIGWINCH
, pass_signal_to_emacs
);
1094 /* Don't pass SIGINT and SIGQUIT to Emacs, because it has no way of
1095 deciding which terminal the signal came from. C-g is now a
1096 normal input event on secondary terminals. */
1098 signal (SIGINT
, pass_signal_to_emacs
);
1099 signal (SIGQUIT
, pass_signal_to_emacs
);
1102 signal (SIGCONT
, handle_sigcont
);
1103 signal (SIGTSTP
, handle_sigtstp
);
1104 signal (SIGTTOU
, handle_sigtstp
);
1112 struct sockaddr_un server
;
1115 * Open up an AF_UNIX socket in this person's home directory
1118 if ((s
= socket (AF_UNIX
, SOCK_STREAM
, 0)) < 0)
1120 message (TRUE
, "%s: socket: %s\n", progname
, strerror (errno
));
1121 return INVALID_SOCKET
;
1124 server
.sun_family
= AF_UNIX
;
1127 int sock_status
= 0;
1128 int default_sock
= !socket_name
;
1129 int saved_errno
= 0;
1130 char *server_name
= "server";
1132 if (socket_name
&& !index (socket_name
, '/') && !index (socket_name
, '\\'))
1133 { /* socket_name is a file name component. */
1134 server_name
= socket_name
;
1136 default_sock
= 1; /* Try both UIDs. */
1141 socket_name
= alloca (100 + strlen (server_name
));
1142 sprintf (socket_name
, "/tmp/emacs%d/%s",
1143 (int) geteuid (), server_name
);
1146 if (strlen (socket_name
) < sizeof (server
.sun_path
))
1147 strcpy (server
.sun_path
, socket_name
);
1150 message (TRUE
, "%s: socket-name %s too long\n",
1151 progname
, socket_name
);
1155 /* See if the socket exists, and if it's owned by us. */
1156 sock_status
= socket_status (server
.sun_path
);
1157 saved_errno
= errno
;
1158 if (sock_status
&& default_sock
)
1160 /* Failing that, see if LOGNAME or USER exist and differ from
1161 our euid. If so, look for a socket based on the UID
1162 associated with the name. This is reminiscent of the logic
1163 that init_editfns uses to set the global Vuser_full_name. */
1165 char *user_name
= (char *) egetenv ("LOGNAME");
1168 user_name
= (char *) egetenv ("USER");
1172 struct passwd
*pw
= getpwnam (user_name
);
1174 if (pw
&& (pw
->pw_uid
!= geteuid ()))
1176 /* We're running under su, apparently. */
1177 socket_name
= alloca (100 + strlen (server_name
));
1178 sprintf (socket_name
, "/tmp/emacs%d/%s",
1179 (int) pw
->pw_uid
, server_name
);
1181 if (strlen (socket_name
) < sizeof (server
.sun_path
))
1182 strcpy (server
.sun_path
, socket_name
);
1185 message (TRUE
, "%s: socket-name %s too long\n",
1186 progname
, socket_name
);
1187 exit (EXIT_FAILURE
);
1190 sock_status
= socket_status (server
.sun_path
);
1191 saved_errno
= errno
;
1194 errno
= saved_errno
;
1198 switch (sock_status
)
1201 /* There's a socket, but it isn't owned by us. This is OK if
1203 if (0 != geteuid ())
1205 message (TRUE
, "%s: Invalid socket owner\n", progname
);
1206 return INVALID_SOCKET
;
1212 if (saved_errno
== ENOENT
)
1214 "%s: can't find socket; have you started the server?\n\
1215 To start the server in Emacs, type \"M-x server-start\".\n",
1218 message (TRUE
, "%s: can't stat %s: %s\n",
1219 progname
, server
.sun_path
, strerror (saved_errno
));
1220 return INVALID_SOCKET
;
1224 if (connect (s
, (struct sockaddr
*) &server
, strlen (server
.sun_path
) + 2)
1227 message (TRUE
, "%s: connect: %s\n", progname
, strerror (errno
));
1228 return INVALID_SOCKET
;
1233 #endif /* ! NO_SOCKETS_IN_FILE_SYSTEM */
1242 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
1243 /* Explicit --socket-name argument. */
1246 s
= set_local_socket ();
1247 if ((s
!= INVALID_SOCKET
) || alternate_editor
)
1249 message (TRUE
, "%s: error accessing socket \"%s\"\n",
1250 progname
, socket_name
);
1251 exit (EXIT_FAILURE
);
1255 /* Explicit --server-file arg or EMACS_SERVER_FILE variable. */
1257 server_file
= egetenv ("EMACS_SERVER_FILE");
1261 s
= set_tcp_socket ();
1262 if ((s
!= INVALID_SOCKET
) || alternate_editor
)
1265 message (TRUE
, "%s: error accessing server file \"%s\"\n",
1266 progname
, server_file
);
1267 exit (EXIT_FAILURE
);
1270 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
1271 /* Implicit local socket. */
1272 s
= set_local_socket ();
1273 if (s
!= INVALID_SOCKET
)
1277 /* Implicit server file. */
1278 server_file
= "server";
1279 s
= set_tcp_socket ();
1280 if ((s
!= INVALID_SOCKET
) || alternate_editor
)
1283 /* No implicit or explicit socket, and no alternate editor. */
1284 message (TRUE
, "%s: No socket or alternate editor. Please use:\n\n"
1285 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
1288 "\t--server-file (or environment variable EMACS_SERVER_FILE)\n\
1289 \t--alternate-editor (or environment variable ALTERNATE_EDITOR)\n",
1291 exit (EXIT_FAILURE
);
1295 FARPROC set_fg
; /* Pointer to AllowSetForegroundWindow. */
1296 FARPROC get_wc
; /* Pointer to RealGetWindowClassA. */
1299 w32_find_emacs_process (hWnd
, lParam
)
1306 /* Reject any window not of class "Emacs". */
1307 if (! get_wc (hWnd
, class, sizeof (class))
1308 || strcmp (class, "Emacs"))
1311 /* We only need the process id, not the thread id. */
1312 (void) GetWindowThreadProcessId (hWnd
, &pid
);
1314 /* Not the one we're looking for. */
1315 if (pid
!= (DWORD
) emacs_pid
) return TRUE
;
1317 /* OK, let's raise it. */
1320 /* Stop enumeration. */
1325 * Search for a window of class "Emacs" and owned by a process with
1326 * process id = emacs_pid. If found, allow it to grab the focus.
1333 /* It shouldn't happen when dealing with TCP sockets. */
1334 if (!emacs_pid
) return;
1336 if (!(hUser32
= LoadLibrary ("user32.dll"))) return;
1338 /* Modern Windows restrict which processes can set the foreground window.
1339 emacsclient can allow Emacs to grab the focus by calling the function
1340 AllowSetForegroundWindow. Unfortunately, older Windows (W95, W98 and
1341 NT) lack this function, so we have to check its availability. */
1342 if ((set_fg
= GetProcAddress (hUser32
, "AllowSetForegroundWindow"))
1343 && (get_wc
= GetProcAddress (hUser32
, "RealGetWindowClassA")))
1344 EnumWindows (w32_find_emacs_process
, (LPARAM
) 0);
1346 FreeLibrary (hUser32
);
1355 int i
, rl
, needlf
= 0;
1357 char string
[BUFSIZ
+1];
1362 /* Process options. */
1363 decode_options (argc
, argv
);
1365 if ((argc
- optind
< 1) && !eval
&& !tty
&& !window_system
)
1367 message (TRUE
, "%s: file name or argument required\n"
1368 "Try `%s --help' for more information\n",
1369 progname
, progname
);
1370 exit (EXIT_FAILURE
);
1373 if ((emacs_socket
= set_socket ()) == INVALID_SOCKET
)
1377 cwd
= get_current_dir_name ();
1380 /* getwd puts message in STRING if it fails. */
1381 message (TRUE
, "%s: %s\n", progname
,
1382 "Cannot get current working directory");
1390 /* Send over our environment. */
1393 extern char **environ
;
1395 for (i
= 0; environ
[i
]; i
++)
1397 char *name
= xstrdup (environ
[i
]);
1398 char *value
= strchr (name
, '=');
1399 send_to_emacs (emacs_socket
, "-env ");
1400 quote_argument (emacs_socket
, environ
[i
]);
1401 send_to_emacs (emacs_socket
, " ");
1405 /* Send over our current directory. */
1408 send_to_emacs (emacs_socket
, "-dir ");
1409 quote_argument (emacs_socket
, cwd
);
1410 send_to_emacs (emacs_socket
, "/");
1411 send_to_emacs (emacs_socket
, " ");
1416 send_to_emacs (emacs_socket
, "-nowait ");
1419 send_to_emacs (emacs_socket
, "-current-frame ");
1423 send_to_emacs (emacs_socket
, "-display ");
1424 quote_argument (emacs_socket
, display
);
1425 send_to_emacs (emacs_socket
, " ");
1430 char *type
= egetenv ("TERM");
1431 char *tty_name
= NULL
;
1433 tty_name
= ttyname (fileno (stdout
));
1438 message (TRUE
, "%s: could not get terminal name\n", progname
);
1444 message (TRUE
, "%s: please set the TERM variable to your terminal type\n",
1449 if (! strcmp (type
, "eterm"))
1451 /* This causes nasty, MULTI_KBOARD-related input lockouts. */
1452 message (TRUE
, "%s: opening a frame in an Emacs term buffer"
1453 " is not supported\n", progname
);
1456 #if !defined (NO_SOCKETS_IN_FILE_SYSTEM)
1460 send_to_emacs (emacs_socket
, "-tty ");
1461 quote_argument (emacs_socket
, tty_name
);
1462 send_to_emacs (emacs_socket
, " ");
1463 quote_argument (emacs_socket
, type
);
1464 send_to_emacs (emacs_socket
, " ");
1468 send_to_emacs (emacs_socket
, "-window-system ");
1470 if ((argc
- optind
> 0))
1472 for (i
= optind
; i
< argc
; i
++)
1478 /* Don't prepend cwd or anything like that. */
1479 send_to_emacs (emacs_socket
, "-eval ");
1480 quote_argument (emacs_socket
, argv
[i
]);
1481 send_to_emacs (emacs_socket
, " ");
1485 if (*argv
[i
] == '+')
1487 char *p
= argv
[i
] + 1;
1488 while (isdigit ((unsigned char) *p
) || *p
== ':') p
++;
1491 send_to_emacs (emacs_socket
, "-position ");
1492 quote_argument (emacs_socket
, argv
[i
]);
1493 send_to_emacs (emacs_socket
, " ");
1499 else if (! file_name_absolute_p (argv
[i
]))
1503 /* Call GetFullPathName so filenames of the form X:Y, where X is
1504 a valid drive designator, are interpreted as drive:path, not
1505 file:stream, and treated as absolute.
1506 The user can still pass a file:stream if desired (for example,
1507 .\X:Y), but it is not very useful, as Emacs currently does a
1508 very bad job of dealing with NTFS streams. */
1510 char *filename
= (char *) xmalloc (MAX_PATH
);
1513 size
= GetFullPathName (argv
[i
], MAX_PATH
, filename
, NULL
);
1514 if (size
> 0 && size
< MAX_PATH
)
1524 send_to_emacs (emacs_socket
, "-file ");
1527 quote_argument (emacs_socket
, cwd
);
1528 send_to_emacs (emacs_socket
, "/");
1530 quote_argument (emacs_socket
, argv
[i
]);
1531 send_to_emacs (emacs_socket
, " ");
1536 if (!tty
&& !window_system
)
1538 while ((str
= fgets (string
, BUFSIZ
, stdin
)))
1541 send_to_emacs (emacs_socket
, "-eval ");
1543 send_to_emacs (emacs_socket
, "-file ");
1544 quote_argument (emacs_socket
, str
);
1546 send_to_emacs (emacs_socket
, " ");
1550 send_to_emacs (emacs_socket
, "\n");
1552 /* Wait for an answer. */
1553 if (!eval
&& !tty
&& !nowait
)
1555 printf ("Waiting for Emacs...");
1561 /* Now, wait for an answer and print any messages. */
1562 while ((rl
= recv (emacs_socket
, string
, BUFSIZ
, 0)) > 0)
1567 p
= string
+ strlen (string
) - 1;
1568 while (p
> string
&& *p
== '\n')
1571 if (strprefix ("-emacs-pid ", string
))
1573 /* -emacs-pid PID: The process id of the Emacs process. */
1574 emacs_pid
= strtol (string
+ strlen ("-emacs-pid"), NULL
, 10);
1576 else if (strprefix ("-window-system-unsupported ", string
))
1578 /* -window-system-unsupported: Emacs was compiled without X
1579 support. Try again on the terminal. */
1585 else if (strprefix ("-print ", string
))
1587 /* -print STRING: Print STRING on the terminal. */
1588 str
= unquote_argument (string
+ strlen ("-print "));
1592 needlf
= str
[0] == '\0' ? needlf
: str
[strlen (str
) - 1] != '\n';
1594 else if (strprefix ("-error ", string
))
1596 /* -error DESCRIPTION: Signal an error on the terminal. */
1597 str
= unquote_argument (string
+ strlen ("-error "));
1600 fprintf (stderr
, "*ERROR*: %s", str
);
1601 needlf
= str
[0] == '\0' ? needlf
: str
[strlen (str
) - 1] != '\n';
1604 else if (strprefix ("-suspend ", string
))
1606 /* -suspend: Suspend this terminal, i.e., stop the process. */
1615 /* Unknown command. */
1618 printf ("*ERROR*: Unknown message: %s", string
);
1619 needlf
= string
[0] == '\0' ? needlf
: string
[strlen (string
) - 1] != '\n';
1628 CLOSE_SOCKET (emacs_socket
);
1629 return EXIT_SUCCESS
;
1632 #endif /* HAVE_SOCKETS && HAVE_INET_SOCKETS */
1635 #ifndef HAVE_STRERROR
1640 extern char *sys_errlist
[];
1641 extern int sys_nerr
;
1643 if (errnum
>= 0 && errnum
< sys_nerr
)
1644 return sys_errlist
[errnum
];
1645 return (char *) "Unknown error";
1648 #endif /* ! HAVE_STRERROR */
1650 /* arch-tag: f39bb9c4-73eb-477e-896d-50832e2ca9a7
1651 (do not change this comment) */
1653 /* emacsclient.c ends here */