annotate src/midifile.c @ 56:79977d487182

Cosmetics.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 06 Aug 2013 17:32:49 +0300
parents 7fd43d272c93
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 /*
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
2 * midiFile.c - A general purpose midi file handling library. This code
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
3 * can read and write MIDI files in formats 0 and 1.
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
4 * Version 1.4
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
5 *
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
6 * AUTHOR: Steven Goodwin (StevenGoodwin@gmail.com)
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
7 * Copyright 1998-2010, Steven Goodwin
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
8 *
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
9 * This program is free software; you can redistribute it and/or
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
10 * modify it under the terms of the GNU General Public License as
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
11 * published by the Free Software Foundation; either version 2 of
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
12 * the License,or (at your option) any later version.
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
13 *
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
14 * This program is distributed in the hope that it will be useful,
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
17 * GNU General Public License for more details.
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
18 *
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
19 * You should have received a copy of the GNU General Public License
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
20 * along with this program; if not, write to the Free Software
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
21 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
22 */
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
23
45
d85542c96791 Clean up the build some more, move platform specifics again.
Matti Hamalainen <ccr@tnsp.org>
parents: 40
diff changeset
24 #include "midifile.h"
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
25 #include <stdio.h>
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
26 #include <string.h>
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
27 #include <stdarg.h>
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
28
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
29
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
30 /*
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
31 ** Internal Data Structures
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
32 */
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
33 typedef struct
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
34 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
35 Uint8 note, chn;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
36 Uint8 valid, p2;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
37 Uint32 end_pos;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
38 } MIDI_LAST_NOTE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
39
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
40 typedef struct
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
41 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
42 Uint8 *ptr;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
43 Uint8 *pBase;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
44 Uint8 *pEnd;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
45
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
46 Uint32 pos;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
47 Uint32 dt;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
48 /* For Reading MIDI Files */
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
49 Uint32 sz; /* size of whole iTrack */
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
50 /* For Writing MIDI Files */
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
51 Uint32 iBlockSize; /* max size of track */
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
52 Uint8 iDefaultChannel; /* use for write only */
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
53 Uint8 last_status; /* used for running status */
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
54
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
55 MIDI_LAST_NOTE LastNote[MAX_TRACK_POLYPHONY];
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
56 } MIDI_FILE_TRACK;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
57
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
58 typedef struct
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
59 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
60 Uint32 iHeaderSize;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
61 /**/ Uint16 iVersion; /* 0, 1 or 2 */
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
62 Uint16 iNumTracks; /* number of tracks... (will be 1 for MIDI type 0) */
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
63 Uint16 PPQN; /* pulses per quarter note */
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
64 } MIDI_HEADER;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
65
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
66 typedef struct
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
67 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
68 FILE *pFile;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
69 BOOL bOpenForWriting;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
70
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
71 MIDI_HEADER Header;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
72
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
73 Uint8 *ptr, *curr, *end;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
74 size_t file_size;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
75
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
76 MIDI_FILE_TRACK Track[MAX_MIDI_TRACKS];
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
77 } _MIDI_FILE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
78
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
79
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
80 /*
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
81 ** Internal Functions
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
82 */
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
83 #define DT_DEF 32 /* assume maximum delta-time + msg is no more than 32 bytes */
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
84 #define _VAR_CAST _MIDI_FILE *pMF = (_MIDI_FILE *)_pMF
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
85 #define IsFilePtrValid(pMF) (pMF)
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
86 #define IsTrackValid(_x) (_midiValidateTrack(pMF, _x))
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
87 #define IsChannelValid(_x) ((_x)>=1 && (_x)<=16)
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
88 #define IsNoteValid(_x) ((_x)>=0 && (_x)<128)
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
89 #define IsMessageValid(_x) ((_x)>=msgNoteOff && (_x)<=msgMetaEvent)
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
90
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
91
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
92 static void midiErrorV(_MIDI_FILE *pMF, const char *fmt, va_list ap)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
93 {
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
94 (void) pMF;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
95 printf("MIDI: ");
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
96 vprintf(fmt, ap);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
97 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
98
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
99
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
100 static void midiError(_MIDI_FILE *pMF, const char *fmt, ...)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
101 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
102 va_list ap;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
103
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
104 va_start(ap, fmt);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
105 midiErrorV(pMF, fmt, ap);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
106 va_end(ap);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
107 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
108
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
109
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
110 static int midiStrNCmp(_MIDI_FILE *pMF, const char *str, const size_t n)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
111 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
112 if (pMF->curr + n < pMF->end)
53
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
113 return memcmp(pMF->curr, str, n);
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
114 else
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
115 return 1;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
116 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
117
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
118
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
119 static BOOL midiSkip(_MIDI_FILE *pMF, const size_t n)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
120 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
121 pMF->curr += n;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
122 return (pMF->curr < pMF->end);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
123 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
124
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
125
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
126 static BOOL midiGetBE32(_MIDI_FILE *pMF, Uint32 *val)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
127 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
128 if (pMF->curr + sizeof(Uint32) < pMF->end)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
129 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
130 Uint32 tmp;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
131 memcpy(&tmp, pMF->curr, sizeof(Uint32));
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
132 *val = DM_BE32_TO_NATIVE(tmp);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
133
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
134 pMF->curr += sizeof(Uint32);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
135 return TRUE;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
136 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
137 else
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
138 return FALSE;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
139 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
140
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
141
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
142 static BOOL midiGetBE16(_MIDI_FILE *pMF, Uint16 *val)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
143 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
144 if (pMF->curr + sizeof(Uint16) < pMF->end)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
145 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
146 Uint16 tmp;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
147 memcpy(&tmp, pMF->curr, sizeof(Uint16));
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
148 *val = DM_BE16_TO_NATIVE(tmp);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
149
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
150 pMF->curr += sizeof(Uint16);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
151 return TRUE;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
152 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
153 else
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
154 return FALSE;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
155 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
156
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
157
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
158 static BOOL midiGetByte(_MIDI_FILE *pMF, Uint8 *val)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
159 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
160 if (pMF->curr + sizeof(Uint8) < pMF->end)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
161 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
162 memcpy(val, pMF->curr, sizeof(Uint8));
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
163 pMF->curr += sizeof(Uint8);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
164 return TRUE;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
165 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
166 else
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
167 return FALSE;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
168 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
169
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
170
30
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
171 static void midiFree(void *ptr)
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
172 {
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
173 if (ptr != NULL)
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
174 free(ptr);
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
175 }
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
176
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
177
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
178 static BOOL midiWriteBE32(FILE *fp, const Uint32 val)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
179 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
180 Uint32 result = DM_NATIVE_TO_BE32(val);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
181 return (fwrite(&result, sizeof(result), 1, fp) == 1);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
182 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
183
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
184
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
185 static BOOL midiWriteBE16(FILE *fp, const Uint16 val)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
186 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
187 Uint16 result = DM_NATIVE_TO_BE16(val);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
188 return (fwrite(&result, sizeof(result), 1, fp) == 1);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
189 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
190
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
191
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
192 static BOOL midiWriteByte(FILE *fp, const Uint8 val)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
193 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
194 return fputc(val, fp) == val;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
195 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
196
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
197
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
198 static BOOL midiWriteData(FILE *fp, const Uint8 *data, const size_t n)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
199 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
200 return fwrite(data, sizeof(Uint8), n, fp) == n;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
201 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
202
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
203
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
204 static BOOL midiWriteStr(FILE *fp, const char *str)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
205 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
206 size_t len = strlen(str);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
207 return fwrite(str, sizeof(char), strlen(str), fp) == len;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
208 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
209
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
210
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
211 static BOOL _midiValidateTrack(const _MIDI_FILE *pMF, int iTrack)
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
212 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
213 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
214 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
215
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
216 if (pMF->bOpenForWriting)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
217 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
218 if (iTrack < 0 || iTrack >= MAX_MIDI_TRACKS)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
219 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
220 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
221 else /* open for reading */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
222 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
223 if (!pMF->ptr)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
224 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
225
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
226 if (iTrack < 0 || iTrack >= pMF->Header.iNumTracks)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
227 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
228 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
229
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
230 return TRUE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
231 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
232
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
233 static Uint8 *_midiWriteVarLen(Uint8 * ptr, int n)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
234 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
235 register long buffer;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
236 register long value = n;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
237
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
238 buffer = value & 0x7f;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
239 while ((value >>= 7) > 0)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
240 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
241 buffer <<= 8;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
242 buffer |= 0x80;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
243 buffer += (value & 0x7f);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
244 }
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
245
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
246 while (TRUE)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
247 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
248 *ptr++ = (Uint8) buffer;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
249 if (buffer & 0x80)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
250 buffer >>= 8;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
251 else
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
252 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
253 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
254
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
255 return (ptr);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
256 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
257
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
258 /* Return a ptr to valid block of memory to store a message
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
259 ** of up to sz_reqd bytes
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
260 */
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
261 static Uint8 *_midiGetPtr(_MIDI_FILE *pMF, int iTrack, int sz_reqd)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
262 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
263 const Uint32 mem_sz_inc = 8092; /* arbitary */
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
264 Uint8 *ptr;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
265 int curr_offset;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
266 MIDI_FILE_TRACK *pTrack = &pMF->Track[iTrack];
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
267
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
268 ptr = pTrack->ptr;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
269 if (ptr == NULL || ptr + sz_reqd > pTrack->pEnd) /* need more RAM! */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
270 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
271 curr_offset = ptr - pTrack->pBase;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
272 if ((ptr =
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
273 (Uint8 *) realloc(pTrack->pBase,
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
274 mem_sz_inc + pTrack->iBlockSize)))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
275 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
276 pTrack->pBase = ptr;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
277 pTrack->iBlockSize += mem_sz_inc;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
278 pTrack->pEnd = ptr + pTrack->iBlockSize;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
279 /* Move new ptr to continue data entry: */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
280 pTrack->ptr = ptr + curr_offset;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
281 ptr += curr_offset;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
282 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
283 else
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
284 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
285 /* NO MEMORY LEFT */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
286 return NULL;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
287 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
288 }
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
289
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
290 return ptr;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
291 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
292
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
293
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
294 static int _midiGetLength(int ppqn, int iNoteLen, BOOL bOverride)
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
295 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
296 int length = ppqn;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
297
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
298 if (bOverride)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
299 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
300 length = iNoteLen;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
301 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
302 else
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
303 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
304 switch (iNoteLen)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
305 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
306 case MIDI_NOTE_DOTTED_MINIM:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
307 length *= 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
308 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
309
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
310 case MIDI_NOTE_DOTTED_CROCHET:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
311 length *= 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
312 length /= 2;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
313 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
314
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
315 case MIDI_NOTE_DOTTED_QUAVER:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
316 length *= 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
317 length /= 4;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
318 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
319
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
320 case MIDI_NOTE_DOTTED_SEMIQUAVER:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
321 length *= 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
322 length /= 8;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
323 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
324
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
325 case MIDI_NOTE_DOTTED_SEMIDEMIQUAVER:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
326 length *= 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
327 length /= 16;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
328 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
329
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
330 case MIDI_NOTE_BREVE:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
331 length *= 4;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
332 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
333
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
334 case MIDI_NOTE_MINIM:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
335 length *= 2;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
336 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
337
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
338 case MIDI_NOTE_QUAVER:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
339 length /= 2;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
340 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
341
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
342 case MIDI_NOTE_SEMIQUAVER:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
343 length /= 4;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
344 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
345
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
346 case MIDI_NOTE_SEMIDEMIQUAVER:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
347 length /= 8;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
348 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
349
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
350 case MIDI_NOTE_TRIPLE_CROCHET:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
351 length *= 2;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
352 length /= 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
353 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
354 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
355 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
356
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
357 return length;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
358 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
359
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
360 /*
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
361 ** midiFile* Functions
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
362 */
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
363 MIDI_FILE *midiFileCreate(const char *pFilename, BOOL bOverwriteIfExists)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
364 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
365 _MIDI_FILE *pMF = (_MIDI_FILE *) malloc(sizeof(_MIDI_FILE));
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
366 int i;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
367
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
368 if (pMF == NULL)
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
369 return NULL;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
370
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
371 if (!bOverwriteIfExists && (pMF->pFile = fopen(pFilename, "r")) != NULL)
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
372 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
373 fclose(pMF->pFile);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
374 midiFree(pMF);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
375 return NULL;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
376 }
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
377
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
378 if ((pMF->pFile = fopen(pFilename, "wb+")) == NULL)
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
379 {
30
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
380 midiFree(pMF);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
381 return NULL;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
382 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
383
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
384 pMF->bOpenForWriting = TRUE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
385 pMF->Header.PPQN = MIDI_PPQN_DEFAULT;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
386 pMF->Header.iVersion = MIDI_VERSION_DEFAULT;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
387
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
388 for (i = 0; i < MAX_MIDI_TRACKS; ++i)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
389 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
390 pMF->Track[i].pos = 0;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
391 pMF->Track[i].ptr = NULL;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
392 pMF->Track[i].pBase = NULL;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
393 pMF->Track[i].pEnd = NULL;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
394 pMF->Track[i].iBlockSize = 0;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
395 pMF->Track[i].dt = 0;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
396 pMF->Track[i].iDefaultChannel = (Uint8) (i & 0xf);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
397
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
398 memset(pMF->Track[i].LastNote, 0, sizeof(pMF->Track[i].LastNote));
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
399 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
400
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
401 return (MIDI_FILE *) pMF;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
402 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
403
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
404 int midiFileSetTracksDefaultChannel(MIDI_FILE *_pMF, int iTrack, int iChannel)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
405 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
406 int prev;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
407
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
408 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
409 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
410 return 0;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
411 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
412 return 0;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
413 if (!IsChannelValid(iChannel))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
414 return 0;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
415
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
416 /* For programmer each, iChannel is between 1 & 16 - but MIDI uses
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
417 ** 0-15. Thus, the fudge factor of 1 :)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
418 */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
419 prev = pMF->Track[iTrack].iDefaultChannel + 1;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
420 pMF->Track[iTrack].iDefaultChannel = (Uint8) (iChannel - 1);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
421 return prev;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
422 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
423
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
424 int midiFileGetTracksDefaultChannel(const MIDI_FILE *_pMF, int iTrack)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
425 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
426 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
427 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
428 return 0;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
429 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
430 return 0;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
431
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
432 return pMF->Track[iTrack].iDefaultChannel + 1;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
433 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
434
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
435 int midiFileSetPPQN(MIDI_FILE *_pMF, int PPQN)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
436 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
437 int prev;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
438
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
439 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
440 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
441 return MIDI_PPQN_DEFAULT;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
442 prev = pMF->Header.PPQN;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
443 pMF->Header.PPQN = (Uint16) PPQN;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
444 return prev;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
445 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
446
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
447 int midiFileGetPPQN(const MIDI_FILE *_pMF)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
448 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
449 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
450 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
451 return MIDI_PPQN_DEFAULT;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
452 return (int) pMF->Header.PPQN;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
453 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
454
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
455 int midiFileSetVersion(MIDI_FILE *_pMF, int iVersion)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
456 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
457 int prev;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
458
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
459 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
460 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
461 return MIDI_VERSION_DEFAULT;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
462 if (iVersion < 0 || iVersion > 2)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
463 return MIDI_VERSION_DEFAULT;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
464 prev = pMF->Header.iVersion;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
465 pMF->Header.iVersion = (Uint16) iVersion;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
466 return prev;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
467 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
468
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
469 int midiFileGetVersion(const MIDI_FILE *_pMF)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
470 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
471 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
472 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
473 return MIDI_VERSION_DEFAULT;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
474 return pMF->Header.iVersion;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
475 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
476
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
477 MIDI_FILE *midiFileOpen(const char *pFilename)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
478 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
479 _MIDI_FILE *pMF = NULL;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
480 BOOL bValidFile = FALSE;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
481 FILE *fp;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
482 int i;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
483
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
484 if ((fp = fopen(pFilename, "rb")) == NULL)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
485 goto error;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
486
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
487 if ((pMF = (_MIDI_FILE *) malloc(sizeof(_MIDI_FILE))) == NULL)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
488 goto error;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
489
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
490 fseek(fp, 0L, SEEK_END);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
491 pMF->file_size = ftell(fp);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
492
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
493 if ((pMF->curr = pMF->ptr = (Uint8 *) malloc(pMF->file_size)) == NULL)
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
494 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
495 midiError(pMF, "Could not allocate %d bytes for MIDI file.\n", pMF->file_size);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
496 goto error;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
497 }
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
498
49
1efee62c0f96 Possibly fix MIDI loading(?)
Matti Hamalainen <ccr@tnsp.org>
parents: 48
diff changeset
499 pMF->end = pMF->ptr + pMF->file_size;
1efee62c0f96 Possibly fix MIDI loading(?)
Matti Hamalainen <ccr@tnsp.org>
parents: 48
diff changeset
500
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
501 fseek(fp, 0L, SEEK_SET);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
502 if (fread(pMF->ptr, sizeof(Uint8), pMF->file_size, fp) != pMF->file_size)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
503 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
504 midiError(pMF, "Error reading file data.\n");
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
505 goto error;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
506 }
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
507
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
508 /* Is this a valid MIDI file ? */
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
509 if (midiStrNCmp(pMF, "MThd", 4) != 0)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
510 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
511 midiError(pMF, "Not a MIDI file.\n");
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
512 goto error;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
513 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
514
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
515 midiSkip(pMF, 4);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
516
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
517 if (!midiGetBE32(pMF, &pMF->Header.iHeaderSize) ||
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
518 !midiGetBE16(pMF, &pMF->Header.iVersion) ||
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
519 !midiGetBE16(pMF, &pMF->Header.iNumTracks) ||
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
520 !midiGetBE16(pMF, &pMF->Header.PPQN))
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
521 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
522 midiError(pMF, "Error reading MIDI file header.\n");
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
523 goto error;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
524 }
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
525
52
58e453729336 Heh .. Another try.
Matti Hamalainen <ccr@tnsp.org>
parents: 51
diff changeset
526 midiSkip(pMF, pMF->Header.iHeaderSize - 3 * sizeof(Uint16));
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
527
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
528 /*
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
529 ** Get all tracks
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
530 */
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
531 for (i = 0; i < MAX_MIDI_TRACKS; ++i)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
532 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
533 pMF->Track[i].pos = 0;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
534 pMF->Track[i].last_status = 0;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
535 }
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
536
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
537 for (i = 0; i < pMF->Header.iNumTracks; ++i)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
538 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
539 if (midiStrNCmp(pMF, "MTrk", 4) != 0)
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
540 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
541 midiError(pMF, "Expected track %d data, not found.\n", i);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
542 goto error;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
543 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
544
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
545 pMF->Track[i].pBase = pMF->curr;
54
7fd43d272c93 Ahh .. yup.
Matti Hamalainen <ccr@tnsp.org>
parents: 53
diff changeset
546
7fd43d272c93 Ahh .. yup.
Matti Hamalainen <ccr@tnsp.org>
parents: 53
diff changeset
547 if (!midiSkip(pMF, 4) ||
7fd43d272c93 Ahh .. yup.
Matti Hamalainen <ccr@tnsp.org>
parents: 53
diff changeset
548 !midiGetBE32(pMF, &pMF->Track[i].sz))
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
549 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
550 midiError(pMF, "Could not read MTrk size.\n");
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
551 goto error;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
552 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
553
54
7fd43d272c93 Ahh .. yup.
Matti Hamalainen <ccr@tnsp.org>
parents: 53
diff changeset
554 pMF->Track[i].ptr = pMF->curr;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
555 pMF->Track[i].pEnd = pMF->curr + pMF->Track[i].sz;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
556
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
557 midiSkip(pMF, pMF->Track[i].sz);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
558 }
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
559
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
560 pMF->bOpenForWriting = FALSE;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
561 pMF->pFile = NULL;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
562 bValidFile = TRUE;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
563
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
564
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
565 error:
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
566 // Cleanup
31
416346c6dc74 Add fp handle check.
Matti Hamalainen <ccr@tnsp.org>
parents: 30
diff changeset
567 if (fp != NULL)
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
568 fclose(fp);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
569
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
570 if (!bValidFile)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
571 {
30
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
572 midiFree(pMF);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
573 return NULL;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
574 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
575
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
576 return (MIDI_FILE *) pMF;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
577 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
578
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
579 typedef struct
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
580 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
581 int iIdx;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
582 int iEndPos;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
583 } MIDI_END_POINT;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
584
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
585 static int qs_cmp_pEndPoints(const void *e1, const void *e2)
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
586 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
587 MIDI_END_POINT *p1 = (MIDI_END_POINT *) e1;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
588 MIDI_END_POINT *p2 = (MIDI_END_POINT *) e2;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
589
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
590 return p1->iEndPos - p2->iEndPos;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
591 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
592
56
79977d487182 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 54
diff changeset
593 BOOL midiFileFlushTrack(MIDI_FILE *_pMF, int iTrack, BOOL bFlushToEnd, Uint32 dwEndTimePos)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
594 {
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
595 size_t sz, index;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
596 Uint8 *ptr;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
597 MIDI_END_POINT *pEndPoints;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
598 int num, mx_pts;
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
599 //BOOL bNoChanges = TRUE;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
600
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
601 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
602 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
603 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
604 if (!_midiValidateTrack(pMF, iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
605 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
606 sz = sizeof(pMF->Track[0].LastNote) / sizeof(pMF->Track[0].LastNote[0]);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
607
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
608 /*
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
609 ** Flush all
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
610 */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
611 pEndPoints = (MIDI_END_POINT *) malloc(sz * sizeof(MIDI_END_POINT));
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
612 mx_pts = 0;
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
613 for (index = 0; index < sz; index++)
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
614 {
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
615 if (pMF->Track[iTrack].LastNote[index].valid)
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
616 {
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
617 pEndPoints[mx_pts].iIdx = index;
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
618 pEndPoints[mx_pts].iEndPos = pMF->Track[iTrack].LastNote[index].end_pos;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
619 mx_pts++;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
620 }
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
621 }
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
622
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
623 if (bFlushToEnd)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
624 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
625 if (mx_pts)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
626 dwEndTimePos = pEndPoints[mx_pts - 1].iEndPos;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
627 else
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
628 dwEndTimePos = pMF->Track[iTrack].pos;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
629 }
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
630
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
631 if (mx_pts)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
632 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
633 /* Sort, smallest first, and add the note off msgs */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
634 qsort(pEndPoints, mx_pts, sizeof(MIDI_END_POINT), qs_cmp_pEndPoints);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
635
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
636 int n = 0;
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
637 while ((dwEndTimePos >= (Uint32) pEndPoints[n].iEndPos || bFlushToEnd) && n < mx_pts)
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
638 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
639 ptr = _midiGetPtr(pMF, iTrack, DT_DEF);
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
640 if (ptr == NULL)
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
641 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
642
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
643 num = pEndPoints[n].iIdx; /* get 'LastNote' index */
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
644
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
645 ptr = _midiWriteVarLen(ptr,
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
646 pMF->Track[iTrack].LastNote[num].end_pos -
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
647 pMF->Track[iTrack].pos);
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
648
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
649 /* msgNoteOn msgNoteOff */
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
650 *ptr++ = (Uint8) (msgNoteOff | pMF->Track[iTrack].LastNote[num].chn);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
651 *ptr++ = pMF->Track[iTrack].LastNote[num].note;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
652 *ptr++ = 0;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
653
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
654 pMF->Track[iTrack].LastNote[num].valid = FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
655 pMF->Track[iTrack].pos = pMF->Track[iTrack].LastNote[num].end_pos;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
656 pMF->Track[iTrack].ptr = ptr;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
657
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
658 //bNoChanges = FALSE;
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
659 n++;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
660 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
661 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
662
30
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
663 midiFree(pEndPoints);
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
664
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
665 /*
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
666 ** Re-calc current position
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
667 */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
668 pMF->Track[iTrack].dt = dwEndTimePos - pMF->Track[iTrack].pos;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
669
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
670 return TRUE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
671 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
672
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
673 BOOL midiFileSyncTracks(MIDI_FILE *_pMF, int iTrack1, int iTrack2)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
674 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
675 int p1, p2;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
676
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
677 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
678 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
679 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
680 if (!IsTrackValid(iTrack1))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
681 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
682 if (!IsTrackValid(iTrack2))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
683 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
684
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
685 p1 = pMF->Track[iTrack1].pos + pMF->Track[iTrack1].dt;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
686 p2 = pMF->Track[iTrack2].pos + pMF->Track[iTrack2].dt;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
687
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
688 if (p1 < p2)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
689 midiTrackIncTime(pMF, iTrack1, p2 - p1, TRUE);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
690 else if (p2 < p1)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
691 midiTrackIncTime(pMF, iTrack2, p1 - p2, TRUE);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
692
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
693 return TRUE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
694 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
695
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
696
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
697 BOOL midiFileClose(MIDI_FILE *_pMF)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
698 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
699 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
700 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
701 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
702
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
703 if (pMF->bOpenForWriting)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
704 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
705 Uint16 iNumTracks = 0;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
706 int i;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
707
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
708 /* Flush our buffers */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
709 for (i = 0; i < MAX_MIDI_TRACKS; ++i)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
710 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
711 if (pMF->Track[i].ptr)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
712 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
713 midiSongAddEndSequence(pMF, i);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
714 midiFileFlushTrack(pMF, i, TRUE, 0);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
715 iNumTracks++;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
716 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
717 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
718 /*
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
719 ** Header
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
720 */
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
721 if (!midiWriteStr(pMF->pFile, "MThd") ||
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
722 !midiWriteBE32(pMF->pFile, 6) ||
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
723 !midiWriteBE16(pMF->pFile, iNumTracks == 1 ? pMF->Header.iVersion : 1) ||
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
724 !midiWriteBE16(pMF->pFile, iNumTracks) ||
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
725 !midiWriteBE16(pMF->pFile, pMF->Header.PPQN))
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
726 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
727 midiError(pMF, "Could not write MThd header.\n");
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
728 goto error;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
729 }
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
730
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
731 /*
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
732 ** Track data
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
733 */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
734 for (i = 0; i < MAX_MIDI_TRACKS; ++i)
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
735 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
736 if (pMF->Track[i].ptr)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
737 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
738 size_t sz = pMF->Track[i].ptr - pMF->Track[i].pBase;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
739 if (!midiWriteStr(pMF->pFile, "MTrk") ||
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
740 !midiWriteBE32(pMF->pFile, sz) ||
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
741 !midiWriteData(pMF->pFile, pMF->Track[i].pBase, sz))
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
742 {
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
743 midiError(pMF, "Could not write track #%d data.\n", i);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
744 goto error;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
745 }
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
746
30
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
747 midiFree(pMF->Track[i].pBase);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
748 }
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
749 }
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
750 }
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
751
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
752 error:
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
753 if (pMF->pFile != NULL)
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
754 return fclose(pMF->pFile) ? FALSE : TRUE;
30
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
755
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
756 midiFree(pMF);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
757 return TRUE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
758 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
759
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
760
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
761 /*
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
762 ** midiSong* Functions
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
763 */
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
764 BOOL midiSongAddSMPTEOffset(MIDI_FILE *_pMF, int iTrack, int iHours,
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
765 int iMins, int iSecs, int iFrames, int iFFrames)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
766 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
767 static Uint8 tmp[] =
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
768 { msgMetaEvent, metaSMPTEOffset, 0x05, 0, 0, 0, 0, 0 };
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
769
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
770 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
771 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
772 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
773 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
774 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
775
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
776 if (iMins < 0 || iMins > 59)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
777 iMins = 0;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
778 if (iSecs < 0 || iSecs > 59)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
779 iSecs = 0;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
780 if (iFrames < 0 || iFrames > 24)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
781 iFrames = 0;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
782
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
783 tmp[3] = (Uint8) iHours;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
784 tmp[4] = (Uint8) iMins;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
785 tmp[5] = (Uint8) iSecs;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
786 tmp[6] = (Uint8) iFrames;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
787 tmp[7] = (Uint8) iFFrames;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
788 return midiTrackAddRaw(pMF, iTrack, sizeof(tmp), tmp, FALSE, 0);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
789 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
790
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
791
56
79977d487182 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 54
diff changeset
792 BOOL midiSongAddSimpleTimeSig(MIDI_FILE *_pMF, int iTrack, int iNom, int iDenom)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
793 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
794 return midiSongAddTimeSig(_pMF, iTrack, iNom, iDenom, 24, 8);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
795 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
796
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
797 BOOL midiSongAddTimeSig(MIDI_FILE *_pMF, int iTrack, int iNom, int iDenom,
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
798 int iClockInMetroTick, int iNotated32nds)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
799 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
800 static Uint8 tmp[] = { msgMetaEvent, metaTimeSig, 0x04, 0, 0, 0, 0 };
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
801
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
802 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
803 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
804 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
805 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
806 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
807
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
808 tmp[3] = (Uint8) iNom;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
809 tmp[4] = (Uint8) (MIDI_NOTE_MINIM / iDenom);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
810 tmp[5] = (Uint8) iClockInMetroTick;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
811 tmp[6] = (Uint8) iNotated32nds;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
812 return midiTrackAddRaw(pMF, iTrack, sizeof(tmp), tmp, FALSE, 0);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
813 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
814
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
815 BOOL midiSongAddKeySig(MIDI_FILE *_pMF, int iTrack, tMIDI_KEYSIG iKey)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
816 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
817 static Uint8 tmp[] = { msgMetaEvent, metaKeySig, 0x02, 0, 0 };
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
818
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
819 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
820 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
821 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
822 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
823 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
824
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
825 tmp[3] = (Uint8) ((iKey & keyMaskKey) * ((iKey & keyMaskNeg) ? -1 : 1));
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
826 tmp[4] = (Uint8) ((iKey & keyMaskMin) ? 1 : 0);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
827 return midiTrackAddRaw(pMF, iTrack, sizeof(tmp), tmp, FALSE, 0);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
828 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
829
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
830 BOOL midiSongAddTempo(MIDI_FILE *_pMF, int iTrack, int iTempo)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
831 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
832 static Uint8 tmp[] = { msgMetaEvent, metaSetTempo, 0x03, 0, 0, 0 };
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
833 int us; /* micro-seconds per qn */
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
834
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
835 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
836 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
837 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
838 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
839 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
840
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
841 us = 60000000L / iTempo;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
842 tmp[3] = (Uint8) ((us >> 16) & 0xff);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
843 tmp[4] = (Uint8) ((us >> 8) & 0xff);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
844 tmp[5] = (Uint8) ((us >> 0) & 0xff);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
845 return midiTrackAddRaw(pMF, iTrack, sizeof(tmp), tmp, FALSE, 0);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
846 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
847
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
848 BOOL midiSongAddMIDIPort(MIDI_FILE *_pMF, int iTrack, int iPort)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
849 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
850 static Uint8 tmp[] = { msgMetaEvent, metaMIDIPort, 1, 0 };
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
851
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
852 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
853 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
854 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
855 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
856 return FALSE;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
857 tmp[3] = (Uint8) iPort;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
858 return midiTrackAddRaw(pMF, iTrack, sizeof(tmp), tmp, FALSE, 0);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
859 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
860
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
861 BOOL midiSongAddEndSequence(MIDI_FILE *_pMF, int iTrack)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
862 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
863 static Uint8 tmp[] = { msgMetaEvent, metaEndSequence, 0 };
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
864
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
865 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
866 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
867 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
868 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
869 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
870
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
871 return midiTrackAddRaw(pMF, iTrack, sizeof(tmp), tmp, FALSE, 0);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
872 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
873
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
874
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
875 /*
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
876 ** midiTrack* Functions
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
877 */
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
878 BOOL midiTrackAddRaw(MIDI_FILE *_pMF, int iTrack, int data_sz,
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
879 const Uint8 * pData, BOOL bMovePtr, int dt)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
880 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
881 MIDI_FILE_TRACK *pTrk;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
882 Uint8 *ptr;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
883 int dtime;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
884
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
885 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
886 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
887 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
888 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
889 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
890
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
891 pTrk = &pMF->Track[iTrack];
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
892 ptr = _midiGetPtr(pMF, iTrack, data_sz + DT_DEF);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
893 if (!ptr)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
894 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
895
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
896 dtime = pTrk->dt;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
897 if (bMovePtr)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
898 dtime += dt;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
899
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
900 ptr = _midiWriteVarLen(ptr, dtime);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
901 memcpy(ptr, pData, data_sz);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
902
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
903 pTrk->pos += dtime;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
904 pTrk->dt = 0;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
905 pTrk->ptr = ptr + data_sz;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
906
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
907 return TRUE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
908 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
909
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
910
56
79977d487182 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 54
diff changeset
911 BOOL midiTrackIncTime(MIDI_FILE *_pMF, int iTrack, int iDeltaTime, BOOL bOverridePPQN)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
912 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
913 Uint32 will_end_at;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
914
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
915 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
916 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
917 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
918 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
919 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
920
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
921 will_end_at = _midiGetLength(pMF->Header.PPQN, iDeltaTime, bOverridePPQN);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
922 will_end_at += pMF->Track[iTrack].pos + pMF->Track[iTrack].dt;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
923
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
924 midiFileFlushTrack(pMF, iTrack, FALSE, will_end_at);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
925
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
926 return TRUE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
927 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
928
56
79977d487182 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 54
diff changeset
929 BOOL midiTrackAddText(MIDI_FILE *_pMF, int iTrack, tMIDI_TEXT iType, const char *pTxt)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
930 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
931 Uint8 *ptr;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
932 int sz;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
933
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
934 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
935 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
936 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
937 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
938 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
939
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
940 sz = strlen(pTxt);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
941 if ((ptr = _midiGetPtr(pMF, iTrack, sz + DT_DEF)))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
942 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
943 *ptr++ = 0; /* delta-time=0 */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
944 *ptr++ = msgMetaEvent;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
945 *ptr++ = (Uint8) iType;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
946 ptr = _midiWriteVarLen((Uint8 *) ptr, sz);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
947 strcpy((char *) ptr, pTxt);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
948 pMF->Track[iTrack].ptr = ptr + sz;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
949 return TRUE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
950 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
951 else
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
952 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
953 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
954 }
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
955 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
956
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
957 BOOL midiTrackSetKeyPressure(MIDI_FILE *pMF, int iTrack, int iNote,
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
958 int iAftertouch)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
959 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
960 return midiTrackAddMsg(pMF, iTrack, msgNoteKeyPressure, iNote,
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
961 iAftertouch);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
962 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
963
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
964 BOOL midiTrackAddControlChange(MIDI_FILE *pMF, int iTrack, tMIDI_CC iCCType,
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
965 int iParam)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
966 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
967 return midiTrackAddMsg(pMF, iTrack, msgControlChange, iCCType, iParam);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
968 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
969
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
970 BOOL midiTrackAddProgramChange(MIDI_FILE *pMF, int iTrack, int iInstrPatch)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
971 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
972 return midiTrackAddMsg(pMF, iTrack, msgSetProgram, iInstrPatch, 0);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
973 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
974
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
975 BOOL midiTrackChangeKeyPressure(MIDI_FILE *pMF, int iTrack,
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
976 int iDeltaPressure)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
977 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
978 return midiTrackAddMsg(pMF, iTrack, msgChangePressure,
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
979 iDeltaPressure & 0x7f, 0);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
980 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
981
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
982 BOOL midiTrackSetPitchWheel(MIDI_FILE *pMF, int iTrack, int iWheelPos)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
983 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
984 Uint16 wheel = (Uint16) iWheelPos;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
985
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
986 /* bitshift 7 instead of eight because we're dealing with 7 bit numbers */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
987 wheel += MIDI_WHEEL_CENTRE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
988 return midiTrackAddMsg(pMF, iTrack, msgSetPitchWheel, wheel & 0x7f,
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
989 (wheel >> 7) & 0x7f);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
990 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
991
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
992 BOOL midiTrackAddMsg(MIDI_FILE *_pMF, int iTrack, tMIDI_MSG iMsg,
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
993 int iParam1, int iParam2)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
994 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
995 Uint8 *ptr;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
996 Uint8 data[3];
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
997 int sz;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
998
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
999 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1000 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1001 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1002 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1003 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1004 if (!IsMessageValid(iMsg))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1005 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1006
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1007 ptr = _midiGetPtr(pMF, iTrack, DT_DEF);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1008 if (!ptr)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1009 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1010
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1011 data[0] = (Uint8) (iMsg | pMF->Track[iTrack].iDefaultChannel);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1012 data[1] = (Uint8) (iParam1 & 0x7f);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1013 data[2] = (Uint8) (iParam2 & 0x7f);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1014 /*
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1015 ** Is this msg a single, or double Uint8, prm?
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1016 */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1017 switch (iMsg)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1018 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1019 case msgSetProgram: /* only one byte required for these msgs */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1020 case msgChangePressure:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1021 sz = 2;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1022 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1023
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1024 default: /* double byte messages */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1025 sz = 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1026 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1027 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1028
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1029 return midiTrackAddRaw(pMF, iTrack, sz, data, FALSE, 0);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1030
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1031 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1032
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1033 BOOL midiTrackAddNote(MIDI_FILE *_pMF, int iTrack, int iNote, int iLength,
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1034 int iVol, BOOL bAutoInc, BOOL bOverrideLength)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1035 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1036 MIDI_FILE_TRACK *pTrk;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1037 Uint8 *ptr;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1038 BOOL bSuccess = FALSE;
40
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
1039 int chn;
2170556dc71f Some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
1040 size_t i;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1041
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1042 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1043 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1044 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1045 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1046 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1047 if (!IsNoteValid(iNote))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1048 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1049
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1050 pTrk = &pMF->Track[iTrack];
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1051 ptr = _midiGetPtr(pMF, iTrack, DT_DEF);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1052 if (!ptr)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1053 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1054
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1055 chn = pTrk->iDefaultChannel;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1056 iLength = _midiGetLength(pMF->Header.PPQN, iLength, bOverrideLength);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1057
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1058 for (i = 0; i < sizeof(pTrk->LastNote) / sizeof(pTrk->LastNote[0]); ++i)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1059 if (pTrk->LastNote[i].valid == FALSE)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1060 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1061 pTrk->LastNote[i].note = (Uint8) iNote;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1062 pTrk->LastNote[i].chn = (Uint8) chn;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1063 pTrk->LastNote[i].end_pos = pTrk->pos + pTrk->dt + iLength;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1064 pTrk->LastNote[i].valid = TRUE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1065 bSuccess = TRUE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1066
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1067 ptr = _midiWriteVarLen(ptr, pTrk->dt); /* delta-time */
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1068 *ptr++ = (Uint8) (msgNoteOn | chn);
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1069 *ptr++ = (Uint8) iNote;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1070 *ptr++ = (Uint8) iVol;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1071 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1072 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1073
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1074 if (!bSuccess)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1075 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1076
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1077 pTrk->ptr = ptr;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1078
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1079 pTrk->pos += pTrk->dt;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1080 pTrk->dt = 0;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1081
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1082 if (bAutoInc)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1083 return midiTrackIncTime(pMF, iTrack, iLength, bOverrideLength);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1084
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1085 return TRUE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1086 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1087
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1088 BOOL midiTrackAddRest(MIDI_FILE *_pMF, int iTrack, int iLength,
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1089 BOOL bOverridePPQN)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1090 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1091 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1092 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1093 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1094 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1095 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1096
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1097 iLength = _midiGetLength(pMF->Header.PPQN, iLength, bOverridePPQN);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1098 return midiTrackIncTime(pMF, iTrack, iLength, bOverridePPQN);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1099 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1100
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1101 int midiTrackGetEndPos(MIDI_FILE *_pMF, int iTrack)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1102 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1103 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1104 if (!IsFilePtrValid(pMF))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1105 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1106 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1107 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1108
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1109 return pMF->Track[iTrack].pos;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1110 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1111
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1112 /*
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1113 ** midiRead* Functions
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1114 */
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1115 static Uint8 *_midiReadVarLen(Uint8 * ptr, Uint32 * num)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1116 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1117 register Uint32 value;
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1118 register Uint8 c;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1119
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1120 if ((value = *ptr++) & 0x80)
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1121 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1122 value &= 0x7f;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1123 do
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1124 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1125 value = (value << 7) + ((c = *ptr++) & 0x7f);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1126 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1127 while (c & 0x80);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1128 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1129 *num = value;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1130 return (ptr);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1131 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1132
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1133
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1134 static BOOL _midiReadTrackCopyData(MIDI_MSG * pMsg, Uint8 * ptr, Uint32 sz,
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1135 BOOL bCopyPtrData)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1136 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1137 if (sz > pMsg->data_sz)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1138 {
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1139 pMsg->data = (Uint8 *) realloc(pMsg->data, sz);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1140 pMsg->data_sz = sz;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1141 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1142
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1143 if (!pMsg->data)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1144 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1145
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1146 if (bCopyPtrData && ptr)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1147 memcpy(pMsg->data, ptr, sz);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1148
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1149 return TRUE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1150 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1151
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1152 int midiReadGetNumTracks(const MIDI_FILE *_pMF)
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1153 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1154 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1155 return pMF->Header.iNumTracks;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1156 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1157
56
79977d487182 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 54
diff changeset
1158 BOOL midiReadGetNextMessage(const MIDI_FILE *_pMF, int iTrack, MIDI_MSG * pMsg)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1159 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1160 MIDI_FILE_TRACK *pTrack;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1161 Uint8 *bptr, *pMsgDataPtr;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1162 int sz;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1163
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1164 _VAR_CAST;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1165 if (!IsTrackValid(iTrack))
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1166 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1167
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1168 pTrack = &pMF->Track[iTrack];
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1169 /* FIXME: Check if there is data on this track first!!! */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1170 if (pTrack->ptr >= pTrack->pEnd)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1171 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1172
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1173 pTrack->ptr = _midiReadVarLen(pTrack->ptr, &pMsg->dt);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1174 pTrack->pos += pMsg->dt;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1175
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1176 pMsg->dwAbsPos = pTrack->pos;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1177
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1178 if (*pTrack->ptr & 0x80) /* Is this is sys message */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1179 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1180 pMsg->iType = (tMIDI_MSG) ((*pTrack->ptr) & 0xf0);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1181 pMsgDataPtr = pTrack->ptr + 1;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1182
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1183 /* SysEx & Meta events don't carry channel info, but something
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1184 ** important in their lower bits that we must keep */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1185 if (pMsg->iType == 0xf0)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1186 pMsg->iType = (tMIDI_MSG) (*pTrack->ptr);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1187 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1188 else /* just data - so use the last msg type */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1189 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1190 pMsg->iType = pMsg->iLastMsgType;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1191 pMsgDataPtr = pTrack->ptr;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1192 }
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1193
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1194 pMsg->iLastMsgType = (tMIDI_MSG) pMsg->iType;
34
a14cc6c5d7ef Possibly fix 64-bit issues. Probably not.
Matti Hamalainen <ccr@tnsp.org>
parents: 31
diff changeset
1195 pMsg->iLastMsgChnl = (Uint8) ((*pTrack->ptr) & 0x0f) + 1;
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1196
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1197 switch (pMsg->iType)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1198 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1199 case msgNoteOn:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1200 pMsg->MsgData.NoteOn.iChannel = pMsg->iLastMsgChnl;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1201 pMsg->MsgData.NoteOn.iNote = *(pMsgDataPtr);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1202 pMsg->MsgData.NoteOn.iVolume = *(pMsgDataPtr + 1);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1203 pMsg->iMsgSize = 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1204 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1205
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1206 case msgNoteOff:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1207 pMsg->MsgData.NoteOff.iChannel = pMsg->iLastMsgChnl;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1208 pMsg->MsgData.NoteOff.iNote = *(pMsgDataPtr);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1209 pMsg->iMsgSize = 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1210 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1211
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1212 case msgNoteKeyPressure:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1213 pMsg->MsgData.NoteKeyPressure.iChannel = pMsg->iLastMsgChnl;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1214 pMsg->MsgData.NoteKeyPressure.iNote = *(pMsgDataPtr);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1215 pMsg->MsgData.NoteKeyPressure.iPressure = *(pMsgDataPtr + 1);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1216 pMsg->iMsgSize = 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1217 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1218
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1219 case msgSetParameter:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1220 pMsg->MsgData.NoteParameter.iChannel = pMsg->iLastMsgChnl;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1221 pMsg->MsgData.NoteParameter.iControl = (tMIDI_CC) * (pMsgDataPtr);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1222 pMsg->MsgData.NoteParameter.iParam = *(pMsgDataPtr + 1);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1223 pMsg->iMsgSize = 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1224 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1225
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1226 case msgSetProgram:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1227 pMsg->MsgData.ChangeProgram.iChannel = pMsg->iLastMsgChnl;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1228 pMsg->MsgData.ChangeProgram.iProgram = *(pMsgDataPtr);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1229 pMsg->iMsgSize = 2;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1230 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1231
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1232 case msgChangePressure:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1233 pMsg->MsgData.ChangePressure.iChannel = pMsg->iLastMsgChnl;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1234 pMsg->MsgData.ChangePressure.iPressure = *(pMsgDataPtr);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1235 pMsg->iMsgSize = 2;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1236 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1237
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1238 case msgSetPitchWheel:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1239 pMsg->MsgData.PitchWheel.iChannel = pMsg->iLastMsgChnl;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1240 pMsg->MsgData.PitchWheel.iPitch =
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1241 *(pMsgDataPtr) | (*(pMsgDataPtr + 1) << 7);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1242 pMsg->MsgData.PitchWheel.iPitch -= MIDI_WHEEL_CENTRE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1243 pMsg->iMsgSize = 3;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1244 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1245
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1246 case msgMetaEvent:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1247 /* We can use 'pTrack->ptr' from now on, since meta events
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1248 ** always have bit 7 set */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1249 bptr = pTrack->ptr;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1250 pMsg->MsgData.MetaEvent.iType = (tMIDI_META) * (pTrack->ptr + 1);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1251 pTrack->ptr = _midiReadVarLen(pTrack->ptr + 2, &pMsg->iMsgSize);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1252 sz = (pTrack->ptr - bptr) + pMsg->iMsgSize;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1253
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1254 if (_midiReadTrackCopyData(pMsg, pTrack->ptr, sz, FALSE) == FALSE)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1255 return FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1256
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1257 /* Now copy the data... */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1258 memcpy(pMsg->data, bptr, sz);
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1259
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1260 /* Now place it in a neat structure */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1261 switch (pMsg->MsgData.MetaEvent.iType)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1262 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1263 case metaMIDIPort:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1264 pMsg->MsgData.MetaEvent.Data.iMIDIPort = *(pTrack->ptr + 0);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1265 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1266 case metaSequenceNumber:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1267 pMsg->MsgData.MetaEvent.Data.iSequenceNumber = *(pTrack->ptr + 0);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1268 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1269 case metaTextEvent:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1270 case metaCopyright:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1271 case metaTrackName:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1272 case metaInstrument:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1273 case metaLyric:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1274 case metaMarker:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1275 case metaCuePoint:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1276 /* TODO - Add NULL terminator ??? */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1277 pMsg->MsgData.MetaEvent.Data.Text.pData = pTrack->ptr;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1278 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1279 case metaEndSequence:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1280 /* NO DATA */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1281 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1282 case metaSetTempo:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1283 {
56
79977d487182 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 54
diff changeset
1284 Uint32 us = ((*(pTrack->ptr + 0)) << 16) | ((*(pTrack->ptr + 1)) << 8) | (*(pTrack->ptr + 2));
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1285 pMsg->MsgData.MetaEvent.Data.Tempo.iBPM = 60000000L / us;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1286 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1287 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1288 case metaSMPTEOffset:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1289 pMsg->MsgData.MetaEvent.Data.SMPTE.iHours = *(pTrack->ptr + 0);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1290 pMsg->MsgData.MetaEvent.Data.SMPTE.iMins = *(pTrack->ptr + 1);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1291 pMsg->MsgData.MetaEvent.Data.SMPTE.iSecs = *(pTrack->ptr + 2);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1292 pMsg->MsgData.MetaEvent.Data.SMPTE.iFrames = *(pTrack->ptr + 3);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1293 pMsg->MsgData.MetaEvent.Data.SMPTE.iFF = *(pTrack->ptr + 4);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1294 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1295 case metaTimeSig:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1296 pMsg->MsgData.MetaEvent.Data.TimeSig.iNom = *(pTrack->ptr + 0);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1297 pMsg->MsgData.MetaEvent.Data.TimeSig.iDenom =
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1298 *(pTrack->ptr + 1) * MIDI_NOTE_MINIM;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1299 /* TODO: Variations without 24 & 8 */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1300 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1301 case metaKeySig:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1302 if (*pTrack->ptr & 0x80)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1303 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1304 /* Do some trendy sign extending in reverse :) */
48
d77dd667d9d6 Fix some warnings.
Matti Hamalainen <ccr@tnsp.org>
parents: 45
diff changeset
1305 pMsg->MsgData.MetaEvent.Data.KeySig.iKey = (tMIDI_KEYSIG) (((256 - *pTrack->ptr) & keyMaskKey) | keyMaskNeg);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1306 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1307 else
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1308 {
48
d77dd667d9d6 Fix some warnings.
Matti Hamalainen <ccr@tnsp.org>
parents: 45
diff changeset
1309 pMsg->MsgData.MetaEvent.Data.KeySig.iKey = (tMIDI_KEYSIG) (*pTrack->ptr & keyMaskKey);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1310 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1311 if (*(pTrack->ptr + 1))
48
d77dd667d9d6 Fix some warnings.
Matti Hamalainen <ccr@tnsp.org>
parents: 45
diff changeset
1312 pMsg->MsgData.MetaEvent.Data.KeySig.iKey = (tMIDI_KEYSIG) (pMsg->MsgData.MetaEvent.Data.KeySig.iKey | keyMaskMin);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1313 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1314 case metaSequencerSpecific:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1315 pMsg->MsgData.MetaEvent.Data.Sequencer.iSize = pMsg->iMsgSize;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1316 pMsg->MsgData.MetaEvent.Data.Sequencer.pData = pTrack->ptr;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1317 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1318 }
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1319
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1320 pTrack->ptr += pMsg->iMsgSize;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1321 pMsg->iMsgSize = sz;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1322 break;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1323
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1324 case msgSysEx1:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1325 case msgSysEx2:
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1326 bptr = pTrack->ptr;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1327 pTrack->ptr = _midiReadVarLen(pTrack->ptr + 1, &pMsg->iMsgSize);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1328 sz = (pTrack->ptr - bptr) + pMsg->iMsgSize;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1329
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1330 if (_midiReadTrackCopyData(pMsg, pTrack->ptr, sz, FALSE) == FALSE)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1331 return FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1332
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1333 /* Now copy the data... */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1334 memcpy(pMsg->data, bptr, sz);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1335 pTrack->ptr += pMsg->iMsgSize;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1336 pMsg->iMsgSize = sz;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1337 pMsg->MsgData.SysEx.pData = pMsg->data;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1338 pMsg->MsgData.SysEx.iSize = sz;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1339 break;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1340 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1341 /*
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1342 ** Standard MIDI messages use a common copy routine
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1343 */
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1344 pMsg->bImpliedMsg = FALSE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1345 if ((pMsg->iType & 0xf0) != 0xf0)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1346 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1347 if (*pTrack->ptr & 0x80)
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1348 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1349 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1350 else
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1351 {
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1352 pMsg->bImpliedMsg = TRUE;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1353 pMsg->iImpliedMsg = pMsg->iLastMsgType;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1354 pMsg->iMsgSize--;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1355 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1356 _midiReadTrackCopyData(pMsg, pTrack->ptr, pMsg->iMsgSize, TRUE);
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1357 pTrack->ptr += pMsg->iMsgSize;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1358 }
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1359 return TRUE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1360 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1361
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1362 void midiReadInitMessage(MIDI_MSG * pMsg)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1363 {
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1364 pMsg->data = NULL;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1365 pMsg->data_sz = 0;
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1366 pMsg->bImpliedMsg = FALSE;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1367 }
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1368
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1369 void midiReadFreeMessage(MIDI_MSG * pMsg)
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1370 {
30
26741527f3b7 Add midiFree() utility function.
Matti Hamalainen <ccr@tnsp.org>
parents: 29
diff changeset
1371 midiFree(pMsg->data);
29
4df6d9714314 Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1372 pMsg->data = NULL;
0
785057719d9b Import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1373 }