hurd/path-lookup.c

   1 /* Filename lookup using a search path
   2
   3    Copyright (C) 1995, 1996 Free Software Foundation, Inc.
   4
   5    Written by Miles Bader <miles@gnu.ai.mit.edu>
   6
   7    This program is free software; you can redistribute it and/or
   8    modify it under the terms of the GNU General Public License as
   9    published by the Free Software Foundation; either version 2, or (at
  10    your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful, but
  13    WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15    General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
  20
  21 #include <string.h>
  22 #include <hurd.h>
  23 #include <hurd/lookup.h>
  24
  25 /* If FILE_NAME contains a '/', or PATH is NULL, call FUN with FILE_NAME, and
  26    return the result (if PREFIXED_NAME is non-NULL, setting *PREFIXED_NAME to
  27    NULL).  Otherwise, call FUN repeatedly with FILE_NAME prefixed with each
  28    successive `:' separated element of PATH, returning whenever FUN returns
  29    0 (if PREFIXED_NAME is non-NULL, setting *PREFIXED_NAME to the resulting
  30    prefixed path).  If FUN never returns 0, return the first non-ENOENT
  31    return value, or ENOENT if there is none.  */
  32 error_t
  33 file_name_path_scan (const char *file_name, const char *path,
  34                      error_t (*fun)(const char *name),
  35                      char **prefixed_name)
  36 {
  37   if (path == NULL || index (file_name, '/'))
  38     {
  39       if (prefixed_name)
  40         *prefixed_name = 0;
  41       return (*fun)(file_name);
  42     }
  43   else
  44     {
  45       error_t real_err = 0;
  46       size_t file_name_len = strlen (file_name);
  47
  48       for (;;)
  49         {
  50           error_t err;
  51           const char *next = index (path, ':') ?: path + strlen (path);
  52           size_t pfx_len = next - path;
  53           char pfxed_name[pfx_len + 2 + file_name_len + 1];
  54
  55           if (pfx_len == 0)
  56             pfxed_name[pfx_len++] = '.';
  57           else
  58             bcopy (path, pfxed_name, pfx_len);
  59           if (pfxed_name[pfx_len - 1] != '/')
  60             pfxed_name[pfx_len++] = '/';
  61           bcopy (file_name, pfxed_name + pfx_len, file_name_len + 1);
  62
  63           err = (*fun)(pfxed_name);
  64           if (err == 0)
  65             {
  66               if (prefixed_name)
  67                 *prefixed_name = strdup (pfxed_name);
  68               return 0;
  69             }
  70           if (!real_err && err != ENOENT)
  71             real_err = err;
  72
  73           if (*next == '\0')
  74             return real_err ?: ENOENT;
  75           else
  76             path = next + 1;
  77         }
  78     }
  79 }
  80
  81 /* Lookup FILE_NAME and return the node opened with FLAGS & MODE in result
  82    (see hurd_file_name_lookup for details), but a simple filename (without
  83    any directory prefixes) will be consectutively prefixed with the pathnames
  84    in the `:' separated list PATH until one succeeds in a successful lookup.
  85    If none succeed, then the first error that wasn't ENOENT is returned, or
  86    ENOENT if no other errors were returned.  If PREFIXED_NAME is non-NULL,
  87    then if RESULT is looked up directly, *PREFIXED_NAME is set to NULL, and
  88    if it is looked up using a prefix from PATH, *PREFIXED_NAME is set to
  89    malloced storage containing the prefixed name.  */
  90 error_t
  91 hurd_file_name_path_lookup (error_t (*use_init_port)
  92                               (int which, error_t (*operate) (mach_port_t)),
  93                             file_t (*get_dtable_port) (int fd),
  94                             error_t (*lookup)
  95                               (file_t dir, char *name, int flags, mode_t mode,
  96                                retry_type *do_retry, string_t retry_name,
  97                                mach_port_t *result),
  98                             const char *file_name, const char *path,
  99                             int flags, mode_t mode,
 100                             file_t *result, char **prefixed_name)
 101 {
 102   error_t scan_lookup (const char *name)
 103     {
 104       return
 105         __hurd_file_name_lookup (use_init_port, get_dtable_port, lookup,
 106                                  name, flags, mode, result);
 107     }
 108   return file_name_path_scan (file_name, path, scan_lookup, prefixed_name);
 109 }
 110
 111 file_t
 112 file_name_path_lookup (const char *file_name, const char *path,
 113                        int flags, mode_t mode, char **prefixed_name)
 114 {
 115   error_t err;
 116   file_t result;
 117
 118   err = hurd_file_name_path_lookup (&_hurd_ports_use, &__getdport, 0,
 119                                     file_name, path, flags, mode,
 120                                     &result, prefixed_name);
 121
 122   return err ? (__hurd_fail (err), MACH_PORT_NULL) : result;
 123 }