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);