ref: 21f6a1501d32f541673f8226d4b2292aef920c2b
parent: d88f201b76b8f1021e3b20fb487fcc3c49e6503b
author: Jacob Moody <[email protected]>
date: Sun Jan 22 22:52:01 EST 2023
remove dead sound code no longer needed
--- a/mmus2mid.c
+++ /dev/null
@@ -1,852 +1,0 @@
-/* $Id: mmus2mid.c 543 2010-01-11 18:44:55Z sezero $
- *
- * Ripped && Adapted from the PrBoom project:
- * PrBoom: a Doom port merged with LxDoom and LSDLDoom
- * based on BOOM, a modified and improved DOOM engine
- * Copyright (C) 1999 by
- * id Software, Chi Hoang, Lee Killough, Jim Flynn, Rand Phares, Ty Halderman
- * Copyright (C) 1999-2000 by
- * Jess Haas, Nicolas Kalkhof, Colin Phipps, Florian Schulze
- * Copyright 2005, 2006 by
- * Florian Schulze, Colin Phipps, Neil Stevens, Andrey Budko
- *
- * This program 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 2
- * of the License, or (at your option) any later version.
- *
- * This program 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 this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- * 02110-1301 USA.
- *
- * DESCRIPTION:
- * This file supports conversion of MUS format music in memory
- * to MIDI format 1 music in memory.
- *
- * The primary routine, mmus2mid, converts a block of memory in MUS format
- * to an Allegro MIDI structure. This supports playing MUS lumps in a wad
- * file with BOOM.
- *
- * Another routine, Midi2MIDI, converts a block of memory in MIDI format 1 to
- * an Allegro MIDI structure. This supports playing MIDI lumps in a wad
- * file with BOOM.
- *
- * For testing purposes, and to make a utility if desired, if the symbol
- * STANDALONE is defined by uncommenting the definition below, a main
- * routine is compiled that will convert a possibly wildcarded set of MUS
- * files to a similarly named set of MIDI files.
- *
- * Much of the code here is thanks to S. Bacquet's source for QMUS2MID.C
- *
- */
-
-
-#include "h2stdinc.h"
-#include <sys/stat.h>
-#ifdef MSDOS
-#include <allegro.h>
-#endif /* !MSDOS */
-#include "h2def.h"
-#include "mmus2mid.h"
-
-//#define STANDALONE /* uncomment this to make MMUS2MID.EXE */
-
-// some macros to decode mus event bit fields
-
-#define last(e) ((uint8_t)((e) & 0x80))
-#define event_type(e) ((uint8_t)(((e) & 0x7F) >> 4))
-#define channel(e) ((uint8_t)((e) & 0x0F))
-
-// event types
-
-typedef enum
-{- RELEASE_NOTE,
- PLAY_NOTE,
- BEND_NOTE,
- SYS_EVENT,
- CNTL_CHANGE,
- UNKNOWN_EVENT1,
- SCORE_END,
- UNKNOWN_EVENT2,
-} mus_event_t;
-
-// MUS format header structure
-
-typedef struct
-{- char ID[4]; // identifier "MUS"0x1A
- uint16_t ScoreLength; // length of music portion
- uint16_t ScoreStart; // offset of music portion
- uint16_t channels; // count of primary channels
- uint16_t SecChannels; // count of secondary channels
- uint16_t InstrCnt; // number of instruments
-} __attribute__((__packed__)) MUSheader;
-
-// to keep track of information in a MIDI track
-
-typedef struct Track
-{- char velocity;
- int32_t deltaT;
- uint8_t lastEvt;
- uint32_t alloced;
-} TrackInfo;
-
-// array of info about tracks
-
-static TrackInfo track[MIDI_TRACKS];
-
-// initial track size allocation
-#define TRACKBUFFERSIZE 1024
-
-// lookup table MUS -> MID controls
-static uint8_t MUS2MIDcontrol[15] =
-{- 0, // Program change - not a MIDI control change
- 0x00, // Bank select
- 0x01, // Modulation pot
- 0x07, // Volume
- 0x0A, // Pan pot
- 0x0B, // Expression pot
- 0x5B, // Reverb depth
- 0x5D, // Chorus depth
- 0x40, // Sustain pedal
- 0x43, // Soft pedal
- 0x78, // All sounds off
- 0x7B, // All notes off
- 0x7E, // Mono
- 0x7F, // Poly
- 0x79 // Reset all controllers
-};
-
-// some strings of uint8_ts used in the midi format
-
-static uint8_t midikey[] =
-{0x00,0xff,0x59,0x02,0x00,0x00}; // C major-static uint8_t miditempo[] =
-{0x00,0xff,0x51,0x03,0x09,0xa3,0x1a}; // uS/qnote-static uint8_t midihdr[] =
-{'M','T','h','d',0,0,0,6,0,1,0,0,0,0}; // header (length 6, format 1)-static uint8_t trackhdr[] =
-{'M','T','r','k'}; // track header-
-// static routine prototypes
-
-static int TWriteByte(MIDI *mididata, int MIDItrack, uint8_t value);
-static int TWriteVarLen(MIDI *mididata, int MIDItrack, uint32_t value);
-static uint32_t ReadTime(const uint8_t **musptrp);
-static int FirstChannelAvailable(int MUS2MIDchannel[]);
-static uint8_t MidiEvent(MIDI *mididata,uint8_t midicode,uint8_t MIDIchannel,
- uint8_t MIDItrack,int nocomp);
-
-//
-// TWriteByte()
-//
-// write one byte to the selected MIDItrack, update current position
-// if track allocation exceeded, double it
-// if track not allocated, initially allocate TRACKBUFFERSIZE bytes
-//
-// Passed pointer to Allegro MIDI structure, number of the MIDI track being
-// written, and the byte to write.
-//
-// Returns 0 on success, MEMALLOC if a memory allocation error occurs
-//
-static int TWriteByte(MIDI *mididata, int MIDItrack, uint8_t value)
-{- uint32_t pos;
-
- pos = mididata->track[MIDItrack].len;
- if (pos >= track[MIDItrack].alloced)
- {- track[MIDItrack].alloced = // double allocation
- track[MIDItrack].alloced? // or set initial TRACKBUFFERSIZE
- 2*track[MIDItrack].alloced :
- TRACKBUFFERSIZE;
-
- if (!(mididata->track[MIDItrack].data = // attempt to reallocate
- realloc(mididata->track[MIDItrack].data,
- track[MIDItrack].alloced)))
- return MEMALLOC;
- }
- mididata->track[MIDItrack].data[pos] = value;
- mididata->track[MIDItrack].len++;
- return 0;
-}
-
-//
-// TWriteVarLen()
-//
-// write the ULONG value to tracknum-th track, in midi format, which is
-// big endian, 7 bits per byte, with all bytes but the last flagged by
-// bit 8 being set, allowing the length to vary.
-//
-// Passed the Allegro MIDI structure, the track number to write,
-// and the ULONG value to encode in midi format there
-//
-// Returns 0 if sucessful, MEMALLOC if a memory allocation error occurs
-//
-static int TWriteVarLen(MIDI *mididata, int tracknum, uint32_t value)
-{- uint32_t buffer;
-
- buffer = value & 0x7f;
- while ((value >>= 7)) // terminates because value unsigned
- {- buffer <<= 8; // note first value shifted in has bit 8 clear
- buffer |= 0x80; // all succeeding values do not
- buffer += (value & 0x7f);
- }
- while (1) // write bytes out in opposite order
- {- if (TWriteByte(mididata, tracknum, (uint8_t)(buffer&0xff))) // insure buffer masked
- return MEMALLOC;
-
- if (buffer & 0x80)
- buffer >>= 8;
- else // terminate on the byte with bit 8 clear
- break;
- }
- return 0;
-}
-
-//
-// ReadTime()
-//
-// Read a time value from the MUS buffer, advancing the position in it
-//
-// A time value is a variable length sequence of 8 bit bytes, with all
-// but the last having bit 8 set.
-//
-// Passed a pointer to the pointer to the MUS buffer
-// Returns the integer unsigned long time value there and advances the pointer
-//
-static uint32_t ReadTime(const uint8_t **musptrp)
-{- uint32_t timeval = 0;
- int _byte;
-
- do // shift each byte read up in the result until a byte with bit 8 clear
- {- _byte = *(*musptrp)++;
- timeval = (timeval << 7) + (_byte & 0x7F);
- }
- while(_byte & 0x80);
-
- return timeval;
-}
-
-//
-// FirstChannelAvailable()
-//
-// Return the next unassigned MIDI channel number
-//
-// The assignment for MUS channel 15 is not counted in the caculation, that
-// being percussion and always assigned to MIDI channel 9 (base 0).
-//
-// Passed the array of MIDI channels assigned to MUS channels
-// Returns the maximum channel number unassigned unless that is 9 in which
-// case 10 is returned.
-//
-// killough 10/7/98: changed char parameter, return values to int
-
-static int FirstChannelAvailable(int MUS2MIDchannel[])
-{- int i ;
- int max = -1 ;
-
- // find the largest MIDI channel assigned so far
- for (i = 0; i < 15; i++)
- if (MUS2MIDchannel[i] > max)
- max = MUS2MIDchannel[i];
-
- return (max == 8 ? 10 : max+1); // skip MIDI channel 9 (percussion)
-}
-
-//
-// MidiEvent()
-//
-// Constructs a MIDI event code, and writes it to the current MIDI track
-// unless its the same as the last event code and compressio is enabled
-// in which case nothing is written.
-//
-// Passed the Allegro MIDI structure, the midi event code, the current
-// MIDI channel number, the current MIDI track number, and whether compression
-// (running status) is enabled.
-//
-// Returns the new event code if successful, 0 if a memory allocation error
-//
-static uint8_t MidiEvent(MIDI *mididata,uint8_t midicode,uint8_t MIDIchannel,
- uint8_t MIDItrack,int nocomp)
-{- uint8_t newevent;
-
- newevent = midicode | MIDIchannel;
- if ((newevent != track[MIDItrack].lastEvt) || nocomp)
- {- if (TWriteByte(mididata,MIDItrack, newevent))
- return 0; // indicates MEMALLOC error
- track[MIDItrack].lastEvt = newevent;
- }
- return newevent;
-}
-
-//
-// mmus2mid()
-//
-// Convert a memory buffer contain MUS data to an Allegro MIDI structure
-// with specified time division and compression.
-//
-// Passed a pointer to the buffer containing MUS data, a pointer to the
-// Allegro MIDI structure, the divisions, and a flag whether to compress.
-//
-// Returns 0 if successful, otherwise an error code (see mmus2mid.h).
-//
-int mmus2mid(const uint8_t *mus, MIDI *mididata, uint16_t division, int nocomp)
-{- uint16_t TrackCnt = 0;
- uint8_t evt, MUSchannel, MIDIchannel, MIDItrack=0, NewEvent;
- int i, event, data;
- const uint8_t *musptr;
- size_t muslen;
- static MUSheader MUSh;
- uint8_t MIDIchan2track[MIDI_TRACKS]; // killough 10/7/98: fix too small array
- int MUS2MIDchannel[MIDI_TRACKS]; // killough 10/7/98: fix too small array
-
- // copy the MUS header from the MUS buffer to the MUSh header structure
-
- memcpy(&MUSh,mus,sizeof(MUSheader));
- MUSh.ScoreLength = SHORT(MUSh.ScoreLength);
- MUSh.ScoreStart = SHORT(MUSh.ScoreStart);
- MUSh.channels = SHORT(MUSh.channels);
- MUSh.SecChannels = SHORT(MUSh.SecChannels);
- MUSh.InstrCnt = SHORT(MUSh.InstrCnt);
-
- // check some things and set length of MUS buffer from internal data
-
- if (!(muslen = MUSh.ScoreLength + MUSh.ScoreStart))
- return MUSDATAMT; // MUS file empty
-
- if (MUSh.channels > 15) // MUSchannels + drum channel > 16
- return TOOMCHAN ;
-
- musptr = mus+MUSh.ScoreStart; // init musptr to start of score
-
- for (i = 0; i < MIDI_TRACKS; i++) // init the track structure's tracks
- {- MUS2MIDchannel[i] = -1; // flag for channel not used yet
- track[i].velocity = 64;
- track[i].deltaT = 0;
- track[i].lastEvt = 0;
- //free(mididata->track[i].data);//jff 3/5/98 remove old allocations
- mididata->track[i].data=NULL;
- track[i].alloced = 0;
- mididata->track[i].len = 0;
- }
-
- if (!division)
- division = 70;
-
- // allocate the first track which is a special tempo/key track
- // note multiple tracks means midi format 1
-
- // set the divisions (ticks per quarter note)
- mididata->divisions = division;
-
- // allocate for midi tempo/key track, allow for end of track
- if (!(mididata->track[0].data =
- realloc(mididata->track[0].data,sizeof(midikey)+sizeof(miditempo)+4)))
- return MEMALLOC;
-
- // key C major
- memcpy(mididata->track[0].data,midikey,sizeof(midikey));
- // tempo uS/qnote
- memcpy(mididata->track[0].data+sizeof(midikey),miditempo,sizeof(miditempo));
- mididata->track[0].len = sizeof(midikey)+sizeof(miditempo);
-
- TrackCnt++; // music tracks start at 1
-
- // process the MUS events in the MUS buffer
-
- do
- {- // get a mus event, decode its type and channel fields
-
- event = *musptr++;
- if ((evt = event_type(event)) == SCORE_END) //jff 1/23/98 use symbol
- break; // if end of score event, leave
- MUSchannel = channel(event);
-
- // if this channel not initialized, do so
-
- if (MUS2MIDchannel[MUSchannel] == -1)
- {- // set MIDIchannel and MIDItrack
-
- MIDIchannel = MUS2MIDchannel[MUSchannel] =
- (MUSchannel == 15 ? 9 : FirstChannelAvailable(MUS2MIDchannel));
- MIDItrack = MIDIchan2track[MIDIchannel] = (uint8_t)TrackCnt++;
- }
- else // channel already allocated as a track, use those values
- {- MIDIchannel = MUS2MIDchannel[MUSchannel];
- MIDItrack = MIDIchan2track[MIDIchannel];
- }
-
- if (TWriteVarLen(mididata, MIDItrack, track[MIDItrack].deltaT))
- return MEMALLOC;
- track[MIDItrack].deltaT = 0;
-
- switch(evt)
- {- case RELEASE_NOTE:
- // killough 10/7/98: Fix noise problems by not allowing compression
- if (!(NewEvent=MidiEvent(mididata,0x90,MIDIchannel,MIDItrack,1)))
- return MEMALLOC;
-
- data = *musptr++;
- if (TWriteByte(mididata, MIDItrack, (uint8_t)(data & 0x7F)))
- return MEMALLOC;
- if (TWriteByte(mididata, MIDItrack, 0))
- return MEMALLOC;
- break;
-
- case PLAY_NOTE:
- if (!(NewEvent=MidiEvent(mididata,0x90,MIDIchannel,MIDItrack,nocomp)))
- return MEMALLOC;
-
- data = *musptr++;
- if (TWriteByte(mididata, MIDItrack, (uint8_t)(data & 0x7F)))
- return MEMALLOC;
- if( data & 0x80 )
- track[MIDItrack].velocity = (*musptr++) & 0x7f;
- if (TWriteByte(mididata, MIDItrack, track[MIDItrack].velocity))
- return MEMALLOC;
- break;
-
- case BEND_NOTE:
- if (!(NewEvent=MidiEvent(mididata,0xE0,MIDIchannel,MIDItrack,nocomp)))
- return MEMALLOC;
-
- data = *musptr++;
- if (TWriteByte(mididata, MIDItrack, (uint8_t)((data & 1) << 6)))
- return MEMALLOC;
- if (TWriteByte(mididata, MIDItrack, (uint8_t)(data >> 1)))
- return MEMALLOC;
- break;
-
- case SYS_EVENT:
- if (!(NewEvent=MidiEvent(mididata,0xB0,MIDIchannel,MIDItrack,nocomp)))
- return MEMALLOC;
-
- data = *musptr++;
- if (data<10 || data>14)
- return BADSYSEVT;
-
- if (TWriteByte(mididata, MIDItrack, MUS2MIDcontrol[data]))
- return MEMALLOC;
- if (data == 12)
- {- if (TWriteByte(mididata, MIDItrack, (uint8_t)(MUSh.channels+1)))
- return MEMALLOC;
- }
- else
- if (TWriteByte(mididata, MIDItrack, 0))
- return MEMALLOC;
- break;
-
- case CNTL_CHANGE:
- data = *musptr++;
- if (data>9)
- return BADCTLCHG;
-
- if (data)
- {- if (!(NewEvent=MidiEvent(mididata,0xB0,MIDIchannel,MIDItrack,nocomp)))
- return MEMALLOC;
-
- if (TWriteByte(mididata, MIDItrack, MUS2MIDcontrol[data]))
- return MEMALLOC;
- }
- else
- {- if (!(NewEvent=MidiEvent(mididata,0xC0,MIDIchannel,MIDItrack,nocomp)))
- return MEMALLOC;
- }
- data = *musptr++;
- if (TWriteByte(mididata, MIDItrack, (uint8_t)(data & 0x7F)))
- return MEMALLOC;
- break;
-
- case UNKNOWN_EVENT1: // mus events 5 and 7
- case UNKNOWN_EVENT2: // meaning not known
- return BADMUSCTL;
-
- case SCORE_END:
- break;
-
- default:
- return BADMUSCTL; // exit with error
- }
- if (last(event))
- {- uint32_t DeltaTime = ReadTime(&musptr); // killough 10/7/98: make local
- for (i = 0;i < MIDI_TRACKS; i++) //jff 3/13/98 update all tracks
- track[i].deltaT += DeltaTime; //whether allocated yet or not
- }
-
- }
- while ((evt != SCORE_END) && ((size_t)(musptr-mus) < muslen));
-
- if (evt!=SCORE_END)
- return MUSDATACOR;
-
- // Now add an end of track to each mididata track, correct allocation
-
- for (i = 0; i < MIDI_TRACKS; i++)
- if (mididata->track[i].len)
- { // killough 10/7/98: simplify code- if (TWriteByte(mididata, i, 0x00) || // midi end of track code
- TWriteByte(mididata, i, 0xFF) ||
- TWriteByte(mididata, i, 0x2F) ||
- TWriteByte(mididata, i, 0x00))
- return MEMALLOC;
-
- // jff 1/23/98 fix failure to set data NULL, len 0 for unused tracks
- // shorten allocation to proper length (important for Allegro)
- if (!(mididata->track[i].data =
- realloc(mididata->track[i].data,mididata->track[i].len)))
- return MEMALLOC;
- }
- else
- {- free(mididata->track[i].data);
- mididata->track[i].data = NULL;
- }
-
- return 0;
-}
-
-void free_mididata(MIDI *mid)
-{- int i;
-
- for (i = 0; i < MIDI_TRACKS; i++)
- if (mid->track[i].data)
- free(mid->track[i].data);
-}
-
-//
-// ReadLength()
-//
-// Reads the length of a chunk in a midi buffer, advancing the pointer
-// 4 bytes, bigendian
-//
-// Passed a pointer to the pointer to a MIDI buffer
-// Returns the chunk length at the pointer position
-//
-static size_t ReadLength(uint8_t **mid)
-{- uint8_t *midptr = *mid;
-
- size_t length = (*midptr++)<<24;
- length += (*midptr++)<<16;
- length += (*midptr++)<<8;
- length += *midptr++;
- *mid = midptr;
- return length;
-}
-
-//
-// MidiToMIDI()
-//
-// Convert an in-memory copy of a MIDI format 0 or 1 file to
-// an Allegro MIDI structure, that is valid or has been zeroed
-//
-// Passed a pointer to a memory buffer with MIDI format music in it and a
-// pointer to an Allegro MIDI structure.
-//
-// Returns 0 if successful, BADMIDHDR if the buffer is not MIDI format
-//
-int MidiToMIDI(uint8_t *mid,MIDI *mididata)
-{- int i;
- int ntracks;
-
- // read the midi header
-
- if (memcmp(mid,midihdr,4))
- return BADMIDHDR;
-
- mididata->divisions = (mid[12]<<8)+mid[13];
- ntracks = (mid[10]<<8)+mid[11];
-
- if (ntracks>=MIDI_TRACKS)
- return BADMIDHDR;
-
- mid += 4;
- { // killough 10/7/98: fix mid from being modified twice before sequence pt.- size_t t = ReadLength(&mid); // seek past header
- mid += t;
- }
-
- // now read each track
-
- for (i=0;i<ntracks;i++)
- {- while (memcmp(mid,trackhdr,4)) // simply skip non-track data
- {- mid += 4;
- {- size_t t = ReadLength(&mid); // seek past header
- mid += t; // killough 10/7/98: prevent mid undefined behavior
- }
- }
- mid += 4;
- mididata->track[i].len = ReadLength(&mid); // get length, move mid past it
-
- // read a track
- mididata->track[i].data = realloc(mididata->track[i].data,mididata->track[i].len);
- memcpy(mididata->track[i].data,mid,mididata->track[i].len);
- mid += mididata->track[i].len;
- }
- for (;i<MIDI_TRACKS;i++)
- if (mididata->track[i].len)
- {- free(mididata->track[i].data);
- mididata->track[i].data = NULL;
- mididata->track[i].len = 0;
- }
- return 0;
-}
-
-//#ifdef STANDALONE /* this code unused by BOOM provided for future portability */
-// /* it also provides a MUS to MID file converter*/
-// proff: I moved this down, because I need MIDItoMidi
-
-//
-// TWriteLength()
-//
-// Write the length of a MIDI chunk to a midi buffer. The length is four
-// uint8_ts and is written uint8_t-reversed for bigendian. The pointer to the
-// midi buffer is advanced.
-//
-// Passed a pointer to the pointer to a midi buffer, and the length to write
-// Returns nothing
-//
-static void TWriteLength(uint8_t **midiptr,uint32_t length)
-{-// proff: Added typecast to avoid warning
- *(*midiptr)++ = (unsigned char)((length>>24)&0xff);
- *(*midiptr)++ = (unsigned char)((length>>16)&0xff);
- *(*midiptr)++ = (unsigned char)((length>>8)&0xff);
- *(*midiptr)++ = (unsigned char)((length)&0xff);
-}
-
-//
-// MIDIToMidi()
-//
-// This routine converts an Allegro MIDI structure to a midi 1 format file
-// in memory. It is used to support memory MUS -> MIDI conversion
-//
-// Passed a pointer to an Allegro MIDI structure, a pointer to a pointer to
-// a buffer containing midi data, and a pointer to a length return.
-// Returns 0 if successful, MEMALLOC if a memory allocation error occurs
-//
-int MIDIToMidi(MIDI *mididata,uint8_t **mid,int *midlen)
-{- size_t total;
- int i,ntrks;
- uint8_t *midiptr;
-
- // calculate how long the mid buffer must be, and allocate
-
- total = sizeof(midihdr);
- for (i=0,ntrks=0;i<MIDI_TRACKS;i++)
- if (mididata->track[i].len)
- {- total += 8 + mididata->track[i].len; // Track hdr + track length
- ntrks++;
- }
- if ((*mid = malloc(total))==NULL)
- return MEMALLOC;
-
-
- // fill in number of tracks and bigendian divisions (ticks/qnote)
-
- midihdr[10] = 0;
- midihdr[11] = (uint8_t)ntrks; // set number of tracks in header
- midihdr[12] = (mididata->divisions>>8) & 0x7f;
- midihdr[13] = (mididata->divisions) & 0xff;
-
- // write the midi header
-
- midiptr = *mid;
- memcpy(midiptr,midihdr,sizeof(midihdr));
- midiptr += sizeof(midihdr);
-
- // write the tracks
-
- for (i=0;i<MIDI_TRACKS;i++)
- {- if (mididata->track[i].len)
- {- memcpy(midiptr,trackhdr,sizeof(trackhdr)); // header
- midiptr += sizeof(trackhdr);
- TWriteLength(&midiptr,mididata->track[i].len); // track length
- // data
- memcpy(midiptr,mididata->track[i].data,mididata->track[i].len);
- midiptr += mididata->track[i].len;
- }
- }
-
- // return length information
-
- *midlen = midiptr - *mid;
-
- return 0;
-}
-
-#ifdef STANDALONE /* this code unused by BOOM provided for future portability */
- /* it also provides a MUS to MID file converter*/
-// proff: I moved this down, because I need MIDItoMidi
-
-//
-// FreeTracks()
-//
-// Free all track allocations in the MIDI structure
-//
-// Passed a pointer to an Allegro MIDI structure
-// Returns nothing
-//
-static void FreeTracks(MIDI *mididata)
-{- int i;
-
- for (i=0; i<MIDI_TRACKS; i++)
- {- free(mididata->track[i].data);
- mididata->track[i].data = NULL;
- mididata->track[i].len = 0;
- }
-}
-
-//
-// main()
-//
-// Main routine that will convert a globbed set of MUS files to the
-// correspondingly named MID files using mmus2mid(). Only compiled
-// if the STANDALONE symbol is defined.
-//
-// Passed the command line arguments, returns 0 if successful
-//
-int main(int argc,char **argv)
-{- FILE *musst,*midst;
- char musfile[FILENAME_MAX],midfile[FILENAME_MAX];
- MUSheader MUSh;
- uint8_t *mus,*mid;
- static MIDI mididata;
- int err,midlen;
- char *p,*q;
- int i;
-
- if (argc<2)
- {- //jff 8/3/98 use logical output routine
- lprintf(LO_INFO,"Usage: MMUS2MID musfile[.MUS]\n");
- lprintf(LO_INFO,"writes musfile.MID as output\n");
- lprintf(LO_INFO,"musfile may contain wildcards\n");
- exit(1);
- }
-
- for (i=1;i<argc;i++)
- {- strcpy(musfile,argv[i]);
- p = strrchr(musfile,'.');
- q = strrchr(musfile,'\\');
- if (p && (!q || q<p)) *p='\0';
- strcpy(midfile,musfile);
- strcat(musfile,".MUS");
- strcat(midfile,".MID");
-
- musst = fopen(musfile,"rb");
- if (musst)
- {- fread(&MUSh,sizeof(MUSheader),1,musst);
- mus = malloc(MUSh.ScoreLength+MUSh.ScoreStart);
- if (mus)
- {- fseek(musst,0,SEEK_SET);
- if (!fread(mus,MUSh.ScoreLength+MUSh.ScoreStart,1,musst))
- {- //jff 8/3/98 use logical output routine
- lprintf(LO_FATAL,"Error reading MUS file\n");
- free(mus);
- exit(1);
- }
- fclose(musst);
- }
- else
- {- //jff 8/3/98 use logical output routine
- lprintf(LO_FATAL,"Out of memory\n");
- free(mus);
- exit(1);
- }
-
- err = mmus2mid(mus,&mididata,89,1);
- if (err)
- {- //jff 8/3/98 use logical output routine
- lprintf(LO_FATAL,"Error converting MUS file to MIDI: %d\n",err);
- exit(1);
- }
- free(mus);
-
- MIDIToMidi(&mididata,&mid,&midlen);
-
- midst = fopen(midfile,"wb");
- if (midst)
- {- if (!fwrite(mid,midlen,1,midst))
- {- //jff 8/3/98 use logical output routine
- lprintf(LO_FATAL,"Error writing MIDI file\n");
- FreeTracks(&mididata);
- free(mid);
- exit(1);
- }
- fclose(midst);
- }
- else
- {- //jff 8/3/98 use logical output routine
- lprintf(LO_FATAL,"Can't open MIDI file for output: %s\n", midfile);
- FreeTracks(&mididata);
- free(mid);
- exit(1);
- }
- }
- else
- {- //jff 8/3/98 use logical output routine
- lprintf(LO_FATAL,"Can't open MUS file for input: %s\n", midfile);
- exit(1);
- }
-
- //jff 8/3/98 use logical output routine
- lprintf(LO_CONFIRM,"MUS file %s converted to MIDI file %s\n",musfile,midfile);
- FreeTracks(&mididata);
- free(mid);
- }
- exit(0);
-}
-
-#endif
--- a/mmus2mid.h
+++ /dev/null
@@ -1,69 +1,0 @@
-/* $Id: mmus2mid.h 373 2009-05-19 18:14:28Z sezero $
- *
- * Ripped && Adapted from the PrBoom project:
- * PrBoom: a Doom port merged with LxDoom and LSDLDoom
- * based on BOOM, a modified and improved DOOM engine
- * Copyright (C) 1999 by
- * id Software, Chi Hoang, Lee Killough, Jim Flynn, Rand Phares, Ty Halderman
- * Copyright (C) 1999-2000 by
- * Jess Haas, Nicolas Kalkhof, Colin Phipps, Florian Schulze
- * Copyright 2005, 2006 by
- * Florian Schulze, Colin Phipps, Neil Stevens, Andrey Budko
- *
- * This program 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 2
- * of the License, or (at your option) any later version.
- *
- * This program 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 this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- * 02110-1301 USA.
- *
- * DESCRIPTION:
- * mmus2mid.c supports conversion of MUS format music in memory
- * to MIDI format 1 music in memory.
- */
-
-#if !defined( MMUS2MID_H )
-#define MMUS2MID_H
-
-// error codes
-
-typedef enum
-{- MUSDATACOR, // MUS data corrupt
- TOOMCHAN, // Too many channels
- MEMALLOC, // Memory allocation error
- MUSDATAMT, // MUS file empty
- BADMUSCTL, // MUS event 5 or 7 found
- BADSYSEVT, // MUS system event not in 10-14 range
- BADCTLCHG, // MUS control change larger than 9
- TRACKOVF, // MIDI track exceeds allocation
- BADMIDHDR, // bad midi header detected
-} error_code_t;
-
-#ifndef MSDOS /* proff: This is from allegro.h */
-#define MIDI_TRACKS 32
-
-typedef struct MIDI /* a midi file */
-{- int divisions; /* number of ticks per quarter note */
- struct {- unsigned char *data; /* MIDI message stream */
- int len; /* length of the track data */
- } track[MIDI_TRACKS];
-} MIDI;
-#endif /* !MSDOS */
-
-extern int mmus2mid(const uint8_t *mus,MIDI *mid, uint16_t division, int nocomp);
-extern void free_mididata(MIDI *mid);
-extern int MIDIToMidi(MIDI *mididata,uint8_t **mid,int *midlen);
-extern int MidiToMIDI(uint8_t *mid,MIDI *mididata);
-
-#endif