Port of Duke Nukem 3D

This ports Fabien Sanglard's Chocolate Duke to run on a version of SDL
for Rockbox.

Change-Id: I8f2c4c78af19de10c1633ed7bb7a997b43256dd9

apps/plugins/sdl/SDL_mixer/timidity/common.c

@@ -0,0 +1,238 @@
+/*
+    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 Perl Artistic License, available in COPYING.
+ */
+
+#include "config.h"
+#include "common.h"
+#include "output.h"
+#include "ctrlmode.h"
+
+/* I guess "rb" should be right for any libc */
+#define OPEN_MODE "rb"
+
+char current_filename[PATH_MAX];
+
+static PathList *pathlist=NULL;
+
+/* 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 FILE *try_to_open(const char *name, int decompress, int noise_mode)
+{
+  FILE *fp;
+
+  fp=fopen(name, OPEN_MODE); /* First just check that the file exists */
+
+  if (!fp)
+    return 0;
+
+#ifdef DECOMPRESSOR_LIST
+  if (decompress)
+    {
+      int l,el;
+      static char *decompressor_list[] = DECOMPRESSOR_LIST, **dec;
+      const char *cp;
+      char tmp[PATH_MAX], tmp2[PATH_MAX], *cp2;
+      /* Check if it's a compressed file */ 
+      l=strlen(name);
+      for (dec=decompressor_list; *dec; dec+=2)
+	{
+	  el=strlen(*dec);
+	  if ((el>=l) || (strcmp(name+l-el, *dec)))
+	    continue;
+
+	  /* Yes. Close the file, open a pipe instead. */
+	  fclose(fp);
+
+	  /* Quote some special characters in the file name */
+	  cp=name;
+	  cp2=tmp2;
+	  while (*cp)
+	    {
+	      switch(*cp)
+		{
+		case '\'':
+		case '\\':
+		case ' ':
+		case '`':
+		case '!':
+		case '"':
+		case '&':
+		case ';':
+		  *cp2++='\\';
+		}
+	      *cp2++=*cp++;
+	    }
+	  *cp2=0;
+
+	  sprintf(tmp, *(dec+1), tmp2);
+	  fp=popen(tmp, "r");
+	  break;
+	}
+    }
+#endif
+  
+  return fp;
+}
+
+/* This is meant to find and open files for reading, possibly piping
+   them through a decompressor. */
+FILE *open_file(const char *name, int decompress, int noise_mode)
+{
+  FILE *fp;
+  PathList *plp;
+  int l;
+
+  if (!name || !(*name))
+    {
+      ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "Attempted to open nameless file.");
+      return 0;
+    }
+
+  if (pathlist==NULL) {
+    /* Generate path list */
+#ifdef DEFAULT_PATH
+    add_to_pathlist(DEFAULT_PATH);
+#endif
+#ifdef DEFAULT_PATH1
+    add_to_pathlist(DEFAULT_PATH1);
+#endif
+#ifdef DEFAULT_PATH2
+    add_to_pathlist(DEFAULT_PATH2);
+#endif
+#ifdef DEFAULT_PATH3
+    add_to_pathlist(DEFAULT_PATH3);
+#endif
+  }
+
+  /* First try the given name */
+
+  strncpy(current_filename, name, PATH_MAX - 1);
+  current_filename[PATH_MAX - 1]='\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;
+
+#ifdef ENOENT
+  if (noise_mode && (errno != ENOENT))
+    {
+      ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "%s: %s", 
+	   current_filename, strerror(errno));
+      return 0;
+    }
+#endif
+
+  plp=pathlist;
+  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;
+#ifdef ENOENT
+	if (noise_mode && (errno != ENOENT))
+	  {
+	    ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "%s: %s", 
+		 current_filename, strerror(errno));
+	    return 0;
+	  }
+#endif
+	plp=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(FILE *fp)
+{
+#ifdef DECOMPRESSOR_LIST
+  if (pclose(fp)) /* Any better ideas? */
+#endif
+    fclose(fp);
+
+  strncpy(current_filename, "MIDI file", PATH_MAX - 1);
+}
+
+/* This is meant for skipping a few bytes in a file or fifo. */
+void skip(FILE *fp, size_t len)
+{
+  size_t c;
+  char tmp[PATH_MAX];
+  while (len>0)
+    {
+      c=len;
+      if (c>PATH_MAX) c=PATH_MAX;
+      len-=c;
+      if (c!=fread(tmp, 1, c, fp))
+	ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "%s: skip: %s",
+	     current_filename, strerror(errno));
+    }
+}
+
+/* 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=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(const char *s)
+{
+  PathList *plp=safe_malloc(sizeof(PathList));
+  strcpy((plp->path=safe_malloc(strlen(s)+1)),s);
+  plp->next=pathlist;
+  pathlist=plp;
+}
+
+/* Free memory associated to path list */
+void free_pathlist(void)
+{
+  PathList *plp, *next_plp;
+
+  plp = pathlist;
+  while (plp) {
+    if (plp->path) {
+      free(plp->path);
+      plp->path=NULL;
+    }
+    next_plp = plp->next;
+    free(plp);
+    plp = next_plp;
+  }
+  pathlist = NULL;
+}