X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fsource-file.hh;h=fc5bf2f54111c83b1bcf35aa8f9c7d5bd3526549;hb=ef9512388b15e1e5e2b3592299ffe489ac43abb4;hp=42a2be56b2514d1755e2cf2a7fbbe468c7f00bf4;hpb=9d4a5bbc9687aef811a60aabd9cb839412984e96;p=lilypond.git

diff --git a/lily/include/source-file.hh b/lily/include/source-file.hh
index 42a2be56b2..fc5bf2f541 100644
--- a/lily/include/source-file.hh
+++ b/lily/include/source-file.hh
@@ -1,23 +1,32 @@
 /*
-  source-file.hh -- declare Source_file
+  This file is part of LilyPond, the GNU music typesetter.
 
-  source file of the GNU LilyPond music typesetter
+  Copyright (C) 1999--2015 Jan Nieuwenhuizen <janneke@gnu.org>
 
-  (c) 1999--2006 Jan Nieuwenhuizen <janneke@gnu.org>
+  LilyPond is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  LilyPond is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 */
 
 #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.
 
@@ -26,60 +35,48 @@ using namespace std;
    get_line (), get_word () here.
 */
 
-class Source_file
+class Source_file : public Smob<Source_file>
 {
 public:
-  Source_file (std::string fn);
-  Source_file (std::string, std::string);
-
+  int print_smob (SCM, scm_print_state *) const;
+  SCM mark_smob () const;
+  static const char * const type_p_name_;
   virtual ~Source_file ();
+private:
+  vector<char const *> newline_locations_;
+  istream *istream_;
+  vector<char> characters_;
+  SCM str_port_;
+
+  void load_stdin ();
+  void init_port ();
+  void init ();
+
+public:
+  Source_file (const string &fn);
+  Source_file (const string&, const string&);
 
   char const *c_str () const;
-  virtual std::string quote_input (char const *pos_str0) 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;
-  std::string name_string () const;
-  std::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_; }
-  std::string get_string (int n);
-  void set_pos (char const *pos_str0);
-public:
-  Slice line_slice (char const *pos_str0) const;
-  std::string line_string (char const *pos_str0) const;
-  void get_counts (char const *pos_str0, int *, int *, int *) const;
-
-  /*
-    JUNKME.
+  void set_line (char const *pos_str0, int i);
+  string name_string () const;
+  string file_line_column_string (char const *str0) const;
 
-    This thing doubles as a file-storage/file-iterator object.
-  */
-  char const *pos_str0_;
+  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 *, int *) const;
 
   SCM get_port () const;
-  std::string name_;
-
-private:
-  Link_array__char_ newline_locations_;
-  istream *istream_;
-  char *contents_str0_;
-  std::vector<char> chs_;
-  int length_;
-  void load_stdin ();
-  void init_port ();
+  string name_;
 
-  Protected_scm str_port_;
+protected:
+  int line_offset_;
 };
 
-char *gulp_file (std::string fn, int *len);
+vector<char> gulp_file (const string &fn, int desired);
 
 #endif /* SOURCE_FILE_HH */
-