Mercurial > hg > forks > bilotrip-mj12
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 |
rev | line source |
---|---|
0 | 1 /* |
2 * midiFile.c - A general purpose midi file handling library. This code | |
3 * can read and write MIDI files in formats 0 and 1. | |
4 * Version 1.4 | |
5 * | |
6 * AUTHOR: Steven Goodwin (StevenGoodwin@gmail.com) | |
7 * Copyright 1998-2010, Steven Goodwin | |
8 * | |
9 * This program is free software; you can redistribute it and/or | |
10 * modify it under the terms of the GNU General Public License as | |
11 * published by the Free Software Foundation; either version 2 of | |
12 * the License,or (at your option) any later version. | |
13 * | |
14 * This program is distributed in the hope that it will be useful, | |
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 * GNU General Public License for more details. | |
18 * | |
19 * You should have received a copy of the GNU General Public License | |
20 * along with this program; if not, write to the Free Software | |
21 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. | |
22 */ | |
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 | 25 #include <stdio.h> |
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 | 29 |
30 /* | |
31 ** Internal Data Structures | |
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 | 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 | 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 | 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 | 78 |
79 | |
80 /* | |
81 ** Internal Functions | |
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 | 85 #define IsFilePtrValid(pMF) (pMF) |
86 #define IsTrackValid(_x) (_midiValidateTrack(pMF, _x)) | |
87 #define IsChannelValid(_x) ((_x)>=1 && (_x)<=16) | |
88 #define IsNoteValid(_x) ((_x)>=0 && (_x)<128) | |
89 #define IsMessageValid(_x) ((_x)>=msgNoteOff && (_x)<=msgMetaEvent) | |
90 | |
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 | 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 | 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 | 211 static BOOL _midiValidateTrack(const _MIDI_FILE *pMF, int iTrack) |
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 | 231 } |
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 | 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 | 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 | 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 | 256 } |
257 | |
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 | 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 | 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 | 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 | 289 |
29
4df6d9714314
Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
290 return ptr; |
0 | 291 } |
292 | |
293 | |
294 static int _midiGetLength(int ppqn, int iNoteLen, BOOL bOverride) | |
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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 358 } |
359 | |
360 /* | |
361 ** midiFile* Functions | |
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 | 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 | 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 | 402 } |
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 | 405 { |
29
4df6d9714314
Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
406 int prev; |
0 | 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 | 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 | 422 } |
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 | 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 | 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 | 433 } |
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 | 436 { |
29
4df6d9714314
Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
437 int prev; |
0 | 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 | 445 } |
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 | 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 | 453 } |
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 | 456 { |
29
4df6d9714314
Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
457 int prev; |
0 | 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 | 467 } |
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 | 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 | 475 } |
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 | 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 | 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 | 525 |
52 | 526 midiSkip(pMF, pMF->Header.iHeaderSize - 3 * sizeof(Uint16)); |
0 | 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 | 546 |
547 if (!midiSkip(pMF, 4) || | |
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 | 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 | 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 | 577 } |
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 | 584 |
585 static int qs_cmp_pEndPoints(const void *e1, const void *e2) | |
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 | 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 | 591 } |
592 | |
56 | 593 BOOL midiFileFlushTrack(MIDI_FILE *_pMF, int iTrack, BOOL bFlushToEnd, Uint32 dwEndTimePos) |
0 | 594 { |
40 | 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 | 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 | 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 | 613 for (index = 0; index < sz; index++) |
614 { | |
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 | 617 pEndPoints[mx_pts].iIdx = index; |
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 | 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 | 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 | 636 int n = 0; |
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 | 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 | 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 | 645 ptr = _midiWriteVarLen(ptr, |
646 pMF->Track[iTrack].LastNote[num].end_pos - | |
647 pMF->Track[iTrack].pos); | |
648 | |
29
4df6d9714314
Automatic reindent/cleanup pass on the midi code.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
649 /* msgNoteOn msgNoteOff */ |
40 | 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 | 658 //bNoChanges = FALSE; |
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 | 671 } |
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 | 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 | 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 | 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 | 694 } |
695 | |
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 | 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 | 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 | 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 | 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 | 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 | 758 } |
759 | |
760 | |
761 /* | |
762 ** midiSong* Functions | |
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 | 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 | 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 | 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 | 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 | 789 } |
790 | |
791 | |
56 | 792 BOOL midiSongAddSimpleTimeSig(MIDI_FILE *_pMF, int iTrack, int iNom, int iDenom) |
0 | 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 | 795 } |
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 | 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 | 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 | 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 | 813 } |
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 | 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 | 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 | 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 | 828 } |
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 | 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 | 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 | 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 | 846 } |
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 | 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 | 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 | 859 } |
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 | 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 | 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 | 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 | 872 } |
873 | |
874 | |
875 /* | |
876 ** midiTrack* Functions | |
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 | 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 | 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 | 908 } |
909 | |
910 | |
56 | 911 BOOL midiTrackIncTime(MIDI_FILE *_pMF, int iTrack, int iDeltaTime, BOOL bOverridePPQN) |
0 | 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 | 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 | 927 } |
928 | |
56 | 929 BOOL midiTrackAddText(MIDI_FILE *_pMF, int iTrack, tMIDI_TEXT iType, const char *pTxt) |
0 | 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 | 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 | 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 | 955 } |
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 | 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 | 962 } |
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 | 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 | 968 } |
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 | 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 | 973 } |
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 | 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 | 980 } |
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 | 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 | 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 | 990 } |
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 | 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 | 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 | 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 | 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 | 1030 |
1031 } | |
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 | 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 | 1039 int chn; |
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 | 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 | 1086 } |
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 | 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 | 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 | 1099 } |
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 | 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 | 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 | 1110 } |
1111 | |
1112 /* | |
1113 ** midiRead* Functions | |
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 | 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 | 1119 |
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 | 1131 } |
1132 | |
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 | 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 | 1150 } |
1151 | |
1152 int midiReadGetNumTracks(const MIDI_FILE *_pMF) | |
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 | 1156 } |
1157 | |
56 | 1158 BOOL midiReadGetNextMessage(const MIDI_FILE *_pMF, int iTrack, MIDI_MSG * pMsg) |
0 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 1360 } |
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 | 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 | 1367 } |
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 | 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 | 1373 } |