Changeset View
Changeset View
Standalone View
Standalone View
contrib/mg/fparseln.c
- This file was added.
/* $NetBSD: fgetln.c,v 1.9 2008/04/29 06:53:03 martin Exp $ */ | |||||
/*- | |||||
* Copyright (c) 1998 The NetBSD Foundation, Inc. | |||||
* All rights reserved. | |||||
* | |||||
* This code is derived from software contributed to The NetBSD Foundation | |||||
* by Christos Zoulas. | |||||
* | |||||
* Redistribution and use in source and binary forms, with or without | |||||
* modification, are permitted provided that the following conditions | |||||
* are met: | |||||
* 1. Redistributions of source code must retain the above copyright | |||||
* notice, this list of conditions and the following disclaimer. | |||||
* 2. Redistributions in binary form must reproduce the above copyright | |||||
* notice, this list of conditions and the following disclaimer in the | |||||
* documentation and/or other materials provided with the distribution. | |||||
* | |||||
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS | |||||
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED | |||||
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | |||||
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS | |||||
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR | |||||
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF | |||||
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS | |||||
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN | |||||
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | |||||
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE | |||||
* POSSIBILITY OF SUCH DAMAGE. | |||||
*/ | |||||
/* $OpenBSD: fparseln.c,v 1.7 2012/12/05 23:20:06 deraadt Exp $ */ | |||||
/* $NetBSD: fparseln.c,v 1.7 1999/07/02 15:49:12 simonb Exp $ */ | |||||
/* | |||||
* Copyright (c) 1997 Christos Zoulas. All rights reserved. | |||||
* | |||||
* Redistribution and use in source and binary forms, with or without | |||||
* modification, are permitted provided that the following conditions | |||||
* are met: | |||||
* 1. Redistributions of source code must retain the above copyright | |||||
* notice, this list of conditions and the following disclaimer. | |||||
* 2. Redistributions in binary form must reproduce the above copyright | |||||
* notice, this list of conditions and the following disclaimer in the | |||||
* documentation and/or other materials provided with the distribution. | |||||
* 3. All advertising materials mentioning features or use of this software | |||||
* must display the following acknowledgement: | |||||
* This product includes software developed by Christos Zoulas. | |||||
* 4. The name of the author may not be used to endorse or promote products | |||||
* derived from this software without specific prior written permission. | |||||
* | |||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR | |||||
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES | |||||
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. | |||||
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, | |||||
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | |||||
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, | |||||
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY | |||||
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT | |||||
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF | |||||
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | |||||
*/ | |||||
#include <errno.h> | |||||
#include <stdio.h> | |||||
#include <string.h> | |||||
#include <stdlib.h> | |||||
#include "config.h" | |||||
#ifndef HAVE_FPARSELN | |||||
#ifndef __APPLE__ | |||||
#include "util.h" | |||||
#endif | |||||
static char * | |||||
efgetln(FILE *fp, size_t *len) | |||||
{ | |||||
static char *buf = NULL; | |||||
static size_t bufsiz = 0; | |||||
char *ptr; | |||||
if (buf == NULL) { | |||||
bufsiz = BUFSIZ; | |||||
if ((buf = malloc(bufsiz)) == NULL) | |||||
return NULL; | |||||
} | |||||
if (fgets(buf, bufsiz, fp) == NULL) | |||||
return NULL; | |||||
*len = 0; | |||||
while ((ptr = strchr(&buf[*len], '\n')) == NULL) { | |||||
size_t nbufsiz = bufsiz + BUFSIZ; | |||||
char *nbuf = realloc(buf, nbufsiz); | |||||
if (nbuf == NULL) { | |||||
int oerrno = errno; | |||||
free(buf); | |||||
errno = oerrno; | |||||
buf = NULL; | |||||
return NULL; | |||||
} else | |||||
buf = nbuf; | |||||
if (fgets(&buf[bufsiz], BUFSIZ, fp) == NULL) { | |||||
buf[bufsiz] = '\0'; | |||||
*len = strlen(buf); | |||||
return buf; | |||||
} | |||||
*len = bufsiz; | |||||
bufsiz = nbufsiz; | |||||
} | |||||
*len = (ptr - buf) + 1; | |||||
return buf; | |||||
} | |||||
static int isescaped(const char *, const char *, int); | |||||
/* isescaped(): | |||||
* Return true if the character in *p that belongs to a string | |||||
* that starts in *sp, is escaped by the escape character esc. | |||||
*/ | |||||
static int | |||||
isescaped(const char *sp, const char *p, int esc) | |||||
{ | |||||
const char *cp; | |||||
size_t ne; | |||||
/* No escape character */ | |||||
if (esc == '\0') | |||||
return 1; | |||||
/* Count the number of escape characters that precede ours */ | |||||
for (ne = 0, cp = p; --cp >= sp && *cp == esc; ne++) | |||||
continue; | |||||
/* Return true if odd number of escape characters */ | |||||
return (ne & 1) != 0; | |||||
} | |||||
/* fparseln(): | |||||
* Read a line from a file parsing continuations ending in \ | |||||
* and eliminating trailing newlines, or comments starting with | |||||
* the comment char. | |||||
*/ | |||||
char * | |||||
fparseln(FILE *fp, size_t *size, size_t *lineno, const char str[3], | |||||
int flags) | |||||
{ | |||||
static const char dstr[3] = { '\\', '\\', '#' }; | |||||
char *buf = NULL, *ptr, *cp, esc, con, nl, com; | |||||
size_t s, len = 0; | |||||
int cnt = 1; | |||||
if (str == NULL) | |||||
str = dstr; | |||||
esc = str[0]; | |||||
con = str[1]; | |||||
com = str[2]; | |||||
/* | |||||
* XXX: it would be cool to be able to specify the newline character, | |||||
* but unfortunately, fgetln does not let us | |||||
*/ | |||||
nl = '\n'; | |||||
while (cnt) { | |||||
cnt = 0; | |||||
if (lineno) | |||||
(*lineno)++; | |||||
if ((ptr = efgetln(fp, &s)) == NULL) | |||||
break; | |||||
if (s && com) { /* Check and eliminate comments */ | |||||
for (cp = ptr; cp < ptr + s; cp++) | |||||
if (*cp == com && !isescaped(ptr, cp, esc)) { | |||||
s = cp - ptr; | |||||
cnt = s == 0 && buf == NULL; | |||||
break; | |||||
} | |||||
} | |||||
if (s && nl) { /* Check and eliminate newlines */ | |||||
cp = &ptr[s - 1]; | |||||
if (*cp == nl) | |||||
s--; /* forget newline */ | |||||
} | |||||
if (s && con) { /* Check and eliminate continuations */ | |||||
cp = &ptr[s - 1]; | |||||
if (*cp == con && !isescaped(ptr, cp, esc)) { | |||||
s--; /* forget escape */ | |||||
cnt = 1; | |||||
} | |||||
} | |||||
if (s == 0 && buf != NULL) | |||||
continue; | |||||
if ((cp = realloc(buf, len + s + 1)) == NULL) { | |||||
free(buf); | |||||
return NULL; | |||||
} | |||||
buf = cp; | |||||
(void) memcpy(buf + len, ptr, s); | |||||
len += s; | |||||
buf[len] = '\0'; | |||||
} | |||||
if ((flags & FPARSELN_UNESCALL) != 0 && esc && buf != NULL && | |||||
strchr(buf, esc) != NULL) { | |||||
ptr = cp = buf; | |||||
while (cp[0] != '\0') { | |||||
int skipesc; | |||||
while (cp[0] != '\0' && cp[0] != esc) | |||||
*ptr++ = *cp++; | |||||
if (cp[0] == '\0' || cp[1] == '\0') | |||||
break; | |||||
skipesc = 0; | |||||
if (cp[1] == com) | |||||
skipesc += (flags & FPARSELN_UNESCCOMM); | |||||
if (cp[1] == con) | |||||
skipesc += (flags & FPARSELN_UNESCCONT); | |||||
if (cp[1] == esc) | |||||
skipesc += (flags & FPARSELN_UNESCESC); | |||||
if (cp[1] != com && cp[1] != con && cp[1] != esc) | |||||
skipesc = (flags & FPARSELN_UNESCREST); | |||||
if (skipesc) | |||||
cp++; | |||||
else | |||||
*ptr++ = *cp++; | |||||
*ptr++ = *cp++; | |||||
} | |||||
*ptr = '\0'; | |||||
len = strlen(buf); | |||||
} | |||||
if (size) | |||||
*size = len; | |||||
return buf; | |||||
} | |||||
#endif /* !HAVE_FPARSELN */ |