37 lines
1.1 KiB
Factor
37 lines
1.1 KiB
Factor
! Copyright (C) 2006 Slava Pestov
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
! This example requires Mac OS X. It has only been tested on
|
|
! 10.4. It must be run from a Factor runtime linked against the
|
|
! Cocoa library; you can obtain one with the 'macosx-sdl' target
|
|
! in the Makefile.
|
|
|
|
IN: cocoa-speech
|
|
USING: alien compiler kernel objective-c sequences words ;
|
|
|
|
! Define classes and messages
|
|
OBJC-MESSAGE: id alloc ;
|
|
OBJC-CLASS: NSString
|
|
: NSASCIIStringEncoding 1 ; inline
|
|
OBJC-MESSAGE: id initWithCString: char* encoding: uint ;
|
|
OBJC-CLASS: NSSpeechSynthesizer
|
|
OBJC-MESSAGE: id initWithVoice: id ;
|
|
OBJC-MESSAGE: bool startSpeakingString: id ;
|
|
|
|
! A utility
|
|
: <NSString> ( string -- alien )
|
|
NSString [alloc]
|
|
swap NSASCIIStringEncoding [initWithCString:encoding:] ;
|
|
|
|
! As usual, alien invoke words need to be compiled
|
|
"cocoa-speech" words [ try-compile ] each
|
|
|
|
! A utility
|
|
: <NSSpeechSynthesizer> ( voice -- synth )
|
|
NSSpeechSynthesizer [alloc] swap [initWithVoice:] ;
|
|
|
|
! Call the TTS API
|
|
f <NSSpeechSynthesizer>
|
|
"Hello from Factor" <NSString>
|
|
[startSpeakingString:]
|