Lines Matching defs:psf
62 static int mat4_close (SF_PRIVATE *psf) ;
66 static int mat4_write_header (SF_PRIVATE *psf, int calc_length) ;
67 static int mat4_read_header (SF_PRIVATE *psf) ;
76 mat4_open (SF_PRIVATE *psf)
79 if (psf->file.mode == SFM_READ || (psf->file.mode == SFM_RDWR && psf->filelength > 0))
80 { if ((error = mat4_read_header (psf)))
84 if ((SF_CONTAINER (psf->sf.format)) != SF_FORMAT_MAT4)
87 subformat = SF_CODEC (psf->sf.format) ;
89 if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
90 { if (psf->is_pipe)
93 psf->endian = SF_ENDIAN (psf->sf.format) ;
94 if (CPU_IS_LITTLE_ENDIAN && (psf->endian == SF_ENDIAN_CPU || psf->endian == 0))
95 psf->endian = SF_ENDIAN_LITTLE ;
96 else if (CPU_IS_BIG_ENDIAN && (psf->endian == SF_ENDIAN_CPU || psf->endian == 0))
97 psf->endian = SF_ENDIAN_BIG ;
99 if ((error = mat4_write_header (psf, SF_FALSE)))
102 psf->write_header = mat4_write_header ;
105 psf->container_close = mat4_close ;
107 psf->blockwidth = psf->bytewidth * psf->sf.channels ;
112 error = pcm_init (psf) ;
116 error = float32_init (psf) ;
120 error = double64_init (psf) ;
133 mat4_close (SF_PRIVATE *psf)
135 if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
136 mat4_write_header (psf, SF_TRUE) ;
145 mat4_write_header (SF_PRIVATE *psf, int calc_length)
150 current = psf_ftell (psf) ;
153 { psf->filelength = psf_get_filelen (psf) ;
155 psf->datalength = psf->filelength - psf->dataoffset ;
156 if (psf->dataend)
157 psf->datalength -= psf->filelength - psf->dataend ;
159 psf->sf.frames = psf->datalength / (psf->bytewidth * psf->sf.channels) ;
162 encoding = mat4_format_to_encoding (SF_CODEC (psf->sf.format), psf->endian) ;
168 psf->header.ptr [0] = 0 ;
169 psf->header.indx = 0 ;
170 psf_fseek (psf, 0, SEEK_SET) ;
173 samplerate = psf->sf.samplerate ;
175 if (psf->endian == SF_ENDIAN_BIG)
176 { psf_binheader_writef (psf, "Em444", BHWm (MAT4_BE_DOUBLE), BHW4 (1), BHW4 (1), BHW4 (0)) ;
177 psf_binheader_writef (psf, "E4bd", BHW4 (11), BHWv ("samplerate"), BHWz (11), BHWd (samplerate)) ;
178 psf_binheader_writef (psf, "tEm484", BHWm (encoding), BHW4 (psf->sf.channels), BHW8 (psf->sf.frames), BHW4 (0)) ;
179 psf_binheader_writef (psf, "E4b", BHW4 (9), BHWv ("wavedata"), BHWz (9)) ;
181 else if (psf->endian == SF_ENDIAN_LITTLE)
182 { psf_binheader_writef (psf, "em444", BHWm (MAT4_LE_DOUBLE), BHW4 (1), BHW4 (1), BHW4 (0)) ;
183 psf_binheader_writef (psf, "e4bd", BHW4 (11), BHWv ("samplerate"), BHWz (11), BHWd (samplerate)) ;
184 psf_binheader_writef (psf, "tem484", BHWm (encoding), BHW4 (psf->sf.channels), BHW8 (psf->sf.frames), BHW4 (0)) ;
185 psf_binheader_writef (psf, "e4b", BHW4 (9), BHWv ("wavedata"), BHWz (9)) ;
191 psf_fwrite (psf->header.ptr, psf->header.indx, 1, psf) ;
193 if (psf->error)
194 return psf->error ;
196 psf->dataoffset = psf->header.indx ;
199 psf_fseek (psf, current, SEEK_SET) ;
201 return psf->error ;
205 mat4_read_header (SF_PRIVATE *psf)
213 psf_binheader_readf (psf, "pm", 0, &marker) ;
217 { psf->endian = psf->rwf_endian = SF_ENDIAN_BIG ;
221 { psf->endian = psf->rwf_endian = SF_ENDIAN_LITTLE ;
227 psf_log_printf (psf, "GNU Octave 2.0 / MATLAB v4.2 format\nMarker : %s\n", marker_str) ;
229 psf_binheader_readf (psf, "444", &rows, &cols, &imag) ;
231 psf_log_printf (psf, " Rows : %d\n Cols : %d\n Imag : %s\n", rows, cols, imag ? "True" : "False") ;
233 psf_binheader_readf (psf, "4", &namesize) ;
238 psf_binheader_readf (psf, "b", name, namesize) ;
241 psf_log_printf (psf, " Name : %s\n", name) ;
243 psf_binheader_readf (psf, "d", &value) ;
246 psf_log_printf (psf, buffer) ;
251 psf->sf.samplerate = psf_lrint (value) ;
255 psf_binheader_readf (psf, "m", &marker) ;
257 psf_log_printf (psf, "Marker : %s\n", mat4_marker_to_str (marker)) ;
259 psf_binheader_readf (psf, "444", &rows, &cols, &imag) ;
261 psf_log_printf (psf, " Rows : %d\n Cols : %d\n Imag : %s\n", rows, cols, imag ? "True" : "False") ;
263 psf_binheader_readf (psf, "4", &namesize) ;
268 psf_binheader_readf (psf, "b", name, namesize) ;
271 psf_log_printf (psf, " Name : %s\n", name) ;
273 psf->dataoffset = psf_ftell (psf) ;
276 { psf_log_printf (psf, "*** Error : zero channel count.\n") ;
280 { psf_log_printf (psf, "*** Error : channel count %d > SF_MAX_CHANNELS.\n", rows) ;
284 psf->sf.channels = rows ;
285 psf->sf.frames = cols ;
287 psf->sf.format = psf->endian | SF_FORMAT_MAT4 ;
291 psf->sf.format |= SF_FORMAT_DOUBLE ;
292 psf->bytewidth = 8 ;
297 psf->sf.format |= SF_FORMAT_FLOAT ;
298 psf->bytewidth = 4 ;
303 psf->sf.format |= SF_FORMAT_PCM_32 ;
304 psf->bytewidth = 4 ;
309 psf->sf.format |= SF_FORMAT_PCM_16 ;
310 psf->bytewidth = 2 ;
314 psf_log_printf (psf, "*** Error : Bad marker %08X\n", marker) ;
318 if ((psf->filelength - psf->dataoffset) < psf->sf.channels * psf->sf.frames * psf->bytewidth)
319 { psf_log_printf (psf, "*** File seems to be truncated. %D <--> %D\n",
320 psf->filelength - psf->dataoffset, psf->sf.channels * psf->sf.frames * psf->bytewidth) ;
322 else if ((psf->filelength - psf->dataoffset) > psf->sf.channels * psf->sf.frames * psf->bytewidth)
323 psf->dataend = psf->dataoffset + rows * cols * psf->bytewidth ;
325 psf->datalength = psf->filelength - psf->dataoffset - psf->dataend ;
327 psf->sf.sections = 1 ;