From 4d1b3b921dd63ec20c8f20d4781dfa5adb52b63c Mon Sep 17 00:00:00 2001
From: Guido van Rossum <guido@python.org>
Date: Fri, 13 Feb 1998 23:27:59 +0000
Subject: Added DJGPP version of check_case(), by Pit Scrorpion (Hans Nowak).

(BTW, the Mac version was by Jack Jansen.)
---
 Python/import.c | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/Python/import.c b/Python/import.c
index 8c48547..7917633 100644
--- a/Python/import.c
+++ b/Python/import.c
@@ -1005,6 +1005,34 @@ check_case(char *buf, int len, int namelen, char *name)
 }
 #endif /* macintosh */
 
+#ifdef DJGPP
+static int
+check_case(char *buf, int len, int namelen, char *name)
+{
+	struct ffblk ffblk;
+	int done;
+
+	if (getenv("PYTHONCASEOK") != NULL)
+		return 1;
+	done = findfirst(buf, &ffblk, FA_ARCH|FA_RDONLY|FA_HIDDEN);
+	if (done) {
+		PyErr_Format(PyExc_NameError,
+		  "Can't find file for module %.100s\n(filename %.300s)",
+		  name, buf);
+		return 0;
+	}
+
+	if (strncmp(ffblk.ff_name, name, namelen) != 0) {
+		strcpy(buf+len-namelen, ffblk.ff_name);
+		PyErr_Format(PyExc_NameError,
+		  "Case mismatch for module name %.100s\n(filename %.300s)",
+		  name, buf);
+		return 0;
+	}
+	return 1;
+}
+#endif
+
 #endif CHECK_IMPORT_CASE
 
 #ifdef HAVE_STAT
-- 
cgit v0.12