ihost/libukcprog/fpgetline.c

/* fpgetline.c - read an arbitrary length line from a stdio stream */

/*  Copyright 1992  Mark Russell, University of Kent at Canterbury.
 *
 *  You can do what you like with this source code as long as
 *  you don't try to make money out of it and you include an
 *  unaltered copy of this message (including the copyright).
 */

char ukcprog_fpgetline_sccsid[] = "$Id: fpgetline.c,v 1.1 2002/03/08 14:37:29 tdb Exp $ UKC";

#ifndef __STDC__
#include <sys/types.h>          /* for size_t */
#endif

#include <stdio.h>
#include <stdlib.h>

#include "ukcprog.h"

#define SMALLBUF_SIZE   ((size_t)200)

char *
fpgetline(fp)
FILE *fp;
{
        static char *buf;
        static size_t bufsize = 0;
        int ch, pos;

        if (bufsize == 0) {
                bufsize = 80;
                buf = e_malloc(bufsize + 1);
        }

        for (pos = 0; (ch = getc(fp)) != EOF && ch != '\n'; buf[pos++] = ch) {
                if (pos == bufsize) {
                        bufsize *= 2;
                        buf = e_realloc(buf, bufsize + 1);
                }
        }
        buf[pos] = '\0';

        /*  If we have a huge buffer from the last call and now have a
         *  short line, try to dump the excess.
         */
        if (pos <= SMALLBUF_SIZE && bufsize > 5000) {
                char *smallbuf;
                
                if ((smallbuf = realloc(buf, SMALLBUF_SIZE + 1)) != NULL) {
                        buf = smallbuf;
                        bufsize = SMALLBUF_SIZE;
                }
        }

        return (pos == 0 && ch == EOF) ? NULL : buf;
}
Revision:	1.2
Committed:	Sat Mar 29 18:05:09 2003 UTC (21 years, 8 months ago) by tdb
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.1:	+1 -1 lines
State:	*FILE REMOVED*
Log Message:	ihost now makes use of an external copy of libukcprog. This is available as a seperate download. All files updated accordingly to make this version 1.5.4.
#	Content
1	/* fpgetline.c - read an arbitrary length line from a stdio stream */
2
3	/* Copyright 1992 Mark Russell, University of Kent at Canterbury.
4	*
5	* You can do what you like with this source code as long as
6	* you don't try to make money out of it and you include an
7	* unaltered copy of this message (including the copyright).
8	*/
9
10	char ukcprog_fpgetline_sccsid[] = "$Id: fpgetline.c,v 1.1 2002/03/08 14:37:29 tdb Exp $ UKC";
11
12	#ifndef __STDC__
13	#include <sys/types.h> /* for size_t */
14	#endif
15
16	#include <stdio.h>
17	#include <stdlib.h>
18
19	#include "ukcprog.h"
20
21	#define SMALLBUF_SIZE ((size_t)200)
22
23	char *
24	fpgetline(fp)
25	FILE *fp;
26	{
27	static char *buf;
28	static size_t bufsize = 0;
29	int ch, pos;
30
31	if (bufsize == 0) {
32	bufsize = 80;
33	buf = e_malloc(bufsize + 1);
34	}
35
36	for (pos = 0; (ch = getc(fp)) != EOF && ch != '\n'; buf[pos++] = ch) {
37	if (pos == bufsize) {
38	bufsize *= 2;
39	buf = e_realloc(buf, bufsize + 1);
40	}
41	}
42	buf[pos] = '\0';
43
44	/* If we have a huge buffer from the last call and now have a
45	* short line, try to dump the excess.
46	*/
47	if (pos <= SMALLBUF_SIZE && bufsize > 5000) {
48	char *smallbuf;
49
50	if ((smallbuf = realloc(buf, SMALLBUF_SIZE + 1)) != NULL) {
51	buf = smallbuf;
52	bufsize = SMALLBUF_SIZE;
53	}
54	}
55
56	return (pos == 0 && ch == EOF) ? NULL : buf;
57	}