#!perl
#
# Dump all avaliable voices
#

use Mac::Speech;

$count = CountVoices();

for ($i = 0; $i++ < $count; ) {
	$voice = GetIndVoice($i);
	$desc  = GetVoiceDescription($voice);
	($id, $version,$nlen,$name,$clen,$comment,$gender,$age,$script,$language,$region)
		= unpack("x8 l l C a63 C a255 s s s s s", $$desc);
	# use the API!  be SMRT!
	$synt = $desc->voice->creator;

 $name = substr $name, 0, $nlen;
	$comment = substr $comment, 0, $clen;
	printf "%4s %2X %3X %-10s %d %4d %s\n", $synt, $id, $version, $name, $gender, $age, $comment; 
}