Update gnulib files.
[gnutls:gnutls.git] / gl / getdelim.c
1 /* getdelim.c --- Implementation of replacement getdelim function.
2    Copyright (C) 1994, 1996, 1997, 1998, 2001, 2003, 2005, 2006, 2007, 2008 Free
3    Software Foundation, Inc.
4
5    This program is free software; you can redistribute it and/or
6    modify it under the terms of the GNU General Public License as
7    published by the Free Software Foundation; either version 3, or (at
8    your option) any later version.
9
10    This program is distributed in the hope that it will be useful, but
11    WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program; if not, write to the Free Software
17    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
18    02110-1301, USA.  */
19
20 /* Ported from glibc by Simon Josefsson. */
21
22 #include <config.h>
23
24 #include <stdio.h>
25
26 #include <limits.h>
27 #include <stdlib.h>
28 #include <errno.h>
29
30 #ifndef SIZE_MAX
31 # define SIZE_MAX ((size_t) -1)
32 #endif
33 #ifndef SSIZE_MAX
34 # define SSIZE_MAX ((ssize_t) (SIZE_MAX / 2))
35 #endif
36 #if !HAVE_FLOCKFILE
37 # undef flockfile
38 # define flockfile(x) ((void) 0)
39 #endif
40 #if !HAVE_FUNLOCKFILE
41 # undef funlockfile
42 # define funlockfile(x) ((void) 0)
43 #endif
44
45 /* Read up to (and including) a DELIMITER from FP into *LINEPTR (and
46    NUL-terminate it).  *LINEPTR is a pointer returned from malloc (or
47    NULL), pointing to *N characters of space.  It is realloc'ed as
48    necessary.  Returns the number of characters read (not including
49    the null terminator), or -1 on error or EOF.  */
50
51 ssize_t
52 getdelim (char **lineptr, size_t *n, int delimiter, FILE *fp)
53 {
54   ssize_t result;
55   size_t cur_len = 0;
56
57   if (lineptr == NULL || n == NULL || fp == NULL)
58     {
59       errno = EINVAL;
60       return -1;
61     }
62
63   flockfile (fp);
64
65   if (*lineptr == NULL || *n == 0)
66     {
67       char *new_lineptr;
68       *n = 120;
69       new_lineptr = (char *) realloc (*lineptr, *n);
70       if (new_lineptr == NULL)
71         {
72           result = -1;
73           goto unlock_return;
74         }
75       *lineptr = new_lineptr;
76     }
77
78   for (;;)
79     {
80       int i;
81
82       i = getc (fp);
83       if (i == EOF)
84         {
85           result = -1;
86           break;
87         }
88
89       /* Make enough space for len+1 (for final NUL) bytes.  */
90       if (cur_len + 1 >= *n)
91         {
92           size_t needed_max =
93             SSIZE_MAX < SIZE_MAX ? (size_t) SSIZE_MAX + 1 : SIZE_MAX;
94           size_t needed = 2 * *n + 1;   /* Be generous. */
95           char *new_lineptr;
96
97           if (needed_max < needed)
98             needed = needed_max;
99           if (cur_len + 1 >= needed)
100             {
101               result = -1;
102               errno = EOVERFLOW;
103               goto unlock_return;
104             }
105
106           new_lineptr = (char *) realloc (*lineptr, needed);
107           if (new_lineptr == NULL)
108             {
109               result = -1;
110               goto unlock_return;
111             }
112
113           *lineptr = new_lineptr;
114           *n = needed;
115         }
116
117       (*lineptr)[cur_len] = i;
118       cur_len++;
119
120       if (i == delimiter)
121         break;
122     }
123   (*lineptr)[cur_len] = '\0';
124   result = cur_len ? cur_len : result;
125
126  unlock_return:
127   funlockfile (fp); /* doesn't set errno */
128
129   return result;
130 }