lily/sources.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
   6   LilyPond is free software: you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation, either version 3 of the License, or
   9   (at your option) any later version.
  10
  11   LilyPond is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #include "sources.hh"
  21
  22 #include "config.hh"
  23 #include "source-file.hh"
  24 #include "file-name.hh"
  25 #include "file-path.hh"
  26
  27 Sources::Sources ()
  28 {
  29   path_ = 0;
  30 }
  31
  32 Sources::Sources (Sources const &)
  33 {
  34   assert (false);
  35 }
  36
  37 void
  38 Sources::set_path (File_path *f)
  39 {
  40   path_ = f;
  41 }
  42
  43 /**
  44    Open a file. If the name is not absolute, look in CURRENT_DIR first.
  45    Afterwards, check the rest of the path_.
  46
  47    FILE_STRING the name of the file to be opened.
  48    CURRENT_DIR a path to a directory, either absolute or relative to the
  49      working directory.
  50 */
  51 Source_file *
  52 Sources::get_file (string file_string, string const &current_dir)
  53 {
  54   if (file_string != "-")
  55     {
  56       // First, check for a path relative to the directory of the
  57       // file currently being parsed.
  58       if (current_dir.length ()
  59           && file_string.length ()
  60           && !File_name (file_string).is_absolute ()
  61           && is_file (current_dir + DIRSEP + file_string))
  62         file_string = current_dir + DIRSEP + file_string;
  63
  64       // Otherwise, check the rest of the path.
  65       else if (path_)
  66         {
  67           string file_string_o = path_->find (file_string);
  68           if ((file_string_o == "") && (file_string != ""))
  69             return 0;
  70
  71           file_string = file_string_o;
  72         }
  73     }
  74
  75   Source_file *f = new Source_file (file_string);
  76   add (f);
  77   return f;
  78 }
  79
  80 void
  81 Sources::add (Source_file *sourcefile)
  82 {
  83   sourcefiles_.push_back (sourcefile);
  84 }
  85
  86 Sources::~Sources ()
  87 {
  88   for (vsize i = 0; i < sourcefiles_.size (); i++)
  89     {
  90       sourcefiles_[i]->unprotect ();
  91     }
  92 }
  93