mirror of
https://github.com/reactos/reactos.git
synced 2024-11-10 00:34:39 +00:00
183 lines
3.4 KiB
C
183 lines
3.4 KiB
C
/* @(#)fgetline.c 1.14 16/11/07 Copyright 1986, 1996-2016 J. Schilling */
|
|
/*
|
|
* Copyright (c) 1986, 1996-2016 J. Schilling
|
|
*
|
|
* This is an interface that exists in the public since 1982.
|
|
* The POSIX.1-2008 standard did ignore POSIX rules not to
|
|
* redefine existing public interfaces and redefined the interfaces
|
|
* forcing us to add a js_*() prefix to the original functions.
|
|
*/
|
|
/*
|
|
* 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.
|
|
*/
|
|
|
|
#define fgetline __no__fgetline__
|
|
#define getline __no__getline__
|
|
|
|
#define FAST_GETC_PUTC /* Will be reset if not possible */
|
|
#include "schilyio.h"
|
|
|
|
#ifdef LIB_SHEDIT
|
|
#undef HAVE_USG_STDIO
|
|
#undef FAST_GETC_PUTC
|
|
#endif
|
|
|
|
#ifndef NO_GETLINE_COMPAT /* Define to disable backward compatibility */
|
|
#undef fgetline
|
|
#undef getline
|
|
#ifdef HAVE_PRAGMA_WEAK
|
|
#pragma weak fgetline = js_fgetline
|
|
#pragma weak getline = js_getline
|
|
#else
|
|
|
|
EXPORT int fgetline __PR((FILE *, char *, int));
|
|
EXPORT int getline __PR((char *, int));
|
|
|
|
EXPORT int
|
|
fgetline(f, buf, len)
|
|
FILE *f;
|
|
char *buf;
|
|
int len;
|
|
{
|
|
return (js_fgetline(f, buf, len));
|
|
}
|
|
|
|
EXPORT int
|
|
getline(buf, len)
|
|
char *buf;
|
|
int len;
|
|
{
|
|
return (js_fgetline(stdin, buf, len));
|
|
}
|
|
#endif
|
|
#endif
|
|
|
|
#if !defined(getc) && defined(USE_FGETS_FOR_FGETLINE)
|
|
#include <schily/string.h>
|
|
|
|
/*
|
|
* Warning: this prevents us from being able to have embedded null chars.
|
|
*/
|
|
EXPORT int
|
|
js_fgetline(f, buf, len)
|
|
register FILE *f;
|
|
char *buf;
|
|
register int len;
|
|
{
|
|
char *bp = fgets(buf, len, f);
|
|
|
|
if (bp) {
|
|
len = strlen(bp);
|
|
|
|
if (len > 0) {
|
|
if (bp[len-1] == '\n')
|
|
bp[--len] = '\0';
|
|
}
|
|
return (len);
|
|
}
|
|
buf[0] = '\0';
|
|
return (-1);
|
|
}
|
|
|
|
#else
|
|
EXPORT int
|
|
js_fgetline(f, buf, len)
|
|
register FILE *f;
|
|
char *buf;
|
|
register int len;
|
|
{
|
|
register char *bp = buf;
|
|
#if defined(HAVE_USG_STDIO) || defined(FAST_GETC_PUTC)
|
|
register char *p;
|
|
#else
|
|
register int nl = '\n';
|
|
register int c = '\0';
|
|
#endif
|
|
|
|
down2(f, _IOREAD, _IORW);
|
|
|
|
if (len <= 0)
|
|
return (0);
|
|
|
|
*bp = '\0';
|
|
for (;;) {
|
|
#if defined(HAVE_USG_STDIO) || defined(FAST_GETC_PUTC)
|
|
size_t n;
|
|
|
|
if ((__c f)->_cnt <= 0) {
|
|
if (usg_filbuf(f) == EOF) {
|
|
/*
|
|
* If buffer is empty and we hit EOF, return EOF
|
|
*/
|
|
if (bp == buf)
|
|
return (EOF);
|
|
break;
|
|
}
|
|
(__c f)->_cnt++;
|
|
(__c f)->_ptr--;
|
|
}
|
|
|
|
n = len;
|
|
if (n > (__c f)->_cnt)
|
|
n = (__c f)->_cnt;
|
|
p = movecbytes((__c f)->_ptr, bp, '\n', n);
|
|
if (p) {
|
|
n = p - bp;
|
|
}
|
|
(__c f)->_ptr += n;
|
|
(__c f)->_cnt -= n;
|
|
bp += n;
|
|
len -= n;
|
|
if (p != NULL) {
|
|
bp--; /* Remove '\n' */
|
|
break;
|
|
}
|
|
#else
|
|
if ((c = getc(f)) < 0) {
|
|
/*
|
|
* If buffer is empty and we hit EOF, return EOF
|
|
*/
|
|
if (bp == buf)
|
|
return (c);
|
|
break;
|
|
}
|
|
if (c == nl)
|
|
break;
|
|
if (--len > 0) {
|
|
*bp++ = (char)c;
|
|
} else {
|
|
#ifdef __never__
|
|
/*
|
|
* Read up to end of line
|
|
*/
|
|
while ((c = getc(f)) >= 0 && c != nl)
|
|
/* LINTED */
|
|
;
|
|
#endif
|
|
break;
|
|
}
|
|
#endif
|
|
}
|
|
*bp = '\0';
|
|
|
|
return (bp - buf);
|
|
}
|
|
#endif
|
|
|
|
EXPORT int
|
|
js_getline(buf, len)
|
|
char *buf;
|
|
int len;
|
|
{
|
|
return (js_fgetline(stdin, buf, len));
|
|
}
|