[bpt/emacs.git] / lib-src / emacsclient.c

/* Client process that communicates with GNU Emacs acting as server.
   Copyright (C) 1986, 1987, 1994 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.

GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING.  If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */


#define NO_SHORTNAMES
#include <../src/config.h>
#undef read
#undef write
#undef open
#undef close
#undef signal


#if !defined(HAVE_SOCKETS) && !defined(HAVE_SYSVIPC)
#include <stdio.h>

main (argc, argv)
     int argc;
     char **argv;
{
  fprintf (stderr, "%s: Sorry, the Emacs server is supported only\n",
	   argv[0]);
  fprintf (stderr, "on systems with Berkeley sockets or System V IPC.\n");
  exit (1);
}

#else /* HAVE_SOCKETS or HAVE_SYSVIPC */

#if ! defined (HAVE_SYSVIPC)
/* BSD code is very different from SYSV IPC code */

#include <sys/types.h>
#include <sys/socket.h>
#include <sys/un.h>
#include <sys/stat.h>
#include <stdio.h>
#include <errno.h>

extern char *strerror ();
extern int errno;

main (argc, argv)
     int argc;
     char **argv;
{
  char system_name[32];
  int s, i;
  FILE *out;
  struct sockaddr_un server;
  char *homedir, *cwd, *str;
  char string[BUFSIZ];

  char *getenv (), *getwd ();
  int geteuid ();

  if (argc < 2)
    {
      fprintf (stderr, "Usage: %s [+linenumber] filename\n", argv[0]);
      exit (1);
    }

  /* 
   * Open up an AF_UNIX socket in this person's home directory
   */

  if ((s = socket (AF_UNIX, SOCK_STREAM, 0)) < 0)
    {
      fprintf (stderr, "%s: ", argv[0]);
      perror ("socket");
      exit (1);
    }
  server.sun_family = AF_UNIX;
#ifndef SERVER_HOME_DIR
  {
    struct stat statbfr;

    gethostname (system_name, sizeof (system_name));
    sprintf (server.sun_path, "/tmp/esrv%d-%s", geteuid (), system_name);

    if (stat (server.sun_path, &statbfr) == -1)
      {
	if (errno == ENOENT)
	  fprintf (stderr,
		   "Can't find socket; have you started the server?\n");
	else
	  perror ("stat");
	exit (1);
      }
    if (statbfr.st_uid != geteuid())
      {
	fprintf (stderr, "Illegal socket owner\n");
	exit (1);
      }
  }
#else
  if ((homedir = getenv ("HOME")) == NULL)
    {
      fprintf (stderr, "%s: No home directory\n", argv[0]);
      exit (1);
    }
  strcpy (server.sun_path, homedir);
  strcat (server.sun_path, "/.emacs_server");
#endif

  if (connect (s, (struct sockaddr *) &server, strlen (server.sun_path) + 2)
      < 0)
    {
      fprintf (stderr, "%s: ", argv[0]);
      perror ("connect");
      exit (1);
    }
  if ((out = fdopen (s, "r+")) == NULL)
    {
      fprintf (stderr, "%s: ", argv[0]);
      perror ("fdopen");
      exit (1);
    }

  cwd = getwd (string);
  if (cwd == 0)
    {
      /* getwd puts message in STRING if it fails.  */
      fprintf (stderr, "%s: %s (%s)\n", argv[0], string, strerror (errno));
      exit (1);
    }

  for (i = 1; i < argc; i++)
    {
      if (*argv[i] == '+')
	{
	  char *p = argv[i] + 1;
	  while (*p >= '0' && *p <= '9') p++;
	  if (*p != 0)
	    fprintf (out, "%s/", cwd);
	}
      else if (*argv[i] != '/')
	fprintf (out, "%s/", cwd);
      fprintf (out, "%s ", argv[i]);
    }
  fprintf (out, "\n");
  fflush (out);

  printf ("Waiting for Emacs...");
  fflush (stdout);

  rewind (out); /* re-read the output */
  str = fgets (string, BUFSIZ, out); 

  /* Now, wait for an answer and print any messages.  */
  
  while (str = fgets (string, BUFSIZ, out))
    printf ("%s", str);
  
  exit (0);
}

#else /* This is the SYSV IPC section */

