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

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. /* TODO: check for overun of memory for names. */
  14. /*  Convert MSDOS-TIME to standar time_t */
  15. #define USES_TYPES /* sys/types is included */
  16. #include "mysys_priv.h"
  17. #include <m_string.h>
  18. #include <my_dir.h> /* Structs used by my_dir,includes sys/types */
  19. #include "mysys_err.h"
  20. #if defined(HAVE_DIRENT_H)
  21. # include <dirent.h>
  22. # define NAMLEN(dirent) strlen((dirent)->d_name)
  23. #else
  24. #ifndef OS2
  25. # define dirent direct
  26. #endif
  27. # define NAMLEN(dirent) (dirent)->d_namlen
  28. # if defined(HAVE_SYS_NDIR_H)
  29. #  include <sys/ndir.h>
  30. # endif
  31. # if defined(HAVE_SYS_DIR_H)
  32. #  include <sys/dir.h>
  33. # endif
  34. # if defined(HAVE_NDIR_H)
  35. #  include <ndir.h>
  36. # endif
  37. # if defined(MSDOS) || defined(__WIN__)
  38. # include <dos.h>
  39. # ifdef __BORLANDC__
  40. # include <dir.h>
  41. # endif
  42. # endif
  43. #endif
  44. #ifdef VMS
  45. #include <rms.h>
  46. #include <iodef.h>
  47. #include <descrip.h>
  48. #endif
  49. #ifdef OS2
  50. #include "my_os2dirsrch.h"
  51. #endif
  52. #if defined(THREAD) && defined(HAVE_READDIR_R)
  53. #define READDIR(A,B,C) ((errno=readdir_r(A,B,&C)) != 0 || !C)
  54. #else
  55. #define READDIR(A,B,C) (!(C=readdir(A)))
  56. #endif
  57. /*
  58.   We are assuming that directory we are reading is either has less than 
  59.   100 files and so can be read in one initial chunk or has more than 1000
  60.   files and so big increment are suitable.
  61. */
  62. #define ENTRIES_START_SIZE (8192/sizeof(FILEINFO))
  63. #define ENTRIES_INCREMENT  (65536/sizeof(FILEINFO))
  64. #define NAMES_START_SIZE   32768
  65. static int comp_names(struct fileinfo *a,struct fileinfo *b);
  66. /* We need this because program don't know with malloc we used */
  67. void my_dirend(MY_DIR *buffer)
  68. {
  69.   DBUG_ENTER("my_dirend");
  70.   if (buffer)
  71.   {
  72.     delete_dynamic((DYNAMIC_ARRAY*)((char*)buffer + 
  73.                                     ALIGN_SIZE(sizeof(MY_DIR))));
  74.     free_root((MEM_ROOT*)((char*)buffer + ALIGN_SIZE(sizeof(MY_DIR)) + 
  75.                           ALIGN_SIZE(sizeof(DYNAMIC_ARRAY))), MYF(0));
  76.     my_free((gptr) buffer,MYF(0));
  77.   }
  78.   DBUG_VOID_RETURN;
  79. } /* my_dirend */
  80. /* Compare in sort of filenames */
  81. static int comp_names(struct fileinfo *a, struct fileinfo *b)
  82. {
  83.   return (strcmp(a->name,b->name));
  84. } /* comp_names */
  85. #if !defined(MSDOS) && !defined(__WIN__)
  86. MY_DIR *my_dir(const char *path, myf MyFlags)
  87. {
  88.   char          *buffer;
  89.   MY_DIR        *result= 0;
  90.   FILEINFO      finfo;
  91.   DYNAMIC_ARRAY *dir_entries_storage;
  92.   MEM_ROOT      *names_storage;
  93.   DIR *dirp;
  94.   struct dirent *dp;
  95.   char tmp_path[FN_REFLEN+1],*tmp_file;
  96. #ifdef THREAD
  97.   char dirent_tmp[sizeof(struct dirent)+_POSIX_PATH_MAX+1];
  98. #endif
  99.   DBUG_ENTER("my_dir");
  100.   DBUG_PRINT("my",("path: '%s' MyFlags: %d",path,MyFlags));
  101. #if defined(THREAD) && !defined(HAVE_READDIR_R)
  102.   pthread_mutex_lock(&THR_LOCK_open);
  103. #endif
  104.   dirp = opendir(directory_file_name(tmp_path,(my_string) path));
  105. #if defined(__amiga__)
  106.   if ((dirp->dd_fd) < 0) /* Directory doesn't exists */
  107.     goto error;
  108. #endif
  109.   if (dirp == NULL || 
  110.       ! (buffer= my_malloc(ALIGN_SIZE(sizeof(MY_DIR)) + 
  111.                            ALIGN_SIZE(sizeof(DYNAMIC_ARRAY)) +
  112.                            sizeof(MEM_ROOT), MyFlags)))
  113.     goto error;
  114.   dir_entries_storage= (DYNAMIC_ARRAY*)(buffer + ALIGN_SIZE(sizeof(MY_DIR))); 
  115.   names_storage= (MEM_ROOT*)(buffer + ALIGN_SIZE(sizeof(MY_DIR)) +
  116.                              ALIGN_SIZE(sizeof(DYNAMIC_ARRAY)));
  117.   
  118.   if (my_init_dynamic_array(dir_entries_storage, sizeof(FILEINFO),
  119.                             ENTRIES_START_SIZE, ENTRIES_INCREMENT))
  120.   {
  121.     my_free((gptr) buffer,MYF(0));
  122.     goto error;
  123.   }
  124.   init_alloc_root(names_storage, NAMES_START_SIZE, NAMES_START_SIZE);
  125.   
  126.   /* MY_DIR structure is allocated and completly initialized at this point */
  127.   result= (MY_DIR*)buffer;
  128.   tmp_file=strend(tmp_path);
  129. #ifdef THREAD
  130.   dp= (struct dirent*) dirent_tmp;
  131. #else
  132.   dp=0;
  133. #endif
  134.   
  135.   while (!(READDIR(dirp,(struct dirent*) dirent_tmp,dp)))
  136.   {
  137.     if (!(finfo.name= strdup_root(names_storage, dp->d_name)))
  138.       goto error;
  139.     
  140.     if (MyFlags & MY_WANT_STAT)
  141.     {
  142.       if (!(finfo.mystat= (MY_STAT*)alloc_root(names_storage, 
  143.                                                sizeof(MY_STAT))))
  144.         goto error;
  145.       
  146.       bzero(finfo.mystat, sizeof(MY_STAT));
  147.       VOID(strmov(tmp_file,dp->d_name));
  148.       VOID(my_stat(tmp_path, finfo.mystat, MyFlags));
  149.     }
  150.     else
  151.       finfo.mystat= NULL;
  152.     if (push_dynamic(dir_entries_storage, (gptr)&finfo))
  153.       goto error;
  154.   }
  155.   (void) closedir(dirp);
  156. #if defined(THREAD) && !defined(HAVE_READDIR_R)
  157.   pthread_mutex_unlock(&THR_LOCK_open);
  158. #endif
  159.   result->dir_entry= (FILEINFO *)dir_entries_storage->buffer;
  160.   result->number_off_files= dir_entries_storage->elements;
  161.   
  162.   if (!(MyFlags & MY_DONT_SORT))
  163.     qsort((void *) result->dir_entry, result->number_off_files,
  164.           sizeof(FILEINFO), (qsort_cmp) comp_names);
  165.   DBUG_RETURN(result);
  166.  error:
  167. #if defined(THREAD) && !defined(HAVE_READDIR_R)
  168.   pthread_mutex_unlock(&THR_LOCK_open);
  169. #endif
  170.   my_errno=errno;
  171.   if (dirp)
  172.     (void) closedir(dirp);
  173.   my_dirend(result);
  174.   if (MyFlags & (MY_FAE | MY_WME))
  175.     my_error(EE_DIR,MYF(ME_BELL+ME_WAITTANG),path,my_errno);
  176.   DBUG_RETURN((MY_DIR *) NULL);
  177. } /* my_dir */
  178. /*
  179.  * Convert from directory name to filename.
  180.  * On VMS:
  181.  *  xyzzy:[mukesh.emacs] => xyzzy:[mukesh]emacs.dir.1
  182.  *  xyzzy:[mukesh] => xyzzy:[000000]mukesh.dir.1
  183.  * On UNIX, it's simple: just make sure there is a terminating /
  184.  * Returns pointer to dst;
  185.  */
  186. my_string directory_file_name (my_string dst, const char *src)
  187. {
  188. #ifndef VMS
  189.   /* Process as Unix format: just remove test the final slash. */
  190.   my_string end;
  191.   if (src[0] == 0)
  192.     src= (char*) "."; /* Use empty as current */
  193.   end=strmov(dst, src);
  194.   if (end[-1] != FN_LIBCHAR)
  195.   {
  196.     end[0]=FN_LIBCHAR; /* Add last '/' */
  197.     end[1]='';
  198.   }
  199.   return dst;
  200. #else /* VMS */
  201.   long slen;
  202.   long rlen;
  203.   my_string ptr, rptr;
  204.   char bracket;
  205.   struct FAB fab = cc$rms_fab;
  206.   struct NAM nam = cc$rms_nam;
  207.   char esa[NAM$C_MAXRSS];
  208.   if (! src[0])
  209.     src="[.]"; /* Empty is == current dir */
  210.   slen = strlen (src) - 1;
  211.   if (src[slen] == FN_C_AFTER_DIR || src[slen] == FN_C_AFTER_DIR_2 ||
  212.       src[slen] == FN_DEVCHAR)
  213.   {
  214. /* VMS style - convert [x.y.z] to [x.y]z, [x] to [000000]x */
  215.     fab.fab$l_fna = src;
  216.     fab.fab$b_fns = slen + 1;
  217.     fab.fab$l_nam = &nam;
  218.     fab.fab$l_fop = FAB$M_NAM;
  219.     nam.nam$l_esa = esa;
  220.     nam.nam$b_ess = sizeof esa;
  221.     nam.nam$b_nop |= NAM$M_SYNCHK;
  222.     /* We call SYS$PARSE to handle such things as [--] for us. */
  223.     if (SYS$PARSE(&fab, 0, 0) == RMS$_NORMAL)
  224.     {
  225.       slen = nam.nam$b_esl - 1;
  226.       if (esa[slen] == ';' && esa[slen - 1] == '.')
  227. slen -= 2;
  228.       esa[slen + 1] = '';
  229.       src = esa;
  230.     }
  231.     if (src[slen] != FN_C_AFTER_DIR && src[slen] != FN_C_AFTER_DIR_2)
  232.     {
  233. /* what about when we have logical_name:???? */
  234.       if (src[slen] == FN_DEVCHAR)
  235.       { /* Xlate logical name and see what we get */
  236. VOID(strmov(dst,src));
  237. dst[slen] = 0; /* remove colon */
  238. if (!(src = getenv (dst)))
  239.   return dst; /* Can't translate */
  240. /* should we jump to the beginning of this procedure?
  241.    Good points: allows us to use logical names that xlate
  242.    to Unix names,
  243.    Bad points: can be a problem if we just translated to a device
  244.    name...
  245.    For now, I'll punt and always expect VMS names, and hope for
  246.    the best! */
  247. slen = strlen (src) - 1;
  248. if (src[slen] != FN_C_AFTER_DIR && src[slen] != FN_C_AFTER_DIR_2)
  249. { /* no recursion here! */
  250.   VOID(strmov(dst, src));
  251.   return(dst);
  252. }
  253.       }
  254.       else
  255.       { /* not a directory spec */
  256. VOID(strmov(dst, src));
  257. return(dst);
  258.       }
  259.     }
  260.     bracket = src[slen]; /* End char */
  261.     if (!(ptr = strchr (src, bracket - 2)))
  262.     { /* no opening bracket */
  263.       VOID(strmov (dst, src));
  264.       return dst;
  265.     }
  266.     if (!(rptr = strrchr (src, '.')))
  267.       rptr = ptr;
  268.     slen = rptr - src;
  269.     VOID(strmake (dst, src, slen));
  270.     if (*rptr == '.')
  271.     { /* Put bracket and add */
  272.       dst[slen++] = bracket; /* (rptr+1) after this */
  273.     }
  274.     else
  275.     {
  276.       /* If we have the top-level of a rooted directory (i.e. xx:[000000]),
  277.  then translate the device and recurse. */
  278.       if (dst[slen - 1] == ':'
  279.   && dst[slen - 2] != ':'  /* skip decnet nodes */
  280.   && strcmp(src + slen, "[000000]") == 0)
  281.       {
  282. dst[slen - 1] = '';
  283. if ((ptr = getenv (dst))
  284.     && (rlen = strlen (ptr) - 1) > 0
  285.     && (ptr[rlen] == FN_C_AFTER_DIR || ptr[rlen] == FN_C_AFTER_DIR_2)
  286.     && ptr[rlen - 1] == '.')
  287. {
  288.   VOID(strmov(esa,ptr));
  289.   esa[rlen - 1] = FN_C_AFTER_DIR;
  290.   esa[rlen] = '';
  291.   return (directory_file_name (dst, esa));
  292. }
  293. else
  294.   dst[slen - 1] = ':';
  295.       }
  296.       VOID(strmov(dst+slen,"[000000]"));
  297.       slen += 8;
  298.     }
  299.     VOID(strmov(strmov(dst+slen,rptr+1)-1,".DIR.1"));
  300.     return dst;
  301.   }
  302.   VOID(strmov(dst, src));
  303.   if (dst[slen] == '/' && slen > 1)
  304.     dst[slen] = 0;
  305.   return dst;
  306. #endif /* VMS */
  307. } /* directory_file_name */
  308. #elif defined(WIN32)
  309. /*
  310. *****************************************************************************
  311. ** Read long filename using windows rutines
  312. *****************************************************************************
  313. */
  314. MY_DIR *my_dir(const char *path, myf MyFlags)
  315. {
  316.   char          *buffer;
  317.   MY_DIR        *result= 0;
  318.   FILEINFO      finfo;
  319.   DYNAMIC_ARRAY *dir_entries_storage;
  320.   MEM_ROOT      *names_storage;
  321. #ifdef __BORLANDC__
  322.   struct ffblk       find;
  323. #else
  324.   struct _finddata_t find;
  325. #endif
  326.   ushort mode;
  327.   char tmp_path[FN_REFLEN],*tmp_file,attrib;
  328. #ifdef _WIN64
  329.   __int64       handle;
  330. #else
  331.   long handle;
  332. #endif
  333.   DBUG_ENTER("my_dir");
  334.   DBUG_PRINT("my",("path: '%s' stat: %d  MyFlags: %d",path,MyFlags));
  335.   /* Put LIB-CHAR as last path-character if not there */
  336.   tmp_file=tmp_path;
  337.   if (!*path)
  338.     *tmp_file++ ='.'; /* From current dir */
  339.   tmp_file= strmov(tmp_file,path);
  340.   if (tmp_file[-1] == FN_DEVCHAR)
  341.     *tmp_file++= '.'; /* From current dev-dir */
  342.   if (tmp_file[-1] != FN_LIBCHAR)
  343.     *tmp_file++ =FN_LIBCHAR;
  344.   tmp_file[0]='*'; /* MSDOS needs this !??? */
  345.   tmp_file[1]='.';
  346.   tmp_file[2]='*';
  347.   tmp_file[3]='';
  348. #ifdef __BORLANDC__
  349.   if ((handle= findfirst(tmp_path,&find,0)) == -1L)
  350.     goto error;
  351. #else
  352.   if ((handle=_findfirst(tmp_path,&find)) == -1L)
  353.     goto error;
  354. #endif
  355.   if (!(buffer= my_malloc(ALIGN_SIZE(sizeof(MY_DIR)) + 
  356.                           ALIGN_SIZE(sizeof(DYNAMIC_ARRAY)) +
  357.                           sizeof(MEM_ROOT), MyFlags)))
  358.     goto error;
  359.   dir_entries_storage= (DYNAMIC_ARRAY*)(buffer + ALIGN_SIZE(sizeof(MY_DIR))); 
  360.   names_storage= (MEM_ROOT*)(buffer + ALIGN_SIZE(sizeof(MY_DIR)) +
  361.                              ALIGN_SIZE(sizeof(DYNAMIC_ARRAY)));
  362.   
  363.   if (my_init_dynamic_array(dir_entries_storage, sizeof(FILEINFO),
  364.                             ENTRIES_START_SIZE, ENTRIES_INCREMENT))
  365.   {
  366.     my_free((gptr) buffer,MYF(0));
  367.     goto error;
  368.   }
  369.   init_alloc_root(names_storage, NAMES_START_SIZE, NAMES_START_SIZE);
  370.   
  371.   /* MY_DIR structure is allocated and completly initialized at this point */
  372.   result= (MY_DIR*)buffer;
  373.  
  374.   do
  375.   {
  376. #ifdef __BORLANDC__
  377.     attrib= find.ff_attrib;
  378. #else
  379.     attrib= find.attrib;
  380.     /*
  381.       Do not show hidden and system files which Windows sometimes create.
  382.       Note. Because Borland's findfirst() is called with the third
  383.       argument = 0 hidden/system files are excluded from the search.
  384.     */
  385.     if (attrib & (_A_HIDDEN | _A_SYSTEM))
  386.       continue;
  387. #endif    
  388. #ifdef __BORLANDC__
  389.     if (!(finfo.name= strdup_root(names_storage, find.ff_name)))
  390.       goto error;
  391. #else
  392.     if (!(finfo.name= strdup_root(names_storage, find.name)))
  393.       goto error;
  394. #endif    
  395.     if (MyFlags & MY_WANT_STAT)
  396.     {
  397.       if (!(finfo.mystat= (MY_STAT*)alloc_root(names_storage, 
  398.                                                sizeof(MY_STAT))))
  399.         goto error;
  400.       
  401.       bzero(finfo.mystat, sizeof(MY_STAT));
  402. #ifdef __BORLANDC__
  403.       finfo.mystat->st_size=find.ff_fsize;
  404. #else
  405.       finfo.mystat->st_size=find.size;
  406. #endif
  407.       mode=MY_S_IREAD;
  408.       if (!(attrib & _A_RDONLY))
  409. mode|=MY_S_IWRITE;
  410.       if (attrib & _A_SUBDIR)
  411. mode|=MY_S_IFDIR;
  412.       finfo.mystat->st_mode=mode;
  413. #ifdef __BORLANDC__
  414.       finfo.mystat->st_mtime=((uint32) find.ff_ftime);
  415. #else
  416.       finfo.mystat->st_mtime=((uint32) find.time_write);
  417. #endif
  418.     }
  419.     else
  420.       finfo.mystat= NULL;
  421.     if (push_dynamic(dir_entries_storage, (gptr)&finfo))
  422.       goto error;
  423.     
  424. #ifdef __BORLANDC__
  425.   } while (findnext(&find) == 0);
  426. #else
  427.   } while (_findnext(handle,&find) == 0);
  428.   
  429.   _findclose(handle);
  430. #endif
  431.   result->dir_entry= (FILEINFO *)dir_entries_storage->buffer;
  432.   result->number_off_files= dir_entries_storage->elements;
  433.   
  434.   if (!(MyFlags & MY_DONT_SORT))
  435.     qsort((void *) result->dir_entry, result->number_off_files,
  436.           sizeof(FILEINFO), (qsort_cmp) comp_names);
  437.   DBUG_RETURN(result);
  438. error:
  439.   my_errno=errno;
  440. #ifndef __BORLANDC__
  441.   if (handle != -1)
  442.       _findclose(handle);
  443. #endif
  444.   my_dirend(result);
  445.   if (MyFlags & MY_FAE+MY_WME)
  446.     my_error(EE_DIR,MYF(ME_BELL+ME_WAITTANG),path,errno);
  447.   DBUG_RETURN((MY_DIR *) NULL);
  448. } /* my_dir */
  449. #else /* MSDOS and not WIN32 */
  450. /******************************************************************************
  451. ** At MSDOS you always get stat of files, but time is in packed MSDOS-format
  452. ******************************************************************************/
  453. MY_DIR *my_dir(const char* path, myf MyFlags)
  454. {
  455.   char          *buffer;
  456.   MY_DIR        *result= 0;
  457.   FILEINFO      finfo;
  458.   DYNAMIC_ARRAY *dir_entries_storage;
  459.   MEM_ROOT      *names_storage;
  460.   struct find_t find;
  461.   ushort mode;
  462.   char tmp_path[FN_REFLEN],*tmp_file,attrib;
  463.   DBUG_ENTER("my_dir");
  464.   DBUG_PRINT("my",("path: '%s' stat: %d  MyFlags: %d",path,MyFlags));
  465.   /* Put LIB-CHAR as last path-character if not there */
  466.   tmp_file=tmp_path;
  467.   if (!*path)
  468.     *tmp_file++ ='.'; /* From current dir */
  469.   tmp_file= strmov(tmp_file,path);
  470.   if (tmp_file[-1] == FN_DEVCHAR)
  471.     *tmp_file++= '.'; /* From current dev-dir */
  472.   if (tmp_file[-1] != FN_LIBCHAR)
  473.     *tmp_file++ =FN_LIBCHAR;
  474.   tmp_file[0]='*'; /* MSDOS needs this !??? */
  475.   tmp_file[1]='.';
  476.   tmp_file[2]='*';
  477.   tmp_file[3]='';
  478.   if (_dos_findfirst(tmp_path,_A_NORMAL | _A_SUBDIR, &find))
  479.     goto error;
  480.   if (!(buffer= my_malloc(ALIGN_SIZE(sizeof(MY_DIR)) + 
  481.                           ALIGN_SIZE(sizeof(DYNAMIC_ARRAY)) +
  482.                           sizeof(MEM_ROOT), MyFlags)))
  483.     goto error;
  484.   dir_entries_storage= (DYNAMIC_ARRAY*)(buffer + ALIGN_SIZE(sizeof(MY_DIR))); 
  485.   names_storage= (MEM_ROOT*)(buffer + ALIGN_SIZE(sizeof(MY_DIR)) +
  486.                              ALIGN_SIZE(sizeof(DYNAMIC_ARRAY)));
  487.   
  488.   if (my_init_dynamic_array(dir_entries_storage, sizeof(FILEINFO),
  489.                             ENTRIES_START_SIZE, ENTRIES_INCREMENT))
  490.   {
  491.     my_free((gptr) buffer,MYF(0));
  492.     goto error;
  493.   }
  494.   init_alloc_root(names_storage, NAMES_START_SIZE, NAMES_START_SIZE);
  495.   
  496.   /* MY_DIR structure is allocated and completly initialized at this point */
  497.   result= (MY_DIR*)buffer;
  498.  
  499.   do
  500.   {
  501.     if (!(finfo.name= strdup_root(names_storage, find.name)))
  502.       goto error;
  503.     
  504.     if (MyFlags & MY_WANT_STAT)
  505.     {
  506.       if (!(finfo.mystat= (MY_STAT*)alloc_root(names_storage, 
  507.                                                sizeof(MY_STAT))))
  508.         goto error;
  509.       
  510.       bzero(finfo.mystat, sizeof(MY_STAT));
  511.       finfo.mystat->st_size= find.size;
  512.       mode= MY_S_IREAD; attrib= find.attrib;
  513.       if (!(attrib & _A_RDONLY))
  514. mode|= MY_S_IWRITE;
  515.       if (attrib & _A_SUBDIR)
  516. mode|= MY_S_IFDIR;
  517.       finfo.mystat->st_mode= mode;
  518.       finfo.mystat->st_mtime= ((uint32) find.wr_date << 16) + find.wr_time;
  519.     }
  520.     else
  521.       finfo.mystat= NULL;
  522.     if (push_dynamic(dir_entries_storage, (gptr)&finfo))
  523.       goto error;
  524.   
  525.   } while (_dos_findnext(&find) == 0);
  526.   
  527.   result->dir_entry= (FILEINFO *)dir_entries_storage->buffer;
  528.   result->number_off_files= dir_entries_storage->elements;
  529.   
  530.   if (!(MyFlags & MY_DONT_SORT))
  531.     qsort((void *) result->dir_entry, result->number_off_files,
  532.           sizeof(FILEINFO), (qsort_cmp) comp_names);
  533.   DBUG_RETURN(result);
  534. error:
  535.   my_dirend(result);
  536.   if (MyFlags & MY_FAE+MY_WME)
  537.     my_error(EE_DIR,MYF(ME_BELL+ME_WAITTANG),path,errno);
  538.   DBUG_RETURN((MY_DIR *) NULL);
  539. } /* my_dir */
  540. #endif /* WIN32 && MSDOS */
  541. /****************************************************************************
  542. ** File status
  543. ** Note that MY_STAT is assumed to be same as struct stat
  544. ****************************************************************************/ 
  545. int my_fstat(int Filedes, MY_STAT *stat_area,
  546.              myf MyFlags __attribute__((unused)))
  547. {
  548.   DBUG_ENTER("my_fstat");
  549.   DBUG_PRINT("my",("fd: %d MyFlags: %d",Filedes,MyFlags));
  550.   DBUG_RETURN(fstat(Filedes, (struct stat *) stat_area));
  551. }
  552. MY_STAT *my_stat(const char *path, MY_STAT *stat_area, myf my_flags)
  553. {
  554.   int m_used;
  555.   DBUG_ENTER("my_stat");
  556.   DBUG_PRINT("my", ("path: '%s', stat_area: 0x%lx, MyFlags: %d", path,
  557.      (byte *) stat_area, my_flags));
  558.   if ((m_used= (stat_area == NULL)))
  559.     if (!(stat_area = (MY_STAT *) my_malloc(sizeof(MY_STAT), my_flags)))
  560.       goto error;
  561.   if (! stat((my_string) path, (struct stat *) stat_area) )
  562.     DBUG_RETURN(stat_area);
  563.   DBUG_PRINT("error",("Got errno: %d from stat", errno));
  564.   my_errno= errno;
  565.   if (m_used) /* Free if new area */
  566.     my_free((gptr) stat_area,MYF(0));
  567. error:
  568.   if (my_flags & (MY_FAE+MY_WME))
  569.   {
  570.     my_error(EE_STAT, MYF(ME_BELL+ME_WAITTANG),path,my_errno);
  571.     DBUG_RETURN((MY_STAT *) NULL);
  572.   }
  573.   DBUG_RETURN((MY_STAT *) NULL);
  574. } /* my_stat */