lily/midi-stream.cc

   1 /*
   2   midi-stream.cc -- implement Midi_stream
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997--2004 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9
  10 #include "stream.hh"
  11 #include "string.hh"
  12 #include "string-convert.hh"
  13 #include "main.hh"
  14 #include "misc.hh"
  15 #include "midi-item.hh"
  16 #include "midi-stream.hh"
  17 #include "warn.hh"
  18 #include "scm-option.hh"
  19
  20 Midi_stream::Midi_stream (String filename)
  21 {
  22   filename_string_ = filename;
  23   out_file_ = fopen (filename.to_str0(), "wb");
  24 }
  25
  26 Midi_stream::~Midi_stream ()
  27 {
  28   fclose (out_file_);
  29 }
  30
  31 Midi_stream&
  32 Midi_stream::operator << (String str)
  33 {
  34   size_t sz = sizeof (Byte);
  35   size_t n = str.length ();
  36   size_t written = fwrite (str.get_bytes (),
  37                            sz, n, out_file_);
  38
  39   if (written != sz * n)
  40     warning (_ ("Could not write file. Disk full?"));
  41
  42   return *this;
  43 }
  44
  45 Midi_stream&
  46 Midi_stream::operator << (Midi_item const& midi_c_r)
  47 {
  48   String str = midi_c_r.to_string ();
  49
  50   // ugh, should have separate debugging output with Midi*::print routines
  51   if (midi_debug_global_b)
  52     {
  53       str = String_convert::bin2hex (str) + "\n";
  54       for (int i = str.index ("0a"); i >= 0; i = str.index ("0a"))
  55         {
  56           str[i] = '\n';
  57           str[i + 1] = '\t';
  58         }
  59     }
  60
  61   return operator << (str);
  62 }
  63
  64 Midi_stream&
  65 Midi_stream::operator << (int i)
  66 {
  67   // output binary string ourselves
  68   *this << Midi_item::i2varint_string (i);
  69   return *this;
  70 }
  71