Run `make grand-replace'.

[lilypond.git] / lily / include / source-file.hh

diff --git a/lily/include/source-file.hh b/lily/include/source-file.hh
index 546367244685b70f19a4d6942ada64c867346d99..6b5ccacb04a9a8cd22b36cf162438c9fb5a1e58e 100644 (file)
--- a/lily/include/source-file.hh
+++ b/lily/include/source-file.hh
@@ -3,21 +3,19 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1999--2006 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c) 1999--2008 Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #ifndef SOURCE_FILE_HH
 #define SOURCE_FILE_HH
 
-#include "std-string.hh"
 #include "std-vector.hh"
 #include "lily-proto.hh"
+#include "smobs.hh"
 
 #include <iostream>
 using namespace std;
 
-#include "protected-scm.hh"
-
 /**
    class for reading and mapping a file.
 
@@ -28,58 +26,43 @@ using namespace std;
 
 class Source_file
 {
+  vector<char const*> newline_locations_;
+  istream *istream_;
+  vector<char> characters_;
+  SCM str_port_;
+
+  void load_stdin ();
+  void init_port ();
+  void init ();
+  
+  DECLARE_SMOBS (Source_file);
 public:
   Source_file (string fn);
   Source_file (string, string);
 
-  virtual ~Source_file ();
-
   char const *c_str () const;
   virtual string quote_input (char const *pos_str0) const;
   istream *get_istream ();
   bool contains (char const *pos_str0) const;
   int length () const;
   virtual int get_line (char const *pos_str0) const;
+  void set_line (char const *pos_str0, int i);
   string name_string () const;
   string file_line_column_string (char const *str0) const;
 
-  // return start + n
-  char const *seek_str0 (int n);
-
-  int tell () const;
-  // return here + n bytes
-  char const *forward_str0 (int n);
-  char const *pos_str0 () { return pos_str0_; }
-  string get_string (int n);
-  void set_pos (char const *pos_str0);
 public:
   Slice line_slice (char const *pos_str0) const;
   string line_string (char const *pos_str0) const;
   void get_counts (char const *pos_str0, int *, int *, int *) const;
-
-  /*
-    JUNKME.
-
-    This thing doubles as a file-storage/file-iterator object.
-  */
-  char const *pos_str0_;
-
+  
   SCM get_port () const;
   string name_;
 
-private:
-  vector<char*> newline_locations_;
-  istream *istream_;
-  char *contents_str0_;
-  vector<char> chs_;
-  int length_;
-  void load_stdin ();
-  void init_port ();
-
-  Protected_scm str_port_;
+protected:
+  int line_offset_;
 };
 
-char *gulp_file (string fn, int *len);
+vector<char> gulp_file (string fn, int desired);
 
 #endif /* SOURCE_FILE_HH */