a68g-path.c

     
   1  //! @file a68g-path.c
   2  //! @author J. Marcel van der Veer
   3  
   4  //! @section Copyright
   5  //!
   6  //! This file is part of Algol68G - an Algol 68 compiler-interpreter.
   7  //! Copyright 2001-2023 J. Marcel van der Veer [algol68g@xs4all.nl].
   8  
   9  //! @section License
  10  //!
  11  //! This program is free software; you can redistribute it and/or modify it 
  12  //! under the terms of the GNU General Public License as published by the 
  13  //! Free Software Foundation; either version 3 of the License, or 
  14  //! (at your option) any later version.
  15  //!
  16  //! This program is distributed in the hope that it will be useful, but 
  17  //! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 
  18  //! or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 
  19  //! more details. You should have received a copy of the GNU General Public 
  20  //! License along with this program. If not, see [http://www.gnu.org/licenses/].
  21  
  22  //! @section Synopsis
  23  //!
  24  //! Low-level file path routines.
  25  
  26  #include "a68g.h"
  27  #include "a68g-prelude.h"
  28  #include "a68g-genie.h"
  29  
  30  #if defined (BUILD_WIN32)
  31  #include <windows.h>
  32  #endif
  33  
  34  //! @brief Safely get dir name from path.
  35  
  36  char *a68_dirname (char *src)
  37  {
  38    int len = (int) strlen (src) + 1;
  39    char *cpy = (char *) get_fixed_heap_space (len + 1);
  40    char *dst = (char *) get_fixed_heap_space (len + 1);
  41    ABEND (cpy == NO_TEXT, ERROR_OUT_OF_CORE, __func__);
  42    ABEND (dst == NO_TEXT, ERROR_OUT_OF_CORE, __func__);
  43    bufcpy (cpy, src, len);
  44    bufcpy (dst, dirname (cpy), len);
  45    return dst;
  46  }
  47  
  48  //! @brief Safely get basename from path.
  49  
  50  char *a68_basename (char *src)
  51  {
  52    int len = (int) strlen (src) + 1;
  53    char *cpy = (char *) get_fixed_heap_space (len + 1);
  54    char *dst = (char *) get_fixed_heap_space (len + 1);
  55    ABEND (cpy == NO_TEXT, ERROR_OUT_OF_CORE, __func__);
  56    ABEND (dst == NO_TEXT, ERROR_OUT_OF_CORE, __func__);
  57    bufcpy (cpy, src, len);
  58    bufcpy (dst, basename (cpy), len);
  59    return dst;
  60  }
  61  
  62  //! @brief Compute relative path.
  63  
  64  #if defined (BUILD_WIN32)
  65  
  66  static char *win32_slash (char *p)
  67  {
  68    char *q = p;
  69    while (*p != '\0') {
  70      if (*p == '\\') {
  71        *p = '/';
  72      }
  73      p++;
  74    }
  75    return q;
  76  }
  77  
  78  static char *win32_realpath (char *name, char *resolved)
  79  {
  80    char *res = NO_TEXT;
  81    if (name == NO_TEXT || name[0] == '\0') {
  82      return NO_TEXT;
  83    }
  84    if (resolved == NO_TEXT) {
  85      res = (char *) get_fixed_heap_space (PATH_MAX + 1);
  86      if (res == NO_TEXT) {
  87        return NO_TEXT;
  88      }
  89    } else {
  90      res = resolved;
  91    }
  92    int ret = GetFullPathName (name, PATH_MAX, res, (char **) NO_TEXT);
  93    if (ret == 0) {
  94      return NO_TEXT;
  95    } else {
  96      win32_slash (res);
  97      struct stat st;
  98      if (stat (res, &st) < 0) { // Should be 'lstat', but mingw does not have that.
  99        if (resolved == NO_TEXT) {
 100          free (res);
 101          return NO_TEXT;
 102        }
 103      }
 104    }
 105    return res;
 106  }
 107  
 108  #endif
 109  
 110  char *a68_relpath (char *p1, char *p2, char *fn)
 111  {
 112    char q[PATH_MAX + 1];
 113    bufcpy (q, p1, PATH_MAX);
 114    bufcat (q, "/", PATH_MAX);
 115    bufcat (q, p2, PATH_MAX);
 116    bufcat (q, "/", PATH_MAX);
 117    bufcat (q, fn, PATH_MAX);
 118  // Home directory shortcut ~ is a shell extension.
 119    if (strchr (q, '~') != NO_TEXT) {
 120      return NO_TEXT;
 121    }
 122    char *r = (char *) get_fixed_heap_space (PATH_MAX + 1);
 123    ABEND (r == NO_TEXT, ERROR_OUT_OF_CORE, __func__);
 124  // Error handling in the caller!
 125    errno = 0;
 126  #if defined (BUILD_WIN32)
 127    r = win32_realpath (q, NO_TEXT);
 128  #else
 129    r = realpath (q, NO_TEXT);
 130  #endif
 131    return r;
 132  }
 133  
 134  //! @brief PROC (STRING) STRING realpath
 135  
 136  void genie_realpath (NODE_T * p)
 137  {
 138    A68_REF str;
 139    POP_REF (p, &str);
 140    char in[PATH_MAX + 1];
 141    if (a_to_c_string (p, in, str) == NO_TEXT) {
 142      PUSH_REF (p, empty_string (p));
 143    } else {
 144  // Note that ~ is not resolved since that is the shell, not libc.
 145  #if defined (BUILD_WIN32)
 146      char *out = win32_realpath (in, NO_TEXT);
 147  #else
 148      char *out = realpath (in, NO_TEXT);
 149  #endif
 150      if (out == NO_TEXT) {
 151        PUSH_REF (p, empty_string (p));
 152      } else {
 153        PUSH_REF (p, c_to_a_string (p, out, PATH_MAX));
 154      }
 155    }
 156  }
 157