home *** CD-ROM | disk | FTP | other *** search
/ ftp.muug.mb.ca / 2014.06.ftp.muug.mb.ca.tar / ftp.muug.mb.ca / pub / src / perl / msdos / chdir.c < prev    next >
C/C++ Source or Header  |  1992-04-11  |  2KB  |  97 lines
  1. /*
  2.  *    (C) Copyright 1990, 1991 Tom Dinger
  3.  *
  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.
  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. }
  97.