/*
- midi.c -- implement Python midi parser module
+ This file is part of LilyPond, the GNU music typesetter.
- source file of the GNU LilyPond music typesetter
-
- (c) 2001--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 2001--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
Jan Nieuwenhuizen <janneke@gnu.org>
+
+ LilyPond is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ LilyPond is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
*/
/*
returns a MIDI file as the tuple
- (format, division, TRACKLIST)
+ ((format, division), TRACKLIST)
each track is an EVENTLIST, where EVENT is
#include <Python.h>
+char *
+compat_itoa (int i)
+{
+ static char buffer[9];
+ snprintf (buffer, 8, "%d", i);
+ return buffer;
+}
+
/* PyMIDINIT_FUNC isn't defined in Python < 2.3 */
#ifndef PyMODINIT_FUNC
# if defined(__cplusplus)
#if 0
int x = 0;
int *track = &x;
-#define debug_print(f, args...) fprintf (stderr, "%s:%d: track: %p :" f, __FUNCTION__, __LINE__, *track, ##args)
+#define urg_debug_print(f, args...) fprintf (stderr, "%s:%d: track: %p: " f, __FUNCTION__, __LINE__, *track, ##args)
+#define debug_print(f, args...) fprintf (stderr, f, ##args)
#else
#define debug_print(f, args...)
#endif
static PyObject *Midi_warning;
static PyObject *
-midi_error (char const *func, char *s)
+midi_error (char const *func, char *s, char *t)
{
- char *dest = (char*) malloc (sizeof (char) * (strlen (func) + strlen (s) + 1));
+ char *dest = (char*) malloc (sizeof (char)
+ * (strlen (func) + strlen (s) + strlen (t) + 1));
strcpy (dest, func);
strcat (dest, s);
+ strcat (dest, t);
PyErr_SetString (Midi_error, dest);
free (dest);
sum = (sum << 8) + (unsigned char) (*str)[i];
*str += length;
- debug_print ("%d:\n", sum);
+ debug_print ("%ld:\n", sum);
return sum;
}
if (!(x & 0x80))
break;
}
- debug_print ("%d:\n", sum);
+ debug_print ("%ld:\n", sum);
return sum;
}
}
static PyObject *
-midi_parse_track (unsigned char **track, unsigned char *track_end)
+midi_parse_track (unsigned char **track, unsigned char *track_end, int clocks_max)
{
unsigned int time = 0;
unsigned long track_len, track_size;
debug_print ("%s", "\n");
if (memcmp (*track, "MTrk", 4))
- return midi_error (__FUNCTION__, ": MTrk expected");
+ {
+ *track[4] = 0;
+ return midi_error (__FUNCTION__, ": MTrk expected, got: ", *(char**)track);
+ }
*track += 4;
track_len = get_number (track, *track + 4, 4);
-
- debug_print ("track_len: %u\n", track_len);
- debug_print ("track_size: %u\n", track_size);
+ debug_print ("track_len: %lu\n", track_len);
+ debug_print ("track_size: %lu\n", track_size);
debug_print ("track begin: %p\n", track);
debug_print ("track end: %p\n", track + track_len);
if (track_len > track_size)
- return midi_error (__FUNCTION__, ": track size corrupt");
+ return midi_error (__FUNCTION__, ": track length corrupt: ", compat_itoa (track_len));
pytrack = PyList_New (0);
time += dt;
if (dt)
pytime = PyInt_FromLong (time);
-
+ if (clocks_max && time > clocks_max)
+ break;
pyev = read_event (track, track_end, pytime,
&running_status);
if (pyev)
{
unsigned char *track, *track_end;
unsigned long track_size;
+ int clocks_max;
debug_print ("%s", "\n");
- if (!PyArg_ParseTuple (args, "s#", &track, &track_size))
+ if (!PyArg_ParseTuple (args, "s#|i", &track, &track_size, &clocks_max))
return 0;
+ debug_print ("clocks_max: %d\n", clocks_max);
if (track_size < 0)
- return midi_error (__FUNCTION__, ": negative track size");
+ return midi_error (__FUNCTION__, ": negative track size: ", compat_itoa (track_size));
track_end = track + track_size;
- return midi_parse_track (&track, track_end);
+ return midi_parse_track (&track, track_end, clocks_max);
}
static PyObject *
-midi_parse (unsigned char **midi,unsigned char *midi_end)
+midi_parse (unsigned char **midi,unsigned char *midi_end, int clocks_max)
{
PyObject *pymidi = 0;
unsigned long header_len;
header_len = get_number (midi, *midi + 4, 4);
if (header_len < 6)
- return midi_error (__FUNCTION__, ": header too short");
+ return midi_error (__FUNCTION__, ": header too short: ", compat_itoa (header_len));
format = get_number (midi, *midi + 2, 2);
tracks = get_number (midi, *midi + 2, 2);
- if (tracks > 32)
- return midi_error (__FUNCTION__, ": too many tracks");
+ if (tracks > 256)
+ return midi_error (__FUNCTION__, ": too many tracks: ", compat_itoa (tracks));
division = get_number (midi, *midi + 2, 2) * 4;
/* Tracks */
for (i = 0; i < tracks; i++)
- PyList_Append (pymidi, midi_parse_track (midi, midi_end));
+ PyList_Append (pymidi, midi_parse_track (midi, midi_end, clocks_max));
pymidi = Py_BuildValue ("(OO)", Py_BuildValue ("(ii)", format, division),
pymidi);
{
unsigned char *midi, *midi_end;
unsigned long midi_size;
+ int clocks_max;
debug_print ("%s", "\n");
- if (!PyArg_ParseTuple (args, "s#", &midi, &midi_size))
+ if (!PyArg_ParseTuple (args, "s#|i", &midi, &midi_size, &clocks_max))
return 0;
+ debug_print ("clocks_max: %d\n", clocks_max);
if (memcmp (midi, "MThd", 4))
- return midi_error (__FUNCTION__, ": MThd expected");
-
+ {
+ midi[4] = 0;
+ return midi_error (__FUNCTION__, ": MThd expected, got: ", (char*)midi);
+ }
+
midi += 4;
midi_end = midi + midi_size;
- return midi_parse (&midi, midi_end);
+ return midi_parse (&midi, midi_end, clocks_max);
}
-
static PyMethodDef MidiMethods[] =
{
- {"parse", pymidi_parse, 1},
- {"parse_track", pymidi_parse_track, 1},
+ {"parse", pymidi_parse, METH_VARARGS},
+ {"parse_track", pymidi_parse_track, METH_VARARGS},
{0, 0} /* Sentinel */
};