← Back to branch summary

~ubuntu-branches/ubuntu/precise/lilypond/precise

« back to all changes in this revision

Viewing changes to flower/file-name.cc

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Bushnell, BSG
  • Date: 2006-12-19 10:18:12 UTC
  • mfrom: (3.1.4 feisty)
  • Revision ID: james.westby@ubuntu.com-20061219101812-7awtjkp0i393wxty
Tags: 2.8.7-3
http://bugs.debian.org/400550
scripts/midi2ly.py: When setting DATADIR, find Lilypond python files
in the @TOPLEVEL_VERSION@ directory, not 'current'.  Patch thanks to
Chris Lamb (chris@chris-lamb.co.uk).  (Closes: #400550)

Show diffs side-by-side

added added

removed removed

Lines of Context:
flower/file-name.cc
 
1
/*
 
2
  file-name.cc - implement File_name
 
3
 
 
4
  source file of the Flower Library
 
5
 
 
6
  (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
7
  Jan Nieuwenhuizen <janneke@gnu.org>
 
8
*/
 
9
 
 
10
#include "file-name.hh"
 
11
 
 
12
#include <unistd.h>
 
13
 
 
14
#include <cstdio>
 
15
#include <cerrno>
 
16
using namespace std;
 
17
 
 
18
#include "config.hh"
 
19
 
 
20
#if HAVE_SYS_STAT_H
 
21
#include <sys/stat.h>
 
22
#endif
 
23
 
 
24
#ifdef __CYGWIN__
 
25
#include <sys/cygwin.h>
 
26
#endif
 
27
 
 
28
#ifndef ROOTSEP
 
29
#define ROOTSEP ':'
 
30
#endif
 
31
 
 
32
#ifndef DIRSEP
 
33
#define DIRSEP '/'
 
34
#endif
 
35
 
 
36
#ifndef EXTSEP
 
37
#define EXTSEP '.'
 
38
#endif
 
39
 
 
40
#ifdef __CYGWIN__
 
41
static string
 
42
dos_to_posix (string file_name)
 
43
{
 
44
  char buf[PATH_MAX] = "";
 
45
  char s[PATH_MAX];
 
46
  file_name.copy (s, PATH_MAX - 1);
 
47
  /* ugh: char const* argument gets modified.  */
 
48
  int fail = cygwin_conv_to_posix_path (s, buf);
 
49
  if (!fail)
 
50
    return buf;
 
51
  return file_name;
 
52
}
 
53
#endif /* __CYGWIN__ */
 
54
 
 
55
/** Use slash as directory separator.  On Windows, they can pretty
 
56
    much be exchanged.  */
 
57
#if 0
 
58
static /* avoid warning */
 
59
#endif 
 
60
string
 
61
slashify (string file_name)
 
62
{
 
63
  replace_all (file_name, '\\', '/');
 
64
  replace_all (file_name, string ("//"), "/");
 
65
  return file_name;
 
66
}
 
67
 
 
68
string
 
69
dir_name (string const file_name)
 
70
{
 
71
  string s = file_name;
 
72
  s = slashify (s);
 
73
  ssize n = s.length ();
 
74
  if (n && s[n - 1] == '/')
 
75
    s[n - 1] = 0;
 
76
  s = s.substr (0, s.rfind ('/'));
 
77
  return s;
 
78
}
 
79
 
 
80
string
 
81
get_working_directory ()
 
82
{
 
83
  char cwd[PATH_MAX];
 
84
  getcwd (cwd, PATH_MAX);
 
85
 
 
86
  return string (cwd);
 
87
}
 
88
 
 
89
/* Join components to full file_name. */
 
90
string
 
91
File_name::to_string () const
 
92
{
 
93
  string s;
 
94
  if (!root_.empty ())
 
95
    s = root_ + ::to_string (ROOTSEP);
 
96
  if (!dir_.empty ())
 
97
    {
 
98
      s += dir_;
 
99
      if (!base_.empty () || !ext_.empty ())
 
100
        s += ::to_string (DIRSEP);
 
101
    }
 
102
  s += base_;
 
103
  if (!ext_.empty ())
 
104
    s += ::to_string (EXTSEP) + ext_;
 
105
  return s;
 
106
}
 
107
 
 
108
File_name::File_name (string file_name)
 
109
{
 
110
#ifdef __CYGWIN__
 
111
  /* All system functions would work, even if we do not convert to
 
112
     posix file_name, but we would think that \foe\bar\baz.ly is in
 
113
     the cwd.  */
 
114
  file_name = dos_to_posix (file_name);
 
115
#endif
 
116
#ifdef __MINGW32__
 
117
  file_name = slashify (file_name);
 
118
#endif
 
119
 
 
120
  ssize i = file_name.find (ROOTSEP);
 
121
  if (i != NPOS)
 
122
    {
 
123
      root_ = file_name.substr (0, i);
 
124
      file_name = file_name.substr (i + 1);
 
125
    }
 
126
 
 
127
  i = file_name.rfind (DIRSEP);
 
128
  if (i != NPOS)
 
129
    {
 
130
      dir_ = file_name.substr (0, i);
 
131
      file_name = file_name.substr (i + 1);
 
132
    }
 
133
 
 
134
  i = file_name.rfind ('.');
 
135
  if (i != NPOS)
 
136
    {
 
137
      base_ = file_name.substr (0, i);
 
138
      ext_ = file_name.substr (i + 1);
 
139
    }
 
140
  else
 
141
    base_ = file_name;
 
142
}
 
143
 
 
144
bool
 
145
File_name::is_absolute () const
 
146
{
 
147
  /*
 
148
    Hmm. Is c:foo absolute?  
 
149
   */
 
150
  return (dir_.length () && dir_[0] == DIRSEP) || root_.length ();
 
151
}
 
152