code.delx.au - gnu-emacs/blob - lib-src/emacsclient.c

   1 /* Client process that communicates with GNU Emacs acting as server.
   2    Copyright (C) 1986, 1987, 1994 Free Software Foundation, Inc.
   3
   4 This file is part of GNU Emacs.
   5
   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)
   9 any later version.
  10
  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.
  15
  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.  */
  19
  20
  21 #define NO_SHORTNAMES
  22 #include <../src/config.h>
  23 #undef read
  24 #undef write
  25 #undef open
  26 #undef close
  27 #undef signal
  28
  29
  30 #if !defined (HAVE_SOCKETS) && !defined (HAVE_SYSVIPC)
  31 #include <stdio.h>
  32
  33 main (argc, argv)
  34      int argc;
  35      char **argv;
  36 {
  37   fprintf (stderr, "%s: Sorry, the Emacs server is supported only\n",
  38            argv[0]);
  39   fprintf (stderr, "on systems with Berkeley sockets or System V IPC.\n");
  40   exit (1);
  41 }
  42
  43 #else /* HAVE_SOCKETS or HAVE_SYSVIPC */
  44
  45 #if defined (HAVE_SOCKETS) && ! defined (NO_SOCKETS_IN_FILE_SYSTEM)
  46 /* BSD code is very different from SYSV IPC code */
  47
  48 #include <sys/types.h>
  49 #include <sys/socket.h>
  50 #include <sys/un.h>
  51 #include <sys/stat.h>
  52 #include <stdio.h>
  53 #include <errno.h>
  54
  55 extern char *strerror ();
  56 extern int errno;
  57
  58 int
  59 main (argc, argv)
  60      int argc;
  61      char **argv;
  62 {
  63   char system_name[32];
  64   int s, i;
  65   FILE *out;
  66   struct sockaddr_un server;
  67   char *homedir, *cwd, *str;
  68   char string[BUFSIZ];
  69
  70   char *getenv (), *getwd ();
  71   char *getcwd ();
  72   int geteuid ();
  73
  74   if (argc < 2)
  75     {
  76       fprintf (stderr, "Usage: %s [+linenumber] filename\n", argv[0]);
  77       exit (1);
  78     }
  79
  80   /*
  81    * Open up an AF_UNIX socket in this person's home directory
  82    */
  83
  84   if ((s = socket (AF_UNIX, SOCK_STREAM, 0)) < 0)
  85     {
  86       fprintf (stderr, "%s: ", argv[0]);
  87       perror ("socket");
  88       exit (1);
  89     }
  90   server.sun_family = AF_UNIX;
  91 #ifndef SERVER_HOME_DIR
  92   {
  93     struct stat statbfr;
  94
  95     gethostname (system_name, sizeof (system_name));
  96     sprintf (server.sun_path, "/tmp/esrv%d-%s", geteuid (), system_name);
  97
  98     if (stat (server.sun_path, &statbfr) == -1)
  99       {
 100         if (errno == ENOENT)
 101           fprintf (stderr,
 102                    "%s: can't find socket; have you started the server?\n",
 103                    argv[0]);
 104         else
 105           fprintf (stderr, "%s: can't stat %s: %s\n",
 106                    argv[0], server.sun_path, strerror (errno));
 107         exit (1);
 108       }
 109     if (statbfr.st_uid != geteuid ())
 110       {
 111         fprintf (stderr, "%s: Invalid socket owner\n", argv[0]);
 112         exit (1);
 113       }
 114   }
 115 #else
 116   if ((homedir = getenv ("HOME")) == NULL)
 117     {
 118       fprintf (stderr, "%s: No home directory\n", argv[0]);
 119       exit (1);
 120     }
 121   strcpy (server.sun_path, homedir);
 122   strcat (server.sun_path, "/.emacs-server-");
 123   gethostname (system_name, sizeof (system_name));
 124   strcat (server.sun_path, system_name);
 125 #endif
 126
 127   if (connect (s, (struct sockaddr *) &server, strlen (server.sun_path) + 2)
 128       < 0)
 129     {
 130       fprintf (stderr, "%s: ", argv[0]);
 131       perror ("connect");
 132       exit (1);
 133     }
 134   if ((out = fdopen (s, "r+")) == NULL)
 135     {
 136       fprintf (stderr, "%s: ", argv[0]);
 137       perror ("fdopen");
 138       exit (1);
 139     }
 140
 141 #ifdef BSD
 142   cwd = getwd (string);
 143 #else
 144   cwd = getcwd (string, sizeof string);
 145 #endif
 146   if (cwd == 0)
 147     {
 148       /* getwd puts message in STRING if it fails.  */
 149       fprintf (stderr, "%s: %s (%s)\n", argv[0], string, strerror (errno));
 150       exit (1);
 151     }
 152
 153   for (i = 1; i < argc; i++)
 154     {
 155       if (*argv[i] == '+')
 156         {
 157           char *p = argv[i] + 1;
 158           while (*p >= '0' && *p <= '9') p++;
 159           if (*p != 0)
 160             fprintf (out, "%s/", cwd);
 161         }
 162       else if (*argv[i] != '/')
 163         fprintf (out, "%s/", cwd);
 164       fprintf (out, "%s ", argv[i]);
 165     }
 166   fprintf (out, "\n");
 167   fflush (out);
 168
 169   printf ("Waiting for Emacs...");
 170   fflush (stdout);
 171
 172   rewind (out); /* re-read the output */
 173   str = fgets (string, BUFSIZ, out);
 174
 175   /* Now, wait for an answer and print any messages.  */
 176
 177   while (str = fgets (string, BUFSIZ, out))
 178     printf ("%s", str);
 179
 180   return 0;
 181 }
 182
 183 #else /* This is the SYSV IPC section */
 184
 185 #include <sys/types.h>
 186 #include <sys/ipc.h>
 187 #include <sys/msg.h>
 188 #include <sys/utsname.h>
 189 #include <stdio.h>
 190
 191 char *getwd (), *getcwd (), *getenv ();
 192 struct utsname system_name;
 193
 194 main (argc, argv)
 195      int argc;
 196      char **argv;
 197 {
 198   int s;
 199   key_t key;
 200   /* Size of text allocated in MSGP.  */
 201   int size_allocated = BUFSIZ;
 202   /* Amount of text used in MSGP.  */
 203   int used;
 204   struct msgbuf *msgp
 205     = (struct msgbuf *) malloc (sizeof (struct msgbuf) + size_allocated);
 206   struct msqid_ds * msg_st;
 207   char *homedir, buf[BUFSIZ];
 208   char gwdirb[BUFSIZ];
 209   char *cwd;
 210   char *temp;
 211   char *progname = argv[0];
 212
 213   if (argc < 2)
 214     {
 215       fprintf (stderr, "Usage: %s [+linenumber] filename\n", argv[0]);
 216       exit (1);
 217     }
 218
 219   /*
 220    * Create a message queue using ~/.emacs-server as the path for ftok
 221    */
 222   if ((homedir = getenv ("HOME")) == NULL)
 223     {
 224       fprintf (stderr, "%s: No home directory\n", argv[0]);
 225       exit (1);
 226     }
 227   strcpy (buf, homedir);
 228 #ifndef HAVE_LONG_FILE_NAMES
 229   /* If file names are short, we can't fit the host name.  */
 230   strcat (buf, "/.emacs-server");
 231 #else
 232   strcat (buf, "/.emacs-server-");
 233   uname (&system_name);
 234   strcat (buf, system_name.nodename);
 235 #endif
 236   creat (buf, 0600);
 237   key = ftok (buf, 1);  /* unlikely to be anyone else using it */
 238   s = msgget (key, 0600 | IPC_CREAT);
 239   if (s == -1)
 240     {
 241       fprintf (stderr, "%s: ", argv[0]);
 242       perror ("msgget");
 243       exit (1);
 244     }
 245
 246   /* Determine working dir, so we can prefix it to all the arguments.  */
 247 #ifdef BSD
 248   temp = getwd (gwdirb);
 249 #else
 250   temp = getcwd (gwdirb, sizeof gwdirb);
 251 #endif
 252
 253   cwd = gwdirb;
 254   if (temp != 0)
 255     {
 256       /* On some systems, cwd can look like `@machine/...';
 257          ignore everything before the first slash in such a case.  */
 258       while (*cwd && *cwd != '/')
 259         cwd++;
 260       strcat (cwd, "/");
 261     }
 262   else
 263     {
 264       fprintf (stderr, cwd);
 265       exit (1);
 266     }
 267
 268   msgp->mtext[0] = 0;
 269   used = 0;
 270   argc--; argv++;
 271   while (argc)
 272     {
 273       int need_cwd = 0;
 274       char *modified_arg = argv[0];
 275       if (*modified_arg == '+')
 276         {
 277           char *p = modified_arg + 1;
 278           while (*p >= '0' && *p <= '9') p++;
 279           if (*p != 0)
 280             need_cwd = 1;
 281         }
 282       else if (*modified_arg != '/')
 283         need_cwd = 1;
 284
 285       if (need_cwd)
 286         used += strlen (cwd);
 287       used += strlen (modified_arg) + 1;
 288       while (used + 2 > size_allocated)
 289         {
 290           size_allocated *= 2;
 291           msgp = (struct msgbuf *) realloc (msgp,
 292                                             (sizeof (struct msgbuf)
 293                                              + size_allocated));
 294         }
 295
 296       if (need_cwd)
 297         strcat (msgp->mtext, cwd);
 298
 299       strcat (msgp->mtext, modified_arg);
 300       strcat (msgp->mtext, " ");
 301       argv++; argc--;
 302     }
 303   strcat (msgp->mtext, "\n");
 304 #ifdef HPUX /* HPUX has a bug.  */
 305   if (strlen (msgp->mtext) >= 512)
 306     {
 307       fprintf (stderr, "%s: args too long for msgsnd\n", progname);
 308       exit (1);
 309     }
 310 #endif
 311   msgp->mtype = 1;
 312   if (msgsnd (s, msgp, strlen (msgp->mtext)+1, 0) < 0)
 313     {
 314       fprintf (stderr, "%s: ", progname);
 315       perror ("msgsnd");
 316       exit (1);
 317     }
 318   /*
 319    * Now, wait for an answer
 320    */
 321   printf ("Waiting for Emacs...");
 322   fflush (stdout);
 323
 324   msgrcv (s, msgp, BUFSIZ, getpid (), 0);       /* wait for anything back */
 325   strcpy (buf, msgp->mtext);
 326
 327   printf ("\n%s\n", buf);
 328   exit (0);
 329 }
 330
 331 #endif /* HAVE_SYSVIPC */
 332
 333 #endif /* HAVE_SOCKETS or HAVE_SYSVIPC */
 334 \f
 335 #ifndef HAVE_STRERROR
 336 char *
 337 strerror (errnum)
 338      int errnum;
 339 {
 340   extern char *sys_errlist[];
 341   extern int sys_nerr;
 342
 343   if (errnum >= 0 && errnum < sys_nerr)
 344     return sys_errlist[errnum];
 345   return (char *) "Unknown error";
 346 }
 347
 348 #endif /* ! HAVE_STRERROR */