flower/file-path.cc

   1 /*
   2   file-path.cc - implement File_path
   3
   4   source file of the Flower Library
   5
   6   (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7   Jan Nieuwenhuizen <janneke@gnu.org>
   8 */
   9
  10 #include "file-path.hh"
  11
  12 #include <cstdio>
  13 #include <cerrno>
  14
  15 #include "config.hh"
  16 #if HAVE_SYS_STAT_H
  17 #include <sys/stat.h>
  18 #endif
  19
  20 #ifdef __CYGWIN__
  21 #include <sys/cygwin.h>
  22 #endif
  23
  24 #include "file-name.hh"
  25 #include "warn.hh"
  26
  27 #ifndef PATHSEP
  28 #define PATHSEP ':'
  29 #endif
  30
  31 Array<String>
  32 File_path::directories () const
  33 {
  34   return dirs_;
  35 }
  36
  37 void
  38 File_path::parse_path (String p)
  39 {
  40   int len;
  41   while ((len = p.length ()) )
  42     {
  43       int i = p.index (PATHSEP);
  44       if (i < 0)
  45         i = len;
  46       append (p.left_string (i));
  47       p = p.right_string (len - i - 1);
  48     }
  49 }
  50
  51 static bool
  52 is_file (String file_name)
  53 {
  54 #if 0 /* Check if directory. TODO: encapsulate for autoconf */
  55   struct stat sbuf;
  56   if (stat (file_name.to_str0 (), &sbuf) != 0)
  57     return false;
  58
  59   if (!(sbuf.st_mode & __S_IFREG))
  60     return false;
  61 #endif
  62
  63 #if !STAT_MACROS_BROKEN
  64   struct stat sbuf;
  65   if (stat (file_name.to_str0 (), &sbuf) != 0)
  66     return false;
  67
  68   return !S_ISDIR (sbuf.st_mode);
  69 #endif
  70
  71
  72   if (FILE *f = fopen (file_name.to_str0 (), "r"))
  73     {
  74       fclose (f);
  75       return true;
  76     }
  77
  78
  79   return false;
  80 }
  81
  82 static bool
  83 is_dir (String file_name)
  84 {
  85 #if !STAT_MACROS_BROKEN
  86   struct stat sbuf;
  87   if (stat (file_name.to_str0 (), &sbuf) != 0)
  88     return false;
  89
  90   return S_ISDIR (sbuf.st_mode);
  91 #endif
  92
  93   if (FILE *f = fopen (file_name.to_str0 (), "r"))
  94     {
  95       fclose (f);
  96       return true;
  97     }
  98   return false;
  99 }
 100
 101
 102 /** Find a file.
 103
 104 Check absolute file name, search in the current dir (DUH! FIXME!),
 105 in the construction-arg (what's that?), and in any other appended
 106 directory, in this order.
 107
 108 @return
 109 The file name if found, or empty string if not found. */
 110
 111 String
 112 File_path::find (String name) const
 113 {
 114   if (!name.length () || (name == "-"))
 115     return name;
 116
 117 #ifdef __MINGW32__
 118   if (name.index ('\\') >= 0)
 119     programming_error ("file name not normalized: " + name);
 120 #endif /* __MINGW32__ */
 121
 122   /* Handle absolute file name.  */
 123   File_name file_name (name);
 124   if (file_name.dir_[0] == DIRSEP && is_file (file_name.to_string ()))
 125     return file_name.to_string ();
 126
 127   for (int i = 0; i < dirs_.size (); i++)
 128     {
 129       File_name file_name (name);
 130       File_name dir = dirs_[i];
 131       file_name.root_ = dir.root_;
 132       dir.root_ = "";
 133       if (file_name.dir_.is_empty ())
 134         file_name.dir_ = dir.to_string ();
 135       else if (!dir.to_string ().is_empty())
 136         file_name.dir_ += ::to_string (DIRSEP) + dir.to_string ();
 137
 138       if (is_file (file_name.to_string ()))
 139         return file_name.to_string ();
 140     }
 141   return "";
 142 }
 143
 144 /*
 145   Try to find
 146
 147     file.EXT,
 148
 149   where EXT is from EXTENSIONS.
 150 */
 151 String
 152 File_path::find (String name, char const *extensions[])
 153 {
 154   File_name file_name (name);
 155   if (name.is_empty () || name == "-")
 156     file_name.base_ = "-";
 157   else
 158     {
 159       String orig_ext = file_name.ext_;
 160       for (int i = 0; extensions[i]; i++)
 161         {
 162           file_name.ext_ = orig_ext;
 163           if (*extensions[i] && !file_name.ext_.is_empty ())
 164             file_name.ext_ += ".";
 165           file_name.ext_ += extensions[i];
 166           if (!find (file_name.to_string ()).is_empty ())
 167             break;
 168         }
 169
 170       /* Reshuffle extension */
 171       file_name = File_name (file_name.to_string ());
 172     }
 173   return file_name.to_string ();
 174 }
 175
 176 /** Append a directory, return false if failed.  */
 177 bool
 178 File_path::try_append (String s)
 179 {
 180   if (s == "")
 181     s = ".";
 182   if (is_dir (s))
 183     {
 184       append (s);
 185       return true;
 186     }
 187   return false;
 188 }
 189
 190 String
 191 File_path::to_string () const
 192 {
 193   String s;
 194   for (int i = 0; i < dirs_.size (); i++)
 195     {
 196       s = s + dirs_[i];
 197       if (i < dirs_.size() - 1)
 198         s += ::to_string (PATHSEP);
 199     }
 200   return s;
 201 }
 202
 203 void
 204 File_path::append (String str)
 205 {
 206   dirs_.push (str);
 207 }
 208
 209 void
 210 File_path::prepend (String str)
 211 {
 212   dirs_.insert (str, 0);
 213 }