(setup_paths): Add more debugging verbosity.

diff --git a/ChangeLog b/ChangeLog
index c54ddaed00a7fce023788f41cb8e5c0c5d2e884e..b997bb2cdb006f240a54c6c1a11c5dcfb52ab6a9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-01-02  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+       * lily/relocate.cc (setup_paths): Add more debugging verbosity.
+
 2006-01-02  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
        * scm/lily.scm (lilypond-all): oops. remove debugging hack.

diff --git a/lily/relocate.cc b/lily/relocate.cc
index ecc8a787ea20d0d73f15ef24c12cb662f3cbc740..a7ee0f01aa9f871bc46cef2db6b05f62eb2e7005 100644 (file)
--- a/lily/relocate.cc
+++ b/lily/relocate.cc
@@ -191,16 +191,28 @@ setup_paths (char const *argv0_ptr)
     {
       String argv0_abs;
       if (argv0_filename.is_absolute ())
-       argv0_abs = argv0_filename.to_string ();
+       {
+         argv0_abs = argv0_filename.to_string ();
+         if (be_verbose_global)
+           warning (_f ("Relocation: is absolute: argv0=%s", argv0_ptr));
+       }
       else if (argv0_filename.dir_.length ())
-       argv0_abs = get_working_directory ()
-         + "/" + String (argv0_filename.to_string ());
+       {
+         argv0_abs = get_working_directory ()
+           + "/" + String (argv0_filename.to_string ());
+         if (be_verbose_global)
+           warning (_f ("Relocation: from cwd: argv0=%s", argv0_ptr));
+       }
       else
        {
          /* Find absolute ARGV0 name, using PATH.  */
          File_path path;
          path.parse_path (getenv ("PATH"));
-      
+
+         if (be_verbose_global)
+           warning (_f ("Relocation: from PATH=%s\nargv0=%s",
+                        path.to_string ().get_str0 (), argv0_ptr));
+
 #ifndef __MINGW32__
          String argv0_abs = path.find (argv0_filename.to_string ());
 #else /* __MINGW32__ */