--- uae/src/zfile.c	2018/04/24 16:38:39	1.1
+++ uae/src/zfile.c	2018/04/24 16:53:05	1.1.1.7
@@ -3,7 +3,7 @@
   *
   * routines to handle compressed file automatically
   *
-  * (c) 1996 Samuel Devulder
+  * (c) 1996 Samuel Devulder, Tim Gunn
   */
 
 #include "sysconfig.h"
@@ -15,103 +15,186 @@
 
 #ifdef USE_ZFILE
 
-static struct zfile
+#ifdef AMIGA
+extern char *amiga_dev_path;   /* dev: */
+extern char *ixemul_dev_path;  /* /dev/ */
+extern int readdevice (const char *, char *);
+#endif
+
+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);
+    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(char *src,char *dst)
+static int gunzip (const char *decompress, const char *src, const char *dst)
+{
+    char cmd[1024];
+    char *ext = strrchr (src, '.');
+    if (!dst) 
+        return 1;
+#if defined(AMIGA)
+    sprintf (cmd, "%s -c -d -S %s \"%s\" > \"%s\"", decompress, ext, src, dst);
+#else
+    sprintf (cmd, "%s -c -d \"%s\" > \"%s\"", decompress, src, dst);
+#endif
+    return !system (cmd);
+}
+
+/*
+ * bzip/bzip2 decompression
+ */
+static int bunzip (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(char *src,char *dst)
+static int lha (const char *src, const char *dst)
+{
+    char cmd[1024];
+    if (!dst)
+	return 1;
+#if defined(AMIGA)
+    sprintf (cmd, "lha -q -N p %s >%s", src, dst);
+#else
+    sprintf (cmd, "lha pq %s >%s", src, dst);
+#endif
+    return !system (cmd);
+}
+
+/*
+ * (pk)unzip decompression
+ */
+static int unzip (const char *src, const char *dst)
 {
-  char cmd[1024];
-  if(!dst) return 1;
-  sprintf(cmd,"lha -q -N p %s >%s",src,dst);
-  return !system(cmd);
+    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(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(!strcmp(ext,"z")  ||
-	   !strcmp(ext,"Z")  ||
-	   !strcmp(ext,"gz") ||
-	   !strcmp(ext,"GZ") ||
-	   0) return gunzip(name,dest);
-	if(!strcmp(ext,"lha") ||
-	   !strcmp(ext,"LHA") ||
-	   !strcmp(ext,"lzh") ||
-	   !strcmp(ext,"LZH") ||
-	   0) return lha(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 bunzip ("bzip", name, dest);
+	if (strcasecmp (ext, "bz2") == 0)
+            return bunzip ("bzip2", name, dest);
+
+#ifndef __DOS__
+	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 ||
-       0) return gunzip(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 ||
-       0) return lha(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 bunzip ("bzip", nam, dest);
+
+    if (access (strcat (strcpy (nam, name), ".bz2"), 0) >= 0
+	|| access (strcat (strcpy (nam, name), ".BZ2"), 0) >= 0)
+        return bunzip ("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)
+	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)
+    /* 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;
 }
@@ -119,41 +202,43 @@ static int uncompress(char *name,char *d
 /*
  * fopen() for a compressed file
  */
-FILE *zfile_open(char *name,char *mode)
+FILE *zfile_open (const char *name, const char *mode)
 {
     struct zfile *l;
-    int fd;
-    
-    if(!uncompress(name,NULL)) return fopen(name,mode);
-    
-    if(!(l = malloc(sizeof(*l)))) return NULL;
+    int fd = 0;
+
+    if (! uncompress (name, NULL))
+	return fopen (name, mode);
 
-    tmpnam(l->name);
-    fd = creat(l->name, 0666);
+    l = malloc (sizeof *l);
+    if (! l)
+	return NULL;
+
+    tmpnam (l->name);
+
+    fd = creat (l->name, S_IRUSR | S_IWUSR);
     if (fd < 0)
 	return NULL;
-    
-    if(!uncompress(name,l->name)) 
-    {
-	free(l); close (fd); unlink(l->name); return NULL; 
+
+    if (! uncompress (name, l->name)) {
+	close (fd);
+	unlink (l->name);
+	free (l);
+	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.
-     */
-    unlink (l->name);
+    l->f = fopen (l->name, mode);
 
     close (fd);
-    
+
     if (l->f == NULL) {
-	free(l);
+	unlink (l->name);
+	free (l);
 	return NULL;
     }
 
     l->next = zlist;
-    zlist   = l;
+    zlist = l;
 
     return l->f;
 }
@@ -164,18 +249,18 @@ FILE *zfile_open(char *name,char *mode)
  * 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(char *name,char *mode)
+FILE *zfile_open (const char *name, const char *mode)
 {
-    return fopen(name, mode);
+    return fopen (name, mode);
 }
 
 #endif