[uim-commit] r2718 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-02 02:03:03 -0800 (Mon, 02 Jan 2006)
New Revision: 2718

Modified:
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - (ENSURE_STATEFUL_CODEC, ENSURE_STATELESS_CODEC): New macro


Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-02 09:42:28 UTC (rev 2717)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-02 10:03:03 UTC (rev 2718)
@@ -345,6 +345,15 @@
 #define ASSERT_ERROBJP(obj)  ASSERT_TYPE(ERROBJP, "error object", (obj))
 #define ASSERT_LISTP(obj)    ASSERT_TYPE(LISTP, "list", (obj))
 
+#define ENSURE_STATEFUL_CODEC(codec)                                         \
+    (SCM_CHARCODEC_STATEFULP(codec)                                          \
+     || ERR("%s: stateful character codec required but got: %s",             \
+            SCM_MANGLE(name), SCM_CHARCODEC_ENCODING(codec)))
+#define ENSURE_STATELESS_CODEC(codec)                                        \
+    (!SCM_CHARCODEC_STATEFULP(codec)                                         \
+     || ERR("%s: stateless character codec required but got: %s",            \
+            SCM_MANGLE(name), SCM_CHARCODEC_ENCODING(codec)))
+
 /* Macros For Handling Continuation Object */
 #define INVALID_CONTINUATION_OPAQUE  NULL