From 1167a22e10c8bd62c6bbfc14cc316d4e15f21016 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 11 Jan 2006 05:22:01 +0000
Subject: [PATCH] an example; update change log

---
 CHANGES.html                             |  9 ++++++
 examples/cocoa-speech.factor             | 36 ++++++++++++++++++++++++
 library/alien/objective-c/runtime.factor |  2 ++
 3 files changed, 47 insertions(+)
 create mode 100644 examples/cocoa-speech.factor

diff --git a/CHANGES.html b/CHANGES.html
index 2f7d3ac838..d7e4047d7a 100644
--- a/CHANGES.html
+++ b/CHANGES.html
@@ -48,6 +48,15 @@ this is lexicographic order, and for words, this compares word names.</li>
 <li>C library interface:
 
 <ul>
+<li>Support for binding to Objective C libraries is now included.
+<ul>
+<li>Normal usage of Objective C classes and methods is done using the <code>OBJC-CLASS:</code>
+and <code>OBJC-MESSAGE:</code> parsing words. See the example in
+<code>examples/cocoa-speech.factor</code>.</li>
+<li>Objective C runtime introspection functions and structures are defined in the
+<code>objective-c</code> vocabulary.</li>
+</ul>
+</li>
 <li>Added a pair of words for between Factor strings and C strings, <code>alien&gt;string</code> and <code>string&gt;alien</code>.
 </li>
 
diff --git a/examples/cocoa-speech.factor b/examples/cocoa-speech.factor
new file mode 100644
index 0000000000..cb2fcf422a
--- /dev/null
+++ b/examples/cocoa-speech.factor
@@ -0,0 +1,36 @@
+! 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:]
diff --git a/library/alien/objective-c/runtime.factor b/library/alien/objective-c/runtime.factor
index 40b96017d3..8c20a9e411 100644
--- a/library/alien/objective-c/runtime.factor
+++ b/library/alien/objective-c/runtime.factor
@@ -2,6 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 IN: objective-c
 
+LIBRARY: objc
+
 TYPEDEF: void* SEL
 
 TYPEDEF: void* id