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, 675 Mass Ave, Cambridge, MA 02139, USA. */
22 #include <../src/config.h>
30 #if !defined (HAVE_SOCKETS) && !defined (HAVE_SYSVIPC)
37 fprintf (stderr
, "%s: Sorry, the Emacs server is supported only\n",
39 fprintf (stderr
, "on systems with Berkeley sockets or System V IPC.\n");
43 #else /* HAVE_SOCKETS or HAVE_SYSVIPC */
45 #if ! defined (HAVE_SYSVIPC)
46 /* BSD code is very different from SYSV IPC code */
48 #include <sys/types.h>
49 #include <sys/socket.h>
55 extern char *strerror ();
66 struct sockaddr_un server
;
67 char *homedir
, *cwd
, *str
;
70 char *getenv (), *getwd ();
75 fprintf (stderr
, "Usage: %s [+linenumber] filename\n", argv
[0]);
80 * Open up an AF_UNIX socket in this person's home directory
83 if ((s
= socket (AF_UNIX
, SOCK_STREAM
, 0)) < 0)
85 fprintf (stderr
, "%s: ", argv
[0]);
89 server
.sun_family
= AF_UNIX
;
90 #ifndef SERVER_HOME_DIR
94 gethostname (system_name
, sizeof (system_name
));
95 sprintf (server
.sun_path
, "/tmp/esrv%d-%s", geteuid (), system_name
);
97 if (stat (server
.sun_path
, &statbfr
) == -1)
101 "Can't find socket; have you started the server?\n");
106 if (statbfr
.st_uid
!= geteuid ())
108 fprintf (stderr
, "Invalid socket owner\n");
113 if ((homedir
= getenv ("HOME")) == NULL
)
115 fprintf (stderr
, "%s: No home directory\n", argv
[0]);
118 strcpy (server
.sun_path
, homedir
);
119 strcat (server
.sun_path
, "/.emacs-server-");
120 gethostname (system_name
, sizeof (system_name
));
121 strcat (server
.sun_path
, system_name
);
124 if (connect (s
, (struct sockaddr
*) &server
, strlen (server
.sun_path
) + 2)
127 fprintf (stderr
, "%s: ", argv
[0]);
131 if ((out
= fdopen (s
, "r+")) == NULL
)
133 fprintf (stderr
, "%s: ", argv
[0]);
138 cwd
= getwd (string
);
141 /* getwd puts message in STRING if it fails. */
142 fprintf (stderr
, "%s: %s (%s)\n", argv
[0], string
, strerror (errno
));
146 for (i
= 1; i
< argc
; i
++)
150 char *p
= argv
[i
] + 1;
151 while (*p
>= '0' && *p
<= '9') p
++;
153 fprintf (out
, "%s/", cwd
);
155 else if (*argv
[i
] != '/')
156 fprintf (out
, "%s/", cwd
);
157 fprintf (out
, "%s ", argv
[i
]);
162 printf ("Waiting for Emacs...");
165 rewind (out
); /* re-read the output */
166 str
= fgets (string
, BUFSIZ
, out
);
168 /* Now, wait for an answer and print any messages. */
170 while (str
= fgets (string
, BUFSIZ
, out
))
176 #else /* This is the SYSV IPC section */
178 #include <sys/types.h>
181 #include <sys/utsname.h>
184 char *getwd (), *getcwd (), *getenv ();
185 struct utsname system_name
;
193 /* Size of text allocated in MSGP. */
194 int size_allocated
= BUFSIZ
;
195 /* Amount of text used in MSGP. */
198 = (struct msgbuf
*) malloc (sizeof (struct msgbuf
) + size_allocated
);
199 struct msqid_ds
* msg_st
;
200 char *homedir
, buf
[BUFSIZ
];
204 char *progname
= argv
[0];
208 fprintf (stderr
, "Usage: %s [+linenumber] filename\n", argv
[0]);
213 * Create a message queue using ~/.emacs-server as the path for ftok
215 if ((homedir
= getenv ("HOME")) == NULL
)
217 fprintf (stderr
, "%s: No home directory\n", argv
[0]);
220 strcpy (buf
, homedir
);
221 #ifndef HAVE_LONG_FILE_NAMES
222 /* If file names are short, we can't fit the host name. */
223 strcat (buf
, "/.emacs-server");
225 strcat (buf
, "/.emacs-server-");
226 uname (&system_name
);
227 strcat (buf
, system_name
.nodename
);
230 key
= ftok (buf
, 1); /* unlikely to be anyone else using it */
231 s
= msgget (key
, 0600 | IPC_CREAT
);
234 fprintf (stderr
, "%s: ", argv
[0]);
239 /* Determine working dir, so we can prefix it to all the arguments. */
241 temp
= getwd (gwdirb
);
243 temp
= getcwd (gwdirb
, sizeof gwdirb
);
249 /* On some systems, cwd can look like `@machine/...';
250 ignore everything before the first slash in such a case. */
251 while (*cwd
&& *cwd
!= '/')
257 fprintf (stderr
, cwd
);
267 char *modified_arg
= argv
[0];
268 if (*modified_arg
== '+')
270 char *p
= modified_arg
+ 1;
271 while (*p
>= '0' && *p
<= '9') p
++;
275 else if (*modified_arg
!= '/')
279 used
+= strlen (cwd
);
280 used
+= strlen (modified_arg
) + 1;
281 while (used
+ 2 > size_allocated
)
284 msgp
= (struct msgbuf
*) realloc (msgp
,
285 (sizeof (struct msgbuf
)
290 strcat (msgp
->mtext
, cwd
);
292 strcat (msgp
->mtext
, modified_arg
);
293 strcat (msgp
->mtext
, " ");
296 strcat (msgp
->mtext
, "\n");
297 #ifdef HPUX /* HPUX has a bug. */
298 if (strlen (msgp
->mtext
) >= 512)
300 fprintf (stderr
, "emacsclient: args too long for msgsnd\n");
305 if (msgsnd (s
, msgp
, strlen (msgp
->mtext
)+1, 0) < 0)
307 fprintf (stderr
, "%s: ", progname
);
312 * Now, wait for an answer
314 printf ("Waiting for Emacs...");
317 msgrcv (s
, msgp
, BUFSIZ
, getpid (), 0); /* wait for anything back */
318 strcpy (buf
, msgp
->mtext
);
320 printf ("\n%s\n", buf
);
324 #endif /* HAVE_SYSVIPC */
326 #endif /* HAVE_SOCKETS or HAVE_SYSVIPC */
328 #ifndef HAVE_STRERROR
333 extern char *sys_errlist
[];
336 if (errnum
>= 0 && errnum
< sys_nerr
)
337 return sys_errlist
[errnum
];
338 return (char *) "Unknown error";
341 #endif /* ! HAVE_STRERROR */