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--2003 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     {
  41       warning ("Could not write file. Disk full?");
  42     }
  43
  44   return *this;
  45 }
  46
  47 Midi_stream&
  48 Midi_stream::operator << (Midi_item const& midi_c_r)
  49 {
  50   String str = midi_c_r.to_string ();
  51
  52   // ugh, should have separate debugging output with Midi*::print routines
  53   if (midi_debug_global_b)
  54     {
  55       str = String_convert::bin2hex (str) + "\n";
  56       for (int i = str.index ("0a"); i >= 0; i = str.index ("0a"))
  57         {
  58           str[i] = '\n';
  59           str[i + 1] = '\t';
  60         }
  61     }
  62
  63   return operator << (str);
  64 }
  65
  66 Midi_stream&
  67 Midi_stream::operator << (int i)
  68 {
  69   // output binary string ourselves
  70   *this << Midi_item::i2varint_string (i);
  71   return *this;
  72 }
  73