1 /*
2  *  Patch transfer callback for Emu10k1
3  *
4  *  Copyright (C) 2000 Takashi iwai <tiwai@suse.de>
5  *
6  *   This program is free software; you can redistribute it and/or modify
7  *   it under the terms of the GNU General Public License as published by
8  *   the Free Software Foundation; either version 2 of the License, or
9  *   (at your option) any later version.
10  *
11  *   This program is distributed in the hope that it will be useful,
12  *   but WITHOUT ANY WARRANTY; without even the implied warranty of
13  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  *   GNU General Public License for more details.
15  *
16  *   You should have received a copy of the GNU General Public License
17  *   along with this program; if not, write to the Free Software
18  *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
19  */
20 /*
21  * All the code for loading in a patch.  There is very little that is
22  * chip specific here.  Just the actual writing to the board.
23  */
24 
25 #include "emu10k1_synth_local.h"
26 
27 /*
28  */
29 #define BLANK_LOOP_START	4
30 #define BLANK_LOOP_END		8
31 #define BLANK_LOOP_SIZE		12
32 #define BLANK_HEAD_SIZE		32
33 
34 /*
35  * allocate a sample block and copy data from userspace
36  */
37 int
38 snd_emu10k1_sample_new(struct snd_emux *rec, struct snd_sf_sample *sp,
39 		       struct snd_util_memhdr *hdr,
40 		       const void __user *data, long count)
41 {
42 	int offset;
43 	int truesize, size, loopsize, blocksize;
44 	int loopend, sampleend;
45 	unsigned int start_addr;
46 	struct snd_emu10k1 *emu;
47 
48 	emu = rec->hw;
49 	if (snd_BUG_ON(!sp || !hdr))
50 		return -EINVAL;
51 
52 	if (sp->v.size == 0) {
53 		dev_dbg(emu->card->dev,
54 			"emu: rom font for sample %d\n", sp->v.sample);
55 		return 0;
56 	}
57 
58 	/* recalculate address offset */
59 	sp->v.end -= sp->v.start;
60 	sp->v.loopstart -= sp->v.start;
61 	sp->v.loopend -= sp->v.start;
62 	sp->v.start = 0;
63 
64 	/* some samples have invalid data.  the addresses are corrected in voice info */
65 	sampleend = sp->v.end;
66 	if (sampleend > sp->v.size)
67 		sampleend = sp->v.size;
68 	loopend = sp->v.loopend;
69 	if (loopend > sampleend)
70 		loopend = sampleend;
71 
72 	/* be sure loop points start < end */
73 	if (sp->v.loopstart >= sp->v.loopend) {
74 		int tmp = sp->v.loopstart;
75 		sp->v.loopstart = sp->v.loopend;
76 		sp->v.loopend = tmp;
77 	}
78 
79 	/* compute true data size to be loaded */
80 	truesize = sp->v.size + BLANK_HEAD_SIZE;
81 	loopsize = 0;
82 #if 0 /* not supported */
83 	if (sp->v.mode_flags & (SNDRV_SFNT_SAMPLE_BIDIR_LOOP|SNDRV_SFNT_SAMPLE_REVERSE_LOOP))
84 		loopsize = sp->v.loopend - sp->v.loopstart;
85 	truesize += loopsize;
86 #endif
87 	if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_NO_BLANK)
88 		truesize += BLANK_LOOP_SIZE;
89 
90 	/* try to allocate a memory block */
91 	blocksize = truesize;
92 	if (! (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_8BITS))
93 		blocksize *= 2;
94 	sp->block = snd_emu10k1_synth_alloc(emu, blocksize);
95 	if (sp->block == NULL) {
96 		dev_dbg(emu->card->dev,
97 			"synth malloc failed (size=%d)\n", blocksize);
98 		/* not ENOMEM (for compatibility with OSS) */
99 		return -ENOSPC;
100 	}
101 	/* set the total size */
102 	sp->v.truesize = blocksize;
103 
104 	/* write blank samples at head */
105 	offset = 0;
106 	size = BLANK_HEAD_SIZE;
107 	if (! (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_8BITS))
108 		size *= 2;
109 	if (offset + size > blocksize)
110 		return -EINVAL;
111 	snd_emu10k1_synth_bzero(emu, sp->block, offset, size);
112 	offset += size;
113 
114 	/* copy start->loopend */
115 	size = loopend;
116 	if (! (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_8BITS))
117 		size *= 2;
118 	if (offset + size > blocksize)
119 		return -EINVAL;
120 	if (snd_emu10k1_synth_copy_from_user(emu, sp->block, offset, data, size)) {
121 		snd_emu10k1_synth_free(emu, sp->block);
122 		sp->block = NULL;
123 		return -EFAULT;
124 	}
125 	offset += size;
126 	data += size;
127 
128 #if 0 /* not supported yet */
129 	/* handle reverse (or bidirectional) loop */
130 	if (sp->v.mode_flags & (SNDRV_SFNT_SAMPLE_BIDIR_LOOP|SNDRV_SFNT_SAMPLE_REVERSE_LOOP)) {
131 		/* copy loop in reverse */
132 		if (! (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_8BITS)) {
133 			int woffset;
134 			unsigned short *wblock = (unsigned short*)block;
135 			woffset = offset / 2;
136 			if (offset + loopsize * 2 > blocksize)
137 				return -EINVAL;
138 			for (i = 0; i < loopsize; i++)
139 				wblock[woffset + i] = wblock[woffset - i -1];
140 			offset += loopsize * 2;
141 		} else {
142 			if (offset + loopsize > blocksize)
143 				return -EINVAL;
144 			for (i = 0; i < loopsize; i++)
145 				block[offset + i] = block[offset - i -1];
146 			offset += loopsize;
147 		}
148 
149 		/* modify loop pointers */
150 		if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_BIDIR_LOOP) {
151 			sp->v.loopend += loopsize;
152 		} else {
153 			sp->v.loopstart += loopsize;
154 			sp->v.loopend += loopsize;
155 		}
156 		/* add sample pointer */
157 		sp->v.end += loopsize;
158 	}
159 #endif
160 
161 	/* loopend -> sample end */
162 	size = sp->v.size - loopend;
163 	if (size < 0)
164 		return -EINVAL;
165 	if (! (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_8BITS))
166 		size *= 2;
167 	if (snd_emu10k1_synth_copy_from_user(emu, sp->block, offset, data, size)) {
168 		snd_emu10k1_synth_free(emu, sp->block);
169 		sp->block = NULL;
170 		return -EFAULT;
171 	}
172 	offset += size;
173 
174 	/* clear rest of samples (if any) */
175 	if (offset < blocksize)
176 		snd_emu10k1_synth_bzero(emu, sp->block, offset, blocksize - offset);
177 
178 	if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_NO_BLANK) {
179 		/* if no blank loop is attached in the sample, add it */
180 		if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_SINGLESHOT) {
181 			sp->v.loopstart = sp->v.end + BLANK_LOOP_START;
182 			sp->v.loopend = sp->v.end + BLANK_LOOP_END;
183 		}
184 	}
185 
186 #if 0 /* not supported yet */
187 	if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_UNSIGNED) {
188 		/* unsigned -> signed */
189 		if (! (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_8BITS)) {
190 			unsigned short *wblock = (unsigned short*)block;
191 			for (i = 0; i < truesize; i++)
192 				wblock[i] ^= 0x8000;
193 		} else {
194 			for (i = 0; i < truesize; i++)
195 				block[i] ^= 0x80;
196 		}
197 	}
198 #endif
199 
200 	/* recalculate offset */
201 	start_addr = BLANK_HEAD_SIZE * 2;
202 	if (! (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_8BITS))
203 		start_addr >>= 1;
204 	sp->v.start += start_addr;
205 	sp->v.end += start_addr;
206 	sp->v.loopstart += start_addr;
207 	sp->v.loopend += start_addr;
208 
209 	return 0;
210 }
211 
212 /*
213  * free a sample block
214  */
215 int
216 snd_emu10k1_sample_free(struct snd_emux *rec, struct snd_sf_sample *sp,
217 			struct snd_util_memhdr *hdr)
218 {
219 	struct snd_emu10k1 *emu;
220 
221 	emu = rec->hw;
222 	if (snd_BUG_ON(!sp || !hdr))
223 		return -EINVAL;
224 
225 	if (sp->block) {
226 		snd_emu10k1_synth_free(emu, sp->block);
227 		sp->block = NULL;
228 	}
229 	return 0;
230 }
231 
232