/*
   ============================================================================
	getbuff.c -- Get a buffer for a file for the Buchla 700 C I/O Library
	Version 4 -- 1987-06-24 -- D.N. Lynx Crowe
   ============================================================================
*/

#include "ram.h"

void getbuff(FILE *ptr)
{
	int8_t *buffer;

	if (ptr->_buflen EQ 1) {	/* see if we want the small buffer */

		ptr->_buff = &ptr->_bytbuf;
		return;
	}

	if (Stdbufs) {		/* see if we have any standard buffers left */

		buffer = (int8_t *)Stdbufs;
		Stdbufs = *(int32_t **)Stdbufs;

	} else {		/* ... if not, use the small one */

		ptr->_buff = &ptr->_bytbuf;
		ptr->_buflen = 1;
		return;
	}

	ptr->_flags |= _ALLBUF;		/* say we allocated a standard buffer */
	ptr->_buff = buffer;
	return;
}