[uim-commit] r1063 - branches/r5rs/uim

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-29 05:11:56 -0700 (Fri, 29 Jul 2005)
New Revision: 1063

Modified:
   branches/r5rs/uim/uim-compat-scm.c
   branches/r5rs/uim/uim-compat-scm.h
   branches/r5rs/uim/uim-scm.c
   branches/r5rs/uim/uim-scm.h
Log:
* uim-scm.c uim-compat-scm.c uim-scm.h uim-compat-scm.h:
 -(uim_scm_list2, uim_scm_list3, uim_scm_list4,uim_scm_list5
   uim_scm_list6): Moved from uim-compat-scm.[ch] to uim-scm.[ch]


Modified: branches/r5rs/uim/uim-compat-scm.c
===================================================================
--- branches/r5rs/uim/uim-compat-scm.c	2005-07-29 12:01:47 UTC (rev 1062)
+++ branches/r5rs/uim/uim-compat-scm.c	2005-07-29 12:11:56 UTC (rev 1063)
@@ -36,7 +36,6 @@
 #include <stdlib.h>
 #include <string.h>
 
-#include "siod.h"
 #include "uim-compat-scm.h"
 #include "context.h"
 
@@ -201,48 +200,6 @@
 }
 
 uim_lisp
-uim_scm_list1(uim_lisp elm1)
-{
-  uim_lisp lst;
-  lst = (uim_lisp)listn(1, (LISP)elm1);
-  return lst;
-}
-
-uim_lisp
-uim_scm_list2(uim_lisp elm1, uim_lisp elm2)
-{
-  uim_lisp lst;
-  lst = (uim_lisp)listn(2, (LISP)elm1, (LISP)elm2);
-  return lst;
-}
-
-uim_lisp
-uim_scm_list3(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3)
-{
-  uim_lisp lst;
-  lst = (uim_lisp)listn(3, (LISP)elm1, (LISP)elm2, (LISP)elm3);
-  return lst;
-}
-
-uim_lisp
-uim_scm_list4(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3, uim_lisp elm4)
-{
-  uim_lisp lst;
-  lst = (uim_lisp)listn(4, (LISP)elm1, (LISP)elm2, (LISP)elm3, (LISP)elm4);
-  return lst;
-}
-
-uim_lisp
-uim_scm_list5(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3, uim_lisp elm4,
-              uim_lisp elm5)
-{
-  uim_lisp lst;
-  lst = (uim_lisp)listn(5, (LISP)elm1, (LISP)elm2, (LISP)elm3, (LISP)elm4,
-			(LISP)elm5);
-  return lst;
-}
-
-uim_lisp
 uim_scm_nreverse(uim_lisp cell)
 {
   return (uim_lisp)nreverse((LISP)cell);

Modified: branches/r5rs/uim/uim-compat-scm.h
===================================================================
--- branches/r5rs/uim/uim-compat-scm.h	2005-07-29 12:01:47 UTC (rev 1062)
+++ branches/r5rs/uim/uim-compat-scm.h	2005-07-29 12:11:56 UTC (rev 1063)
@@ -91,17 +91,6 @@
 uim_scm_quote(uim_lisp obj);
 uim_lisp
 uim_scm_nth(uim_lisp n, uim_lisp lst);
-uim_lisp
-uim_scm_list1(uim_lisp elm1);
-uim_lisp
-uim_scm_list2(uim_lisp elm1, uim_lisp elm2);
-uim_lisp
-uim_scm_list3(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3);
-uim_lisp
-uim_scm_list4(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3, uim_lisp elm4);
-uim_lisp
-uim_scm_list5(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3, uim_lisp elm4,
-              uim_lisp elm5);
 
 uim_lisp
 uim_scm_nreverse(uim_lisp cell);

Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-07-29 12:01:47 UTC (rev 1062)
+++ branches/r5rs/uim/uim-scm.c	2005-07-29 12:11:56 UTC (rev 1063)
@@ -369,6 +369,47 @@
   return ScmOp_reverse(list);
 }
 
+uim_lisp
+uim_scm_list1(uim_lisp elm1)
+{
+  uim_lisp lst;
+  lst = uim_scm_cons(elm1, uim_scm_null_list());
+  return lst;
+}
+
+uim_lisp
+uim_scm_list2(uim_lisp elm1, uim_lisp elm2)
+{
+  uim_lisp lst;
+  lst = uim_scm_cons(elm1, uim_scm_cons(elm2, uim_scm_null_list()));
+  return lst;
+}
+
+uim_lisp
+uim_scm_list3(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3)
+{
+  uim_lisp lst;
+  lst = uim_scm_cons(elm1, uim_scm_cons(elm2, uim_scm_cons(elm3, uim_scm_null_list())));
+  return lst;
+}
+
+uim_lisp
+uim_scm_list4(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3, uim_lisp elm4)
+{
+  uim_lisp lst;
+  lst = uim_scm_cons(elm1, uim_scm_list3(elm2, elm3, elm4));
+  return lst;
+}
+
+uim_lisp
+uim_scm_list5(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3, uim_lisp elm4,
+              uim_lisp elm5)
+{
+  uim_lisp lst;
+  lst = uim_scm_cons(elm1, uim_scm_cons(elm2, uim_scm_list3(elm3, elm4, elm5)));
+  return lst;
+}
+
 uim_bool
 uim_scm_require_file(const char *fn)
 {

Modified: branches/r5rs/uim/uim-scm.h
===================================================================
--- branches/r5rs/uim/uim-scm.h	2005-07-29 12:01:47 UTC (rev 1062)
+++ branches/r5rs/uim/uim-scm.h	2005-07-29 12:11:56 UTC (rev 1063)
@@ -203,6 +203,19 @@
 uim_lisp
 uim_scm_reverse(uim_lisp cell);
 
+uim_lisp
+uim_scm_list1(uim_lisp elm1);
+uim_lisp
+uim_scm_list2(uim_lisp elm1, uim_lisp elm2);
+uim_lisp
+uim_scm_list3(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3);
+uim_lisp
+uim_scm_list4(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3, uim_lisp elm4);
+uim_lisp
+uim_scm_list5(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3, uim_lisp elm4,
+              uim_lisp elm5);
+
+
 #ifdef __cplusplus
 }
 #endif