root/trunk/plagger/lib/Plagger/Plugin/Publish/Speech/Win32.pm

package Plagger::Plugin::Publish::Speech::Win32;
use base qw( Plagger::Plugin::Publish::Speech );

use strict;
use Encode;
use Locale::Country;
use Locale::Language;
use Time::HiRes 'sleep';
use Win32::OLE;
use Win32::SAPI4;

sub feed {
    my($self, $context, $args) = @_;

    my $voice = Win32::SAPI4::VoiceText->new;
    $self->speak($voice, encode("utf-8", $args->{feed}->title_text) );

    for my $entry ($args->{feed}->entries) {
        my $stuff = $entry->title_text . $entry->body_text;

        # HACK this should be handled in $entry->locale
        my $lang     = $stuff =~ /\p{Hiragana}|\p{Katakana}|\p{Han}/ ? 'ja' : 'en-us';
        my $encoding = $lang eq 'ja' ? 'cp932' : 'latin-1';

        $self->speak($voice, $lang, encode($encoding, $stuff) );
    }
}

sub speak {
    my($self, $voice, $lang, $message) = @_;

    my($t1, $t2) = split /-/, $lang;
    my $key = code2language($t1);
       $key.= " (".code2country($t2).")" if code2country($t2);

    my $code = $voice->Language2LanguageID($key);
    my $gender = $self->conf->{voice} || 'male';
    my @try_gender  = $gender =~ /^male$/i ? (1, 2) : (2, 1);

 TRY: for my $gender (@try_gender) {
        for my $i (1 .. $voice->CountEngines) {
            if ( $voice->LanguageID($i) == $code && $voice->Gender($i) == $gender ) {
                Plagger->context->log(debug => "Found voice $i for Lang $lang and Gender $gender");
                $voice->Select($i);
                last TRY;
            }
        }
    }

    $voice->Speak($message);
    sleep 1 while $voice->IsSpeaking;
}

sub finalize { }

1;