From 905cd5e70f449738c953ff84a0c935f9c0e4828e Mon Sep 17 00:00:00 2001 From: David Robillard Date: Mon, 13 Aug 2012 20:22:15 +0000 Subject: Move SMF stuff from Raul to Machina. git-svn-id: http://svn.drobilla.net/lad/trunk/raul@4683 a436a847-0d15-0410-975c-d299462d15a1 --- src/SMFReader.cpp | 311 ------------------------------------------------------ src/SMFWriter.cpp | 235 ----------------------------------------- 2 files changed, 546 deletions(-) delete mode 100644 src/SMFReader.cpp delete mode 100644 src/SMFWriter.cpp (limited to 'src') diff --git a/src/SMFReader.cpp b/src/SMFReader.cpp deleted file mode 100644 index 0474f88..0000000 --- a/src/SMFReader.cpp +++ /dev/null @@ -1,311 +0,0 @@ -/* - This file is part of Raul. - Copyright 2007-2012 David Robillard - - Raul 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 any later version. - - Raul 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 Raul. If not, see . -*/ - -#include - -#include -#include -#include -#include - -#include "raul/log.hpp" -#include "raul/SMFReader.hpp" -#include "raul/midi_events.h" - -using std::endl; - -namespace Raul { - -/** Return the size of the given event NOT including the status byte, - * or -1 if unknown (eg sysex) - */ -static int -midi_event_size(unsigned char status) -{ - if (status >= 0x80 && status <= 0xE0) { - status &= 0xF0; // mask off the channel - } - - switch (status) { - case MIDI_CMD_NOTE_OFF: - case MIDI_CMD_NOTE_ON: - case MIDI_CMD_NOTE_PRESSURE: - case MIDI_CMD_CONTROL: - case MIDI_CMD_BENDER: - case MIDI_CMD_COMMON_SONG_POS: - return 2; - - case MIDI_CMD_PGM_CHANGE: - case MIDI_CMD_CHANNEL_PRESSURE: - case MIDI_CMD_COMMON_MTC_QUARTER: - case MIDI_CMD_COMMON_SONG_SELECT: - return 1; - - case MIDI_CMD_COMMON_TUNE_REQUEST: - case MIDI_CMD_COMMON_SYSEX_END: - case MIDI_CMD_COMMON_CLOCK: - case MIDI_CMD_COMMON_START: - case MIDI_CMD_COMMON_CONTINUE: - case MIDI_CMD_COMMON_STOP: - case MIDI_CMD_COMMON_SENSING: - case MIDI_CMD_COMMON_RESET: - return 0; - - case MIDI_CMD_COMMON_SYSEX: - return -1; - } - - return -1; -} - -SMFReader::SMFReader(const std::string filename) - : _fd(NULL) - , _ppqn(0) - , _track(0) - , _track_size(0) -{ - if (filename.length() > 0) - open(filename); -} - -SMFReader::~SMFReader() -{ - if (_fd) - close(); -} - -bool -SMFReader::open(const std::string& filename) throw (std::logic_error, UnsupportedTime) -{ - if (_fd) - throw std::logic_error("Attempt to start new read while write in progress."); - - info << "Opening SMF file " << filename << " for reading." << endl; - - _fd = fopen(filename.c_str(), "r+"); - - if (_fd) { - // Read type (bytes 8..9) - fseek(_fd, 0, SEEK_SET); - char mthd[5]; - mthd[4] = '\0'; - fread(mthd, 1, 4, _fd); - if (strcmp(mthd, "MThd")) { - error << filename << " is not an SMF file, aborting." << endl; - fclose(_fd); - _fd = NULL; - return false; - } - - // Read type (bytes 8..9) - fseek(_fd, 8, SEEK_SET); - uint16_t type_be = 0; - fread(&type_be, 2, 1, _fd); - _type = GUINT16_FROM_BE(type_be); - - // Read number of tracks (bytes 10..11) - uint16_t num_tracks_be = 0; - fread(&num_tracks_be, 2, 1, _fd); - _num_tracks = GUINT16_FROM_BE(num_tracks_be); - - // Read PPQN (bytes 12..13) - uint16_t ppqn_be = 0; - fread(&ppqn_be, 2, 1, _fd); - _ppqn = GUINT16_FROM_BE(ppqn_be); - - // TODO: Absolute (SMPTE seconds) time support - if ((_ppqn & 0x8000) != 0) - throw UnsupportedTime(); - - seek_to_track(1); - - return true; - } else { - return false; - } -} - -/** Seek to the start of a given track, starting from 1. - * Returns true if specified track was found. - */ -bool -SMFReader::seek_to_track(unsigned track) throw (std::logic_error) -{ - if (track == 0) - throw std::logic_error("Seek to track 0 out of range (must be >= 1)"); - - if (!_fd) - throw std::logic_error("Attempt to seek to track on unopened SMF file."); - - unsigned track_pos = 0; - - fseek(_fd, 14, SEEK_SET); - char id[5]; - id[4] = '\0'; - uint32_t chunk_size = 0; - - while (!feof(_fd)) { - fread(id, 1, 4, _fd); - - if (!strcmp(id, "MTrk")) { - ++track_pos; - } else { - error << "Unknown chunk ID " << id << endl; - } - - uint32_t chunk_size_be; - fread(&chunk_size_be, 4, 1, _fd); - chunk_size = GUINT32_FROM_BE(chunk_size_be); - - if (track_pos == track) - break; - - fseek(_fd, chunk_size, SEEK_CUR); - } - - if (!feof(_fd) && track_pos == track) { - _track = track; - _track_size = chunk_size; - return true; - } else { - return false; - } -} - -/** Read an event from the current position in file. - * - * File position MUST be at the beginning of a delta time, or this will die very messily. - * ev.buffer must be of size ev.size, and large enough for the event. The returned event - * will have it's time field set to it's delta time (so it's the caller's responsibility - * to keep track of delta time, even for ignored events). - * - * Returns event length (including status byte) on success, 0 if event was - * skipped (eg a meta event), or -1 on EOF (or end of track). - * - * If @a buf is not large enough to hold the event, 0 will be returned, but ev_size - * set to the actual size of the event. - */ -int -SMFReader::read_event(size_t buf_len, - uint8_t* buf, - uint32_t* ev_size, - uint32_t* delta_time) - throw (std::logic_error, PrematureEOF, CorruptFile) -{ - if (_track == 0) - throw std::logic_error("Attempt to read from unopened SMF file"); - - if (!_fd || feof(_fd)) { - return -1; - } - - assert(buf_len > 0); - assert(buf); - assert(ev_size); - assert(delta_time); - - // Running status state - static uint8_t last_status = 0; - static uint32_t last_size = 0; - - *delta_time = read_var_len(_fd); - int status = fgetc(_fd); - if (status == EOF) - throw PrematureEOF(); - else if (status > 0xFF) - throw CorruptFile(); - - if (status < 0x80) { - if (last_status == 0) - throw CorruptFile(); - status = last_status; - *ev_size = last_size; - fseek(_fd, -1, SEEK_CUR); - } else { - last_status = status; - *ev_size = midi_event_size(status) + 1; - last_size = *ev_size; - } - - buf[0] = static_cast(status); - - if (status == 0xFF) { - *ev_size = 0; - if (feof(_fd)) - throw PrematureEOF(); - uint8_t type = fgetc(_fd); - const uint32_t size = read_var_len(_fd); - - if (type == 0x2F) { - return -1; // we hit the logical EOF anyway... - } else { - fseek(_fd, size, SEEK_CUR); - return 0; - } - } - - if (*ev_size > buf_len || *ev_size == 0 || feof(_fd)) { - // Skip event, return 0 - fseek(_fd, *ev_size - 1, SEEK_CUR); - return 0; - } else { - // Read event, return size - if (ferror(_fd)) - throw CorruptFile(); - - fread(buf+1, 1, *ev_size - 1, _fd); - - if ((buf[0] & 0xF0) == 0x90 && buf[2] == 0) { - buf[0] = (0x80 | (buf[0] & 0x0F)); - buf[2] = 0x40; - } - - return *ev_size; - } -} - -void -SMFReader::close() -{ - if (_fd) - fclose(_fd); - - _fd = NULL; -} - -uint32_t -SMFReader::read_var_len(FILE* fd) throw (PrematureEOF) -{ - if (feof(fd)) - throw PrematureEOF(); - - uint32_t value; - uint8_t c; - - if ( (value = getc(fd)) & 0x80 ) { - value &= 0x7F; - do { - if (feof(fd)) - throw PrematureEOF(); - value = (value << 7) + ((c = getc(fd)) & 0x7F); - } while (c & 0x80); - } - - return value; -} - -} // namespace Raul - diff --git a/src/SMFWriter.cpp b/src/SMFWriter.cpp deleted file mode 100644 index f3a9043..0000000 --- a/src/SMFWriter.cpp +++ /dev/null @@ -1,235 +0,0 @@ -/* - This file is part of Raul. - Copyright 2007-2012 David Robillard - - Raul 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 any later version. - - Raul 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 Raul. If not, see . -*/ - -#include -#include -#include - -#include -#include -#include -#include -#include - -#include "raul/log.hpp" -#include "raul/SMFWriter.hpp" - -using std::endl; - -namespace Raul { - -/** Create a new SMF writer. - * - * @a unit must match the time stamp of ALL events passed to write, or - * terrible things will happen. - * - * *** NOTE: Only beat time is implemented currently. - */ -SMFWriter::SMFWriter(TimeUnit unit) - : _fd(NULL) - , _unit(unit) - , _start_time(unit, 0, 0) - , _last_ev_time(unit, 0, 0) - , _track_size(0) - , _header_size(0) -{ - if (unit.type() == TimeUnit::BEATS) - assert(unit.ppt() < std::numeric_limits::max()); -} - -SMFWriter::~SMFWriter() -{ - if (_fd) - finish(); -} - -/** Start a write to an SMF file. - * - * @a filename Filename to write to. - * @a start_time Beat time corresponding to t=0 in the file (timestamps passed - * to write_event will have this value subtracted before writing). - */ -bool -SMFWriter::start(const std::string& filename, - Raul::TimeStamp start_time) throw (std::logic_error) -{ - if (_fd) - throw std::logic_error("Attempt to start new write while write in progress."); - - info << "Opening SMF file " << filename << " for writing." << endl; - - _fd = fopen(filename.c_str(), "w+"); - - if (_fd) { - _track_size = 0; - _filename = filename; - _start_time = start_time; - _last_ev_time = 0; - // write a tentative header to pad file out so writing starts at the right offset - write_header(); - } - - return (_fd == 0) ? -1 : 0; -} - -/** Write an event at the end of the file. - * - * @a time is the absolute time of the event, relative to the start of the file - * (the start_time parameter to start). Must be monotonically increasing on - * successive calls to this method. - */ -void -SMFWriter::write_event(Raul::TimeStamp time, - size_t ev_size, - const unsigned char* ev) throw (std::logic_error) -{ - if (time < _start_time) - throw std::logic_error("Event time is before file start time"); - else if (time < _last_ev_time) - throw std::logic_error("Event time not monotonically increasing"); - else if (time.unit() != _unit) - throw std::logic_error("Event has unexpected time unit"); - - Raul::TimeStamp delta_time = time; - delta_time -= _start_time; - - fseek(_fd, 0, SEEK_END); - - uint64_t delta_ticks = delta_time.ticks() * _unit.ppt() + delta_time.subticks(); - size_t stamp_size = 0; - - /* If delta time is too long (i.e. overflows), write out empty - * "proprietary" events to reach the desired time. - * Any SMF reading application should interpret this correctly - * (by accumulating the delta time and ignoring the event) */ - while (delta_ticks > VAR_LEN_MAX) { - static unsigned char null_event[] = { 0xFF, 0x7F, 0x0 }; - stamp_size = write_var_len(VAR_LEN_MAX); - fwrite(null_event, 1, 3, _fd); - _track_size += stamp_size + 3; - delta_ticks -= VAR_LEN_MAX; - } - - assert(delta_ticks <= VAR_LEN_MAX); - stamp_size = write_var_len(static_cast(delta_ticks)); - fwrite(ev, 1, ev_size, _fd); - - _last_ev_time = time; - _track_size += stamp_size + ev_size; -} - -void -SMFWriter::flush() -{ - if (_fd) - fflush(_fd); -} - -void -SMFWriter::finish() throw (std::logic_error) -{ - if (!_fd) - throw std::logic_error("Attempt to finish write with no write in progress."); - - write_footer(); - fclose(_fd); - _fd = NULL; -} - -void -SMFWriter::write_header() -{ - info << "SMF Flushing header\n"; - - assert(_fd); - - const uint16_t type = GUINT16_TO_BE(0); // SMF Type 0 (single track) - const uint16_t ntracks = GUINT16_TO_BE(1); // Number of tracks (always 1 for Type 0) - const uint16_t division = GUINT16_TO_BE(_unit.ppt()); // PPQN - - char data[6]; - memcpy(data, &type, 2); - memcpy(data+2, &ntracks, 2); - memcpy(data+4, &division, 2); - //data[4] = _ppqn & 0xF0; - //data[5] = _ppqn & 0x0F; - - _fd = freopen(_filename.c_str(), "r+", _fd); - assert(_fd); - fseek(_fd, 0, 0); - write_chunk("MThd", 6, data); - write_chunk_header("MTrk", _track_size); -} - -void -SMFWriter::write_footer() -{ - info << "Writing EOT\n"; - - fseek(_fd, 0, SEEK_END); - write_var_len(1); // whatever... - static const unsigned char eot[4] = { 0xFF, 0x2F, 0x00 }; // end-of-track meta-event - fwrite(eot, 1, 4, _fd); -} - -void -SMFWriter::write_chunk_header(const char id[4], uint32_t length) -{ - const uint32_t length_be = GUINT32_TO_BE(length); - - fwrite(id, 1, 4, _fd); - fwrite(&length_be, 4, 1, _fd); -} - -void -SMFWriter::write_chunk(const char id[4], uint32_t length, void* data) -{ - write_chunk_header(id, length); - - fwrite(data, 1, length, _fd); -} - -/** Write an SMF variable length value. - * - * @return size (in bytes) of the value written. - */ -size_t -SMFWriter::write_var_len(uint32_t value) -{ - size_t ret = 0; - - uint32_t buffer = value & 0x7F; - - while ( (value >>= 7) ) { - buffer <<= 8; - buffer |= ((value & 0x7F) | 0x80); - } - - while (true) { - //printf("Writing var len byte %X\n", (unsigned char)buffer); - ++ret; - fputc(buffer, _fd); - if (buffer & 0x80) - buffer >>= 8; - else - break; - } - - return ret; -} - -} // namespace Raul - -- cgit v1.2.1