source file of the GNU LilyPond music typesetter
- (c) 1999--2006 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 1999--2009 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#ifndef SOURCE_FILE_HH
#define SOURCE_FILE_HH
-#include "flower-proto.hh"
#include "std-vector.hh"
#include "lily-proto.hh"
-#include "protected-scm.hh"
+#include "smobs.hh"
#include <iostream>
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 ();
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_;
protected:
int line_offset_;
-
-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_;
};
-char *gulp_file (string fn, int *len);
+vector<char> gulp_file (string fn, int desired);
#endif /* SOURCE_FILE_HH */