pith/osdep/lstcmpnt.c

   1 /*
   2  * ========================================================================
   3  * Copyright 2006-2008 University of Washington
   4  * Copyright 2013-2022 Eduardo Chappa
   5  *
   6  * Licensed under the Apache License, Version 2.0 (the "License");
   7  * you may not use this file except in compliance with the License.
   8  * You may obtain a copy of the License at
   9  *
  10  *     http://www.apache.org/licenses/LICENSE-2.0
  11  *
  12  * ========================================================================
  13  */
  14
  15 #include <system.h>
  16 #include <general.h>
  17
  18 #include <string.h>
  19 #include "../../pith/charconv/filesys.h"
  20 #include "canaccess.h"
  21 #include "lstcmpnt.h"
  22
  23
  24 #ifdef  _WINDOWS
  25
  26 #define FILE_SEP                '\\'
  27
  28 #else  /* UNIX */
  29
  30 #define FILE_SEP                '/'
  31
  32 #endif /* UNIX */
  33
  34
  35
  36 /*----------------------------------------------------------------------
  37       Return pointer to last component of pathname.
  38
  39   Args: filename     -- The pathname.
  40
  41  Result: Returned pointer points to last component in the input argument.
  42   ----*/
  43 char *
  44 last_cmpnt(char *filename)
  45 {
  46     char *p = NULL, *q = filename;
  47
  48     if(filename == NULL)
  49       return(filename);
  50
  51     while((q = strchr(q, FILE_SEP)) != NULL)
  52       if(*++q)
  53         p = q;
  54
  55 #ifdef  _WINDOWS
  56
  57     if(!p && isalpha((unsigned char) *filename) && *(filename+1) == ':' && *(filename+2))
  58       p = filename + 2;
  59
  60 #endif
  61
  62     return(p);
  63 }
  64
  65
  66 /*
  67  * Like our_mkdir but it makes subdirs as well as the final dir
  68  */
  69 int
  70 our_mkpath(char *path, mode_t mode)
  71 {
  72     char save, *q = path;
  73
  74 #ifdef  _WINDOWS
  75     if(isalpha((unsigned char) q[0]) && q[1] == ':' && q[2])
  76       q = path + 3;
  77 #endif
  78
  79     if(q == path && q[0] == FILE_SEP)
  80       q = path + 1;
  81
  82     while((q = strchr(q, FILE_SEP)) != NULL){
  83         save = *q;
  84         *q = '\0';
  85         if(can_access(path, ACCESS_EXISTS) != 0)
  86           if(our_mkdir(path, mode) != 0){
  87               *q = save;
  88               return -1;
  89           }
  90
  91         *q = save;
  92         q++;
  93     }
  94
  95     if(can_access(path, ACCESS_EXISTS) != 0 && our_mkdir(path, mode) != 0)
  96       return -1;
  97
  98     return 0;
  99 }