my_getwd.c
上传用户:romrleung
上传日期:2022-05-23
资源大小:18897k
文件大小:5k
源码类别:

MySQL数据库

开发平台:

Visual C++

  1. /* Copyright (C) 2000 MySQL AB
  2.    This program is free software; you can redistribute it and/or modify
  3.    it under the terms of the GNU General Public License as published by
  4.    the Free Software Foundation; either version 2 of the License, or
  5.    (at your option) any later version.
  6.    This program is distributed in the hope that it will be useful,
  7.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  8.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  9.    GNU General Public License for more details.
  10.    You should have received a copy of the GNU General Public License
  11.    along with this program; if not, write to the Free Software
  12.    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
  13. /* my_setwd() and my_getwd() works with intern_filenames !! */
  14. #include "mysys_priv.h"
  15. #include <m_string.h>
  16. #include "mysys_err.h"
  17. #ifdef HAVE_GETWD
  18. #include <sys/param.h>
  19. #endif
  20. #if defined(MSDOS) || defined(__WIN__)
  21. #include <m_ctype.h>
  22. #include <dos.h>
  23. #include <direct.h>
  24. #endif
  25. #if defined(OS2)
  26. #include <direct.h>
  27. #endif
  28. #ifdef __EMX__
  29. /* chdir2 support also drive change */
  30. #define chdir _chdir2
  31. #endif
  32. /* Gets current working directory in buff. Directory is allways ended
  33.    with FN_LIBCHAR */
  34. /* One must pass a buffer to my_getwd. One can allways use
  35.    curr_dir[] */
  36. int my_getwd(my_string buf, uint size, myf MyFlags)
  37. {
  38.   my_string pos;
  39.   DBUG_ENTER("my_getwd");
  40.   DBUG_PRINT("my",("buf: 0x%lx  size: %d  MyFlags %d", buf,size,MyFlags));
  41. #if ! defined(MSDOS)
  42.   if (curr_dir[0]) /* Current pos is saved here */
  43.     VOID(strmake(buf,&curr_dir[0],size-1));
  44.   else
  45. #endif
  46.   {
  47. #if defined(HAVE_GETCWD)
  48.     if (!getcwd(buf,size-2) && MyFlags & MY_WME)
  49.     {
  50.       my_errno=errno;
  51.       my_error(EE_GETWD,MYF(ME_BELL+ME_WAITTANG),errno);
  52.       return(-1);
  53.     }
  54. #elif defined(HAVE_GETWD)
  55.     {
  56.       char pathname[MAXPATHLEN];
  57.       getwd(pathname);
  58.       strmake(buf,pathname,size-1);
  59.     }
  60. #elif defined(VMS)
  61.     if (!getcwd(buf,size-2,1) && MyFlags & MY_WME)
  62.     {
  63.       my_errno=errno;
  64.       my_error(EE_GETWD,MYF(ME_BELL+ME_WAITTANG),errno);
  65.       return(-1);
  66.     }
  67.     intern_filename(buf,buf);
  68. #else
  69. #error "No way to get current directory"
  70. #endif
  71.     if (*((pos=strend(buf))-1) != FN_LIBCHAR)  /* End with FN_LIBCHAR */
  72.     {
  73.       pos[0]= FN_LIBCHAR;
  74.       pos[1]=0;
  75.     }
  76.     (void) strmake(&curr_dir[0],buf,(size_s) (FN_REFLEN-1));
  77.   }
  78.   DBUG_RETURN(0);
  79. } /* my_getwd */
  80. /* Set new working directory */
  81. int my_setwd(const char *dir, myf MyFlags)
  82. {
  83.   int res;
  84.   size_s length;
  85.   my_string start,pos;
  86. #if defined(VMS) || defined(MSDOS) || defined(OS2)
  87.   char buff[FN_REFLEN];
  88. #endif
  89.   DBUG_ENTER("my_setwd");
  90.   DBUG_PRINT("my",("dir: '%s'  MyFlags %d", dir, MyFlags));
  91.   start=(my_string) dir;
  92. #if defined(MSDOS) || defined(OS2) /* OS2/MSDOS chdir can't change drive */
  93. #if !defined(_DDL) && !defined(WIN32)
  94.   if ((pos=(char*) strchr(dir,FN_DEVCHAR)) != 0)
  95.   {
  96.     uint drive,drives;
  97.     pos++; /* Skip FN_DEVCHAR */
  98.     drive=(uint) (my_toupper(&my_charset_latin1,dir[0])-'A'+1);
  99.     drives= (uint) -1;
  100.     if ((pos-(byte*) dir) == 2 && drive > 0 && drive < 32)
  101.     {
  102. #ifdef OS2
  103.       _chdrive(drive);
  104.       drives = _getdrive();
  105. #else
  106.       _dos_setdrive(drive,&drives);
  107.       _dos_getdrive(&drives);
  108. #endif
  109.     }
  110.     if (drive != drives)
  111.     {
  112.       *pos=''; /* Dir is now only drive */
  113.       my_errno=errno;
  114.       my_error(EE_SETWD,MYF(ME_BELL+ME_WAITTANG),dir,ENOENT);
  115.       DBUG_RETURN(-1);
  116.     }
  117.     dir=pos; /* drive changed, change now path */
  118.   }
  119. #endif
  120.   if (*((pos=strend(dir)-1)) == FN_LIBCHAR && pos != dir)
  121.   {
  122.     strmov(buff,dir)[-1]=0; /* Remove last '/' */
  123.     dir=buff;
  124.   }
  125. #endif /* MSDOS*/
  126.   if (! dir[0] || (dir[0] == FN_LIBCHAR && dir[1] == 0))
  127.     dir=FN_ROOTDIR;
  128. #ifdef VMS
  129.   {
  130.     pos=strmov(buff,dir);
  131.     if (pos[-1] != FN_LIBCHAR)
  132.     {
  133.       pos[0]=FN_LIBCHAR; /* Mark as directory */
  134.       pos[1]=0;
  135.     }
  136.     system_filename(buff,buff); /* Change to VMS format */
  137.     dir=buff;
  138.   }
  139. #endif /* VMS */
  140.   if ((res=chdir((char*) dir)) != 0)
  141.   {
  142.     my_errno=errno;
  143.     if (MyFlags & MY_WME)
  144.       my_error(EE_SETWD,MYF(ME_BELL+ME_WAITTANG),start,errno);
  145.   }
  146.   else
  147.   {
  148.     if (test_if_hard_path(start))
  149.     { /* Hard pathname */
  150.       pos=strmake(&curr_dir[0],start,(size_s) FN_REFLEN-1);
  151.       if (pos[-1] != FN_LIBCHAR)
  152.       {
  153. length=(uint) (pos-(char*) curr_dir);
  154. curr_dir[length]=FN_LIBCHAR; /* must end with '/' */
  155. curr_dir[length+1]='';
  156.       }
  157.     }
  158.     else
  159.       curr_dir[0]=''; /* Don't save name */
  160.   }
  161.   DBUG_RETURN(res);
  162. } /* my_setwd */
  163. /* Test if hard pathname */
  164. /* Returns 1 if dirname is a hard path */
  165. int test_if_hard_path(register const char *dir_name)
  166. {
  167.   if (dir_name[0] == FN_HOMELIB && dir_name[1] == FN_LIBCHAR)
  168.     return (home_dir != NullS && test_if_hard_path(home_dir));
  169.   if (dir_name[0] == FN_LIBCHAR)
  170.     return (TRUE);
  171. #ifdef FN_DEVCHAR
  172.   return (strchr(dir_name,FN_DEVCHAR) != 0);
  173. #else
  174.   return FALSE;
  175. #endif
  176. } /* test_if_hard_path */
  177. /*
  178.   Test if a name contains an (absolute or relative) path.
  179.   SYNOPSIS
  180.     has_path()
  181.     name                The name to test.
  182.   RETURN
  183.     TRUE        name contains a path.
  184.     FALSE       name does not contain a path.
  185. */
  186. my_bool has_path(const char *name)
  187. {
  188.   return test(strchr(name, FN_LIBCHAR)) 
  189. #if FN_LIBCHAR != '/'
  190.     || test(strchr(name,'/'))
  191. #endif
  192. #ifdef FN_DEVCHAR
  193.     || test(strchr(name, FN_DEVCHAR))
  194. #endif
  195.     ;
  196. }