Hiroyuki Komatsu
komat****@users*****
2004年 12月 9日 (木) 18:20:51 JST
Index: prime/uim/prime.scm
diff -u prime/uim/prime.scm:1.1.2.5 prime/uim/prime.scm:1.1.2.6
--- prime/uim/prime.scm:1.1.2.5 Wed Dec 8 17:40:54 2004
+++ prime/uim/prime.scm Thu Dec 9 18:20:51 2004
@@ -618,12 +618,17 @@
(prime-engine-send-command (list "learn_word"
pron literal pos context suffix rest))))
+;; This returns a version string of the PRIME server.
+(define prime-engine-get-version
+ (lambda ()
+ (car (prime-engine-send-command '("get_version")))))
+
(define prime-engine-get-env
(lambda (env-name)
; (print "prime-engine-get-env")
- (let* ((result (prime-util-string-split (car (prime-engine-send-command
- (list "get_env" env-name)))
- "\t"))
+ (let* ((result (prime-util-string-split
+ (car (prime-engine-send-command (list "get_env" env-name)))
+ "\t"))
(result-type (car result)))
(cond
((string=? result-type "nil")
Index: prime/uim/ChangeLog
diff -u prime/uim/ChangeLog:1.1.2.4 prime/uim/ChangeLog:1.1.2.5
--- prime/uim/ChangeLog:1.1.2.4 Wed Dec 8 17:40:54 2004
+++ prime/uim/ChangeLog Thu Dec 9 18:20:51 2004
@@ -1,3 +1,8 @@
+2004-12-09 Hiroyuki Komatsu <komat****@taiya*****>
+
+ * prime.scm: (prime-engine-get-version):
+ This function gets a verstion string of the PRIME server.
+
2004-12-08 Hiroyuki Komatsu <komat****@taiya*****>
* prime.scm (prime-get-candidate-handler):