ref: c52b45fa675267acd65b888ae16bff90b731d24b
dir: /src/maud.c/
/* * July 5, 1991 * Copyright 1991 Lance Norskog And Sundry Contributors * This source code is freely redistributable and may be used for * any purpose. This copyright notice must be maintained. * Lance Norskog And Sundry Contributors are not responsible for * the consequences of using this software. */ /* * Sound Tools MAUD file format driver, by Lutz Vieweg 1993 * * supports: mono and stereo, linear, a-law and u-law reading and writing * * March 3, 1999 - cbagwell * Changed to use rawread for reading. * */ #include "st.h" #include <string.h> #include <stdlib.h> #include <stdio.h> #ifdef HAVE_UNISTD_H #include <unistd.h> /* For SEEK_* defines if not found in stdio */ #endif /* Private data for MAUD file */ struct maudstuff { /* max. 100 bytes!!!! */ ULONG nsamples; }; static void maudwriteheader(ft_t); /* * Do anything required before you start reading samples. * Read file header. * Find out sampling rate, * size and encoding of samples, * mono/stereo/quad. */ int st_maudstartread(ft) ft_t ft; { struct maudstuff * p = (struct maudstuff *) ft->priv; char buf[12]; char *chunk_buf; unsigned short bitpersam; ULONG nom; unsigned short denom; unsigned short chaninf; ULONG chunksize; ULONG trash; int rc; /* Needed for rawread() */ rc = st_rawstartread(ft); if (rc) return rc; /* maud is in big endian format. Swap whats read in * on little endian machines. */ if (ST_IS_LITTLEENDIAN) { ft->swap = ft->swap ? 0 : 1; } /* read FORM chunk */ if (st_reads(ft, buf, 4) == ST_EOF || strncmp(buf, "FORM", 4) != 0) { st_fail_errno(ft,ST_EHDR,"MAUD: header does not begin with magic word 'FORM'"); return (ST_EOF); } st_readdw(ft, &trash); /* totalsize */ if (st_reads(ft, buf, 4) == ST_EOF || strncmp(buf, "MAUD", 4) != 0) { st_fail_errno(ft,ST_EHDR,"MAUD: 'FORM' chunk does not specify 'MAUD' as type"); return(ST_EOF); } /* read chunks until 'BODY' (or end) */ while (st_reads(ft, buf, 4) == ST_SUCCESS && strncmp(buf,"MDAT",4) != 0) { /* buf[4] = 0; st_report("chunk %s",buf); */ if (strncmp(buf,"MHDR",4) == 0) { st_readdw(ft, &chunksize); if (chunksize != 8*4) { st_fail_errno(ft,ST_EHDR,"MAUD: MHDR chunk has bad size"); return(ST_EOF); } /* fseek(ft->fp,12,SEEK_CUR); */ /* number of samples stored in MDAT */ st_readdw(ft, &(p->nsamples)); /* number of bits per sample as stored in MDAT */ st_readw(ft, &bitpersam); /* number of bits per sample after decompression */ st_readw(ft, (unsigned short *)&trash); st_readdw(ft, &nom); /* clock source frequency */ st_readw(ft, &denom); /* clock devide */ if (denom == 0) { st_fail_errno(ft,ST_EHDR,"MAUD: frequency denominator == 0, failed"); return (ST_EOF); } ft->info.rate = nom / denom; st_readw(ft, &chaninf); /* channel information */ switch (chaninf) { case 0: ft->info.channels = 1; break; case 1: ft->info.channels = 2; break; default: st_fail_errno(ft,ST_EFMT,"MAUD: unsupported number of channels in file"); return (ST_EOF); } st_readw(ft, &chaninf); /* number of channels (mono: 1, stereo: 2, ...) */ if (chaninf != ft->info.channels) { st_fail_errno(ft,ST_EFMT,"MAUD: unsupported number of channels in file"); return(ST_EOF); } st_readw(ft, &chaninf); /* compression type */ st_readdw(ft, &trash); /* rest of chunk, unused yet */ st_readdw(ft, &trash); st_readdw(ft, &trash); if (bitpersam == 8 && chaninf == 0) { ft->info.size = ST_SIZE_BYTE; ft->info.encoding = ST_ENCODING_UNSIGNED; } else if (bitpersam == 8 && chaninf == 2) { ft->info.size = ST_SIZE_BYTE; ft->info.encoding = ST_ENCODING_ALAW; } else if (bitpersam == 8 && chaninf == 3) { ft->info.size = ST_SIZE_BYTE; ft->info.encoding = ST_ENCODING_ULAW; } else if (bitpersam == 16 && chaninf == 0) { ft->info.size = ST_SIZE_WORD; ft->info.encoding = ST_ENCODING_SIGN2; } else { st_fail_errno(ft,ST_EFMT,"MAUD: unsupported compression type detected"); return(ST_EOF); } ft->comment = 0; continue; } if (strncmp(buf,"ANNO",4) == 0) { st_readdw(ft, &chunksize); if (chunksize & 1) chunksize++; chunk_buf = (char *) malloc(chunksize + 1); if (!chunk_buf) { st_fail_errno(ft,ST_ENOMEM,"Couldn't alloc resources"); return(ST_EOF); } if (fread(chunk_buf,1,(int)chunksize,ft->fp) != chunksize) { st_fail_errno(ft,ST_EOF,"MAUD: Unexpected EOF in ANNO header"); return(ST_EOF); } chunk_buf[chunksize] = '\0'; st_report("%s",chunk_buf); free(chunk_buf); continue; } /* some other kind of chunk */ st_readdw(ft, &chunksize); if (chunksize & 1) chunksize++; fseek(ft->fp,chunksize,SEEK_CUR); continue; } if (strncmp(buf,"MDAT",4) != 0) { st_fail_errno(ft,ST_EFMT,"MAUD: MDAT chunk not found"); return(ST_EOF); } st_readdw(ft, &(p->nsamples)); return(ST_SUCCESS); } /* * Read up to len samples from file. * Convert to signed longs. * Place in buf[]. * Return number of samples read. */ LONG st_maudread(ft, buf, len) ft_t ft; LONG *buf, len; { return (st_rawread(ft, buf, len)); } /* * Do anything required when you stop reading samples. * Don't close input file! */ int st_maudstopread(ft) ft_t ft; { /* Needed because of rawread() */ return st_rawstopread(ft); } int st_maudstartwrite(ft) ft_t ft; { struct maudstuff * p = (struct maudstuff *) ft->priv; int rc; /* Needed for rawwrite() */ rc = st_rawstartwrite(ft); if (rc) return rc; /* maud is in big endian format. Swap whats read in * on little endian machines. */ if (ST_IS_LITTLEENDIAN) { ft->swap = ft->swap ? 0 : 1; } /* If you have to seek around the output file */ if (! ft->seekable) { st_fail_errno(ft,ST_EOF,"Output .maud file must be a file, not a pipe"); return (ST_EOF); } if (ft->info.channels != 1 && ft->info.channels != 2) { st_fail_errno(ft,ST_EFMT,"MAUD: unsupported number of channels, unable to store"); return(ST_EOF); } if (ft->info.size == ST_SIZE_WORD) ft->info.encoding = ST_ENCODING_SIGN2; if (ft->info.encoding == ST_ENCODING_ULAW || ft->info.encoding == ST_ENCODING_ALAW) ft->info.size = ST_SIZE_BYTE; if (ft->info.size == ST_SIZE_BYTE && ft->info.encoding == ST_ENCODING_SIGN2) ft->info.encoding = ST_ENCODING_UNSIGNED; p->nsamples = 0x7f000000L; maudwriteheader(ft); p->nsamples = 0; return (ST_SUCCESS); } LONG st_maudwrite(ft, buf, len) ft_t ft; LONG *buf, len; { struct maudstuff * p = (struct maudstuff *) ft->priv; p->nsamples += len; return st_rawwrite(ft, buf, len); } int st_maudstopwrite(ft) ft_t ft; { int rc; /* Flush out remaining samples*/ rc = st_rawstopwrite(ft); if (rc) return rc; /* All samples are already written out. */ if (fseek(ft->fp, 0L, 0) != 0) { st_fail_errno(ft,errno,"can't rewind output file to rewrite MAUD header"); return(ST_EOF); } maudwriteheader(ft); return(ST_SUCCESS); } #define MAUDHEADERSIZE (4+(4+4+32)+(4+4+32)+(4+4)) static void maudwriteheader(ft) ft_t ft; { struct maudstuff * p = (struct maudstuff *) ft->priv; st_writes(ft, "FORM"); st_writedw(ft, (p->nsamples*ft->info.size) + MAUDHEADERSIZE); /* size of file */ st_writes(ft, "MAUD"); /* File type */ st_writes(ft, "MHDR"); st_writedw(ft, (LONG) 8*4); /* number of bytes to follow */ st_writedw(ft, (LONG) (p->nsamples )); /* number of samples stored in MDAT */ switch (ft->info.encoding) { case ST_ENCODING_UNSIGNED: st_writew(ft, (int) 8); /* number of bits per sample as stored in MDAT */ st_writew(ft, (int) 8); /* number of bits per sample after decompression */ break; case ST_ENCODING_SIGN2: st_writew(ft, (int) 16); /* number of bits per sample as stored in MDAT */ st_writew(ft, (int) 16); /* number of bits per sample after decompression */ break; case ST_ENCODING_ALAW: case ST_ENCODING_ULAW: st_writew(ft, (int) 8); /* number of bits per sample as stored in MDAT */ st_writew(ft, (int) 16); /* number of bits per sample after decompression */ break; } st_writedw(ft, (LONG) ft->info.rate); /* clock source frequency */ st_writew(ft, (int) 1); /* clock devide */ if (ft->info.channels == 1) { st_writew(ft, (int) 0); /* channel information */ st_writew(ft, (int) 1); /* number of channels (mono: 1, stereo: 2, ...) */ } else { st_writew(ft, (int) 1); st_writew(ft, (int) 2); } switch (ft->info.encoding) { case ST_ENCODING_UNSIGNED: case ST_ENCODING_SIGN2: st_writew(ft, (int) 0); /* no compression */ break; case ST_ENCODING_ULAW: st_writew(ft, (int) 3); break; case ST_ENCODING_ALAW: st_writew(ft, (int) 2); break; } st_writedw(ft, (LONG) 0); /* reserved */ st_writedw(ft, (LONG) 0); /* reserved */ st_writedw(ft, (LONG) 0); /* reserved */ st_writes(ft, "ANNO"); st_writedw(ft, (LONG) 30); /* length of block */ st_writes(ft, "file create by Sound eXchange "); st_writes(ft, "MDAT"); st_writedw(ft, p->nsamples * ft->info.size ); /* samples in file */ }