summaryrefslogtreecommitdiffstats
path: root/Python/import.c
diff options
context:
space:
mode:
authorGuido van Rossum <guido@python.org>1996-05-23 22:51:04 (GMT)
committerGuido van Rossum <guido@python.org>1996-05-23 22:51:04 (GMT)
commit40f470f7e024430d21c0976862f6f3bc1a55c0b9 (patch)
tree347b07d0596c3323959aae8f405bd337e034839e /Python/import.c
parentf857a6becb08af7be77506fd58278b5bd7d99cc8 (diff)
downloadcpython-40f470f7e024430d21c0976862f6f3bc1a55c0b9.zip
cpython-40f470f7e024430d21c0976862f6f3bc1a55c0b9.tar.gz
cpython-40f470f7e024430d21c0976862f6f3bc1a55c0b9.tar.bz2
moved verbose decl to pydebug.h; added dos_8x3 feature
Diffstat (limited to 'Python/import.c')
-rw-r--r--Python/import.c20
1 files changed, 18 insertions, 2 deletions
diff --git a/Python/import.c b/Python/import.c
index afaaab7..53a7ba4 100644
--- a/Python/import.c
+++ b/Python/import.c
@@ -26,6 +26,7 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#include "allobjects.h"
+/* XXX Some of the following are duplicate with allobjects.h... */
#include "node.h"
#include "token.h"
#include "graminit.h"
@@ -45,8 +46,6 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#include "macglue.h"
#endif
-extern int verbose; /* Defined in pythonrun.c */
-
extern long getmtime(); /* In getmtime.c */
/* Magic word to reject .pyc files generated by other Python versions */
@@ -452,8 +451,25 @@ find_module(name, path, buf, buflen, p_fp)
#endif
if (len > 0 && buf[len-1] != SEP)
buf[len++] = SEP;
+#ifdef IMPORT_8x3_NAMES
+ /* see if we are searching in directory dos_8x3 */
+ if (len > 7 && !strncmp(buf + len - 8, "dos_8x3", 7)){
+ int j;
+ char ch; /* limit name to eight lower-case characters */
+ for (j = 0; (ch = name[j]) && j < 8; j++)
+ if (isupper(ch))
+ buf[len++] = tolower(ch);
+ else
+ buf[len++] = ch;
+ }
+ else{ /* Not in dos_8x3, use the full name */
+ strcpy(buf+len, name);
+ len += namelen;
+ }
+#else
strcpy(buf+len, name);
len += namelen;
+#endif
for (fdp = import_filetab; fdp->suffix != NULL; fdp++) {
strcpy(buf+len, fdp->suffix);
if (verbose > 1)