2 * Heirloom mailx - a mail user agent derived from Berkeley Mail.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 Steffen "Daode" Nurpmeso.
8 * Copyright (c) 1980, 1993
9 * The Regents of the University of California. All rights reserved.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. All advertising materials mentioning features or use of this software
20 * must display the following acknowledgement:
21 * This product includes software developed by the University of
22 * California, Berkeley and its contributors.
23 * 4. Neither the name of the University nor the names of its contributors
24 * may be used to endorse or promote products derived from this software
25 * without specific prior written permission.
27 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
28 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
31 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
42 static char sccsid
[] = "@(#)tty.c 2.29 (gritter) 3/9/07";
47 * Mail -- a mail program
49 * Generally useful tty stuff.
52 /* TODO longjmp() globbering as in cmd1.c and cmd3.c (see there)
53 * TODO Problem: Popen doesn't encapsulate all cases of open failures,
54 * TODO may leave child running if fdopen() fails! */
61 #include <sys/ioctl.h>
63 static cc_t c_erase
; /* Current erase char */
64 static cc_t c_kill
; /* Current kill char */
65 static sigjmp_buf rewrite
; /* Place to go when continued */
66 static sigjmp_buf intjmp
; /* Place to go when interrupted */
68 static int ttyset
; /* We must now do erase/kill */
70 static struct termios ttybuf
;
71 static long vdis
; /* _POSIX_VDISABLE char */
73 static void ttystop(int s
);
74 static void ttyint(int s
);
75 static int safe_getc(FILE *ibuf
);
76 static char *rtty_internal(const char *pr
, char *src
);
79 * Receipt continuation.
84 sighandler_type old_action
= safe_signal(s
, SIG_DFL
);
89 sigprocmask(SIG_BLOCK
, &nset
, NULL
);
91 sigprocmask(SIG_UNBLOCK
, &nset
, NULL
);
92 safe_signal(s
, old_action
);
93 siglongjmp(rewrite
, 1);
101 siglongjmp(intjmp
, 1);
105 * Interrupts will cause trouble if we are inside a stdio call. As
106 * this is only relevant if input comes from a terminal, we can simply
107 * bypass it by read() then.
110 safe_getc(FILE *ibuf
)
112 if (fileno(ibuf
) == 0 && is_a_tty
[0]) {
117 if ((sz
= read(0, &c
, 1)) != 1) {
118 if (sz
< 0 && errno
== EINTR
)
128 * Read up a header from standard input.
129 * The source string has the preliminary contents to
133 rtty_internal(const char *pr
, char *src
)
135 char ch
, canonb
[LINESIZE
];
143 if (src
!= NULL
&& strlen(src
) > sizeof canonb
- 2) {
144 printf(catgets(catd
, CATSET
, 200, "too long to edit\n"));
149 cp
= sstpcpy(canonb
, src
);
151 cp
= sstpcpy(canonb
, "");
152 fputs(canonb
, stdout
);
155 cp
= src
== NULL
? "" : src
;
156 while ((c
= *cp
++) != '\0') {
157 if ((c_erase
!= vdis
&& c
== c_erase
) ||
158 (c_kill
!= vdis
&& c
== c_kill
)) {
160 ioctl(0, TIOCSTI
, &ch
);
163 ioctl(0, TIOCSTI
, &ch
);
169 while (cp2
< canonb
+ sizeof canonb
)
172 if (sigsetjmp(rewrite
, 1))
174 safe_signal(SIGTSTP
, ttystop
);
175 safe_signal(SIGTTOU
, ttystop
);
176 safe_signal(SIGTTIN
, ttystop
);
178 while (cp2
< canonb
+ sizeof canonb
- 1) {
179 c
= safe_getc(stdin
);
180 if (c
== EOF
|| c
== '\n')
185 safe_signal(SIGTSTP
, SIG_DFL
);
186 safe_signal(SIGTTOU
, SIG_DFL
);
187 safe_signal(SIGTTIN
, SIG_DFL
);
188 if (c
== EOF
&& ferror(stdin
)) {
190 cp
= strlen(canonb
) > 0 ? canonb
: NULL
;
192 return(rtty_internal(pr
, cp
));
195 if (cp
== NULL
|| *cp
== '\0')
199 return(strlen(canonb
) > 0 ? savestr(canonb
) : NULL
);
200 while (*cp
!= '\0') {
202 if (c_erase
!= vdis
&& c
== c_erase
) {
205 if (cp2
[-1] == '\\') {
212 if (c_kill
!= vdis
&& c
== c_kill
) {
215 if (cp2
[-1] == '\\') {
226 if (equal("", canonb
))
228 return(savestr(canonb
));
232 * Read all relevant header fields.
236 #define TTYSET_CHECK(h) if (!ttyset && (h) != NULL) \
237 ttyset++, tcsetattr(0, TCSADRAIN, \
240 #define TTYSET_CHECK(h)
243 #define GRAB_SUBJECT if (gflags & GSUBJECT) { \
244 TTYSET_CHECK(hp->h_subject) \
245 hp->h_subject = rtty_internal("Subject: ", \
250 grabaddrs(const char *field
, struct name
*np
, int comma
, enum gfield gflags
)
256 np
= sextract(rtty_internal(field
, detract(np
, comma
)), gflags
);
257 for (nq
= np
; nq
!= NULL
; nq
= nq
->n_flink
)
258 if (mime_name_invalid(nq
->n_name
, 1))
264 grabh(struct header
*hp
, enum gfield gflags
, int subjfirst
)
266 sighandler_type saveint
;
268 sighandler_type savequit
;
270 sighandler_type savetstp
;
271 sighandler_type savettou
;
272 sighandler_type savettin
;
278 savetstp
= safe_signal(SIGTSTP
, SIG_DFL
);
279 savettou
= safe_signal(SIGTTOU
, SIG_DFL
);
280 savettin
= safe_signal(SIGTTIN
, SIG_DFL
);
282 comma
= value("bsdcompat") || value("bsdmsgs") ? 0 : GCOMMA
;
286 if (tcgetattr(fileno(stdin
), &ttybuf
) < 0) {
290 c_erase
= ttybuf
.c_cc
[VERASE
];
291 c_kill
= ttybuf
.c_cc
[VKILL
];
292 #if defined (_PC_VDISABLE) && defined (HAVE_FPATHCONF)
293 if ((vdis
= fpathconf(0, _PC_VDISABLE
)) < 0)
295 #elif defined (_POSIX_VDISABLE)
296 vdis
= _POSIX_VDISABLE
;
301 ttybuf
.c_cc
[VERASE
] = 0;
302 ttybuf
.c_cc
[VKILL
] = 0;
303 if ((saveint
= safe_signal(SIGINT
, SIG_IGN
)) == SIG_DFL
)
304 safe_signal(SIGINT
, SIG_DFL
);
305 if ((savequit
= safe_signal(SIGQUIT
, SIG_IGN
)) == SIG_DFL
)
306 safe_signal(SIGQUIT
, SIG_DFL
);
308 saveint
= safe_signal(SIGINT
, SIG_IGN
);
309 if (sigsetjmp(intjmp
, 1)) {
310 /* avoid garbled output with C-c */
315 if (saveint
!= SIG_IGN
)
316 safe_signal(SIGINT
, ttyint
);
319 hp
->h_to
= grabaddrs("To: ", hp
->h_to
, comma
, GTO
|GFULL
);
323 hp
->h_cc
= grabaddrs("Cc: ", hp
->h_cc
, comma
, GCC
|GFULL
);
325 hp
->h_bcc
= grabaddrs("Bcc: ", hp
->h_bcc
, comma
, GBCC
|GFULL
);
326 if (gflags
& GEXTRA
) {
327 if (hp
->h_from
== NULL
)
328 hp
->h_from
= sextract(myaddrs(hp
), GEXTRA
|GFULL
);
329 hp
->h_from
= grabaddrs("From: ", hp
->h_from
, comma
,
331 if (hp
->h_replyto
== NULL
)
332 hp
->h_replyto
= sextract(value("replyto"),
334 hp
->h_replyto
= grabaddrs("Reply-To: ", hp
->h_replyto
, comma
,
336 if (hp
->h_sender
== NULL
)
337 hp
->h_sender
= sextract(value("sender"),
339 hp
->h_sender
= grabaddrs("Sender: ", hp
->h_sender
, comma
,
341 if (hp
->h_organization
== NULL
)
342 hp
->h_organization
= value("ORGANIZATION");
343 TTYSET_CHECK(hp
->h_organization
);
344 hp
->h_organization
= rtty_internal("Organization: ",
350 safe_signal(SIGTSTP
, savetstp
);
351 safe_signal(SIGTTOU
, savettou
);
352 safe_signal(SIGTTIN
, savettin
);
354 ttybuf
.c_cc
[VERASE
] = c_erase
;
355 ttybuf
.c_cc
[VKILL
] = c_kill
;
357 tcsetattr(fileno(stdin
), TCSADRAIN
, &ttybuf
);
358 safe_signal(SIGQUIT
, savequit
);
360 safe_signal(SIGINT
, saveint
);
365 * Read a line from tty; to be called from elsewhere
369 readtty(char *prefix
, char *string
)
372 struct termios ttybuf
;
373 sighandler_type saveint
= SIG_DFL
;
375 sighandler_type savequit
;
377 sighandler_type savetstp
;
378 sighandler_type savettou
;
379 sighandler_type savettin
;
383 savetstp
= safe_signal(SIGTSTP
, SIG_DFL
);
384 savettou
= safe_signal(SIGTTOU
, SIG_DFL
);
385 savettin
= safe_signal(SIGTTIN
, SIG_DFL
);
389 if (tcgetattr(fileno(stdin
), &ttybuf
) < 0) {
393 c_erase
= ttybuf
.c_cc
[VERASE
];
394 c_kill
= ttybuf
.c_cc
[VKILL
];
396 ttybuf
.c_cc
[VERASE
] = 0;
397 ttybuf
.c_cc
[VKILL
] = 0;
398 if ((saveint
= safe_signal(SIGINT
, SIG_IGN
)) == SIG_DFL
)
399 safe_signal(SIGINT
, SIG_DFL
);
400 if ((savequit
= safe_signal(SIGQUIT
, SIG_IGN
)) == SIG_DFL
)
401 safe_signal(SIGQUIT
, SIG_DFL
);
403 if (sigsetjmp(intjmp
, 1)) {
404 /* avoid garbled output with C-c */
409 saveint
= safe_signal(SIGINT
, ttyint
);
412 ret
= rtty_internal(prefix
, string
);
413 if (ret
!= NULL
&& *ret
== '\0')
416 safe_signal(SIGTSTP
, savetstp
);
417 safe_signal(SIGTTOU
, savettou
);
418 safe_signal(SIGTTIN
, savettin
);
420 ttybuf
.c_cc
[VERASE
] = c_erase
;
421 ttybuf
.c_cc
[VKILL
] = c_kill
;
423 tcsetattr(fileno(stdin
), TCSADRAIN
, &ttybuf
);
424 safe_signal(SIGQUIT
, savequit
);
426 safe_signal(SIGINT
, saveint
);
435 if (value("interactive") == NULL
)
438 cp
= readtty(msg
, NULL
);
440 (*cp
!= 'y' && *cp
!= 'Y' && *cp
!= 'n' && *cp
!= 'N'));
441 return *cp
== 'y' || *cp
== 'Y';