audio.c revision 1.8
1 /* $NetBSD: audio.c,v 1.8 1999/09/13 17:35:33 tron Exp $ */ 2 3 /* 4 * Copyright (c) 1999 Matthew R. Green 5 * All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. The name of the author may not be used to endorse or promote products 16 * derived from this software without specific prior written permission. 17 * 18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 19 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 20 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 21 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 22 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, 23 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 24 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED 25 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 26 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 27 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 28 * SUCH DAMAGE. 29 */ 30 31 /* 32 * XXX this is slightly icky in places... 33 */ 34 35 #include <sys/types.h> 36 #include <sys/audioio.h> 37 #include <sys/ioctl.h> 38 #include <sys/time.h> 39 40 #include <ctype.h> 41 #include <err.h> 42 #include <stdio.h> 43 #include <stdlib.h> 44 #include <string.h> 45 46 #include "libaudio.h" 47 48 /* back and forth between encodings */ 49 struct { 50 char *ename; 51 int eno; 52 } encs[] = { 53 { AudioEmulaw, AUDIO_ENCODING_ULAW }, 54 { "ulaw", AUDIO_ENCODING_ULAW }, 55 { AudioEalaw, AUDIO_ENCODING_ALAW }, 56 { AudioEslinear, AUDIO_ENCODING_SLINEAR }, 57 { "linear", AUDIO_ENCODING_SLINEAR }, 58 { AudioEulinear, AUDIO_ENCODING_ULINEAR }, 59 { AudioEadpcm, AUDIO_ENCODING_ADPCM }, 60 { "ADPCM", AUDIO_ENCODING_ADPCM }, 61 { AudioEslinear_le, AUDIO_ENCODING_SLINEAR_LE }, 62 { "linear_le", AUDIO_ENCODING_SLINEAR_LE }, 63 { AudioEulinear_le, AUDIO_ENCODING_ULINEAR_LE }, 64 { AudioEslinear_be, AUDIO_ENCODING_SLINEAR_BE }, 65 { "linear_be", AUDIO_ENCODING_SLINEAR_BE }, 66 { AudioEulinear_be, AUDIO_ENCODING_ULINEAR_BE }, 67 { AudioEmpeg_l1_stream, AUDIO_ENCODING_MPEG_L1_STREAM }, 68 { AudioEmpeg_l1_packets,AUDIO_ENCODING_MPEG_L1_PACKETS }, 69 { AudioEmpeg_l1_system, AUDIO_ENCODING_MPEG_L1_SYSTEM }, 70 { AudioEmpeg_l2_stream, AUDIO_ENCODING_MPEG_L2_STREAM }, 71 { AudioEmpeg_l2_packets,AUDIO_ENCODING_MPEG_L2_PACKETS }, 72 { AudioEmpeg_l2_system, AUDIO_ENCODING_MPEG_L2_SYSTEM }, 73 { NULL, -1 } 74 }; 75 76 77 char * 78 audio_enc_from_val(val) 79 int val; 80 { 81 int i; 82 83 for (i = 0; encs[i].ename; i++) 84 if (encs[i].eno == val) 85 break; 86 return (encs[i].ename); 87 } 88 89 int 90 audio_enc_to_val(enc) 91 const char *enc; 92 { 93 int i; 94 95 for (i = 0; encs[i].ename; i++) 96 if (strcmp(encs[i].ename, enc) == 0) 97 break; 98 if (encs[i].ename) 99 return (encs[i].eno); 100 else 101 return (-1); 102 } 103 104 /* 105 * SunOS/NeXT .au format helpers 106 */ 107 struct { 108 int file_encoding; 109 int encoding; 110 int precision; 111 } file2sw_encodings[] = { 112 { AUDIO_FILE_ENCODING_MULAW_8, AUDIO_ENCODING_ULAW, 8 }, 113 { AUDIO_FILE_ENCODING_LINEAR_8, AUDIO_ENCODING_ULINEAR_BE, 8 }, 114 { AUDIO_FILE_ENCODING_LINEAR_16, AUDIO_ENCODING_ULINEAR_BE, 16 }, 115 { AUDIO_FILE_ENCODING_LINEAR_24, AUDIO_ENCODING_ULINEAR_BE, 24 }, 116 { AUDIO_FILE_ENCODING_LINEAR_32, AUDIO_ENCODING_ULINEAR_BE, 32 }, 117 #if 0 118 { AUDIO_FILE_ENCODING_FLOAT, AUDIO_ENCODING_ULAW, 32 }, 119 { AUDIO_FILE_ENCODING_DOUBLE, AUDIO_ENCODING_ULAW, 64 }, 120 { AUDIO_FILE_ENCODING_ADPCM_G721, AUDIO_ENCODING_ULAW, 4 }, 121 { AUDIO_FILE_ENCODING_ADPCM_G722, AUDIO_ENCODING_ULAW, 0 }, 122 { AUDIO_FILE_ENCODING_ADPCM_G723_3, AUDIO_ENCODING_ULAW, 3 }, 123 { AUDIO_FILE_ENCODING_ADPCM_G723_5, AUDIO_ENCODING_ULAW, 5 }, 124 #endif 125 { AUDIO_FILE_ENCODING_ALAW_8, AUDIO_ENCODING_ALAW, 8 }, 126 { -1, -1 } 127 }; 128 129 int 130 audio_get_sun_encoding(sun_encoding, encp, precp) 131 int sun_encoding; 132 int *encp; 133 int *precp; 134 { 135 int i; 136 137 for (i = 0; file2sw_encodings[i].file_encoding != -1; i++) 138 if (file2sw_encodings[i].file_encoding == sun_encoding) { 139 *precp = file2sw_encodings[i].precision; 140 *encp = file2sw_encodings[i].encoding; 141 return (0); 142 } 143 return (1); 144 } 145 146 /* 147 * sample header is: 148 * 149 * RIFF\^@^C^@WAVEfmt ^P^@^@^@^A^@^B^@D<AC>^@^@^P<B1>^B^@^D^@^P^@data^@^@^C^@^@^@^@^@^@^@^@^@^@ 150 * 151 */ 152 /* 153 * WAV format helpers 154 */ 155 /* 156 * find a .wav header, etc. returns header length on success 157 */ 158 size_t 159 audio_parse_wav_hdr(hdr, sz, enc, prec, sample, channels) 160 void *hdr; 161 size_t sz; 162 int *enc; 163 int *prec; 164 int *sample; 165 int *channels; 166 { 167 char *where = hdr; 168 wav_audioheaderpart *part; 169 wav_audioheaderfmt *fmt; 170 char *end = (((char *)hdr) + sz); 171 int newenc, newprec; 172 173 if (sz < 32) 174 return (AUDIO_ENOENT); 175 176 if (strncmp(where, "RIFF", 4)) 177 return (AUDIO_ENOENT); 178 where += 8; 179 if (strncmp(where, "WAVE", 4)) 180 return (AUDIO_ENOENT); 181 where += 4; 182 183 do { 184 part = (wav_audioheaderpart *)where; 185 where += getle32(part->len) + 8; 186 } while (where < end && strncmp(part->name, "fmt ", 4)); 187 188 /* too short ? */ 189 if (where + 16 > end) 190 return (AUDIO_ESHORTHDR); 191 192 fmt = (wav_audioheaderfmt *)(part + 1); 193 194 #if 0 195 printf("fmt header is:\n\t%d\ttag\n\t%d\tchannels\n\t%d\tsample rate\n\t%d\tavg_bps\n\t%d\talignment\n\t%d\tbits per sample\n", getle16(fmt->tag), getle16(fmt->channels), getle32(fmt->sample_rate), getle32(fmt->avg_bps), getle16(fmt->alignment), getle16(fmt->bits_per_sample)); 196 #endif 197 198 switch (getle16(fmt->tag)) { 199 case WAVE_FORMAT_UNKNOWN: 200 case WAVE_FORMAT_ADPCM: 201 case WAVE_FORMAT_OKI_ADPCM: 202 case WAVE_FORMAT_DIGISTD: 203 case WAVE_FORMAT_DIGIFIX: 204 case IBM_FORMAT_MULAW: 205 case IBM_FORMAT_ALAW: 206 case IBM_FORMAT_ADPCM: 207 default: 208 return (AUDIO_EWAVUNSUPP); 209 210 case WAVE_FORMAT_PCM: 211 switch (getle16(fmt->bits_per_sample)) { 212 case 8: 213 newprec = 8; 214 break; 215 case 16: 216 newprec = 16; 217 break; 218 case 24: 219 newprec = 24; 220 break; 221 case 32: 222 newprec = 32; 223 break; 224 default: 225 return (AUDIO_EWAVBADPCM); 226 } 227 if (newprec == 8) 228 newenc = AUDIO_ENCODING_ULINEAR_LE; 229 else 230 newenc = AUDIO_ENCODING_SLINEAR_LE; 231 break; 232 case WAVE_FORMAT_ALAW: 233 newenc = AUDIO_ENCODING_ALAW; 234 newprec = 8; 235 break; 236 case WAVE_FORMAT_MULAW: 237 newenc = AUDIO_ENCODING_ULAW; 238 newprec = 8; 239 break; 240 } 241 242 do { 243 part = (wav_audioheaderpart *)where; 244 #if 0 245 printf("part `%c%c%c%c' len = %d\n", part->name[0], part->name[1], part->name[2], part->name[3], getle32(part->len)); 246 #endif 247 where += (getle32(part->len) + 8); 248 } while ((char *)where < end && strncmp(part->name, "data", 4)); 249 250 if ((where - getle32(part->len)) <= end) { 251 *channels = getle16(fmt->channels); 252 *sample = getle32(fmt->sample_rate); 253 *enc = newenc; 254 *prec = newprec; 255 part++; 256 return ((char *)part - (char *)hdr); 257 } 258 return (AUDIO_EWAVNODATA); 259 } 260 261 /* 262 * these belong elsewhere?? 263 */ 264 void 265 decode_int(arg, intp) 266 const char *arg; 267 int *intp; 268 { 269 char *ep; 270 int ret; 271 272 ret = strtoul(arg, &ep, 0); 273 274 if (ep[0] == '\0') { 275 *intp = ret; 276 return; 277 } 278 errx(1, "argument `%s' not a valid integer", arg); 279 } 280 281 void 282 decode_time(arg, tvp) 283 const char *arg; 284 struct timeval *tvp; 285 { 286 char *s, *colon, *dot; 287 char *copy = strdup(arg); 288 int first; 289 290 if (copy == NULL) 291 err(1, "could not allocate a copy of %s", arg); 292 293 tvp->tv_sec = tvp->tv_usec = 0; 294 s = copy; 295 296 /* handle [hh:]mm:ss.dd */ 297 if ((colon = strchr(s, ':'))) { 298 *colon++ = '\0'; 299 decode_int(s, &first); 300 tvp->tv_sec = first * 60; /* minutes */ 301 s = colon; 302 303 if ((colon = strchr(s, ':'))) { 304 *colon++ = '\0'; 305 decode_int(s, &first); 306 tvp->tv_sec += first; 307 tvp->tv_sec *= 60; /* minutes and hours */ 308 s = colon; 309 } 310 } 311 if ((dot = strchr(s, '.'))) { 312 int i, base = 100000; 313 314 *dot++ = '\0'; 315 316 for (i = 0; i < 6; i++, base /= 10) { 317 if (!dot[i]) 318 break; 319 if (!isdigit(dot[i])) 320 errx(1, "argument `%s' is not a value time specification", arg); 321 tvp->tv_usec += base * (dot[i] - '0'); 322 } 323 } 324 decode_int(s, &first); 325 tvp->tv_sec += first; 326 #if 0 327 printf("tvp->tv_sec = %ld, tvp->tv_usec = %ld\n", tvp->tv_sec, tvp->tv_usec); 328 #endif 329 330 free(copy); 331 } 332 333 /* 334 * decode a string into an encoding value. 335 */ 336 void 337 decode_encoding(arg, encp) 338 const char *arg; 339 int *encp; 340 { 341 size_t len; 342 int i; 343 344 len = strlen(arg); 345 for (i = 0; encs[i].ename; i++) 346 if (strncmp(encs[i].ename, arg, len) == 0) { 347 *encp = encs[i].eno; 348 return; 349 } 350 errx(1, "unknown encoding `%s'", arg); 351 } 352 353 const char *const audio_errlist[] = { 354 "no audio entry", 355 "short header", 356 "unsupported WAV format", 357 "bad (unsupported) WAV PCM format", 358 "no WAV audio data", 359 }; 360 361 const char * 362 audio_errstring(errval) 363 int errval; 364 { 365 366 errval = -errval; 367 if (errval < 1 || errval > AUDIO_MAXERRNO) 368 return "Invalid error"; 369 return audio_errlist[errval]; 370 } 371
Indexes created Fri Sep 26 08:10:20 GMT 2025