[uim commit] r4873 - in trunk: doc uim

[codesite-noreply]

Author: yamakenz
Date: Mon Aug 20 05:59:00 2007
New Revision: 4873

Modified:
   trunk/doc/COMPATIBILITY
   trunk/uim/uim-scm.c
   trunk/uim/uim-scm.h

Log:
* uim/uim-scm.h
  - (uim_scm_set_car, uim_scm_set_cdr): New function decl
* uim/uim-scm.c
  - (uim_scm_set_car, uim_scm_set_cdr): New function
* doc/COMPATIBILITY
  - Update


Modified: trunk/doc/COMPATIBILITY
==============================================================================
--- trunk/doc/COMPATIBILITY     (original)
+++ trunk/doc/COMPATIBILITY     Mon Aug 20 05:59:00 2007
@@ -401,7 +401,7 @@
 Affects: uim developers, IM developers
 Updates: C API, libuim ABI
 Version: 1.5.0
-Revision: ac4333, ac4334, ac4339, ac4347, ac4351-ac4353, ac4355, ac4444, 
ac4446, ac4751, ac4761, ac4764, ac4788, ac4808, ac4812, ac4813, ac4815, ac4817, 
ac4819, ac4821, ac4830, ac4870, ac4871
+Revision: ac4333, ac4334, ac4339, ac4347, ac4351-ac4353, ac4355, ac4444, 
ac4446, ac4751, ac4761, ac4764, ac4788, ac4808, ac4812, ac4813, ac4815, ac4817, 
ac4819, ac4821, ac4830, ac4870, ac4871, ac4873
 Date: 2007-01-09 -
 Modifier: YamaKen
 Related: SigScheme introduction to uim
@@ -437,6 +437,8 @@
       (new) uim_scm_vector_ref()
       (new) uim_scm_vector_set()
       (new) uim_scm_vector_length()
+      (new) uim_scm_set_car()
+      (new) uim_scm_set_cdr()
       (new) MAKE_BOOL()
       (new) MAKE_INT()
       (new) MAKE_CHAR()

Modified: trunk/uim/uim-scm.c
==============================================================================
--- trunk/uim/uim-scm.c (original)
+++ trunk/uim/uim-scm.c Mon Aug 20 05:59:00 2007
@@ -1123,6 +1123,22 @@
   return (uim_lisp)scm_p_cdr((ScmObj)pair);
 }
 
+void
+uim_scm_set_car(uim_lisp pair, uim_lisp car)
+{
+  assert(uim_scm_gc_protected_contextp());
+
+  scm_p_set_carx((ScmObj)pair, (ScmObj)car);
+}
+
+void
+uim_scm_set_cdr(uim_lisp pair, uim_lisp cdr)
+{
+  assert(uim_scm_gc_protected_contextp());
+
+  scm_p_set_cdrx((ScmObj)pair, (ScmObj)cdr);
+}
+
 uim_lisp
 uim_scm_cons(uim_lisp car, uim_lisp cdr)
 {

Modified: trunk/uim/uim-scm.h
==============================================================================
--- trunk/uim/uim-scm.h (original)
+++ trunk/uim/uim-scm.h Mon Aug 20 05:59:00 2007
@@ -228,6 +228,8 @@
 uim_scm_car(uim_lisp pair);
 uim_lisp
 uim_scm_cdr(uim_lisp pair);
+void uim_scm_set_car(uim_lisp pair, uim_lisp car);
+void uim_scm_set_cdr(uim_lisp pair, uim_lisp cdr);
 
 long uim_scm_length(uim_lisp lst);