source file of the GNU LilyPond music typesetter
- (c) 1997--2004 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 1997--2005 Jan Nieuwenhuizen <janneke@gnu.org>
*/
+#include "midi-item.hh"
+
#include "warn.hh"
#include "main.hh"
#include "misc.hh"
-#include "string.hh"
#include "string-convert.hh"
-#include "midi-item.hh"
#include "midi-stream.hh"
-#include "audio-item.hh"
#include "duration.hh"
#include "scm-option.hh"
-
#include "killing-cons.tcc"
#define PITCH_WHEEL_TOP 0x3FFF
/*
UGH. don't use eval.
*/
- SCM proc = ly_scheme_function ("midi-program");
+ SCM proc = ly_lily_module_constant ("midi-program");
SCM program = scm_call_1 (proc, ly_symbol2scm (audio_->str_.to_str0 ()));
found = (program != SCM_BOOL_F);
if (found)
String str = Midi_chunk::data_string ();
if (midi_debug_global_b)
str += "\n";
- for (Cons<Midi_event> *i=event_p_list_.head_; i; i = i->next_)
+ for (Cons<Midi_event> *i = event_p_list_.head_; i; i = i->next_)
{
str += i->car_->to_string ();
if (midi_debug_global_b)