is not running. --alternate-editor. */
const char * alternate_editor = NULL;
+/* If non-NULL, the filename of the UNIX socket. */
+char *socket_name = NULL;
+
void print_help_and_exit ();
struct option longopts[] =
{ "help", no_argument, NULL, 'H' },
{ "version", no_argument, NULL, 'V' },
{ "alternate-editor", required_argument, NULL, 'a' },
+ { "socket-name", required_argument, NULL, 's' },
{ "display", required_argument, NULL, 'd' },
{ 0, 0, 0, 0 }
};
while (1)
{
int opt = getopt_long (argc, argv,
- "VHnea:d:", longopts, 0);
+ "VHnea:s:d:", longopts, 0);
if (opt == EOF)
break;
alternate_editor = optarg;
break;
+ case 's':
+ socket_name = optarg;
+ break;
+
case 'd':
display = optarg;
break;
-n, --no-wait Don't wait for the server to return\n\
-e, --eval Evaluate the FILE arguments as ELisp expressions\n\
-d, --display=DISPLAY Visit the file in the given display\n\
+-s, --socket-name=FILENAME\n\
+ Set the filename of the UNIX socket for communication\n\
-a, --alternate-editor=EDITOR\n\
Editor to fallback to if the server is not running\n\
\n\
exit (0);
}
-/* Return a copy of NAME, inserting a &
+/* Inserting a &
before each &, each space, each newline, and any initial -.
Change spaces to underscores, too, so that the
return value never contains a space. */
-char *
-quote_file_name (name)
+void
+quote_file_name (name, stream)
char *name;
+ FILE *stream;
{
char *copy = (char *) malloc (strlen (name) * 2 + 1);
char *p, *q;
}
*q++ = 0;
- return copy;
+ fprintf (stream, copy);
+
+ free (copy);
}
/* Like malloc but get fatal error if memory is exhausted. */
/* Process options. */
decode_options (argc, argv);
- if (argc - optind < 1)
+ if ((argc - optind < 1) && !eval)
{
fprintf (stderr, "%s: file name or argument required\n", progname);
fprintf (stderr, "Try `%s --help' for more information\n", progname);
{
int sock_status = 0;
- sprintf (server.sun_path, "/tmp/emacs%d-%s/server", (int) geteuid (), system_name);
+ if (! socket_name)
+ {
+ socket_name = alloca (system_name_length + 100);
+ sprintf (socket_name, "/tmp/emacs%d-%s/server",
+ (int) geteuid (), system_name);
+ }
+
+ if (strlen (socket_name) < sizeof (server.sun_path))
+ strcpy (server.sun_path, socket_name);
+ else
+ fprintf (stderr, "%s: socket-name %s too long",
+ argv[0], socket_name);
/* See if the socket exists, and if it's owned by us. */
sock_status = socket_status (server.sun_path);
fprintf (out, "-eval ");
if (display)
- fprintf (out, "-display %s ", quote_file_name (display));
+ {
+ fprintf (out, "-display ");
+ quote_file_name (display, out);
+ fprintf (out, " ");
+ }
- for (i = optind; i < argc; i++)
+ if ((argc - optind > 0))
{
- if (eval)
- ; /* Don't prepend any cwd or anything like that. */
- else if (*argv[i] == '+')
+ for (i = optind; i < argc; i++)
{
- char *p = argv[i] + 1;
- while (isdigit ((unsigned char) *p) || *p == ':') p++;
- if (*p != 0)
- fprintf (out, "%s/", quote_file_name (cwd));
+ if (eval)
+ ; /* Don't prepend any cwd or anything like that. */
+ else if (*argv[i] == '+')
+ {
+ char *p = argv[i] + 1;
+ while (isdigit ((unsigned char) *p) || *p == ':') p++;
+ if (*p != 0)
+ {
+ quote_file_name (cwd, out);
+ fprintf (out, "/");
+ }
+ }
+ else if (*argv[i] != '/')
+ {
+ quote_file_name (cwd, out);
+ fprintf (out, "/");
+ }
+
+ quote_file_name (argv[i], out);
+ fprintf (out, " ");
}
- else if (*argv[i] != '/')
- fprintf (out, "%s/", quote_file_name (cwd));
-
- fprintf (out, "%s ", quote_file_name (argv[i]));
}
+ else
+ {
+ while ((str = fgets (string, BUFSIZ, stdin)))
+ {
+ quote_file_name (str, out);
+ }
+ fprintf (out, " ");
+ }
+
fprintf (out, "\n");
fflush (out);