1 /* Copyright (C) 1999,2000,2001,2003, 2006, 2008 Free Software Foundation, Inc.
3 * This library is free software; you can redistribute it and/or
4 * modify it under the terms of the GNU Lesser General Public License
5 * as published by the Free Software Foundation; either version 3 of
6 * the License, or (at your option) any later version.
8 * This library is distributed in the hope that it will be useful, but
9 * WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 * Lesser General Public License for more details.
13 * You should have received a copy of the GNU Lesser General Public
14 * License along with this library; if not, write to the Free Software
15 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
42 /* since we don't have SCM_DEFINE_STATIC or similar */
43 SCM
scm_make_asmob000 (void);
44 SCM
scm_make_asmob001 (void);
45 SCM
scm_make_asmob010 (void);
46 SCM
scm_make_asmob011 (void);
47 SCM
scm_make_asmob100 (void);
48 SCM
scm_make_asmob101 (void);
49 SCM
scm_make_asmob110 (void);
50 SCM
scm_make_asmob111 (void);
51 SCM
scm_make_asmob120 (void);
52 SCM
scm_make_asmob020 (void);
53 SCM
scm_make_asmob021 (void);
54 SCM
scm_make_asmob200 (void);
55 SCM
scm_make_asmob201 (void);
56 SCM
scm_make_asmob210 (void);
57 SCM
scm_make_asmob030 (void);
58 SCM
scm_make_asmob300 (void);
61 SCM_DEFINE (scm_make_asmob000
, "make-asmob000", 0, 0, 0, (), "")
63 SCM_RETURN_NEWSMOB (asmob000
, 0);
66 SCM_DEFINE (scm_make_asmob100
, "make-asmob100", 0, 0, 0, (), "")
68 SCM_RETURN_NEWSMOB (asmob100
, 0);
71 SCM_DEFINE (scm_make_asmob010
, "make-asmob010", 0, 0, 0, (), "")
73 SCM_RETURN_NEWSMOB (asmob010
, 0);
76 SCM_DEFINE (scm_make_asmob001
, "make-asmob001", 0, 0, 0, (), "")
78 SCM_RETURN_NEWSMOB (asmob001
, 0);
81 SCM_DEFINE (scm_make_asmob200
, "make-asmob200", 0, 0, 0, (), "")
83 SCM_RETURN_NEWSMOB (asmob200
, 0);
86 SCM_DEFINE (scm_make_asmob110
, "make-asmob110", 0, 0, 0, (), "")
88 SCM_RETURN_NEWSMOB (asmob110
, 0);
91 SCM_DEFINE (scm_make_asmob020
, "make-asmob020", 0, 0, 0, (), "")
93 SCM_RETURN_NEWSMOB (asmob020
, 0);
96 SCM_DEFINE (scm_make_asmob101
, "make-asmob101", 0, 0, 0, (), "")
98 SCM_RETURN_NEWSMOB (asmob101
, 0);
101 SCM_DEFINE (scm_make_asmob011
, "make-asmob011", 0, 0, 0, (), "")
103 SCM_RETURN_NEWSMOB (asmob011
, 0);
106 SCM_DEFINE (scm_make_asmob300
, "make-asmob300", 0, 0, 0, (), "")
108 SCM_RETURN_NEWSMOB (asmob300
, 0);
111 SCM_DEFINE (scm_make_asmob210
, "make-asmob210", 0, 0, 0, (), "")
113 SCM_RETURN_NEWSMOB (asmob210
, 0);
116 SCM_DEFINE (scm_make_asmob120
, "make-asmob120", 0, 0, 0, (), "")
118 SCM_RETURN_NEWSMOB (asmob120
, 0);
121 SCM_DEFINE (scm_make_asmob030
, "make-asmob030", 0, 0, 0, (), "")
123 SCM_RETURN_NEWSMOB (asmob030
, 0);
126 SCM_DEFINE (scm_make_asmob201
, "make-asmob201", 0, 0, 0, (), "")
128 SCM_RETURN_NEWSMOB (asmob201
, 0);
131 SCM_DEFINE (scm_make_asmob021
, "make-asmob021", 0, 0, 0, (), "")
133 SCM_RETURN_NEWSMOB (asmob021
, 0);
136 SCM_DEFINE (scm_make_asmob111
, "make-asmob111", 0, 0, 0, (), "")
138 SCM_RETURN_NEWSMOB (asmob111
, 0);
148 apply1 (SCM smob
, SCM a1
)
150 if (SCM_UNBNDP (a1
)) a1
= SCM_BOOL_F
;
151 return scm_list_1 (a1
);
155 apply2 (SCM smob
, SCM a1
, SCM a2
)
157 if (SCM_UNBNDP (a1
)) a1
= SCM_BOOL_F
;
158 if (SCM_UNBNDP (a2
)) a2
= SCM_BOOL_F
;
159 return scm_list_2 (a1
, a2
);
163 apply3 (SCM smob
, SCM a1
, SCM a2
, SCM rest
)
165 if (SCM_UNBNDP (a1
)) a1
= SCM_BOOL_F
;
166 if (SCM_UNBNDP (a2
)) a2
= SCM_BOOL_F
;
167 if (SCM_UNBNDP (rest
)) rest
= SCM_BOOL_F
;
168 return scm_list_3 (a1
, a2
, rest
);
171 void libtest_asmobs_init (void);
174 libtest_asmobs_init ()
176 asmob000
= scm_make_smob_type ("asmob000", 0);
177 scm_set_smob_apply (asmob000
, apply0
, 0, 0, 0);
178 asmob100
= scm_make_smob_type ("asmob100", 0);
179 scm_set_smob_apply (asmob100
, apply1
, 1, 0, 0);
180 asmob010
= scm_make_smob_type ("asmob010", 0);
181 scm_set_smob_apply (asmob010
, apply1
, 0, 1, 0);
182 asmob001
= scm_make_smob_type ("asmob001", 0);
183 scm_set_smob_apply (asmob001
, apply1
, 0, 0, 1);
184 asmob200
= scm_make_smob_type ("asmob200", 0);
185 scm_set_smob_apply (asmob200
, apply2
, 2, 0, 0);
186 asmob110
= scm_make_smob_type ("asmob110", 0);
187 scm_set_smob_apply (asmob110
, apply2
, 1, 1, 0);
188 asmob020
= scm_make_smob_type ("asmob020", 0);
189 scm_set_smob_apply (asmob020
, apply2
, 0, 2, 0);
190 asmob101
= scm_make_smob_type ("asmob101", 0);
191 scm_set_smob_apply (asmob101
, apply2
, 1, 0, 1);
192 asmob011
= scm_make_smob_type ("asmob011", 0);
193 scm_set_smob_apply (asmob011
, apply2
, 0, 1, 1);
194 asmob300
= scm_make_smob_type ("asmob300", 0);
195 scm_set_smob_apply (asmob300
, apply3
, 3, 0, 0);
196 asmob210
= scm_make_smob_type ("asmob210", 0);
197 scm_set_smob_apply (asmob210
, apply3
, 2, 1, 0);
198 asmob120
= scm_make_smob_type ("asmob120", 0);
199 scm_set_smob_apply (asmob120
, apply3
, 1, 2, 0);
200 asmob030
= scm_make_smob_type ("asmob030", 0);
201 scm_set_smob_apply (asmob030
, apply3
, 0, 3, 0);
202 asmob201
= scm_make_smob_type ("asmob201", 0);
203 scm_set_smob_apply (asmob201
, apply3
, 2, 0, 1);
204 asmob021
= scm_make_smob_type ("asmob021", 0);
205 scm_set_smob_apply (asmob021
, apply3
, 0, 2, 1);
206 asmob111
= scm_make_smob_type ("asmob111", 0);
207 scm_set_smob_apply (asmob111
, apply3
, 1, 1, 1);
208 # include "test-asmobs-lib.x"