]> git.donarmstrong.com Git - lilypond.git/blob - flower/file-name.cc
Web-fr: updates essay, community and manuals
[lilypond.git] / flower / file-name.cc
1 /*
2   This file is part of LilyPond, the GNU music typesetter.
3
4   Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
5   Jan Nieuwenhuizen <janneke@gnu.org>
6
7   LilyPond is free software: you can redistribute it and/or modify
8   it under the terms of the GNU General Public License as published by
9   the Free Software Foundation, either version 3 of the License, or
10   (at your option) any later version.
11
12   LilyPond is distributed in the hope that it will be useful,
13   but WITHOUT ANY WARRANTY; without even the implied warranty of
14   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15   GNU General Public License for more details.
16
17   You should have received a copy of the GNU General Public License
18   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
19 */
20
21 #include "file-name.hh"
22
23 #include <cstdio>
24 #include <cerrno>
25 #include <unistd.h>
26 #include <limits.h>
27
28 using namespace std;
29
30 #include "config.hh"
31
32 #if HAVE_SYS_STAT_H
33 #include <sys/stat.h>
34 #endif
35
36 #ifdef __CYGWIN__
37 #include <sys/cygwin.h>
38 #endif
39
40 #ifndef ROOTSEP
41 #define ROOTSEP ':'
42 #endif
43
44 #ifndef DIRSEP
45 #define DIRSEP '/'
46 #endif
47
48 #ifndef EXTSEP
49 #define EXTSEP '.'
50 #endif
51
52 #ifdef __CYGWIN__
53 static string
54 dos_to_posix (const string &file_name)
55 {
56   char buf[PATH_MAX] = "";
57   char s[PATH_MAX] = {0};
58   file_name.copy (s, PATH_MAX - 1);
59   /* ugh: char const* argument gets modified.  */
60   int fail = cygwin_conv_to_posix_path (s, buf);
61   if (!fail)
62     return buf;
63   return file_name;
64 }
65 #endif /* __CYGWIN__ */
66
67 /** Use slash as directory separator.  On Windows, they can pretty
68     much be exchanged.  */
69 #if 0
70 static /* avoid warning */
71 #endif
72 string
73 slashify (string file_name)
74 {
75   replace_all (&file_name, '\\', '/');
76   replace_all (&file_name, string ("//"), "/");
77   return file_name;
78 }
79
80 string
81 dir_name (const string &file_name)
82 {
83   string s = file_name;
84   s = slashify (s);
85   ssize n = s.length ();
86   if (n && s[n - 1] == '/')
87     s[n - 1] = 0;
88   if (s.rfind ('/') != NPOS)
89     s = s.substr (0, s.rfind ('/'));
90   else
91     s = "";
92
93   return s;
94 }
95
96 string
97 get_working_directory ()
98 {
99   char cwd[PATH_MAX];
100   // getcwd returns NULL upon a failure, contents of cwd would be undefined!
101   return string (getcwd (cwd, PATH_MAX));
102 }
103
104 /* Join components to full file_name. */
105 string
106 File_name::dir_part () const
107 {
108   string s;
109   if (!root_.empty ())
110     s = root_ + ::to_string (ROOTSEP);
111
112   if (!dir_.empty ())
113     {
114       s += dir_;
115     }
116
117   return s;
118 }
119
120 string
121 File_name::file_part () const
122 {
123   string s;
124   s = base_;
125   if (!ext_.empty ())
126     s += ::to_string (EXTSEP) + ext_;
127   return s;
128 }
129
130 string
131 File_name::to_string () const
132 {
133   string d = dir_part ();
134   string f = file_part ();
135
136   if (!f.empty ()
137       && !dir_.empty ())
138     {
139       d += ::to_string (DIRSEP);
140     }
141
142   return d + f;
143 }
144
145 File_name::File_name (string file_name)
146 {
147 #ifdef __CYGWIN__
148   /* All system functions would work, even if we do not convert to
149      posix file_name, but we would think that \foe\bar\baz.ly is in
150      the cwd.  */
151   file_name = dos_to_posix (file_name);
152 #endif
153 #ifdef __MINGW32__
154   file_name = slashify (file_name);
155 #endif
156
157   ssize i = file_name.find (ROOTSEP);
158   if (i != NPOS)
159     {
160       root_ = file_name.substr (0, i);
161       file_name = file_name.substr (i + 1);
162     }
163
164   i = file_name.rfind (DIRSEP);
165   if (i != NPOS)
166     {
167       dir_ = file_name.substr (0, i);
168       file_name = file_name.substr (i + 1);
169     }
170
171   i = file_name.rfind ('.');
172   if (i != NPOS)
173     {
174       base_ = file_name.substr (0, i);
175       ext_ = file_name.substr (i + 1);
176     }
177   else
178     base_ = file_name;
179 }
180
181 bool
182 File_name::is_absolute () const
183 {
184   /*
185     Hmm. Is c:foo absolute?
186    */
187   return (dir_.length () && dir_[0] == DIRSEP) || root_.length ();
188 }
189
190 File_name
191 File_name::canonicalized () const
192 {
193   File_name c = *this;
194
195   replace_all (&c.dir_, string ("//"), string ("/"));
196
197   vector<string> components = string_split (c.dir_, '/');
198   vector<string> new_components;
199
200   for (vsize i = 0; i < components.size (); i++)
201     {
202       if (components[i] == "..")
203         new_components.pop_back ();
204       else
205         new_components.push_back (components[i]);
206     }
207
208   c.dir_ = string_join (new_components, "/");
209   return c;
210 }