1 /* Client process that communicates with GNU Emacs acting as server.
2 Copyright (C) 1986, 1987, 1994 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
23 #include <../src/config.h>
39 char *getenv (), *getwd ();
42 /* This is defined with -D from the compilation command,
43 which extracts it from ../lisp/version.el. */
46 #define VERSION "unspecified"
49 /* Name used to invoke this program. */
52 /* Nonzero means don't wait for a response from Emacs. --no-wait. */
55 void print_help_and_exit ();
57 struct option longopts
[] =
59 { "no-wait", no_argument
, NULL
, 'n' },
60 { "help", no_argument
, NULL
, 'H' },
61 { "version", no_argument
, NULL
, 'V' },
65 /* Decode the options from argv and argc.
66 The global variable `optind' will say how many arguments we used up. */
69 decode_options (argc
, argv
)
75 int opt
= getopt_long (argc
, argv
,
84 /* If getopt returns 0, then it has already processed a
85 long-named option. We should do nothing. */
93 fprintf (stderr
, "Version %s\n", VERSION
);
99 print_help_and_exit ();
105 print_help_and_exit ()
108 "Usage: %s [-n] [--no-wait] [+LINENUMBER] FILENAME\n",
111 "Report bugs to bug-gnu-emacs@prep.ai.mit.edu.\n");
115 /* Return a copy of NAME, inserting a &
116 before each &, each space, and any initial -.
117 Change spaces to underscores, too, so that the
118 return value never contains a space. */
121 quote_file_name (name
)
124 char *copy
= (char *) malloc (strlen (name
) * 2 + 1);
139 if (*p
== '&' || (*p
== '-' && p
== name
))
149 /* Like malloc but get fatal error if memory is exhausted. */
155 long *result
= (long *) malloc (size
);
164 #if !defined (HAVE_SOCKETS) && !defined (HAVE_SYSVIPC)
170 fprintf (stderr
, "%s: Sorry, the Emacs server is supported only\n",
172 fprintf (stderr
, "on systems with Berkeley sockets or System V IPC.\n");
176 #else /* HAVE_SOCKETS or HAVE_SYSVIPC */
178 #if defined (HAVE_SOCKETS) && ! defined (NO_SOCKETS_IN_FILE_SYSTEM)
179 /* BSD code is very different from SYSV IPC code */
181 #include <sys/types.h>
182 #include <sys/socket.h>
184 #include <sys/stat.h>
187 extern char *strerror ();
196 int system_name_length
;
199 struct sockaddr_un server
;
200 char *homedir
, *cwd
, *str
;
205 /* Process options. */
206 decode_options (argc
, argv
);
208 if (argc
- optind
< 1)
209 print_help_and_exit ();
212 * Open up an AF_UNIX socket in this person's home directory
215 if ((s
= socket (AF_UNIX
, SOCK_STREAM
, 0)) < 0)
217 fprintf (stderr
, "%s: ", argv
[0]);
221 server
.sun_family
= AF_UNIX
;
222 #ifndef SERVER_HOME_DIR
225 system_name_length
= 32;
229 system_name
= (char *) xmalloc (system_name_length
+ 1);
231 /* system_name must be null-terminated string. */
232 system_name
[system_name_length
] = '\0';
234 if (gethostname (system_name
, system_name_length
) == 0)
238 system_name_length
*= 2;
241 sprintf (server
.sun_path
, "/tmp/esrv%d-%s", geteuid (), system_name
);
243 if (stat (server
.sun_path
, &statbfr
) == -1)
247 "%s: can't find socket; have you started the server?\n",
250 fprintf (stderr
, "%s: can't stat %s: %s\n",
251 argv
[0], server
.sun_path
, strerror (errno
));
254 if (statbfr
.st_uid
!= geteuid ())
256 fprintf (stderr
, "%s: Invalid socket owner\n", argv
[0]);
261 if ((homedir
= getenv ("HOME")) == NULL
)
263 fprintf (stderr
, "%s: No home directory\n", argv
[0]);
266 strcpy (server
.sun_path
, homedir
);
267 strcat (server
.sun_path
, "/.emacs-server-");
268 gethostname (system_name
, sizeof (system_name
));
269 strcat (server
.sun_path
, system_name
);
272 if (connect (s
, (struct sockaddr
*) &server
, strlen (server
.sun_path
) + 2)
275 fprintf (stderr
, "%s: ", argv
[0]);
280 /* We use the stream OUT to send our command to the server. */
281 if ((out
= fdopen (s
, "r+")) == NULL
)
283 fprintf (stderr
, "%s: ", argv
[0]);
288 /* We use the stream IN to read the response.
289 We used to use just one stream for both output and input
290 on the socket, but reversing direction works nonportably:
291 on some systems, the output appears as the first input;
292 on other systems it does not. */
293 if ((in
= fdopen (s
, "r+")) == NULL
)
295 fprintf (stderr
, "%s: ", argv
[0]);
301 cwd
= getwd (string
);
303 cwd
= getcwd (string
, sizeof string
);
307 /* getwd puts message in STRING if it fails. */
308 fprintf (stderr
, "%s: %s (%s)\n", argv
[0],
312 "Cannot get current working directory",
319 fprintf (out
, "-nowait ");
321 for (i
= optind
; i
< argc
; i
++)
325 char *p
= argv
[i
] + 1;
326 while (*p
>= '0' && *p
<= '9') p
++;
328 fprintf (out
, "%s/", quote_file_name (cwd
));
330 else if (*argv
[i
] != '/')
331 fprintf (out
, "%s/", quote_file_name (cwd
));
333 fprintf (out
, "%s ", quote_file_name (argv
[i
]));
338 /* Maybe wait for an answer. */
342 printf ("Waiting for Emacs...");
345 /* Now, wait for an answer and print any messages. On some systems,
346 the first line we read will actually be the output we just sent.
347 We can't predict whether that will happen, so if it does, we
348 detect it by recognizing `Client: ' at the beginning. */
350 while (str
= fgets (string
, BUFSIZ
, in
))
356 #else /* This is the SYSV IPC section */
358 #include <sys/types.h>
361 #include <sys/utsname.h>
366 char *getwd (), *getcwd (), *getenv ();
367 struct utsname system_name
;
375 /* Size of text allocated in MSGP. */
376 int size_allocated
= BUFSIZ
;
377 /* Amount of text used in MSGP. */
380 = (struct msgbuf
*) malloc (sizeof (struct msgbuf
) + size_allocated
);
381 struct msqid_ds
* msg_st
;
382 char *homedir
, buf
[BUFSIZ
];
389 /* Process options. */
390 decode_options (argc
, argv
);
392 if (argc
- optind
< 1)
393 print_help_and_exit ();
396 * Create a message queue using ~/.emacs-server as the path for ftok
398 if ((homedir
= getenv ("HOME")) == NULL
)
400 fprintf (stderr
, "%s: No home directory\n", argv
[0]);
403 strcpy (buf
, homedir
);
404 #ifndef HAVE_LONG_FILE_NAMES
405 /* If file names are short, we can't fit the host name. */
406 strcat (buf
, "/.emacs-server");
408 strcat (buf
, "/.emacs-server-");
409 uname (&system_name
);
410 strcat (buf
, system_name
.nodename
);
413 key
= ftok (buf
, 1); /* unlikely to be anyone else using it */
414 s
= msgget (key
, 0600 | IPC_CREAT
);
417 fprintf (stderr
, "%s: ", argv
[0]);
422 /* Determine working dir, so we can prefix it to all the arguments. */
424 temp
= getwd (gwdirb
);
426 temp
= getcwd (gwdirb
, sizeof gwdirb
);
432 /* On some systems, cwd can look like `@machine/...';
433 ignore everything before the first slash in such a case. */
434 while (*cwd
&& *cwd
!= '/')
441 fprintf (stderr
, "%s: %s\n", argv
[0], cwd
);
443 fprintf (stderr
, "%s: Cannot get current working directory: %s\n",
444 argv
[0], strerror (errno
));
454 strcat (msgp
->mtext
, "-nowait ");
464 char *modified_arg
= argv
[0];
466 if (*modified_arg
== '+')
468 char *p
= modified_arg
+ 1;
469 while (*p
>= '0' && *p
<= '9') p
++;
473 else if (*modified_arg
!= '/')
476 modified_arg
= quote_file_name (modified_arg
);
479 /* Overestimate in case we have to quote something in CWD. */
480 used
+= 2 * strlen (cwd
);
481 used
+= strlen (modified_arg
) + 1;
482 while (used
+ 2 > size_allocated
)
485 msgp
= (struct msgbuf
*) realloc (msgp
,
486 (sizeof (struct msgbuf
)
491 strcat (msgp
->mtext
, quote_file_name (cwd
));
493 strcat (msgp
->mtext
, modified_arg
);
494 strcat (msgp
->mtext
, " ");
497 strcat (msgp
->mtext
, "\n");
498 #ifdef HPUX /* HPUX has a bug. */
499 if (strlen (msgp
->mtext
) >= 512)
501 fprintf (stderr
, "%s: args too long for msgsnd\n", progname
);
506 if (msgsnd (s
, msgp
, strlen (msgp
->mtext
)+1, 0) < 0)
508 fprintf (stderr
, "%s: ", progname
);
513 /* Maybe wait for an answer. */
517 printf ("Waiting for Emacs...");
520 msgrcv (s
, msgp
, BUFSIZ
, getpid (), 0); /* wait for anything back */
521 strcpy (buf
, msgp
->mtext
);
525 printf ("%s\n", buf
);
529 #endif /* HAVE_SYSVIPC */
531 #endif /* HAVE_SOCKETS or HAVE_SYSVIPC */
533 #ifndef HAVE_STRERROR
538 extern char *sys_errlist
[];
541 if (errnum
>= 0 && errnum
< sys_nerr
)
542 return sys_errlist
[errnum
];
543 return (char *) "Unknown error";
546 #endif /* ! HAVE_STRERROR */