/*
- 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 "config.h"
#include <stdio.h>
#include <errno.h>
#include <limits.h>
+#include "config.hh"
#if HAVE_SYS_STAT_H
#include <sys/stat.h>
#endif
#ifdef __CYGWIN__
#include <sys/cygwin.h>
-
-// URGURG
-#include "../lily/include/scm-option.hh"
#endif
+#include "file-name.hh"
#include "file-path.hh"
-
#ifndef PATHSEP
#define PATHSEP ':'
#endif
-/* We don't have multiple roots, set this to '\0'? */
-#ifndef ROOTSEP
-#define ROOTSEP ':'
-#endif
-
-#ifndef DIRSEP
-#define DIRSEP '/'
-#endif
-
-#ifndef EXTSEP
-#define EXTSEP '.'
-#endif
-
-
-
-#ifdef __CYGWIN__
-static String
-dos_to_posix (String path)
-{
- char buf[PATH_MAX];
- char *filename = path.get_copy_str0 ();
- /* urg, wtf? char const* argument gets modified! */
- cygwin_conv_to_posix_path (filename, buf);
- delete filename;
- return buf;
-}
-
-static String
-dos_to_posix_list (String path)
-{
- char *filename = path.get_copy_str0 ();
- int len = cygwin_win32_to_posix_path_list_buf_size (filename);
- if (len < PATH_MAX)
- len = PATH_MAX;
- char *buf = new char[len];
- /* urg, wtf? char const* argument gets modified! */
- cygwin_win32_to_posix_path_list (filename, buf);
- delete filename;
-
- String ret = buf;
- delete buf;
- return ret;
-}
-#endif /* __CYGWIN__ */
-
-/* Join components to full path. */
-String
-Path::to_string () const
-{
- String s;
- if (!root.empty_b ())
- s = root + ::to_string (ROOTSEP);
- if (!dir.empty_b ())
- s += dir + ::to_string (DIRSEP);
- s += base;
- if (!ext.empty_b ())
- s += ::to_string (EXTSEP) + ext;
- return s;
-}
-
-/**
- @param path the original full filename
- @return 4 components of the path. They can be empty
-*/
-Path
-split_path (String path)
-{
-#ifdef __CYGWIN__
- /* All system functions would work, even if we don't convert to
- posix path, but we'd think that \foe\bar\baz.ly is in the cwd.
- On by default. */
- if (!(testing_level_global & 1))
- path = dos_to_posix (path);
-#endif
-
- Path p;
- int i = path.index (ROOTSEP);
- if (i >= 0)
- {
- p.root = path.left_string (i);
- path = path.right_string (path.length () - i - 1);
- }
-
- i = path.index_last (DIRSEP);
- if (i >= 0)
- {
- p.dir = path.left_string (i);
- path = path.right_string (path.length () - i - 1);
- }
-
- i = path.index_last ('.');
- if (i >= 0)
- {
- p.base = path.left_string (i);
- p.ext = path.right_string (path.length () - i - 1);
- }
- else
- p.base = path;
- return p;
-}
-
void
File_path::parse_path (String p)
{
-#ifdef __CYGWIN__
- if (testing_level_global & 4)
- p = dos_to_posix_list (p);
-#endif
-
- int l;
-
- while ((l = p.length ()) )
+ int len;
+ while ((len = p.length ()) )
{
int i = p.index (PATHSEP);
if (i <0)
- i = l;
- add (p.left_string (i));
- p = p.right_string (l- i - 1);
+ i = len;
+ append (p.left_string (i));
+ p = p.right_string (len - i - 1);
}
}
-
-
-
/** Find a file.
- It will search in the current dir, in the construction-arg, and
- in any other added path, in this order.
+
+ 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 full path if found, or empty string if not found
- */
+ The file name if found, or empty string if not found. */
+
String
-File_path::find (String nm) const
+File_path::find (String name) const
{
- if (!nm.length () || (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 file_name = elem (i);
String sep = ::to_string (DIRSEP);
- String right (path.right_string (1));
- if (path.length () && right != sep)
- path += ::to_string (DIRSEP);
-
- path += nm;
+ String right (file_name.right_string (1));
+ if (file_name.length () && right != sep)
+ file_name += ::to_string (DIRSEP);
+ file_name += name;
-#if 0
- /*
- Check if directory. TODO: encapsulate for autoconf
- */
+#if 0 /* Check if directory. TODO: encapsulate for autoconf */
struct stat sbuf;
- if (stat (path.to_str0 (), &sbuf) != 0)
+ if (stat (file_name.to_str0 (), &sbuf) != 0)
continue;
if (! (sbuf.st_mode & __S_IFREG))
#if !STAT_MACROS_BROKEN
struct stat sbuf;
- if (stat (path.to_str0 (), &sbuf) != 0)
+ if (stat (file_name.to_str0 (), &sbuf) != 0)
continue;
if (S_ISDIR (sbuf.st_mode))
continue;
#endif
- FILE *f = fopen (path.to_str0 (), "r"); // ugh!
+ /* ugh */
+ FILE *f = fopen (file_name.to_str0 (), "r");
if (f)
{
fclose (f);
- return path;
+ return file_name;
}
}
return "";
}
-/**
- Add a directory, return false if failed
- */
-bool
-File_path::try_add (String s)
-{
- if (s == "")
- s = ".";
- FILE * f = fopen (s.to_str0 (), "r");
- if (!f)
- return false;
- fclose (f);
+/** Find a file.
- add (s);
- return true;
-}
+ Seach in the current dir (DUH! FIXME?), in the construction-arg
+ (what's that?, and in any other appended directory, in this order.
-void
-File_path::add (String s)
+ 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[])
{
-#ifdef __CYGWIN__
- if (testing_level_global & 2)
- s = dos_to_posix (s);
-#endif
+ 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 ();
+}
- push (s);
+/** 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;
- for (int i=0; i< size (); i++)
+ int n = size ();
+ for (int i = 0; i < n; i++)
{
s = s + elem (i);
- if (i < size () -1 )
+ if (i < n - 1)
s += ":";
}
return s;