Mercurial > emacs
annotate lib-src/emacsclient.c @ 37766:9be4cab94990
Add something for auto-coding-regexp-alist.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 17 May 2001 09:11:21 +0000 |
parents | ab2a21b7b7ed |
children | efc4642cfb1a |
rev | line source |
---|---|
493 | 1 /* Client process that communicates with GNU Emacs acting as server. |
37165
32679fe3e196
(fail, main): Don't use implicit int return type.
Gerd Moellmann <gerd@gnu.org>
parents:
34953
diff
changeset
|
2 Copyright (C) 1986, 1987, 1994, 1999, 2000, 2001 |
32679fe3e196
(fail, main): Don't use implicit int return type.
Gerd Moellmann <gerd@gnu.org>
parents:
34953
diff
changeset
|
3 Free Software Foundation, Inc. |
412 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
7 GNU Emacs is free software; you can redistribute it and/or modify | |
8 it under the terms of the GNU General Public License as published by | |
5522
64a936b21f74
Don't declare sys_errlist; declare strerror instead.
Roland McGrath <roland@gnu.org>
parents:
4696
diff
changeset
|
9 the Free Software Foundation; either version 2, or (at your option) |
412 | 10 any later version. |
11 | |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
18 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11486
diff
changeset
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11486
diff
changeset
|
20 Boston, MA 02111-1307, USA. */ |
412 | 21 |
22 | |
23 #define NO_SHORTNAMES | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
3595
diff
changeset
|
24 #include <../src/config.h> |
3595
e10f7473d2e3
* emacsserver.c (main): When we're passing a `struct sockaddr_un'
Jim Blandy <jimb@redhat.com>
parents:
1031
diff
changeset
|
25 #undef signal |
412 | 26 |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
27 #include <stdio.h> |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
28 #include <getopt.h> |
21431
a080769e8f7d
Move inclusion of unistd.h to top, else fails on
Dave Love <fx@gnu.org>
parents:
21387
diff
changeset
|
29 #ifdef HAVE_UNISTD_H |
a080769e8f7d
Move inclusion of unistd.h to top, else fails on
Dave Love <fx@gnu.org>
parents:
21387
diff
changeset
|
30 #include <unistd.h> |
a080769e8f7d
Move inclusion of unistd.h to top, else fails on
Dave Love <fx@gnu.org>
parents:
21387
diff
changeset
|
31 #endif |
412 | 32 |
27474
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
33 #ifdef VMS |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
34 # include "vms-pwd.h" |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
35 #else |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
36 # include <pwd.h> |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
37 #endif /* not VMS */ |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
38 |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
39 char *getenv (), *getwd (); |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
40 char *getcwd (); |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
41 |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
42 /* This is defined with -D from the compilation command, |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
43 which extracts it from ../lisp/version.el. */ |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
44 |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
45 #ifndef VERSION |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
46 #define VERSION "unspecified" |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
47 #endif |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
48 |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
49 /* Name used to invoke this program. */ |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
50 char *progname; |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
51 |
16146
a649abfefbb1
(longopts): Change nowait to no-wait.
Richard M. Stallman <rms@gnu.org>
parents:
16074
diff
changeset
|
52 /* Nonzero means don't wait for a response from Emacs. --no-wait. */ |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
53 int nowait = 0; |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
54 |
21387
4812cf228971
Include <stdlib.h> and <unistd.h> if available.
Andreas Schwab <schwab@suse.de>
parents:
19582
diff
changeset
|
55 void print_help_and_exit (); |
4812cf228971
Include <stdlib.h> and <unistd.h> if available.
Andreas Schwab <schwab@suse.de>
parents:
19582
diff
changeset
|
56 |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
57 struct option longopts[] = |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
58 { |
16146
a649abfefbb1
(longopts): Change nowait to no-wait.
Richard M. Stallman <rms@gnu.org>
parents:
16074
diff
changeset
|
59 { "no-wait", no_argument, NULL, 'n' }, |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
60 { "help", no_argument, NULL, 'H' }, |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
61 { "version", no_argument, NULL, 'V' }, |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
62 { "alternate-editor",required_argument, NULL, 'a' }, |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
63 { 0 } |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
64 }; |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
65 |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
66 |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
67 const char * alternate_editor = NULL; |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
68 |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
69 /* Decode the options from argv and argc. |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
70 The global variable `optind' will say how many arguments we used up. */ |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
71 |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
72 void |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
73 decode_options (argc, argv) |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
74 int argc; |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
75 char **argv; |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
76 { |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
77 while (1) |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
78 { |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
79 int opt = getopt_long (argc, argv, |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
80 "VHna:", longopts, 0); |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
81 |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
82 if (opt == EOF) |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
83 break; |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
84 |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
85 alternate_editor = getenv ("ALTERNATE_EDITOR"); |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
86 |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
87 switch (opt) |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
88 { |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
89 case 0: |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
90 /* If getopt returns 0, then it has already processed a |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
91 long-named option. We should do nothing. */ |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
92 break; |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
93 |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
94 case 'a': |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
95 alternate_editor = optarg; |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
96 break; |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
97 |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
98 case 'n': |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
99 nowait = 1; |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
100 break; |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
101 |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
102 case 'V': |
25399
307d2eb37259
(decode_options): Update version output.
Karl Heuer <kwzh@gnu.org>
parents:
25261
diff
changeset
|
103 fprintf (stderr, "emacsclient %s\n", VERSION); |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
104 exit (1); |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
105 break; |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
106 |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
107 case 'H': |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
108 default: |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
109 print_help_and_exit (); |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
110 } |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
111 } |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
112 } |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
113 |
21387
4812cf228971
Include <stdlib.h> and <unistd.h> if available.
Andreas Schwab <schwab@suse.de>
parents:
19582
diff
changeset
|
114 void |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
115 print_help_and_exit () |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
116 { |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
117 fprintf (stderr, |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
118 "Usage: %s [-a ALTERNATE-EDITOR] [-n] [--no-wait] [+LINENUMBER] FILENAME\n", |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
119 progname); |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
120 fprintf (stderr, |
25430
8241db1fbb26
(print_help_and_exit): Mention --version.
Richard M. Stallman <rms@gnu.org>
parents:
25399
diff
changeset
|
121 "Or %s --version\n", |
8241db1fbb26
(print_help_and_exit): Mention --version.
Richard M. Stallman <rms@gnu.org>
parents:
25399
diff
changeset
|
122 progname); |
8241db1fbb26
(print_help_and_exit): Mention --version.
Richard M. Stallman <rms@gnu.org>
parents:
25399
diff
changeset
|
123 fprintf (stderr, |
25399
307d2eb37259
(decode_options): Update version output.
Karl Heuer <kwzh@gnu.org>
parents:
25261
diff
changeset
|
124 "Report bugs to bug-gnu-emacs@gnu.org.\n"); |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
125 exit (1); |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
126 } |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
127 |
16074
25cfff7ffced
(quote_file_name): Quote with &, not \.
Richard M. Stallman <rms@gnu.org>
parents:
16061
diff
changeset
|
128 /* Return a copy of NAME, inserting a & |
25cfff7ffced
(quote_file_name): Quote with &, not \.
Richard M. Stallman <rms@gnu.org>
parents:
16061
diff
changeset
|
129 before each &, each space, and any initial -. |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
130 Change spaces to underscores, too, so that the |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
131 return value never contains a space. */ |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
132 |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
133 char * |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
134 quote_file_name (name) |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
135 char *name; |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
136 { |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
137 char *copy = (char *) malloc (strlen (name) * 2 + 1); |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
138 char *p, *q; |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
139 |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
140 p = name; |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
141 q = copy; |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
142 while (*p) |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
143 { |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
144 if (*p == ' ') |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
145 { |
16074
25cfff7ffced
(quote_file_name): Quote with &, not \.
Richard M. Stallman <rms@gnu.org>
parents:
16061
diff
changeset
|
146 *q++ = '&'; |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
147 *q++ = '_'; |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
148 p++; |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
149 } |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
150 else |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
151 { |
16074
25cfff7ffced
(quote_file_name): Quote with &, not \.
Richard M. Stallman <rms@gnu.org>
parents:
16061
diff
changeset
|
152 if (*p == '&' || (*p == '-' && p == name)) |
25cfff7ffced
(quote_file_name): Quote with &, not \.
Richard M. Stallman <rms@gnu.org>
parents:
16061
diff
changeset
|
153 *q++ = '&'; |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
154 *q++ = *p++; |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
155 } |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
156 } |
16074
25cfff7ffced
(quote_file_name): Quote with &, not \.
Richard M. Stallman <rms@gnu.org>
parents:
16061
diff
changeset
|
157 *q++ = 0; |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
158 |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
159 |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
160 return copy; |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
161 } |
18701
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
162 |
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
163 /* Like malloc but get fatal error if memory is exhausted. */ |
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
164 |
24169
fbd8d10e80bd
(xmalloc): Declare to return long.
Richard M. Stallman <rms@gnu.org>
parents:
24084
diff
changeset
|
165 long * |
18701
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
166 xmalloc (size) |
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
167 unsigned int size; |
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
168 { |
24180
bc45833cd3c7
(xmalloc): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
24169
diff
changeset
|
169 long *result = (long *) malloc (size); |
18701
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
170 if (result == NULL) |
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
171 { |
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
172 perror ("malloc"); |
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
173 exit (1); |
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
174 } |
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
175 return result; |
9c7e0c926ed5
[C_ALLOCA] (xmalloc): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16218
diff
changeset
|
176 } |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
177 |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
178 /* |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
179 Try to run a different command, or --if no alternate editor is |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
180 defined-- exit with an errorcode. |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
181 */ |
37165
32679fe3e196
(fail, main): Don't use implicit int return type.
Gerd Moellmann <gerd@gnu.org>
parents:
34953
diff
changeset
|
182 void |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
183 fail (argc, argv) |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
184 int argc; |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
185 char **argv; |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
186 { |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
187 if (alternate_editor) |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
188 { |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
189 int i = optind -1 ; |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
190 execvp (alternate_editor, argv + i); |
37225 | 191 return; |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
192 } |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
193 else |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
194 { |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
195 exit (1); |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
196 } |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
197 } |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
198 |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
199 |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
200 |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
201 |
10124
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
202 #if !defined (HAVE_SOCKETS) && !defined (HAVE_SYSVIPC) |
412 | 203 |
37165
32679fe3e196
(fail, main): Don't use implicit int return type.
Gerd Moellmann <gerd@gnu.org>
parents:
34953
diff
changeset
|
204 int |
412 | 205 main (argc, argv) |
206 int argc; | |
207 char **argv; | |
208 { | |
209 fprintf (stderr, "%s: Sorry, the Emacs server is supported only\n", | |
210 argv[0]); | |
211 fprintf (stderr, "on systems with Berkeley sockets or System V IPC.\n"); | |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
212 |
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
213 fail (argc, argv); |
412 | 214 } |
215 | |
216 #else /* HAVE_SOCKETS or HAVE_SYSVIPC */ | |
217 | |
11368
91abe61bb495
Test NO_SOCKETS_IN_FILE_SYSTEM.
Richard M. Stallman <rms@gnu.org>
parents:
11232
diff
changeset
|
218 #if defined (HAVE_SOCKETS) && ! defined (NO_SOCKETS_IN_FILE_SYSTEM) |
412 | 219 /* BSD code is very different from SYSV IPC code */ |
220 | |
221 #include <sys/types.h> | |
222 #include <sys/socket.h> | |
223 #include <sys/un.h> | |
493 | 224 #include <sys/stat.h> |
412 | 225 #include <errno.h> |
226 | |
5522
64a936b21f74
Don't declare sys_errlist; declare strerror instead.
Roland McGrath <roland@gnu.org>
parents:
4696
diff
changeset
|
227 extern char *strerror (); |
412 | 228 extern int errno; |
229 | |
27474
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
230 /* Three possibilities: |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
231 2 - can't be `stat'ed (sets errno) |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
232 1 - isn't owned by us |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
233 0 - success: none of the above */ |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
234 |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
235 static int |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
236 socket_status (socket_name) |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
237 char *socket_name; |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
238 { |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
239 struct stat statbfr; |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
240 |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
241 if (stat (socket_name, &statbfr) == -1) |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
242 return 2; |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
243 |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
244 if (statbfr.st_uid != geteuid ()) |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
245 return 1; |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
246 |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
247 return 0; |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
248 } |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
249 |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
8360
diff
changeset
|
250 int |
412 | 251 main (argc, argv) |
252 int argc; | |
253 char **argv; | |
254 { | |
24084
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
255 char *system_name; |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
256 int system_name_length; |
412 | 257 int s, i; |
15758
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
258 FILE *out, *in; |
412 | 259 struct sockaddr_un server; |
34953
71ff4d0af84f
(main): Remove unused local variable statbfr.
Eli Zaretskii <eliz@gnu.org>
parents:
27474
diff
changeset
|
260 #ifdef SERVER_HOME_DIR |
71ff4d0af84f
(main): Remove unused local variable statbfr.
Eli Zaretskii <eliz@gnu.org>
parents:
27474
diff
changeset
|
261 char *homedir; |
71ff4d0af84f
(main): Remove unused local variable statbfr.
Eli Zaretskii <eliz@gnu.org>
parents:
27474
diff
changeset
|
262 #endif |
71ff4d0af84f
(main): Remove unused local variable statbfr.
Eli Zaretskii <eliz@gnu.org>
parents:
27474
diff
changeset
|
263 char *cwd, *str; |
412 | 264 char string[BUFSIZ]; |
265 | |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
266 progname = argv[0]; |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
267 |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
268 /* Process options. */ |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
269 decode_options (argc, argv); |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
270 |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
271 if (argc - optind < 1) |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
272 print_help_and_exit (); |
412 | 273 |
274 /* | |
275 * Open up an AF_UNIX socket in this person's home directory | |
276 */ | |
277 | |
278 if ((s = socket (AF_UNIX, SOCK_STREAM, 0)) < 0) | |
279 { | |
280 fprintf (stderr, "%s: ", argv[0]); | |
281 perror ("socket"); | |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
282 fail (argc, argv); |
412 | 283 } |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
284 |
412 | 285 server.sun_family = AF_UNIX; |
25261
89be69860eeb
(main): Move the dynamic allocation of
Karl Heuer <kwzh@gnu.org>
parents:
24652
diff
changeset
|
286 |
493 | 287 { |
24084
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
288 system_name_length = 32; |
493 | 289 |
24084
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
290 while (1) |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
291 { |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
292 system_name = (char *) xmalloc (system_name_length + 1); |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
293 |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
294 /* system_name must be null-terminated string. */ |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
295 system_name[system_name_length] = '\0'; |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
296 |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
297 if (gethostname (system_name, system_name_length) == 0) |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
298 break; |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
299 |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
300 free (system_name); |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
301 system_name_length *= 2; |
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
302 } |
25261
89be69860eeb
(main): Move the dynamic allocation of
Karl Heuer <kwzh@gnu.org>
parents:
24652
diff
changeset
|
303 } |
89be69860eeb
(main): Move the dynamic allocation of
Karl Heuer <kwzh@gnu.org>
parents:
24652
diff
changeset
|
304 |
89be69860eeb
(main): Move the dynamic allocation of
Karl Heuer <kwzh@gnu.org>
parents:
24652
diff
changeset
|
305 #ifndef SERVER_HOME_DIR |
89be69860eeb
(main): Move the dynamic allocation of
Karl Heuer <kwzh@gnu.org>
parents:
24652
diff
changeset
|
306 { |
27474
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
307 int sock_status = 0; |
24084
c0b0893dd5a6
(main): Eliminate arbitrary limit on length of system_name.
Richard M. Stallman <rms@gnu.org>
parents:
23412
diff
changeset
|
308 |
37225 | 309 sprintf (server.sun_path, "/tmp/esrv%d-%s", (int) geteuid (), system_name); |
412 | 310 |
27474
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
311 /* See if the socket exists, and if it's owned by us. */ |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
312 sock_status = socket_status (server.sun_path); |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
313 if (sock_status) |
493 | 314 { |
27474
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
315 /* Failing that, see if LOGNAME or USER exist and differ from |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
316 our euid. If so, look for a socket based on the UID |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
317 associated with the name. This is reminiscent of the logic |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
318 that init_editfns uses to set the global Vuser_full_name. */ |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
319 |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
320 char *user_name = (char *) getenv ("LOGNAME"); |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
321 if (!user_name) |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
322 user_name = (char *) getenv ("USER"); |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
323 |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
324 if (user_name) |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
325 { |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
326 struct passwd *pw = getpwnam (user_name); |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
327 if (pw && (pw->pw_uid != geteuid ())) |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
328 { |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
329 /* We're running under su, apparently. */ |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
330 sprintf (server.sun_path, "/tmp/esrv%d-%s", |
37225 | 331 (int) pw->pw_uid, system_name); |
27474
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
332 sock_status = socket_status (server.sun_path); |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
333 } |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
334 } |
493 | 335 } |
27474
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
336 |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
337 switch (sock_status) |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
338 { |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
339 case 1: |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
340 /* There's a socket, but it isn't owned by us. This is OK if |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
341 we are root. */ |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
342 if (0 != geteuid ()) |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
343 { |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
344 fprintf (stderr, "%s: Invalid socket owner\n", argv[0]); |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
345 fail (argc, argv); |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
346 } |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
347 break; |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
348 |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
349 case 2: |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
350 /* `stat' failed */ |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
351 if (errno == ENOENT) |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
352 fprintf (stderr, |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
353 "%s: can't find socket; have you started the server?\n", |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
354 argv[0]); |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
355 else |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
356 fprintf (stderr, "%s: can't stat %s: %s\n", |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
357 argv[0], server.sun_path, strerror (errno)); |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
358 fail (argc, argv); |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
359 break; |
ed3668c0295a
(socket_status): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
27305
diff
changeset
|
360 } |
493 | 361 } |
412 | 362 #else |
363 if ((homedir = getenv ("HOME")) == NULL) | |
364 { | |
365 fprintf (stderr, "%s: No home directory\n", argv[0]); | |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
366 fail (argc, argv); |
412 | 367 } |
368 strcpy (server.sun_path, homedir); | |
10124
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
369 strcat (server.sun_path, "/.emacs-server-"); |
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
370 strcat (server.sun_path, system_name); |
412 | 371 #endif |
372 | |
3595
e10f7473d2e3
* emacsserver.c (main): When we're passing a `struct sockaddr_un'
Jim Blandy <jimb@redhat.com>
parents:
1031
diff
changeset
|
373 if (connect (s, (struct sockaddr *) &server, strlen (server.sun_path) + 2) |
e10f7473d2e3
* emacsserver.c (main): When we're passing a `struct sockaddr_un'
Jim Blandy <jimb@redhat.com>
parents:
1031
diff
changeset
|
374 < 0) |
412 | 375 { |
376 fprintf (stderr, "%s: ", argv[0]); | |
377 perror ("connect"); | |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
378 fail (argc, argv); |
412 | 379 } |
15758
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
380 |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
381 /* We use the stream OUT to send our command to the server. */ |
412 | 382 if ((out = fdopen (s, "r+")) == NULL) |
383 { | |
384 fprintf (stderr, "%s: ", argv[0]); | |
385 perror ("fdopen"); | |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
386 fail (argc, argv); |
412 | 387 } |
388 | |
15758
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
389 /* We use the stream IN to read the response. |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
390 We used to use just one stream for both output and input |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
391 on the socket, but reversing direction works nonportably: |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
392 on some systems, the output appears as the first input; |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
393 on other systems it does not. */ |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
394 if ((in = fdopen (s, "r+")) == NULL) |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
395 { |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
396 fprintf (stderr, "%s: ", argv[0]); |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
397 perror ("fdopen"); |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
398 fail (argc, argv); |
15758
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
399 } |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
400 |
16218
32f82ca8b41f
Replaced all BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
16146
diff
changeset
|
401 #ifdef BSD_SYSTEM |
412 | 402 cwd = getwd (string); |
11030
3345f6426f49
Use BSD sockets whenever available, even if HAVE_SYSVIPC.
Richard M. Stallman <rms@gnu.org>
parents:
10124
diff
changeset
|
403 #else |
3345f6426f49
Use BSD sockets whenever available, even if HAVE_SYSVIPC.
Richard M. Stallman <rms@gnu.org>
parents:
10124
diff
changeset
|
404 cwd = getcwd (string, sizeof string); |
3345f6426f49
Use BSD sockets whenever available, even if HAVE_SYSVIPC.
Richard M. Stallman <rms@gnu.org>
parents:
10124
diff
changeset
|
405 #endif |
412 | 406 if (cwd == 0) |
407 { | |
408 /* getwd puts message in STRING if it fails. */ | |
19582
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
409 fprintf (stderr, "%s: %s (%s)\n", argv[0], |
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
410 #ifdef BSD_SYSTEM |
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
411 string, |
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
412 #else |
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
413 "Cannot get current working directory", |
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
414 #endif |
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
415 strerror (errno)); |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
416 fail (argc, argv); |
412 | 417 } |
418 | |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
419 if (nowait) |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
420 fprintf (out, "-nowait "); |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
421 |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
422 for (i = optind; i < argc; i++) |
412 | 423 { |
424 if (*argv[i] == '+') | |
425 { | |
426 char *p = argv[i] + 1; | |
427 while (*p >= '0' && *p <= '9') p++; | |
428 if (*p != 0) | |
24652
f14a11549a64
(main, both versions): Use quote_file_name on cwd.
Karl Heuer <kwzh@gnu.org>
parents:
24180
diff
changeset
|
429 fprintf (out, "%s/", quote_file_name (cwd)); |
412 | 430 } |
431 else if (*argv[i] != '/') | |
24652
f14a11549a64
(main, both versions): Use quote_file_name on cwd.
Karl Heuer <kwzh@gnu.org>
parents:
24180
diff
changeset
|
432 fprintf (out, "%s/", quote_file_name (cwd)); |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
433 |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
434 fprintf (out, "%s ", quote_file_name (argv[i])); |
412 | 435 } |
436 fprintf (out, "\n"); | |
437 fflush (out); | |
438 | |
15995
7284f973fc42
(both versions): Handle -nowait and --nowait by sending data to the server.
Richard M. Stallman <rms@gnu.org>
parents:
15758
diff
changeset
|
439 /* Maybe wait for an answer. */ |
7284f973fc42
(both versions): Handle -nowait and --nowait by sending data to the server.
Richard M. Stallman <rms@gnu.org>
parents:
15758
diff
changeset
|
440 if (nowait) |
7284f973fc42
(both versions): Handle -nowait and --nowait by sending data to the server.
Richard M. Stallman <rms@gnu.org>
parents:
15758
diff
changeset
|
441 return 0; |
7284f973fc42
(both versions): Handle -nowait and --nowait by sending data to the server.
Richard M. Stallman <rms@gnu.org>
parents:
15758
diff
changeset
|
442 |
412 | 443 printf ("Waiting for Emacs..."); |
444 fflush (stdout); | |
445 | |
15758
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
446 /* Now, wait for an answer and print any messages. On some systems, |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
447 the first line we read will actually be the output we just sent. |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
448 We can't predict whether that will happen, so if it does, we |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
449 detect it by recognizing `Client: ' at the beginning. */ |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
450 |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
451 while (str = fgets (string, BUFSIZ, in)) |
7e712d42d371
(main) [HAVE_SOCKETS]: Use two separate stdio
Richard M. Stallman <rms@gnu.org>
parents:
14610
diff
changeset
|
452 printf ("%s", str); |
412 | 453 |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
8360
diff
changeset
|
454 return 0; |
412 | 455 } |
456 | |
457 #else /* This is the SYSV IPC section */ | |
458 | |
459 #include <sys/types.h> | |
460 #include <sys/ipc.h> | |
461 #include <sys/msg.h> | |
10124
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
462 #include <sys/utsname.h> |
412 | 463 #include <stdio.h> |
19582
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
464 #include <errno.h> |
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
465 extern int errno; |
412 | 466 |
6213
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
467 char *getwd (), *getcwd (), *getenv (); |
10124
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
468 struct utsname system_name; |
6213
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
469 |
412 | 470 main (argc, argv) |
471 int argc; | |
472 char **argv; | |
473 { | |
474 int s; | |
475 key_t key; | |
6213
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
476 /* Size of text allocated in MSGP. */ |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
477 int size_allocated = BUFSIZ; |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
478 /* Amount of text used in MSGP. */ |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
479 int used; |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
480 struct msgbuf *msgp |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
481 = (struct msgbuf *) malloc (sizeof (struct msgbuf) + size_allocated); |
412 | 482 struct msqid_ds * msg_st; |
483 char *homedir, buf[BUFSIZ]; | |
484 char gwdirb[BUFSIZ]; | |
485 char *cwd; | |
486 char *temp; | |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
487 |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
488 progname = argv[0]; |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
489 |
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
490 /* Process options. */ |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
491 decode_options (argc, argv); |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
492 |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
493 if (argc - optind < 1) |
16030
fb38057473c8
(decode_options): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15995
diff
changeset
|
494 print_help_and_exit (); |
412 | 495 |
496 /* | |
10124
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
497 * Create a message queue using ~/.emacs-server as the path for ftok |
412 | 498 */ |
499 if ((homedir = getenv ("HOME")) == NULL) | |
500 { | |
501 fprintf (stderr, "%s: No home directory\n", argv[0]); | |
502 exit (1); | |
503 } | |
504 strcpy (buf, homedir); | |
10124
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
505 #ifndef HAVE_LONG_FILE_NAMES |
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
506 /* If file names are short, we can't fit the host name. */ |
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
507 strcat (buf, "/.emacs-server"); |
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
508 #else |
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
509 strcat (buf, "/.emacs-server-"); |
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
510 uname (&system_name); |
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
511 strcat (buf, system_name.nodename); |
baab57e76991
[HAVE_SYSVIPC]: Include sys/utsname.h.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
512 #endif |
412 | 513 creat (buf, 0600); |
514 key = ftok (buf, 1); /* unlikely to be anyone else using it */ | |
1031 | 515 s = msgget (key, 0600 | IPC_CREAT); |
412 | 516 if (s == -1) |
517 { | |
518 fprintf (stderr, "%s: ", argv[0]); | |
519 perror ("msgget"); | |
520 exit (1); | |
521 } | |
522 | |
523 /* Determine working dir, so we can prefix it to all the arguments. */ | |
16218
32f82ca8b41f
Replaced all BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
16146
diff
changeset
|
524 #ifdef BSD_SYSTEM |
412 | 525 temp = getwd (gwdirb); |
526 #else | |
527 temp = getcwd (gwdirb, sizeof gwdirb); | |
528 #endif | |
529 | |
530 cwd = gwdirb; | |
531 if (temp != 0) | |
532 { | |
533 /* On some systems, cwd can look like `@machine/...'; | |
534 ignore everything before the first slash in such a case. */ | |
535 while (*cwd && *cwd != '/') | |
536 cwd++; | |
537 strcat (cwd, "/"); | |
538 } | |
539 else | |
540 { | |
19582
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
541 #ifdef BSD_SYSTEM |
11486
fb7c3071c8f0
(main): Add argv[0] to an error message.
Richard M. Stallman <rms@gnu.org>
parents:
11434
diff
changeset
|
542 fprintf (stderr, "%s: %s\n", argv[0], cwd); |
19582
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
543 #else |
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
544 fprintf (stderr, "%s: Cannot get current working directory: %s\n", |
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
545 argv[0], strerror (errno)); |
1289a4779e68
[HAVE_SYSVIPC]: Include errno.h, as in the other case.
Richard M. Stallman <rms@gnu.org>
parents:
18701
diff
changeset
|
546 #endif |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
547 fail (argc, argv); |
412 | 548 } |
549 | |
550 msgp->mtext[0] = 0; | |
6213
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
551 used = 0; |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
552 |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
553 if (nowait) |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
554 { |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
555 strcat (msgp->mtext, "-nowait "); |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
556 used += 8; |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
557 } |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
558 |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
559 argc -= optind; |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
560 argv += optind; |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
561 |
412 | 562 while (argc) |
563 { | |
6213
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
564 int need_cwd = 0; |
8346
3f82ba603fa3
(main): Don't actually modify argv[0]. Modify a copy instead.
Richard M. Stallman <rms@gnu.org>
parents:
6213
diff
changeset
|
565 char *modified_arg = argv[0]; |
15995
7284f973fc42
(both versions): Handle -nowait and --nowait by sending data to the server.
Richard M. Stallman <rms@gnu.org>
parents:
15758
diff
changeset
|
566 |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
567 if (*modified_arg == '+') |
412 | 568 { |
8346
3f82ba603fa3
(main): Don't actually modify argv[0]. Modify a copy instead.
Richard M. Stallman <rms@gnu.org>
parents:
6213
diff
changeset
|
569 char *p = modified_arg + 1; |
412 | 570 while (*p >= '0' && *p <= '9') p++; |
571 if (*p != 0) | |
6213
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
572 need_cwd = 1; |
412 | 573 } |
8346
3f82ba603fa3
(main): Don't actually modify argv[0]. Modify a copy instead.
Richard M. Stallman <rms@gnu.org>
parents:
6213
diff
changeset
|
574 else if (*modified_arg != '/') |
6213
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
575 need_cwd = 1; |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
576 |
16061
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
577 modified_arg = quote_file_name (modified_arg); |
a1290c4159b5
(quote_file_name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16030
diff
changeset
|
578 |
6213
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
579 if (need_cwd) |
24652
f14a11549a64
(main, both versions): Use quote_file_name on cwd.
Karl Heuer <kwzh@gnu.org>
parents:
24180
diff
changeset
|
580 /* Overestimate in case we have to quote something in CWD. */ |
f14a11549a64
(main, both versions): Use quote_file_name on cwd.
Karl Heuer <kwzh@gnu.org>
parents:
24180
diff
changeset
|
581 used += 2 * strlen (cwd); |
8346
3f82ba603fa3
(main): Don't actually modify argv[0]. Modify a copy instead.
Richard M. Stallman <rms@gnu.org>
parents:
6213
diff
changeset
|
582 used += strlen (modified_arg) + 1; |
6213
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
583 while (used + 2 > size_allocated) |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
584 { |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
585 size_allocated *= 2; |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
586 msgp = (struct msgbuf *) realloc (msgp, |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
587 (sizeof (struct msgbuf) |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
588 + size_allocated)); |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
589 } |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
590 |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
591 if (need_cwd) |
24652
f14a11549a64
(main, both versions): Use quote_file_name on cwd.
Karl Heuer <kwzh@gnu.org>
parents:
24180
diff
changeset
|
592 strcat (msgp->mtext, quote_file_name (cwd)); |
412 | 593 |
8346
3f82ba603fa3
(main): Don't actually modify argv[0]. Modify a copy instead.
Richard M. Stallman <rms@gnu.org>
parents:
6213
diff
changeset
|
594 strcat (msgp->mtext, modified_arg); |
412 | 595 strcat (msgp->mtext, " "); |
596 argv++; argc--; | |
597 } | |
598 strcat (msgp->mtext, "\n"); | |
6213
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
599 #ifdef HPUX /* HPUX has a bug. */ |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
600 if (strlen (msgp->mtext) >= 512) |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
601 { |
11434
5f5dda37c82c
(main): Improve error handling.
Karl Heuer <kwzh@gnu.org>
parents:
11368
diff
changeset
|
602 fprintf (stderr, "%s: args too long for msgsnd\n", progname); |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
603 fail (argc, argv); |
6213
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
604 } |
7eefa1bd1478
(main) [HAVE_SYSVIPC]: Make msgp->mtext longer if necessary.
Richard M. Stallman <rms@gnu.org>
parents:
5527
diff
changeset
|
605 #endif |
412 | 606 msgp->mtype = 1; |
607 if (msgsnd (s, msgp, strlen (msgp->mtext)+1, 0) < 0) | |
608 { | |
8360
e1518247fd63
(main): New local var progname saves argv[0].
Richard M. Stallman <rms@gnu.org>
parents:
8346
diff
changeset
|
609 fprintf (stderr, "%s: ", progname); |
412 | 610 perror ("msgsnd"); |
27305
4161adef5fd3
Add option -a EDITOR and environment variable
Gerd Moellmann <gerd@gnu.org>
parents:
26083
diff
changeset
|
611 fail (argc, argv); |
412 | 612 } |
15995
7284f973fc42
(both versions): Handle -nowait and --nowait by sending data to the server.
Richard M. Stallman <rms@gnu.org>
parents:
15758
diff
changeset
|
613 |
7284f973fc42
(both versions): Handle -nowait and --nowait by sending data to the server.
Richard M. Stallman <rms@gnu.org>
parents:
15758
diff
changeset
|
614 /* Maybe wait for an answer. */ |
7284f973fc42
(both versions): Handle -nowait and --nowait by sending data to the server.
Richard M. Stallman <rms@gnu.org>
parents:
15758
diff
changeset
|
615 if (nowait) |
7284f973fc42
(both versions): Handle -nowait and --nowait by sending data to the server.
Richard M. Stallman <rms@gnu.org>
parents:
15758
diff
changeset
|
616 return 0; |
7284f973fc42
(both versions): Handle -nowait and --nowait by sending data to the server.
Richard M. Stallman <rms@gnu.org>
parents:
15758
diff
changeset
|
617 |
412 | 618 printf ("Waiting for Emacs..."); |
619 fflush (stdout); | |
620 | |
621 msgrcv (s, msgp, BUFSIZ, getpid (), 0); /* wait for anything back */ | |
622 strcpy (buf, msgp->mtext); | |
623 | |
14610
6c73b6046d21
(main, both definitions): Print a newline for normal termination.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
624 printf ("\n"); |
6c73b6046d21
(main, both definitions): Print a newline for normal termination.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
625 if (*buf) |
6c73b6046d21
(main, both definitions): Print a newline for normal termination.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
626 printf ("%s\n", buf); |
412 | 627 exit (0); |
628 } | |
629 | |
630 #endif /* HAVE_SYSVIPC */ | |
631 | |
632 #endif /* HAVE_SOCKETS or HAVE_SYSVIPC */ | |
5527
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
633 |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
634 #ifndef HAVE_STRERROR |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
635 char * |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
636 strerror (errnum) |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
637 int errnum; |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
638 { |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
639 extern char *sys_errlist[]; |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
640 extern int sys_nerr; |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
641 |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
642 if (errnum >= 0 && errnum < sys_nerr) |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
643 return sys_errlist[errnum]; |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
644 return (char *) "Unknown error"; |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
645 } |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
646 |
51451a050975
[! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents:
5522
diff
changeset
|
647 #endif /* ! HAVE_STRERROR */ |