Revision: 7109
Author: ek.kato
Date: Tue May 24 00:51:42 2011
Log: * scm/annotation-osx-dcs.scm : New file for osx-dcs annotation
agent.
http://code.google.com/p/uim/source/detail?r=7109
Added:
/trunk/scm/annotation-osx-dcs.scm
=======================================
--- /dev/null
+++ /trunk/scm/annotation-osx-dcs.scm Tue May 24 00:51:42 2011
@@ -0,0 +1,55 @@
+;;; annotation-osx-dcs.scm: OS X Dictionary Services functions for uim
+;;;
+;;; Copyright (c) 2011 uim Project http://code.google.com/p/uim/
+;;;
+;;; All rights reserved.
+;;;
+;;; Redistribution and use in source and binary forms, with or without
+;;; modification, are permitted provided that the following conditions
+;;; are met:
+;;; 1. Redistributions of source code must retain the above copyright
+;;; notice, this list of conditions and the following disclaimer.
+;;; 2. Redistributions in binary form must reproduce the above copyright
+;;; notice, this list of conditions and the following disclaimer in the
+;;; documentation and/or other materials provided with the distribution.
+;;; 3. Neither the name of authors nor the names of its contributors
+;;; may be used to endorse or promote products derived from this
software
+;;; without specific prior written permission.
+;;;
+;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
``AS IS'' AND
+;;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+;;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE
+;;; ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
CONTRIBUTORS BE LIABLE
+;;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL
+;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+;;; OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+;;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
STRICT
+;;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY
WAY
+;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+;;; SUCH DAMAGE.
+;;;;
+(require-dynlib "osx-dcs")
+
+(define osx-dcs-ctx #f)
+
+(define annotation-osx-dcs-init
+ (lambda ()
+ (if (provided? "osx-dcs")
+ (begin
+ (set! osx-dcs-ctx #t)
+ #t)
+ #f)))
+
+(define annotation-osx-dcs-get-text
+ (lambda (text enc)
+ (or (and osx-dcs-ctx
+ (osx-dcs-search-text text enc))
+ "")))
+
+(define annotation-osx-dcs-release
+ (lambda ()
+ (if osx-dcs-ctx
+ (begin
+ (set! osx-dcs-ctx #f)
+ #t)
+ #f)))
