X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=flower%2Ffile-path.cc;h=0177d40c9f70c3ff7f5b993b0ef3b79f084adfe8;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=f290b83628b471a71da6e7857a1a65d6f8198e6a;hpb=a6157e173876ce2a638649ba8c240f02ed905888;p=lilypond.git diff --git a/flower/file-path.cc b/flower/file-path.cc index f290b83628..0177d40c9f 100644 --- a/flower/file-path.cc +++ b/flower/file-path.cc @@ -1,190 +1,196 @@ /* - path.cc - manipulation of paths and filenames. -*/ + file-path.cc - implement File_path -#include "config.h" -#include -#include + source file of the Flower Library -#if HAVE_SYS_STAT_H -#include -#endif + (c) 1997--2008 Han-Wen Nienhuys + Jan Nieuwenhuizen +*/ #include "file-path.hh" -#include "flower-debug.hh" -#ifndef PATHSEP -#define PATHSEP ':' -#endif +#include +#include -/* We don't have multiple roots, set this to '\0'? */ -#ifndef ROOTSEP -#define ROOTSEP ':' +#include "config.hh" +#if HAVE_SYS_STAT_H +#include #endif -#ifndef DIRSEP -#define DIRSEP '/' +#ifdef __CYGWIN__ +#include #endif -#ifndef EXTSEP -#define EXTSEP '.' +#include "file-name.hh" +#include "warn.hh" + +#ifndef PATHSEP +#define PATHSEP ':' #endif -/* Join components to full path. */ -String -Path::str () const +vector +File_path::directories () const { - String s; - if (!root.empty_b ()) - s = root + to_str (ROOTSEP); - if (!dir.empty_b ()) - s += dir + to_str (DIRSEP); - s += base; - if (!ext.empty_b ()) - s += to_str (EXTSEP) + ext; - return s; + return dirs_; } -/** - @param path the original full filename - @return 4 components of the path. They can be empty -*/ -Path -split_path (String path) +#include +void +File_path::parse_path (string p) { - Path p; - int i = path.index_i (ROOTSEP); - if (i >= 0) - { - p.root = path.left_str (i); - path = path.right_str (path.length_i () - i - 1); - } + concat (dirs_, string_split (p, PATHSEP)); +} - i = path.index_last_i (DIRSEP); - if (i >= 0) - { - p.dir = path.left_str (i); - path = path.right_str (path.length_i () - i - 1); - } +bool +is_file (string file_name) +{ +#if !STAT_MACROS_BROKEN + struct stat sbuf; + if (stat (file_name.c_str (), &sbuf) != 0) + return false; + + return !S_ISDIR (sbuf.st_mode); +#endif - i = path.index_last_i ('.'); - if (i >= 0) + if (FILE *f = fopen (file_name.c_str (), "r")) { - p.base = path.left_str (i); - p.ext = path.right_str (path.length_i () - i - 1); + fclose (f); + return true; } - else - p.base = path; - return p; + + return false; } -void -File_path::parse_path (String p) +bool +is_dir (string file_name) { - int l; + /* + canonicalize; in particular, trailing slashes should disappear. + */ + file_name = File_name (file_name).to_string (); - while ( (l = p.length_i ()) ) +#if !STAT_MACROS_BROKEN + struct stat sbuf; + if (stat (file_name.c_str (), &sbuf) != 0) + return false; + + return S_ISDIR (sbuf.st_mode); +#endif + + if (FILE *f = fopen (file_name.c_str (), "r")) { - int i = p.index_i(PATHSEP); - if (i <0) - i = l; - add (p.left_str(i)); - p = p.right_str (l- i - 1); + fclose (f); + return true; } + return false; } +/** Find a file. +Check absolute file name, search in the current dir (DUH! FIXME!), +in the construction-arg (what's that?), and in any other appended +directory, in this order. +@return +The file name if found, or empty string if not found. */ -/** Find a file. - It will search in the current dir, in the construction-arg, and - in any other added path, in this order. - - @return - The full path if found, or empty string if not found - */ -String -File_path::find (String nm) const +string +File_path::find (string name) const { - DEBUG_OUT << "looking for" << nm << ": "; - if (!nm.length_i() || (nm == "-") ) - return nm; - for (int i=0; i < size(); i++) + if (!name.length () || (name == "-")) + return name; + +#ifdef __MINGW32__ + if (name.find ('\\') != NPOS) + programming_error ("file name not normalized: " + name); +#endif /* __MINGW32__ */ + + /* Handle absolute file name. */ + File_name file_name (name); + if (file_name.dir_[0] == DIRSEP && is_file (file_name.to_string ())) + return file_name.to_string (); + + for (vsize i = 0; i < dirs_.size (); i++) { - String path = elem(i); - String sep = to_str (DIRSEP); - String right(path.right_str (1)); - if (path.length_i () && right != sep) - path += to_str (DIRSEP); - - path += nm; - - DEBUG_OUT << path << "? "; - -#if 0 - /* - Check if directory. TODO: encapsulate for autoconf - */ - struct stat sbuf; - if (stat (path.ch_C(), &sbuf) == ENOENT) - continue; - - if (!(sbuf.st_mode & __S_IFREG)) - continue; -#endif -#if !STAT_MACROS_BROKEN - struct stat sbuf; - if (stat (path.ch_C (), &sbuf) == ENOENT) - continue; - - if (S_ISDIR (sbuf.st_mode)) - continue; -#endif + File_name file_name (name); + File_name dir = (string) dirs_[i]; + file_name.root_ = dir.root_; + dir.root_ = ""; + if (file_name.dir_.empty ()) + file_name.dir_ = dir.to_string (); + else if (!dir.to_string ().empty ()) + file_name.dir_ = dir.to_string () + + ::to_string (DIRSEP) + file_name.dir_; + if (is_file (file_name.to_string ())) + return file_name.to_string (); + } + return ""; +} + +/* + Try to find + + file.EXT, - FILE *f = fopen (path.ch_C(), "r"); // ugh! - if (f) - { - DEBUG_OUT << "found\n"; - fclose (f); - return path; - } + where EXT is from EXTENSIONS. +*/ +string +File_path::find (string name, char const *extensions[]) +{ + if (name.empty () || name == "-") + return name; + + File_name file_name (name); + string orig_ext = file_name.ext_; + for (int i = 0; extensions[i]; i++) + { + file_name.ext_ = orig_ext; + if (*extensions[i] && !file_name.ext_.empty ()) + file_name.ext_ += "."; + file_name.ext_ += extensions[i]; + string found = find (file_name.to_string ()); + if (!found.empty ()) + return found; } - DEBUG_OUT << '\n'; + return ""; } -/** - Add a directory, return false if failed - */ +/** Append a directory, return false if failed. */ bool -File_path::try_add (String s) +File_path::try_append (string s) { if (s == "") - s = "."; - FILE * f = fopen (s.ch_C(), "r"); - if (!f) - return false; - fclose (f); - - push (s); - return true; + s = "."; + if (is_dir (s)) + { + append (s); + return true; + } + return false; +} + +string +File_path::to_string () const +{ + string s; + for (vsize i = 0; i < dirs_.size (); i++) + { + s = s + dirs_[i]; + if (i < dirs_.size () - 1) + s += ::to_string (PATHSEP); + } + return s; } void -File_path::add (String s) +File_path::append (string str) { - push (s); + dirs_.push_back (str); } -String -File_path::str () const +void +File_path::prepend (string str) { - String s; - for (int i=0; i< size (); i++) - { - s = s + elem (i); - if (i < size () -1 ) - s += ":"; - } - return s; + dirs_.insert (dirs_.begin (), str); }