1 /*
2 * Adplug - Replayer for many OPL2/OPL3 audio file formats.
3 * Copyright (C) 1999 - 2004 Simon Peter, <dn.tlp@gmx.net>, et al.
4 *
5 * This library is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU Lesser General Public
7 * License as published by the Free Software Foundation; either
8 * version 2.1 of the License, or (at your option) any later version.
9 *
10 * This library 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 GNU
13 * Lesser General Public License for more details.
14 *
15 * You should have received a copy of the GNU Lesser 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 02111-1307 USA
18 *
19 * hsp.cpp - HSP Loader by Simon Peter <dn.tlp@gmx.net>
20 */
21
22 #include <string.h>
23
24 #include "hsp.h"
25
factory(Copl * newopl)26 CPlayer *ChspLoader::factory(Copl *newopl)
27 {
28 return new ChspLoader(newopl);
29 }
30
load(const char * filename,const CFileProvider & fp)31 bool ChspLoader::load(const char *filename, const CFileProvider &fp)
32 {
33 binistream *f = fp.open(filename); if(!f) return false;
34 unsigned long i, j, orgsize, filesize;
35 unsigned char *cmp, *org;
36
37 // file validation section
38 if(!fp.extension(filename, ".hsp")) { fp.close(f); return false; }
39
40 filesize = fp.filesize(f);
41 orgsize = f->readInt(2);
42 if(orgsize > 59187) { fp.close(f); return false; }
43
44 // load section
45 cmp = new unsigned char[filesize];
46 for(i = 0; i < filesize; i++) cmp[i] = f->readInt(1);
47 fp.close(f);
48
49 org = new unsigned char[orgsize];
50 for(i = 0, j = 0; i < filesize; j += cmp[i], i += 2) { // RLE decompress
51 if(j >= orgsize) break; // memory boundary check
52 memset(org + j, cmp[i + 1], j + cmp[i] < orgsize ? cmp[i] : orgsize - j - 1);
53 }
54 delete [] cmp;
55
56 memcpy(instr, org, 128 * 12); // instruments
57 for(i = 0; i < 128; i++) { // correct instruments
58 instr[i][2] ^= (instr[i][2] & 0x40) << 1;
59 instr[i][3] ^= (instr[i][3] & 0x40) << 1;
60 instr[i][11] >>= 4; // slide
61 }
62 memcpy(song, org + 128 * 12, 51); // tracklist
63 memcpy(patterns, org + 128 * 12 + 51, orgsize - 128 * 12 - 51); // patterns
64 delete [] org;
65
66 rewind(0);
67 return true;
68 }
69