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>
57 extern char *sys_errlist
[];
67 struct sockaddr_un server
;
68 char *homedir
, *cwd
, *str
;
71 char *getenv (), *getwd ();
76 fprintf (stderr
, "Usage: %s [+linenumber] filename\n", argv
[0]);
81 * Open up an AF_UNIX socket in this person's home directory
84 if ((s
= socket (AF_UNIX
, SOCK_STREAM
, 0)) < 0)
86 fprintf (stderr
, "%s: ", argv
[0]);
90 server
.sun_family
= AF_UNIX
;
91 #ifndef SERVER_HOME_DIR
95 gethostname (system_name
, sizeof (system_name
));
96 sprintf (server
.sun_path
, "/tmp/esrv%d-%s", geteuid (), system_name
);
98 if (stat (server
.sun_path
, &statbfr
) == -1)
102 "Can't find socket; have you started the server?\n");
107 if (statbfr
.st_uid
!= geteuid())
109 fprintf (stderr
, "Illegal socket owner\n");
114 if ((homedir
= getenv ("HOME")) == NULL
)
116 fprintf (stderr
, "%s: No home directory\n", argv
[0]);
119 strcpy (server
.sun_path
, homedir
);
120 strcat (server
.sun_path
, "/.emacs_server");
123 if (connect (s
, &server
, strlen (server
.sun_path
) + 2) < 0)
125 fprintf (stderr
, "%s: ", argv
[0]);
129 if ((out
= fdopen (s
, "r+")) == NULL
)
131 fprintf (stderr
, "%s: ", argv
[0]);
136 cwd
= getwd (string
);
139 /* getwd puts message in STRING if it fails. */
140 fprintf (stderr
, "%s: %s (%s)\n", argv
[0], string
,
141 (errno
< sys_nerr
) ? sys_errlist
[errno
] : "unknown error");
145 for (i
= 1; i
< argc
; i
++)
149 char *p
= argv
[i
] + 1;
150 while (*p
>= '0' && *p
<= '9') p
++;
152 fprintf (out
, "%s/", cwd
);
154 else if (*argv
[i
] != '/')
155 fprintf (out
, "%s/", cwd
);
156 fprintf (out
, "%s ", argv
[i
]);
161 printf ("Waiting for Emacs...");
164 rewind (out
); /* re-read the output */
165 str
= fgets (string
, BUFSIZ
, out
);
167 /* Now, wait for an answer and print any messages. */
169 while (str
= fgets (string
, BUFSIZ
, out
))
175 #else /* This is the SYSV IPC section */
177 #include <sys/types.h>
188 struct msgbuf
* msgp
=
189 (struct msgbuf
*) malloc (sizeof *msgp
+ BUFSIZ
);
190 struct msqid_ds
* msg_st
;
191 char *homedir
, buf
[BUFSIZ
];
195 char *getwd (), *getcwd (), *getenv ();
199 fprintf (stderr
, "Usage: %s [+linenumber] filename\n", argv
[0]);
204 * Create a message queue using ~/.emacs_server as the path for ftok
206 if ((homedir
= getenv ("HOME")) == NULL
)
208 fprintf (stderr
, "%s: No home directory\n", argv
[0]);
211 strcpy (buf
, homedir
);
212 strcat (buf
, "/.emacs_server");
214 key
= ftok (buf
, 1); /* unlikely to be anyone else using it */
215 s
= msgget (key
, 0600);
218 fprintf (stderr
, "%s: ", argv
[0]);
223 /* Determine working dir, so we can prefix it to all the arguments. */
225 temp
= getwd (gwdirb
);
227 temp
= getcwd (gwdirb
, sizeof gwdirb
);
233 /* On some systems, cwd can look like `@machine/...';
234 ignore everything before the first slash in such a case. */
235 while (*cwd
&& *cwd
!= '/')
241 fprintf (stderr
, cwd
);
251 char *p
= argv
[0] + 1;
252 while (*p
>= '0' && *p
<= '9') p
++;
254 strcat (msgp
->mtext
, cwd
);
256 else if (*argv
[0] != '/')
257 strcat (msgp
->mtext
, cwd
);
259 strcat (msgp
->mtext
, argv
[0]);
260 strcat (msgp
->mtext
, " ");
263 strcat (msgp
->mtext
, "\n");
265 if (msgsnd (s
, msgp
, strlen (msgp
->mtext
)+1, 0) < 0)
267 fprintf (stderr
, "%s: ", argv
[0]);
272 * Now, wait for an answer
274 printf ("Waiting for Emacs...");
277 msgrcv (s
, msgp
, BUFSIZ
, getpid (), 0); /* wait for anything back */
278 strcpy (buf
, msgp
->mtext
);
280 printf ("\n%s\n", buf
);
284 #endif /* HAVE_SYSVIPC */
286 #endif /* HAVE_SOCKETS or HAVE_SYSVIPC */