arch/all-mingw32/filesys/emul_handler/filenames.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/debug.h>
   7 #include <dos/dos.h>
   8
   9 #include <string.h>
  10
  11 /*********************************************************************************************/
  12
  13 /*
  14  * Create a plain path out of the supplied filename.
  15  * Eg 'path1/path2//path3/' becomes 'path1/path3'.
  16  */
  17 BOOL shrink(char *filename)
  18 {
  19   char *s, *s1,*s2;
  20   unsigned long len;
  21
  22   /* We skip the first slash because it separates volume root prefix and the actual pathname */
  23   s = filename;
  24   if (*s == '\\')
  25       s++;
  26
  27   for(;;)
  28   {
  29         /* leading slashes? --> return FALSE. */
  30         if(*s == '\\') return FALSE;
  31
  32         /* remove superflous paths (ie paths that are followed by '\') */
  33         s1 = strstr(s, "\\\\");
  34         if(s1==NULL)
  35           break;
  36         s2=s1;
  37         while(s2 > s)
  38         {
  39           if (s2[-1] == '\\') break;
  40           s2--;
  41         }
  42
  43         memmove(s2,s1+2,strlen(s1+1));
  44   }
  45
  46   /* strip trailing slash */
  47   len = strlen(filename);
  48   if (len && (filename[len-1] == '\\'))
  49       filename[len-1]=0;
  50
  51   return TRUE;
  52 }
  53
  54 /* Validate file name */
  55 ULONG validate(char *filename)
  56 {
  57     char *s = filename;
  58
  59     while (*s)
  60     {
  61         if (*s == '.') {
  62             do {
  63                 s++;
  64             } while (*s == '.');
  65             if ((*s == '/') || (!*s)) {
  66                 D(bug("[emul] Bad file name, contains dots-only component\n"));
  67                 return ERROR_INVALID_COMPONENT_NAME;
  68             }
  69         }
  70         do {
  71             if (*s == '\\') {
  72                 D(bug("[emul] Bad file name, contains backslash\n"));
  73                 return ERROR_INVALID_COMPONENT_NAME;
  74             }
  75             s++;
  76         } while ((*s != '/') && *s);
  77         while (*s == '/')
  78             s++;
  79     }
  80
  81     return 0;
  82 }
  83
  84 /* Append file name to an existing path */
  85 char *append(char *c, char *filename)
  86 {
  87     char *s;
  88
  89     *c++ = '\\';
  90
  91     /* We are on Windows, so we have to revert slashes while copying filename */
  92     for (s = filename; *s; s++)
  93         *c++ = (*s == '/') ? '\\' : *s;
  94
  95     return c;
  96 }
  97
  98 /* Find start position of the file name in path string */
  99 long startpos(char *name, long i)
 100 {
 101     /* look for the first '\' in the filename starting at the end */
 102     while (i != 0 && name[i] != '\\')
 103         i--;
 104
 105     return i;
 106 }
 107
 108 /* Copy file name with possible conversion */
 109 void copyname(char *result, char *name, long i)
 110 {
 111     long c;
 112
 113     /* We want to get AROS filename, so we revert slashes back */
 114     for (c = 0; c < i; c++)
 115         result[c] = (name[c] == '\\') ? '/' : name[c];
 116
 117     result[i]=0x0;
 118 }
 119
 120 /* Go to next part in path string */
 121 char *nextpart(char *sp)
 122 {
 123     char *sp_end;
 124
 125     for(sp_end = sp + 1; sp_end[0] != '\0' && sp_end[0] != '\\'; sp_end++);
 126
 127     return sp_end;
 128 }