From af32072304b248434df1f54a32af7ae17c466ccd Mon Sep 17 00:00:00 2001
From: "Ryan C. Gordon" <icculus@icculus.org>
Date: Fri, 26 Jul 2002 06:18:30 +0000
Subject: [PATCH] Archivers with matching file extensions get first shot at an
 archive.

---
 physfs.c | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 51 insertions(+), 4 deletions(-)

diff --git a/physfs.c b/physfs.c
index cf16ad03..cf56a535 100644
--- a/physfs.c
+++ b/physfs.c
@@ -209,17 +209,64 @@ void PHYSFS_getLinkedVersion(PHYSFS_Version *ver)
 } /* PHYSFS_getLinkedVersion */
 
 
+static const char *find_filename_extension(const char *fname)
+{
+    const char *retval = strchr(fname, '.');
+    const char *p = retval;
+
+    while (p != NULL)
+    {
+        p = strchr(p + 1, '.');
+        if (p != NULL)
+            retval = p;
+    } /* while */
+
+    if (retval != NULL)
+        retval++;  /* skip '.' */
+
+    return(retval);
+} /* find_filename_extension */
+
+
 static DirHandle *openDirectory(const char *d, int forWriting)
 {
     const DirFunctions **i;
+    const char *ext;
 
     BAIL_IF_MACRO(!__PHYSFS_platformExists(d), ERR_NO_SUCH_FILE, NULL);
 
-    for (i = dirFunctions; *i != NULL; i++)
+    ext = find_filename_extension(d);
+    if (ext != NULL)
     {
-        if ((*i)->isArchive(d, forWriting))
-            return( (*i)->openArchive(d, forWriting) );
-    } /* for */
+        /* Look for archivers with matching file extensions first... */
+        for (i = dirFunctions; *i != NULL; i++)
+        {
+            if (__PHYSFS_platformStricmp(ext, (*i)->info->extension) == 0)
+            {
+                if ((*i)->isArchive(d, forWriting))
+                    return( (*i)->openArchive(d, forWriting) );
+            } /* if */
+        } /* for */
+
+        /* failing an exact file extension match, try all the others... */
+        for (i = dirFunctions; *i != NULL; i++)
+        {
+            if (__PHYSFS_platformStricmp(ext, (*i)->info->extension) != 0)
+            {
+                if ((*i)->isArchive(d, forWriting))
+                    return( (*i)->openArchive(d, forWriting) );
+            } /* if */
+        } /* for */
+    } /* if */
+
+    else  /* no extension? Try them all. */
+    {
+        for (i = dirFunctions; *i != NULL; i++)
+        {
+            if ((*i)->isArchive(d, forWriting))
+                return( (*i)->openArchive(d, forWriting) );
+        } /* for */
+    } /* else */
 
     __PHYSFS_setError(ERR_UNSUPPORTED_ARCHIVE);
     return(NULL);