101 lines
2.4 KiB
C
101 lines
2.4 KiB
C
|
/* @(#)fgetaline.c 1.5 15/05/09 Copyright 2011-2015 J. Schilling */
|
||
|
|
/*
|
||
|
|
* Copyright (c) 2011-2015 J. Schilling
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
/*
|
||
|
|
* The contents of this file are subject to the terms of the
|
||
|
|
* Common Development and Distribution License, Version 1.0 only
|
||
|
|
* (the "License"). You may not use this file except in compliance
|
||
|
|
* with the License.
|
||
|
|
*
|
||
|
|
* See the file CDDL.Schily.txt in this distribution for details.
|
||
|
|
* A copy of the CDDL is also available via the Internet at
|
||
|
|
* http://www.opensource.org/licenses/cddl1.txt
|
||
|
|
*
|
||
|
|
* When distributing Covered Code, include this CDDL HEADER in each
|
||
|
|
* file and include the License file CDDL.Schily.txt from this distribution.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "schilyio.h"
|
||
|
|
#include <schily/stdlib.h>
|
||
|
|
#include <schily/string.h>
|
||
|
|
|
||
|
|
EXPORT ssize_t fgetaline __PR((FILE *, char **, size_t *));
|
||
|
|
EXPORT ssize_t getaline __PR((char **, size_t *));
|
||
|
|
|
||
|
|
#define DEF_LINE_SIZE 128
|
||
|
|
|
||
|
|
EXPORT ssize_t
|
||
|
|
fgetaline(f, bufp, lenp)
|
||
|
|
register FILE *f;
|
||
|
|
char **bufp;
|
||
|
|
register size_t *lenp;
|
||
|
|
{
|
||
|
|
#if defined(HAVE_GETDELIM) || !defined(USE_FGETS_FOR_FGETALINE)
|
||
|
|
return (getdelim(bufp, lenp, '\n', f));
|
||
|
|
#else
|
||
|
|
/*
|
||
|
|
* WARNING: fgets() cannot signal that the read line-buffer
|
||
|
|
* WARNING: has embedded nul bytes. We cannot distinguish
|
||
|
|
* WARNING: read nul bytes from the inserted nul past '\n'
|
||
|
|
* WARNING: without knowing file positions before and after.
|
||
|
|
*/
|
||
|
|
int eof;
|
||
|
|
register size_t used = 0;
|
||
|
|
register size_t line_size;
|
||
|
|
register char *line;
|
||
|
|
|
||
|
|
if (bufp == NULL || lenp == NULL) {
|
||
|
|
seterrno(EINVAL);
|
||
|
|
return (-1);
|
||
|
|
}
|
||
|
|
|
||
|
|
line_size = *lenp;
|
||
|
|
line = *bufp;
|
||
|
|
if (line == NULL || line_size == 0) {
|
||
|
|
if (line_size == 0)
|
||
|
|
line_size = DEF_LINE_SIZE;
|
||
|
|
if (line == NULL)
|
||
|
|
line = (char *) malloc(line_size);
|
||
|
|
if (line == NULL)
|
||
|
|
return (-1);
|
||
|
|
}
|
||
|
|
/* read until EOF or newline encountered */
|
||
|
|
line[0] = '\0';
|
||
|
|
do {
|
||
|
|
line[line_size - 1] = '\t'; /* arbitrary non-zero char */
|
||
|
|
line[line_size - 2] = ' '; /* arbitrary non-newline char */
|
||
|
|
if (!(eof = (fgets(line+used,
|
||
|
|
line_size-used,
|
||
|
|
f) == NULL))) {
|
||
|
|
|
||
|
|
if (line[line_size - 1] != '\0' ||
|
||
|
|
line[line_size - 2] == '\n')
|
||
|
|
break;
|
||
|
|
|
||
|
|
used = line_size - 1;
|
||
|
|
|
||
|
|
line_size += DEF_LINE_SIZE;
|
||
|
|
line = (char *) realloc(line, line_size);
|
||
|
|
if (line == NULL)
|
||
|
|
return (-1);
|
||
|
|
}
|
||
|
|
} while (!eof);
|
||
|
|
used += strlen(&line[used]);
|
||
|
|
*bufp = line;
|
||
|
|
*lenp = line_size;
|
||
|
|
if (eof && (used == 0))
|
||
|
|
return (-1);
|
||
|
|
return (used);
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
EXPORT ssize_t
|
||
|
|
getaline(bufp, lenp)
|
||
|
|
char **bufp;
|
||
|
|
size_t *lenp;
|
||
|
|
{
|
||
|
|
return (fgetaline(stdin, bufp, lenp));
|
||
|
|
}
|