X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmidi-stream.cc;h=cbfe7075f18401ad05ed67070c306a1cbc70fea9;hb=b55303a78f027962dbebf62dbe396325f3b6e1a5;hp=f84544976fd6f0d6bb110cb34debb876d30af0ed;hpb=0cf4bbf50c047647e1542636394480d04485de76;p=lilypond.git diff --git a/lily/midi-stream.cc b/lily/midi-stream.cc index f84544976f..cbfe7075f1 100644 --- a/lily/midi-stream.cc +++ b/lily/midi-stream.cc @@ -1,11 +1,13 @@ -// -// midi-stream.cc -// -// source file of the GNU LilyPond music typesetter -// -// (c) 1997--2000 Jan Nieuwenhuizen +/* + midi-stream.cc -- implement Midi_stream -#include + source file of the GNU LilyPond music typesetter + + (c) 1997--2002 Jan Nieuwenhuizen +*/ + + +#include "stream.hh" #include "string.hh" #include "string-convert.hh" #include "main.hh" @@ -13,23 +15,21 @@ #include "midi-item.hh" #include "midi-stream.hh" #include "debug.hh" +#include "scm-option.hh" -Midi_stream::Midi_stream (String filename_str) +Midi_stream::Midi_stream (String filename) { - filename_str_ = filename_str; - os_p_ = 0; - open (); + filename_str_ = filename; +#if __GCC__ > 2 + os_p_ = open_file_stream (filename, ios::out|ios::bin); +#else + os_p_ = open_file_stream (filename, ios::out|ios::binary); +#endif } Midi_stream::~Midi_stream () { - *os_p_ << flush; // ugh. Share with tex_stream. - if (!*os_p_) - { - warning (_ ("Error syncing file (disk full?)")); - exit_status_i_ = 1; - } - delete os_p_; + close_file_stream (os_p_); } Midi_stream& @@ -42,11 +42,12 @@ Midi_stream::operator << (String str) Midi_stream& Midi_stream::operator << (Midi_item const& midi_c_r) { -// *this <silent_b ("Midistrings")) + + + if (midi_debug_global_b) { - str = String_convert::bin2hex_str (str) + "\n"; + str = String_convert::bin2hex_str (str) + "\n"; // ugh, should have separate debugging output with Midi*::print routines int i = str.index_i ("0a"); while (i >= 0) @@ -69,10 +70,3 @@ Midi_stream::operator << (int i) return *this; } -void -Midi_stream::open () -{ - os_p_ = new ofstream (filename_str_.ch_C (),ios::out|ios::bin); - if (!*os_p_) - error (_f ("can't open file: `%s'", filename_str_)); -}