Revision: 5998 Author: iratqq Date: Fri Sep 11 23:39:58 2009 Log: * uim/uim-scm.h: * uim/uim-scm-sigscheme.c (uim_scm_ptrp, uim_scm_func_ptrp): - Add function. ok ekato@ * uim/libtool-version.mk (libuim_scm_version): - Minor bump.
http://code.google.com/p/uim/source/detail?r=5998 Modified: /trunk/uim/libtool-version.mk /trunk/uim/uim-scm-sigscheme.c /trunk/uim/uim-scm.h ======================================= --- /trunk/uim/libtool-version.mk Sun Dec 7 10:01:12 2008 +++ /trunk/uim/libtool-version.mk Fri Sep 11 23:39:58 2009 @@ -2,5 +2,5 @@ # See "Versioning" section of info of libtool for each meaning. libuim_version = 6:1:0 -libuim_scm_version = 0:0:0 +libuim_scm_version = 0:1:0 libuim_custom_version = 2:0:0 ======================================= --- /trunk/uim/uim-scm-sigscheme.c Tue Jan 20 18:11:15 2009 +++ /trunk/uim/uim-scm-sigscheme.c Fri Sep 11 23:39:58 2009 @@ -882,6 +882,22 @@ return (SCM_SYMBOLP((ScmObj)obj)); } + +uim_bool +uim_scm_ptrp(uim_lisp obj) +{ + assert(uim_scm_gc_any_contextp()); + + return (SCM_C_POINTERP((ScmObj)obj)); +} + +uim_bool +uim_scm_func_ptrp(uim_lisp obj) +{ + assert(uim_scm_gc_any_contextp()); + + return (SCM_C_FUNCPOINTERP((ScmObj)obj)); +} uim_bool uim_scm_eq(uim_lisp a, uim_lisp b) ======================================= --- /trunk/uim/uim-scm.h Tue Jan 20 18:11:15 2009 +++ /trunk/uim/uim-scm.h Fri Sep 11 23:39:58 2009 @@ -199,6 +199,8 @@ uim_bool uim_scm_vectorp(uim_lisp obj); uim_bool uim_scm_strp(uim_lisp obj); uim_bool uim_scm_symbolp(uim_lisp obj); +uim_bool uim_scm_ptrp(uim_lisp obj); +uim_bool uim_scm_func_ptrp(uim_lisp obj); uim_bool uim_scm_eq(uim_lisp a, uim_lisp b); /* constants */
