--- uae/src/zfile.c	2018/04/24 16:39:14	1.1.1.2
+++ uae/src/zfile.c	2018/04/24 16:42:14	1.1.1.4
@@ -18,165 +18,166 @@
 #ifdef AMIGA
 extern char *amiga_dev_path;   /* dev: */
 extern char *ixemul_dev_path;  /* /dev/ */
-extern int readdevice(const char *, char *);
+extern int readdevice (const char *, char *);
 #endif
 
-#ifdef __BEOS__
-#undef access
-// This is just a temporary hack.
-// (Will be obsolete in future versions of the BeOS) [ So I hope -- Bernd ]
-
-static int access(const char *name, int mode)
+struct zfile
 {
-    struct stat statbuf;
-
-    if (-1 == stat(name, &statbuf))
-    	return(-1);
-    else{
-		if (!mode)
-			return 0;
-		if ((mode & R_OK) && (statbuf.st_mode & S_IRUSR))
-			return 0;
-		if ((mode & W_OK) && (statbuf.st_mode & S_IWUSR))
-			return 0;
-		return -1;
-	}
-}
-#endif
-
-
-static struct zfile
-{
-  struct zfile *next;
-  FILE *f;
-  char name[L_tmpnam];
-} *zlist;
+    struct zfile *next;
+    FILE *f;
+    char name[L_tmpnam];
+};
+ 
+static struct zfile *zlist = 0;
 
 /*
  * called on exit()
  */
