/* vi:ts=4:sw=4
 *
 * VIM - Vi IMitation
 *
 * Code Contributions By:	Bram Moolenaar			mool@oce.nl
 *							Tim Thompson			twitch!tjt
 *							Tony Andrews			onecom!wldrdg!tony 
 *							G. R. (Fred) Walter		watmath!watcgl!grwalter 
 */

/*
 * alloc.c
 *
 * This file contains various routines dealing with allocation and
 * deallocation of data structures.
 */

#include "vim.h"
#undef FALSE			/* these are redefined in exec/types.h */
#undef TRUE
#include <exec/memory.h>
#undef FALSE
#define FALSE 0
#undef TRUE
#define TRUE 1

#define PANIC_FACTOR_CHIP 8192L

	char *
alloc(size)
	unsigned		size;
{

	return (lalloc((u_long)size, TRUE));
}

	char *
lalloc(size, message)
	u_long	size;
	bool_t			message;
{
	register char   *p;			/* pointer to new storage space */

	if ((p = malloc(size)) != NULL)
	{
		if (AvailMem((long)MEMF_CHIP) < PANIC_FACTOR_CHIP)
		{ 								/* System is low... no go! */
				free(p);
				p = NULL;
		}
	}
	if (message && p == NULL)
		emsg("out of memory!");
	return (p);
}

/*
 * copy a string into newly allocated memory
 */
	char *
strsave(string)
	char		   *string;
{
	char *p;

	p = alloc((unsigned) (strlen(string) + 1));
	if (p != NULL)
		strcpy(p, string);
	return p;
}

	char *
strnsave(string, len)
	char		*string;
	int 		len;
{
	char *p;

	p = alloc((unsigned) (len + 1));
	if (p != NULL)
	{
		strncpy(p, string, len);
		p[len] = NUL;
	}
	return p;
}

	char *
mkstr(c)
	unsigned	  c;
{
	static char	  s[2];

	s[0] = c;
	s[1] = NUL;

	return s;
}