home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 January / Chip_2001-01_cd1.bin / tema / mysql / mysql-3.23.28g-win-source.exe / mysys / mf_dirname.c < prev    next >
C/C++ Source or Header  |  2000-10-03  |  3KB  |  107 lines
  1. /* Copyright (C) 2000 MySQL AB & MySQL Finland AB & TCX DataKonsult AB
  2.    
  3.    This library is free software; you can redistribute it and/or
  4.    modify it under the terms of the GNU Library General Public
  5.    License as published by the Free Software Foundation; either
  6.    version 2 of the License, or (at your option) any later version.
  7.    
  8.    This library is distributed in the hope that it will be useful,
  9.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  10.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11.    Library General Public License for more details.
  12.    
  13.    You should have received a copy of the GNU Library General Public
  14.    License along with this library; if not, write to the Free
  15.    Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  16.    MA 02111-1307, USA */
  17.  
  18. #include "mysys_priv.h"
  19. #include <m_string.h>
  20.  
  21.     /* Functions definied in this file */
  22.  
  23. uint dirname_length(const char *name)
  24. {
  25.   register my_string pos,gpos;
  26. #ifdef FN_DEVCHAR
  27.   if ((pos=strrchr(name,FN_DEVCHAR)) == 0)
  28. #endif
  29.     pos=(char*) name-1;
  30.  
  31.   gpos= pos++;
  32.   for ( ; *pos ; pos++)                /* Find last FN_LIBCHAR */
  33.     if (*pos == FN_LIBCHAR || *pos == '/'
  34. #ifdef FN_C_AFTER_DIR
  35.     || *pos == FN_C_AFTER_DIR || *pos == FN_C_AFTER_DIR_2
  36. #endif
  37.     )
  38.       gpos=pos;
  39.   return ((uint) (uint) (gpos+1-(char*) name));
  40. }
  41.  
  42.  
  43.     /* Gives directory part of filename. Directory ends with '/' */
  44.     /* Returns length of directory part */
  45.  
  46. uint dirname_part(my_string to, const char *name)
  47. {
  48.   uint length;
  49.   DBUG_ENTER("dirname_part");
  50.   DBUG_PRINT("enter",("'%s'",name));
  51.  
  52.   length=dirname_length(name);
  53.   (void) strmake(to,(char*) name,min(length,FN_REFLEN-2));
  54.   convert_dirname(to);                /* Convert chars */
  55.   DBUG_RETURN(length);
  56. } /* dirname */
  57.  
  58.  
  59.     /* convert dirname to use under this system */
  60.     /* If MSDOS converts '/' to '\' */
  61.     /* If VMS converts '<' to '[' and '>' to ']' */
  62.     /* Adds a '/' to end if there isn't one and the last isn't a dev_char */
  63.     /* ARGSUSED */
  64.  
  65. #ifndef FN_DEVCHAR
  66. #define FN_DEVCHAR '\0'                /* For easier code */
  67. #endif
  68.  
  69. char *convert_dirname(my_string to)
  70. {
  71.   reg1 char *pos;
  72. #ifdef FN_UPPER_CASE
  73.   caseup_str(to);
  74. #endif
  75. #ifdef FN_LOWER_CASE
  76.   casedn_str(to);
  77. #endif
  78. #if FN_LIBCHAR != '/'
  79.   {
  80.     pos=to-1;                    /* Change from '/' */
  81.     while ((pos=strchr(pos+1,'/')) != 0)
  82.       *pos=FN_LIBCHAR;
  83.   }
  84. #endif
  85. #ifdef FN_C_BEFORE_DIR_2
  86.   {
  87.     for (pos=to ; *pos ; pos++)
  88.     {
  89.       if (*pos == FN_C_BEFORE_DIR_2)
  90.     *pos=FN_C_BEFORE_DIR;
  91.       if (*pos == FN_C_AFTER_DIR_2)
  92.     *pos=FN_C_AFTER_DIR;
  93.     }
  94.   }
  95. #else
  96.   {                    /* Append FN_LIBCHAR if not there */
  97.     pos=strend(to);
  98.     if (pos != to && (pos[-1] != FN_LIBCHAR && pos[-1] != FN_DEVCHAR))
  99.     {
  100.       *pos++=FN_LIBCHAR;
  101.       *pos=0;
  102.     }
  103.   }
  104. #endif
  105.   return pos;                    /* Pointer to end of dir */
  106. } /* convert_dirname */
  107.