/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1999--2014 Jan Nieuwenhuizen <janneke@gnu.org>
+ Copyright (C) 1999--2015 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
get_line (), get_word () here.
*/
-class Source_file
+class Source_file : public Smob<Source_file>
{
+public:
+ 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_;
void init_port ();
void init ();
- DECLARE_SMOBS (Source_file);
public:
Source_file (const string &fn);
Source_file (const string&, const string&);
string name_string () const;
string file_line_column_string (char const *str0) const;
-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 *, int *) const;
vector<char> gulp_file (const string &fn, int desired);
#endif /* SOURCE_FILE_HH */
-