flower/file-path.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5   Jan Nieuwenhuizen <janneke@gnu.org>
   6
   7   LilyPond is free software: you can redistribute it and/or modify
   8   it under the terms of the GNU General Public License as published by
   9   the Free Software Foundation, either version 3 of the License, or
  10   (at your option) any later version.
  11
  12   LilyPond is distributed in the hope that it will be useful,
  13   but WITHOUT ANY WARRANTY; without even the implied warranty of
  14   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15   GNU General Public License for more details.
  16
  17   You should have received a copy of the GNU General Public License
  18   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  19 */
  20
  21 #include "file-path.hh"
  22
  23 #include <cstdio>
  24 #include <cerrno>
  25
  26 #include "config.hh"
  27 #if HAVE_SYS_STAT_H
  28 #include <sys/stat.h>
  29 #endif
  30
  31 #ifdef __CYGWIN__
  32 #include <sys/cygwin.h>
  33 #endif
  34
  35 #include "file-name.hh"
  36 #include "warn.hh"
  37
  38 #ifndef PATHSEP
  39 #define PATHSEP ':'
  40 #endif
  41
  42 #include <algorithm>
  43
  44 using std::string;
  45 using std::vector;
  46
  47 vector<string>
  48 File_path::directories () const
  49 {
  50   return dirs_;
  51 }
  52
  53 void
  54 File_path::parse_path (const string &p)
  55 {
  56   concat (dirs_, string_split (p, PATHSEP));
  57 }
  58
  59 bool
  60 is_file (const string &file_name)
  61 {
  62 #if !STAT_MACROS_BROKEN
  63   struct stat sbuf;
  64   if (stat (file_name.c_str (), &sbuf) != 0)
  65     return false;
  66
  67   return !S_ISDIR (sbuf.st_mode);
  68 #endif
  69
  70   if (FILE *f = fopen (file_name.c_str (), "r"))
  71     {
  72       fclose (f);
  73       return true;
  74     }
  75
  76   return false;
  77 }
  78
  79 bool
  80 is_dir (string file_name)
  81 {
  82   /*
  83     canonicalize; in particular, trailing slashes should disappear.
  84    */
  85   file_name = File_name (file_name).to_string ();
  86
  87 #if !STAT_MACROS_BROKEN
  88   struct stat sbuf;
  89   if (stat (file_name.c_str (), &sbuf) != 0)
  90     return false;
  91
  92   return S_ISDIR (sbuf.st_mode);
  93 #endif
  94
  95   if (FILE *f = fopen (file_name.c_str (), "r"))
  96     {
  97       fclose (f);
  98       return true;
  99     }
 100   return false;
 101 }
 102
 103 /** Find a file.
 104
 105 Check absolute file name, search in the current dir (DUH! FIXME!),
 106 in the construction-arg (what's that?), and in any other appended
 107 directory, in this order.
 108
 109 @return
 110 The file name if found, or empty string if not found. */
 111
 112 string
 113 File_path::find (const string &name) const
 114 {
 115   if (!name.length () || (name == "-"))
 116     return name;
 117
 118 #ifdef __MINGW32__
 119   if (name.find ('\\') != NPOS)
 120     programming_error ("file name not normalized: " + name);
 121 #endif /* __MINGW32__ */
 122
 123   /* Handle absolute file name.  */
 124   File_name file_name (name);
 125   if (file_name.dir_[0] == DIRSEP && is_file (file_name.to_string ()))
 126     return file_name.to_string ();
 127
 128   for (vsize i = 0; i < dirs_.size (); i++)
 129     {
 130       File_name file_name (name);
 131       File_name dir = (string) dirs_[i];
 132       file_name.root_ = dir.root_;
 133       dir.root_ = "";
 134       if (file_name.dir_.empty ())
 135         file_name.dir_ = dir.to_string ();
 136       else if (!dir.to_string ().empty ())
 137         file_name.dir_ = dir.to_string ()
 138                          + ::to_string (DIRSEP) + file_name.dir_;
 139       if (is_file (file_name.to_string ()))
 140         return file_name.to_string ();
 141     }
 142   return "";
 143 }
 144
 145 /*
 146   Try to find
 147
 148   file.EXT,
 149
 150   where EXT is from EXTENSIONS.
 151 */
 152 string
 153 File_path::find (const string &name, char const *extensions[])
 154 {
 155   if (name.empty () || name == "-")
 156     return name;
 157
 158   File_name file_name (name);
 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_.empty ())
 164         file_name.ext_ += ".";
 165       file_name.ext_ += extensions[i];
 166       string found = find (file_name.to_string ());
 167       if (!found.empty ())
 168         return found;
 169     }
 170
 171   return "";
 172 }
 173
 174 /** Append a directory, return false if failed.  */
 175 bool
 176 File_path::try_append (string s)
 177 {
 178   if (s == "")
 179     s = ".";
 180   if (is_dir (s))
 181     {
 182       append (s);
 183       return true;
 184     }
 185   return false;
 186 }
 187
 188 string
 189 File_path::to_string () const
 190 {
 191   string s;
 192   for (vsize i = 0; i < dirs_.size (); i++)
 193     {
 194       s = s + dirs_[i];
 195       if (i < dirs_.size () - 1)
 196         s += ::to_string (PATHSEP);
 197     }
 198   return s;
 199 }
 200
 201 void
 202 File_path::append (const string &str)
 203 {
 204   dirs_.push_back (str);
 205 }
 206
 207 void
 208 File_path::prepend (const string &str)
 209 {
 210   dirs_.insert (dirs_.begin (), str);
 211 }