From 4d8953162b1582fdd06f8edafaa32fcad9585c9d Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 12 Feb 2002 15:26:07 +0000
Subject: [PATCH] Added s48_list_{1,..,12}.

---
 c/external.c    | 158 ++++++++++++++++++++++++++++++++++++++++++++++++
 c/scheme48.h.in |  24 ++++++++
 2 files changed, 182 insertions(+)

diff --git a/c/external.c b/c/external.c
index 17a4d9c..fabeb36 100644
--- a/c/external.c
+++ b/c/external.c
@@ -937,6 +937,164 @@ s48_cons(s48_value v1, s48_value v2)
   return obj;
 }
 
+s48_value
+s48_list_1(s48_value v1)
+{
+  return (s48_cons (v1, S48_NULL));
+}
+
+s48_value
+s48_list_2(s48_value v1, s48_value v2)
+{
+  s48_value list = S48_UNSPECIFIC;
+  S48_DECLARE_GC_PROTECT(1);
+  
+  S48_GC_PROTECT_1(v1);
+  list = s48_list_1 (v2);
+  list = s48_cons (v1, list);
+  S48_GC_UNPROTECT();
+  return list;
+}
+
+s48_value
+s48_list_3(s48_value v1, s48_value v2, s48_value v3)
+{
+  s48_value list = S48_UNSPECIFIC;
+  S48_DECLARE_GC_PROTECT(1);
+  
+  S48_GC_PROTECT_1(v1);
+  list = s48_list_2 (v2, v3);
+  list = s48_cons (v1, list);
+  S48_GC_UNPROTECT();
+  return list;
+}
+
+s48_value
+s48_list_4(s48_value v1, s48_value v2, s48_value v3, s48_value v4)
+{
+  s48_value list = S48_UNSPECIFIC;
+  S48_DECLARE_GC_PROTECT(1);
+  
+  S48_GC_PROTECT_1(v1);
+  list = s48_list_3 (v2, v3, v4);
+  list = s48_cons (v1, list);
+  S48_GC_UNPROTECT();
+  return list;
+}
+
+s48_value
+s48_list_5(s48_value v1, s48_value v2, s48_value v3, s48_value v4, s48_value v5)
+{
+  s48_value list = S48_UNSPECIFIC;
+  S48_DECLARE_GC_PROTECT(1);
+  
+  S48_GC_PROTECT_1(v1);
+  list = s48_list_4 (v2, v3, v4, v5);
+  list = s48_cons (v1, list);
+  S48_GC_UNPROTECT();
+  return list;
+}
+
+s48_value
+s48_list_6(s48_value v1, s48_value v2, s48_value v3, s48_value v4, s48_value v5,
+	   s48_value v6)
+{
+  s48_value list = S48_UNSPECIFIC;
+  S48_DECLARE_GC_PROTECT(1);
+  
+  S48_GC_PROTECT_1(v1);
+  list = s48_list_5 (v2, v3, v4, v5, v6);
+  list = s48_cons (v1, list);
+  S48_GC_UNPROTECT();
+  return list;
+}
+
+s48_value
+s48_list_7(s48_value v1, s48_value v2, s48_value v3, s48_value v4, s48_value v5,
+	   s48_value v6, s48_value v7)
+{
+  s48_value list = S48_UNSPECIFIC;
+  S48_DECLARE_GC_PROTECT(1);
+  
+  S48_GC_PROTECT_1(v1);
+  list = s48_list_6 (v2, v3, v4, v5, v6, v7);
+  list = s48_cons (v1, list);
+  S48_GC_UNPROTECT();
+  return list;
+}
+
+s48_value
+s48_list_8(s48_value v1, s48_value v2, s48_value v3, s48_value v4, s48_value v5,
+	   s48_value v6, s48_value v7, s48_value v8)
+{
+  s48_value list = S48_UNSPECIFIC;
+  S48_DECLARE_GC_PROTECT(1);
+  
+  S48_GC_PROTECT_1(v1);
+  list = s48_list_7 (v2, v3, v4, v5, v6, v7, v8);
+  list = s48_cons (v1, list);
+  S48_GC_UNPROTECT();
+  return list;
+}
+
+s48_value
+s48_list_9(s48_value v1, s48_value v2, s48_value v3, s48_value v4, s48_value v5,
+	   s48_value v6, s48_value v7, s48_value v8, s48_value v9)
+{
+  s48_value list = S48_UNSPECIFIC;
+  S48_DECLARE_GC_PROTECT(1);
+  
+  S48_GC_PROTECT_1(v1);
+  list = s48_list_8 (v2, v3, v4, v5, v6, v7, v8, v9);
+  list = s48_cons (v1, list);
+  S48_GC_UNPROTECT();
+  return list;
+}
+
+s48_value
+s48_list_10(s48_value v1, s48_value v2, s48_value v3, s48_value v4, s48_value v5,
+	    s48_value v6, s48_value v7, s48_value v8, s48_value v9, s48_value v10)
+{
+  s48_value list = S48_UNSPECIFIC;
+  S48_DECLARE_GC_PROTECT(1);
+  
+  S48_GC_PROTECT_1(v1);
+  list = s48_list_9 (v2, v3, v4, v5, v6, v7, v8, v9, v10);
+  list = s48_cons (v1, list);
+  S48_GC_UNPROTECT();
+  return list;
+}
+
+s48_value
+s48_list_11(s48_value v1, s48_value v2, s48_value v3, s48_value v4, s48_value v5,
+	    s48_value v6, s48_value v7, s48_value v8, s48_value v9, s48_value v10,
+	    s48_value v11)
+{
+  s48_value list = S48_UNSPECIFIC;
+  S48_DECLARE_GC_PROTECT(1);
+  
+  S48_GC_PROTECT_1(v1);
+  list = s48_list_10 (v2, v3, v4, v5, v6, v7, v8, v9, v10, v11);
+  list = s48_cons (v1, list);
+  S48_GC_UNPROTECT();
+  return list;
+}
+
+s48_value
+s48_list_12(s48_value v1, s48_value v2, s48_value v3, s48_value v4, s48_value v5,
+	    s48_value v6, s48_value v7, s48_value v8, s48_value v9, s48_value v10,
+	    s48_value v11, s48_value v12)
+{
+  s48_value list = S48_UNSPECIFIC;
+  S48_DECLARE_GC_PROTECT(1);
+  
+  S48_GC_PROTECT_1(v1);
+  list = s48_list_11 (v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12);
+  list = s48_cons (v1, list);
+  S48_GC_UNPROTECT();
+  return list;
+}
+
 s48_value
 s48_make_weak_pointer(s48_value value)
 {
diff --git a/c/scheme48.h.in b/c/scheme48.h.in
index ed74cea..1bf0a10 100644
--- a/c/scheme48.h.in
+++ b/c/scheme48.h.in
@@ -45,6 +45,30 @@ extern unsigned long	s48_extract_unsigned_integer(s48_value);
 extern s48_value	s48_enter_double(double);
 extern double		s48_extract_double(s48_value);
 extern s48_value	s48_cons(s48_value, s48_value);
+extern s48_value        s48_list_1(s48_value);
+extern s48_value        s48_list_2(s48_value, s48_value);
+extern s48_value        s48_list_3(s48_value, s48_value, s48_value);
+extern s48_value        s48_list_4(s48_value, s48_value, s48_value, s48_value);
+extern s48_value        s48_list_5(s48_value, s48_value, s48_value, s48_value,
+				   s48_value);
+extern s48_value        s48_list_6(s48_value, s48_value, s48_value, s48_value,
+				   s48_value, s48_value);
+extern s48_value        s48_list_7(s48_value, s48_value, s48_value, s48_value,
+				   s48_value, s48_value, s48_value);
+extern s48_value        s48_list_8(s48_value, s48_value, s48_value, s48_value,
+				   s48_value, s48_value, s48_value, s48_value);
+extern s48_value        s48_list_9(s48_value, s48_value, s48_value, s48_value,
+				   s48_value, s48_value, s48_value, s48_value,
+				   s48_value);
+extern s48_value        s48_list_10(s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value);
+extern s48_value        s48_list_11(s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value, s48_value);
+extern s48_value        s48_list_12(s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value, s48_value, s48_value);
 extern s48_value	s48_enter_string(char *);
 extern char *		s48_extract_string(s48_value);
 extern s48_value	s48_enter_substring(char *, int);