Add penalty to interface.

[lilypond.git] / lily / source.cc

diff --git a/lily/source.cc b/lily/source.cc
index c4dde1cd141882ed606d342084d7d31cfe1dcbdb..927469cc287a8ec4561b1e31fbad72ce03cc77f4 100644 (file)
--- a/lily/source.cc
+++ b/lily/source.cc
@@ -3,7 +3,7 @@
 
   source file of the LilyPond music typesetter
 
-  (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 
@@ -18,21 +18,21 @@
 
 Sources::Sources ()
 {
-  sourcefile_p_list_ = 0;
-  path_C_= 0;
-  binary_b_ = false;
+  sourcefile_list_ = 0;
+  path_= 0;
+  is_binary_ = false;
 }
 
 void
 Sources::set_binary (bool bo)
 {
-  binary_b_ = bo;
+  is_binary_ = bo;
 }
 
 void
 Sources::set_path (File_path *f)
 {
-  path_C_ = f;
+  path_ = f;
 }
 
 /**
@@ -46,9 +46,9 @@ Sources::set_path (File_path *f)
 Source_file*
 Sources::get_file (String &file_string) //UGH
 {
-  if ((file_string != "-") && path_C_)
+  if ((file_string != "-") && path_)
     {
-      String file_string_o = path_C_->find (file_string); 
+      String file_string_o = path_->find (file_string); 
       if ((file_string_o == "") && (file_string != ""))
        return 0;
       file_string = file_string_o;
@@ -61,12 +61,12 @@ Sources::get_file (String &file_string) //UGH
 void
 Sources::add (Source_file* sourcefile)
 {
-  sourcefile_p_list_ = new Killing_cons<Source_file> (sourcefile, sourcefile_p_list_);
+  sourcefile_list_ = new Killing_cons<Source_file> (sourcefile, sourcefile_list_);
 }
 
 Sources::~Sources ()
 {
-  delete sourcefile_p_list_;
+  delete sourcefile_list_;
 }
 /**
   search the list for file whose map contains pointer #str0#
@@ -77,8 +77,8 @@ Source_file*
 Sources::get_sourcefile (char const* str0)
 {
 
-  for (Cons<Source_file> *i = sourcefile_p_list_; i; i = i->next_)
-    if (i->car_->in_b (str0))  
+  for (Cons<Source_file> *i = sourcefile_list_; i; i = i->next_)
+    if (i->car_->contains (str0))      
       return i->car_;
   return 0;
 }