1 /* Client process that communicates with GNU Emacs acting as server.
2 Copyright (C) 1986, 1987 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 1, 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"
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_SYSVIPC)
47 /* BSD code is very different from SYSV IPC code */
49 #include <sys/types.h>
50 #include <sys/socket.h>
56 extern char *sys_errlist
[];
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
91 gethostname (system_name
, sizeof (system_name
));
92 sprintf (server
.sun_path
, "/tmp/esrv%d-%s", geteuid (), system_name
);
94 if (stat (server
.sun_path
, &statbfr
) == -1)
99 if (statbfr
.st_uid
!= geteuid())
101 fprintf (stderr
, "Illegal socket owner\n");
105 if ((homedir
= getenv ("HOME")) == NULL
)
107 fprintf (stderr
, "%s: No home directory\n", argv
[0]);
110 strcpy (server
.sun_path
, homedir
);
111 strcat (server
.sun_path
, "/.emacs_server");
114 if (connect (s
, &server
, strlen (server
.sun_path
) + 2) < 0)
116 fprintf (stderr
, "%s: ", argv
[0]);
120 if ((out
= fdopen (s
, "r+")) == NULL
)
122 fprintf (stderr
, "%s: ", argv
[0]);
127 cwd
= getwd (string
);
130 /* getwd puts message in STRING if it fails. */
131 fprintf (stderr
, "%s: %s (%s)\n", argv
[0], string
,
132 (errno
< sys_nerr
) ? sys_errlist
[errno
] : "unknown error");
136 for (i
= 1; i
< argc
; i
++)
140 char *p
= argv
[i
] + 1;
141 while (*p
>= '0' && *p
<= '9') p
++;
143 fprintf (out
, "%s/", cwd
);
145 else if (*argv
[i
] != '/')
146 fprintf (out
, "%s/", cwd
);
147 fprintf (out
, "%s ", argv
[i
]);
152 printf ("Waiting for Emacs...");
155 rewind (out
); /* re-read the output */
156 str
= fgets (string
, BUFSIZ
, out
);
158 /* Now, wait for an answer and print any messages. */
160 while (str
= fgets (string
, BUFSIZ
, out
))
166 #else /* This is the SYSV IPC section */
168 #include <sys/types.h>
179 struct msgbuf
* msgp
=
180 (struct msgbuf
*) malloc (sizeof *msgp
+ BUFSIZ
);
181 struct msqid_ds
* msg_st
;
182 char *homedir
, buf
[BUFSIZ
];
186 char *getwd (), *getcwd (), *getenv ();
190 fprintf (stderr
, "Usage: %s [+linenumber] filename\n", argv
[0]);
195 * Create a message queue using ~/.emacs_server as the path for ftok
197 if ((homedir
= getenv ("HOME")) == NULL
)
199 fprintf (stderr
, "%s: No home directory\n", argv
[0]);
202 strcpy (buf
, homedir
);
203 strcat (buf
, "/.emacs_server");
205 key
= ftok (buf
, 1); /* unlikely to be anyone else using it */
206 s
= msgget (key
, 0600);
209 fprintf (stderr
, "%s: ", argv
[0]);
214 /* Determine working dir, so we can prefix it to all the arguments. */
216 temp
= getwd (gwdirb
);
218 temp
= getcwd (gwdirb
, sizeof gwdirb
);
224 /* On some systems, cwd can look like `@machine/...';
225 ignore everything before the first slash in such a case. */
226 while (*cwd
&& *cwd
!= '/')
232 fprintf (stderr
, cwd
);
242 char *p
= argv
[0] + 1;
243 while (*p
>= '0' && *p
<= '9') p
++;
245 strcat (msgp
->mtext
, cwd
);
247 else if (*argv
[0] != '/')
248 strcat (msgp
->mtext
, cwd
);
250 strcat (msgp
->mtext
, argv
[0]);
251 strcat (msgp
->mtext
, " ");
254 strcat (msgp
->mtext
, "\n");
256 if (msgsnd (s
, msgp
, strlen (msgp
->mtext
)+1, 0) < 0)
258 fprintf (stderr
, "%s: ", argv
[0]);
263 * Now, wait for an answer
265 printf ("Waiting for Emacs...");
268 msgrcv (s
, msgp
, BUFSIZ
, getpid (), 0); /* wait for anything back */
269 strcpy (buf
, msgp
->mtext
);
271 printf ("\n%s\n", buf
);
275 #endif /* HAVE_SYSVIPC */
277 #endif /* HAVE_SOCKETS or HAVE_SYSVIPC */