This commit was generated by cvs2svn to compensate for changes in r36, which
[alioth/cvs.git] / lib / getdelim.c
1 /* getdelim.c --- Implementation of replacement getdelim function.
2    Copyright (C) 1994, 1996, 1997, 1998, 2001, 2003, 2005 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 2, 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 #ifdef HAVE_CONFIG_H
23 # include <config.h>
24 #endif
25
26 #include <stdlib.h>
27 #include <errno.h>
28
29 #include "getdelim.h"
30
31 #if !HAVE_FLOCKFILE
32 # undef flockfile
33 # define flockfile(x) ((void) 0)
34 #endif
35 #if !HAVE_FUNLOCKFILE
36 # undef funlockfile
37 # define funlockfile(x) ((void) 0)
38 #endif
39
40 /* Read up to (and including) a DELIMITER from FP into *LINEPTR (and
41    NUL-terminate it).  *LINEPTR is a pointer returned from malloc (or
42    NULL), pointing to *N characters of space.  It is realloc'ed as
43    necessary.  Returns the number of characters read (not including
44    the null terminator), or -1 on error or EOF.  */
45
46 ssize_t
47 getdelim (char **lineptr, size_t *n, int delimiter, FILE *fp)
48 {
49   int result = 0;
50   ssize_t cur_len = 0;
51   ssize_t len;
52
53   if (lineptr == NULL || n == NULL || fp == NULL)
54     {
55       errno = EINVAL;
56       return -1;
57     }
58
59   flockfile (fp);
60
61   if (*lineptr == NULL || *n == 0)
62     {
63       *n = 120;
64       *lineptr = (char *) malloc (*n);
65       if (*lineptr == NULL)
66         {
67           result = -1;
68           goto unlock_return;
69         }
70     }
71
72   for (;;)
73     {
74       char *t;
75       int i;
76
77       i = getc (fp);
78       if (i == EOF)
79       {
80         result = -1;
81         break;
82       }
83
84       /* Make enough space for len+1 (for final NUL) bytes.  */
85       if (cur_len + 1 >= *n)
86         {
87           size_t needed = 2 * (cur_len + 1) + 1;   /* Be generous. */
88           char *new_lineptr;
89
90           if (needed < cur_len)
91             {
92               result = -1;
93               goto unlock_return;
94             }
95
96           new_lineptr = (char *) realloc (*lineptr, needed);
97           if (new_lineptr == NULL)
98             {
99               result = -1;
100               goto unlock_return;
101             }
102
103           *lineptr = new_lineptr;
104           *n = needed;
105         }
106
107       (*lineptr)[cur_len] = i;
108       cur_len++;
109
110       if (i == delimiter)
111         break;
112     }
113   (*lineptr)[cur_len] = '\0';
114   result = cur_len ? cur_len : result;
115
116  unlock_return:
117   funlockfile (fp);
118   return result;
119 }