Lines Matching defs:psf
73 static int svx_close (SF_PRIVATE *psf) ;
74 static int svx_write_header (SF_PRIVATE *psf, int calc_length) ;
75 static int svx_read_header (SF_PRIVATE *psf) ;
82 svx_open (SF_PRIVATE *psf)
85 if (psf->file.mode == SFM_READ || (psf->file.mode == SFM_RDWR && psf->filelength > 0))
86 { if ((error = svx_read_header (psf)))
89 psf->endian = SF_ENDIAN_BIG ; /* All SVX files are big endian. */
91 psf->blockwidth = psf->sf.channels * psf->bytewidth ;
92 if (psf->blockwidth)
93 psf->sf.frames = psf->datalength / psf->blockwidth ;
95 psf_fseek (psf, psf->dataoffset, SEEK_SET) ;
98 if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
99 { if (psf->is_pipe)
102 if ((SF_CONTAINER (psf->sf.format)) != SF_FORMAT_SVX)
105 psf->endian = SF_ENDIAN (psf->sf.format) ;
107 if (psf->endian == SF_ENDIAN_LITTLE || (CPU_IS_LITTLE_ENDIAN && psf->endian == SF_ENDIAN_CPU))
110 psf->endian = SF_ENDIAN_BIG ; /* All SVX files are big endian. */
112 error = svx_write_header (psf, SF_FALSE) ;
116 psf->write_header = svx_write_header ;
119 psf->container_close = svx_close ;
121 if ((error = pcm_init (psf)))
131 svx_read_header (SF_PRIVATE *psf)
137 if (psf->filelength > 0xFFFFFFFFLL)
138 psf_log_printf (psf, "Warning : filelength > 0xffffffff. This is bad!!!!\n") ;
141 psf_binheader_readf (psf, "p", 0) ;
144 psf->sf.channels = 1 ;
146 psf->sf.format = SF_FORMAT_SVX ;
149 { psf_binheader_readf (psf, "Em4", &marker, &chunk_size) ;
156 if (chunk_size != psf->filelength - 2 * sizeof (chunk_size))
157 psf_log_printf (psf, "FORM : %u (should be %u)\n", chunk_size, (uint32_t) psf->filelength - 2 * sizeof (chunk_size)) ;
159 psf_log_printf (psf, "FORM : %u\n", chunk_size) ;
162 psf_binheader_readf (psf, "m", &marker) ;
165 psf_log_printf (psf, " %M\n", marker) ;
173 psf_log_printf (psf, " VHDR : %d\n", chunk_size) ;
175 psf_binheader_readf (psf, "E4442114", &(vhdr.oneShotHiSamples), &(vhdr.repeatHiSamples),
179 psf_log_printf (psf, " OneShotHiSamples : %d\n", vhdr.oneShotHiSamples) ;
180 psf_log_printf (psf, " RepeatHiSamples : %d\n", vhdr.repeatHiSamples) ;
181 psf_log_printf (psf, " samplesPerHiCycle : %d\n", vhdr.samplesPerHiCycle) ;
182 psf_log_printf (psf, " Sample Rate : %d\n", vhdr.samplesPerSec) ;
183 psf_log_printf (psf, " Octave : %d\n", vhdr.octave) ;
185 psf_log_printf (psf, " Compression : %d => ", vhdr.compression) ;
188 { case 0 : psf_log_printf (psf, "None.\n") ;
190 case 1 : psf_log_printf (psf, "Fibonacci delta\n") ;
192 case 2 : psf_log_printf (psf, "Exponential delta\n") ;
196 psf_log_printf (psf, " Volume : %d\n", vhdr.volume) ;
198 psf->sf.samplerate = vhdr.samplesPerSec ;
201 { psf->sf.format |= SF_FORMAT_PCM_S8 ;
202 psf->bytewidth = 1 ;
205 { psf->sf.format |= SF_FORMAT_PCM_16 ;
206 psf->bytewidth = 2 ;
216 psf->datalength = chunk_size ;
218 psf->dataoffset = psf_ftell (psf) ;
219 if (psf->dataoffset < 0)
222 if (psf->datalength > psf->filelength - psf->dataoffset)
223 { psf_log_printf (psf, " BODY : %D (should be %D)\n", psf->datalength, psf->filelength - psf->dataoffset) ;
224 psf->datalength = psf->filelength - psf->dataoffset ;
227 psf_log_printf (psf, " BODY : %D\n", psf->datalength) ;
231 if (! psf->sf.seekable)
234 psf_fseek (psf, psf->datalength, SEEK_CUR) ;
241 psf_log_printf (psf, " %M : %u\n", marker, chunk_size) ;
243 if (strlen (psf->file.name) != chunk_size)
244 { if (chunk_size > sizeof (psf->file.name) - 1)
247 psf_binheader_readf (psf, "b", psf->file.name, chunk_size) ;
248 psf->file.name [chunk_size] = 0 ;
251 psf_binheader_readf (psf, "j", chunk_size) ;
258 psf_log_printf (psf, " %M : %u\n", marker, chunk_size) ;
260 psf_binheader_readf (psf, "j", chunk_size) ;
267 psf_log_printf (psf, " %M : %u\n", marker, chunk_size) ;
269 bytecount += psf_binheader_readf (psf, "E4", &channels) ;
272 psf_log_printf (psf, " Channels : %d => mono\n", channels) ;
274 { psf->sf.channels = 2 ;
275 psf_log_printf (psf, " Channels : %d => stereo\n", channels) ;
278 psf_log_printf (psf, " Channels : %d *** assuming mono\n", channels) ;
280 psf_binheader_readf (psf, "j", chunk_size - bytecount) ;
289 psf_log_printf (psf, " %M : %u\n", marker, chunk_size) ;
291 psf_binheader_readf (psf, "j", chunk_size) ;
297 psf_log_printf (psf, "*** Unknown chunk marker (%X) at position %D with length %u. Exiting parser.\n", marker, psf_ftell (psf) - 8, chunk_size) ;
303 { psf_log_printf (psf, "%M : %u (unknown marker)\n", marker, chunk_size) ;
304 psf_binheader_readf (psf, "j", chunk_size) ;
307 if ((chunk_size = psf_ftell (psf)) & 0x03)
308 { psf_log_printf (psf, " Unknown chunk marker at position %d. Resynching.\n", chunk_size - 4) ;
311 psf_binheader_readf (psf, "j", 4 - chunk_size) ;
314 psf_log_printf (psf, "*** Unknown chunk marker (%X) at position %D. Exiting parser.\n", marker, psf_ftell (psf) - 8) ;
318 if (! psf->sf.seekable && (parsestage & HAVE_BODY))
321 if (psf_ftell (psf) >= psf->filelength - SIGNED_SIZEOF (chunk_size))
328 if (psf->dataoffset <= 0)
335 svx_close (SF_PRIVATE *psf)
337 if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
338 svx_write_header (psf, SF_TRUE) ;
344 svx_write_header (SF_PRIVATE *psf, int calc_length)
348 current = psf_ftell (psf) ;
351 { psf->filelength = psf_get_filelen (psf) ;
353 psf->datalength = psf->filelength - psf->dataoffset ;
355 if (psf->dataend)
356 psf->datalength -= psf->filelength - psf->dataend ;
358 psf->sf.frames = psf->datalength / (psf->bytewidth * psf->sf.channels) ;
361 psf->header.ptr [0] = 0 ;
362 psf->header.indx = 0 ;
363 psf_fseek (psf, 0, SEEK_SET) ;
366 psf_binheader_writef (psf, "Etm8", BHWm (FORM_MARKER), BHW8 ((psf->filelength < 8) ?
367 psf->filelength * 0 : psf->filelength - 8)) ;
369 psf_binheader_writef (psf, "m", BHWm ((psf->bytewidth == 1) ? SVX8_MARKER : SV16_MARKER)) ;
372 psf_binheader_writef (psf, "Em4", BHWm (VHDR_MARKER), BHW4 (sizeof (VHDR_CHUNK))) ;
374 psf_binheader_writef (psf, "E444", BHW4 (psf->sf.frames), BHW4 (0), BHW4 (0)) ;
376 psf_binheader_writef (psf, "E211", BHW2 (psf->sf.samplerate), BHW1 (1), BHW1 (0)) ;
378 psf_binheader_writef (psf, "E4", BHW4 ((psf->bytewidth == 1) ? 0xFF : 0xFFFF)) ;
380 if (psf->sf.channels == 2)
381 psf_binheader_writef (psf, "Em44", BHWm (CHAN_MARKER), BHW4 (4), BHW4 (6)) ;
384 psf_binheader_writef (psf, "Emsms", BHWm (NAME_MARKER), BHWs (psf->file.name), BHWm (ANNO_MARKER), BHWs (annotation)) ;
387 psf_binheader_writef (psf, "Etm8", BHWm (BODY_MARKER), BHW8 ((psf->datalength < 0) ?
388 psf->datalength * 0 : psf->datalength)) ;
390 psf_fwrite (psf->header.ptr, psf->header.indx, 1, psf) ;
392 if (psf->error)
393 return psf->error ;
395 psf->dataoffset = psf->header.indx ;
398 psf_fseek (psf, current, SEEK_SET) ;
400 return psf->error ;