| Commit | Line | Data |
|---|
| fe14fcc3 |
1 | /* |
| 2 | * (C) Copyright 1990, 1991 Tom Dinger |
| 3 | * |
| 2b317908 |
4 | * You may distribute under the terms of either the GNU General Public |
| 5 | * License or the Artistic License, as specified in the README file. |
| fe14fcc3 |
6 | * |
| 7 | */ |
| 8 | |
| 9 | /* |
| 10 | * A "DOS-aware" chdir() function, that will change current drive as well. |
| 11 | * |
| 12 | * chdir( "B:" ) -- changes to the default directory, on drive B: |
| 13 | * chdir( "C:\FOO" ) changes to the specified directory, on drive C: |
| 14 | * chdir( "\BAR" ) changes to the specified directory on the current |
| 15 | * drive. |
| 16 | */ |
| 17 | |
| 18 | #include <stdlib.h> |
| 19 | #include <ctype.h> |
| 20 | #include <direct.h> |
| 21 | #include <dos.h> |
| 22 | #include <errno.h> |
| 23 | |
| 24 | #include "config.h" |
| 25 | #ifdef chdir |
| 26 | #undef chdir |
| 27 | #endif |
| 28 | |
| 29 | /* We should have the line: |
| 30 | * |
| 31 | * #define chdir perl_chdir |
| 32 | * |
| 33 | * in some header for perl (I put it in config.h) so that all |
| 34 | * references to chdir() become references to this function. |
| 35 | */ |
| 36 | |
| 37 | /*------------------------------------------------------------------*/ |
| 38 | |
| 39 | #if defined(BUGGY_MSC5) /* only needed for MSC 5.1 */ |
| 40 | |
| 41 | int _chdrive( int drivenum ) |
| 42 | { |
| 43 | unsigned int ndrives; |
| 44 | unsigned int tmpdrive; |
| 45 | |
| 46 | |
| 47 | _dos_setdrive( drivenum, &ndrives ); |
| 48 | |
| 49 | /* check for illegal drive letter */ |
| 50 | _dos_getdrive( &tmpdrive ); |
| 51 | |
| 52 | return (tmpdrive != drivenum) ? -1 : 0 ; |
| 53 | } |
| 54 | |
| 55 | #endif |
| 56 | |
| 57 | /*-----------------------------------------------------------------*/ |
| 58 | |
| 59 | int perl_chdir( char * path ) |
| 60 | { |
| 61 | int drive_letter; |
| 62 | unsigned int drivenum; |
| 63 | |
| 64 | |
| 65 | if ( path && *path && (path[1] == ':') ) |
| 66 | { |
| 67 | /* The path starts with a drive letter */ |
| 68 | /* Change current drive */ |
| 69 | drive_letter = *path; |
| 70 | if ( isalpha(drive_letter) ) |
| 71 | { |
| 72 | /* Drive letter legal */ |
| 73 | if ( islower(drive_letter) ) |
| 74 | drive_letter = toupper(drive_letter); |
| 75 | drivenum = drive_letter - 'A' + 1; |
| 76 | |
| 77 | /* Change drive */ |
| 78 | if ( _chdrive( drivenum ) == -1 ) |
| 79 | { |
| 80 | /* Drive change failed -- must be illegal drive letter */ |
| 81 | errno = ENODEV; |
| 82 | return -1; |
| 83 | } |
| 84 | |
| 85 | /* Now see if that's all we do */ |
| 86 | if ( ! path[2] ) |
| 87 | return 0; /* no path after drive -- all done */ |
| 88 | } |
| 89 | /* else drive letter illegal -- fall into "normal" chdir */ |
| 90 | } |
| 91 | |
| 92 | /* Here with some path as well */ |
| 93 | return chdir( path ); |
| 94 | |
| 95 | /* end perl_chdir() */ |
| 96 | } |
projects / p5sagit/p5-mst-13.2.git / blame