/*
 * Copyright (c) 1990 The Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by the University of California, Berkeley.  The name of the
 * University may not be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

// Modified for GNU iostream by Per Bothner 1991.

#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid[] = "%W% (Berkeley) %G%";
#endif /* LIBC_SCCS and not lint */

#include "ioprivat.h"
#include "fstream.h"
#include <sys/types.h>
#include <sys/stat.h>

#ifdef atarist
extern "C" extern unsigned long __DEFAULT_BUFSIZ__;
#undef BUFSIZ
#define BUFSIZ __DEFAULT_BUFSIZ__
#endif

/*
 * Allocate a file buffer, or switch to unbuffered I/O.
 * Per the ANSI C standard, ALL tty devices default to line buffered.
 *
 * As a side effect, we set __SOPT or __SNPT (en/dis-able fseek
 * optimisation) right after the _fstat() that finds the buffer size.
 */
int filebuf::doallocate()
{
    if (unbuffered()) {
	setb(_fb._shortbuf, _fb._shortbuf+1, 0);
	return 1;
    }
    register size_t size, couldbetty;
    register char *p;
    struct stat st;

    if (fd() < 0 || _fstat(fd(), &st) < 0) {
	couldbetty = 0;
	size = BUFSIZ;
#if 0
	/* do not try to optimise fseek() */
	fp->_flags |= __SNPT;
#endif
    } else {
	couldbetty = (st.st_mode & S_IFMT) == S_IFCHR;
#if defined(atarist) || defined(NO_ST_BLKSIZE)
	size = BUFSIZ;
#else
	size = st.st_blksize <= 0 ? BUFSIZ : st.st_blksize;
#endif
    }
#ifdef USE_MALLOC_BUF
    if ((p = malloc(size)) == NULL) {
	unbuffered(1);
//	fp->_bf._base = fp->_p = fp->_nbuf;
//	fp->_bf._size = 1;
	return EOF;
    }
#else
    p = ALLOC_BUF(size);
#endif
    setb(p, p+size, 1);
    if (couldbetty && _isatty(fd()))
	_flags |= _S_LINE_BUF;
    return 1;
}