#include <sys/types.h>
#include <sys/ipc.h>
#include <sys/msg.h>
#include <stdio.h>

char *getwd (), *getcwd (), *getenv ();

main (argc, argv)
     int argc;
     char **argv;
{
  int s;
  key_t key;
  /* Size of text allocated in MSGP.  */
  int size_allocated = BUFSIZ;
  /* Amount of text used in MSGP.  */
  int used;
  struct msgbuf *msgp
    = (struct msgbuf *) malloc (sizeof (struct msgbuf) + size_allocated);
  struct msqid_ds * msg_st;
  char *homedir, buf[BUFSIZ];
  char gwdirb[BUFSIZ];
  char *cwd;
  char *temp;
  char *progname = argv[0];

  if (argc < 2)
    {
      fprintf (stderr, "Usage: %s [+linenumber] filename\n", argv[0]);
      exit (1);
    }

  /*
   * Create a message queue using ~/.emacs_server as the path for ftok
   */
  if ((homedir = getenv ("HOME")) == NULL)
    {
      fprintf (stderr, "%s: No home directory\n", argv[0]);
      exit (1);
    }
  strcpy (buf, homedir);
  strcat (buf, "/.emacs_server");
  creat (buf, 0600);
  key = ftok (buf, 1);	/* unlikely to be anyone else using it */
  s = msgget (key, 0600 | IPC_CREAT);
  if (s == -1)
    {
      fprintf (stderr, "%s: ", argv[0]);
      perror ("msgget");
      exit (1);
    }

  /* Determine working dir, so we can prefix it to all the arguments.  */
#ifdef BSD
  temp = getwd (gwdirb);
#else
  temp = getcwd (gwdirb, sizeof gwdirb);
#endif

  cwd = gwdirb;
  if (temp != 0)
    {
      /* On some systems, cwd can look like `@machine/...';
	 ignore everything before the first slash in such a case.  */
      while (*cwd && *cwd != '/')
	cwd++;
      strcat (cwd, "/");
    }
  else
    {
      fprintf (stderr, cwd);
      exit (1);
    }

  msgp->mtext[0] = 0;
  used = 0;
  argc--; argv++;
  while (argc)
    {
      int need_cwd = 0;
      char *modified_arg = argv[0];
      if (*modified_arg == '+')
	{
	  char *p = modified_arg + 1;
	  while (*p >= '0' && *p <= '9') p++;
	  if (*p != 0)
	    need_cwd = 1;
	}
      else if (*modified_arg != '/')
	need_cwd = 1;

      if (need_cwd)
	used += strlen (cwd);
      used += strlen (modified_arg) + 1;
      while (used + 2 > size_allocated)
	{
	  size_allocated *= 2;
	  msgp = (struct msgbuf *) realloc (msgp,
					    (sizeof (struct msgbuf)
					     + size_allocated));
	}

      if (need_cwd)
	strcat (msgp->mtext, cwd);

      strcat (msgp->mtext, modified_arg);
      strcat (msgp->mtext, " ");
      argv++; argc--;
    }
  strcat (msgp->mtext, "\n");
#ifdef HPUX /* HPUX has a bug.  */
  if (strlen (msgp->mtext) >= 512)
    {
      fprintf (stderr, "emacsclient: args too long for msgsnd\n");
      exit (1);
    }
#endif
  msgp->mtype = 1;
  if (msgsnd (s, msgp, strlen (msgp->mtext)+1, 0) < 0)
    {
      fprintf (stderr, "%s: ", progname);
      perror ("msgsnd");
      exit (1);
    }
  /*
   * Now, wait for an answer
   */
  printf ("Waiting for Emacs...");
  fflush (stdout);

  msgrcv (s, msgp, BUFSIZ, getpid (), 0);	/* wait for anything back */
  strcpy (buf, msgp->mtext);

  printf ("\n%s\n", buf);
  exit (0);
}

#endif /* HAVE_SYSVIPC */

#endif /* HAVE_SOCKETS or HAVE_SYSVIPC */
\f
#ifndef HAVE_STRERROR
char *
strerror (errnum)
     int errnum;
{
  extern char *sys_errlist[];
  extern int sys_nerr;

  if (errnum >= 0 && errnum < sys_nerr)
    return sys_errlist[errnum];
  return (char *) "Unknown error";
}

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