1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2015 Steffen (Daode) Nurpmeso <sdaoden@users.sf.net>.
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. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
38 #ifndef HAVE_AMALGAMATION
42 /* line is a buffer with the result of fgets(). Returns the first newline or
43 * the last character read */
44 static size_t _length_of_line(char const *line
, size_t linesize
);
46 /* Read a line, one character at a time */
47 static char * _fgetline_byone(char **line
, size_t *linesize
, size_t *llen
,
48 FILE *fp
, int appendnl
, size_t n SMALLOC_DEBUG_ARGS
);
51 static bool_t
a_file_lock(int fd
, enum n_file_lock_type ft
, off_t off
, off_t len
);
54 _length_of_line(char const *line
, size_t linesize
)
59 /* Last character is always '\0' and was added by fgets() */
60 for (--linesize
, i
= 0; i
< linesize
; i
++)
63 i
= (i
< linesize
) ? i
+ 1 : linesize
;
69 _fgetline_byone(char **line
, size_t *linesize
, size_t *llen
, FILE *fp
,
70 int appendnl
, size_t n SMALLOC_DEBUG_ARGS
)
76 assert(*linesize
== 0 || *line
!= NULL
);
78 if (*linesize
<= LINESIZE
|| n
>= *linesize
- 128) {
79 *linesize
+= ((rv
== NULL
) ? LINESIZE
+ n
+ 1 : 256);
80 *line
= rv
= (srealloc
)(rv
, *linesize SMALLOC_DEBUG_ARGSCALL
);
109 a_file_lock(int fd
, enum n_file_lock_type flt
, off_t off
, off_t len
)
115 memset(&flp
, 0, sizeof flp
);
119 case FLT_READ
: rv
= F_RDLCK
; break;
120 case FLT_WRITE
: rv
= F_WRLCK
; break;
124 flp
.l_whence
= SEEK_SET
;
127 if (!(rv
= (fcntl(fd
, F_SETLK
, &flp
) != -1)))
139 (fgetline
)(char **line
, size_t *linesize
, size_t *cnt
, size_t *llen
, FILE *fp
,
140 int appendnl SMALLOC_DEBUG_ARGS
)
147 /* Without count, we can't determine where the chars returned by fgets()
148 * end if there's no newline. We have to read one character by one */
149 rv
= _fgetline_byone(line
, linesize
, llen
, fp
, appendnl
, 0
150 SMALLOC_DEBUG_ARGSCALL
);
154 if ((rv
= *line
) == NULL
|| *linesize
< LINESIZE
)
155 *line
= rv
= (srealloc
)(rv
, *linesize
= LINESIZE SMALLOC_DEBUG_ARGSCALL
);
156 sz
= (*linesize
<= *cnt
) ? *linesize
: *cnt
+ 1;
157 if (sz
<= 1 || fgets(rv
, sz
, fp
) == NULL
) {
158 /* Leave llen untouched; it is used to determine whether the last line
159 * was \n-terminated in some callers */
164 i_llen
= _length_of_line(rv
, sz
);
166 while (rv
[i_llen
- 1] != '\n') {
167 *line
= rv
= (srealloc
)(rv
, *linesize
+= 256 SMALLOC_DEBUG_ARGSCALL
);
168 sz
= *linesize
- i_llen
;
169 sz
= (sz
<= *cnt
) ? sz
: *cnt
+ 1;
170 if (sz
<= 1 || fgets(rv
+ i_llen
, sz
, fp
) == NULL
) {
177 sz
= _length_of_line(rv
+ i_llen
, sz
);
189 (readline_restart
)(FILE *ibuf
, char **linebuf
, size_t *linesize
, size_t n
192 /* TODO readline_restart(): always *appends* LF just to strip it again;
193 * TODO should be configurable just as for fgetline(); ..or whatever.. */
200 /* Interrupts will cause trouble if we are inside a stdio call. As this is
201 * only relevant if input is from tty, bypass it by read(), then */
202 if (fileno(ibuf
) == 0 && (options
& OPT_TTYIN
)) {
203 assert(*linesize
== 0 || *linebuf
!= NULL
);
205 if (*linesize
<= LINESIZE
|| n
>= *linesize
- 128) {
206 *linesize
+= ((*linebuf
== NULL
) ? LINESIZE
+ n
+ 1 : 256);
207 *linebuf
= (srealloc
)(*linebuf
, *linesize SMALLOC_DEBUG_ARGSCALL
);
210 sz
= read(0, *linebuf
+ n
, *linesize
- n
- 1);
213 (*linebuf
)[n
] = '\0';
214 if (n
> 0 && (*linebuf
)[n
- 1] == '\n')
217 if (sz
< 0 && errno
== EINTR
)
220 if ((*linebuf
)[n
- 1] != '\n') {
221 (*linebuf
)[n
++] = '\n';
222 (*linebuf
)[n
] = '\0';
230 /* Not reading from standard input or standard input not a terminal. We
231 * read one char at a time as it is the only way to get lines with
232 * embedded NUL characters in standard stdio */
233 if (_fgetline_byone(linebuf
, linesize
, &n
, ibuf
, 1, n
234 SMALLOC_DEBUG_ARGSCALL
) == NULL
)
237 if (n
> 0 && (*linebuf
)[n
- 1] == '\n')
238 (*linebuf
)[--n
] = '\0';
246 setptr(FILE *ibuf
, off_t offset
)
249 char *cp
, *linebuf
= NULL
;
251 int c
, maybe
= 1, inhead
= 0, selfcnt
= 0;
252 size_t linesize
= 0, filesize
, cnt
;
255 memset(&self
, 0, sizeof self
);
256 self
.m_flag
= MUSED
| MNEW
| MNEWEST
;
257 filesize
= mailsize
- offset
;
258 offset
= ftell(mb
.mb_otf
);
261 if (fgetline(&linebuf
, &linesize
, &filesize
, &cnt
, ibuf
, 0) == NULL
) {
262 self
.m_xsize
= self
.m_size
;
263 self
.m_xlines
= self
.m_lines
;
264 self
.m_have
= HAVE_HEADER
| HAVE_BODY
;
266 message_append(&self
);
267 message_append_null();
274 if (linebuf
[0] == '\0')
277 /* XXX Convert CRLF to LF; this should be rethought in that
278 * XXX CRLF input should possibly end as CRLF output? */
279 if (cnt
>= 2 && linebuf
[cnt
- 1] == '\n' && linebuf
[cnt
- 2] == '\r')
280 linebuf
[--cnt
- 1] = '\n';
281 fwrite(linebuf
, sizeof *linebuf
, cnt
, mb
.mb_otf
);
282 if (ferror(mb
.mb_otf
)) {
283 n_perr(_("/tmp"), 0);
286 if (linebuf
[cnt
- 1] == '\n')
287 linebuf
[cnt
- 1] = '\0';
288 if (maybe
&& linebuf
[0] == 'F' && is_head(linebuf
, cnt
, FAL0
)) {
289 /* TODO char date[FROM_DATEBUF];
290 * TODO extract_date_from_from_(linebuf, cnt, date);
291 * TODO self.m_time = 10000; */
292 self
.m_xsize
= self
.m_size
;
293 self
.m_xlines
= self
.m_lines
;
294 self
.m_have
= HAVE_HEADER
| HAVE_BODY
;
296 message_append(&self
);
298 self
.m_flag
= MUSED
| MNEW
| MNEWEST
;
301 self
.m_block
= mailx_blockof(offset
);
302 self
.m_offset
= mailx_offsetof(offset
);
304 } else if (linebuf
[0] == 0) {
307 for (cp
= linebuf
, cp2
= "status";; ++cp
) {
308 if ((c
= *cp2
++) == 0) {
309 while (c
= *cp
++, whitechar(c
))
313 while ((c
= *cp
++) != '\0')
315 self
.m_flag
|= MREAD
;
317 self
.m_flag
&= ~MNEW
;
320 if (*cp
!= c
&& *cp
!= upperconv(c
))
323 for (cp
= linebuf
, cp2
= "x-status";; ++cp
) {
324 if ((c
= *cp2
++) == 0) {
325 while ((c
= *cp
++, whitechar(c
)))
329 while ((c
= *cp
++) != '\0')
331 self
.m_flag
|= MFLAGGED
;
333 self
.m_flag
|= MANSWERED
;
335 self
.m_flag
|= MDRAFTED
;
338 if (*cp
!= c
&& *cp
!= upperconv(c
))
345 maybe
= linebuf
[0] == 0;
351 putline(FILE *obuf
, char *linebuf
, size_t cnt
)
356 fwrite(linebuf
, sizeof *linebuf
, cnt
, obuf
);
371 rv
= (fstat(fileno(iob
), &sbuf
) == -1) ? 0 : sbuf
.st_size
;
377 getdeadletter(void) /* XXX should that be in auxlily.c? */
379 char const *cp_base
, *cp
;
382 cp
= fexpand(cp_base
= ok_vlook(DEAD
), FEXP_LOCAL
| FEXP_NSHELL
);
390 n_file_lock(int fd
, enum n_file_lock_type flt
, off_t off
, off_t len
,
397 for (didmsg
= FAL0
, tries
= 0; tries
<= FILE_LOCK_TRIES
; ++tries
) {
398 rv
= a_file_lock(fd
, flt
, off
, len
);
404 if (rv
|| pollmsecs
== 0)
408 n_err(_("Failed to create a file lock, waiting %lu milliseconds "),
413 n_msleep(pollmsecs
, FAL0
);
417 n_err(" %s\n", (rv
? _("ok") : _("failure")));