开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > Windows CE > 查看源码
load_far.c
资源名称：tcpmp.rar　[点击查看]
上传用户：wstnjxml
上传日期：2014-04-03
资源大小：7248k
文件大小：8k
源码类别：

Windows CE

开发平台：

C/C++

load_far.c：源码内容
  1. /* MikMod sound library
  2. (c) 1998, 1999, 2000, 2001, 2002 Miodrag Vallat and others - see file
  3. AUTHORS for complete list.
  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. */
  21. /*==============================================================================
  23.   $Id: load_far.c,v 1.1.1.1 2004/01/21 01:36:35 raph Exp $
  25.   Farandole (FAR) module loader
  27. ==============================================================================*/
  29. #ifdef HAVE_CONFIG_H
  30. #include "config.h"
  31. #endif
  33. #ifdef HAVE_UNISTD_H
  34. #include <unistd.h>
  35. #endif
  37. #include <stdio.h>
  38. #ifdef HAVE_MEMORY_H
  39. #include <memory.h>
  40. #endif
  41. #include <string.h>
  43. #include "mikmod_internals.h"
  45. #ifdef SUNOS
  46. extern int fprintf(FILE *, const char *, ...);
  47. #endif
  49. /*========== Module structure */
  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;
  65. typedef struct FARHEADER2 {
  66. UBYTE orders[256];
  67. UBYTE numpat;
  68. UBYTE snglen;
  69. UBYTE loopto;
  70. UWORD patsiz[256];
  71. } FARHEADER2;
  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;
  84. typedef struct FARNOTE {
  85. UBYTE note,ins,vol,eff;
  86. } FARNOTE;
  88. /*========== Loader variables */
  90. static CHAR FAR_Version[] = "Farandole";
  91. static FARHEADER1 *mh1 = NULL;
  92. static FARHEADER2 *mh2 = NULL;
  93. static FARNOTE *pat = NULL;
  95. static unsigned char FARSIG[4+3]={'F','A','R',0xfe,13,10,26};
  97. /*========== Loader code */
  99. BOOL FAR_Test(void)
  100. {
  101. UBYTE id[47];
  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. }
  108. BOOL FAR_Init(void)
  109. {
  110. if(!(mh1 = (FARHEADER1*)_mm_malloc(sizeof(FARHEADER1)))) return 0;
  111. if(!(mh2 = (FARHEADER2*)_mm_malloc(sizeof(FARHEADER2)))) return 0;
  112. if(!(pat = (FARNOTE*)_mm_malloc(256*16*4*sizeof(FARNOTE)))) return 0;
  114. return 1;
  115. }
  117. void FAR_Cleanup(void)
  118. {
  119. _mm_free(mh1);
  120. _mm_free(mh2);
  121. _mm_free(pat);
  122. }
  124. static UBYTE *FAR_ConvertTrack(FARNOTE* n,int rows)
  125. {
  126. int t,vibdepth=1;
  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;
  162. /* others not yet implemented */
  163. default:
  164. #ifdef MIKMOD_DEBUG
  165. fprintf(stderr,"rFAR: unsupported effect %02Xn",n->eff);
  166. #endif
  167. break;
  168. }
  170. UniNewline();
  171. n+=16;
  172. }
  173. return UniDup();
  174. }
  176. BOOL FAR_Load(BOOL curious)
  177. {
  178. int t,u,tracks=0;
  179. SAMPLE *q;
  180. FARSAMPLE s;
  181. FARNOTE *crow;
  182. UBYTE smap[8];
  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);
  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;
  207. /* read songtext into comment field */
  208. if(mh1->stlen)
  209. if (!ReadLinedComment(mh1->stlen, 66)) return 0;
  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);
  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. }
  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;
  232. /* seek across eventual new data */
  233. _mm_fseek(modreader,mh1->headerlen-(869+mh1->stlen),SEEK_CUR);
  235. /* alloc track and pattern structures */
  236. if(!AllocTracks()) return 0;
  237. if(!AllocPatterns()) return 0;
  239. for(t=0;t<of.numpat;t++) {
  240. UBYTE rows=0,tempo;
  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);
  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. }
  260. if(_mm_eof(modreader)) {
  261. _mm_errno = MMERR_LOADING_PATTERN;
  262. return 0;
  263. }
  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. }
  276. /* read sample map */
  277. if(!_mm_read_UBYTES(smap,8,modreader)) {
  278. _mm_errno = MMERR_LOADING_HEADER;
  279. return 0;
  280. }
  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;             
  288. /* alloc sample structs */
  289. if(!AllocSamples()) return 0;
  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);
  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;
  311. if(s.type&1) q->flags|=SF_16BITS;
  312. if(s.loop&8) q->flags|=SF_LOOP;
  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. }
  323. CHAR *FAR_LoadTitle(void)
  324. {
  325. CHAR s[40];
  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. }
  333. /*========== Loader information */
  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. };
  346. /* ex:set ts=4: */