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_format.c < prev    next >
C/C++ Source or Header  |  2000-11-16  |  4KB  |  157 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. #ifdef HAVE_REALPATH
  21. #include <sys/param.h>
  22. #include <sys/stat.h>
  23. #endif
  24.  
  25.     /* format a filename with replace of library and extension */
  26.     /* params to and name may be identicall */
  27.     /* function doesn't change name if name != to */
  28.     /* Flag may be: 1   replace filenames library with 'dsk' */
  29.     /*        2   replace extension with 'form' */
  30.     /*        4   Unpack filename (replace ~ with home) */
  31.     /*        8   Pack filename as short as possibly */
  32.     /*        16  Resolve symbolic links for filename */
  33.     /*        32  Resolve filename to full path */
  34.     /*        64  Return NULL if too long path */
  35.  
  36. #ifdef SCO
  37. #define BUFF_LEN 4097
  38. #else
  39. #ifdef MAXPATHLEN
  40. #define BUFF_LEN MAXPATHLEN
  41. #else
  42. #define BUFF_LEN FN_LEN
  43. #endif
  44. #endif
  45.  
  46. my_string fn_format(my_string to, const char *name, const char *dsk,
  47.             const char *form, int flag)
  48. {
  49.   reg1 uint length;
  50.   char dev[FN_REFLEN], buff[BUFF_LEN], *pos, *startpos;
  51.   const char *ext;
  52.   DBUG_ENTER("fn_format");
  53.   DBUG_PRINT("enter",("name: %s  dsk: %s  form: %s  flag: %d",
  54.                name,dsk,form,flag));
  55.  
  56.     /* Kopiera & skippa enheten */
  57.   name+=(length=dirname_part(dev,(startpos=(my_string) name)));
  58.   if (length == 0 || flag & 1)
  59.   {
  60.     (void) strnmov(dev,dsk, sizeof(dev) - 2);
  61.       /* Use given directory */
  62.     convert_dirname(dev);            /* Fix to this OS */
  63.   }
  64.   if (flag & 8)
  65.     pack_dirname(dev,dev);            /* Put in ./.. and ~/.. */
  66.   if (flag & 4)
  67.     (void) unpack_dirname(dev,dev);        /* Replace ~/.. with dir */
  68.   if ((pos=strchr(name,FN_EXTCHAR)) != NullS)
  69.   {
  70.     if ((flag & 2) == 0)            /* Skall vi byta extension ? */
  71.     {
  72.       length=strlength(name);            /* Old extension */
  73.       ext = "";
  74.     }
  75.     else
  76.     {
  77.       length=(uint) (pos-(char*) name);        /* Change extension */
  78.       ext= form;
  79.     }
  80.   }
  81.   else
  82.   {
  83.     length=strlength(name);            /* Har ingen ext- tag nya */
  84.     ext=form;
  85.   }
  86.  
  87.   if (strlen(dev)+length+strlen(ext) >= FN_REFLEN || length >= FN_LEN )
  88.   {                /* To long path, return original */
  89.     uint tmp_length;
  90.     if (flag & 64)
  91.       return 0;
  92.     tmp_length=strlength(startpos);
  93.     DBUG_PRINT("error",("dev: '%s'  ext: '%s'  length: %d",dev,ext,length));
  94.     (void) strmake(to,startpos,min(tmp_length,FN_REFLEN-1));
  95.   }
  96.   else
  97.   {
  98.     if (to == startpos)
  99.     {
  100.       bmove(buff,(char*) name,length);        /* Save name for last copy */
  101.       name=buff;
  102.     }
  103.     pos=strnmov(strmov(to,dev),name,length);
  104. #ifdef FN_UPPER_CASE
  105.     caseup_str(to);
  106. #endif
  107. #ifdef FN_LOWER_CASE
  108.     casedn_str(to);
  109. #endif
  110.     (void) strmov(pos,ext);            /* Don't convert extension */
  111.   }
  112.   /* Purify gives a lot of UMR errors when using realpath */
  113. #if defined(HAVE_REALPATH) && !defined(HAVE_purify)
  114.   if (flag & 16)
  115.   {
  116.     struct stat stat_buff;
  117.     if (flag & 32 || (!lstat(to,&stat_buff) && S_ISLNK(stat_buff.st_mode)))
  118.     {
  119.       if (realpath(to,buff))
  120.     strmov(to,buff);
  121.     }
  122.   }
  123. #endif
  124.   DBUG_RETURN (to);
  125. } /* fn_format */
  126.  
  127.  
  128.     /*
  129.       strlength(const string str)
  130.       Return length of string with end-space:s not counted.
  131.       */
  132.  
  133. size_s strlength(const char *str)
  134. {
  135.   reg1 my_string pos;
  136.   reg2 my_string found;
  137.   DBUG_ENTER("strlength");
  138.  
  139.   pos=found=(char*) str;
  140.  
  141.   while (*pos)
  142.   {
  143.     if (*pos != ' ')
  144.     {
  145.       while (*++pos && *pos != ' ') {};
  146.       if (!*pos)
  147.       {
  148.     found=pos;            /* String ends here */
  149.     break;
  150.       }
  151.     }
  152.     found=pos;
  153.     while (*++pos == ' ') {};
  154.   }
  155.   DBUG_RETURN((size_s) (found-(char*) str));
  156. } /* strlength */
  157.