Initial import of (very old) vidoom sources.

1 files changed, 262 insertions, 0 deletions

diff --git a/djgpp/mem.c b/djgpp/mem.c
new file mode 100644
index 0000000..fd7774a
--- /dev/null
+++ b/djgpp/mem.c
@@ -0,0 +1,262 @@
+/*
+
+    viDOOM - level editor for DOOM
+
+    Copyright (C) 2000  Ian Cowburn (ianc@noddybox.demon.co.uk)
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+    -------------------------------------------------------------------------
+
+    Memory allocation code
+
+*/
+static const char rcs_id[]="$Id$";
+
+#include "config.h"
+
+#include <stdio.h>
+#include <string.h>
+
+#include "mem.h"
+#include "gfx.h"
+#include "file.h"
+
+#include "debug.h"
+
+/* Set MEMSTAT to the following levels :
+
+   	0	- Nodebug information
+	1	- Fatal debug information (still allocated block on failure,
+		  general release errors)
+	2	- All debug information
+
+	Regardless of the above no debug is generated if DEBUG is not set
+*/
+#ifndef DEBUG
+#define MEMSTAT		0
+#else
+#define MEMSTAT		1
+#endif
+
+typedef struct memmap
+	{
+	char		file[64];
+	int		line;
+	void		*addr;
+	struct memmap	*next;
+	struct memmap	*prev;
+	} MemMap;
+
+static MemMap		*mmap=NULL;
+
+
+static void DumpMemList(char *p)
+{
+    MemMap *m;
+
+#   if MEMSTAT == 0
+	return;
+#   endif
+
+    Debug(("**** %s ****\n",p));
+    Debug(("Still waiting to be freed:\n"));
+
+    if ((m=mmap))
+	while(m)
+	    {
+	    Debug(("\t%p allocated to %s:%d\n",m->addr,m->file,m->line));
+	    m=m->next;
+	    }
+    else
+	Debug(("\tNONE\n"));
+
+}
+
+
+static void AddMM(char *mode,char *file, int line, void *addr)
+{
+    MemMap *n;
+
+#   if MEMSTAT == 0
+	return;
+#   endif
+
+    n=malloc(sizeof(MemMap));
+    strcpy(n->file,Basename(file));
+    n->line=line;
+    n->addr=addr;
+
+    if (!mmap)
+	{
+    	mmap=n;
+	n->next=NULL;
+	n->prev=NULL;
+	}
+    else
+    	{
+	mmap->prev=n;
+	n->next=mmap;
+	n->prev=NULL;
+	mmap=n;
+	}
+
+#   if MEMSTAT == 2
+	Debug(("%s: Memory %p allocated to %s:%d\n",mode,addr,file,line));
+#   endif
+}
+
+
+static void RmMM(char *mode, char *file, int line, void *addr)
+{
+    MemMap *n;
+    int del;
+
+#   if MEMSTAT == 0
+	return;
+#   endif
+
+    del=0;
+    n=mmap;
+
+    while(n)
+	if (n->addr==addr)
+	    {
+#	    if MEMSTAT == 2
+		Debug(("%s: Address %p freed by %s:%d\n",mode,addr,file,line));
+#	    endif
+
+	    if (n->prev)
+	    	n->prev->next=n->next;
+	    else
+	    	mmap=n->next;
+
+	    if (n->next)
+	    	n->next->prev=n->prev;
+
+	    free(n);
+	    n=NULL;
+	    del=1;
+	    }
+	else
+	    n=n->next;
+
+    if (!del)
+	Debug(("%s: ***** Address %p not found - freed by %s:%d\n",
+						    mode,addr,file,line));
+}
+
+
+void *FGrab(char *fn, int line, int len)
+{
+    char *ptr;
+
+    if (len==0)
+        len=1;
+
+    if (!(ptr=malloc(len)))
+	{
+	DumpMemList("GRAB FAILED");
+	GFX_exit(EXIT_FAILURE,"Memory allocation failed!\n"
+			"%s:%d Grab(%d)\n",fn,line,len);
+	}
+
+    memset(ptr,0,len);
+
+    AddMM("Grab",fn,line,ptr);
+
+    return(ptr);
+}
+
+
+void *FReGrab(char *fn, int line, void *ptr, int len)
+{
+    if (len==0)
+        len=1;
+
+    if (ptr)
+	RmMM("ReGrab(RELEASE)",fn,line,ptr);
+
+    if (!(ptr=realloc(ptr,len)))
+	{
+	DumpMemList("REGRAB FAILED");
+	GFX_exit(EXIT_FAILURE,"Memory allocation failed!\n"
+			"%s:%d ReGrab(%d)\n",fn,line,len);
+	}
+
+    AddMM("ReGrab(ACQUIRE)",fn,line,ptr);
+
+    return(ptr);
+}
+
+
+void FRelease(char *fn, int line, void *p)
+{
+    RmMM("Release",fn,line,p);
+    free(p);
+}
+
+
+void *FCopy(char *fn, int line, void *p,int len)
+{
+    void *ptr;
+
+    if (len==0)
+	ptr=malloc(1);
+    else
+	ptr=malloc(len);
+
+    if (!ptr)
+	{
+	DumpMemList("COPY FAILED");
+	GFX_exit(EXIT_FAILURE,"Memory allocation failed!\n"
+			"%s:%d Copy(%p,%d)\n",fn,line,p,len);
+	}
+
+    if (len)
+	memcpy(ptr,p,len);
+
+    AddMM("Copy",fn,line,ptr);
+
+    return(ptr);
+}
+
+
+char *FStrdup(char *fn, int line, char *p)
+{
+    char n_fn[PATH_MAX];
+    char *ptr;
+
+    strcpy(n_fn,fn);
+    strcat(n_fn," [STRDUP]");
+
+    if (p)
+	{
+	if (!(ptr=malloc(strlen(p)+1)))
+	    {
+	    DumpMemList("STRDUP FAILED");
+	    GFX_exit(EXIT_FAILURE,"Memory allocation failed!\n"
+			    "%s:%d Stdup(%s)\n",fn,line,p);
+	    }
+
+	strcpy(ptr,p);
+	AddMM("Strdup",fn,line,ptr);
+	return(ptr);
+	}
+    else
+    	return(NULL);
+}
+
+/* END OF FILE */