lib/source.cc

   1 /*
   2   source.cc -- implement Sources
   3
   4   source file of the LilyPond music typesetter
   5
   6   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
   7 */
   8
   9
  10 #include <assert.h>
  11
  12 #include "binary-source-file.hh"
  13 #include "string.hh"
  14 #include "proto.hh"
  15 #include "plist.hh"
  16 #include "source-file.hh"
  17 #include "source.hh"
  18 #include "path.hh"
  19
  20 Sources::Sources()
  21 {
  22     path_C_= 0;
  23     binary_b_ = false;
  24 }
  25
  26 void
  27 Sources::set_binary(bool bo)
  28 {
  29         binary_b_ = bo;
  30 }
  31
  32 void
  33 Sources::set_path(File_path *f_C)
  34 {
  35     path_C_ = f_C;
  36 }
  37
  38 /**
  39   open a file
  40
  41   @param file_str the file to be opened, name might be changed if it
  42   is found in a search path. UGH!
  43
  44   @return 0 if no file found
  45   */
  46 Source_file*
  47 Sources::get_file_l(String &file_str ) //UGH
  48 {
  49     if (path_C_)
  50       {
  51         String file_str_o = path_C_->find(file_str);
  52         if ( ( file_str_o == "" ) && ( file_str != "" ) )
  53             return 0;
  54         file_str = file_str_o;
  55       }
  56     Source_file * f_p= (!binary_b_) ?
  57         new Source_file(file_str) : new Binary_source_file(file_str);
  58     add(f_p);
  59     return f_p;
  60 }
  61
  62 void
  63 Sources::add( Source_file* sourcefile_p )
  64 {
  65     sourcefile_p_list_.bottom().add( sourcefile_p );
  66 }
  67
  68 /**
  69   search the list for file whose map contains pointer #ch_C#
  70
  71   @return 0 if not found.
  72   */
  73 Source_file*
  74 Sources::sourcefile_l( char const* ch_C )
  75 {
  76     PCursor<Source_file*> sourcefile_l_pcur( sourcefile_p_list_.top() );
  77     for ( ; sourcefile_l_pcur.ok(); sourcefile_l_pcur++ )
  78         if ( sourcefile_l_pcur->in_b( ch_C ) )
  79             return *sourcefile_l_pcur;
  80     return 0;
  81 }
  82