Initial commit

doomclassic/timidity/common.cpp

@@ -0,0 +1,178 @@
+/*
+
+TiMidity -- Experimental MIDI to WAVE converter
+Copyright (C) 1995 Tuukka Toivonen <toivonen@clinet.fi>
+
+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., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+common.c
+
+*/
+
+#include "../../neo/idlib/precompiled.h"
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <errno.h>
+#include "config.h"
+#include "common.h"
+#include "output.h"
+#include "controls.h"
+
+/* I guess "rb" should be right for any libc */
+#define OPEN_MODE "rb"
+
+char current_filename[1024];
+
+#ifdef DEFAULT_PATH
+/* The paths in this list will be tried whenever we're reading a file */
+static PathList defaultpathlist={DEFAULT_PATH,0};
+static PathList *pathlist=&defaultpathlist; /* This is a linked list */
+#else
+static PathList *pathlist=0;
+#endif
+
+/* Try to open a file for reading. If the filename ends in one of the 
+defined compressor extensions, pipe the file through the decompressor */
+static idFile * try_to_open(char *name, int decompress, int noise_mode)
+{	
+	idFile * fp;
+
+	fp = fileSystem->OpenFileRead( name );
+
+	if (!fp)
+		return 0;
+
+	return fp;
+}
+
+/* This is meant to find and open files for reading, possibly piping
+them through a decompressor. */
+idFile * open_file(const char *name, int decompress, int noise_mode)
+{
+	idFile * fp;
+	PathList *plp=pathlist;
+	int l;
+
+	if (!name || !(*name))
+	{
+		ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "Attempted to open nameless file.");
+		return 0;
+	}
+
+	/* First try the given name */
+
+	strncpy(current_filename, name, 1023);
+	current_filename[1023]='\0';
+
+	ctl->cmsg(CMSG_INFO, VERB_DEBUG, "Trying to open %s", current_filename);
+	if ((fp=try_to_open(current_filename, decompress, noise_mode)))
+		return fp;
+
+	if (name[0] != PATH_SEP)
+		while (plp)  /* Try along the path then */
+		{
+			*current_filename=0;
+			l=strlen(plp->path);
+			if(l)
+			{
+				strcpy(current_filename, plp->path);
+				if(current_filename[l-1]!=PATH_SEP)
+					strcat(current_filename, PATH_STRING);
+			}
+			strcat(current_filename, name);
+			ctl->cmsg(CMSG_INFO, VERB_DEBUG, "Trying to open %s", current_filename);
+			if ((fp=try_to_open(current_filename, decompress, noise_mode)))
+				return fp;
+
+			plp=(PathList*)plp->next;
+		}
+
+		/* Nothing could be opened. */
+
+		*current_filename=0;
+
+		if (noise_mode>=2)
+			ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "%s: %s", name, strerror(errno));
+
+		return 0;
+}
+
+/* This closes files opened with open_file */
+void close_file(idFile * fp)
+{
+	delete fp;
+}
+
+/* This is meant for skipping a few bytes in a file or fifo. */
+void skip(idFile * fp, size_t len)
+{
+	size_t c;
+	char tmp[1024];
+	while (len>0)
+	{
+		c=len;
+		if (c>1024) c=1024;
+		len-=c;
+		if (c!=fp->Read(tmp, c ))
+			ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "%s: skip: %s",
+			current_filename, strerror(errno));
+	}
+}
+
+//extern void *Real_Tim_Malloc( size_t );
+/* This'll allocate memory or die. */
+void *safe_malloc(size_t count)
+{
+	void *p;
+	if (count > (1<<21))
+	{
+		ctl->cmsg(CMSG_FATAL, VERB_NORMAL, 
+			"Strange, I feel like allocating %d bytes. This must be a bug.",
+			count);
+	}
+	else if ((p=Real_Tim_Malloc(count)))
+		return p;
+	else
+		ctl->cmsg(CMSG_FATAL, VERB_NORMAL, "Sorry. Couldn't malloc %d bytes.", count);
+
+	ctl->close();
+	//exit(10);
+	return(NULL);
+}
+
+/* This adds a directory to the path list */
+void add_to_pathlist(char *s)
+{
+	PathList *plp=(PathList*)safe_malloc(sizeof(PathList));
+	strcpy((plp->path=(char *)safe_malloc(strlen(s)+1)),s);
+	plp->next=pathlist;
+	pathlist=plp;
+}
+
+/* Required memory management functions */
+void *Real_Tim_Malloc( int sz ) {
+	return malloc( sz );
+}
+
+void Real_Tim_Free( void *pt ) {
+	free( pt );
+}
+
+void* Real_Malloc( unsigned int sz ) {
+	return malloc( sz );
+}