diff options
author | Frank Gevaerts <frank@gevaerts.be> | 2010-12-12 15:03:30 +0000 |
---|---|---|
committer | Frank Gevaerts <frank@gevaerts.be> | 2010-12-12 15:03:30 +0000 |
commit | 26f2bfde03420edad4de1f22cb3d515dc063b20d (patch) | |
tree | 4a8c4abaf4795f38da70a4657c1a0fb3ba9debeb /apps/plugins/mikmod/load_far.c | |
parent | d192bdf11e06e50645ecb5726658d4b691480a9a (diff) | |
download | rockbox-26f2bfde03420edad4de1f22cb3d515dc063b20d.tar.gz rockbox-26f2bfde03420edad4de1f22cb3d515dc063b20d.zip |
Add MikMod plugin, ported by Jason Yu, with some minor work by Craig Mann and William Peters (FS#8806)
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@28810 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'apps/plugins/mikmod/load_far.c')
-rw-r--r-- | apps/plugins/mikmod/load_far.c | 346 |
1 files changed, 346 insertions, 0 deletions
diff --git a/apps/plugins/mikmod/load_far.c b/apps/plugins/mikmod/load_far.c new file mode 100644 index 0000000000..69d48d6b96 --- /dev/null +++ b/apps/plugins/mikmod/load_far.c | |||
@@ -0,0 +1,346 @@ | |||
1 | /* MikMod sound library | ||
2 | (c) 1998, 1999, 2000, 2001, 2002 Miodrag Vallat and others - see file | ||
3 | AUTHORS for complete list. | ||
4 | |||
5 | This library is free software; you can redistribute it and/or modify | ||
6 | it under the terms of the GNU Library General Public License as | ||
7 | published by the Free Software Foundation; either version 2 of | ||
8 | the License, or (at your option) any later version. | ||
9 | |||
10 | This program is distributed in the hope that it will be useful, | ||
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
13 | GNU Library General Public License for more details. | ||
14 | |||
15 | You should have received a copy of the GNU Library General Public | ||
16 | License along with this library; if not, write to the Free Software | ||
17 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | ||
18 | 02111-1307, USA. | ||
19 | */ | ||
20 | |||
21 | /*============================================================================== | ||
22 | |||
23 | $Id: load_far.c,v 1.3 2005/04/07 19:57:38 realtech Exp $ | ||
24 | |||
25 | Farandole (FAR) module loader | ||
26 | |||
27 | ==============================================================================*/ | ||
28 | |||
29 | #ifdef HAVE_CONFIG_H | ||
30 | #include "config.h" | ||
31 | #endif | ||
32 | |||
33 | #ifdef HAVE_UNISTD_H | ||
34 | #include <unistd.h> | ||
35 | #endif | ||
36 | |||
37 | #include <stdio.h> | ||
38 | #ifdef HAVE_MEMORY_H | ||
39 | #include <memory.h> | ||
40 | #endif | ||
41 | #include <string.h> | ||
42 | |||
43 | #include "mikmod_internals.h" | ||
44 | |||
45 | #ifdef SUNOS | ||
46 | extern int fprintf(FILE *, const char *, ...); | ||
47 | #endif | ||
48 | |||
49 | /*========== Module structure */ | ||
50 | |||
51 | typedef struct FARHEADER1 { | ||
52 | UBYTE id[4]; /* file magic */ | ||
53 | CHAR songname[40]; /* songname */ | ||
54 | CHAR blah[3]; /* 13,10,26 */ | ||
55 | UWORD headerlen; /* remaining length of header in bytes */ | ||
56 | UBYTE version; | ||
57 | UBYTE onoff[16]; | ||
58 | UBYTE edit1[9]; | ||
59 | UBYTE speed; | ||
60 | UBYTE panning[16]; | ||
61 | UBYTE edit2[4]; | ||
62 | UWORD stlen; | ||
63 | } FARHEADER1; | ||
64 | |||
65 | typedef struct FARHEADER2 { | ||
66 | UBYTE orders[256]; | ||
67 | UBYTE numpat; | ||
68 | UBYTE snglen; | ||
69 | UBYTE loopto; | ||
70 | UWORD patsiz[256]; | ||
71 | } FARHEADER2; | ||
72 | |||
73 | typedef struct FARSAMPLE { | ||
74 | CHAR samplename[32]; | ||
75 | ULONG length; | ||
76 | UBYTE finetune; | ||
77 | UBYTE volume; | ||
78 | ULONG reppos; | ||
79 | ULONG repend; | ||
80 | UBYTE type; | ||
81 | UBYTE loop; | ||
82 | } FARSAMPLE; | ||
83 | |||
84 | typedef struct FARNOTE { | ||
85 | UBYTE note,ins,vol,eff; | ||
86 | } FARNOTE; | ||
87 | |||
88 | /*========== Loader variables */ | ||
89 | |||
90 | static CHAR FAR_Version[] = "Farandole"; | ||
91 | static FARHEADER1 *mh1 = NULL; | ||
92 | static FARHEADER2 *mh2 = NULL; | ||
93 | static FARNOTE *pat = NULL; | ||
94 | |||
95 | static unsigned char FARSIG[4+3]={'F','A','R',0xfe,13,10,26}; | ||
96 | |||
97 | /*========== Loader code */ | ||
98 | |||
99 | int FAR_Test(void) | ||
100 | { | ||
101 | UBYTE id[47]; | ||
102 | |||
103 | if(!_mm_read_UBYTES(id,47,modreader)) return 0; | ||
104 | if((memcmp(id,FARSIG,4))||(memcmp(id+44,FARSIG+4,3))) return 0; | ||
105 | return 1; | ||
106 | } | ||
107 | |||
108 | int FAR_Init(void) | ||
109 | { | ||
110 | if(!(mh1 = (FARHEADER1*)MikMod_malloc(sizeof(FARHEADER1)))) return 0; | ||
111 | if(!(mh2 = (FARHEADER2*)MikMod_malloc(sizeof(FARHEADER2)))) return 0; | ||
112 | if(!(pat = (FARNOTE*)MikMod_malloc(256*16*4*sizeof(FARNOTE)))) return 0; | ||
113 | |||
114 | return 1; | ||
115 | } | ||
116 | |||
117 | void FAR_Cleanup(void) | ||
118 | { | ||
119 | MikMod_free(mh1); | ||
120 | MikMod_free(mh2); | ||
121 | MikMod_free(pat); | ||
122 | } | ||
123 | |||
124 | static UBYTE *FAR_ConvertTrack(FARNOTE* n,int rows) | ||
125 | { | ||
126 | int t,vibdepth=1; | ||
127 | |||
128 | UniReset(); | ||
129 | for(t=0;t<rows;t++) { | ||
130 | if(n->note) { | ||
131 | UniInstrument(n->ins); | ||
132 | UniNote(n->note+3*OCTAVE-1); | ||
133 | } | ||
134 | if (n->vol&0xf) UniPTEffect(0xc,(n->vol&0xf)<<2); | ||
135 | if (n->eff) | ||
136 | switch(n->eff>>4) { | ||
137 | case 0x3: /* porta to note */ | ||
138 | UniPTEffect(0x3,(n->eff&0xf)<<4); | ||
139 | break; | ||
140 | case 0x4: /* retrigger */ | ||
141 | UniPTEffect(0x0e, 0x90 | (n->eff & 0x0f)); | ||
142 | break; | ||
143 | case 0x5: /* set vibrato depth */ | ||
144 | vibdepth=n->eff&0xf; | ||
145 | break; | ||
146 | case 0x6: /* vibrato */ | ||
147 | UniPTEffect(0x4,((n->eff&0xf)<<4)|vibdepth); | ||
148 | break; | ||
149 | case 0x7: /* volume slide up */ | ||
150 | UniPTEffect(0xa,(n->eff&0xf)<<4); | ||
151 | break; | ||
152 | case 0x8: /* volume slide down */ | ||
153 | UniPTEffect(0xa,n->eff&0xf); | ||
154 | break; | ||
155 | case 0xb: /* panning */ | ||
156 | UniPTEffect(0xe,0x80|(n->eff&0xf)); | ||
157 | break; | ||
158 | case 0xf: /* set speed */ | ||
159 | UniPTEffect(0xf,n->eff&0xf); | ||
160 | break; | ||
161 | |||
162 | /* others not yet implemented */ | ||
163 | default: | ||
164 | #ifdef MIKMOD_DEBUG | ||
165 | fprintf(stderr,"\rFAR: unsupported effect %02X\n",n->eff); | ||
166 | #endif | ||
167 | break; | ||
168 | } | ||
169 | |||
170 | UniNewline(); | ||
171 | n+=16; | ||
172 | } | ||
173 | return UniDup(); | ||
174 | } | ||
175 | |||
176 | int FAR_Load(int curious) | ||
177 | { | ||
178 | int t,u,tracks=0; | ||
179 | SAMPLE *q; | ||
180 | FARSAMPLE s; | ||
181 | FARNOTE *crow; | ||
182 | UBYTE smap[8]; | ||
183 | |||
184 | /* try to read module header (first part) */ | ||
185 | _mm_read_UBYTES(mh1->id,4,modreader); | ||
186 | _mm_read_SBYTES(mh1->songname,40,modreader); | ||
187 | _mm_read_SBYTES(mh1->blah,3,modreader); | ||
188 | mh1->headerlen = _mm_read_I_UWORD (modreader); | ||
189 | mh1->version = _mm_read_UBYTE (modreader); | ||
190 | _mm_read_UBYTES(mh1->onoff,16,modreader); | ||
191 | _mm_read_UBYTES(mh1->edit1,9,modreader); | ||
192 | mh1->speed = _mm_read_UBYTE(modreader); | ||
193 | _mm_read_UBYTES(mh1->panning,16,modreader); | ||
194 | _mm_read_UBYTES(mh1->edit2,4,modreader); | ||
195 | mh1->stlen = _mm_read_I_UWORD (modreader); | ||
196 | |||
197 | /* init modfile data */ | ||
198 | of.modtype = StrDup(FAR_Version); | ||
199 | of.songname = DupStr(mh1->songname,40,1); | ||
200 | of.numchn = 16; | ||
201 | of.initspeed = mh1->speed; | ||
202 | of.inittempo = 80; | ||
203 | of.reppos = 0; | ||
204 | of.flags |= UF_PANNING; | ||
205 | for(t=0;t<16;t++) of.panning[t]=mh1->panning[t]<<4; | ||
206 | |||
207 | /* read songtext into comment field */ | ||
208 | if(mh1->stlen) | ||
209 | if (!ReadLinedComment(mh1->stlen, 66)) return 0; | ||
210 | |||
211 | /* try to read module header (second part) */ | ||
212 | _mm_read_UBYTES(mh2->orders,256,modreader); | ||
213 | mh2->numpat = _mm_read_UBYTE(modreader); | ||
214 | mh2->snglen = _mm_read_UBYTE(modreader); | ||
215 | mh2->loopto = _mm_read_UBYTE(modreader); | ||
216 | _mm_read_I_UWORDS(mh2->patsiz,256,modreader); | ||
217 | |||
218 | of.numpos = mh2->snglen; | ||
219 | if(!AllocPositions(of.numpos)) return 0; | ||
220 | for(t=0;t<of.numpos;t++) { | ||
221 | if(mh2->orders[t]==0xff) break; | ||
222 | of.positions[t] = mh2->orders[t]; | ||
223 | } | ||
224 | |||
225 | /* count number of patterns stored in file */ | ||
226 | of.numpat = 0; | ||
227 | for(t=0;t<256;t++) | ||
228 | if(mh2->patsiz[t]) | ||
229 | if((t+1)>of.numpat) of.numpat=t+1; | ||
230 | of.numtrk = of.numpat*of.numchn; | ||
231 | |||
232 | /* seek across eventual new data */ | ||
233 | _mm_fseek(modreader,mh1->headerlen-(869+mh1->stlen),SEEK_CUR); | ||
234 | |||
235 | /* alloc track and pattern structures */ | ||
236 | if(!AllocTracks()) return 0; | ||
237 | if(!AllocPatterns()) return 0; | ||
238 | |||
239 | for(t=0;t<of.numpat;t++) { | ||
240 | UBYTE rows=0,tempo; | ||
241 | |||
242 | memset(pat,0,256*16*4*sizeof(FARNOTE)); | ||
243 | if(mh2->patsiz[t]) { | ||
244 | rows = _mm_read_UBYTE(modreader); | ||
245 | tempo = _mm_read_UBYTE(modreader); | ||
246 | |||
247 | crow = pat; | ||
248 | /* file often allocates 64 rows even if there are less in pattern */ | ||
249 | if (mh2->patsiz[t]<2+(rows*16*4)) { | ||
250 | _mm_errno = MMERR_LOADING_PATTERN; | ||
251 | return 0; | ||
252 | } | ||
253 | for(u=(mh2->patsiz[t]-2)/4;u;u--,crow++) { | ||
254 | crow->note = _mm_read_UBYTE(modreader); | ||
255 | crow->ins = _mm_read_UBYTE(modreader); | ||
256 | crow->vol = _mm_read_UBYTE(modreader); | ||
257 | crow->eff = _mm_read_UBYTE(modreader); | ||
258 | } | ||
259 | |||
260 | if(_mm_eof(modreader)) { | ||
261 | _mm_errno = MMERR_LOADING_PATTERN; | ||
262 | return 0; | ||
263 | } | ||
264 | |||
265 | crow=pat; | ||
266 | of.pattrows[t] = rows; | ||
267 | for(u=16;u;u--,crow++) | ||
268 | if(!(of.tracks[tracks++]=FAR_ConvertTrack(crow,rows))) { | ||
269 | _mm_errno=MMERR_LOADING_PATTERN; | ||
270 | return 0; | ||
271 | } | ||
272 | } else | ||
273 | tracks+=16; | ||
274 | } | ||
275 | |||
276 | /* read sample map */ | ||
277 | if(!_mm_read_UBYTES(smap,8,modreader)) { | ||
278 | _mm_errno = MMERR_LOADING_HEADER; | ||
279 | return 0; | ||
280 | } | ||
281 | |||
282 | /* count number of samples used */ | ||
283 | of.numins = 0; | ||
284 | for(t=0;t<64;t++) | ||
285 | if(smap[t>>3]&(1<<(t&7))) of.numins=t+1; | ||
286 | of.numsmp = of.numins; | ||
287 | |||
288 | /* alloc sample structs */ | ||
289 | if(!AllocSamples()) return 0; | ||
290 | |||
291 | q = of.samples; | ||
292 | for(t=0;t<of.numsmp;t++) { | ||
293 | q->speed = 8363; | ||
294 | q->flags = SF_SIGNED; | ||
295 | if(smap[t>>3]&(1<<(t&7))) { | ||
296 | _mm_read_SBYTES(s.samplename,32,modreader); | ||
297 | s.length = _mm_read_I_ULONG(modreader); | ||
298 | s.finetune = _mm_read_UBYTE(modreader); | ||
299 | s.volume = _mm_read_UBYTE(modreader); | ||
300 | s.reppos = _mm_read_I_ULONG(modreader); | ||
301 | s.repend = _mm_read_I_ULONG(modreader); | ||
302 | s.type = _mm_read_UBYTE(modreader); | ||
303 | s.loop = _mm_read_UBYTE(modreader); | ||
304 | |||
305 | q->samplename = DupStr(s.samplename,32,1); | ||
306 | q->length = s.length; | ||
307 | q->loopstart = s.reppos; | ||
308 | q->loopend = s.repend; | ||
309 | q->volume = s.volume<<2; | ||
310 | |||
311 | if(s.type&1) q->flags|=SF_16BITS; | ||
312 | if(s.loop&8) q->flags|=SF_LOOP; | ||
313 | |||
314 | q->seekpos = _mm_ftell(modreader); | ||
315 | _mm_fseek(modreader,q->length,SEEK_CUR); | ||
316 | } else | ||
317 | q->samplename = DupStr(NULL,0,0); | ||
318 | q++; | ||
319 | } | ||
320 | return 1; | ||
321 | } | ||
322 | |||
323 | CHAR *FAR_LoadTitle(void) | ||
324 | { | ||
325 | CHAR s[40]; | ||
326 | |||
327 | _mm_fseek(modreader,4,SEEK_SET); | ||
328 | if(!_mm_read_UBYTES(s,40,modreader)) return NULL; | ||
329 | |||
330 | return(DupStr(s,40,1)); | ||
331 | } | ||
332 | |||
333 | /*========== Loader information */ | ||
334 | |||
335 | MIKMODAPI MLOADER load_far={ | ||
336 | NULL, | ||
337 | "FAR", | ||
338 | "FAR (Farandole Composer)", | ||
339 | FAR_Init, | ||
340 | FAR_Test, | ||
341 | FAR_Load, | ||
342 | FAR_Cleanup, | ||
343 | FAR_LoadTitle | ||
344 | }; | ||
345 | |||
346 | /* ex:set ts=4: */ | ||