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>
31 #if !defined (HAVE_SOCKETS) && !defined (HAVE_SYSVIPC)
38 fprintf (stderr
, "%s: Sorry, the Emacs server is supported only\n",
40 fprintf (stderr
, "on systems with Berkeley sockets or System V IPC.\n");
44 #else /* HAVE_SOCKETS or HAVE_SYSVIPC */
46 #if defined (HAVE_SOCKETS) && ! defined (NO_SOCKETS_IN_FILE_SYSTEM)
47 /* BSD code is very different from SYSV IPC code */
49 #include <sys/types.h>
50 #include <sys/socket.h>
56 extern char *strerror ();
67 struct sockaddr_un server
;
68 char *homedir
, *cwd
, *str
;
71 char *getenv (), *getwd ();
77 fprintf (stderr
, "Usage: %s [+linenumber] filename\n", argv
[0]);
82 * Open up an AF_UNIX socket in this person's home directory
85 if ((s
= socket (AF_UNIX
, SOCK_STREAM
, 0)) < 0)
87 fprintf (stderr
, "%s: ", argv
[0]);
91 server
.sun_family
= AF_UNIX
;
92 #ifndef SERVER_HOME_DIR
96 gethostname (system_name
, sizeof (system_name
));
97 sprintf (server
.sun_path
, "/tmp/esrv%d-%s", geteuid (), system_name
);
99 if (stat (server
.sun_path
, &statbfr
) == -1)
103 "%s: can't find socket; have you started the server?\n",
106 fprintf (stderr
, "%s: can't stat %s: %s\n",
107 argv
[0], server
.sun_path
, strerror (errno
));
110 if (statbfr
.st_uid
!= geteuid ())
112 fprintf (stderr
, "%s: Invalid socket owner\n", argv
[0]);
117 if ((homedir
= getenv ("HOME")) == NULL
)
119 fprintf (stderr
, "%s: No home directory\n", argv
[0]);
122 strcpy (server
.sun_path
, homedir
);
123 strcat (server
.sun_path
, "/.emacs-server-");
124 gethostname (system_name
, sizeof (system_name
));
125 strcat (server
.sun_path
, system_name
);
128 if (connect (s
, (struct sockaddr
*) &server
, strlen (server
.sun_path
) + 2)
131 fprintf (stderr
, "%s: ", argv
[0]);
135 if ((out
= fdopen (s
, "r+")) == NULL
)
137 fprintf (stderr
, "%s: ", argv
[0]);
143 cwd
= getwd (string
);
145 cwd
= getcwd (string
, sizeof string
);
149 /* getwd puts message in STRING if it fails. */
150 fprintf (stderr
, "%s: %s (%s)\n", argv
[0], string
, strerror (errno
));
154 for (i
= 1; i
< argc
; i
++)
158 char *p
= argv
[i
] + 1;
159 while (*p
>= '0' && *p
<= '9') p
++;
161 fprintf (out
, "%s/", cwd
);
163 else if (*argv
[i
] != '/')
164 fprintf (out
, "%s/", cwd
);
165 fprintf (out
, "%s ", argv
[i
]);
170 printf ("Waiting for Emacs...");
173 rewind (out
); /* re-read the output */
174 str
= fgets (string
, BUFSIZ
, out
);
177 /* Now, wait for an answer and print any messages. */
179 while (str
= fgets (string
, BUFSIZ
, out
))
185 #else /* This is the SYSV IPC section */
187 #include <sys/types.h>
190 #include <sys/utsname.h>
193 char *getwd (), *getcwd (), *getenv ();
194 struct utsname system_name
;
202 /* Size of text allocated in MSGP. */
203 int size_allocated
= BUFSIZ
;
204 /* Amount of text used in MSGP. */
207 = (struct msgbuf
*) malloc (sizeof (struct msgbuf
) + size_allocated
);
208 struct msqid_ds
* msg_st
;
209 char *homedir
, buf
[BUFSIZ
];
213 char *progname
= argv
[0];
217 fprintf (stderr
, "Usage: %s [+linenumber] filename\n", argv
[0]);
222 * Create a message queue using ~/.emacs-server as the path for ftok
224 if ((homedir
= getenv ("HOME")) == NULL
)
226 fprintf (stderr
, "%s: No home directory\n", argv
[0]);
229 strcpy (buf
, homedir
);
230 #ifndef HAVE_LONG_FILE_NAMES
231 /* If file names are short, we can't fit the host name. */
232 strcat (buf
, "/.emacs-server");
234 strcat (buf
, "/.emacs-server-");
235 uname (&system_name
);
236 strcat (buf
, system_name
.nodename
);
239 key
= ftok (buf
, 1); /* unlikely to be anyone else using it */
240 s
= msgget (key
, 0600 | IPC_CREAT
);
243 fprintf (stderr
, "%s: ", argv
[0]);
248 /* Determine working dir, so we can prefix it to all the arguments. */
250 temp
= getwd (gwdirb
);
252 temp
= getcwd (gwdirb
, sizeof gwdirb
);
258 /* On some systems, cwd can look like `@machine/...';
259 ignore everything before the first slash in such a case. */
260 while (*cwd
&& *cwd
!= '/')
266 fprintf (stderr
, "%s: %s\n", argv
[0], cwd
);
276 char *modified_arg
= argv
[0];
277 if (*modified_arg
== '+')
279 char *p
= modified_arg
+ 1;
280 while (*p
>= '0' && *p
<= '9') p
++;
284 else if (*modified_arg
!= '/')
288 used
+= strlen (cwd
);
289 used
+= strlen (modified_arg
) + 1;
290 while (used
+ 2 > size_allocated
)
293 msgp
= (struct msgbuf
*) realloc (msgp
,
294 (sizeof (struct msgbuf
)
299 strcat (msgp
->mtext
, cwd
);
301 strcat (msgp
->mtext
, modified_arg
);
302 strcat (msgp
->mtext
, " ");
305 strcat (msgp
->mtext
, "\n");
306 #ifdef HPUX /* HPUX has a bug. */
307 if (strlen (msgp
->mtext
) >= 512)
309 fprintf (stderr
, "%s: args too long for msgsnd\n", progname
);
314 if (msgsnd (s
, msgp
, strlen (msgp
->mtext
)+1, 0) < 0)
316 fprintf (stderr
, "%s: ", progname
);
321 * Now, wait for an answer
323 printf ("Waiting for Emacs...");
326 msgrcv (s
, msgp
, BUFSIZ
, getpid (), 0); /* wait for anything back */
327 strcpy (buf
, msgp
->mtext
);
331 printf ("%s\n", buf
);
335 #endif /* HAVE_SYSVIPC */
337 #endif /* HAVE_SOCKETS or HAVE_SYSVIPC */
339 #ifndef HAVE_STRERROR
344 extern char *sys_errlist
[];
347 if (errnum
>= 0 && errnum
< sys_nerr
)
348 return sys_errlist
[errnum
];
349 return (char *) "Unknown error";
352 #endif /* ! HAVE_STRERROR */