xref: /titanic_44/usr/src/cmd/audio/utilities/AudioHdrParse.cc (revision a60349c89adffc0902b2353230891d8e7f2b24d9)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 #pragma ident	"%Z%%M%	%I%	%E% SMI"
28 
29 #include <stdio.h>
30 #include <string.h>
31 #include <ctype.h>
32 #include <math.h>
33 #include <AudioHdr.h>
34 
35 #define	irint(d)	((int)(d))
36 
37 // Convert a string to lowercase and return an allocated copy of it.
38 // XXX - There really should be a string-insensitive 8-bit compare routine.
39 static char *
40 to_lowercase(
41 	char	*str)
42 {
43 	unsigned char	*oldstr;
44 	unsigned char	*newstr;
45 	int		i;
46 
47 	oldstr = (unsigned char *) str;
48 	newstr = new unsigned char [strlen(str) + 1];
49 	for (i = 0; ; i++) {
50 		if (isupper(oldstr[i]))
51 			newstr[i] = tolower(oldstr[i]);
52 		else
53 			newstr[i] = oldstr[i];
54 		if (oldstr[i] == '\0')
55 			break;
56 	}
57 	return ((char *)newstr);
58 }
59 
60 
61 
62 // class AudioHdr parsing methods
63 
64 
65 // Return a string containing the sample rate
66 char *AudioHdr::
67 RateString() const
68 {
69 	char	*str;
70 	int	ratek;
71 	int	rateh;
72 	int	prec;
73 
74 	str = new char[32];
75 	ratek = sample_rate / 1000;
76 	rateh = sample_rate % 1000;
77 	if (rateh == 0) {
78 		(void) sprintf(str, "%dkHz", ratek);
79 	} else {
80 		// scale down to print minimum digits after the decimal point
81 		prec = 3;
82 		if ((rateh % 10) == 0) {
83 			prec--;
84 			rateh /= 10;
85 		}
86 		if ((rateh % 10) == 0) {
87 			prec--;
88 			rateh /= 10;
89 		}
90 		(void) sprintf(str, "%d.%0*dkHz", ratek, prec, rateh);
91 	}
92 	return (str);
93 }
94 
95 // Return a string containing the number of channels
96 char *AudioHdr::
97 ChannelString() const
98 {
99 	char	*str;
100 
101 	str = new char[32];
102 	switch (channels) {
103 	case 1:
104 		(void) sprintf(str, "mono");
105 		break;
106 	case 2:
107 		(void) sprintf(str, "stereo");
108 		break;
109 	case 4:
110 		(void) sprintf(str, "quad");
111 		break;
112 	default:
113 		(void) sprintf(str, "%d-channel", channels);
114 		break;
115 	}
116 	return (str);
117 }
118 
119 // Return a string containing the encoding
120 char *AudioHdr::
121 EncodingString() const
122 {
123 	char	*str;
124 	Double	prec;
125 	int	iprec;
126 
127 	str = new char[64];
128 	if ((samples_per_unit == 0) || (bytes_per_unit == 0) ||
129 	    (encoding == NONE)) {
130 		(void) sprintf(str, "???");
131 	} else {
132 		// First encode precision
133 		iprec = (bytes_per_unit * 8) / samples_per_unit;
134 		prec = ((Double)bytes_per_unit * 8.) / (Double)samples_per_unit;
135 		if (prec == (Double) iprec) {
136 			(void) sprintf(str, "%d-bit ", iprec);
137 		} else {
138 			(void) sprintf(str, "%.1f-bit ", double(prec));
139 		}
140 
141 		// Then encode format
142 		switch (encoding) {
143 		case ULAW:
144 			// XXX - See bug 1121000
145 			// XXX - (void) strcat(str, "�-law");
146 			(void) strcat(str, "u-law");
147 			break;
148 		case ALAW:
149 			(void) strcat(str, "A-law");
150 			break;
151 		case LINEAR:
152 			(void) strcat(str, "linear");
153 			break;
154 		case FLOAT:
155 			(void) strcat(str, "float");
156 			break;
157 		case G721:
158 			(void) strcat(str, "G.721 ADPCM");
159 			break;
160 		case G722:
161 			(void) strcat(str, "G.722 ADPCM");
162 			break;
163 		case G723:
164 			(void) strcat(str, "G.723 ADPCM");
165 			break;
166 		case DVI:
167 			(void) strcat(str, "DVI ADPCM");
168 			break;
169 		default:
170 			(void) strcat(str, "???");
171 			break;
172 		}
173 	}
174 	return (str);
175 }
176 
177 // Return a string containing the entire audio encoding
178 char *AudioHdr::
179 FormatString() const
180 {
181 	char	*str;
182 	char	*rate;
183 	char	*chan;
184 	char	*enc;
185 
186 	str = new char[4 * 32];
187 
188 	enc = EncodingString();
189 	rate = RateString();
190 	chan = ChannelString();
191 	(void) sprintf(str, "%s, %s, %s", enc, rate, chan);
192 	delete rate;
193 	delete chan;
194 	delete enc;
195 	return (str);
196 }
197 
198 // Parse a string containing the sample rate
199 AudioError AudioHdr::
200 RateParse(
201 	char		*str)
202 {
203 static char		*lib_khz = NULL;
204 static char		*lib_hz = NULL;
205 
206 	double		r;
207 	int		rate;
208 	char		khzbuf[16];
209 	char		*khz;
210 
211 	if (str == NULL)
212 		return (AUDIO_ERR_BADARG);
213 
214 	// Init i18n string translations
215 	if (lib_khz == NULL) {
216 		lib_khz = to_lowercase(_MGET_("khz"));
217 		lib_hz = to_lowercase(_MGET_("hz"));
218 	}
219 
220 	// Scan for a number followed by an optional khz designator
221 	switch (sscanf(str, " %lf %15s", &r, khzbuf)) {
222 	case 2:
223 		// Process 'khz', if present, and fall through
224 		khz = to_lowercase(khzbuf);
225 		if ((strcmp(khz, "khz") == 0) ||
226 		    (strcmp(khz, "khertz") == 0) ||
227 		    (strcmp(khz, "kilohertz") == 0) ||
228 		    (strcmp(khz, "k") == 0) ||
229 		    (strcoll(khz, lib_khz) == 0)) {
230 			r *= 1000.;
231 		} else if ((strcmp(khz, "hz") != 0) &&
232 		    (strcmp(khz, "hertz") != 0) &&
233 		    (strcoll(khz, lib_hz) != 0)) {
234 			delete khz;
235 			return (AUDIO_ERR_BADARG);
236 		}
237 		delete khz;
238 	case 1:
239 		rate = irint(r);
240 		break;
241 	default:
242 		return (AUDIO_ERR_BADARG);
243 	}
244 	// Check for reasonable bounds
245 	if ((rate <= 0) || (rate > 500000)) {
246 		return (AUDIO_ERR_BADARG);
247 	}
248 	sample_rate = (unsigned int) rate;
249 	return (AUDIO_SUCCESS);
250 }
251 
252 // Parse a string containing the number of channels
253 AudioError AudioHdr::
254 ChannelParse(
255 	char		*str)
256 {
257 static char		*lib_chan = NULL;
258 static char		*lib_mono = NULL;
259 static char		*lib_stereo = NULL;
260 	char		cstrbuf[16];
261 	char		*cstr;
262 	char		xtra[4];
263 	int		chan;
264 
265 	// Init i18n string translations
266 	if (lib_chan == NULL) {
267 		lib_chan = to_lowercase(_MGET_("channel"));
268 		lib_mono = to_lowercase(_MGET_("mono"));
269 		lib_stereo = to_lowercase(_MGET_("stereo"));
270 	}
271 
272 	// Parse a number, followed by optional "-channel"
273 	switch (sscanf(str, " %d %15s", &chan, cstrbuf)) {
274 	case 2:
275 		cstr = to_lowercase(cstrbuf);
276 		if ((strcmp(cstr, "-channel") != 0) &&
277 		    (strcmp(cstr, "-chan") != 0) &&
278 		    (strcoll(cstr, lib_chan) != 0)) {
279 			delete cstr;
280 			return (AUDIO_ERR_BADARG);
281 		}
282 		delete cstr;
283 	case 1:
284 		break;
285 	default:
286 		// If no number, look for reasonable keywords
287 		if (sscanf(str, " %15s %1s", cstrbuf, xtra) != 1) {
288 			return (AUDIO_ERR_BADARG);
289 		}
290 		cstr = to_lowercase(cstrbuf);
291 		if ((strcmp(cstr, "mono") == 0) ||
292 		    (strcmp(cstr, "monaural") == 0) ||
293 		    (strcoll(cstr, lib_mono) == 0)) {
294 			chan = 1;
295 		} else if ((strcmp(cstr, "stereo") == 0) ||
296 		    (strcmp(cstr, "dual") == 0) ||
297 		    (strcoll(cstr, lib_stereo) == 0)) {
298 			chan = 2;
299 		} else if ((strcmp(cstr, "quad") == 0) ||
300 		    (strcmp(cstr, "quadrophonic") == 0)) {
301 			chan = 4;
302 		} else {
303 			delete cstr;
304 			return (AUDIO_ERR_BADARG);
305 		}
306 		delete cstr;
307 	}
308 	if ((chan <= 0) || (chan > 256)) {
309 		return (AUDIO_ERR_BADARG);
310 	}
311 	channels = (unsigned int) chan;
312 	return (AUDIO_SUCCESS);
313 }
314 
315 // Parse a string containing the audio encoding
316 AudioError AudioHdr::
317 EncodingParse(
318 	char		*str)
319 {
320 static char		*lib_bit = NULL;
321 static char		*lib_ulaw = NULL;
322 static char		*lib_Alaw = NULL;
323 static char		*lib_linear = NULL;
324 	int		i;
325 	char		*p;
326 	char		estrbuf[64];
327 	char		*estr;
328 	char		xtrabuf[32];
329 	char		*xtra;
330 	char		*xp;
331 	char		buf[BUFSIZ];
332 	char		*cp;
333 	double		prec;
334 
335 	// Init i18n string translations
336 	if (lib_bit == NULL) {
337 		lib_bit = to_lowercase(_MGET_("bit"));
338 		lib_ulaw = to_lowercase(_MGET_("u-law"));
339 		lib_Alaw = to_lowercase(_MGET_("A-law"));
340 		lib_linear = to_lowercase(_MGET_("linear8"));
341 		lib_linear = to_lowercase(_MGET_("linear"));
342 	}
343 
344 	// first copy and remove leading spaces
345 	(void) strncpy(buf, str, BUFSIZ);
346 	for (cp = buf; *cp == ' '; cp++)
347 		continue;
348 
349 	// Delimit the precision.  If there is one, parse it.
350 	prec = 0.;
351 	p = strchr(cp, ' ');
352 	if (p != NULL) {
353 		*p++ = '\0';
354 		i = sscanf(cp, " %lf %15s", &prec, xtrabuf);
355 		if (i == 0) {
356 			return (AUDIO_ERR_BADARG);
357 		}
358 		if (i == 2) {
359 			// convert to lowercase and skip leading "-", if any
360 			xtra = to_lowercase(xtrabuf);
361 			xp = (xtra[0] == '-') ? &xtra[1] : &xtra[0];
362 
363 			if ((strcmp(xp, "bit") != 0) &&
364 			    (strcoll(xp, lib_bit) != 0)) {
365 				delete xtra;
366 				return (AUDIO_ERR_BADARG);
367 			}
368 			delete xtra;
369 		}
370 		if ((prec <= 0.) || (prec > 512.)) {
371 			return (AUDIO_ERR_BADARG);
372 		}
373 
374 		// Don't be fooled by "8 bit"
375 		i = sscanf(p, " %15s", xtrabuf);
376 		if (i == 1) {
377 			// convert to lowercase and skip leading "-", if any
378 			xtra = to_lowercase(xtrabuf);
379 			xp = (xtra[0] == '-') ? &xtra[1] : &xtra[0];
380 			if ((strcmp(xp, "bit") == 0) ||
381 			    (strcoll(xp, lib_bit) == 0)) {
382 				    xp = strchr(p, ' ');
383 				    if (xp != NULL)
384 					    p = xp;
385 				    else
386 					    p += strlen(xtrabuf);
387 			}
388 			delete xtra;
389 		}
390 	} else {
391 		p = cp;
392 	}
393 
394 	i = sscanf(p, " %31s %31s", estrbuf, xtrabuf);
395 
396 	// If "adpcm" appended with a space, concatenate it
397 	if (i == 2) {
398 		xtra = to_lowercase(xtrabuf);
399 		if (strcmp(xtra, "adpcm") == 0) {
400 			(void) strcat(estrbuf, xtra);
401 			i = 1;
402 		}
403 		delete xtra;
404 	}
405 	if (i == 1) {
406 		estr = to_lowercase(estrbuf);
407 		if ((strcmp(estr, "ulaw") == 0) ||
408 		    (strcmp(estr, "u-law") == 0) ||
409 		    (strcmp(estr, "�law") == 0) ||
410 		    (strcmp(estr, "�-law") == 0) ||
411 		    (strcmp(estr, "mulaw") == 0) ||
412 		    (strcmp(estr, "mu-law") == 0) ||
413 		    (strcoll(estr, lib_ulaw) == 0)) {
414 			if ((prec != 0.) && (prec != 8.))
415 				return (AUDIO_ERR_BADARG);
416 			encoding = ULAW;
417 			samples_per_unit = 1;
418 			bytes_per_unit = 1;
419 		} else if ((strcmp(estr, "alaw") == 0) ||
420 		    (strcmp(estr, "a-law") == 0) ||
421 		    (strcoll(estr, lib_Alaw) == 0)) {
422 			if ((prec != 0.) && (prec != 8.))
423 				return (AUDIO_ERR_BADARG);
424 			encoding = ALAW;
425 			samples_per_unit = 1;
426 			bytes_per_unit = 1;
427 
428 		} else if ((strcmp(estr, "linear") == 0) ||
429 		    (strcmp(estr, "lin") == 0) ||
430 		    (strcmp(estr, "pcm") == 0) ||
431 		    (strcoll(estr, lib_linear) == 0)) {
432 			if ((prec != 0.) && (prec != 8.) && (prec != 16.) &&
433 			    (prec != 24.) && (prec != 32.))
434 				return (AUDIO_ERR_BADARG);
435 			if (prec == 0.)
436 				prec = 16.;
437 			encoding = LINEAR;
438 			samples_per_unit = 1;
439 			bytes_per_unit = irint(prec / 8.);
440 
441 		} else if ((strcmp(estr, "linear8") == 0) ||
442 		    (strcmp(estr, "lin8") == 0) ||
443 		    (strcmp(estr, "pcm8") == 0)) {
444 			if ((prec != 0.) && (prec != 8.))
445 				return (AUDIO_ERR_BADARG);
446 			prec = 8.;
447 			encoding = LINEAR;
448 			samples_per_unit = 1;
449 			bytes_per_unit = irint(prec / 8.);
450 
451 		} else if ((strcmp(estr, "linear16") == 0) ||
452 		    (strcmp(estr, "lin16") == 0) ||
453 		    (strcmp(estr, "pcm16") == 0)) {
454 			if ((prec != 0.) && (prec != 16.))
455 				return (AUDIO_ERR_BADARG);
456 			prec = 16.;
457 			encoding = LINEAR;
458 			samples_per_unit = 1;
459 			bytes_per_unit = irint(prec / 8.);
460 
461 		} else if ((strcmp(estr, "linear24") == 0) ||
462 		    (strcmp(estr, "lin24") == 0) ||
463 		    (strcmp(estr, "pcm24") == 0)) {
464 			if ((prec != 0.) && (prec != 24.))
465 				return (AUDIO_ERR_BADARG);
466 			prec = 24.;
467 			encoding = LINEAR;
468 			samples_per_unit = 1;
469 			bytes_per_unit = irint(prec / 8.);
470 
471 		} else if ((strcmp(estr, "linear32") == 0) ||
472 		    (strcmp(estr, "lin32") == 0) ||
473 		    (strcmp(estr, "pcm32") == 0)) {
474 			if ((prec != 0.) && (prec != 32.))
475 				return (AUDIO_ERR_BADARG);
476 			prec = 32.;
477 			encoding = LINEAR;
478 			samples_per_unit = 1;
479 			bytes_per_unit = irint(prec / 8.);
480 
481 		} else if ((strcmp(estr, "float") == 0) ||
482 		    (strcmp(estr, "floatingpoint") == 0) ||
483 		    (strcmp(estr, "floating-point") == 0)) {
484 			if ((prec != 0.) && (prec != 32.) && (prec != 64.))
485 				return (AUDIO_ERR_BADARG);
486 			if (prec == 0.)
487 				prec = 64.;
488 			encoding = FLOAT;
489 			samples_per_unit = 1;
490 			bytes_per_unit = irint(prec / 8.);
491 
492 		} else if ((strcmp(estr, "float32") == 0) ||
493 		    (strcmp(estr, "floatingpoint32") == 0) ||
494 		    (strcmp(estr, "floating-point32") == 0)) {
495 			if ((prec != 0.) && (prec != 32.))
496 				return (AUDIO_ERR_BADARG);
497 			prec = 32.;
498 			encoding = FLOAT;
499 			samples_per_unit = 1;
500 			bytes_per_unit = irint(prec / 8.);
501 
502 		} else if ((strcmp(estr, "float64") == 0) ||
503 		    (strcmp(estr, "double") == 0) ||
504 		    (strcmp(estr, "floatingpoint64") == 0) ||
505 		    (strcmp(estr, "floating-point64") == 0)) {
506 			if ((prec != 0.) && (prec != 64.))
507 				return (AUDIO_ERR_BADARG);
508 			prec = 64.;
509 			encoding = FLOAT;
510 			samples_per_unit = 1;
511 			bytes_per_unit = irint(prec / 8.);
512 
513 		} else if ((strcmp(estr, "g.721") == 0) ||
514 		    (strcmp(estr, "g721") == 0) ||
515 		    (strcmp(estr, "g.721adpcm") == 0) ||
516 		    (strcmp(estr, "g721adpcm") == 0)) {
517 			if ((prec != 0.) && (prec != 4.))
518 				return (AUDIO_ERR_BADARG);
519 			encoding = G721;
520 			samples_per_unit = 2;
521 			bytes_per_unit = 1;
522 
523 		} else if ((strcmp(estr, "g.722") == 0) ||
524 		    (strcmp(estr, "g722") == 0) ||
525 		    (strcmp(estr, "g.722adpcm") == 0) ||
526 		    (strcmp(estr, "g722adpcm") == 0)) {
527 			if ((prec != 0.) && (prec != 8.))
528 				return (AUDIO_ERR_BADARG);
529 			encoding = G722;
530 			samples_per_unit = 1;
531 			bytes_per_unit = 1;
532 
533 		} else if ((strcmp(estr, "g.723") == 0) ||
534 		    (strcmp(estr, "g723") == 0) ||
535 		    (strcmp(estr, "g.723adpcm") == 0) ||
536 		    (strcmp(estr, "g723adpcm") == 0)) {
537 			if ((prec != 0.) && (prec != 3.) && (prec != 5.))
538 				return (AUDIO_ERR_BADARG);
539 			if (prec == 0.)
540 				prec = 3.;
541 			encoding = G723;
542 			samples_per_unit = 8;
543 			bytes_per_unit = irint(prec);
544 
545 		} else if ((strcmp(estr, "g.723-3") == 0) ||
546 		    (strcmp(estr, "g.723_3") == 0) ||
547 		    (strcmp(estr, "g.723.3") == 0) ||
548 		    (strcmp(estr, "g723-3") == 0) ||
549 		    (strcmp(estr, "g723_3") == 0) ||
550 		    (strcmp(estr, "g723.3") == 0)) {
551 			if ((prec != 0.) && (prec != 3.))
552 				return (AUDIO_ERR_BADARG);
553 			prec = 3.;
554 			encoding = G723;
555 			samples_per_unit = 8;
556 			bytes_per_unit = irint(prec);
557 
558 		} else if ((strcmp(estr, "g.723-5") == 0) ||
559 		    (strcmp(estr, "g.723_5") == 0) ||
560 		    (strcmp(estr, "g.723.5") == 0) ||
561 		    (strcmp(estr, "g723-5") == 0) ||
562 		    (strcmp(estr, "g723_5") == 0) ||
563 		    (strcmp(estr, "g723.5") == 0)) {
564 			if ((prec != 0.) && (prec != 5.))
565 				return (AUDIO_ERR_BADARG);
566 			prec = 5.;
567 			encoding = G723;
568 			samples_per_unit = 8;
569 			bytes_per_unit = irint(prec);
570 
571 		} else if ((strcmp(estr, "dvi") == 0) ||
572 		    (strcmp(estr, "dviadpcm") == 0)) {
573 			if ((prec != 0.) && (prec != 4.))
574 				return (AUDIO_ERR_BADARG);
575 			encoding = DVI;
576 			samples_per_unit = 2;
577 			bytes_per_unit = 1;
578 
579 		} else {
580 			delete estr;
581 			return (AUDIO_ERR_BADARG);
582 		}
583 		delete estr;
584 	} else {
585 		return (AUDIO_ERR_BADARG);
586 	}
587 	return (AUDIO_SUCCESS);
588 }
589 
590 // Parse a string containing the comma-separated audio encoding
591 // Format is: "enc, chan, rate"
592 //	XXX - some countries use comma instead of decimal point
593 //	so there may be a problem with "44,1 khz"
594 AudioError AudioHdr::
595 FormatParse(
596 	char		*str)
597 {
598 	char		*pstr;
599 	char		*ptr;
600 	char		*p;
601 	AudioHdr	newhdr;
602 	AudioError	err;
603 
604 	pstr = new char[strlen(str) + 1];
605 	(void) strcpy(pstr, str);
606 	ptr = pstr;
607 
608 	// Delimit and parse the precision string
609 	p = strchr(ptr, ',');
610 	if (p == NULL)
611 		p = strchr(ptr, ' ');
612 	if (p == NULL) {
613 		err = AUDIO_ERR_BADARG;
614 		goto errret;
615 	}
616 	*p++ = '\0';
617 	err = newhdr.EncodingParse(ptr);
618 
619 	// Delimit and parse the sample rate string
620 	if (!err) {
621 		ptr = p;
622 		p = strchr(ptr, ',');
623 		if (p == NULL)
624 			p = strchr(ptr, ' ');
625 		if (p == NULL) {
626 			err = AUDIO_ERR_BADARG;
627 			goto errret;
628 		}
629 		*p++ = '\0';
630 		err = newhdr.RateParse(ptr);
631 	}
632 
633 	// Finally, parse the channels string
634 	if (!err) {
635 		err = newhdr.ChannelParse(p);
636 	}
637 
638 	// Validate the resulting header
639 	if (!err)
640 		err = newhdr.Validate();
641 	if (!err)
642 		*this = newhdr;
643 errret:
644 	delete pstr;
645 	return (err);
646 }
647