* configure.in: Test for and accept lmodern if EC fonts not found.

[lilypond.git] / flower / file-path.cc

diff --git a/flower/file-path.cc b/flower/file-path.cc
index e6f9c4cff7b565a722f94b20d350c6e535ef8599..eb08b9251a7702e91672deb9efa4e16807d013fc 100644 (file)
--- a/flower/file-path.cc
+++ b/flower/file-path.cc
@@ -1,111 +1,158 @@
 /*
-   path.cc - manipulation of paths and filenames.
+  file-path.cc - implement File_path
+   
+  source file of the Flower Library
+  
+  (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+                 Jan Nieuwenhuizen <janneke@gnu.org>
 */
-#include <stdio.h>
+
 #include "file-path.hh"
-#include "flower-debug.hh"
 
-#ifndef DIRSEP
-#define DIRSEP '/'
+#include <cstdio>
+#include <cerrno>
+
+#include "config.hh"
+#if HAVE_SYS_STAT_H 
+#include <sys/stat.h>
 #endif
 
-#ifndef PATHSEP
-#define PATHSEP ':'
+#ifdef __CYGWIN__
+#include <sys/cygwin.h>
 #endif
 
-/**
-   @param path the original full filename
-   @return 4 components of the path. They can be empty
-*/
-void
-split_path (String path,
-           String &drive, String &dirs, String &filebase, String &extension)
-{
-  // peel off components, one by one.
-  int di = path.index_i (':');
-  if (di >= 0)
-    {
-      drive = path.left_str (di + 1);
-      path = path.right_str (path.length_i () - di -1);
-    }
-  else
-    drive = "";
+#include "file-name.hh"
 
-  di = path.index_last_i (DIRSEP);
-  if (di >=0)
-    {
-      dirs = path.left_str (di + 1);
-      path = path.right_str (path.length_i ()-di -1);
-    }
-  else
-    dirs = "";
-
-  di = path.index_last_i ('.');
-  if (di >= 0)
-    {
-      filebase = path.left_str (di);
-      extension =path.right_str (path.length_i ()-di);
-    }
-  else
-    {
-      extension = "";
-      filebase = path;
-    }
-}
+#ifndef PATHSEP
+#define PATHSEP ':'
+#endif
 
 void
 File_path::parse_path (String p)
 {
-  int l;
-  
-  while ( (l = p.length_i ()) )
+  int len;
+  while ((len = p.length ()) )
     {
-      int i = p.index_i(PATHSEP);
+      int i = p.index (PATHSEP);
       if (i <0) 
-       i = l;
-      add (p.left_str(i));
-      p = p.right_str (l- i - 1);
+       i = len;
+      append (p.left_string (i));
+      p = p.right_string (len - i - 1);
     }
 }
 
+/** Find a file.
+    
+  Seach 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.
-  */
 String
-File_path::find (String nm) const
+File_path::find (String name) const
 {
-  fdebug << _("looking for ") << nm << ": ";
-  if (!nm.length_i() || (nm == "-") )
-    return nm;
-  for (int i=0; i < size(); i++)
+  if (!name.length () || (name == "-") )
+    return name;
+  int n = size ();
+  for (int i = 0; i < n; i++)
     {
-      String path  = elem(i);
-      String sep (DIRSEP);
-      String right(path.right_str (1));
-      if (path.length_i () && right != sep)
-       path += DIRSEP;
+      String file_name = elem (i);
+      String sep = ::to_string (DIRSEP);
+      String right (file_name.right_string (1));
+      if (file_name.length () && right != sep)
+       file_name += ::to_string (DIRSEP);
+
+      file_name += name;
 
-      path += nm;
+#if 0 /* Check if directory. TODO: encapsulate for autoconf */
+      struct stat sbuf;
+      if (stat (file_name.to_str0 (), &sbuf) != 0)
+       continue;
+      
+      if (! (sbuf.st_mode & __S_IFREG))
+       continue;
+#endif
+#if !STAT_MACROS_BROKEN
+      
+      struct stat sbuf;
+      if (stat (file_name.to_str0 (), &sbuf) != 0)
+       continue;
 
-      fdebug << path << "? ";
-      FILE *f = fopen (path.ch_C(), "r"); // ugh!
+      if (S_ISDIR (sbuf.st_mode))
+       continue;
+#endif
+
+      /* ugh */
+      FILE *f = fopen (file_name.to_str0 (), "r");
       if (f)
        {
-         fdebug << _("found\n");
          fclose (f);
-         return path;
+         return file_name;
        }
     }
-  fdebug << "\n";
   return "";
 }
 
-void
-File_path::add (String s)
+/** Find a file.
+    
+  Seach in the current dir (DUH! FIXME?), in the construction-arg
+  (what's that?, and in any other appended directory, in this order.
+
+  Search for NAME, or name without extension, or name with any of
+  EXTENSIONS, in that order.
+
+  @return
+  The file name if found, or empty string if not found. */
+String
+File_path::find (String name, char const *extensions[])
 {
-   push (s); 
+  File_name file_name (name);
+  if (name.is_empty () || name == "-")
+    file_name.base_ = "-";
+  else
+    {
+      String orig_ext = file_name.ext_;
+      for (int i = 0; extensions[i]; i++)
+       {
+         file_name.ext_ = orig_ext;
+         if (*extensions[i] && !file_name.ext_.is_empty ())
+           file_name.ext_ += ".";
+         file_name.ext_ += extensions[i];
+         if (!find (file_name.to_string ()).is_empty ())
+           break;
+       }
+      /* Reshuffle extension */
+      file_name = File_name (file_name.to_string ());
+    }
+  return file_name.to_string ();
+}
+
+/** Append a directory, return false if failed.  */
+bool
+File_path::try_append (String s)
+{
+  if (s == "")
+    s =  ".";
+  if (FILE *f = fopen (s.to_str0 (), "r"))
+    {
+      fclose (f);
+      append (s);
+      return true;
+    }
+  return false;
+}
+
+String
+File_path::to_string () const
+{
+  String s;
+  int n = size ();
+  for (int i = 0; i < n; i++)
+    {
+      s = s + elem (i);
+      if (i < n - 1)
+       s += ":";
+    }
+  return s;
 }