lilypond-1.1.21
[lilypond.git] / src / midistream.cc
blobf561e0b946bf0659ffb6a48c56cf6a3e2d4b5f69
1 //
2 // midistream.cc
3 //
4 // source file of the LilyPond music typesetter
5 //
6 // (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
8 #include <fstream.h>
9 #include <time.h>
10 #include "main.hh"
11 #include "misc.hh"
12 #include "midiitem.hh"
13 #include "midistream.hh"
14 #include "debug.hh"
16 Midi_stream::Midi_stream( String filename_str, int tracks_i, int clocks_per_4_i )
18 filename_str_ = filename_str;
19 tracks_i_ = tracks_i;
20 clocks_per_4_i_ = clocks_per_4_i;
21 os_p_ = 0;
22 open();
23 header();
26 Midi_stream::~Midi_stream()
28 delete os_p_;
31 Midi_stream&
32 Midi_stream::operator <<( String str )
34 // still debugging...
35 if ( check_debug )
36 str = String_convert::bin2hex_str( str );
37 // string now 1.0.26-2 handles binary streaming
38 *os_p_ << str;
39 return *this;
42 Midi_stream&
43 Midi_stream::operator <<( Midi_item& mitem_r )
45 mitem_r.output_midi( *this );
46 if ( check_debug )
47 *os_p_ << "\n";
48 return *this;
51 Midi_stream&
52 Midi_stream::operator <<( int i )
54 // output binary string ourselves
55 *this << Midi_item::i2varint_str( i );
56 return *this;
59 void
60 Midi_stream::header()
62 // *os_p_ << "% Creator: " << get_version();
63 // *os_p_ << "% Automatically generated, at ";
64 // time_t t(time(0));
65 // *os_p_ << ctime(&t);
67 // 4D 54 68 64 MThd
68 // String str = "MThd";
69 // 00 00 00 06 chunk length
70 // 00 01 format 1
71 // 00 01 one track
72 // 00 60 96 per quarter-note
74 // char const ch_c_l = "0000" "0006" "0001" "0001" "0060";
75 // str += String_convert::hex2bin_str( ch_c_l );
76 // *os_p_ << str;
78 // *this << Midi_header( 1, 1, tempo_i_ );
79 *this << Midi_header( 1, tracks_i_, clocks_per_4_i_ );
82 void
83 Midi_stream::open()
85 os_p_ = new ofstream( filename_str_ );
86 if ( !*os_p_ )
87 error ("can't open `" + filename_str_ + "\'" );