Author: yamakenz
Date: Sun Jul 22 05:51:46 2007
New Revision: 4777

Modified:
   trunk/doc/COMPATIBILITY
   trunk/uim/uim-util.c

Log:
* uim/uim-util.c
  - (uim_version): New static function
  - (uim_init_util_subrs): Add initialization of uim-version
* doc/COMPATIBILITY
  - Add new section "New utility procedures in uim 1.5.0"


Modified: trunk/doc/COMPATIBILITY
==============================================================================
--- trunk/doc/COMPATIBILITY     (original)
+++ trunk/doc/COMPATIBILITY     Sun Jul 22 05:51:46 2007
@@ -57,6 +57,20 @@
 
 The changes are described below in most recently updated order.
 ------------------------------------------------------------------------------
+Summary: New utility procedures in uim 1.5.0
+Affects: uim developers, IM developers
+Updates: Scheme API
+Version: 1.5.0
+Revision: ac4704
+Date: 2007-07-11, 2007-07-22
+Modifier: YamaKen
+Related: 
+URL:
+Changes:
+      (new) writeln
+      (new) uim-version
+Description:
+------------------------------------------------------------------------------
 Summary: Renaming of integer-based char procedures
 Affects: uim developers, IM developers
 Updates: Scheme API
@@ -110,7 +124,7 @@
 Affects: uim developers, IM developers
 Updates: Scheme API
 Version: 1.5.0
-Revision: ac4693, ac4694, ac4698, ac4699, ac4703, ac4704
+Revision: ac4693, ac4694, ac4698, ac4699, ac4703
 Date: 2007-07-11
 Modifier: YamaKen
 Related: 
@@ -122,7 +136,6 @@
   (changed) string-join
   (changed) sublist
   (changed) sublist-rel
-      (new) writeln
 Description:
   - 'join' has been replaced with 'list-join'. The args are swapped
   - Now string-split produces empty strings as follows. See

Modified: trunk/uim/uim-util.c
==============================================================================
--- trunk/uim/uim-util.c        (original)
+++ trunk/uim/uim-util.c        Sun Jul 22 05:51:46 2007
@@ -50,6 +50,12 @@
 
 /* define constants as procedure to ensure unmodifiable */
 static uim_lisp
+uim_version()
+{
+  return uim_scm_make_str(PACKAGE_VERSION);
+}
+
+static uim_lisp
 sys_libdir()
 {
   return uim_scm_make_str(LIBDIR);
@@ -279,6 +285,8 @@
 {
   protected = uim_scm_f();
   uim_scm_gc_protect(&protected);
+
+  uim_scm_init_subr_0("uim-version", uim_version);
 
   uim_scm_init_subr_0("sys-libdir", sys_libdir);
   uim_scm_init_subr_0("sys-pkglibdir", sys_pkglibdir);

Reply via email to