source file of the GNU LilyPond music typesetter
- (c) 1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include <fstream.h>
if (filename.length_i () && (filename != "-"))
os = new ofstream (filename.ch_C ());
else
-// os = new ostream (cout.ostreambuf ());
+ // os = new ostream (cout.ostreambuf ());
os = new ostream (cout._strbuf);
if (!*os)
- error (_f ("can't open file: `%s\'", filename));
+ error (_f ("can't open file: `%s'", filename));
nest_level = 0;
line_len_i_ = 0;
- outputting_comment=false;
+ outputting_comment_b_=false;
}
Paper_stream::~Paper_stream ()
*os << flush;
if (!*os)
{
- warning (_ ("error syncing file (disk full?)"));
+ warning (_ ("Error syncing file (disk full?)"));
exit_status_i_ = 1;
}
delete os;
// print string. don't forget indent.
Paper_stream&
-Paper_stream::operator << (Scalar s)
+Paper_stream::operator << (String s)
{
for (char const *cp = s.ch_C (); *cp; cp++)
{
- if (outputting_comment)
- {
- *os << *cp;
- if (*cp == '\n')
- {
- outputting_comment=false;
-
- }
- continue;
- }
- line_len_i_ ++;
- switch (*cp)
+ if (outputting_comment_b_)
+ {
+ *os << *cp;
+ if (*cp == '\n')
{
- case '%':
- outputting_comment = true;
- *os << *cp;
- break;
- case '{':
- nest_level++;
- *os << *cp;
- break;
- case '}':
- nest_level--;
- *os << *cp;
-
- if (nest_level < 0)
- {
- delete os; // we want to see the remains.
- assert (nest_level>=0);
- }
-
- /* don't break line if not nested; very ugly for ps */
- if (nest_level == 0)
- break;
-
- /* FALLTHROUGH */
-
- case '\n':
- break_line ();
- break;
- case ' ':
- *os << ' ';
- if (line_len_i_ > MAXLINELEN)
- break_line ();
-
- break;
- default:
- *os << *cp;
- break;
- }
+ outputting_comment_b_=false;
+ line_len_i_ =0;
+ }
+ continue;
+ }
+ line_len_i_ ++;
+ switch (*cp)
+ {
+ case '%':
+ outputting_comment_b_ = true;
+ *os << *cp;
+ break;
+ case '{':
+ nest_level++;
+ *os << *cp;
+ break;
+ case '}':
+ nest_level--;
+ *os << *cp;
+
+ if (nest_level < 0)
+ {
+ delete os; // we want to see the remains.
+ assert (nest_level>=0);
+ }
+
+ /* don't break line if not nested; very ugly for ps */
+ if (nest_level == 0)
+ break;
+
+ *os << '%';
+ break_line ();
+ break;
+ case '\n':
+ break_line ();
+ break;
+ case ' ':
+ *os << ' ';
+ if (line_len_i_ > MAXLINELEN)
+ break_line ();
+
+ break;
+ default:
+ *os << *cp;
+ break;
+ }
}
//urg, for debugging only!!
*os << flush;
void
Paper_stream::break_line ()
{
- *os << "%\n";
+ *os << '\n';
*os << to_str (' ', nest_level);
+ outputting_comment_b_ = false;
line_len_i_ = 0;
}