-void zfile_exit(void)
+void zfile_exit (void)
 {
-  struct zfile *l;
-
-  while((l = zlist))
-    {
-      zlist = l->next;
-      fclose(l->f);
-      free(l);
+    struct zfile *l;
+    
+    while ((l = zlist)) {
+	zlist = l->next;
+	fclose (l->f);
+	unlink (l->name); /* sam: in case unlink() after fopen() fails */
+	free (l);
     }
 }
 
 /*
  * fclose() but for a compressed file
  */
-int zfile_close(FILE *f)
+int zfile_close (FILE *f)
 {
-  struct zfile *pl = NULL,
-               *l  = zlist;
-  int ret;
-
-  while(l && l->f!=f) {pl = l;l=l->next;}
-  if(!l) return fclose(f);
-  ret = fclose(l->f);
+    struct zfile *pl = NULL;
+    struct zfile *l  = zlist;
+    int ret;
+
+    while (l && l->f!=f) {
+	pl = l;
+	l = l->next;
+    }
+    if (l == 0)
+	return fclose (f);
+    ret = fclose (l->f);
+    printf ("unlink: `%s'\n", l->name);
+    unlink (l->name);
 
-  if(!pl) zlist = l->next;
-  else pl->next = l->next;
-  free(l);
+    if(!pl)
+	zlist = l->next;
+    else
+	pl->next = l->next;
+    free (l);
 
-  return ret;
+    return ret;
 }
 
 /*
  * gzip decompression
  */
-static int gunzip(const char *src, const char *dst)
+static int gunzip (const char *decompress, const char *src, const char *dst)
 {
-  char cmd[1024];
-  if(!dst) return 1;
-  sprintf(cmd,"gzip -d -c %s >%s",src,dst);
-  return !system(cmd);
+    char cmd[1024];
+    if (!dst) 
+	return 1;
+    sprintf (cmd, "%s -c -d %s >%s", decompress, src, dst);
+    return !system (cmd);
 }
 
 /*
  * lha decompression
  */
-static int lha(const char *src, const char *dst)
+static int lha (const char *src, const char *dst)
 {
-  char cmd[1024];
-  if(!dst) return 1;
+    char cmd[1024];
+    if (!dst)
+	return 1;
 #if defined(AMIGA)
-  sprintf(cmd,"lha -q -N p %s >%s",src,dst);
+    sprintf (cmd, "lha -q -N p %s >%s", src, dst);
 #else
-  sprintf(cmd,"lha pq %s >%s",src,dst);
+    sprintf (cmd, "lha pq %s >%s", src, dst);
 #endif
-  return !system(cmd);
+    return !system (cmd);
 }
 
 /*
  * (pk)unzip decompression
  */
-static int unzip(const char *src, const char *dst)
+static int unzip (const char *src, const char *dst)
 {
-  char cmd[1024];
-  if(!dst) return 1;
-#if defined(AMIGA)
-  sprintf(cmd,"unzip -p %s '*.adf' >%s",src,dst);
-  return !system(cmd);
-#else
-  return gunzip(src,dst); /* I don't know for unix */
+    char cmd[1024];
+    if (!dst)
+	return 1;
+#if defined AMIGA || defined __unix
+    sprintf (cmd, "unzip -p %s '*.adf' >%s", src, dst);
+    return !system (cmd);
 #endif
 }
 
 /*
  * decompresses the file (or check if dest is null)
  */
-static int uncompress(const char *name, char *dest)
+static int uncompress (const char *name, char *dest)
 {
-    char *ext = strrchr(name, '.');
+    char *ext = strrchr (name, '.');
     char nam[1024];
 
-    if (ext != NULL && access(name,0) >= 0) {
+    if (ext != NULL && access (name, 0) >= 0) {
 	ext++;
-	if(!strcasecmp(ext,"z")  ||
-	   !strcasecmp(ext,"gz") ||
-	   !strcasecmp(ext,"adz") ||
-	   !strcasecmp(ext,"roz") ||
-	   0) return gunzip(name,dest);
+	if (strcasecmp (ext, "z") == 0
+	    || strcasecmp (ext, "gz") == 0
+	    || strcasecmp (ext, "adz") == 0
+	    || strcasecmp (ext, "roz") == 0)
+	    return gunzip ("gzip", name, dest);
+	if (strcasecmp (ext, "bz") == 0)
+	    return gunzip ("bzip", name, dest);
+	if (strcasecmp (ext, "bz2") == 0)
+	    return gunzip ("bzip2", name, dest);
+
 #ifndef __DOS__
-	if(!strcasecmp(ext,"lha") ||
-	   !strcasecmp(ext,"lzh") ||
-	   0) return lha(name,dest);
-	if(!strcasecmp(ext,"zip") ||
-	   0) return unzip(name,dest);
+	if (strcasecmp (ext, "lha") == 0
+	    || strcasecmp (ext, "lzh") == 0)
+	    return lha (name, dest);
+	if (strcasecmp (ext, "zip") == 0)
+	     return unzip (name, dest);
 #endif
     }
 
-    if(access(strcat(strcpy(nam,name),".z"),0)>=0  ||
-       access(strcat(strcpy(nam,name),".Z"),0)>=0  ||
-       access(strcat(strcpy(nam,name),".gz"),0)>=0 ||
-       access(strcat(strcpy(nam,name),".GZ"),0)>=0 ||
-       access(strcat(strcpy(nam,name),".adz"),0)>=0 ||
-       access(strcat(strcpy(nam,name),".roz"),0)>=0 ||
-       0) return gunzip(nam,dest);
+    if (access (strcat (strcpy (nam, name), ".z"), 0) >= 0
+	|| access (strcat (strcpy (nam, name), ".Z"), 0) >= 0
+	|| access (strcat (strcpy (nam, name), ".gz"), 0) >= 0
+	|| access (strcat (strcpy (nam, name), ".GZ"), 0) >= 0
+	|| access (strcat (strcpy (nam, name), ".adz"), 0) >= 0
+	|| access (strcat (strcpy (nam, name), ".roz"), 0) >= 0)
+	return gunzip ("gzip", nam, dest);
+
+    if (access (strcat (strcpy (nam, name), ".bz"), 0) >= 0
+	|| access (strcat (strcpy (nam, name), ".BZ"), 0) >= 0)
+	return gunzip ("bzip", nam, dest);
+
+    if (access (strcat (strcpy (nam, name), ".bz2"), 0) >= 0
+	|| access (strcat (strcpy (nam, name), ".BZ2"), 0) >= 0)
+	return gunzip ("bzip2", nam, dest);
 
 #ifndef __DOS__
-    if(access(strcat(strcpy(nam,name),".lha"),0)>=0 ||
-       access(strcat(strcpy(nam,name),".LHA"),0)>=0 ||
-       access(strcat(strcpy(nam,name),".lzh"),0)>=0 ||
-       access(strcat(strcpy(nam,name),".LZH"),0)>=0 ||
-       0) return lha(nam,dest);
-
-    if(access(strcat(strcpy(nam,name),".zip"),0)>=0 ||
-       access(strcat(strcpy(nam,name),".ZIP"),0)>=0 ||
-       0) return unzip(nam,dest);
+    if (access (strcat (strcpy (nam, name), ".lha"), 0) >= 0
+	|| access (strcat (strcpy (nam, name), ".LHA"), 0) >= 0
+	|| access (strcat (strcpy (nam, name), ".lzh"), 0) >= 0
+	|| access (strcat (strcpy (nam, name), ".LZH"), 0) >= 0)
+	return lha (nam, dest);
+
+    if (access (strcat (strcpy (nam, name),".zip"),0) >= 0
+	|| access (strcat (strcpy (nam, name),".ZIP"),0) >= 0)
+       return unzip (nam, dest);
 #endif
 
 #if defined(AMIGA)
-    if(!strnicmp(nam,ixemul_dev_path,strlen(ixemul_dev_path)))
-	return readdevice(name+strlen(ixemul_dev_path),dest);
-    if(!strnicmp(nam,amiga_dev_path,strlen(amiga_dev_path)))
-	return readdevice(name+strlen(amiga_dev_path),dest);
+    /* sam: must be before real access to work */
+    if (!strnicmp (name, ixemul_dev_path, strlen (ixemul_dev_path)))
+	return readdevice (name + strlen (ixemul_dev_path), dest);
+    if (!strnicmp (name, amiga_dev_path, strlen (amiga_dev_path)))
+	return readdevice (name + strlen (amiga_dev_path), dest);
 #endif
 
     return 0;
@@ -185,48 +186,45 @@ static int uncompress(const char *name,
 /*
  * fopen() for a compressed file
  */
-FILE *zfile_open(const char *name, const char *mode)
+FILE *zfile_open (const char *name, const char *mode)
 {
     struct zfile *l;
     int fd = 0;
-    
-    if(!uncompress(name,NULL)) return fopen(name,mode);
-    
-    if(!(l = malloc(sizeof(*l)))) return NULL;
 
-    tmpnam(l->name);
-#if !defined(AMIGA)
-    /* On the amiga this would make ixemul loose the break handler */
-    fd = creat(l->name, 0666);
+    if (! uncompress (name, NULL))
+	return fopen (name, mode);
+
+    l = malloc (sizeof *l);
+    if (! l)
+	return NULL;
+
+    tmpnam (l->name);
+
+    fd = creat (l->name, S_IRUSR | S_IWUSR);
     if (fd < 0)
 	return NULL;
-#endif
-    
-    if(!uncompress(name,l->name)) 
-    {
-	free(l); close (fd); unlink(l->name); return NULL; 
+
+    if (! uncompress (name, l->name)) {
+	free (l);
+	close (fd);
+	printf ("unlink: `%s'\n", l->name);
+	unlink (l->name);
+	return NULL;
     }
 
-    l->f=fopen(l->name,mode);
-    
-    /* Deleting the file now will cause the space for it to be freed
-     * as soon as we fclose() it. This saves bookkeeping work.
-     */
-#ifndef __DOS__
-    unlink (l->name);
-#endif
+    l->f = fopen (l->name, mode);
 
-#if !defined(AMIGA)
     close (fd);
-#endif
-    
+
     if (l->f == NULL) {
-	free(l);
+	printf ("unlink: `%s'\n", l->name);
+	unlink (l->name);
+	free (l);
 	return NULL;
     }
 
     l->next = zlist;
-    zlist   = l;
+    zlist = l;
 
     return l->f;
 }
@@ -237,18 +235,18 @@ FILE *zfile_open(const char *name, const
  * Stubs for machines that this doesn't work on.
  */
 
-void zfile_exit(void)
+void zfile_exit (void)
 {
 }
 
-int zfile_close(FILE *f)
+int zfile_close (FILE *f)
 {
     return fclose(f);
 }
 
-FILE *zfile_open(const char *name, const char *mode)
+FILE *zfile_open (const char *name, const char *mode)
 {
-    return fopen(name, mode);
+    return fopen (name, mode);
 }
 
 #endif