[uim commit] r3 - trunk/uim

[codesite-noreply]

Author: tkng
Date: Tue Dec  7 04:53:04 2004
New Revision: 3

Modified:
   trunk/uim/uim-util.c

Log:
 * uim-util.c:
  -(uim_init_subr_0): New function.
  -(uim_init_subr_1): New function.
  -(uim_init_subr_2): New function.
  -(uim_init_subr_3): New function.


Modified: trunk/uim/uim-util.c
==============================================================================
--- trunk/uim/uim-util.c        (original)
+++ trunk/uim/uim-util.c        Tue Dec  7 04:53:04 2004
@@ -1012,6 +1012,36 @@
 }
 
 void
+uim_init_subr_0 (char *name, uim_lisp (*fcn) (void))
+{
+  init_subr (name, tc_subr_0, (SUBR_FUNC) fcn);
+}
+
+void
+uim_init_subr_1 (char *name, uim_lisp (*fcn) (uim_lisp))
+{
+  init_subr (name, tc_subr_1, (SUBR_FUNC) fcn);
+}
+
+void
+uim_init_subr_2 (char *name, uim_lisp (*fcn) (uim_lisp, uim_lisp))
+{
+  init_subr (name, tc_subr_2, (SUBR_FUNC) fcn);
+}
+
+void
+uim_init_subr_3 (char *name, uim_lisp (*fcn) (uim_lisp, uim_lisp, uim_lisp))
+{
+  init_subr (name, tc_subr_3, (SUBR_FUNC) fcn);
+}
+
+void
+uim_init_subr_4 (char *name, uim_lisp (*fcn) (uim_lisp, uim_lisp, uim_lisp, 
uim_lisp))
+{
+  init_subr (name, tc_subr_4, (SUBR_FUNC) fcn);
+}
+
+void
 uim_init_util_subrs()
 {
   true_sym  = siod_true_value();