1 /* Generated automatically from libvec.scm. DO NOT EDIT */
2 #define LIBGAUCHE_BODY
3 #include <gauche.h>
4 #include <gauche/code.h>
5
6 #line 37 "libvec.scm"
7 #include <gauche/vminsn.h>
8
9
10 #line 38 "libvec.scm"
11 #include <gauche/priv/vectorP.h>
12
13
14 static ScmObj libvecvector(ScmObj*, int, void*);
15 static SCM_DEFINE_SUBRX(libvecvector__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecvector, SCM_MAKE_INT(SCM_VM_VEC), NULL);
16
17
18 static ScmObj libvecvectorP(ScmObj*, int, void*);
19 static SCM_DEFINE_SUBRX(libvecvectorP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecvectorP, SCM_MAKE_INT(SCM_VM_VECTORP), NULL);
20
21
22 static ScmObj libvecvector_length(ScmObj*, int, void*);
23 static SCM_DEFINE_SUBRX(libvecvector_length__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecvector_length, SCM_MAKE_INT(SCM_VM_VEC_LEN), NULL);
24
25
26 static ScmObj libvecvector_ref(ScmObj*, int, void*);
27 static SCM_DEFINE_SUBRX(libvecvector_ref__STUB, 2, 2,1, SCM_FALSE,0, libvecvector_ref, NULL, NULL);
28
29
30 static ScmObj libvecvector_setX(ScmObj*, int, void*);
31 static SCM_DEFINE_SUBR(libvecvector_setX__STUB, 3, 0,SCM_FALSE,libvecvector_setX, NULL, NULL);
32
33
34 static ScmObj libvecvector_TOlist(ScmObj*, int, void*);
35 static SCM_DEFINE_SUBRX(libvecvector_TOlist__STUB, 1, 3,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecvector_TOlist, NULL, NULL);
36
37
38 static ScmObj libveclist_TOvector(ScmObj*, int, void*);
39 static SCM_DEFINE_SUBRX(libveclist_TOvector__STUB, 1, 3,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libveclist_TOvector, NULL, NULL);
40
41
42 static ScmObj libvecvector_fillX(ScmObj*, int, void*);
43 static SCM_DEFINE_SUBR(libvecvector_fillX__STUB, 2, 3,SCM_FALSE,libvecvector_fillX, NULL, NULL);
44
45
46 static ScmObj libvecvector_copy(ScmObj*, int, void*);
47 static SCM_DEFINE_SUBR(libvecvector_copy__STUB, 1, 4,SCM_FALSE,libvecvector_copy, NULL, NULL);
48
49
50 static ScmObj libvecvector_copyX(ScmObj*, int, void*);
51 static SCM_DEFINE_SUBRX(libvecvector_copyX__STUB, 3, 3,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecvector_copyX, NULL, NULL);
52
53
54 static ScmObj libvecvector_append(ScmObj*, int, void*);
55 static SCM_DEFINE_SUBRX(libvecvector_append__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecvector_append, NULL, NULL);
56
57
58 static ScmObj libvecvector_immutableP(ScmObj*, int, void*);
59 static SCM_DEFINE_SUBRX(libvecvector_immutableP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecvector_immutableP, NULL, NULL);
60
61
62 static ScmObj libvecmake_weak_vector(ScmObj*, int, void*);
63 static SCM_DEFINE_SUBRX(libvecmake_weak_vector__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecmake_weak_vector, NULL, NULL);
64
65
66 static ScmObj libvecweak_vector_length(ScmObj*, int, void*);
67 static SCM_DEFINE_SUBRX(libvecweak_vector_length__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecweak_vector_length, NULL, NULL);
68
69
70 static ScmObj libvecweak_vector_ref(ScmObj*, int, void*);
71 static SCM_DEFINE_SUBR(libvecweak_vector_ref__STUB, 2, 2,SCM_FALSE,libvecweak_vector_ref, NULL, NULL);
72
73
74 static ScmObj libvecweak_vector_setX(ScmObj*, int, void*);
75 static SCM_DEFINE_SUBR(libvecweak_vector_setX__STUB, 3, 0,SCM_FALSE,libvecweak_vector_setX, NULL, NULL);
76
77
78 static ScmObj libvecs8vector_setX(ScmObj*, int, void*);
79 static SCM_DEFINE_SUBR(libvecs8vector_setX__STUB, 3, 2,SCM_FALSE,libvecs8vector_setX, NULL, NULL);
80
81
82 static ScmObj libvecs8vector_ref(ScmObj*, int, void*);
83 static SCM_DEFINE_SUBRX(libvecs8vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecs8vector_ref, NULL, NULL);
84
85
86 static ScmObj libvecu8vector_setX(ScmObj*, int, void*);
87 static SCM_DEFINE_SUBR(libvecu8vector_setX__STUB, 3, 2,SCM_FALSE,libvecu8vector_setX, NULL, NULL);
88
89
90 static ScmObj libvecu8vector_ref(ScmObj*, int, void*);
91 static SCM_DEFINE_SUBRX(libvecu8vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecu8vector_ref, NULL, NULL);
92
93
94 static ScmObj libvecs16vector_setX(ScmObj*, int, void*);
95 static SCM_DEFINE_SUBR(libvecs16vector_setX__STUB, 3, 2,SCM_FALSE,libvecs16vector_setX, NULL, NULL);
96
97
98 static ScmObj libvecs16vector_ref(ScmObj*, int, void*);
99 static SCM_DEFINE_SUBRX(libvecs16vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecs16vector_ref, NULL, NULL);
100
101
102 static ScmObj libvecu16vector_setX(ScmObj*, int, void*);
103 static SCM_DEFINE_SUBR(libvecu16vector_setX__STUB, 3, 2,SCM_FALSE,libvecu16vector_setX, NULL, NULL);
104
105
106 static ScmObj libvecu16vector_ref(ScmObj*, int, void*);
107 static SCM_DEFINE_SUBRX(libvecu16vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecu16vector_ref, NULL, NULL);
108
109
110 static ScmObj libvecs32vector_setX(ScmObj*, int, void*);
111 static SCM_DEFINE_SUBR(libvecs32vector_setX__STUB, 3, 2,SCM_FALSE,libvecs32vector_setX, NULL, NULL);
112
113
114 static ScmObj libvecs32vector_ref(ScmObj*, int, void*);
115 static SCM_DEFINE_SUBRX(libvecs32vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecs32vector_ref, NULL, NULL);
116
117
118 static ScmObj libvecu32vector_setX(ScmObj*, int, void*);
119 static SCM_DEFINE_SUBR(libvecu32vector_setX__STUB, 3, 2,SCM_FALSE,libvecu32vector_setX, NULL, NULL);
120
121
122 static ScmObj libvecu32vector_ref(ScmObj*, int, void*);
123 static SCM_DEFINE_SUBRX(libvecu32vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecu32vector_ref, NULL, NULL);
124
125
126 static ScmObj libvecs64vector_setX(ScmObj*, int, void*);
127 static SCM_DEFINE_SUBR(libvecs64vector_setX__STUB, 3, 2,SCM_FALSE,libvecs64vector_setX, NULL, NULL);
128
129
130 static ScmObj libvecs64vector_ref(ScmObj*, int, void*);
131 static SCM_DEFINE_SUBRX(libvecs64vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecs64vector_ref, NULL, NULL);
132
133
134 static ScmObj libvecu64vector_setX(ScmObj*, int, void*);
135 static SCM_DEFINE_SUBR(libvecu64vector_setX__STUB, 3, 2,SCM_FALSE,libvecu64vector_setX, NULL, NULL);
136
137
138 static ScmObj libvecu64vector_ref(ScmObj*, int, void*);
139 static SCM_DEFINE_SUBRX(libvecu64vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecu64vector_ref, NULL, NULL);
140
141
142 static ScmObj libvecf16vector_setX(ScmObj*, int, void*);
143 static SCM_DEFINE_SUBR(libvecf16vector_setX__STUB, 3, 2,SCM_FALSE,libvecf16vector_setX, NULL, NULL);
144
145
146 static ScmObj libvecf16vector_ref(ScmObj*, int, void*);
147 static SCM_DEFINE_SUBRX(libvecf16vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecf16vector_ref, NULL, NULL);
148
149
150 static ScmObj libvecf32vector_setX(ScmObj*, int, void*);
151 static SCM_DEFINE_SUBR(libvecf32vector_setX__STUB, 3, 2,SCM_FALSE,libvecf32vector_setX, NULL, NULL);
152
153
154 static ScmObj libvecf32vector_ref(ScmObj*, int, void*);
155 static SCM_DEFINE_SUBRX(libvecf32vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecf32vector_ref, NULL, NULL);
156
157
158 static ScmObj libvecf64vector_setX(ScmObj*, int, void*);
159 static SCM_DEFINE_SUBR(libvecf64vector_setX__STUB, 3, 2,SCM_FALSE,libvecf64vector_setX, NULL, NULL);
160
161
162 static ScmObj libvecf64vector_ref(ScmObj*, int, void*);
163 static SCM_DEFINE_SUBRX(libvecf64vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecf64vector_ref, NULL, NULL);
164
165
166 static ScmObj libvecc32vector_setX(ScmObj*, int, void*);
167 static SCM_DEFINE_SUBR(libvecc32vector_setX__STUB, 3, 2,SCM_FALSE,libvecc32vector_setX, NULL, NULL);
168
169
170 static ScmObj libvecc32vector_ref(ScmObj*, int, void*);
171 static SCM_DEFINE_SUBRX(libvecc32vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecc32vector_ref, NULL, NULL);
172
173
174 static ScmObj libvecc64vector_setX(ScmObj*, int, void*);
175 static SCM_DEFINE_SUBR(libvecc64vector_setX__STUB, 3, 2,SCM_FALSE,libvecc64vector_setX, NULL, NULL);
176
177
178 static ScmObj libvecc64vector_ref(ScmObj*, int, void*);
179 static SCM_DEFINE_SUBRX(libvecc64vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecc64vector_ref, NULL, NULL);
180
181
182 static ScmObj libvecc128vector_setX(ScmObj*, int, void*);
183 static SCM_DEFINE_SUBR(libvecc128vector_setX__STUB, 3, 2,SCM_FALSE,libvecc128vector_setX, NULL, NULL);
184
185
186 static ScmObj libvecc128vector_ref(ScmObj*, int, void*);
187 static SCM_DEFINE_SUBRX(libvecc128vector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecc128vector_ref, NULL, NULL);
188
189
190 static ScmObj libvecuvector_setX(ScmObj*, int, void*);
191 static SCM_DEFINE_SUBRX(libvecuvector_setX__STUB, 3, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecuvector_setX, NULL, NULL);
192
193
194 static ScmObj libvecuvector_ref(ScmObj*, int, void*);
195 static SCM_DEFINE_SUBRX(libvecuvector_ref__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecuvector_ref, NULL, NULL);
196
197
198 static ScmObj libvecuvector_length(ScmObj*, int, void*);
199 static SCM_DEFINE_SUBRX(libvecuvector_length__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecuvector_length, NULL, NULL);
200
201
202 static ScmObj libvecuvector_immutableP(ScmObj*, int, void*);
203 static SCM_DEFINE_SUBRX(libvecuvector_immutableP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecuvector_immutableP, NULL, NULL);
204
205
206 static ScmObj libvecuvectorP(ScmObj*, int, void*);
207 static SCM_DEFINE_SUBRX(libvecuvectorP__STUB, 1, 0,1, SCM_FALSE,0, libvecuvectorP, NULL, NULL);
208
209
210 static ScmObj libvecu8vectorP(ScmObj*, int, void*);
211 static SCM_DEFINE_SUBR(libvecu8vectorP__STUB, 1, 0,SCM_FALSE,libvecu8vectorP, NULL, NULL);
212
213
214 static ScmObj libvecs8vectorP(ScmObj*, int, void*);
215 static SCM_DEFINE_SUBR(libvecs8vectorP__STUB, 1, 0,SCM_FALSE,libvecs8vectorP, NULL, NULL);
216
217
218 static ScmObj libvecu16vectorP(ScmObj*, int, void*);
219 static SCM_DEFINE_SUBR(libvecu16vectorP__STUB, 1, 0,SCM_FALSE,libvecu16vectorP, NULL, NULL);
220
221
222 static ScmObj libvecs16vectorP(ScmObj*, int, void*);
223 static SCM_DEFINE_SUBR(libvecs16vectorP__STUB, 1, 0,SCM_FALSE,libvecs16vectorP, NULL, NULL);
224
225
226 static ScmObj libvecu32vectorP(ScmObj*, int, void*);
227 static SCM_DEFINE_SUBR(libvecu32vectorP__STUB, 1, 0,SCM_FALSE,libvecu32vectorP, NULL, NULL);
228
229
230 static ScmObj libvecs32vectorP(ScmObj*, int, void*);
231 static SCM_DEFINE_SUBR(libvecs32vectorP__STUB, 1, 0,SCM_FALSE,libvecs32vectorP, NULL, NULL);
232
233
234 static ScmObj libvecu64vectorP(ScmObj*, int, void*);
235 static SCM_DEFINE_SUBR(libvecu64vectorP__STUB, 1, 0,SCM_FALSE,libvecu64vectorP, NULL, NULL);
236
237
238 static ScmObj libvecs64vectorP(ScmObj*, int, void*);
239 static SCM_DEFINE_SUBR(libvecs64vectorP__STUB, 1, 0,SCM_FALSE,libvecs64vectorP, NULL, NULL);
240
241
242 static ScmObj libvecf16vectorP(ScmObj*, int, void*);
243 static SCM_DEFINE_SUBR(libvecf16vectorP__STUB, 1, 0,SCM_FALSE,libvecf16vectorP, NULL, NULL);
244
245
246 static ScmObj libvecf32vectorP(ScmObj*, int, void*);
247 static SCM_DEFINE_SUBR(libvecf32vectorP__STUB, 1, 0,SCM_FALSE,libvecf32vectorP, NULL, NULL);
248
249
250 static ScmObj libvecf64vectorP(ScmObj*, int, void*);
251 static SCM_DEFINE_SUBR(libvecf64vectorP__STUB, 1, 0,SCM_FALSE,libvecf64vectorP, NULL, NULL);
252
253
254 static ScmObj libvecc32vectorP(ScmObj*, int, void*);
255 static SCM_DEFINE_SUBR(libvecc32vectorP__STUB, 1, 0,SCM_FALSE,libvecc32vectorP, NULL, NULL);
256
257
258 static ScmObj libvecc64vectorP(ScmObj*, int, void*);
259 static SCM_DEFINE_SUBR(libvecc64vectorP__STUB, 1, 0,SCM_FALSE,libvecc64vectorP, NULL, NULL);
260
261
262 static ScmObj libvecc128vectorP(ScmObj*, int, void*);
263 static SCM_DEFINE_SUBR(libvecc128vectorP__STUB, 1, 0,SCM_FALSE,libvecc128vectorP, NULL, NULL);
264
265
266 static ScmObj libvecbitvectorP(ScmObj*, int, void*);
267 static SCM_DEFINE_SUBR(libvecbitvectorP__STUB, 1, 0,SCM_FALSE,libvecbitvectorP, NULL, NULL);
268
269
270 static ScmObj libvecbitvector_length(ScmObj*, int, void*);
271 static SCM_DEFINE_SUBRX(libvecbitvector_length__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecbitvector_length, NULL, NULL);
272
273
274 static ScmObj libvecmake_bitvector(ScmObj*, int, void*);
275 static SCM_DEFINE_SUBR(libvecmake_bitvector__STUB, 1, 2,SCM_FALSE,libvecmake_bitvector, NULL, NULL);
276
277
278 static ScmObj libvecbitvector(ScmObj*, int, void*);
279 static SCM_DEFINE_SUBRX(libvecbitvector__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecbitvector, NULL, NULL);
280
281
282 static ScmObj libveclist_TObitvector(ScmObj*, int, void*);
283 static SCM_DEFINE_SUBR(libveclist_TObitvector__STUB, 1, 0,SCM_FALSE,libveclist_TObitvector, NULL, NULL);
284
285
286 static ScmObj libvecstring_TObitvector(ScmObj*, int, void*);
287 static SCM_DEFINE_SUBRX(libvecstring_TObitvector__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecstring_TObitvector, NULL, NULL);
288
289
290 static ScmObj libvecbitvector_TOstring(ScmObj*, int, void*);
291 static SCM_DEFINE_SUBRX(libvecbitvector_TOstring__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecbitvector_TOstring, NULL, NULL);
292
293
294 static ScmObj libvecbit_TOinteger(ScmObj*, int, void*);
295 static SCM_DEFINE_SUBR(libvecbit_TOinteger__STUB, 1, 0,SCM_FALSE,libvecbit_TOinteger, NULL, NULL);
296
297
298 static ScmObj libvecbit_TOboolean(ScmObj*, int, void*);
299 static SCM_DEFINE_SUBR(libvecbit_TOboolean__STUB, 1, 0,SCM_FALSE,libvecbit_TOboolean, NULL, NULL);
300
301
302 static ScmObj libvecbitvector_setX(ScmObj*, int, void*);
303 static SCM_DEFINE_SUBR(libvecbitvector_setX__STUB, 3, 0,SCM_FALSE,libvecbitvector_setX, NULL, NULL);
304
305
306 static ScmObj libvecbitvector_ref_2fint(ScmObj*, int, void*);
307 static SCM_DEFINE_SUBR(libvecbitvector_ref_2fint__STUB, 2, 2,SCM_FALSE,libvecbitvector_ref_2fint, NULL, NULL);
308
309
310 static ScmObj libvecbitvector_ref_2fbool(ScmObj*, int, void*);
311 static SCM_DEFINE_SUBR(libvecbitvector_ref_2fbool__STUB, 2, 2,SCM_FALSE,libvecbitvector_ref_2fbool, NULL, NULL);
312
313
314 static ScmObj libvecbitvector_copy(ScmObj*, int, void*);
315 static SCM_DEFINE_SUBRX(libvecbitvector_copy__STUB, 1, 3,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecbitvector_copy, NULL, NULL);
316
317
318 static ScmObj libvecbitvector_copyX(ScmObj*, int, void*);
319 static SCM_DEFINE_SUBRX(libvecbitvector_copyX__STUB, 3, 3,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libvecbitvector_copyX, NULL, NULL);
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341 #if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS)
342 #define SCM_CGEN_CONST /*empty*/
343 #else
344 #define SCM_CGEN_CONST const
345 #endif
346 static SCM_CGEN_CONST struct scm__scRec {
347 ScmString d1561[134];
348 } scm__sc SCM_UNUSED = {
349 { /* ScmString d1561 */
350 SCM_STRING_CONST_INITIALIZER("vector", 6, 6),
351 SCM_STRING_CONST_INITIALIZER("rest", 4, 4),
352 SCM_STRING_CONST_INITIALIZER("args", 4, 4),
353 SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
354 SCM_STRING_CONST_INITIALIZER("libvec.scm", 10, 10),
355 SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
356 SCM_STRING_CONST_INITIALIZER("scheme", 6, 6),
357 SCM_STRING_CONST_INITIALIZER("vector\077", 7, 7),
358 SCM_STRING_CONST_INITIALIZER("obj", 3, 3),
359 SCM_STRING_CONST_INITIALIZER("vector-length", 13, 13),
360 SCM_STRING_CONST_INITIALIZER("vec", 3, 3),
361 SCM_STRING_CONST_INITIALIZER("vector-ref", 10, 10),
362 SCM_STRING_CONST_INITIALIZER("k", 1, 1),
363 SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
364 SCM_STRING_CONST_INITIALIZER("fallback", 8, 8),
365 SCM_STRING_CONST_INITIALIZER("vector-set!", 11, 11),
366 SCM_STRING_CONST_INITIALIZER("vector->list", 12, 12),
367 SCM_STRING_CONST_INITIALIZER("start", 5, 5),
368 SCM_STRING_CONST_INITIALIZER("end", 3, 3),
369 SCM_STRING_CONST_INITIALIZER("list->vector", 12, 12),
370 SCM_STRING_CONST_INITIALIZER("list", 4, 4),
371 SCM_STRING_CONST_INITIALIZER("vector-fill!", 12, 12),
372 SCM_STRING_CONST_INITIALIZER("fill", 4, 4),
373 SCM_STRING_CONST_INITIALIZER("vector-copy", 11, 11),
374 SCM_STRING_CONST_INITIALIZER("v", 1, 1),
375 SCM_STRING_CONST_INITIALIZER("vector-copy!", 12, 12),
376 SCM_STRING_CONST_INITIALIZER("t", 1, 1),
377 SCM_STRING_CONST_INITIALIZER("tstart", 6, 6),
378 SCM_STRING_CONST_INITIALIZER("s", 1, 1),
379 SCM_STRING_CONST_INITIALIZER("sstart", 6, 6),
380 SCM_STRING_CONST_INITIALIZER("send", 4, 4),
381 SCM_STRING_CONST_INITIALIZER("vector-append", 13, 13),
382 SCM_STRING_CONST_INITIALIZER("vecs", 4, 4),
383 SCM_STRING_CONST_INITIALIZER("vector-immutable\077", 17, 17),
384 SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
385 SCM_STRING_CONST_INITIALIZER("vector->string", 14, 14),
386 SCM_STRING_CONST_INITIALIZER("too many arguments for", 22, 22),
387 SCM_STRING_CONST_INITIALIZER("lambda", 6, 6),
388 SCM_STRING_CONST_INITIALIZER("list->string", 12, 12),
389 SCM_STRING_CONST_INITIALIZER("error", 5, 5),
390 SCM_STRING_CONST_INITIALIZER("unused-args", 11, 11),
391 SCM_STRING_CONST_INITIALIZER("string->vector", 14, 14),
392 SCM_STRING_CONST_INITIALIZER("string->list", 12, 12),
393 SCM_STRING_CONST_INITIALIZER("make-weak-vector", 16, 16),
394 SCM_STRING_CONST_INITIALIZER("size", 4, 4),
395 SCM_STRING_CONST_INITIALIZER("weak-vector-length", 18, 18),
396 SCM_STRING_CONST_INITIALIZER("wv", 2, 2),
397 SCM_STRING_CONST_INITIALIZER("weak-vector-ref", 15, 15),
398 SCM_STRING_CONST_INITIALIZER("index", 5, 5),
399 SCM_STRING_CONST_INITIALIZER("weak-vector-set!", 16, 16),
400 SCM_STRING_CONST_INITIALIZER("val", 3, 3),
401 SCM_STRING_CONST_INITIALIZER("SCM_UVECTOR_S8", 14, 14),
402 SCM_STRING_CONST_INITIALIZER("SCM_UVECTOR_U8", 14, 14),
403 SCM_STRING_CONST_INITIALIZER("SCM_UVECTOR_S16", 15, 15),
404 SCM_STRING_CONST_INITIALIZER("SCM_UVECTOR_U16", 15, 15),
405 SCM_STRING_CONST_INITIALIZER("SCM_UVECTOR_S32", 15, 15),
406 SCM_STRING_CONST_INITIALIZER("SCM_UVECTOR_U32", 15, 15),
407 SCM_STRING_CONST_INITIALIZER("SCM_UVECTOR_S64", 15, 15),
408 SCM_STRING_CONST_INITIALIZER("SCM_UVECTOR_U64", 15, 15),
409 SCM_STRING_CONST_INITIALIZER("SCM_UVECTOR_F16", 15, 15),
410 SCM_STRING_CONST_INITIALIZER("SCM_UVECTOR_F32", 15, 15),
411 SCM_STRING_CONST_INITIALIZER("SCM_UVECTOR_F64", 15, 15),
412 SCM_STRING_CONST_INITIALIZER("s8vector-set!", 13, 13),
413 SCM_STRING_CONST_INITIALIZER("i", 1, 1),
414 SCM_STRING_CONST_INITIALIZER("clamp", 5, 5),
415 SCM_STRING_CONST_INITIALIZER("s8vector-ref", 12, 12),
416 SCM_STRING_CONST_INITIALIZER("u8vector-set!", 13, 13),
417 SCM_STRING_CONST_INITIALIZER("u8vector-ref", 12, 12),
418 SCM_STRING_CONST_INITIALIZER("s16vector-set!", 14, 14),
419 SCM_STRING_CONST_INITIALIZER("s16vector-ref", 13, 13),
420 SCM_STRING_CONST_INITIALIZER("u16vector-set!", 14, 14),
421 SCM_STRING_CONST_INITIALIZER("u16vector-ref", 13, 13),
422 SCM_STRING_CONST_INITIALIZER("s32vector-set!", 14, 14),
423 SCM_STRING_CONST_INITIALIZER("s32vector-ref", 13, 13),
424 SCM_STRING_CONST_INITIALIZER("u32vector-set!", 14, 14),
425 SCM_STRING_CONST_INITIALIZER("u32vector-ref", 13, 13),
426 SCM_STRING_CONST_INITIALIZER("s64vector-set!", 14, 14),
427 SCM_STRING_CONST_INITIALIZER("s64vector-ref", 13, 13),
428 SCM_STRING_CONST_INITIALIZER("u64vector-set!", 14, 14),
429 SCM_STRING_CONST_INITIALIZER("u64vector-ref", 13, 13),
430 SCM_STRING_CONST_INITIALIZER("f16vector-set!", 14, 14),
431 SCM_STRING_CONST_INITIALIZER("f16vector-ref", 13, 13),
432 SCM_STRING_CONST_INITIALIZER("f32vector-set!", 14, 14),
433 SCM_STRING_CONST_INITIALIZER("f32vector-ref", 13, 13),
434 SCM_STRING_CONST_INITIALIZER("f64vector-set!", 14, 14),
435 SCM_STRING_CONST_INITIALIZER("f64vector-ref", 13, 13),
436 SCM_STRING_CONST_INITIALIZER("c32vector-set!", 14, 14),
437 SCM_STRING_CONST_INITIALIZER("c32vector-ref", 13, 13),
438 SCM_STRING_CONST_INITIALIZER("c64vector-set!", 14, 14),
439 SCM_STRING_CONST_INITIALIZER("c64vector-ref", 13, 13),
440 SCM_STRING_CONST_INITIALIZER("c128vector-set!", 15, 15),
441 SCM_STRING_CONST_INITIALIZER("c128vector-ref", 14, 14),
442 SCM_STRING_CONST_INITIALIZER("uvector-set!", 12, 12),
443 SCM_STRING_CONST_INITIALIZER("uvector-ref", 11, 11),
444 SCM_STRING_CONST_INITIALIZER("uvector-length", 14, 14),
445 SCM_STRING_CONST_INITIALIZER("uvector-immutable\077", 18, 18),
446 SCM_STRING_CONST_INITIALIZER("uvector\077", 8, 8),
447 SCM_STRING_CONST_INITIALIZER("u8vector\077", 9, 9),
448 SCM_STRING_CONST_INITIALIZER("x", 1, 1),
449 SCM_STRING_CONST_INITIALIZER("s8vector\077", 9, 9),
450 SCM_STRING_CONST_INITIALIZER("u16vector\077", 10, 10),
451 SCM_STRING_CONST_INITIALIZER("s16vector\077", 10, 10),
452 SCM_STRING_CONST_INITIALIZER("u32vector\077", 10, 10),
453 SCM_STRING_CONST_INITIALIZER("s32vector\077", 10, 10),
454 SCM_STRING_CONST_INITIALIZER("u64vector\077", 10, 10),
455 SCM_STRING_CONST_INITIALIZER("s64vector\077", 10, 10),
456 SCM_STRING_CONST_INITIALIZER("f16vector\077", 10, 10),
457 SCM_STRING_CONST_INITIALIZER("f32vector\077", 10, 10),
458 SCM_STRING_CONST_INITIALIZER("f64vector\077", 10, 10),
459 SCM_STRING_CONST_INITIALIZER("c32vector\077", 10, 10),
460 SCM_STRING_CONST_INITIALIZER("c64vector\077", 10, 10),
461 SCM_STRING_CONST_INITIALIZER("c128vector\077", 11, 11),
462 SCM_STRING_CONST_INITIALIZER("bitvector\077", 10, 10),
463 SCM_STRING_CONST_INITIALIZER("bitvector-length", 16, 16),
464 SCM_STRING_CONST_INITIALIZER("make-bitvector", 14, 14),
465 SCM_STRING_CONST_INITIALIZER("len", 3, 3),
466 SCM_STRING_CONST_INITIALIZER("init", 4, 4),
467 SCM_STRING_CONST_INITIALIZER("bitvector", 9, 9),
468 SCM_STRING_CONST_INITIALIZER("bits", 4, 4),
469 SCM_STRING_CONST_INITIALIZER("list->bitvector", 15, 15),
470 SCM_STRING_CONST_INITIALIZER("string->bitvector", 17, 17),
471 SCM_STRING_CONST_INITIALIZER("bitvector->string", 17, 17),
472 SCM_STRING_CONST_INITIALIZER("bit->integer", 12, 12),
473 SCM_STRING_CONST_INITIALIZER("bit", 3, 3),
474 SCM_STRING_CONST_INITIALIZER("bit->boolean", 12, 12),
475 SCM_STRING_CONST_INITIALIZER("bitvector-set!", 14, 14),
476 SCM_STRING_CONST_INITIALIZER("b", 1, 1),
477 SCM_STRING_CONST_INITIALIZER("bitvector-ref/int", 17, 17),
478 SCM_STRING_CONST_INITIALIZER("bitvector-ref/bool", 18, 18),
479 SCM_STRING_CONST_INITIALIZER("bitvector-copy", 14, 14),
480 SCM_STRING_CONST_INITIALIZER("bitvector-copy!", 15, 15),
481 SCM_STRING_CONST_INITIALIZER("dest", 4, 4),
482 SCM_STRING_CONST_INITIALIZER("dstart", 6, 6),
483 SCM_STRING_CONST_INITIALIZER("src", 3, 3),
484 },
485 };
486 static struct scm__rcRec {
487 ScmCompiledCode d1571[2];
488 ScmWord d1570[110];
489 ScmPair d1563[712] SCM_ALIGN_PAIR;
490 ScmObj d1562[217];
491 } scm__rc SCM_UNUSED = {
492 { /* ScmCompiledCode d1571 */
493 SCM_COMPILED_CODE_CONST_INITIALIZER( /* vector->string */
494 (ScmWord*)(SCM_OBJ(&scm__rc.d1570[0])), 55,
495 22, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[149]),
496 SCM_FALSE, SCM_FALSE),
497 SCM_COMPILED_CODE_CONST_INITIALIZER( /* string->vector */
498 (ScmWord*)(SCM_OBJ(&scm__rc.d1570[55])), 55,
499 22, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[162]),
500 SCM_FALSE, SCM_FALSE),
501 },
502 { /* ScmWord d1570 */
503 /* vector->string */
504 0x0000003d /* 0 (LREF0) */,
505 0x00000022 /* 1 (BNNULL) */,
506 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 6),
507 0x00000002 /* 3 (CONSTI 0) */,
508 0x00000013 /* 4 (JUMP) */,
509 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 7),
510 0x0000006a /* 6 (LREF0-CAR) */,
511 0x0000000d /* 7 (PUSH) */,
512 0x0000003d /* 8 (LREF0) */,
513 0x00000022 /* 9 (BNNULL) */,
514 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 14),
515 0x00000003 /* 11 (CONSTN) */,
516 0x00000013 /* 12 (JUMP) */,
517 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 15),
518 0x00000076 /* 14 (LREF0-CDR) */,
519 0x00002018 /* 15 (PUSH-LOCAL-ENV 2) */,
520 0x0000003d /* 16 (LREF0) */,
521 0x00000022 /* 17 (BNNULL) */,
522 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 22),
523 -0x00000ffe /* 19 (CONSTI -1) */,
524 0x00000013 /* 20 (JUMP) */,
525 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 23),
526 0x0000006a /* 22 (LREF0-CAR) */,
527 0x0000000d /* 23 (PUSH) */,
528 0x0000003d /* 24 (LREF0) */,
529 0x00000022 /* 25 (BNNULL) */,
530 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 30),
531 0x00000003 /* 27 (CONSTN) */,
532 0x00000013 /* 28 (JUMP) */,
533 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 31),
534 0x00000076 /* 30 (LREF0-CDR) */,
535 0x00002018 /* 31 (PUSH-LOCAL-ENV 2) */,
536 0x0000003d /* 32 (LREF0) */,
537 0x00000022 /* 33 (BNNULL) */,
538 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 37),
539 0x00000013 /* 35 (JUMP) */,
540 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 45),
541 0x0000200e /* 37 (PRE-CALL 2) */,
542 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 45),
543 0x00000006 /* 39 (CONST-PUSH) */,
544 SCM_WORD(SCM_OBJ(&scm__sc.d1561[36])) /* "too many arguments for" */,
545 0x00000006 /* 41 (CONST-PUSH) */,
546 SCM_WORD(SCM_OBJ(&scm__rc.d1563[142])) /* (lambda (v :optional (start 0) (end -1)) (list->string (vector->list v start end))) */,
547 0x0000205f /* 43 (GREF-CALL 2) */,
548 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.2083e940> */,
549 0x0000300e /* 45 (PRE-CALL 3) */,
550 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]) + 52),
551 0x00000050 /* 47 (LREF21-PUSH) */,
552 0x0000004d /* 48 (LREF11-PUSH) */,
553 0x00000049 /* 49 (LREF1-PUSH) */,
554 0x0000305f /* 50 (GREF-CALL 3) */,
555 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#vector->list.2083e3a0> */,
556 0x00001063 /* 52 (PUSH-GREF-TAIL-CALL 1) */,
557 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#list->string.2083e3e0> */,
558 0x00000014 /* 54 (RET) */,
559 /* string->vector */
560 0x0000003d /* 0 (LREF0) */,
561 0x00000022 /* 1 (BNNULL) */,
562 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 6),
563 0x00000002 /* 3 (CONSTI 0) */,
564 0x00000013 /* 4 (JUMP) */,
565 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 7),
566 0x0000006a /* 6 (LREF0-CAR) */,
567 0x0000000d /* 7 (PUSH) */,
568 0x0000003d /* 8 (LREF0) */,
569 0x00000022 /* 9 (BNNULL) */,
570 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 14),
571 0x00000003 /* 11 (CONSTN) */,
572 0x00000013 /* 12 (JUMP) */,
573 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 15),
574 0x00000076 /* 14 (LREF0-CDR) */,
575 0x00002018 /* 15 (PUSH-LOCAL-ENV 2) */,
576 0x0000003d /* 16 (LREF0) */,
577 0x00000022 /* 17 (BNNULL) */,
578 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 22),
579 -0x00000ffe /* 19 (CONSTI -1) */,
580 0x00000013 /* 20 (JUMP) */,
581 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 23),
582 0x0000006a /* 22 (LREF0-CAR) */,
583 0x0000000d /* 23 (PUSH) */,
584 0x0000003d /* 24 (LREF0) */,
585 0x00000022 /* 25 (BNNULL) */,
586 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 30),
587 0x00000003 /* 27 (CONSTN) */,
588 0x00000013 /* 28 (JUMP) */,
589 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 31),
590 0x00000076 /* 30 (LREF0-CDR) */,
591 0x00002018 /* 31 (PUSH-LOCAL-ENV 2) */,
592 0x0000003d /* 32 (LREF0) */,
593 0x00000022 /* 33 (BNNULL) */,
594 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 37),
595 0x00000013 /* 35 (JUMP) */,
596 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 45),
597 0x0000200e /* 37 (PRE-CALL 2) */,
598 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 45),
599 0x00000006 /* 39 (CONST-PUSH) */,
600 SCM_WORD(SCM_OBJ(&scm__sc.d1561[36])) /* "too many arguments for" */,
601 0x00000006 /* 41 (CONST-PUSH) */,
602 SCM_WORD(SCM_OBJ(&scm__rc.d1563[157])) /* (lambda (s :optional (start 0) (end -1)) (list->vector (string->list s start end))) */,
603 0x0000205f /* 43 (GREF-CALL 2) */,
604 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.209820c0> */,
605 0x0000300e /* 45 (PRE-CALL 3) */,
606 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]) + 52),
607 0x00000050 /* 47 (LREF21-PUSH) */,
608 0x0000004d /* 48 (LREF11-PUSH) */,
609 0x00000049 /* 49 (LREF1-PUSH) */,
610 0x0000305f /* 50 (GREF-CALL 3) */,
611 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string->list.2098ab20> */,
612 0x00001063 /* 52 (PUSH-GREF-TAIL-CALL 1) */,
613 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#list->vector.2098ab60> */,
614 0x00000014 /* 54 (RET) */,
615 },
616 { /* ScmPair d1563 */
617 { SCM_NIL, SCM_NIL },
618 { SCM_UNDEFINED, SCM_NIL},
619 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1])},
620 { SCM_MAKE_INT(48U), SCM_NIL},
621 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[3])},
622 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[4])},
623 { SCM_UNDEFINED, SCM_NIL},
624 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[6])},
625 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[7])},
626 { SCM_OBJ(&scm__rc.d1563[8]), SCM_NIL},
627 { SCM_OBJ(&scm__rc.d1563[5]), SCM_OBJ(&scm__rc.d1563[9])},
628 { SCM_UNDEFINED, SCM_NIL},
629 { SCM_MAKE_INT(51U), SCM_NIL},
630 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[12])},
631 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[13])},
632 { SCM_UNDEFINED, SCM_NIL},
633 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[15])},
634 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[16])},
635 { SCM_OBJ(&scm__rc.d1563[17]), SCM_NIL},
636 { SCM_OBJ(&scm__rc.d1563[14]), SCM_OBJ(&scm__rc.d1563[18])},
637 { SCM_UNDEFINED, SCM_NIL},
638 { SCM_MAKE_INT(54U), SCM_NIL},
639 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[21])},
640 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[22])},
641 { SCM_UNDEFINED, SCM_NIL},
642 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[24])},
643 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[25])},
644 { SCM_OBJ(&scm__rc.d1563[26]), SCM_NIL},
645 { SCM_OBJ(&scm__rc.d1563[23]), SCM_OBJ(&scm__rc.d1563[27])},
646 { SCM_UNDEFINED, SCM_NIL},
647 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[29])},
648 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[30])},
649 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[31])},
650 { SCM_MAKE_INT(57U), SCM_NIL},
651 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[33])},
652 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[34])},
653 { SCM_UNDEFINED, SCM_NIL},
654 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[36])},
655 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[37])},
656 { SCM_OBJ(&scm__rc.d1563[38]), SCM_NIL},
657 { SCM_OBJ(&scm__rc.d1563[35]), SCM_OBJ(&scm__rc.d1563[39])},
658 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[11])},
659 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[41])},
660 { SCM_MAKE_INT(68U), SCM_NIL},
661 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[43])},
662 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[44])},
663 { SCM_UNDEFINED, SCM_NIL},
664 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[46])},
665 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])},
666 { SCM_OBJ(&scm__rc.d1563[48]), SCM_NIL},
667 { SCM_OBJ(&scm__rc.d1563[45]), SCM_OBJ(&scm__rc.d1563[49])},
668 { SCM_UNDEFINED, SCM_NIL},
669 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[51])},
670 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[52])},
671 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[53])},
672 { SCM_MAKE_INT(78U), SCM_NIL},
673 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[55])},
674 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[56])},
675 { SCM_UNDEFINED, SCM_NIL},
676 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[58])},
677 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[59])},
678 { SCM_OBJ(&scm__rc.d1563[60]), SCM_NIL},
679 { SCM_OBJ(&scm__rc.d1563[57]), SCM_OBJ(&scm__rc.d1563[61])},
680 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[53])},
681 { SCM_MAKE_INT(82U), SCM_NIL},
682 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[64])},
683 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[65])},
684 { SCM_UNDEFINED, SCM_NIL},
685 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[67])},
686 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[68])},
687 { SCM_OBJ(&scm__rc.d1563[69]), SCM_NIL},
688 { SCM_OBJ(&scm__rc.d1563[66]), SCM_OBJ(&scm__rc.d1563[70])},
689 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[53])},
690 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[72])},
691 { SCM_MAKE_INT(86U), SCM_NIL},
692 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[74])},
693 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[75])},
694 { SCM_UNDEFINED, SCM_NIL},
695 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[77])},
696 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[78])},
697 { SCM_OBJ(&scm__rc.d1563[79]), SCM_NIL},
698 { SCM_OBJ(&scm__rc.d1563[76]), SCM_OBJ(&scm__rc.d1563[80])},
699 { SCM_UNDEFINED, SCM_NIL},
700 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[82])},
701 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[83])},
702 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[84])},
703 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[85])},
704 { SCM_MAKE_INT(90U), SCM_NIL},
705 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[87])},
706 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[88])},
707 { SCM_UNDEFINED, SCM_NIL},
708 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[90])},
709 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[91])},
710 { SCM_OBJ(&scm__rc.d1563[92]), SCM_NIL},
711 { SCM_OBJ(&scm__rc.d1563[89]), SCM_OBJ(&scm__rc.d1563[93])},
712 { SCM_UNDEFINED, SCM_NIL},
713 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[95])},
714 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[96])},
715 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[97])},
716 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[98])},
717 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[99])},
718 { SCM_MAKE_INT(94U), SCM_NIL},
719 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[101])},
720 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[102])},
721 { SCM_UNDEFINED, SCM_NIL},
722 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[104])},
723 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[105])},
724 { SCM_OBJ(&scm__rc.d1563[106]), SCM_NIL},
725 { SCM_OBJ(&scm__rc.d1563[103]), SCM_OBJ(&scm__rc.d1563[107])},
726 { SCM_UNDEFINED, SCM_NIL},
727 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[109])},
728 { SCM_MAKE_INT(125U), SCM_NIL},
729 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[111])},
730 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[112])},
731 { SCM_UNDEFINED, SCM_NIL},
732 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[114])},
733 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[115])},
734 { SCM_OBJ(&scm__rc.d1563[116]), SCM_NIL},
735 { SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[117])},
736 { SCM_UNDEFINED, SCM_NIL},
737 { SCM_MAKE_INT(141U), SCM_NIL},
738 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[120])},
739 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[121])},
740 { SCM_UNDEFINED, SCM_NIL},
741 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[123])},
742 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[124])},
743 { SCM_OBJ(&scm__rc.d1563[125]), SCM_NIL},
744 { SCM_OBJ(&scm__rc.d1563[122]), SCM_OBJ(&scm__rc.d1563[126])},
745 { SCM_MAKE_INT(0), SCM_NIL},
746 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[128])},
747 { SCM_MAKE_INT(-1), SCM_NIL},
748 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[130])},
749 { SCM_OBJ(&scm__rc.d1563[131]), SCM_NIL},
750 { SCM_OBJ(&scm__rc.d1563[129]), SCM_OBJ(&scm__rc.d1563[132])},
751 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[133])},
752 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[134])},
753 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[52])},
754 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[136])},
755 { SCM_OBJ(&scm__rc.d1563[137]), SCM_NIL},
756 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[138])},
757 { SCM_OBJ(&scm__rc.d1563[139]), SCM_NIL},
758 { SCM_OBJ(&scm__rc.d1563[135]), SCM_OBJ(&scm__rc.d1563[140])},
759 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[141])},
760 { SCM_MAKE_INT(149U), SCM_NIL},
761 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[143])},
762 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[144])},
763 { SCM_UNDEFINED, SCM_NIL},
764 { SCM_OBJ(&scm__rc.d1563[146]), SCM_NIL},
765 { SCM_OBJ(&scm__rc.d1563[145]), SCM_OBJ(&scm__rc.d1563[147])},
766 { SCM_UNDEFINED, SCM_NIL},
767 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[134])},
768 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[52])},
769 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[151])},
770 { SCM_OBJ(&scm__rc.d1563[152]), SCM_NIL},
771 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[153])},
772 { SCM_OBJ(&scm__rc.d1563[154]), SCM_NIL},
773 { SCM_OBJ(&scm__rc.d1563[150]), SCM_OBJ(&scm__rc.d1563[155])},
774 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[156])},
775 { SCM_MAKE_INT(151U), SCM_NIL},
776 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[158])},
777 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[159])},
778 { SCM_OBJ(&scm__rc.d1563[160]), SCM_OBJ(&scm__rc.d1563[147])},
779 { SCM_UNDEFINED, SCM_NIL},
780 { SCM_UNDEFINED, SCM_NIL},
781 { SCM_MAKE_INT(160U), SCM_NIL},
782 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[164])},
783 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[165])},
784 { SCM_UNDEFINED, SCM_NIL},
785 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[167])},
786 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[168])},
787 { SCM_OBJ(&scm__rc.d1563[169]), SCM_NIL},
788 { SCM_OBJ(&scm__rc.d1563[166]), SCM_OBJ(&scm__rc.d1563[170])},
789 { SCM_UNDEFINED, SCM_NIL},
790 { SCM_MAKE_INT(162U), SCM_NIL},
791 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[173])},
792 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[174])},
793 { SCM_UNDEFINED, SCM_NIL},
794 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[176])},
795 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[177])},
796 { SCM_OBJ(&scm__rc.d1563[178]), SCM_NIL},
797 { SCM_OBJ(&scm__rc.d1563[175]), SCM_OBJ(&scm__rc.d1563[179])},
798 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[30])},
799 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[181])},
800 { SCM_MAKE_INT(166U), SCM_NIL},
801 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[183])},
802 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[184])},
803 { SCM_UNDEFINED, SCM_NIL},
804 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[186])},
805 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[187])},
806 { SCM_OBJ(&scm__rc.d1563[188]), SCM_NIL},
807 { SCM_OBJ(&scm__rc.d1563[185]), SCM_OBJ(&scm__rc.d1563[189])},
808 { SCM_UNDEFINED, SCM_NIL},
809 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[191])},
810 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[192])},
811 { SCM_MAKE_INT(169U), SCM_NIL},
812 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[194])},
813 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[195])},
814 { SCM_UNDEFINED, SCM_NIL},
815 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[197])},
816 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[198])},
817 { SCM_OBJ(&scm__rc.d1563[199]), SCM_NIL},
818 { SCM_OBJ(&scm__rc.d1563[196]), SCM_OBJ(&scm__rc.d1563[200])},
819 { SCM_UNDEFINED, SCM_NIL},
820 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[202])},
821 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[203])},
822 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[204])},
823 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[205])},
824 { SCM_MAKE_INT(195U), SCM_NIL},
825 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[207])},
826 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[208])},
827 { SCM_UNDEFINED, SCM_NIL},
828 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[210])},
829 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[211])},
830 { SCM_OBJ(&scm__rc.d1563[212]), SCM_NIL},
831 { SCM_OBJ(&scm__rc.d1563[209]), SCM_OBJ(&scm__rc.d1563[213])},
832 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[30])},
833 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[215])},
834 { SCM_MAKE_INT(197U), SCM_NIL},
835 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[217])},
836 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[218])},
837 { SCM_UNDEFINED, SCM_NIL},
838 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[220])},
839 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[221])},
840 { SCM_OBJ(&scm__rc.d1563[222]), SCM_NIL},
841 { SCM_OBJ(&scm__rc.d1563[219]), SCM_OBJ(&scm__rc.d1563[223])},
842 { SCM_MAKE_INT(202U), SCM_NIL},
843 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[225])},
844 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[226])},
845 { SCM_UNDEFINED, SCM_NIL},
846 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[228])},
847 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[229])},
848 { SCM_OBJ(&scm__rc.d1563[230]), SCM_NIL},
849 { SCM_OBJ(&scm__rc.d1563[227]), SCM_OBJ(&scm__rc.d1563[231])},
850 { SCM_MAKE_INT(204U), SCM_NIL},
851 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[233])},
852 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[234])},
853 { SCM_UNDEFINED, SCM_NIL},
854 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[236])},
855 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[237])},
856 { SCM_OBJ(&scm__rc.d1563[238]), SCM_NIL},
857 { SCM_OBJ(&scm__rc.d1563[235]), SCM_OBJ(&scm__rc.d1563[239])},
858 { SCM_MAKE_INT(209U), SCM_NIL},
859 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[241])},
860 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[242])},
861 { SCM_UNDEFINED, SCM_NIL},
862 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[244])},
863 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[245])},
864 { SCM_OBJ(&scm__rc.d1563[246]), SCM_NIL},
865 { SCM_OBJ(&scm__rc.d1563[243]), SCM_OBJ(&scm__rc.d1563[247])},
866 { SCM_MAKE_INT(211U), SCM_NIL},
867 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[249])},
868 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[250])},
869 { SCM_UNDEFINED, SCM_NIL},
870 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[252])},
871 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[253])},
872 { SCM_OBJ(&scm__rc.d1563[254]), SCM_NIL},
873 { SCM_OBJ(&scm__rc.d1563[251]), SCM_OBJ(&scm__rc.d1563[255])},
874 { SCM_MAKE_INT(216U), SCM_NIL},
875 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[257])},
876 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[258])},
877 { SCM_UNDEFINED, SCM_NIL},
878 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[260])},
879 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[261])},
880 { SCM_OBJ(&scm__rc.d1563[262]), SCM_NIL},
881 { SCM_OBJ(&scm__rc.d1563[259]), SCM_OBJ(&scm__rc.d1563[263])},
882 { SCM_MAKE_INT(218U), SCM_NIL},
883 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[265])},
884 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[266])},
885 { SCM_UNDEFINED, SCM_NIL},
886 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[268])},
887 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[269])},
888 { SCM_OBJ(&scm__rc.d1563[270]), SCM_NIL},
889 { SCM_OBJ(&scm__rc.d1563[267]), SCM_OBJ(&scm__rc.d1563[271])},
890 { SCM_MAKE_INT(223U), SCM_NIL},
891 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[273])},
892 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[274])},
893 { SCM_UNDEFINED, SCM_NIL},
894 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[276])},
895 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[277])},
896 { SCM_OBJ(&scm__rc.d1563[278]), SCM_NIL},
897 { SCM_OBJ(&scm__rc.d1563[275]), SCM_OBJ(&scm__rc.d1563[279])},
898 { SCM_MAKE_INT(225U), SCM_NIL},
899 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[281])},
900 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[282])},
901 { SCM_UNDEFINED, SCM_NIL},
902 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[284])},
903 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[285])},
904 { SCM_OBJ(&scm__rc.d1563[286]), SCM_NIL},
905 { SCM_OBJ(&scm__rc.d1563[283]), SCM_OBJ(&scm__rc.d1563[287])},
906 { SCM_MAKE_INT(230U), SCM_NIL},
907 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[289])},
908 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[290])},
909 { SCM_UNDEFINED, SCM_NIL},
910 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[292])},
911 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[293])},
912 { SCM_OBJ(&scm__rc.d1563[294]), SCM_NIL},
913 { SCM_OBJ(&scm__rc.d1563[291]), SCM_OBJ(&scm__rc.d1563[295])},
914 { SCM_MAKE_INT(232U), SCM_NIL},
915 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[297])},
916 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[298])},
917 { SCM_UNDEFINED, SCM_NIL},
918 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[300])},
919 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[301])},
920 { SCM_OBJ(&scm__rc.d1563[302]), SCM_NIL},
921 { SCM_OBJ(&scm__rc.d1563[299]), SCM_OBJ(&scm__rc.d1563[303])},
922 { SCM_MAKE_INT(237U), SCM_NIL},
923 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[305])},
924 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[306])},
925 { SCM_UNDEFINED, SCM_NIL},
926 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[308])},
927 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[309])},
928 { SCM_OBJ(&scm__rc.d1563[310]), SCM_NIL},
929 { SCM_OBJ(&scm__rc.d1563[307]), SCM_OBJ(&scm__rc.d1563[311])},
930 { SCM_MAKE_INT(239U), SCM_NIL},
931 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[313])},
932 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[314])},
933 { SCM_UNDEFINED, SCM_NIL},
934 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[316])},
935 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[317])},
936 { SCM_OBJ(&scm__rc.d1563[318]), SCM_NIL},
937 { SCM_OBJ(&scm__rc.d1563[315]), SCM_OBJ(&scm__rc.d1563[319])},
938 { SCM_MAKE_INT(244U), SCM_NIL},
939 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[321])},
940 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[322])},
941 { SCM_UNDEFINED, SCM_NIL},
942 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[324])},
943 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[325])},
944 { SCM_OBJ(&scm__rc.d1563[326]), SCM_NIL},
945 { SCM_OBJ(&scm__rc.d1563[323]), SCM_OBJ(&scm__rc.d1563[327])},
946 { SCM_MAKE_INT(246U), SCM_NIL},
947 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[329])},
948 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[330])},
949 { SCM_UNDEFINED, SCM_NIL},
950 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[332])},
951 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[333])},
952 { SCM_OBJ(&scm__rc.d1563[334]), SCM_NIL},
953 { SCM_OBJ(&scm__rc.d1563[331]), SCM_OBJ(&scm__rc.d1563[335])},
954 { SCM_MAKE_INT(251U), SCM_NIL},
955 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[337])},
956 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[338])},
957 { SCM_UNDEFINED, SCM_NIL},
958 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[340])},
959 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[341])},
960 { SCM_OBJ(&scm__rc.d1563[342]), SCM_NIL},
961 { SCM_OBJ(&scm__rc.d1563[339]), SCM_OBJ(&scm__rc.d1563[343])},
962 { SCM_MAKE_INT(253U), SCM_NIL},
963 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[345])},
964 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[346])},
965 { SCM_UNDEFINED, SCM_NIL},
966 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[348])},
967 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[349])},
968 { SCM_OBJ(&scm__rc.d1563[350]), SCM_NIL},
969 { SCM_OBJ(&scm__rc.d1563[347]), SCM_OBJ(&scm__rc.d1563[351])},
970 { SCM_MAKE_INT(258U), SCM_NIL},
971 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[353])},
972 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[354])},
973 { SCM_UNDEFINED, SCM_NIL},
974 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[356])},
975 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[357])},
976 { SCM_OBJ(&scm__rc.d1563[358]), SCM_NIL},
977 { SCM_OBJ(&scm__rc.d1563[355]), SCM_OBJ(&scm__rc.d1563[359])},
978 { SCM_MAKE_INT(260U), SCM_NIL},
979 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[361])},
980 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[362])},
981 { SCM_UNDEFINED, SCM_NIL},
982 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[364])},
983 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[365])},
984 { SCM_OBJ(&scm__rc.d1563[366]), SCM_NIL},
985 { SCM_OBJ(&scm__rc.d1563[363]), SCM_OBJ(&scm__rc.d1563[367])},
986 { SCM_MAKE_INT(265U), SCM_NIL},
987 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[369])},
988 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[370])},
989 { SCM_UNDEFINED, SCM_NIL},
990 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[372])},
991 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[373])},
992 { SCM_OBJ(&scm__rc.d1563[374]), SCM_NIL},
993 { SCM_OBJ(&scm__rc.d1563[371]), SCM_OBJ(&scm__rc.d1563[375])},
994 { SCM_MAKE_INT(267U), SCM_NIL},
995 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[377])},
996 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[378])},
997 { SCM_UNDEFINED, SCM_NIL},
998 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[380])},
999 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[381])},
1000 { SCM_OBJ(&scm__rc.d1563[382]), SCM_NIL},
1001 { SCM_OBJ(&scm__rc.d1563[379]), SCM_OBJ(&scm__rc.d1563[383])},
1002 { SCM_MAKE_INT(272U), SCM_NIL},
1003 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[385])},
1004 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[386])},
1005 { SCM_UNDEFINED, SCM_NIL},
1006 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[388])},
1007 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[389])},
1008 { SCM_OBJ(&scm__rc.d1563[390]), SCM_NIL},
1009 { SCM_OBJ(&scm__rc.d1563[387]), SCM_OBJ(&scm__rc.d1563[391])},
1010 { SCM_MAKE_INT(274U), SCM_NIL},
1011 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[393])},
1012 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[394])},
1013 { SCM_UNDEFINED, SCM_NIL},
1014 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[396])},
1015 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[397])},
1016 { SCM_OBJ(&scm__rc.d1563[398]), SCM_NIL},
1017 { SCM_OBJ(&scm__rc.d1563[395]), SCM_OBJ(&scm__rc.d1563[399])},
1018 { SCM_MAKE_INT(279U), SCM_NIL},
1019 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[401])},
1020 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[402])},
1021 { SCM_UNDEFINED, SCM_NIL},
1022 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[404])},
1023 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[405])},
1024 { SCM_OBJ(&scm__rc.d1563[406]), SCM_NIL},
1025 { SCM_OBJ(&scm__rc.d1563[403]), SCM_OBJ(&scm__rc.d1563[407])},
1026 { SCM_MAKE_INT(281U), SCM_NIL},
1027 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[409])},
1028 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[410])},
1029 { SCM_UNDEFINED, SCM_NIL},
1030 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[412])},
1031 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[413])},
1032 { SCM_OBJ(&scm__rc.d1563[414]), SCM_NIL},
1033 { SCM_OBJ(&scm__rc.d1563[411]), SCM_OBJ(&scm__rc.d1563[415])},
1034 { SCM_MAKE_INT(286U), SCM_NIL},
1035 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[417])},
1036 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[418])},
1037 { SCM_UNDEFINED, SCM_NIL},
1038 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[420])},
1039 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[421])},
1040 { SCM_OBJ(&scm__rc.d1563[422]), SCM_NIL},
1041 { SCM_OBJ(&scm__rc.d1563[419]), SCM_OBJ(&scm__rc.d1563[423])},
1042 { SCM_MAKE_INT(288U), SCM_NIL},
1043 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[425])},
1044 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[426])},
1045 { SCM_UNDEFINED, SCM_NIL},
1046 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[428])},
1047 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[429])},
1048 { SCM_OBJ(&scm__rc.d1563[430]), SCM_NIL},
1049 { SCM_OBJ(&scm__rc.d1563[427]), SCM_OBJ(&scm__rc.d1563[431])},
1050 { SCM_MAKE_INT(293U), SCM_NIL},
1051 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[433])},
1052 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[434])},
1053 { SCM_UNDEFINED, SCM_NIL},
1054 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[436])},
1055 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[437])},
1056 { SCM_OBJ(&scm__rc.d1563[438]), SCM_NIL},
1057 { SCM_OBJ(&scm__rc.d1563[435]), SCM_OBJ(&scm__rc.d1563[439])},
1058 { SCM_MAKE_INT(297U), SCM_NIL},
1059 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[441])},
1060 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[442])},
1061 { SCM_UNDEFINED, SCM_NIL},
1062 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[444])},
1063 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[445])},
1064 { SCM_OBJ(&scm__rc.d1563[446]), SCM_NIL},
1065 { SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[447])},
1066 { SCM_MAKE_INT(302U), SCM_NIL},
1067 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[449])},
1068 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[450])},
1069 { SCM_UNDEFINED, SCM_NIL},
1070 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[452])},
1071 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[453])},
1072 { SCM_OBJ(&scm__rc.d1563[454]), SCM_NIL},
1073 { SCM_OBJ(&scm__rc.d1563[451]), SCM_OBJ(&scm__rc.d1563[455])},
1074 { SCM_MAKE_INT(304U), SCM_NIL},
1075 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[457])},
1076 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[458])},
1077 { SCM_UNDEFINED, SCM_NIL},
1078 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[460])},
1079 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[461])},
1080 { SCM_OBJ(&scm__rc.d1563[462]), SCM_NIL},
1081 { SCM_OBJ(&scm__rc.d1563[459]), SCM_OBJ(&scm__rc.d1563[463])},
1082 { SCM_MAKE_INT(306U), SCM_NIL},
1083 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[465])},
1084 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[466])},
1085 { SCM_UNDEFINED, SCM_NIL},
1086 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[468])},
1087 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[469])},
1088 { SCM_OBJ(&scm__rc.d1563[470]), SCM_NIL},
1089 { SCM_OBJ(&scm__rc.d1563[467]), SCM_OBJ(&scm__rc.d1563[471])},
1090 { SCM_UNDEFINED, SCM_NIL},
1091 { SCM_MAKE_INT(309U), SCM_NIL},
1092 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[474])},
1093 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[475])},
1094 { SCM_UNDEFINED, SCM_NIL},
1095 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[477])},
1096 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[478])},
1097 { SCM_OBJ(&scm__rc.d1563[479]), SCM_NIL},
1098 { SCM_OBJ(&scm__rc.d1563[476]), SCM_OBJ(&scm__rc.d1563[480])},
1099 { SCM_MAKE_INT(310U), SCM_NIL},
1100 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[482])},
1101 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[483])},
1102 { SCM_UNDEFINED, SCM_NIL},
1103 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[485])},
1104 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[486])},
1105 { SCM_OBJ(&scm__rc.d1563[487]), SCM_NIL},
1106 { SCM_OBJ(&scm__rc.d1563[484]), SCM_OBJ(&scm__rc.d1563[488])},
1107 { SCM_MAKE_INT(311U), SCM_NIL},
1108 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[490])},
1109 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[491])},
1110 { SCM_UNDEFINED, SCM_NIL},
1111 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[493])},
1112 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[494])},
1113 { SCM_OBJ(&scm__rc.d1563[495]), SCM_NIL},
1114 { SCM_OBJ(&scm__rc.d1563[492]), SCM_OBJ(&scm__rc.d1563[496])},
1115 { SCM_MAKE_INT(312U), SCM_NIL},
1116 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[498])},
1117 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[499])},
1118 { SCM_UNDEFINED, SCM_NIL},
1119 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[501])},
1120 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[502])},
1121 { SCM_OBJ(&scm__rc.d1563[503]), SCM_NIL},
1122 { SCM_OBJ(&scm__rc.d1563[500]), SCM_OBJ(&scm__rc.d1563[504])},
1123 { SCM_MAKE_INT(313U), SCM_NIL},
1124 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[506])},
1125 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[507])},
1126 { SCM_UNDEFINED, SCM_NIL},
1127 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[509])},
1128 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[510])},
1129 { SCM_OBJ(&scm__rc.d1563[511]), SCM_NIL},
1130 { SCM_OBJ(&scm__rc.d1563[508]), SCM_OBJ(&scm__rc.d1563[512])},
1131 { SCM_MAKE_INT(314U), SCM_NIL},
1132 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[514])},
1133 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[515])},
1134 { SCM_UNDEFINED, SCM_NIL},
1135 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[517])},
1136 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[518])},
1137 { SCM_OBJ(&scm__rc.d1563[519]), SCM_NIL},
1138 { SCM_OBJ(&scm__rc.d1563[516]), SCM_OBJ(&scm__rc.d1563[520])},
1139 { SCM_MAKE_INT(315U), SCM_NIL},
1140 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[522])},
1141 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[523])},
1142 { SCM_UNDEFINED, SCM_NIL},
1143 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[525])},
1144 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[526])},
1145 { SCM_OBJ(&scm__rc.d1563[527]), SCM_NIL},
1146 { SCM_OBJ(&scm__rc.d1563[524]), SCM_OBJ(&scm__rc.d1563[528])},
1147 { SCM_MAKE_INT(316U), SCM_NIL},
1148 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[530])},
1149 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[531])},
1150 { SCM_UNDEFINED, SCM_NIL},
1151 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[533])},
1152 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[534])},
1153 { SCM_OBJ(&scm__rc.d1563[535]), SCM_NIL},
1154 { SCM_OBJ(&scm__rc.d1563[532]), SCM_OBJ(&scm__rc.d1563[536])},
1155 { SCM_MAKE_INT(317U), SCM_NIL},
1156 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[538])},
1157 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[539])},
1158 { SCM_UNDEFINED, SCM_NIL},
1159 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[541])},
1160 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[542])},
1161 { SCM_OBJ(&scm__rc.d1563[543]), SCM_NIL},
1162 { SCM_OBJ(&scm__rc.d1563[540]), SCM_OBJ(&scm__rc.d1563[544])},
1163 { SCM_MAKE_INT(318U), SCM_NIL},
1164 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[546])},
1165 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[547])},
1166 { SCM_UNDEFINED, SCM_NIL},
1167 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[549])},
1168 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[550])},
1169 { SCM_OBJ(&scm__rc.d1563[551]), SCM_NIL},
1170 { SCM_OBJ(&scm__rc.d1563[548]), SCM_OBJ(&scm__rc.d1563[552])},
1171 { SCM_MAKE_INT(319U), SCM_NIL},
1172 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[554])},
1173 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[555])},
1174 { SCM_UNDEFINED, SCM_NIL},
1175 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[557])},
1176 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[558])},
1177 { SCM_OBJ(&scm__rc.d1563[559]), SCM_NIL},
1178 { SCM_OBJ(&scm__rc.d1563[556]), SCM_OBJ(&scm__rc.d1563[560])},
1179 { SCM_MAKE_INT(320U), SCM_NIL},
1180 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[562])},
1181 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[563])},
1182 { SCM_UNDEFINED, SCM_NIL},
1183 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[565])},
1184 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[566])},
1185 { SCM_OBJ(&scm__rc.d1563[567]), SCM_NIL},
1186 { SCM_OBJ(&scm__rc.d1563[564]), SCM_OBJ(&scm__rc.d1563[568])},
1187 { SCM_MAKE_INT(321U), SCM_NIL},
1188 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[570])},
1189 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[571])},
1190 { SCM_UNDEFINED, SCM_NIL},
1191 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[573])},
1192 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[574])},
1193 { SCM_OBJ(&scm__rc.d1563[575]), SCM_NIL},
1194 { SCM_OBJ(&scm__rc.d1563[572]), SCM_OBJ(&scm__rc.d1563[576])},
1195 { SCM_MAKE_INT(322U), SCM_NIL},
1196 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[578])},
1197 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[579])},
1198 { SCM_UNDEFINED, SCM_NIL},
1199 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[581])},
1200 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[582])},
1201 { SCM_OBJ(&scm__rc.d1563[583]), SCM_NIL},
1202 { SCM_OBJ(&scm__rc.d1563[580]), SCM_OBJ(&scm__rc.d1563[584])},
1203 { SCM_MAKE_INT(328U), SCM_NIL},
1204 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[586])},
1205 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[587])},
1206 { SCM_UNDEFINED, SCM_NIL},
1207 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[589])},
1208 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[590])},
1209 { SCM_OBJ(&scm__rc.d1563[591]), SCM_NIL},
1210 { SCM_OBJ(&scm__rc.d1563[588]), SCM_OBJ(&scm__rc.d1563[592])},
1211 { SCM_MAKE_INT(329U), SCM_NIL},
1212 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[594])},
1213 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[595])},
1214 { SCM_UNDEFINED, SCM_NIL},
1215 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[597])},
1216 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[598])},
1217 { SCM_OBJ(&scm__rc.d1563[599]), SCM_NIL},
1218 { SCM_OBJ(&scm__rc.d1563[596]), SCM_OBJ(&scm__rc.d1563[600])},
1219 { SCM_UNDEFINED, SCM_NIL},
1220 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[602])},
1221 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[603])},
1222 { SCM_MAKE_INT(332U), SCM_NIL},
1223 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[605])},
1224 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[606])},
1225 { SCM_UNDEFINED, SCM_NIL},
1226 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[608])},
1227 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[609])},
1228 { SCM_OBJ(&scm__rc.d1563[610]), SCM_NIL},
1229 { SCM_OBJ(&scm__rc.d1563[607]), SCM_OBJ(&scm__rc.d1563[611])},
1230 { SCM_UNDEFINED, SCM_NIL},
1231 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[613])},
1232 { SCM_MAKE_INT(334U), SCM_NIL},
1233 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[615])},
1234 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[616])},
1235 { SCM_UNDEFINED, SCM_NIL},
1236 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[618])},
1237 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[619])},
1238 { SCM_OBJ(&scm__rc.d1563[620]), SCM_NIL},
1239 { SCM_OBJ(&scm__rc.d1563[617]), SCM_OBJ(&scm__rc.d1563[621])},
1240 { SCM_MAKE_INT(335U), SCM_NIL},
1241 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[623])},
1242 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[624])},
1243 { SCM_UNDEFINED, SCM_NIL},
1244 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[626])},
1245 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[627])},
1246 { SCM_OBJ(&scm__rc.d1563[628]), SCM_NIL},
1247 { SCM_OBJ(&scm__rc.d1563[625]), SCM_OBJ(&scm__rc.d1563[629])},
1248 { SCM_UNDEFINED, SCM_NIL},
1249 { SCM_MAKE_INT(337U), SCM_NIL},
1250 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[632])},
1251 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[633])},
1252 { SCM_UNDEFINED, SCM_NIL},
1253 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[635])},
1254 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[636])},
1255 { SCM_OBJ(&scm__rc.d1563[637]), SCM_NIL},
1256 { SCM_OBJ(&scm__rc.d1563[634]), SCM_OBJ(&scm__rc.d1563[638])},
1257 { SCM_MAKE_INT(339U), SCM_NIL},
1258 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[640])},
1259 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[641])},
1260 { SCM_UNDEFINED, SCM_NIL},
1261 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[643])},
1262 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[644])},
1263 { SCM_OBJ(&scm__rc.d1563[645]), SCM_NIL},
1264 { SCM_OBJ(&scm__rc.d1563[642]), SCM_OBJ(&scm__rc.d1563[646])},
1265 { SCM_UNDEFINED, SCM_NIL},
1266 { SCM_MAKE_INT(342U), SCM_NIL},
1267 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[649])},
1268 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[650])},
1269 { SCM_UNDEFINED, SCM_NIL},
1270 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[652])},
1271 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[653])},
1272 { SCM_OBJ(&scm__rc.d1563[654]), SCM_NIL},
1273 { SCM_OBJ(&scm__rc.d1563[651]), SCM_OBJ(&scm__rc.d1563[655])},
1274 { SCM_MAKE_INT(343U), SCM_NIL},
1275 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[657])},
1276 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[658])},
1277 { SCM_UNDEFINED, SCM_NIL},
1278 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[660])},
1279 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[661])},
1280 { SCM_OBJ(&scm__rc.d1563[662]), SCM_NIL},
1281 { SCM_OBJ(&scm__rc.d1563[659]), SCM_OBJ(&scm__rc.d1563[663])},
1282 { SCM_UNDEFINED, SCM_NIL},
1283 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[665])},
1284 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[666])},
1285 { SCM_MAKE_INT(345U), SCM_NIL},
1286 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[668])},
1287 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[669])},
1288 { SCM_UNDEFINED, SCM_NIL},
1289 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[671])},
1290 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[672])},
1291 { SCM_OBJ(&scm__rc.d1563[673]), SCM_NIL},
1292 { SCM_OBJ(&scm__rc.d1563[670]), SCM_OBJ(&scm__rc.d1563[674])},
1293 { SCM_MAKE_INT(353U), SCM_NIL},
1294 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[676])},
1295 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[677])},
1296 { SCM_UNDEFINED, SCM_NIL},
1297 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[679])},
1298 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[680])},
1299 { SCM_OBJ(&scm__rc.d1563[681]), SCM_NIL},
1300 { SCM_OBJ(&scm__rc.d1563[678]), SCM_OBJ(&scm__rc.d1563[682])},
1301 { SCM_MAKE_INT(364U), SCM_NIL},
1302 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[684])},
1303 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[685])},
1304 { SCM_UNDEFINED, SCM_NIL},
1305 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[687])},
1306 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[688])},
1307 { SCM_OBJ(&scm__rc.d1563[689]), SCM_NIL},
1308 { SCM_OBJ(&scm__rc.d1563[686]), SCM_OBJ(&scm__rc.d1563[690])},
1309 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[53])},
1310 { SCM_MAKE_INT(373U), SCM_NIL},
1311 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[693])},
1312 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[694])},
1313 { SCM_UNDEFINED, SCM_NIL},
1314 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[696])},
1315 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[697])},
1316 { SCM_OBJ(&scm__rc.d1563[698]), SCM_NIL},
1317 { SCM_OBJ(&scm__rc.d1563[695]), SCM_OBJ(&scm__rc.d1563[699])},
1318 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[53])},
1319 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[701])},
1320 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[702])},
1321 { SCM_MAKE_INT(378U), SCM_NIL},
1322 { SCM_OBJ(&scm__sc.d1561[4]), SCM_OBJ(&scm__rc.d1563[704])},
1323 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[705])},
1324 { SCM_UNDEFINED, SCM_NIL},
1325 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[707])},
1326 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[708])},
1327 { SCM_OBJ(&scm__rc.d1563[709]), SCM_NIL},
1328 { SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[710])},
1329 },
1330 { /* ScmObj d1562 */
1331 SCM_UNBOUND,
1332 SCM_UNBOUND,
1333 SCM_UNBOUND,
1334 SCM_UNBOUND,
1335 SCM_UNBOUND,
1336 SCM_UNBOUND,
1337 SCM_UNBOUND,
1338 SCM_UNBOUND,
1339 SCM_UNBOUND,
1340 SCM_UNBOUND,
1341 SCM_UNBOUND,
1342 SCM_UNBOUND,
1343 SCM_UNBOUND,
1344 SCM_UNBOUND,
1345 SCM_UNBOUND,
1346 SCM_UNBOUND,
1347 SCM_UNBOUND,
1348 SCM_UNBOUND,
1349 SCM_UNBOUND,
1350 SCM_UNBOUND,
1351 SCM_UNBOUND,
1352 SCM_UNBOUND,
1353 SCM_UNBOUND,
1354 SCM_UNBOUND,
1355 SCM_UNBOUND,
1356 SCM_UNBOUND,
1357 SCM_UNBOUND,
1358 SCM_UNBOUND,
1359 SCM_UNBOUND,
1360 SCM_UNBOUND,
1361 SCM_UNBOUND,
1362 SCM_UNBOUND,
1363 SCM_UNBOUND,
1364 SCM_UNBOUND,
1365 SCM_UNBOUND,
1366 SCM_UNBOUND,
1367 SCM_UNBOUND,
1368 SCM_UNBOUND,
1369 SCM_UNBOUND,
1370 SCM_UNBOUND,
1371 SCM_UNBOUND,
1372 SCM_UNBOUND,
1373 SCM_UNBOUND,
1374 SCM_UNBOUND,
1375 SCM_UNBOUND,
1376 SCM_UNBOUND,
1377 SCM_UNBOUND,
1378 SCM_UNBOUND,
1379 SCM_UNBOUND,
1380 SCM_UNBOUND,
1381 SCM_UNBOUND,
1382 SCM_UNBOUND,
1383 SCM_UNBOUND,
1384 SCM_UNBOUND,
1385 SCM_UNBOUND,
1386 SCM_UNBOUND,
1387 SCM_UNBOUND,
1388 SCM_UNBOUND,
1389 SCM_UNBOUND,
1390 SCM_UNBOUND,
1391 SCM_UNBOUND,
1392 SCM_UNBOUND,
1393 SCM_UNBOUND,
1394 SCM_UNBOUND,
1395 SCM_UNBOUND,
1396 SCM_UNBOUND,
1397 SCM_UNBOUND,
1398 SCM_UNBOUND,
1399 SCM_UNBOUND,
1400 SCM_UNBOUND,
1401 SCM_UNBOUND,
1402 SCM_UNBOUND,
1403 SCM_UNBOUND,
1404 SCM_UNBOUND,
1405 SCM_UNBOUND,
1406 SCM_UNBOUND,
1407 SCM_UNBOUND,
1408 SCM_UNBOUND,
1409 SCM_UNBOUND,
1410 SCM_UNBOUND,
1411 SCM_UNBOUND,
1412 SCM_UNBOUND,
1413 SCM_UNBOUND,
1414 SCM_UNBOUND,
1415 SCM_UNBOUND,
1416 SCM_UNBOUND,
1417 SCM_UNBOUND,
1418 SCM_UNBOUND,
1419 SCM_UNBOUND,
1420 SCM_UNBOUND,
1421 SCM_UNBOUND,
1422 SCM_UNBOUND,
1423 SCM_UNBOUND,
1424 SCM_UNBOUND,
1425 SCM_UNBOUND,
1426 SCM_UNBOUND,
1427 SCM_UNBOUND,
1428 SCM_UNBOUND,
1429 SCM_UNBOUND,
1430 SCM_UNBOUND,
1431 SCM_UNBOUND,
1432 SCM_UNBOUND,
1433 SCM_UNBOUND,
1434 SCM_UNBOUND,
1435 SCM_UNBOUND,
1436 SCM_UNBOUND,
1437 SCM_UNBOUND,
1438 SCM_UNBOUND,
1439 SCM_UNBOUND,
1440 SCM_UNBOUND,
1441 SCM_UNBOUND,
1442 SCM_UNBOUND,
1443 SCM_UNBOUND,
1444 SCM_UNBOUND,
1445 SCM_UNBOUND,
1446 SCM_UNBOUND,
1447 SCM_UNBOUND,
1448 SCM_UNBOUND,
1449 SCM_UNBOUND,
1450 SCM_UNBOUND,
1451 SCM_UNBOUND,
1452 SCM_UNBOUND,
1453 SCM_UNBOUND,
1454 SCM_UNBOUND,
1455 SCM_UNBOUND,
1456 SCM_UNBOUND,
1457 SCM_UNBOUND,
1458 SCM_UNBOUND,
1459 SCM_UNBOUND,
1460 SCM_UNBOUND,
1461 SCM_UNBOUND,
1462 SCM_UNBOUND,
1463 SCM_UNBOUND,
1464 SCM_UNBOUND,
1465 SCM_UNBOUND,
1466 SCM_UNBOUND,
1467 SCM_UNBOUND,
1468 SCM_UNBOUND,
1469 SCM_UNBOUND,
1470 SCM_UNBOUND,
1471 SCM_UNBOUND,
1472 SCM_UNBOUND,
1473 SCM_UNBOUND,
1474 SCM_UNBOUND,
1475 SCM_UNBOUND,
1476 SCM_UNBOUND,
1477 SCM_UNBOUND,
1478 SCM_UNBOUND,
1479 SCM_UNBOUND,
1480 SCM_UNBOUND,
1481 SCM_UNBOUND,
1482 SCM_UNBOUND,
1483 SCM_UNBOUND,
1484 SCM_UNBOUND,
1485 SCM_UNBOUND,
1486 SCM_UNBOUND,
1487 SCM_UNBOUND,
1488 SCM_UNBOUND,
1489 SCM_UNBOUND,
1490 SCM_UNBOUND,
1491 SCM_UNBOUND,
1492 SCM_UNBOUND,
1493 SCM_UNBOUND,
1494 SCM_UNBOUND,
1495 SCM_UNBOUND,
1496 SCM_UNBOUND,
1497 SCM_UNBOUND,
1498 SCM_UNBOUND,
1499 SCM_UNBOUND,
1500 SCM_UNBOUND,
1501 SCM_UNBOUND,
1502 SCM_UNBOUND,
1503 SCM_UNBOUND,
1504 SCM_UNBOUND,
1505 SCM_UNBOUND,
1506 SCM_UNBOUND,
1507 SCM_UNBOUND,
1508 SCM_UNBOUND,
1509 SCM_UNBOUND,
1510 SCM_UNBOUND,
1511 SCM_UNBOUND,
1512 SCM_UNBOUND,
1513 SCM_UNBOUND,
1514 SCM_UNBOUND,
1515 SCM_UNBOUND,
1516 SCM_UNBOUND,
1517 SCM_UNBOUND,
1518 SCM_UNBOUND,
1519 SCM_UNBOUND,
1520 SCM_UNBOUND,
1521 SCM_UNBOUND,
1522 SCM_UNBOUND,
1523 SCM_UNBOUND,
1524 SCM_UNBOUND,
1525 SCM_UNBOUND,
1526 SCM_UNBOUND,
1527 SCM_UNBOUND,
1528 SCM_UNBOUND,
1529 SCM_UNBOUND,
1530 SCM_UNBOUND,
1531 SCM_UNBOUND,
1532 SCM_UNBOUND,
1533 SCM_UNBOUND,
1534 SCM_UNBOUND,
1535 SCM_UNBOUND,
1536 SCM_UNBOUND,
1537 SCM_UNBOUND,
1538 SCM_UNBOUND,
1539 SCM_UNBOUND,
1540 SCM_UNBOUND,
1541 SCM_UNBOUND,
1542 SCM_UNBOUND,
1543 SCM_UNBOUND,
1544 SCM_UNBOUND,
1545 SCM_UNBOUND,
1546 SCM_UNBOUND,
1547 SCM_UNBOUND,
1548 },
1549 };
libvecvector(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1550 static ScmObj libvecvector(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1551 {
1552 ScmObj args_scm;
1553 ScmObj args;
1554 ScmObj SCM_SUBRARGS[2];
1555 SCM_ENTER_SUBR("vector");
1556 for (int SCM_i=0; SCM_i<2; SCM_i++) {
1557 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1558 }
1559 args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
1560 args = (args_scm);
1561 {
1562 {
1563 ScmObj SCM_RESULT;
1564
1565 #line 49 "libvec.scm"
1566 {SCM_RESULT=(Scm_ListToVector(args,0,-1));goto SCM_STUB_RETURN;}
1567 goto SCM_STUB_RETURN;
1568 SCM_STUB_RETURN:
1569 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1570 }
1571 }
1572 }
1573
libvecvectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1574 static ScmObj libvecvectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1575 {
1576 ScmObj obj_scm;
1577 ScmObj obj;
1578 ScmObj SCM_SUBRARGS[1];
1579 SCM_ENTER_SUBR("vector?");
1580 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1581 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1582 }
1583 obj_scm = SCM_SUBRARGS[0];
1584 obj = (obj_scm);
1585 {
1586 {
1587 int SCM_RESULT;
1588 {SCM_RESULT=(SCM_VECTORP(obj));goto SCM_STUB_RETURN;}
1589 goto SCM_STUB_RETURN;
1590 SCM_STUB_RETURN:
1591 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
1592 }
1593 }
1594 }
1595
libvecvector_length(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1596 static ScmObj libvecvector_length(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1597 {
1598 ScmObj vec_scm;
1599 ScmVector* vec;
1600 ScmObj SCM_SUBRARGS[1];
1601 SCM_ENTER_SUBR("vector-length");
1602 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1603 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1604 }
1605 vec_scm = SCM_SUBRARGS[0];
1606 if (!SCM_VECTORP(vec_scm)) Scm_Error("vector required, but got %S", vec_scm);
1607 vec = SCM_VECTOR(vec_scm);
1608 {
1609 {
1610 ScmSmallInt SCM_RESULT;
1611 {SCM_RESULT=(SCM_VECTOR_SIZE(vec));goto SCM_STUB_RETURN;}
1612 goto SCM_STUB_RETURN;
1613 SCM_STUB_RETURN:
1614 SCM_RETURN(SCM_MAKE_INT(SCM_RESULT));
1615 }
1616 }
1617 }
1618
libvecvector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1619 static ScmObj libvecvector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1620 {
1621 ScmObj vec_scm;
1622 ScmVector* vec;
1623 ScmObj k_scm;
1624 ScmObj k;
1625 ScmObj fallback_scm;
1626 ScmObj fallback;
1627 ScmObj SCM_SUBRARGS[4];
1628 SCM_ENTER_SUBR("vector-ref");
1629 if (SCM_ARGCNT >= 4
1630 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
1631 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
1632 for (int SCM_i=0; SCM_i<4; SCM_i++) {
1633 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1634 }
1635 vec_scm = SCM_SUBRARGS[0];
1636 if (!SCM_VECTORP(vec_scm)) Scm_Error("vector required, but got %S", vec_scm);
1637 vec = SCM_VECTOR(vec_scm);
1638 k_scm = SCM_SUBRARGS[1];
1639 if (!SCM_INTEGERP(k_scm)) Scm_Error("exact integer required, but got %S", k_scm);
1640 k = (k_scm);
1641 if (SCM_ARGCNT > 2+1) {
1642 fallback_scm = SCM_SUBRARGS[2];
1643 } else {
1644 fallback_scm = SCM_UNBOUND;
1645 }
1646 fallback = (fallback_scm);
1647 {
1648 {
1649 ScmObj SCM_RESULT;
1650
1651 #line 60 "libvec.scm"
1652 if (((SCM_BIGNUMP(k))||(
1653 (SCM_INT_VALUE(k))<(0)))||(
1654 (SCM_INT_VALUE(k))>=(SCM_VECTOR_SIZE(vec)))){
1655 if (SCM_UNBOUNDP(fallback)){{
1656 Scm_Error("vector-ref index out of range: %S",k);}}
1657 {SCM_RESULT=(fallback);goto SCM_STUB_RETURN;}} else {
1658 {SCM_RESULT=(SCM_VECTOR_ELEMENT(vec,SCM_INT_VALUE(k)));goto SCM_STUB_RETURN;}}
1659 goto SCM_STUB_RETURN;
1660 SCM_STUB_RETURN:
1661 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1662 }
1663 }
1664 }
1665
libvecvector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1666 static ScmObj libvecvector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1667 {
1668 ScmObj vec_scm;
1669 ScmVector* vec;
1670 ScmObj k_scm;
1671 ScmObj k;
1672 ScmObj obj_scm;
1673 ScmObj obj;
1674 ScmObj SCM_SUBRARGS[3];
1675 SCM_ENTER_SUBR("vector-set!");
1676 for (int SCM_i=0; SCM_i<3; SCM_i++) {
1677 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1678 }
1679 vec_scm = SCM_SUBRARGS[0];
1680 if (!SCM_VECTORP(vec_scm)) Scm_Error("vector required, but got %S", vec_scm);
1681 vec = SCM_VECTOR(vec_scm);
1682 k_scm = SCM_SUBRARGS[1];
1683 if (!SCM_INTEGERP(k_scm)) Scm_Error("exact integer required, but got %S", k_scm);
1684 k = (k_scm);
1685 obj_scm = SCM_SUBRARGS[2];
1686 obj = (obj_scm);
1687 {
1688
1689 #line 69 "libvec.scm"
1690 {
1691 SCM_VECTOR_CHECK_MUTABLE(vec);
1692 if (((SCM_BIGNUMP(k))||(
1693 (SCM_INT_VALUE(k))<(0)))||(
1694 (SCM_INT_VALUE(k))>=(SCM_VECTOR_SIZE(vec)))){
1695 Scm_Error("vector-set! index out of range: %S",k);} else {
1696 SCM_VECTOR_ELEMENT(vec,SCM_INT_VALUE(k))=(obj);}}
1697 goto SCM_STUB_RETURN;
1698 SCM_STUB_RETURN:
1699 SCM_RETURN(SCM_UNDEFINED);
1700 }
1701 }
1702
libvecvector_TOlist(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1703 static ScmObj libvecvector_TOlist(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1704 {
1705 ScmObj vec_scm;
1706 ScmVector* vec;
1707 ScmObj start_scm;
1708 ScmSmallInt start;
1709 ScmObj end_scm;
1710 ScmSmallInt end;
1711 ScmObj SCM_SUBRARGS[5];
1712 SCM_ENTER_SUBR("vector->list");
1713 if (SCM_ARGCNT >= 4
1714 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
1715 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
1716 for (int SCM_i=0; SCM_i<5; SCM_i++) {
1717 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1718 }
1719 vec_scm = SCM_SUBRARGS[0];
1720 if (!SCM_VECTORP(vec_scm)) Scm_Error("vector required, but got %S", vec_scm);
1721 vec = SCM_VECTOR(vec_scm);
1722 if (SCM_ARGCNT > 1+1) {
1723 start_scm = SCM_SUBRARGS[1];
1724 } else {
1725 start_scm = SCM_MAKE_INT(0);
1726 }
1727 if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm);
1728 start = SCM_INT_VALUE(start_scm);
1729 if (SCM_ARGCNT > 2+1) {
1730 end_scm = SCM_SUBRARGS[2];
1731 } else {
1732 end_scm = SCM_MAKE_INT(-1);
1733 }
1734 if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm);
1735 end = SCM_INT_VALUE(end_scm);
1736 {
1737 {
1738 ScmObj SCM_RESULT;
1739 {SCM_RESULT=(Scm_VectorToList(vec,start,end));goto SCM_STUB_RETURN;}
1740 goto SCM_STUB_RETURN;
1741 SCM_STUB_RETURN:
1742 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1743 }
1744 }
1745 }
1746
libveclist_TOvector(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1747 static ScmObj libveclist_TOvector(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1748 {
1749 ScmObj list_scm;
1750 ScmObj list;
1751 ScmObj start_scm;
1752 ScmSmallInt start;
1753 ScmObj end_scm;
1754 ScmSmallInt end;
1755 ScmObj SCM_SUBRARGS[5];
1756 SCM_ENTER_SUBR("list->vector");
1757 if (SCM_ARGCNT >= 4
1758 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
1759 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
1760 for (int SCM_i=0; SCM_i<5; SCM_i++) {
1761 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1762 }
1763 list_scm = SCM_SUBRARGS[0];
1764 if (!SCM_LISTP(list_scm)) Scm_Error("list required, but got %S", list_scm);
1765 list = (list_scm);
1766 if (SCM_ARGCNT > 1+1) {
1767 start_scm = SCM_SUBRARGS[1];
1768 } else {
1769 start_scm = SCM_MAKE_INT(0);
1770 }
1771 if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm);
1772 start = SCM_INT_VALUE(start_scm);
1773 if (SCM_ARGCNT > 2+1) {
1774 end_scm = SCM_SUBRARGS[2];
1775 } else {
1776 end_scm = SCM_MAKE_INT(-1);
1777 }
1778 if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm);
1779 end = SCM_INT_VALUE(end_scm);
1780 {
1781 {
1782 ScmObj SCM_RESULT;
1783 {SCM_RESULT=(Scm_ListToVector(list,start,end));goto SCM_STUB_RETURN;}
1784 goto SCM_STUB_RETURN;
1785 SCM_STUB_RETURN:
1786 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1787 }
1788 }
1789 }
1790
libvecvector_fillX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1791 static ScmObj libvecvector_fillX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1792 {
1793 ScmObj vec_scm;
1794 ScmVector* vec;
1795 ScmObj fill_scm;
1796 ScmObj fill;
1797 ScmObj start_scm;
1798 ScmSmallInt start;
1799 ScmObj end_scm;
1800 ScmSmallInt end;
1801 ScmObj SCM_SUBRARGS[6];
1802 SCM_ENTER_SUBR("vector-fill!");
1803 if (SCM_ARGCNT >= 5
1804 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
1805 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
1806 for (int SCM_i=0; SCM_i<6; SCM_i++) {
1807 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1808 }
1809 vec_scm = SCM_SUBRARGS[0];
1810 if (!SCM_VECTORP(vec_scm)) Scm_Error("vector required, but got %S", vec_scm);
1811 vec = SCM_VECTOR(vec_scm);
1812 fill_scm = SCM_SUBRARGS[1];
1813 fill = (fill_scm);
1814 if (SCM_ARGCNT > 2+1) {
1815 start_scm = SCM_SUBRARGS[2];
1816 } else {
1817 start_scm = SCM_MAKE_INT(0);
1818 }
1819 if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm);
1820 start = SCM_INT_VALUE(start_scm);
1821 if (SCM_ARGCNT > 3+1) {
1822 end_scm = SCM_SUBRARGS[3];
1823 } else {
1824 end_scm = SCM_MAKE_INT(-1);
1825 }
1826 if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm);
1827 end = SCM_INT_VALUE(end_scm);
1828 {
1829 Scm_VectorFill(vec,fill,start,end);
1830 goto SCM_STUB_RETURN;
1831 SCM_STUB_RETURN:
1832 SCM_RETURN(SCM_UNDEFINED);
1833 }
1834 }
1835
libvecvector_copy(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1836 static ScmObj libvecvector_copy(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1837 {
1838 ScmObj v_scm;
1839 ScmVector* v;
1840 ScmObj start_scm;
1841 ScmSmallInt start;
1842 ScmObj end_scm;
1843 ScmSmallInt end;
1844 ScmObj fill_scm;
1845 ScmObj fill;
1846 ScmObj SCM_SUBRARGS[7];
1847 SCM_ENTER_SUBR("vector-copy");
1848 if (SCM_ARGCNT >= 5
1849 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
1850 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
1851 for (int SCM_i=0; SCM_i<7; SCM_i++) {
1852 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1853 }
1854 v_scm = SCM_SUBRARGS[0];
1855 if (!SCM_VECTORP(v_scm)) Scm_Error("vector required, but got %S", v_scm);
1856 v = SCM_VECTOR(v_scm);
1857 if (SCM_ARGCNT > 1+1) {
1858 start_scm = SCM_SUBRARGS[1];
1859 } else {
1860 start_scm = SCM_MAKE_INT(0);
1861 }
1862 if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm);
1863 start = SCM_INT_VALUE(start_scm);
1864 if (SCM_ARGCNT > 2+1) {
1865 end_scm = SCM_SUBRARGS[2];
1866 } else {
1867 end_scm = SCM_MAKE_INT(-1);
1868 }
1869 if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm);
1870 end = SCM_INT_VALUE(end_scm);
1871 if (SCM_ARGCNT > 3+1) {
1872 fill_scm = SCM_SUBRARGS[3];
1873 } else {
1874 fill_scm = SCM_UNBOUND;
1875 }
1876 fill = (fill_scm);
1877 {
1878 {
1879 ScmObj SCM_RESULT;
1880 {SCM_RESULT=(Scm_VectorCopy(v,start,end,fill));goto SCM_STUB_RETURN;}
1881 goto SCM_STUB_RETURN;
1882 SCM_STUB_RETURN:
1883 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1884 }
1885 }
1886 }
1887
libvecvector_copyX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1888 static ScmObj libvecvector_copyX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1889 {
1890 ScmObj t_scm;
1891 ScmVector* t;
1892 ScmObj tstart_scm;
1893 ScmSmallInt tstart;
1894 ScmObj s_scm;
1895 ScmVector* s;
1896 ScmObj sstart_scm;
1897 ScmSmallInt sstart;
1898 ScmObj send_scm;
1899 ScmSmallInt send;
1900 ScmObj SCM_SUBRARGS[7];
1901 SCM_ENTER_SUBR("vector-copy!");
1902 if (SCM_ARGCNT >= 6
1903 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
1904 Scm_Error("too many arguments: up to 5 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
1905 for (int SCM_i=0; SCM_i<7; SCM_i++) {
1906 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1907 }
1908 t_scm = SCM_SUBRARGS[0];
1909 if (!SCM_VECTORP(t_scm)) Scm_Error("vector required, but got %S", t_scm);
1910 t = SCM_VECTOR(t_scm);
1911 tstart_scm = SCM_SUBRARGS[1];
1912 if (!SCM_INTP(tstart_scm)) Scm_Error("small integer required, but got %S", tstart_scm);
1913 tstart = SCM_INT_VALUE(tstart_scm);
1914 s_scm = SCM_SUBRARGS[2];
1915 if (!SCM_VECTORP(s_scm)) Scm_Error("vector required, but got %S", s_scm);
1916 s = SCM_VECTOR(s_scm);
1917 if (SCM_ARGCNT > 3+1) {
1918 sstart_scm = SCM_SUBRARGS[3];
1919 } else {
1920 sstart_scm = SCM_MAKE_INT(0);
1921 }
1922 if (!SCM_INTP(sstart_scm)) Scm_Error("small integer required, but got %S", sstart_scm);
1923 sstart = SCM_INT_VALUE(sstart_scm);
1924 if (SCM_ARGCNT > 4+1) {
1925 send_scm = SCM_SUBRARGS[4];
1926 } else {
1927 send_scm = SCM_MAKE_INT(-1);
1928 }
1929 if (!SCM_INTP(send_scm)) Scm_Error("small integer required, but got %S", send_scm);
1930 send = SCM_INT_VALUE(send_scm);
1931 {
1932
1933 #line 96 "libvec.scm"
1934 {long tsize=SCM_VECTOR_SIZE(t);
1935 SCM_VECTOR_CHECK_MUTABLE(t);
1936 if ((send)<(0)){{send=(SCM_VECTOR_SIZE(s));}}
1937 if (!(((0)<=(tstart))&&((tstart)<=(tsize)))){{
1938 Scm_Error("tstart out of range: %ld",tstart);}}
1939 if (!(((0)<=(sstart))&&((sstart)<=(SCM_VECTOR_SIZE(s))))){{
1940 Scm_Error("sstart out of range: %ld",sstart);}}
1941 if (!(((0)<=(send))&&((send)<=(SCM_VECTOR_SIZE(s))))){{
1942 Scm_Error("send out of range: %ld",send);}}
1943 if (!(((tstart)+((send)-(sstart)))<=(tsize))){{
1944 Scm_Error("source vector overruns the target vector: %20.0S [%ld,%ld]",s,sstart,send);}}
1945 #line 108 "libvec.scm"
1946 if (!((sstart)<=(send))){{
1947 Scm_Error("send (%ld) must be greater than or equal to sstart (%ld)",send,sstart);}}
1948 #line 111 "libvec.scm"
1949 if ((tstart)<=(sstart)){
1950 {ScmSmallInt i=sstart;ScmSmallInt j=tstart;
1951 for (; ((i)<(send))&&((j)<(tsize)); (i)++,(j)++){
1952 SCM_VECTOR_ELEMENT(t,j)=(SCM_VECTOR_ELEMENT(s,i));}}} else {
1953 {ScmSmallInt i=send;ScmSmallInt j=
1954 (tstart)+((send)-(sstart));
1955 if ((j)>=(tsize)){{
1956 i=((i)-((j)-(tsize)));
1957 j=(tsize);}}
1958 for ((i)--,(j)--;
1959 ((i)>=(sstart))&&((j)>=(tstart));
1960 (i)--,(j)--){
1961 SCM_VECTOR_ELEMENT(t,j)=(SCM_VECTOR_ELEMENT(s,i));}}}}
1962 goto SCM_STUB_RETURN;
1963 SCM_STUB_RETURN:
1964 SCM_RETURN(SCM_UNDEFINED);
1965 }
1966 }
1967
libvecvector_append(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1968 static ScmObj libvecvector_append(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1969 {
1970 ScmObj vecs_scm;
1971 ScmObj vecs;
1972 ScmObj SCM_SUBRARGS[2];
1973 SCM_ENTER_SUBR("vector-append");
1974 for (int SCM_i=0; SCM_i<2; SCM_i++) {
1975 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1976 }
1977 vecs_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
1978 vecs = (vecs_scm);
1979 {
1980 {
1981 ScmObj SCM_RESULT;
1982 ScmObj cise__1565;ScmObj cise__1564;
1983 #line 126 "libvec.scm"
1984 {long len=0;
1985 SCM_FOR_EACH(cise__1564,vecs) {{ScmObj v=SCM_CAR(cise__1564);
1986 if (!(SCM_VECTORP(v))){{
1987 Scm_Error("vector required, but got: %S",v);}}
1988 len=((len)+(SCM_VECTOR_SIZE(v)));}}
1989 {ScmObj dst=Scm_MakeVector(len,SCM_UNDEFINED);long j=0;
1990 #line 133 "libvec.scm"
1991 SCM_FOR_EACH(cise__1565,vecs) {{ScmObj v=SCM_CAR(cise__1565);
1992 {long k=SCM_VECTOR_SIZE(v);
1993 memcpy((SCM_VECTOR_ELEMENTS(dst))+(j),SCM_VECTOR_ELEMENTS(v),
1994 (k)*(sizeof(ScmWord)));
1995 j=((j)+(k));}}}
1996 {SCM_RESULT=(dst);goto SCM_STUB_RETURN;}}}
1997 goto SCM_STUB_RETURN;
1998 SCM_STUB_RETURN:
1999 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2000 }
2001 }
2002 }
2003
libvecvector_immutableP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2004 static ScmObj libvecvector_immutableP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2005 {
2006 ScmObj v_scm;
2007 ScmVector* v;
2008 ScmObj SCM_SUBRARGS[1];
2009 SCM_ENTER_SUBR("vector-immutable?");
2010 for (int SCM_i=0; SCM_i<1; SCM_i++) {
2011 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2012 }
2013 v_scm = SCM_SUBRARGS[0];
2014 if (!SCM_VECTORP(v_scm)) Scm_Error("vector required, but got %S", v_scm);
2015 v = SCM_VECTOR(v_scm);
2016 {
2017 {
2018 int SCM_RESULT;
2019 {SCM_RESULT=(SCM_VECTOR_IMMUTABLE_P(v));goto SCM_STUB_RETURN;}
2020 goto SCM_STUB_RETURN;
2021 SCM_STUB_RETURN:
2022 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
2023 }
2024 }
2025 }
2026
libvecmake_weak_vector(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2027 static ScmObj libvecmake_weak_vector(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2028 {
2029 ScmObj size_scm;
2030 ScmSmallInt size;
2031 ScmObj SCM_SUBRARGS[1];
2032 SCM_ENTER_SUBR("make-weak-vector");
2033 for (int SCM_i=0; SCM_i<1; SCM_i++) {
2034 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2035 }
2036 size_scm = SCM_SUBRARGS[0];
2037 if (!SCM_INTP(size_scm)) Scm_Error("small integer required, but got %S", size_scm);
2038 size = SCM_INT_VALUE(size_scm);
2039 {
2040 {
2041 ScmObj SCM_RESULT;
2042 {SCM_RESULT=(Scm_MakeWeakVector(size));goto SCM_STUB_RETURN;}
2043 goto SCM_STUB_RETURN;
2044 SCM_STUB_RETURN:
2045 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2046 }
2047 }
2048 }
2049
libvecweak_vector_length(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2050 static ScmObj libvecweak_vector_length(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2051 {
2052 ScmObj wv_scm;
2053 ScmWeakVector* wv;
2054 ScmObj SCM_SUBRARGS[1];
2055 SCM_ENTER_SUBR("weak-vector-length");
2056 for (int SCM_i=0; SCM_i<1; SCM_i++) {
2057 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2058 }
2059 wv_scm = SCM_SUBRARGS[0];
2060 if (!SCM_WEAK_VECTOR_P(wv_scm)) Scm_Error("weak vector required, but got %S", wv_scm);
2061 wv = SCM_WEAK_VECTOR(wv_scm);
2062 {
2063 {
2064 int SCM_RESULT;
2065
2066 #line 163 "libvec.scm"
2067 {SCM_RESULT=((wv)->size);goto SCM_STUB_RETURN;}
2068 goto SCM_STUB_RETURN;
2069 SCM_STUB_RETURN:
2070 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
2071 }
2072 }
2073 }
2074
libvecweak_vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2075 static ScmObj libvecweak_vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2076 {
2077 ScmObj wv_scm;
2078 ScmWeakVector* wv;
2079 ScmObj index_scm;
2080 ScmSmallInt index;
2081 ScmObj fallback_scm;
2082 ScmObj fallback;
2083 ScmObj SCM_SUBRARGS[4];
2084 SCM_ENTER_SUBR("weak-vector-ref");
2085 if (SCM_ARGCNT >= 4
2086 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2087 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2088 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2089 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2090 }
2091 wv_scm = SCM_SUBRARGS[0];
2092 if (!SCM_WEAK_VECTOR_P(wv_scm)) Scm_Error("weak vector required, but got %S", wv_scm);
2093 wv = SCM_WEAK_VECTOR(wv_scm);
2094 index_scm = SCM_SUBRARGS[1];
2095 if (!SCM_INTP(index_scm)) Scm_Error("small integer required, but got %S", index_scm);
2096 index = SCM_INT_VALUE(index_scm);
2097 if (SCM_ARGCNT > 2+1) {
2098 fallback_scm = SCM_SUBRARGS[2];
2099 } else {
2100 fallback_scm = SCM_UNBOUND;
2101 }
2102 fallback = (fallback_scm);
2103 {
2104 {
2105 ScmObj SCM_RESULT;
2106 {SCM_RESULT=(Scm_WeakVectorRef(wv,index,fallback));goto SCM_STUB_RETURN;}
2107 goto SCM_STUB_RETURN;
2108 SCM_STUB_RETURN:
2109 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2110 }
2111 }
2112 }
2113
libvecweak_vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2114 static ScmObj libvecweak_vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2115 {
2116 ScmObj wv_scm;
2117 ScmWeakVector* wv;
2118 ScmObj index_scm;
2119 ScmSmallInt index;
2120 ScmObj val_scm;
2121 ScmObj val;
2122 ScmObj SCM_SUBRARGS[3];
2123 SCM_ENTER_SUBR("weak-vector-set!");
2124 for (int SCM_i=0; SCM_i<3; SCM_i++) {
2125 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2126 }
2127 wv_scm = SCM_SUBRARGS[0];
2128 if (!SCM_WEAK_VECTOR_P(wv_scm)) Scm_Error("weak vector required, but got %S", wv_scm);
2129 wv = SCM_WEAK_VECTOR(wv_scm);
2130 index_scm = SCM_SUBRARGS[1];
2131 if (!SCM_INTP(index_scm)) Scm_Error("small integer required, but got %S", index_scm);
2132 index = SCM_INT_VALUE(index_scm);
2133 val_scm = SCM_SUBRARGS[2];
2134 val = (val_scm);
2135 {
2136 {
2137 ScmObj SCM_RESULT;
2138 {SCM_RESULT=(Scm_WeakVectorSet(wv,index,val));goto SCM_STUB_RETURN;}
2139 goto SCM_STUB_RETURN;
2140 SCM_STUB_RETURN:
2141 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2142 }
2143 }
2144 }
2145
libvecs8vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2146 static ScmObj libvecs8vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2147 {
2148 ScmObj v_scm;
2149 ScmUVector* v;
2150 ScmObj i_scm;
2151 ScmSmallInt i;
2152 ScmObj val_scm;
2153 ScmObj val;
2154 ScmObj clamp_scm;
2155 ScmObj clamp;
2156 ScmObj SCM_SUBRARGS[5];
2157 SCM_ENTER_SUBR("s8vector-set!");
2158 if (SCM_ARGCNT >= 5
2159 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2160 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2161 for (int SCM_i=0; SCM_i<5; SCM_i++) {
2162 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2163 }
2164 v_scm = SCM_SUBRARGS[0];
2165 if (!SCM_S8VECTORP(v_scm)) Scm_Error("s8vector required, but got %S", v_scm);
2166 v = SCM_S8VECTOR(v_scm);
2167 i_scm = SCM_SUBRARGS[1];
2168 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2169 i = SCM_INT_VALUE(i_scm);
2170 val_scm = SCM_SUBRARGS[2];
2171 val = (val_scm);
2172 if (SCM_ARGCNT > 3+1) {
2173 clamp_scm = SCM_SUBRARGS[3];
2174 } else {
2175 clamp_scm = SCM_UNBOUND;
2176 }
2177 clamp = (clamp_scm);
2178 {
2179 {
2180 ScmObj SCM_RESULT;
2181
2182 #line 196 "libvec.scm"
2183 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_S8,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
2184 goto SCM_STUB_RETURN;
2185 SCM_STUB_RETURN:
2186 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2187 }
2188 }
2189 }
2190
libvecs8vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2191 static ScmObj libvecs8vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2192 {
2193 ScmObj v_scm;
2194 ScmUVector* v;
2195 ScmObj i_scm;
2196 ScmSmallInt i;
2197 ScmObj fallback_scm;
2198 ScmObj fallback;
2199 ScmObj SCM_SUBRARGS[4];
2200 SCM_ENTER_SUBR("s8vector-ref");
2201 if (SCM_ARGCNT >= 4
2202 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2203 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2204 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2205 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2206 }
2207 v_scm = SCM_SUBRARGS[0];
2208 if (!SCM_S8VECTORP(v_scm)) Scm_Error("s8vector required, but got %S", v_scm);
2209 v = SCM_S8VECTOR(v_scm);
2210 i_scm = SCM_SUBRARGS[1];
2211 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2212 i = SCM_INT_VALUE(i_scm);
2213 if (SCM_ARGCNT > 2+1) {
2214 fallback_scm = SCM_SUBRARGS[2];
2215 } else {
2216 fallback_scm = SCM_UNBOUND;
2217 }
2218 fallback = (fallback_scm);
2219 {
2220 {
2221 ScmObj SCM_RESULT;
2222
2223 #line 200 "libvec.scm"
2224 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_S8,i,fallback));goto SCM_STUB_RETURN;}
2225 goto SCM_STUB_RETURN;
2226 SCM_STUB_RETURN:
2227 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2228 }
2229 }
2230 }
2231
libvecu8vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2232 static ScmObj libvecu8vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2233 {
2234 ScmObj v_scm;
2235 ScmUVector* v;
2236 ScmObj i_scm;
2237 ScmSmallInt i;
2238 ScmObj val_scm;
2239 ScmObj val;
2240 ScmObj clamp_scm;
2241 ScmObj clamp;
2242 ScmObj SCM_SUBRARGS[5];
2243 SCM_ENTER_SUBR("u8vector-set!");
2244 if (SCM_ARGCNT >= 5
2245 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2246 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2247 for (int SCM_i=0; SCM_i<5; SCM_i++) {
2248 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2249 }
2250 v_scm = SCM_SUBRARGS[0];
2251 if (!SCM_U8VECTORP(v_scm)) Scm_Error("u8vector required, but got %S", v_scm);
2252 v = SCM_U8VECTOR(v_scm);
2253 i_scm = SCM_SUBRARGS[1];
2254 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2255 i = SCM_INT_VALUE(i_scm);
2256 val_scm = SCM_SUBRARGS[2];
2257 val = (val_scm);
2258 if (SCM_ARGCNT > 3+1) {
2259 clamp_scm = SCM_SUBRARGS[3];
2260 } else {
2261 clamp_scm = SCM_UNBOUND;
2262 }
2263 clamp = (clamp_scm);
2264 {
2265 {
2266 ScmObj SCM_RESULT;
2267
2268 #line 203 "libvec.scm"
2269 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_U8,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
2270 goto SCM_STUB_RETURN;
2271 SCM_STUB_RETURN:
2272 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2273 }
2274 }
2275 }
2276
libvecu8vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2277 static ScmObj libvecu8vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2278 {
2279 ScmObj v_scm;
2280 ScmUVector* v;
2281 ScmObj i_scm;
2282 ScmSmallInt i;
2283 ScmObj fallback_scm;
2284 ScmObj fallback;
2285 ScmObj SCM_SUBRARGS[4];
2286 SCM_ENTER_SUBR("u8vector-ref");
2287 if (SCM_ARGCNT >= 4
2288 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2289 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2290 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2291 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2292 }
2293 v_scm = SCM_SUBRARGS[0];
2294 if (!SCM_U8VECTORP(v_scm)) Scm_Error("u8vector required, but got %S", v_scm);
2295 v = SCM_U8VECTOR(v_scm);
2296 i_scm = SCM_SUBRARGS[1];
2297 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2298 i = SCM_INT_VALUE(i_scm);
2299 if (SCM_ARGCNT > 2+1) {
2300 fallback_scm = SCM_SUBRARGS[2];
2301 } else {
2302 fallback_scm = SCM_UNBOUND;
2303 }
2304 fallback = (fallback_scm);
2305 {
2306 {
2307 ScmObj SCM_RESULT;
2308
2309 #line 207 "libvec.scm"
2310 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_U8,i,fallback));goto SCM_STUB_RETURN;}
2311 goto SCM_STUB_RETURN;
2312 SCM_STUB_RETURN:
2313 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2314 }
2315 }
2316 }
2317
libvecs16vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2318 static ScmObj libvecs16vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2319 {
2320 ScmObj v_scm;
2321 ScmUVector* v;
2322 ScmObj i_scm;
2323 ScmSmallInt i;
2324 ScmObj val_scm;
2325 ScmObj val;
2326 ScmObj clamp_scm;
2327 ScmObj clamp;
2328 ScmObj SCM_SUBRARGS[5];
2329 SCM_ENTER_SUBR("s16vector-set!");
2330 if (SCM_ARGCNT >= 5
2331 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2332 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2333 for (int SCM_i=0; SCM_i<5; SCM_i++) {
2334 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2335 }
2336 v_scm = SCM_SUBRARGS[0];
2337 if (!SCM_S16VECTORP(v_scm)) Scm_Error("s16vector required, but got %S", v_scm);
2338 v = SCM_S16VECTOR(v_scm);
2339 i_scm = SCM_SUBRARGS[1];
2340 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2341 i = SCM_INT_VALUE(i_scm);
2342 val_scm = SCM_SUBRARGS[2];
2343 val = (val_scm);
2344 if (SCM_ARGCNT > 3+1) {
2345 clamp_scm = SCM_SUBRARGS[3];
2346 } else {
2347 clamp_scm = SCM_UNBOUND;
2348 }
2349 clamp = (clamp_scm);
2350 {
2351 {
2352 ScmObj SCM_RESULT;
2353
2354 #line 210 "libvec.scm"
2355 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_S16,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
2356 goto SCM_STUB_RETURN;
2357 SCM_STUB_RETURN:
2358 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2359 }
2360 }
2361 }
2362
libvecs16vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2363 static ScmObj libvecs16vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2364 {
2365 ScmObj v_scm;
2366 ScmUVector* v;
2367 ScmObj i_scm;
2368 ScmSmallInt i;
2369 ScmObj fallback_scm;
2370 ScmObj fallback;
2371 ScmObj SCM_SUBRARGS[4];
2372 SCM_ENTER_SUBR("s16vector-ref");
2373 if (SCM_ARGCNT >= 4
2374 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2375 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2376 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2377 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2378 }
2379 v_scm = SCM_SUBRARGS[0];
2380 if (!SCM_S16VECTORP(v_scm)) Scm_Error("s16vector required, but got %S", v_scm);
2381 v = SCM_S16VECTOR(v_scm);
2382 i_scm = SCM_SUBRARGS[1];
2383 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2384 i = SCM_INT_VALUE(i_scm);
2385 if (SCM_ARGCNT > 2+1) {
2386 fallback_scm = SCM_SUBRARGS[2];
2387 } else {
2388 fallback_scm = SCM_UNBOUND;
2389 }
2390 fallback = (fallback_scm);
2391 {
2392 {
2393 ScmObj SCM_RESULT;
2394
2395 #line 214 "libvec.scm"
2396 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_S16,i,fallback));goto SCM_STUB_RETURN;}
2397 goto SCM_STUB_RETURN;
2398 SCM_STUB_RETURN:
2399 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2400 }
2401 }
2402 }
2403
libvecu16vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2404 static ScmObj libvecu16vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2405 {
2406 ScmObj v_scm;
2407 ScmUVector* v;
2408 ScmObj i_scm;
2409 ScmSmallInt i;
2410 ScmObj val_scm;
2411 ScmObj val;
2412 ScmObj clamp_scm;
2413 ScmObj clamp;
2414 ScmObj SCM_SUBRARGS[5];
2415 SCM_ENTER_SUBR("u16vector-set!");
2416 if (SCM_ARGCNT >= 5
2417 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2418 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2419 for (int SCM_i=0; SCM_i<5; SCM_i++) {
2420 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2421 }
2422 v_scm = SCM_SUBRARGS[0];
2423 if (!SCM_U16VECTORP(v_scm)) Scm_Error("u16vector required, but got %S", v_scm);
2424 v = SCM_U16VECTOR(v_scm);
2425 i_scm = SCM_SUBRARGS[1];
2426 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2427 i = SCM_INT_VALUE(i_scm);
2428 val_scm = SCM_SUBRARGS[2];
2429 val = (val_scm);
2430 if (SCM_ARGCNT > 3+1) {
2431 clamp_scm = SCM_SUBRARGS[3];
2432 } else {
2433 clamp_scm = SCM_UNBOUND;
2434 }
2435 clamp = (clamp_scm);
2436 {
2437 {
2438 ScmObj SCM_RESULT;
2439
2440 #line 217 "libvec.scm"
2441 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_U16,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
2442 goto SCM_STUB_RETURN;
2443 SCM_STUB_RETURN:
2444 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2445 }
2446 }
2447 }
2448
libvecu16vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2449 static ScmObj libvecu16vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2450 {
2451 ScmObj v_scm;
2452 ScmUVector* v;
2453 ScmObj i_scm;
2454 ScmSmallInt i;
2455 ScmObj fallback_scm;
2456 ScmObj fallback;
2457 ScmObj SCM_SUBRARGS[4];
2458 SCM_ENTER_SUBR("u16vector-ref");
2459 if (SCM_ARGCNT >= 4
2460 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2461 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2462 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2463 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2464 }
2465 v_scm = SCM_SUBRARGS[0];
2466 if (!SCM_U16VECTORP(v_scm)) Scm_Error("u16vector required, but got %S", v_scm);
2467 v = SCM_U16VECTOR(v_scm);
2468 i_scm = SCM_SUBRARGS[1];
2469 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2470 i = SCM_INT_VALUE(i_scm);
2471 if (SCM_ARGCNT > 2+1) {
2472 fallback_scm = SCM_SUBRARGS[2];
2473 } else {
2474 fallback_scm = SCM_UNBOUND;
2475 }
2476 fallback = (fallback_scm);
2477 {
2478 {
2479 ScmObj SCM_RESULT;
2480
2481 #line 221 "libvec.scm"
2482 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_U16,i,fallback));goto SCM_STUB_RETURN;}
2483 goto SCM_STUB_RETURN;
2484 SCM_STUB_RETURN:
2485 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2486 }
2487 }
2488 }
2489
libvecs32vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2490 static ScmObj libvecs32vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2491 {
2492 ScmObj v_scm;
2493 ScmUVector* v;
2494 ScmObj i_scm;
2495 ScmSmallInt i;
2496 ScmObj val_scm;
2497 ScmObj val;
2498 ScmObj clamp_scm;
2499 ScmObj clamp;
2500 ScmObj SCM_SUBRARGS[5];
2501 SCM_ENTER_SUBR("s32vector-set!");
2502 if (SCM_ARGCNT >= 5
2503 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2504 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2505 for (int SCM_i=0; SCM_i<5; SCM_i++) {
2506 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2507 }
2508 v_scm = SCM_SUBRARGS[0];
2509 if (!SCM_S32VECTORP(v_scm)) Scm_Error("s32vector required, but got %S", v_scm);
2510 v = SCM_S32VECTOR(v_scm);
2511 i_scm = SCM_SUBRARGS[1];
2512 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2513 i = SCM_INT_VALUE(i_scm);
2514 val_scm = SCM_SUBRARGS[2];
2515 val = (val_scm);
2516 if (SCM_ARGCNT > 3+1) {
2517 clamp_scm = SCM_SUBRARGS[3];
2518 } else {
2519 clamp_scm = SCM_UNBOUND;
2520 }
2521 clamp = (clamp_scm);
2522 {
2523 {
2524 ScmObj SCM_RESULT;
2525
2526 #line 224 "libvec.scm"
2527 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_S32,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
2528 goto SCM_STUB_RETURN;
2529 SCM_STUB_RETURN:
2530 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2531 }
2532 }
2533 }
2534
libvecs32vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2535 static ScmObj libvecs32vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2536 {
2537 ScmObj v_scm;
2538 ScmUVector* v;
2539 ScmObj i_scm;
2540 ScmSmallInt i;
2541 ScmObj fallback_scm;
2542 ScmObj fallback;
2543 ScmObj SCM_SUBRARGS[4];
2544 SCM_ENTER_SUBR("s32vector-ref");
2545 if (SCM_ARGCNT >= 4
2546 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2547 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2548 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2549 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2550 }
2551 v_scm = SCM_SUBRARGS[0];
2552 if (!SCM_S32VECTORP(v_scm)) Scm_Error("s32vector required, but got %S", v_scm);
2553 v = SCM_S32VECTOR(v_scm);
2554 i_scm = SCM_SUBRARGS[1];
2555 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2556 i = SCM_INT_VALUE(i_scm);
2557 if (SCM_ARGCNT > 2+1) {
2558 fallback_scm = SCM_SUBRARGS[2];
2559 } else {
2560 fallback_scm = SCM_UNBOUND;
2561 }
2562 fallback = (fallback_scm);
2563 {
2564 {
2565 ScmObj SCM_RESULT;
2566
2567 #line 228 "libvec.scm"
2568 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_S32,i,fallback));goto SCM_STUB_RETURN;}
2569 goto SCM_STUB_RETURN;
2570 SCM_STUB_RETURN:
2571 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2572 }
2573 }
2574 }
2575
libvecu32vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2576 static ScmObj libvecu32vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2577 {
2578 ScmObj v_scm;
2579 ScmUVector* v;
2580 ScmObj i_scm;
2581 ScmSmallInt i;
2582 ScmObj val_scm;
2583 ScmObj val;
2584 ScmObj clamp_scm;
2585 ScmObj clamp;
2586 ScmObj SCM_SUBRARGS[5];
2587 SCM_ENTER_SUBR("u32vector-set!");
2588 if (SCM_ARGCNT >= 5
2589 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2590 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2591 for (int SCM_i=0; SCM_i<5; SCM_i++) {
2592 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2593 }
2594 v_scm = SCM_SUBRARGS[0];
2595 if (!SCM_U32VECTORP(v_scm)) Scm_Error("u32vector required, but got %S", v_scm);
2596 v = SCM_U32VECTOR(v_scm);
2597 i_scm = SCM_SUBRARGS[1];
2598 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2599 i = SCM_INT_VALUE(i_scm);
2600 val_scm = SCM_SUBRARGS[2];
2601 val = (val_scm);
2602 if (SCM_ARGCNT > 3+1) {
2603 clamp_scm = SCM_SUBRARGS[3];
2604 } else {
2605 clamp_scm = SCM_UNBOUND;
2606 }
2607 clamp = (clamp_scm);
2608 {
2609 {
2610 ScmObj SCM_RESULT;
2611
2612 #line 231 "libvec.scm"
2613 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_U32,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
2614 goto SCM_STUB_RETURN;
2615 SCM_STUB_RETURN:
2616 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2617 }
2618 }
2619 }
2620
libvecu32vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2621 static ScmObj libvecu32vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2622 {
2623 ScmObj v_scm;
2624 ScmUVector* v;
2625 ScmObj i_scm;
2626 ScmSmallInt i;
2627 ScmObj fallback_scm;
2628 ScmObj fallback;
2629 ScmObj SCM_SUBRARGS[4];
2630 SCM_ENTER_SUBR("u32vector-ref");
2631 if (SCM_ARGCNT >= 4
2632 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2633 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2634 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2635 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2636 }
2637 v_scm = SCM_SUBRARGS[0];
2638 if (!SCM_U32VECTORP(v_scm)) Scm_Error("u32vector required, but got %S", v_scm);
2639 v = SCM_U32VECTOR(v_scm);
2640 i_scm = SCM_SUBRARGS[1];
2641 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2642 i = SCM_INT_VALUE(i_scm);
2643 if (SCM_ARGCNT > 2+1) {
2644 fallback_scm = SCM_SUBRARGS[2];
2645 } else {
2646 fallback_scm = SCM_UNBOUND;
2647 }
2648 fallback = (fallback_scm);
2649 {
2650 {
2651 ScmObj SCM_RESULT;
2652
2653 #line 235 "libvec.scm"
2654 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_U32,i,fallback));goto SCM_STUB_RETURN;}
2655 goto SCM_STUB_RETURN;
2656 SCM_STUB_RETURN:
2657 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2658 }
2659 }
2660 }
2661
libvecs64vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2662 static ScmObj libvecs64vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2663 {
2664 ScmObj v_scm;
2665 ScmUVector* v;
2666 ScmObj i_scm;
2667 ScmSmallInt i;
2668 ScmObj val_scm;
2669 ScmObj val;
2670 ScmObj clamp_scm;
2671 ScmObj clamp;
2672 ScmObj SCM_SUBRARGS[5];
2673 SCM_ENTER_SUBR("s64vector-set!");
2674 if (SCM_ARGCNT >= 5
2675 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2676 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2677 for (int SCM_i=0; SCM_i<5; SCM_i++) {
2678 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2679 }
2680 v_scm = SCM_SUBRARGS[0];
2681 if (!SCM_S64VECTORP(v_scm)) Scm_Error("s64vector required, but got %S", v_scm);
2682 v = SCM_S64VECTOR(v_scm);
2683 i_scm = SCM_SUBRARGS[1];
2684 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2685 i = SCM_INT_VALUE(i_scm);
2686 val_scm = SCM_SUBRARGS[2];
2687 val = (val_scm);
2688 if (SCM_ARGCNT > 3+1) {
2689 clamp_scm = SCM_SUBRARGS[3];
2690 } else {
2691 clamp_scm = SCM_UNBOUND;
2692 }
2693 clamp = (clamp_scm);
2694 {
2695 {
2696 ScmObj SCM_RESULT;
2697
2698 #line 238 "libvec.scm"
2699 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_S64,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
2700 goto SCM_STUB_RETURN;
2701 SCM_STUB_RETURN:
2702 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2703 }
2704 }
2705 }
2706
libvecs64vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2707 static ScmObj libvecs64vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2708 {
2709 ScmObj v_scm;
2710 ScmUVector* v;
2711 ScmObj i_scm;
2712 ScmSmallInt i;
2713 ScmObj fallback_scm;
2714 ScmObj fallback;
2715 ScmObj SCM_SUBRARGS[4];
2716 SCM_ENTER_SUBR("s64vector-ref");
2717 if (SCM_ARGCNT >= 4
2718 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2719 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2720 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2721 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2722 }
2723 v_scm = SCM_SUBRARGS[0];
2724 if (!SCM_S64VECTORP(v_scm)) Scm_Error("s64vector required, but got %S", v_scm);
2725 v = SCM_S64VECTOR(v_scm);
2726 i_scm = SCM_SUBRARGS[1];
2727 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2728 i = SCM_INT_VALUE(i_scm);
2729 if (SCM_ARGCNT > 2+1) {
2730 fallback_scm = SCM_SUBRARGS[2];
2731 } else {
2732 fallback_scm = SCM_UNBOUND;
2733 }
2734 fallback = (fallback_scm);
2735 {
2736 {
2737 ScmObj SCM_RESULT;
2738
2739 #line 242 "libvec.scm"
2740 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_S64,i,fallback));goto SCM_STUB_RETURN;}
2741 goto SCM_STUB_RETURN;
2742 SCM_STUB_RETURN:
2743 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2744 }
2745 }
2746 }
2747
libvecu64vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2748 static ScmObj libvecu64vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2749 {
2750 ScmObj v_scm;
2751 ScmUVector* v;
2752 ScmObj i_scm;
2753 ScmSmallInt i;
2754 ScmObj val_scm;
2755 ScmObj val;
2756 ScmObj clamp_scm;
2757 ScmObj clamp;
2758 ScmObj SCM_SUBRARGS[5];
2759 SCM_ENTER_SUBR("u64vector-set!");
2760 if (SCM_ARGCNT >= 5
2761 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2762 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2763 for (int SCM_i=0; SCM_i<5; SCM_i++) {
2764 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2765 }
2766 v_scm = SCM_SUBRARGS[0];
2767 if (!SCM_U64VECTORP(v_scm)) Scm_Error("u64vector required, but got %S", v_scm);
2768 v = SCM_U64VECTOR(v_scm);
2769 i_scm = SCM_SUBRARGS[1];
2770 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2771 i = SCM_INT_VALUE(i_scm);
2772 val_scm = SCM_SUBRARGS[2];
2773 val = (val_scm);
2774 if (SCM_ARGCNT > 3+1) {
2775 clamp_scm = SCM_SUBRARGS[3];
2776 } else {
2777 clamp_scm = SCM_UNBOUND;
2778 }
2779 clamp = (clamp_scm);
2780 {
2781 {
2782 ScmObj SCM_RESULT;
2783
2784 #line 245 "libvec.scm"
2785 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_U64,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
2786 goto SCM_STUB_RETURN;
2787 SCM_STUB_RETURN:
2788 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2789 }
2790 }
2791 }
2792
libvecu64vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2793 static ScmObj libvecu64vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2794 {
2795 ScmObj v_scm;
2796 ScmUVector* v;
2797 ScmObj i_scm;
2798 ScmSmallInt i;
2799 ScmObj fallback_scm;
2800 ScmObj fallback;
2801 ScmObj SCM_SUBRARGS[4];
2802 SCM_ENTER_SUBR("u64vector-ref");
2803 if (SCM_ARGCNT >= 4
2804 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2805 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2806 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2807 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2808 }
2809 v_scm = SCM_SUBRARGS[0];
2810 if (!SCM_U64VECTORP(v_scm)) Scm_Error("u64vector required, but got %S", v_scm);
2811 v = SCM_U64VECTOR(v_scm);
2812 i_scm = SCM_SUBRARGS[1];
2813 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2814 i = SCM_INT_VALUE(i_scm);
2815 if (SCM_ARGCNT > 2+1) {
2816 fallback_scm = SCM_SUBRARGS[2];
2817 } else {
2818 fallback_scm = SCM_UNBOUND;
2819 }
2820 fallback = (fallback_scm);
2821 {
2822 {
2823 ScmObj SCM_RESULT;
2824
2825 #line 249 "libvec.scm"
2826 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_U64,i,fallback));goto SCM_STUB_RETURN;}
2827 goto SCM_STUB_RETURN;
2828 SCM_STUB_RETURN:
2829 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2830 }
2831 }
2832 }
2833
libvecf16vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2834 static ScmObj libvecf16vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2835 {
2836 ScmObj v_scm;
2837 ScmUVector* v;
2838 ScmObj i_scm;
2839 ScmSmallInt i;
2840 ScmObj val_scm;
2841 ScmObj val;
2842 ScmObj clamp_scm;
2843 ScmObj clamp;
2844 ScmObj SCM_SUBRARGS[5];
2845 SCM_ENTER_SUBR("f16vector-set!");
2846 if (SCM_ARGCNT >= 5
2847 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2848 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2849 for (int SCM_i=0; SCM_i<5; SCM_i++) {
2850 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2851 }
2852 v_scm = SCM_SUBRARGS[0];
2853 if (!SCM_F16VECTORP(v_scm)) Scm_Error("f16vector required, but got %S", v_scm);
2854 v = SCM_F16VECTOR(v_scm);
2855 i_scm = SCM_SUBRARGS[1];
2856 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2857 i = SCM_INT_VALUE(i_scm);
2858 val_scm = SCM_SUBRARGS[2];
2859 val = (val_scm);
2860 if (SCM_ARGCNT > 3+1) {
2861 clamp_scm = SCM_SUBRARGS[3];
2862 } else {
2863 clamp_scm = SCM_UNBOUND;
2864 }
2865 clamp = (clamp_scm);
2866 {
2867 {
2868 ScmObj SCM_RESULT;
2869
2870 #line 252 "libvec.scm"
2871 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_F16,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
2872 goto SCM_STUB_RETURN;
2873 SCM_STUB_RETURN:
2874 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2875 }
2876 }
2877 }
2878
libvecf16vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2879 static ScmObj libvecf16vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2880 {
2881 ScmObj v_scm;
2882 ScmUVector* v;
2883 ScmObj i_scm;
2884 ScmSmallInt i;
2885 ScmObj fallback_scm;
2886 ScmObj fallback;
2887 ScmObj SCM_SUBRARGS[4];
2888 SCM_ENTER_SUBR("f16vector-ref");
2889 if (SCM_ARGCNT >= 4
2890 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2891 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2892 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2893 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2894 }
2895 v_scm = SCM_SUBRARGS[0];
2896 if (!SCM_F16VECTORP(v_scm)) Scm_Error("f16vector required, but got %S", v_scm);
2897 v = SCM_F16VECTOR(v_scm);
2898 i_scm = SCM_SUBRARGS[1];
2899 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2900 i = SCM_INT_VALUE(i_scm);
2901 if (SCM_ARGCNT > 2+1) {
2902 fallback_scm = SCM_SUBRARGS[2];
2903 } else {
2904 fallback_scm = SCM_UNBOUND;
2905 }
2906 fallback = (fallback_scm);
2907 {
2908 {
2909 ScmObj SCM_RESULT;
2910
2911 #line 256 "libvec.scm"
2912 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_F16,i,fallback));goto SCM_STUB_RETURN;}
2913 goto SCM_STUB_RETURN;
2914 SCM_STUB_RETURN:
2915 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2916 }
2917 }
2918 }
2919
libvecf32vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2920 static ScmObj libvecf32vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2921 {
2922 ScmObj v_scm;
2923 ScmUVector* v;
2924 ScmObj i_scm;
2925 ScmSmallInt i;
2926 ScmObj val_scm;
2927 ScmObj val;
2928 ScmObj clamp_scm;
2929 ScmObj clamp;
2930 ScmObj SCM_SUBRARGS[5];
2931 SCM_ENTER_SUBR("f32vector-set!");
2932 if (SCM_ARGCNT >= 5
2933 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2934 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2935 for (int SCM_i=0; SCM_i<5; SCM_i++) {
2936 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2937 }
2938 v_scm = SCM_SUBRARGS[0];
2939 if (!SCM_F32VECTORP(v_scm)) Scm_Error("f32vector required, but got %S", v_scm);
2940 v = SCM_F32VECTOR(v_scm);
2941 i_scm = SCM_SUBRARGS[1];
2942 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2943 i = SCM_INT_VALUE(i_scm);
2944 val_scm = SCM_SUBRARGS[2];
2945 val = (val_scm);
2946 if (SCM_ARGCNT > 3+1) {
2947 clamp_scm = SCM_SUBRARGS[3];
2948 } else {
2949 clamp_scm = SCM_UNBOUND;
2950 }
2951 clamp = (clamp_scm);
2952 {
2953 {
2954 ScmObj SCM_RESULT;
2955
2956 #line 259 "libvec.scm"
2957 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_F32,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
2958 goto SCM_STUB_RETURN;
2959 SCM_STUB_RETURN:
2960 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2961 }
2962 }
2963 }
2964
libvecf32vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2965 static ScmObj libvecf32vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2966 {
2967 ScmObj v_scm;
2968 ScmUVector* v;
2969 ScmObj i_scm;
2970 ScmSmallInt i;
2971 ScmObj fallback_scm;
2972 ScmObj fallback;
2973 ScmObj SCM_SUBRARGS[4];
2974 SCM_ENTER_SUBR("f32vector-ref");
2975 if (SCM_ARGCNT >= 4
2976 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2977 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2978 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2979 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2980 }
2981 v_scm = SCM_SUBRARGS[0];
2982 if (!SCM_F32VECTORP(v_scm)) Scm_Error("f32vector required, but got %S", v_scm);
2983 v = SCM_F32VECTOR(v_scm);
2984 i_scm = SCM_SUBRARGS[1];
2985 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
2986 i = SCM_INT_VALUE(i_scm);
2987 if (SCM_ARGCNT > 2+1) {
2988 fallback_scm = SCM_SUBRARGS[2];
2989 } else {
2990 fallback_scm = SCM_UNBOUND;
2991 }
2992 fallback = (fallback_scm);
2993 {
2994 {
2995 ScmObj SCM_RESULT;
2996
2997 #line 263 "libvec.scm"
2998 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_F32,i,fallback));goto SCM_STUB_RETURN;}
2999 goto SCM_STUB_RETURN;
3000 SCM_STUB_RETURN:
3001 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3002 }
3003 }
3004 }
3005
libvecf64vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3006 static ScmObj libvecf64vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3007 {
3008 ScmObj v_scm;
3009 ScmUVector* v;
3010 ScmObj i_scm;
3011 ScmSmallInt i;
3012 ScmObj val_scm;
3013 ScmObj val;
3014 ScmObj clamp_scm;
3015 ScmObj clamp;
3016 ScmObj SCM_SUBRARGS[5];
3017 SCM_ENTER_SUBR("f64vector-set!");
3018 if (SCM_ARGCNT >= 5
3019 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3020 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3021 for (int SCM_i=0; SCM_i<5; SCM_i++) {
3022 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3023 }
3024 v_scm = SCM_SUBRARGS[0];
3025 if (!SCM_F64VECTORP(v_scm)) Scm_Error("f64vector required, but got %S", v_scm);
3026 v = SCM_F64VECTOR(v_scm);
3027 i_scm = SCM_SUBRARGS[1];
3028 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
3029 i = SCM_INT_VALUE(i_scm);
3030 val_scm = SCM_SUBRARGS[2];
3031 val = (val_scm);
3032 if (SCM_ARGCNT > 3+1) {
3033 clamp_scm = SCM_SUBRARGS[3];
3034 } else {
3035 clamp_scm = SCM_UNBOUND;
3036 }
3037 clamp = (clamp_scm);
3038 {
3039 {
3040 ScmObj SCM_RESULT;
3041
3042 #line 266 "libvec.scm"
3043 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_F64,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
3044 goto SCM_STUB_RETURN;
3045 SCM_STUB_RETURN:
3046 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3047 }
3048 }
3049 }
3050
libvecf64vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3051 static ScmObj libvecf64vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3052 {
3053 ScmObj v_scm;
3054 ScmUVector* v;
3055 ScmObj i_scm;
3056 ScmSmallInt i;
3057 ScmObj fallback_scm;
3058 ScmObj fallback;
3059 ScmObj SCM_SUBRARGS[4];
3060 SCM_ENTER_SUBR("f64vector-ref");
3061 if (SCM_ARGCNT >= 4
3062 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3063 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3064 for (int SCM_i=0; SCM_i<4; SCM_i++) {
3065 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3066 }
3067 v_scm = SCM_SUBRARGS[0];
3068 if (!SCM_F64VECTORP(v_scm)) Scm_Error("f64vector required, but got %S", v_scm);
3069 v = SCM_F64VECTOR(v_scm);
3070 i_scm = SCM_SUBRARGS[1];
3071 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
3072 i = SCM_INT_VALUE(i_scm);
3073 if (SCM_ARGCNT > 2+1) {
3074 fallback_scm = SCM_SUBRARGS[2];
3075 } else {
3076 fallback_scm = SCM_UNBOUND;
3077 }
3078 fallback = (fallback_scm);
3079 {
3080 {
3081 ScmObj SCM_RESULT;
3082
3083 #line 270 "libvec.scm"
3084 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_F64,i,fallback));goto SCM_STUB_RETURN;}
3085 goto SCM_STUB_RETURN;
3086 SCM_STUB_RETURN:
3087 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3088 }
3089 }
3090 }
3091
libvecc32vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3092 static ScmObj libvecc32vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3093 {
3094 ScmObj v_scm;
3095 ScmUVector* v;
3096 ScmObj i_scm;
3097 ScmSmallInt i;
3098 ScmObj val_scm;
3099 ScmObj val;
3100 ScmObj clamp_scm;
3101 ScmObj clamp;
3102 ScmObj SCM_SUBRARGS[5];
3103 SCM_ENTER_SUBR("c32vector-set!");
3104 if (SCM_ARGCNT >= 5
3105 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3106 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3107 for (int SCM_i=0; SCM_i<5; SCM_i++) {
3108 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3109 }
3110 v_scm = SCM_SUBRARGS[0];
3111 if (!SCM_C32VECTORP(v_scm)) Scm_Error("c32vector required, but got %S", v_scm);
3112 v = SCM_C32VECTOR(v_scm);
3113 i_scm = SCM_SUBRARGS[1];
3114 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
3115 i = SCM_INT_VALUE(i_scm);
3116 val_scm = SCM_SUBRARGS[2];
3117 val = (val_scm);
3118 if (SCM_ARGCNT > 3+1) {
3119 clamp_scm = SCM_SUBRARGS[3];
3120 } else {
3121 clamp_scm = SCM_UNBOUND;
3122 }
3123 clamp = (clamp_scm);
3124 {
3125 {
3126 ScmObj SCM_RESULT;
3127
3128 #line 273 "libvec.scm"
3129 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_C32,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
3130 goto SCM_STUB_RETURN;
3131 SCM_STUB_RETURN:
3132 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3133 }
3134 }
3135 }
3136
libvecc32vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3137 static ScmObj libvecc32vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3138 {
3139 ScmObj v_scm;
3140 ScmUVector* v;
3141 ScmObj i_scm;
3142 ScmSmallInt i;
3143 ScmObj fallback_scm;
3144 ScmObj fallback;
3145 ScmObj SCM_SUBRARGS[4];
3146 SCM_ENTER_SUBR("c32vector-ref");
3147 if (SCM_ARGCNT >= 4
3148 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3149 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3150 for (int SCM_i=0; SCM_i<4; SCM_i++) {
3151 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3152 }
3153 v_scm = SCM_SUBRARGS[0];
3154 if (!SCM_C32VECTORP(v_scm)) Scm_Error("c32vector required, but got %S", v_scm);
3155 v = SCM_C32VECTOR(v_scm);
3156 i_scm = SCM_SUBRARGS[1];
3157 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
3158 i = SCM_INT_VALUE(i_scm);
3159 if (SCM_ARGCNT > 2+1) {
3160 fallback_scm = SCM_SUBRARGS[2];
3161 } else {
3162 fallback_scm = SCM_UNBOUND;
3163 }
3164 fallback = (fallback_scm);
3165 {
3166 {
3167 ScmObj SCM_RESULT;
3168
3169 #line 277 "libvec.scm"
3170 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_C32,i,fallback));goto SCM_STUB_RETURN;}
3171 goto SCM_STUB_RETURN;
3172 SCM_STUB_RETURN:
3173 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3174 }
3175 }
3176 }
3177
libvecc64vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3178 static ScmObj libvecc64vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3179 {
3180 ScmObj v_scm;
3181 ScmUVector* v;
3182 ScmObj i_scm;
3183 ScmSmallInt i;
3184 ScmObj val_scm;
3185 ScmObj val;
3186 ScmObj clamp_scm;
3187 ScmObj clamp;
3188 ScmObj SCM_SUBRARGS[5];
3189 SCM_ENTER_SUBR("c64vector-set!");
3190 if (SCM_ARGCNT >= 5
3191 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3192 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3193 for (int SCM_i=0; SCM_i<5; SCM_i++) {
3194 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3195 }
3196 v_scm = SCM_SUBRARGS[0];
3197 if (!SCM_C64VECTORP(v_scm)) Scm_Error("c64vector required, but got %S", v_scm);
3198 v = SCM_C64VECTOR(v_scm);
3199 i_scm = SCM_SUBRARGS[1];
3200 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
3201 i = SCM_INT_VALUE(i_scm);
3202 val_scm = SCM_SUBRARGS[2];
3203 val = (val_scm);
3204 if (SCM_ARGCNT > 3+1) {
3205 clamp_scm = SCM_SUBRARGS[3];
3206 } else {
3207 clamp_scm = SCM_UNBOUND;
3208 }
3209 clamp = (clamp_scm);
3210 {
3211 {
3212 ScmObj SCM_RESULT;
3213
3214 #line 280 "libvec.scm"
3215 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_C64,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
3216 goto SCM_STUB_RETURN;
3217 SCM_STUB_RETURN:
3218 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3219 }
3220 }
3221 }
3222
libvecc64vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3223 static ScmObj libvecc64vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3224 {
3225 ScmObj v_scm;
3226 ScmUVector* v;
3227 ScmObj i_scm;
3228 ScmSmallInt i;
3229 ScmObj fallback_scm;
3230 ScmObj fallback;
3231 ScmObj SCM_SUBRARGS[4];
3232 SCM_ENTER_SUBR("c64vector-ref");
3233 if (SCM_ARGCNT >= 4
3234 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3235 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3236 for (int SCM_i=0; SCM_i<4; SCM_i++) {
3237 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3238 }
3239 v_scm = SCM_SUBRARGS[0];
3240 if (!SCM_C64VECTORP(v_scm)) Scm_Error("c64vector required, but got %S", v_scm);
3241 v = SCM_C64VECTOR(v_scm);
3242 i_scm = SCM_SUBRARGS[1];
3243 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
3244 i = SCM_INT_VALUE(i_scm);
3245 if (SCM_ARGCNT > 2+1) {
3246 fallback_scm = SCM_SUBRARGS[2];
3247 } else {
3248 fallback_scm = SCM_UNBOUND;
3249 }
3250 fallback = (fallback_scm);
3251 {
3252 {
3253 ScmObj SCM_RESULT;
3254
3255 #line 284 "libvec.scm"
3256 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_C64,i,fallback));goto SCM_STUB_RETURN;}
3257 goto SCM_STUB_RETURN;
3258 SCM_STUB_RETURN:
3259 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3260 }
3261 }
3262 }
3263
libvecc128vector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3264 static ScmObj libvecc128vector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3265 {
3266 ScmObj v_scm;
3267 ScmUVector* v;
3268 ScmObj i_scm;
3269 ScmSmallInt i;
3270 ScmObj val_scm;
3271 ScmObj val;
3272 ScmObj clamp_scm;
3273 ScmObj clamp;
3274 ScmObj SCM_SUBRARGS[5];
3275 SCM_ENTER_SUBR("c128vector-set!");
3276 if (SCM_ARGCNT >= 5
3277 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3278 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3279 for (int SCM_i=0; SCM_i<5; SCM_i++) {
3280 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3281 }
3282 v_scm = SCM_SUBRARGS[0];
3283 if (!SCM_C128VECTORP(v_scm)) Scm_Error("c128vector required, but got %S", v_scm);
3284 v = SCM_C128VECTOR(v_scm);
3285 i_scm = SCM_SUBRARGS[1];
3286 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
3287 i = SCM_INT_VALUE(i_scm);
3288 val_scm = SCM_SUBRARGS[2];
3289 val = (val_scm);
3290 if (SCM_ARGCNT > 3+1) {
3291 clamp_scm = SCM_SUBRARGS[3];
3292 } else {
3293 clamp_scm = SCM_UNBOUND;
3294 }
3295 clamp = (clamp_scm);
3296 {
3297 {
3298 ScmObj SCM_RESULT;
3299
3300 #line 287 "libvec.scm"
3301 {SCM_RESULT=(Scm_UVectorSet(v,SCM_UVECTOR_C128,i,val,Scm_ClampMode(clamp)));goto SCM_STUB_RETURN;}
3302 goto SCM_STUB_RETURN;
3303 SCM_STUB_RETURN:
3304 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3305 }
3306 }
3307 }
3308
libvecc128vector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3309 static ScmObj libvecc128vector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3310 {
3311 ScmObj v_scm;
3312 ScmUVector* v;
3313 ScmObj i_scm;
3314 ScmSmallInt i;
3315 ScmObj fallback_scm;
3316 ScmObj fallback;
3317 ScmObj SCM_SUBRARGS[4];
3318 SCM_ENTER_SUBR("c128vector-ref");
3319 if (SCM_ARGCNT >= 4
3320 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3321 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3322 for (int SCM_i=0; SCM_i<4; SCM_i++) {
3323 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3324 }
3325 v_scm = SCM_SUBRARGS[0];
3326 if (!SCM_C128VECTORP(v_scm)) Scm_Error("c128vector required, but got %S", v_scm);
3327 v = SCM_C128VECTOR(v_scm);
3328 i_scm = SCM_SUBRARGS[1];
3329 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
3330 i = SCM_INT_VALUE(i_scm);
3331 if (SCM_ARGCNT > 2+1) {
3332 fallback_scm = SCM_SUBRARGS[2];
3333 } else {
3334 fallback_scm = SCM_UNBOUND;
3335 }
3336 fallback = (fallback_scm);
3337 {
3338 {
3339 ScmObj SCM_RESULT;
3340
3341 #line 291 "libvec.scm"
3342 {SCM_RESULT=(Scm_VMUVectorRef(v,SCM_UVECTOR_C128,i,fallback));goto SCM_STUB_RETURN;}
3343 goto SCM_STUB_RETURN;
3344 SCM_STUB_RETURN:
3345 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3346 }
3347 }
3348 }
3349
libvecuvector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3350 static ScmObj libvecuvector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3351 {
3352 ScmObj v_scm;
3353 ScmUVector* v;
3354 ScmObj i_scm;
3355 ScmSmallInt i;
3356 ScmObj val_scm;
3357 ScmObj val;
3358 ScmObj clamp_scm;
3359 ScmObj clamp;
3360 ScmObj SCM_SUBRARGS[5];
3361 SCM_ENTER_SUBR("uvector-set!");
3362 if (SCM_ARGCNT >= 5
3363 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3364 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3365 for (int SCM_i=0; SCM_i<5; SCM_i++) {
3366 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3367 }
3368 v_scm = SCM_SUBRARGS[0];
3369 if (!SCM_UVECTORP(v_scm)) Scm_Error("uniform vector required, but got %S", v_scm);
3370 v = SCM_UVECTOR(v_scm);
3371 i_scm = SCM_SUBRARGS[1];
3372 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
3373 i = SCM_INT_VALUE(i_scm);
3374 val_scm = SCM_SUBRARGS[2];
3375 val = (val_scm);
3376 if (SCM_ARGCNT > 3+1) {
3377 clamp_scm = SCM_SUBRARGS[3];
3378 } else {
3379 clamp_scm = SCM_UNBOUND;
3380 }
3381 clamp = (clamp_scm);
3382 {
3383
3384 #line 295 "libvec.scm"
3385 Scm_UVectorSet(v,Scm_UVectorType(Scm_ClassOf(SCM_OBJ(v))),i,val,
3386 Scm_ClampMode(clamp));
3387 goto SCM_STUB_RETURN;
3388 SCM_STUB_RETURN:
3389 SCM_RETURN(SCM_UNDEFINED);
3390 }
3391 }
3392
libvecuvector_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3393 static ScmObj libvecuvector_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3394 {
3395 ScmObj v_scm;
3396 ScmUVector* v;
3397 ScmObj i_scm;
3398 ScmSmallInt i;
3399 ScmObj fallback_scm;
3400 ScmObj fallback;
3401 ScmObj SCM_SUBRARGS[4];
3402 SCM_ENTER_SUBR("uvector-ref");
3403 if (SCM_ARGCNT >= 4
3404 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3405 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3406 for (int SCM_i=0; SCM_i<4; SCM_i++) {
3407 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3408 }
3409 v_scm = SCM_SUBRARGS[0];
3410 if (!SCM_UVECTORP(v_scm)) Scm_Error("uniform vector required, but got %S", v_scm);
3411 v = SCM_UVECTOR(v_scm);
3412 i_scm = SCM_SUBRARGS[1];
3413 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
3414 i = SCM_INT_VALUE(i_scm);
3415 if (SCM_ARGCNT > 2+1) {
3416 fallback_scm = SCM_SUBRARGS[2];
3417 } else {
3418 fallback_scm = SCM_UNBOUND;
3419 }
3420 fallback = (fallback_scm);
3421 {
3422 {
3423 ScmObj SCM_RESULT;
3424
3425 #line 300 "libvec.scm"
3426 {SCM_RESULT=(Scm_VMUVectorRef(v,Scm_UVectorType(Scm_ClassOf(SCM_OBJ(v))),i,fallback));goto SCM_STUB_RETURN;}
3427 goto SCM_STUB_RETURN;
3428 SCM_STUB_RETURN:
3429 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3430 }
3431 }
3432 }
3433
libvecuvector_length(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3434 static ScmObj libvecuvector_length(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3435 {
3436 ScmObj v_scm;
3437 ScmUVector* v;
3438 ScmObj SCM_SUBRARGS[1];
3439 SCM_ENTER_SUBR("uvector-length");
3440 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3441 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3442 }
3443 v_scm = SCM_SUBRARGS[0];
3444 if (!SCM_UVECTORP(v_scm)) Scm_Error("uniform vector required, but got %S", v_scm);
3445 v = SCM_UVECTOR(v_scm);
3446 {
3447 {
3448 u_long SCM_RESULT;
3449 {SCM_RESULT=(SCM_UVECTOR_SIZE(v));goto SCM_STUB_RETURN;}
3450 goto SCM_STUB_RETURN;
3451 SCM_STUB_RETURN:
3452 SCM_RETURN(Scm_MakeIntegerFromUI(SCM_RESULT));
3453 }
3454 }
3455 }
3456
libvecuvector_immutableP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3457 static ScmObj libvecuvector_immutableP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3458 {
3459 ScmObj v_scm;
3460 ScmUVector* v;
3461 ScmObj SCM_SUBRARGS[1];
3462 SCM_ENTER_SUBR("uvector-immutable?");
3463 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3464 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3465 }
3466 v_scm = SCM_SUBRARGS[0];
3467 if (!SCM_UVECTORP(v_scm)) Scm_Error("uniform vector required, but got %S", v_scm);
3468 v = SCM_UVECTOR(v_scm);
3469 {
3470 {
3471 int SCM_RESULT;
3472 {SCM_RESULT=(SCM_UVECTOR_IMMUTABLE_P(v));goto SCM_STUB_RETURN;}
3473 goto SCM_STUB_RETURN;
3474 SCM_STUB_RETURN:
3475 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3476 }
3477 }
3478 }
3479
libvecuvectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3480 static ScmObj libvecuvectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3481 {
3482 ScmObj obj_scm;
3483 ScmObj obj;
3484 ScmObj SCM_SUBRARGS[1];
3485 SCM_ENTER_SUBR("uvector?");
3486 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3487 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3488 }
3489 obj_scm = SCM_SUBRARGS[0];
3490 obj = (obj_scm);
3491 {
3492 {
3493 int SCM_RESULT;
3494 {SCM_RESULT=(SCM_UVECTORP(obj));goto SCM_STUB_RETURN;}
3495 goto SCM_STUB_RETURN;
3496 SCM_STUB_RETURN:
3497 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3498 }
3499 }
3500 }
3501
libvecu8vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3502 static ScmObj libvecu8vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3503 {
3504 ScmObj x_scm;
3505 ScmObj x;
3506 ScmObj SCM_SUBRARGS[1];
3507 SCM_ENTER_SUBR("u8vector?");
3508 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3509 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3510 }
3511 x_scm = SCM_SUBRARGS[0];
3512 x = (x_scm);
3513 {
3514 {
3515 int SCM_RESULT;
3516 {SCM_RESULT=(SCM_U8VECTORP(x));goto SCM_STUB_RETURN;}
3517 goto SCM_STUB_RETURN;
3518 SCM_STUB_RETURN:
3519 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3520 }
3521 }
3522 }
3523
libvecs8vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3524 static ScmObj libvecs8vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3525 {
3526 ScmObj x_scm;
3527 ScmObj x;
3528 ScmObj SCM_SUBRARGS[1];
3529 SCM_ENTER_SUBR("s8vector?");
3530 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3531 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3532 }
3533 x_scm = SCM_SUBRARGS[0];
3534 x = (x_scm);
3535 {
3536 {
3537 int SCM_RESULT;
3538 {SCM_RESULT=(SCM_S8VECTORP(x));goto SCM_STUB_RETURN;}
3539 goto SCM_STUB_RETURN;
3540 SCM_STUB_RETURN:
3541 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3542 }
3543 }
3544 }
3545
libvecu16vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3546 static ScmObj libvecu16vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3547 {
3548 ScmObj x_scm;
3549 ScmObj x;
3550 ScmObj SCM_SUBRARGS[1];
3551 SCM_ENTER_SUBR("u16vector?");
3552 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3553 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3554 }
3555 x_scm = SCM_SUBRARGS[0];
3556 x = (x_scm);
3557 {
3558 {
3559 int SCM_RESULT;
3560 {SCM_RESULT=(SCM_U16VECTORP(x));goto SCM_STUB_RETURN;}
3561 goto SCM_STUB_RETURN;
3562 SCM_STUB_RETURN:
3563 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3564 }
3565 }
3566 }
3567
libvecs16vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3568 static ScmObj libvecs16vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3569 {
3570 ScmObj x_scm;
3571 ScmObj x;
3572 ScmObj SCM_SUBRARGS[1];
3573 SCM_ENTER_SUBR("s16vector?");
3574 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3575 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3576 }
3577 x_scm = SCM_SUBRARGS[0];
3578 x = (x_scm);
3579 {
3580 {
3581 int SCM_RESULT;
3582 {SCM_RESULT=(SCM_U16VECTORP(x));goto SCM_STUB_RETURN;}
3583 goto SCM_STUB_RETURN;
3584 SCM_STUB_RETURN:
3585 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3586 }
3587 }
3588 }
3589
libvecu32vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3590 static ScmObj libvecu32vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3591 {
3592 ScmObj x_scm;
3593 ScmObj x;
3594 ScmObj SCM_SUBRARGS[1];
3595 SCM_ENTER_SUBR("u32vector?");
3596 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3597 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3598 }
3599 x_scm = SCM_SUBRARGS[0];
3600 x = (x_scm);
3601 {
3602 {
3603 int SCM_RESULT;
3604 {SCM_RESULT=(SCM_U32VECTORP(x));goto SCM_STUB_RETURN;}
3605 goto SCM_STUB_RETURN;
3606 SCM_STUB_RETURN:
3607 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3608 }
3609 }
3610 }
3611
libvecs32vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3612 static ScmObj libvecs32vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3613 {
3614 ScmObj x_scm;
3615 ScmObj x;
3616 ScmObj SCM_SUBRARGS[1];
3617 SCM_ENTER_SUBR("s32vector?");
3618 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3619 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3620 }
3621 x_scm = SCM_SUBRARGS[0];
3622 x = (x_scm);
3623 {
3624 {
3625 int SCM_RESULT;
3626 {SCM_RESULT=(SCM_U32VECTORP(x));goto SCM_STUB_RETURN;}
3627 goto SCM_STUB_RETURN;
3628 SCM_STUB_RETURN:
3629 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3630 }
3631 }
3632 }
3633
libvecu64vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3634 static ScmObj libvecu64vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3635 {
3636 ScmObj x_scm;
3637 ScmObj x;
3638 ScmObj SCM_SUBRARGS[1];
3639 SCM_ENTER_SUBR("u64vector?");
3640 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3641 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3642 }
3643 x_scm = SCM_SUBRARGS[0];
3644 x = (x_scm);
3645 {
3646 {
3647 int SCM_RESULT;
3648 {SCM_RESULT=(SCM_U64VECTORP(x));goto SCM_STUB_RETURN;}
3649 goto SCM_STUB_RETURN;
3650 SCM_STUB_RETURN:
3651 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3652 }
3653 }
3654 }
3655
libvecs64vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3656 static ScmObj libvecs64vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3657 {
3658 ScmObj x_scm;
3659 ScmObj x;
3660 ScmObj SCM_SUBRARGS[1];
3661 SCM_ENTER_SUBR("s64vector?");
3662 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3663 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3664 }
3665 x_scm = SCM_SUBRARGS[0];
3666 x = (x_scm);
3667 {
3668 {
3669 int SCM_RESULT;
3670 {SCM_RESULT=(SCM_U64VECTORP(x));goto SCM_STUB_RETURN;}
3671 goto SCM_STUB_RETURN;
3672 SCM_STUB_RETURN:
3673 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3674 }
3675 }
3676 }
3677
libvecf16vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3678 static ScmObj libvecf16vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3679 {
3680 ScmObj x_scm;
3681 ScmObj x;
3682 ScmObj SCM_SUBRARGS[1];
3683 SCM_ENTER_SUBR("f16vector?");
3684 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3685 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3686 }
3687 x_scm = SCM_SUBRARGS[0];
3688 x = (x_scm);
3689 {
3690 {
3691 int SCM_RESULT;
3692 {SCM_RESULT=(SCM_F16VECTORP(x));goto SCM_STUB_RETURN;}
3693 goto SCM_STUB_RETURN;
3694 SCM_STUB_RETURN:
3695 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3696 }
3697 }
3698 }
3699
libvecf32vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3700 static ScmObj libvecf32vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3701 {
3702 ScmObj x_scm;
3703 ScmObj x;
3704 ScmObj SCM_SUBRARGS[1];
3705 SCM_ENTER_SUBR("f32vector?");
3706 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3707 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3708 }
3709 x_scm = SCM_SUBRARGS[0];
3710 x = (x_scm);
3711 {
3712 {
3713 int SCM_RESULT;
3714 {SCM_RESULT=(SCM_F32VECTORP(x));goto SCM_STUB_RETURN;}
3715 goto SCM_STUB_RETURN;
3716 SCM_STUB_RETURN:
3717 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3718 }
3719 }
3720 }
3721
libvecf64vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3722 static ScmObj libvecf64vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3723 {
3724 ScmObj x_scm;
3725 ScmObj x;
3726 ScmObj SCM_SUBRARGS[1];
3727 SCM_ENTER_SUBR("f64vector?");
3728 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3729 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3730 }
3731 x_scm = SCM_SUBRARGS[0];
3732 x = (x_scm);
3733 {
3734 {
3735 int SCM_RESULT;
3736 {SCM_RESULT=(SCM_F64VECTORP(x));goto SCM_STUB_RETURN;}
3737 goto SCM_STUB_RETURN;
3738 SCM_STUB_RETURN:
3739 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3740 }
3741 }
3742 }
3743
libvecc32vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3744 static ScmObj libvecc32vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3745 {
3746 ScmObj x_scm;
3747 ScmObj x;
3748 ScmObj SCM_SUBRARGS[1];
3749 SCM_ENTER_SUBR("c32vector?");
3750 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3751 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3752 }
3753 x_scm = SCM_SUBRARGS[0];
3754 x = (x_scm);
3755 {
3756 {
3757 int SCM_RESULT;
3758 {SCM_RESULT=(SCM_C32VECTORP(x));goto SCM_STUB_RETURN;}
3759 goto SCM_STUB_RETURN;
3760 SCM_STUB_RETURN:
3761 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3762 }
3763 }
3764 }
3765
libvecc64vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3766 static ScmObj libvecc64vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3767 {
3768 ScmObj x_scm;
3769 ScmObj x;
3770 ScmObj SCM_SUBRARGS[1];
3771 SCM_ENTER_SUBR("c64vector?");
3772 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3773 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3774 }
3775 x_scm = SCM_SUBRARGS[0];
3776 x = (x_scm);
3777 {
3778 {
3779 int SCM_RESULT;
3780 {SCM_RESULT=(SCM_C64VECTORP(x));goto SCM_STUB_RETURN;}
3781 goto SCM_STUB_RETURN;
3782 SCM_STUB_RETURN:
3783 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3784 }
3785 }
3786 }
3787
libvecc128vectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3788 static ScmObj libvecc128vectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3789 {
3790 ScmObj x_scm;
3791 ScmObj x;
3792 ScmObj SCM_SUBRARGS[1];
3793 SCM_ENTER_SUBR("c128vector?");
3794 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3795 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3796 }
3797 x_scm = SCM_SUBRARGS[0];
3798 x = (x_scm);
3799 {
3800 {
3801 int SCM_RESULT;
3802 {SCM_RESULT=(SCM_C128VECTORP(x));goto SCM_STUB_RETURN;}
3803 goto SCM_STUB_RETURN;
3804 SCM_STUB_RETURN:
3805 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3806 }
3807 }
3808 }
3809
libvecbitvectorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3810 static ScmObj libvecbitvectorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3811 {
3812 ScmObj obj_scm;
3813 ScmObj obj;
3814 ScmObj SCM_SUBRARGS[1];
3815 SCM_ENTER_SUBR("bitvector?");
3816 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3817 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3818 }
3819 obj_scm = SCM_SUBRARGS[0];
3820 obj = (obj_scm);
3821 {
3822 {
3823 int SCM_RESULT;
3824 {SCM_RESULT=(SCM_BITVECTORP(obj));goto SCM_STUB_RETURN;}
3825 goto SCM_STUB_RETURN;
3826 SCM_STUB_RETURN:
3827 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3828 }
3829 }
3830 }
3831
libvecbitvector_length(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3832 static ScmObj libvecbitvector_length(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3833 {
3834 ScmObj v_scm;
3835 ScmBitvector* v;
3836 ScmObj SCM_SUBRARGS[1];
3837 SCM_ENTER_SUBR("bitvector-length");
3838 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3839 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3840 }
3841 v_scm = SCM_SUBRARGS[0];
3842 if (!SCM_BITVECTORP(v_scm)) Scm_Error("bitvector required, but got %S", v_scm);
3843 v = SCM_BITVECTOR(v_scm);
3844 {
3845 {
3846 int SCM_RESULT;
3847 {SCM_RESULT=(SCM_BITVECTOR_SIZE(v));goto SCM_STUB_RETURN;}
3848 goto SCM_STUB_RETURN;
3849 SCM_STUB_RETURN:
3850 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
3851 }
3852 }
3853 }
3854
libvecmake_bitvector(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3855 static ScmObj libvecmake_bitvector(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3856 {
3857 ScmObj len_scm;
3858 ScmSmallInt len;
3859 ScmObj init_scm;
3860 ScmObj init;
3861 ScmObj SCM_SUBRARGS[3];
3862 SCM_ENTER_SUBR("make-bitvector");
3863 if (SCM_ARGCNT >= 3
3864 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3865 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3866 for (int SCM_i=0; SCM_i<3; SCM_i++) {
3867 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3868 }
3869 len_scm = SCM_SUBRARGS[0];
3870 if (!SCM_INTP(len_scm)) Scm_Error("small integer required, but got %S", len_scm);
3871 len = SCM_INT_VALUE(len_scm);
3872 if (SCM_ARGCNT > 1+1) {
3873 init_scm = SCM_SUBRARGS[1];
3874 } else {
3875 init_scm = SCM_FALSE;
3876 }
3877 init = (init_scm);
3878 {
3879 {
3880 ScmObj SCM_RESULT;
3881 {SCM_RESULT=(Scm_MakeBitvector(len,init));goto SCM_STUB_RETURN;}
3882 goto SCM_STUB_RETURN;
3883 SCM_STUB_RETURN:
3884 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3885 }
3886 }
3887 }
3888
libvecbitvector(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3889 static ScmObj libvecbitvector(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3890 {
3891 ScmObj bits_scm;
3892 ScmObj bits;
3893 ScmObj SCM_SUBRARGS[2];
3894 SCM_ENTER_SUBR("bitvector");
3895 for (int SCM_i=0; SCM_i<2; SCM_i++) {
3896 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3897 }
3898 bits_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
3899 bits = (bits_scm);
3900 {
3901 {
3902 ScmObj SCM_RESULT;
3903 {SCM_RESULT=(Scm_ListToBitvector(bits));goto SCM_STUB_RETURN;}
3904 goto SCM_STUB_RETURN;
3905 SCM_STUB_RETURN:
3906 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3907 }
3908 }
3909 }
3910
libveclist_TObitvector(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3911 static ScmObj libveclist_TObitvector(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3912 {
3913 ScmObj bits_scm;
3914 ScmObj bits;
3915 ScmObj SCM_SUBRARGS[1];
3916 SCM_ENTER_SUBR("list->bitvector");
3917 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3918 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3919 }
3920 bits_scm = SCM_SUBRARGS[0];
3921 bits = (bits_scm);
3922 {
3923 {
3924 ScmObj SCM_RESULT;
3925 {SCM_RESULT=(Scm_ListToBitvector(bits));goto SCM_STUB_RETURN;}
3926 goto SCM_STUB_RETURN;
3927 SCM_STUB_RETURN:
3928 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3929 }
3930 }
3931 }
3932
libvecstring_TObitvector(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3933 static ScmObj libvecstring_TObitvector(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3934 {
3935 ScmObj s_scm;
3936 ScmString* s;
3937 ScmObj SCM_SUBRARGS[1];
3938 SCM_ENTER_SUBR("string->bitvector");
3939 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3940 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3941 }
3942 s_scm = SCM_SUBRARGS[0];
3943 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
3944 s = SCM_STRING(s_scm);
3945 {
3946 {
3947 ScmObj SCM_RESULT;
3948
3949 #line 338 "libvec.scm"
3950 {SCM_RESULT=(Scm_StringToBitvector(s,TRUE));goto SCM_STUB_RETURN;}
3951 goto SCM_STUB_RETURN;
3952 SCM_STUB_RETURN:
3953 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3954 }
3955 }
3956 }
3957
libvecbitvector_TOstring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3958 static ScmObj libvecbitvector_TOstring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3959 {
3960 ScmObj v_scm;
3961 ScmBitvector* v;
3962 ScmObj SCM_SUBRARGS[1];
3963 SCM_ENTER_SUBR("bitvector->string");
3964 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3965 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3966 }
3967 v_scm = SCM_SUBRARGS[0];
3968 if (!SCM_BITVECTORP(v_scm)) Scm_Error("bitvector required, but got %S", v_scm);
3969 v = SCM_BITVECTOR(v_scm);
3970 {
3971 {
3972 ScmObj SCM_RESULT;
3973
3974 #line 340 "libvec.scm"
3975 {SCM_RESULT=(Scm_BitvectorToString(v,TRUE));goto SCM_STUB_RETURN;}
3976 goto SCM_STUB_RETURN;
3977 SCM_STUB_RETURN:
3978 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3979 }
3980 }
3981 }
3982
libvecbit_TOinteger(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3983 static ScmObj libvecbit_TOinteger(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3984 {
3985 ScmObj bit_scm;
3986 ScmObj bit;
3987 ScmObj SCM_SUBRARGS[1];
3988 SCM_ENTER_SUBR("bit->integer");
3989 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3990 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3991 }
3992 bit_scm = SCM_SUBRARGS[0];
3993 bit = (bit_scm);
3994 {
3995 {
3996 int SCM_RESULT;
3997 {SCM_RESULT=(Scm_Bit2Int(bit));goto SCM_STUB_RETURN;}
3998 goto SCM_STUB_RETURN;
3999 SCM_STUB_RETURN:
4000 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
4001 }
4002 }
4003 }
4004
libvecbit_TOboolean(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4005 static ScmObj libvecbit_TOboolean(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4006 {
4007 ScmObj bit_scm;
4008 ScmObj bit;
4009 ScmObj SCM_SUBRARGS[1];
4010 SCM_ENTER_SUBR("bit->boolean");
4011 for (int SCM_i=0; SCM_i<1; SCM_i++) {
4012 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4013 }
4014 bit_scm = SCM_SUBRARGS[0];
4015 bit = (bit_scm);
4016 {
4017 {
4018 int SCM_RESULT;
4019 {SCM_RESULT=(Scm_Bit2Int(bit));goto SCM_STUB_RETURN;}
4020 goto SCM_STUB_RETURN;
4021 SCM_STUB_RETURN:
4022 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4023 }
4024 }
4025 }
4026
libvecbitvector_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4027 static ScmObj libvecbitvector_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4028 {
4029 ScmObj v_scm;
4030 ScmBitvector* v;
4031 ScmObj i_scm;
4032 ScmSmallInt i;
4033 ScmObj b_scm;
4034 ScmObj b;
4035 ScmObj SCM_SUBRARGS[3];
4036 SCM_ENTER_SUBR("bitvector-set!");
4037 for (int SCM_i=0; SCM_i<3; SCM_i++) {
4038 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4039 }
4040 v_scm = SCM_SUBRARGS[0];
4041 if (!SCM_BITVECTORP(v_scm)) Scm_Error("bitvector required, but got %S", v_scm);
4042 v = SCM_BITVECTOR(v_scm);
4043 i_scm = SCM_SUBRARGS[1];
4044 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
4045 i = SCM_INT_VALUE(i_scm);
4046 b_scm = SCM_SUBRARGS[2];
4047 b = (b_scm);
4048 {
4049
4050 #line 346 "libvec.scm"
4051 if (((i)<(0))||((i)>=(SCM_BITVECTOR_SIZE(v)))){{
4052 Scm_Error("bitvector index out of range: %ld",i);}}
4053
4054 #line 348 "libvec.scm"
4055 SCM_BITVECTOR_CHECK_MUTABLE(v);
4056
4057 #line 349 "libvec.scm"
4058 if (Scm_Bit2Int(b)){
4059 SCM_BITS_SET(SCM_BITVECTOR_BITS(v),i);} else {
4060 SCM_BITS_RESET(SCM_BITVECTOR_BITS(v),i);}
4061 goto SCM_STUB_RETURN;
4062 SCM_STUB_RETURN:
4063 SCM_RETURN(SCM_UNDEFINED);
4064 }
4065 }
4066
libvecbitvector_ref_2fint(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4067 static ScmObj libvecbitvector_ref_2fint(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4068 {
4069 ScmObj v_scm;
4070 ScmBitvector* v;
4071 ScmObj i_scm;
4072 ScmSmallInt i;
4073 ScmObj fallback_scm;
4074 ScmObj fallback;
4075 ScmObj SCM_SUBRARGS[4];
4076 SCM_ENTER_SUBR("bitvector-ref/int");
4077 if (SCM_ARGCNT >= 4
4078 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4079 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4080 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4081 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4082 }
4083 v_scm = SCM_SUBRARGS[0];
4084 if (!SCM_BITVECTORP(v_scm)) Scm_Error("bitvector required, but got %S", v_scm);
4085 v = SCM_BITVECTOR(v_scm);
4086 i_scm = SCM_SUBRARGS[1];
4087 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
4088 i = SCM_INT_VALUE(i_scm);
4089 if (SCM_ARGCNT > 2+1) {
4090 fallback_scm = SCM_SUBRARGS[2];
4091 } else {
4092 fallback_scm = SCM_UNBOUND;
4093 }
4094 fallback = (fallback_scm);
4095 {
4096 {
4097 ScmObj SCM_RESULT;
4098
4099 #line 356 "libvec.scm"
4100 if (((i)<(0))||((i)>=(SCM_BITVECTOR_SIZE(v)))){{
4101 if (SCM_UNBOUNDP(fallback)){
4102 Scm_Error("bitvector index out of range: %ld",i);} else {
4103 {SCM_RESULT=(fallback);goto SCM_STUB_RETURN;}}}}
4104
4105 #line 360 "libvec.scm"
4106 {SCM_RESULT=(((SCM_BITS_TEST(SCM_BITVECTOR_BITS(v),i))?(
4107 SCM_MAKE_INT(1)):(
4108 SCM_MAKE_INT(0))));goto SCM_STUB_RETURN;}
4109 goto SCM_STUB_RETURN;
4110 SCM_STUB_RETURN:
4111 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4112 }
4113 }
4114 }
4115
libvecbitvector_ref_2fbool(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4116 static ScmObj libvecbitvector_ref_2fbool(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4117 {
4118 ScmObj v_scm;
4119 ScmBitvector* v;
4120 ScmObj i_scm;
4121 ScmSmallInt i;
4122 ScmObj fallback_scm;
4123 ScmObj fallback;
4124 ScmObj SCM_SUBRARGS[4];
4125 SCM_ENTER_SUBR("bitvector-ref/bool");
4126 if (SCM_ARGCNT >= 4
4127 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4128 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4129 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4130 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4131 }
4132 v_scm = SCM_SUBRARGS[0];
4133 if (!SCM_BITVECTORP(v_scm)) Scm_Error("bitvector required, but got %S", v_scm);
4134 v = SCM_BITVECTOR(v_scm);
4135 i_scm = SCM_SUBRARGS[1];
4136 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
4137 i = SCM_INT_VALUE(i_scm);
4138 if (SCM_ARGCNT > 2+1) {
4139 fallback_scm = SCM_SUBRARGS[2];
4140 } else {
4141 fallback_scm = SCM_UNBOUND;
4142 }
4143 fallback = (fallback_scm);
4144 {
4145 {
4146 ScmObj SCM_RESULT;
4147
4148 #line 367 "libvec.scm"
4149 if (((i)<(0))||((i)>=(SCM_BITVECTOR_SIZE(v)))){{
4150 if (SCM_UNBOUNDP(fallback)){
4151 Scm_Error("bitvector index out of range: %ld",i);} else {
4152 {SCM_RESULT=(fallback);goto SCM_STUB_RETURN;}}}}
4153
4154 #line 371 "libvec.scm"
4155 {SCM_RESULT=(((SCM_BITS_TEST(SCM_BITVECTOR_BITS(v),i))?(SCM_TRUE):(SCM_FALSE)));goto SCM_STUB_RETURN;}
4156 goto SCM_STUB_RETURN;
4157 SCM_STUB_RETURN:
4158 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4159 }
4160 }
4161 }
4162
libvecbitvector_copy(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4163 static ScmObj libvecbitvector_copy(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4164 {
4165 ScmObj v_scm;
4166 ScmBitvector* v;
4167 ScmObj start_scm;
4168 ScmSmallInt start;
4169 ScmObj end_scm;
4170 ScmSmallInt end;
4171 ScmObj SCM_SUBRARGS[5];
4172 SCM_ENTER_SUBR("bitvector-copy");
4173 if (SCM_ARGCNT >= 4
4174 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4175 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4176 for (int SCM_i=0; SCM_i<5; SCM_i++) {
4177 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4178 }
4179 v_scm = SCM_SUBRARGS[0];
4180 if (!SCM_BITVECTORP(v_scm)) Scm_Error("bitvector required, but got %S", v_scm);
4181 v = SCM_BITVECTOR(v_scm);
4182 if (SCM_ARGCNT > 1+1) {
4183 start_scm = SCM_SUBRARGS[1];
4184 } else {
4185 start_scm = SCM_MAKE_INT(0);
4186 }
4187 if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm);
4188 start = SCM_INT_VALUE(start_scm);
4189 if (SCM_ARGCNT > 2+1) {
4190 end_scm = SCM_SUBRARGS[2];
4191 } else {
4192 end_scm = SCM_MAKE_INT(-1);
4193 }
4194 if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm);
4195 end = SCM_INT_VALUE(end_scm);
4196 {
4197 {
4198 ScmObj SCM_RESULT;
4199 {SCM_RESULT=(Scm_BitvectorCopy(v,start,end));goto SCM_STUB_RETURN;}
4200 goto SCM_STUB_RETURN;
4201 SCM_STUB_RETURN:
4202 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4203 }
4204 }
4205 }
4206
libvecbitvector_copyX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4207 static ScmObj libvecbitvector_copyX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4208 {
4209 ScmObj dest_scm;
4210 ScmBitvector* dest;
4211 ScmObj dstart_scm;
4212 ScmSmallInt dstart;
4213 ScmObj src_scm;
4214 ScmBitvector* src;
4215 ScmObj start_scm;
4216 ScmSmallInt start;
4217 ScmObj end_scm;
4218 ScmSmallInt end;
4219 ScmObj SCM_SUBRARGS[7];
4220 SCM_ENTER_SUBR("bitvector-copy!");
4221 if (SCM_ARGCNT >= 6
4222 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4223 Scm_Error("too many arguments: up to 5 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4224 for (int SCM_i=0; SCM_i<7; SCM_i++) {
4225 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4226 }
4227 dest_scm = SCM_SUBRARGS[0];
4228 if (!SCM_BITVECTORP(dest_scm)) Scm_Error("bitvector required, but got %S", dest_scm);
4229 dest = SCM_BITVECTOR(dest_scm);
4230 dstart_scm = SCM_SUBRARGS[1];
4231 if (!SCM_INTP(dstart_scm)) Scm_Error("small integer required, but got %S", dstart_scm);
4232 dstart = SCM_INT_VALUE(dstart_scm);
4233 src_scm = SCM_SUBRARGS[2];
4234 if (!SCM_BITVECTORP(src_scm)) Scm_Error("bitvector required, but got %S", src_scm);
4235 src = SCM_BITVECTOR(src_scm);
4236 if (SCM_ARGCNT > 3+1) {
4237 start_scm = SCM_SUBRARGS[3];
4238 } else {
4239 start_scm = SCM_MAKE_INT(0);
4240 }
4241 if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm);
4242 start = SCM_INT_VALUE(start_scm);
4243 if (SCM_ARGCNT > 4+1) {
4244 end_scm = SCM_SUBRARGS[4];
4245 } else {
4246 end_scm = SCM_MAKE_INT(-1);
4247 }
4248 if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm);
4249 end = SCM_INT_VALUE(end_scm);
4250 {
4251 {
4252 ScmObj SCM_RESULT;
4253 {SCM_RESULT=(Scm_BitvectorCopyX(dest,dstart,src,start,end));goto SCM_STUB_RETURN;}
4254 goto SCM_STUB_RETURN;
4255 SCM_STUB_RETURN:
4256 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4257 }
4258 }
4259 }
4260
4261 #define common_eqv(a,b) ((a)==(b))
4262
4263 #define common_lt(a,b) ((a)<(b))
4264
4265 #define hc_eqv(a,b) ((((a).r)==((b).r))&&(((a).i)==((b).i)))
4266
4267 #define hc_lt(a,b) ((((a).r)<((b).r))||((((a).r)==((b).r))&&(((a).i)<((b).i))))
4268
4269 #define fc_lt(a,b) (((crealf(a))<(crealf(b)))||(((crealf(a))==(crealf(b)))&&((cimagf(a))<(cimagf(b)))))
4270
4271 #define dc_lt(a,b) (((creal(a))<(creal(b)))||(((creal(a))==(creal(b)))&&((cimag(a))<(cimag(b)))))
4272
Scm_BinarySearchS8(const int8_t * vec,size_t len,int8_t key,u_int skip,size_t * floor,size_t * ceil)4273 size_t Scm_BinarySearchS8(const int8_t* vec,size_t len,int8_t key,u_int skip,size_t* floor,size_t* ceil){{
4274 #line 439 "libvec.scm"
4275 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{int8_t v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(common_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchU8(const uint8_t * vec,size_t len,uint8_t key,u_int skip,size_t * floor,size_t * ceil)4276 size_t Scm_BinarySearchU8(const uint8_t* vec,size_t len,uint8_t key,u_int skip,size_t* floor,size_t* ceil){{
4277 #line 447 "libvec.scm"
4278 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{uint8_t v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(common_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchS16(const int16_t * vec,size_t len,int16_t key,u_int skip,size_t * floor,size_t * ceil)4279 size_t Scm_BinarySearchS16(const int16_t* vec,size_t len,int16_t key,u_int skip,size_t* floor,size_t* ceil){{
4280 #line 455 "libvec.scm"
4281 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{int16_t v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(common_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchU16(const uint16_t * vec,size_t len,uint16_t key,u_int skip,size_t * floor,size_t * ceil)4282 size_t Scm_BinarySearchU16(const uint16_t* vec,size_t len,uint16_t key,u_int skip,size_t* floor,size_t* ceil){{
4283 #line 463 "libvec.scm"
4284 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{uint16_t v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(common_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchS32(const int32_t * vec,size_t len,int32_t key,u_int skip,size_t * floor,size_t * ceil)4285 size_t Scm_BinarySearchS32(const int32_t* vec,size_t len,int32_t key,u_int skip,size_t* floor,size_t* ceil){{
4286 #line 471 "libvec.scm"
4287 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{int32_t v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(common_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchU32(const uint32_t * vec,size_t len,uint32_t key,u_int skip,size_t * floor,size_t * ceil)4288 size_t Scm_BinarySearchU32(const uint32_t* vec,size_t len,uint32_t key,u_int skip,size_t* floor,size_t* ceil){{
4289 #line 479 "libvec.scm"
4290 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{uint32_t v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(common_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchS64(const int64_t * vec,size_t len,int64_t key,u_int skip,size_t * floor,size_t * ceil)4291 size_t Scm_BinarySearchS64(const int64_t* vec,size_t len,int64_t key,u_int skip,size_t* floor,size_t* ceil){{
4292 #line 487 "libvec.scm"
4293 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{int64_t v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(common_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchU64(const uint64_t * vec,size_t len,uint64_t key,u_int skip,size_t * floor,size_t * ceil)4294 size_t Scm_BinarySearchU64(const uint64_t* vec,size_t len,uint64_t key,u_int skip,size_t* floor,size_t* ceil){{
4295 #line 495 "libvec.scm"
4296 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{uint64_t v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(common_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchF16(const ScmHalfFloat * vec,size_t len,ScmHalfFloat key,u_int skip,size_t * floor,size_t * ceil)4297 size_t Scm_BinarySearchF16(const ScmHalfFloat* vec,size_t len,ScmHalfFloat key,u_int skip,size_t* floor,size_t* ceil){{
4298 #line 503 "libvec.scm"
4299 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{ScmHalfFloat v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(common_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchF32(const float * vec,size_t len,float key,u_int skip,size_t * floor,size_t * ceil)4300 size_t Scm_BinarySearchF32(const float* vec,size_t len,float key,u_int skip,size_t* floor,size_t* ceil){{
4301 #line 511 "libvec.scm"
4302 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{float v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(common_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchF64(const double * vec,size_t len,double key,u_int skip,size_t * floor,size_t * ceil)4303 size_t Scm_BinarySearchF64(const double* vec,size_t len,double key,u_int skip,size_t* floor,size_t* ceil){{
4304 #line 519 "libvec.scm"
4305 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{double v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(common_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchC32(const ScmHalfComplex * vec,size_t len,ScmHalfComplex key,u_int skip,size_t * floor,size_t * ceil)4306 size_t Scm_BinarySearchC32(const ScmHalfComplex* vec,size_t len,ScmHalfComplex key,u_int skip,size_t* floor,size_t* ceil){{
4307 #line 527 "libvec.scm"
4308 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{ScmHalfComplex v=(vec)[(k)*(esize)];if (hc_eqv(v,key)){return ((k)*(esize));}else if(hc_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchC64(const ScmFloatComplex * vec,size_t len,ScmFloatComplex key,u_int skip,size_t * floor,size_t * ceil)4309 size_t Scm_BinarySearchC64(const ScmFloatComplex* vec,size_t len,ScmFloatComplex key,u_int skip,size_t* floor,size_t* ceil){{
4310 #line 535 "libvec.scm"
4311 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{ScmFloatComplex v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(fc_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
Scm_BinarySearchC128(const ScmDoubleComplex * vec,size_t len,ScmDoubleComplex key,u_int skip,size_t * floor,size_t * ceil)4312 size_t Scm_BinarySearchC128(const ScmDoubleComplex* vec,size_t len,ScmDoubleComplex key,u_int skip,size_t* floor,size_t* ceil){{
4313 #line 543 "libvec.scm"
4314 {u_int esize=(skip)+(1);size_t nume=(len)/(esize);size_t k=(nume)/(2);size_t hi=nume;size_t lo=0;while((lo)<(hi)){{ScmDoubleComplex v=(vec)[(k)*(esize)];if (common_eqv(v,key)){return ((k)*(esize));}else if(dc_lt(v,key)){lo=(k);k=((lo)+(((hi)-(lo))/(2)));if ((lo)==(k)){{break;}}} else {hi=(k);k=((lo)+(((hi)-(lo))/(2)));}}}if (floor){{if ((lo)==(hi)){*(floor)=(((size_t )(-1)));} else {*(floor)=((lo)*(esize));}}}if (ceil){{if ((hi)==(nume)){*(ceil)=(((size_t )(-1)));} else {*(ceil)=((hi)*(esize));}}}return (((size_t )(-1)));}}}
4315 static ScmCompiledCode *toplevels[] = {
4316 NULL /*termination*/
4317 };
Scm_Init_libvec()4318 void Scm_Init_libvec() {
4319 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
4320 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
4321 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
4322 scm__rc.d1562[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[0])),TRUE); /* vector */
4323 scm__rc.d1562[1] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[1]))); /* :rest */
4324 scm__rc.d1562[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2])),TRUE); /* args */
4325 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1]), scm__rc.d1562[2]);
4326 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[2]), scm__rc.d1562[1]);
4327 scm__rc.d1562[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[3])),TRUE); /* source-info */
4328 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[5]), scm__rc.d1562[3]);
4329 scm__rc.d1562[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[5])),TRUE); /* bind-info */
4330 scm__rc.d1562[5] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[6])),TRUE); /* scheme */
4331 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[6]), scm__rc.d1562[0]);
4332 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[7]), scm__rc.d1562[5]);
4333 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[8]), scm__rc.d1562[4]);
4334 scm__rc.d1562[6] = Scm_MakeExtendedPair(scm__rc.d1562[0], SCM_OBJ(&scm__rc.d1563[2]), SCM_OBJ(&scm__rc.d1563[10]));
4335 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("vector")), SCM_OBJ(&libvecvector__STUB), SCM_BINDING_INLINABLE);
4336 libvecvector__STUB.common.info = scm__rc.d1562[6];
4337 scm__rc.d1562[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[7])),TRUE); /* vector? */
4338 scm__rc.d1562[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[8])),TRUE); /* obj */
4339 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[11]), scm__rc.d1562[8]);
4340 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[14]), scm__rc.d1562[3]);
4341 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[15]), scm__rc.d1562[7]);
4342 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[16]), scm__rc.d1562[5]);
4343 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[17]), scm__rc.d1562[4]);
4344 scm__rc.d1562[9] = Scm_MakeExtendedPair(scm__rc.d1562[7], SCM_OBJ(&scm__rc.d1563[11]), SCM_OBJ(&scm__rc.d1563[19]));
4345 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("vector?")), SCM_OBJ(&libvecvectorP__STUB), SCM_BINDING_INLINABLE);
4346 libvecvectorP__STUB.common.info = scm__rc.d1562[9];
4347 scm__rc.d1562[10] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[9])),TRUE); /* vector-length */
4348 scm__rc.d1562[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[10])),TRUE); /* vec */
4349 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[20]), scm__rc.d1562[11]);
4350 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[23]), scm__rc.d1562[3]);
4351 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[24]), scm__rc.d1562[10]);
4352 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[25]), scm__rc.d1562[5]);
4353 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[26]), scm__rc.d1562[4]);
4354 scm__rc.d1562[12] = Scm_MakeExtendedPair(scm__rc.d1562[10], SCM_OBJ(&scm__rc.d1563[20]), SCM_OBJ(&scm__rc.d1563[28]));
4355 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("vector-length")), SCM_OBJ(&libvecvector_length__STUB), SCM_BINDING_INLINABLE);
4356 libvecvector_length__STUB.common.info = scm__rc.d1562[12];
4357 scm__rc.d1562[13] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[11])),TRUE); /* vector-ref */
4358 scm__rc.d1562[14] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[12])),TRUE); /* k */
4359 scm__rc.d1562[15] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[13]))); /* :optional */
4360 scm__rc.d1562[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14])),TRUE); /* fallback */
4361 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[29]), scm__rc.d1562[16]);
4362 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[30]), scm__rc.d1562[15]);
4363 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[31]), scm__rc.d1562[14]);
4364 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[32]), scm__rc.d1562[11]);
4365 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[35]), scm__rc.d1562[3]);
4366 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[36]), scm__rc.d1562[13]);
4367 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[37]), scm__rc.d1562[5]);
4368 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[38]), scm__rc.d1562[4]);
4369 scm__rc.d1562[17] = Scm_MakeExtendedPair(scm__rc.d1562[13], SCM_OBJ(&scm__rc.d1563[32]), SCM_OBJ(&scm__rc.d1563[40]));
4370 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("vector-ref")), SCM_OBJ(&libvecvector_ref__STUB), SCM_BINDING_INLINABLE);
4371 libvecvector_ref__STUB.common.info = scm__rc.d1562[17];
4372 Scm_SetterSet(SCM_PROCEDURE(&libvecvector_ref__STUB), SCM_PROCEDURE(&libvecvector_setX__STUB), TRUE);
4373 scm__rc.d1562[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[15])),TRUE); /* vector-set! */
4374 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[41]), scm__rc.d1562[14]);
4375 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[42]), scm__rc.d1562[11]);
4376 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[45]), scm__rc.d1562[3]);
4377 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[46]), scm__rc.d1562[18]);
4378 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[47]), scm__rc.d1562[5]);
4379 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[48]), scm__rc.d1562[4]);
4380 scm__rc.d1562[19] = Scm_MakeExtendedPair(scm__rc.d1562[18], SCM_OBJ(&scm__rc.d1563[42]), SCM_OBJ(&scm__rc.d1563[50]));
4381 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("vector-set!")), SCM_OBJ(&libvecvector_setX__STUB), 0);
4382 libvecvector_setX__STUB.common.info = scm__rc.d1562[19];
4383 scm__rc.d1562[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[16])),TRUE); /* vector->list */
4384 scm__rc.d1562[21] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[17])),TRUE); /* start */
4385 scm__rc.d1562[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[18])),TRUE); /* end */
4386 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[51]), scm__rc.d1562[22]);
4387 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[52]), scm__rc.d1562[21]);
4388 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[53]), scm__rc.d1562[15]);
4389 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[54]), scm__rc.d1562[11]);
4390 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[57]), scm__rc.d1562[3]);
4391 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[58]), scm__rc.d1562[20]);
4392 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[59]), scm__rc.d1562[5]);
4393 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[60]), scm__rc.d1562[4]);
4394 scm__rc.d1562[23] = Scm_MakeExtendedPair(scm__rc.d1562[20], SCM_OBJ(&scm__rc.d1563[54]), SCM_OBJ(&scm__rc.d1563[62]));
4395 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("vector->list")), SCM_OBJ(&libvecvector_TOlist__STUB), 0);
4396 libvecvector_TOlist__STUB.common.info = scm__rc.d1562[23];
4397 scm__rc.d1562[24] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[19])),TRUE); /* list->vector */
4398 scm__rc.d1562[25] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[20])),TRUE); /* list */
4399 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[63]), scm__rc.d1562[25]);
4400 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[66]), scm__rc.d1562[3]);
4401 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[67]), scm__rc.d1562[24]);
4402 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[68]), scm__rc.d1562[5]);
4403 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[69]), scm__rc.d1562[4]);
4404 scm__rc.d1562[26] = Scm_MakeExtendedPair(scm__rc.d1562[24], SCM_OBJ(&scm__rc.d1563[63]), SCM_OBJ(&scm__rc.d1563[71]));
4405 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("list->vector")), SCM_OBJ(&libveclist_TOvector__STUB), 0);
4406 libveclist_TOvector__STUB.common.info = scm__rc.d1562[26];
4407 scm__rc.d1562[27] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[21])),TRUE); /* vector-fill! */
4408 scm__rc.d1562[28] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[22])),TRUE); /* fill */
4409 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[72]), scm__rc.d1562[28]);
4410 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[73]), scm__rc.d1562[11]);
4411 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[76]), scm__rc.d1562[3]);
4412 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[77]), scm__rc.d1562[27]);
4413 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[78]), scm__rc.d1562[5]);
4414 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[79]), scm__rc.d1562[4]);
4415 scm__rc.d1562[29] = Scm_MakeExtendedPair(scm__rc.d1562[27], SCM_OBJ(&scm__rc.d1563[73]), SCM_OBJ(&scm__rc.d1563[81]));
4416 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("vector-fill!")), SCM_OBJ(&libvecvector_fillX__STUB), 0);
4417 libvecvector_fillX__STUB.common.info = scm__rc.d1562[29];
4418 scm__rc.d1562[30] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[23])),TRUE); /* vector-copy */
4419 scm__rc.d1562[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[24])),TRUE); /* v */
4420 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[82]), scm__rc.d1562[28]);
4421 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[83]), scm__rc.d1562[22]);
4422 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[84]), scm__rc.d1562[21]);
4423 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[85]), scm__rc.d1562[15]);
4424 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[86]), scm__rc.d1562[31]);
4425 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[89]), scm__rc.d1562[3]);
4426 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[90]), scm__rc.d1562[30]);
4427 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[91]), scm__rc.d1562[5]);
4428 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[92]), scm__rc.d1562[4]);
4429 scm__rc.d1562[32] = Scm_MakeExtendedPair(scm__rc.d1562[30], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[94]));
4430 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("vector-copy")), SCM_OBJ(&libvecvector_copy__STUB), 0);
4431 libvecvector_copy__STUB.common.info = scm__rc.d1562[32];
4432 scm__rc.d1562[33] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[25])),TRUE); /* vector-copy! */
4433 scm__rc.d1562[34] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[26])),TRUE); /* t */
4434 scm__rc.d1562[35] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[27])),TRUE); /* tstart */
4435 scm__rc.d1562[36] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28])),TRUE); /* s */
4436 scm__rc.d1562[37] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[29])),TRUE); /* sstart */
4437 scm__rc.d1562[38] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[30])),TRUE); /* send */
4438 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[95]), scm__rc.d1562[38]);
4439 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[96]), scm__rc.d1562[37]);
4440 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[97]), scm__rc.d1562[15]);
4441 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[98]), scm__rc.d1562[36]);
4442 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[99]), scm__rc.d1562[35]);
4443 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[100]), scm__rc.d1562[34]);
4444 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[103]), scm__rc.d1562[3]);
4445 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[104]), scm__rc.d1562[33]);
4446 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[105]), scm__rc.d1562[5]);
4447 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[106]), scm__rc.d1562[4]);
4448 scm__rc.d1562[39] = Scm_MakeExtendedPair(scm__rc.d1562[33], SCM_OBJ(&scm__rc.d1563[100]), SCM_OBJ(&scm__rc.d1563[108]));
4449 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("vector-copy!")), SCM_OBJ(&libvecvector_copyX__STUB), 0);
4450 libvecvector_copyX__STUB.common.info = scm__rc.d1562[39];
4451 scm__rc.d1562[40] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[31])),TRUE); /* vector-append */
4452 scm__rc.d1562[41] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[32])),TRUE); /* vecs */
4453 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[109]), scm__rc.d1562[41]);
4454 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[110]), scm__rc.d1562[1]);
4455 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[113]), scm__rc.d1562[3]);
4456 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[114]), scm__rc.d1562[40]);
4457 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[115]), scm__rc.d1562[5]);
4458 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[116]), scm__rc.d1562[4]);
4459 scm__rc.d1562[42] = Scm_MakeExtendedPair(scm__rc.d1562[40], SCM_OBJ(&scm__rc.d1563[110]), SCM_OBJ(&scm__rc.d1563[118]));
4460 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("vector-append")), SCM_OBJ(&libvecvector_append__STUB), 0);
4461 libvecvector_append__STUB.common.info = scm__rc.d1562[42];
4462 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
4463 scm__rc.d1562[43] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[33])),TRUE); /* vector-immutable? */
4464 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[119]), scm__rc.d1562[31]);
4465 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[122]), scm__rc.d1562[3]);
4466 scm__rc.d1562[44] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[34])),TRUE); /* gauche */
4467 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[123]), scm__rc.d1562[43]);
4468 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[124]), scm__rc.d1562[44]);
4469 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[125]), scm__rc.d1562[4]);
4470 scm__rc.d1562[45] = Scm_MakeExtendedPair(scm__rc.d1562[43], SCM_OBJ(&scm__rc.d1563[119]), SCM_OBJ(&scm__rc.d1563[127]));
4471 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("vector-immutable?")), SCM_OBJ(&libvecvector_immutableP__STUB), 0);
4472 libvecvector_immutableP__STUB.common.info = scm__rc.d1562[45];
4473 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
4474 scm__rc.d1562[46] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[35])),TRUE); /* vector->string */
4475 scm__rc.d1562[47] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[37])),TRUE); /* lambda */
4476 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[129]), scm__rc.d1562[21]);
4477 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[131]), scm__rc.d1562[22]);
4478 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[134]), scm__rc.d1562[15]);
4479 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[135]), scm__rc.d1562[31]);
4480 scm__rc.d1562[48] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[38])),TRUE); /* list->string */
4481 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[136]), scm__rc.d1562[31]);
4482 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[137]), scm__rc.d1562[20]);
4483 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[139]), scm__rc.d1562[48]);
4484 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[142]), scm__rc.d1562[47]);
4485 scm__rc.d1562[50] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[39])),TRUE); /* error */
4486 scm__rc.d1562[51] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[44]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */
4487 scm__rc.d1562[49] = Scm_MakeIdentifier(scm__rc.d1562[50], SCM_MODULE(scm__rc.d1562[51]), SCM_NIL); /* gauche#error */
4488 scm__rc.d1562[52] = Scm_MakeIdentifier(scm__rc.d1562[20], SCM_MODULE(scm__rc.d1562[51]), SCM_NIL); /* gauche#vector->list */
4489 scm__rc.d1562[53] = Scm_MakeIdentifier(scm__rc.d1562[48], SCM_MODULE(scm__rc.d1562[51]), SCM_NIL); /* gauche#list->string */
4490 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[145]), scm__rc.d1562[3]);
4491 scm__rc.d1562[54] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[40])),TRUE); /* unused-args */
4492 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[146]), scm__rc.d1562[54]);
4493 scm__rc.d1562[55] = Scm_MakeExtendedPair(scm__rc.d1562[46], SCM_OBJ(&scm__rc.d1563[135]), SCM_OBJ(&scm__rc.d1563[148]));
4494 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[149]), scm__rc.d1562[55]);
4495 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1571[0]))->name = scm__rc.d1562[46];/* vector->string */
4496 ((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]))[44] = SCM_WORD(scm__rc.d1562[49]);
4497 ((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]))[51] = SCM_WORD(scm__rc.d1562[52]);
4498 ((ScmWord*)SCM_OBJ(&scm__rc.d1570[0]))[53] = SCM_WORD(scm__rc.d1562[53]);
4499 ScmObj G1572 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1571[0]), NULL);
4500
4501 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[46]) /* vector->string */, G1572,0);
4502
4503 scm__rc.d1562[56] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[41])),TRUE); /* string->vector */
4504 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[150]), scm__rc.d1562[36]);
4505 scm__rc.d1562[57] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[42])),TRUE); /* string->list */
4506 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[151]), scm__rc.d1562[36]);
4507 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[152]), scm__rc.d1562[57]);
4508 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[154]), scm__rc.d1562[24]);
4509 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[157]), scm__rc.d1562[47]);
4510 scm__rc.d1562[58] = Scm_MakeIdentifier(scm__rc.d1562[57], SCM_MODULE(scm__rc.d1562[51]), SCM_NIL); /* gauche#string->list */
4511 scm__rc.d1562[59] = Scm_MakeIdentifier(scm__rc.d1562[24], SCM_MODULE(scm__rc.d1562[51]), SCM_NIL); /* gauche#list->vector */
4512 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[160]), scm__rc.d1562[3]);
4513 scm__rc.d1562[60] = Scm_MakeExtendedPair(scm__rc.d1562[56], SCM_OBJ(&scm__rc.d1563[150]), SCM_OBJ(&scm__rc.d1563[161]));
4514 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[162]), scm__rc.d1562[60]);
4515 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1571[1]))->name = scm__rc.d1562[56];/* string->vector */
4516 ((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]))[44] = SCM_WORD(scm__rc.d1562[49]);
4517 ((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]))[51] = SCM_WORD(scm__rc.d1562[58]);
4518 ((ScmWord*)SCM_OBJ(&scm__rc.d1570[55]))[53] = SCM_WORD(scm__rc.d1562[59]);
4519 ScmObj G1577 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1571[1]), NULL);
4520
4521 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[56]) /* string->vector */, G1577,0);
4522
4523 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
4524 scm__rc.d1562[61] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[43])),TRUE); /* make-weak-vector */
4525 scm__rc.d1562[62] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[44])),TRUE); /* size */
4526 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[163]), scm__rc.d1562[62]);
4527 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[166]), scm__rc.d1562[3]);
4528 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[167]), scm__rc.d1562[61]);
4529 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[168]), scm__rc.d1562[44]);
4530 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[169]), scm__rc.d1562[4]);
4531 scm__rc.d1562[63] = Scm_MakeExtendedPair(scm__rc.d1562[61], SCM_OBJ(&scm__rc.d1563[163]), SCM_OBJ(&scm__rc.d1563[171]));
4532 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("make-weak-vector")), SCM_OBJ(&libvecmake_weak_vector__STUB), 0);
4533 libvecmake_weak_vector__STUB.common.info = scm__rc.d1562[63];
4534 scm__rc.d1562[64] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[45])),TRUE); /* weak-vector-length */
4535 scm__rc.d1562[65] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[46])),TRUE); /* wv */
4536 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[172]), scm__rc.d1562[65]);
4537 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[175]), scm__rc.d1562[3]);
4538 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[176]), scm__rc.d1562[64]);
4539 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[177]), scm__rc.d1562[44]);
4540 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[178]), scm__rc.d1562[4]);
4541 scm__rc.d1562[66] = Scm_MakeExtendedPair(scm__rc.d1562[64], SCM_OBJ(&scm__rc.d1563[172]), SCM_OBJ(&scm__rc.d1563[180]));
4542 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("weak-vector-length")), SCM_OBJ(&libvecweak_vector_length__STUB), 0);
4543 libvecweak_vector_length__STUB.common.info = scm__rc.d1562[66];
4544 scm__rc.d1562[67] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[47])),TRUE); /* weak-vector-ref */
4545 scm__rc.d1562[68] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[48])),TRUE); /* index */
4546 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[181]), scm__rc.d1562[68]);
4547 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[182]), scm__rc.d1562[65]);
4548 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[185]), scm__rc.d1562[3]);
4549 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[186]), scm__rc.d1562[67]);
4550 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[187]), scm__rc.d1562[44]);
4551 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[188]), scm__rc.d1562[4]);
4552 scm__rc.d1562[69] = Scm_MakeExtendedPair(scm__rc.d1562[67], SCM_OBJ(&scm__rc.d1563[182]), SCM_OBJ(&scm__rc.d1563[190]));
4553 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("weak-vector-ref")), SCM_OBJ(&libvecweak_vector_ref__STUB), 0);
4554 libvecweak_vector_ref__STUB.common.info = scm__rc.d1562[69];
4555 scm__rc.d1562[70] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[49])),TRUE); /* weak-vector-set! */
4556 scm__rc.d1562[71] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[50])),TRUE); /* val */
4557 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[191]), scm__rc.d1562[71]);
4558 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[192]), scm__rc.d1562[68]);
4559 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[193]), scm__rc.d1562[65]);
4560 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[196]), scm__rc.d1562[3]);
4561 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[197]), scm__rc.d1562[70]);
4562 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[198]), scm__rc.d1562[44]);
4563 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[199]), scm__rc.d1562[4]);
4564 scm__rc.d1562[72] = Scm_MakeExtendedPair(scm__rc.d1562[70], SCM_OBJ(&scm__rc.d1563[193]), SCM_OBJ(&scm__rc.d1563[201]));
4565 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("weak-vector-set!")), SCM_OBJ(&libvecweak_vector_setX__STUB), 0);
4566 libvecweak_vector_setX__STUB.common.info = scm__rc.d1562[72];
4567 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
4568 scm__rc.d1562[73] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[51])),TRUE); /* SCM_UVECTOR_S8 */
4569 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[73]), Scm_MakeInteger(SCM_UVECTOR_S8), SCM_BINDING_CONST);
4570
4571 scm__rc.d1562[74] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[52])),TRUE); /* SCM_UVECTOR_U8 */
4572 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[74]), Scm_MakeInteger(SCM_UVECTOR_U8), SCM_BINDING_CONST);
4573
4574 scm__rc.d1562[75] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[53])),TRUE); /* SCM_UVECTOR_S16 */
4575 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[75]), Scm_MakeInteger(SCM_UVECTOR_S16), SCM_BINDING_CONST);
4576
4577 scm__rc.d1562[76] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[54])),TRUE); /* SCM_UVECTOR_U16 */
4578 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[76]), Scm_MakeInteger(SCM_UVECTOR_U16), SCM_BINDING_CONST);
4579
4580 scm__rc.d1562[77] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[55])),TRUE); /* SCM_UVECTOR_S32 */
4581 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[77]), Scm_MakeInteger(SCM_UVECTOR_S32), SCM_BINDING_CONST);
4582
4583 scm__rc.d1562[78] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[56])),TRUE); /* SCM_UVECTOR_U32 */
4584 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[78]), Scm_MakeInteger(SCM_UVECTOR_U32), SCM_BINDING_CONST);
4585
4586 scm__rc.d1562[79] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[57])),TRUE); /* SCM_UVECTOR_S64 */
4587 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[79]), Scm_MakeInteger(SCM_UVECTOR_S64), SCM_BINDING_CONST);
4588
4589 scm__rc.d1562[80] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[58])),TRUE); /* SCM_UVECTOR_U64 */
4590 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[80]), Scm_MakeInteger(SCM_UVECTOR_U64), SCM_BINDING_CONST);
4591
4592 scm__rc.d1562[81] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[59])),TRUE); /* SCM_UVECTOR_F16 */
4593 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[81]), Scm_MakeInteger(SCM_UVECTOR_F16), SCM_BINDING_CONST);
4594
4595 scm__rc.d1562[82] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[60])),TRUE); /* SCM_UVECTOR_F32 */
4596 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[82]), Scm_MakeInteger(SCM_UVECTOR_F32), SCM_BINDING_CONST);
4597
4598 scm__rc.d1562[83] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[61])),TRUE); /* SCM_UVECTOR_F64 */
4599 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[83]), Scm_MakeInteger(SCM_UVECTOR_F64), SCM_BINDING_CONST);
4600
4601 scm__rc.d1562[84] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[62])),TRUE); /* s8vector-set! */
4602 scm__rc.d1562[85] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[63])),TRUE); /* i */
4603 scm__rc.d1562[86] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[64])),TRUE); /* clamp */
4604 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[202]), scm__rc.d1562[86]);
4605 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[203]), scm__rc.d1562[15]);
4606 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[204]), scm__rc.d1562[71]);
4607 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[205]), scm__rc.d1562[85]);
4608 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[206]), scm__rc.d1562[31]);
4609 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[209]), scm__rc.d1562[3]);
4610 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[210]), scm__rc.d1562[84]);
4611 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[211]), scm__rc.d1562[44]);
4612 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[212]), scm__rc.d1562[4]);
4613 scm__rc.d1562[87] = Scm_MakeExtendedPair(scm__rc.d1562[84], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[214]));
4614 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s8vector-set!")), SCM_OBJ(&libvecs8vector_setX__STUB), 0);
4615 libvecs8vector_setX__STUB.common.info = scm__rc.d1562[87];
4616 scm__rc.d1562[88] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[65])),TRUE); /* s8vector-ref */
4617 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[215]), scm__rc.d1562[85]);
4618 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[216]), scm__rc.d1562[31]);
4619 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[219]), scm__rc.d1562[3]);
4620 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[220]), scm__rc.d1562[88]);
4621 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[221]), scm__rc.d1562[44]);
4622 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[222]), scm__rc.d1562[4]);
4623 scm__rc.d1562[89] = Scm_MakeExtendedPair(scm__rc.d1562[88], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[224]));
4624 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s8vector-ref")), SCM_OBJ(&libvecs8vector_ref__STUB), 0);
4625 libvecs8vector_ref__STUB.common.info = scm__rc.d1562[89];
4626 Scm_SetterSet(SCM_PROCEDURE(&libvecs8vector_ref__STUB), SCM_PROCEDURE(&libvecs8vector_setX__STUB), TRUE);
4627 scm__rc.d1562[90] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[66])),TRUE); /* u8vector-set! */
4628 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[227]), scm__rc.d1562[3]);
4629 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[228]), scm__rc.d1562[90]);
4630 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[229]), scm__rc.d1562[44]);
4631 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[230]), scm__rc.d1562[4]);
4632 scm__rc.d1562[91] = Scm_MakeExtendedPair(scm__rc.d1562[90], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[232]));
4633 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u8vector-set!")), SCM_OBJ(&libvecu8vector_setX__STUB), 0);
4634 libvecu8vector_setX__STUB.common.info = scm__rc.d1562[91];
4635 scm__rc.d1562[92] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[67])),TRUE); /* u8vector-ref */
4636 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[235]), scm__rc.d1562[3]);
4637 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[236]), scm__rc.d1562[92]);
4638 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[237]), scm__rc.d1562[44]);
4639 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[238]), scm__rc.d1562[4]);
4640 scm__rc.d1562[93] = Scm_MakeExtendedPair(scm__rc.d1562[92], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[240]));
4641 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u8vector-ref")), SCM_OBJ(&libvecu8vector_ref__STUB), 0);
4642 libvecu8vector_ref__STUB.common.info = scm__rc.d1562[93];
4643 Scm_SetterSet(SCM_PROCEDURE(&libvecu8vector_ref__STUB), SCM_PROCEDURE(&libvecu8vector_setX__STUB), TRUE);
4644 scm__rc.d1562[94] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[68])),TRUE); /* s16vector-set! */
4645 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[243]), scm__rc.d1562[3]);
4646 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[244]), scm__rc.d1562[94]);
4647 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[245]), scm__rc.d1562[44]);
4648 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[246]), scm__rc.d1562[4]);
4649 scm__rc.d1562[95] = Scm_MakeExtendedPair(scm__rc.d1562[94], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[248]));
4650 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s16vector-set!")), SCM_OBJ(&libvecs16vector_setX__STUB), 0);
4651 libvecs16vector_setX__STUB.common.info = scm__rc.d1562[95];
4652 scm__rc.d1562[96] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[69])),TRUE); /* s16vector-ref */
4653 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[251]), scm__rc.d1562[3]);
4654 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[252]), scm__rc.d1562[96]);
4655 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[253]), scm__rc.d1562[44]);
4656 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[254]), scm__rc.d1562[4]);
4657 scm__rc.d1562[97] = Scm_MakeExtendedPair(scm__rc.d1562[96], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[256]));
4658 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s16vector-ref")), SCM_OBJ(&libvecs16vector_ref__STUB), 0);
4659 libvecs16vector_ref__STUB.common.info = scm__rc.d1562[97];
4660 Scm_SetterSet(SCM_PROCEDURE(&libvecs16vector_ref__STUB), SCM_PROCEDURE(&libvecs16vector_setX__STUB), TRUE);
4661 scm__rc.d1562[98] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[70])),TRUE); /* u16vector-set! */
4662 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[259]), scm__rc.d1562[3]);
4663 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[260]), scm__rc.d1562[98]);
4664 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[261]), scm__rc.d1562[44]);
4665 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[262]), scm__rc.d1562[4]);
4666 scm__rc.d1562[99] = Scm_MakeExtendedPair(scm__rc.d1562[98], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[264]));
4667 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u16vector-set!")), SCM_OBJ(&libvecu16vector_setX__STUB), 0);
4668 libvecu16vector_setX__STUB.common.info = scm__rc.d1562[99];
4669 scm__rc.d1562[100] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[71])),TRUE); /* u16vector-ref */
4670 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[267]), scm__rc.d1562[3]);
4671 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[268]), scm__rc.d1562[100]);
4672 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[269]), scm__rc.d1562[44]);
4673 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[270]), scm__rc.d1562[4]);
4674 scm__rc.d1562[101] = Scm_MakeExtendedPair(scm__rc.d1562[100], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[272]));
4675 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u16vector-ref")), SCM_OBJ(&libvecu16vector_ref__STUB), 0);
4676 libvecu16vector_ref__STUB.common.info = scm__rc.d1562[101];
4677 Scm_SetterSet(SCM_PROCEDURE(&libvecu16vector_ref__STUB), SCM_PROCEDURE(&libvecu16vector_setX__STUB), TRUE);
4678 scm__rc.d1562[102] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[72])),TRUE); /* s32vector-set! */
4679 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[275]), scm__rc.d1562[3]);
4680 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[276]), scm__rc.d1562[102]);
4681 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[277]), scm__rc.d1562[44]);
4682 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[278]), scm__rc.d1562[4]);
4683 scm__rc.d1562[103] = Scm_MakeExtendedPair(scm__rc.d1562[102], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[280]));
4684 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s32vector-set!")), SCM_OBJ(&libvecs32vector_setX__STUB), 0);
4685 libvecs32vector_setX__STUB.common.info = scm__rc.d1562[103];
4686 scm__rc.d1562[104] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[73])),TRUE); /* s32vector-ref */
4687 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[283]), scm__rc.d1562[3]);
4688 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[284]), scm__rc.d1562[104]);
4689 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[285]), scm__rc.d1562[44]);
4690 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[286]), scm__rc.d1562[4]);
4691 scm__rc.d1562[105] = Scm_MakeExtendedPair(scm__rc.d1562[104], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[288]));
4692 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s32vector-ref")), SCM_OBJ(&libvecs32vector_ref__STUB), 0);
4693 libvecs32vector_ref__STUB.common.info = scm__rc.d1562[105];
4694 Scm_SetterSet(SCM_PROCEDURE(&libvecs32vector_ref__STUB), SCM_PROCEDURE(&libvecs32vector_setX__STUB), TRUE);
4695 scm__rc.d1562[106] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[74])),TRUE); /* u32vector-set! */
4696 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[291]), scm__rc.d1562[3]);
4697 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[292]), scm__rc.d1562[106]);
4698 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[293]), scm__rc.d1562[44]);
4699 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[294]), scm__rc.d1562[4]);
4700 scm__rc.d1562[107] = Scm_MakeExtendedPair(scm__rc.d1562[106], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[296]));
4701 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u32vector-set!")), SCM_OBJ(&libvecu32vector_setX__STUB), 0);
4702 libvecu32vector_setX__STUB.common.info = scm__rc.d1562[107];
4703 scm__rc.d1562[108] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[75])),TRUE); /* u32vector-ref */
4704 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[299]), scm__rc.d1562[3]);
4705 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[300]), scm__rc.d1562[108]);
4706 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[301]), scm__rc.d1562[44]);
4707 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[302]), scm__rc.d1562[4]);
4708 scm__rc.d1562[109] = Scm_MakeExtendedPair(scm__rc.d1562[108], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[304]));
4709 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u32vector-ref")), SCM_OBJ(&libvecu32vector_ref__STUB), 0);
4710 libvecu32vector_ref__STUB.common.info = scm__rc.d1562[109];
4711 Scm_SetterSet(SCM_PROCEDURE(&libvecu32vector_ref__STUB), SCM_PROCEDURE(&libvecu32vector_setX__STUB), TRUE);
4712 scm__rc.d1562[110] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[76])),TRUE); /* s64vector-set! */
4713 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[307]), scm__rc.d1562[3]);
4714 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[308]), scm__rc.d1562[110]);
4715 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[309]), scm__rc.d1562[44]);
4716 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[310]), scm__rc.d1562[4]);
4717 scm__rc.d1562[111] = Scm_MakeExtendedPair(scm__rc.d1562[110], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[312]));
4718 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s64vector-set!")), SCM_OBJ(&libvecs64vector_setX__STUB), 0);
4719 libvecs64vector_setX__STUB.common.info = scm__rc.d1562[111];
4720 scm__rc.d1562[112] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[77])),TRUE); /* s64vector-ref */
4721 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[315]), scm__rc.d1562[3]);
4722 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[316]), scm__rc.d1562[112]);
4723 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[317]), scm__rc.d1562[44]);
4724 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[318]), scm__rc.d1562[4]);
4725 scm__rc.d1562[113] = Scm_MakeExtendedPair(scm__rc.d1562[112], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[320]));
4726 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s64vector-ref")), SCM_OBJ(&libvecs64vector_ref__STUB), 0);
4727 libvecs64vector_ref__STUB.common.info = scm__rc.d1562[113];
4728 Scm_SetterSet(SCM_PROCEDURE(&libvecs64vector_ref__STUB), SCM_PROCEDURE(&libvecs64vector_setX__STUB), TRUE);
4729 scm__rc.d1562[114] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[78])),TRUE); /* u64vector-set! */
4730 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[323]), scm__rc.d1562[3]);
4731 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[324]), scm__rc.d1562[114]);
4732 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[325]), scm__rc.d1562[44]);
4733 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[326]), scm__rc.d1562[4]);
4734 scm__rc.d1562[115] = Scm_MakeExtendedPair(scm__rc.d1562[114], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[328]));
4735 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u64vector-set!")), SCM_OBJ(&libvecu64vector_setX__STUB), 0);
4736 libvecu64vector_setX__STUB.common.info = scm__rc.d1562[115];
4737 scm__rc.d1562[116] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[79])),TRUE); /* u64vector-ref */
4738 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[331]), scm__rc.d1562[3]);
4739 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[332]), scm__rc.d1562[116]);
4740 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[333]), scm__rc.d1562[44]);
4741 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[334]), scm__rc.d1562[4]);
4742 scm__rc.d1562[117] = Scm_MakeExtendedPair(scm__rc.d1562[116], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[336]));
4743 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u64vector-ref")), SCM_OBJ(&libvecu64vector_ref__STUB), 0);
4744 libvecu64vector_ref__STUB.common.info = scm__rc.d1562[117];
4745 Scm_SetterSet(SCM_PROCEDURE(&libvecu64vector_ref__STUB), SCM_PROCEDURE(&libvecu64vector_setX__STUB), TRUE);
4746 scm__rc.d1562[118] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[80])),TRUE); /* f16vector-set! */
4747 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[339]), scm__rc.d1562[3]);
4748 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[340]), scm__rc.d1562[118]);
4749 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[341]), scm__rc.d1562[44]);
4750 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[342]), scm__rc.d1562[4]);
4751 scm__rc.d1562[119] = Scm_MakeExtendedPair(scm__rc.d1562[118], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[344]));
4752 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("f16vector-set!")), SCM_OBJ(&libvecf16vector_setX__STUB), 0);
4753 libvecf16vector_setX__STUB.common.info = scm__rc.d1562[119];
4754 scm__rc.d1562[120] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[81])),TRUE); /* f16vector-ref */
4755 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[347]), scm__rc.d1562[3]);
4756 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[348]), scm__rc.d1562[120]);
4757 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[349]), scm__rc.d1562[44]);
4758 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[350]), scm__rc.d1562[4]);
4759 scm__rc.d1562[121] = Scm_MakeExtendedPair(scm__rc.d1562[120], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[352]));
4760 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("f16vector-ref")), SCM_OBJ(&libvecf16vector_ref__STUB), 0);
4761 libvecf16vector_ref__STUB.common.info = scm__rc.d1562[121];
4762 Scm_SetterSet(SCM_PROCEDURE(&libvecf16vector_ref__STUB), SCM_PROCEDURE(&libvecf16vector_setX__STUB), TRUE);
4763 scm__rc.d1562[122] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[82])),TRUE); /* f32vector-set! */
4764 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[355]), scm__rc.d1562[3]);
4765 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[356]), scm__rc.d1562[122]);
4766 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[357]), scm__rc.d1562[44]);
4767 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[358]), scm__rc.d1562[4]);
4768 scm__rc.d1562[123] = Scm_MakeExtendedPair(scm__rc.d1562[122], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[360]));
4769 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("f32vector-set!")), SCM_OBJ(&libvecf32vector_setX__STUB), 0);
4770 libvecf32vector_setX__STUB.common.info = scm__rc.d1562[123];
4771 scm__rc.d1562[124] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[83])),TRUE); /* f32vector-ref */
4772 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[363]), scm__rc.d1562[3]);
4773 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[364]), scm__rc.d1562[124]);
4774 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[365]), scm__rc.d1562[44]);
4775 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[366]), scm__rc.d1562[4]);
4776 scm__rc.d1562[125] = Scm_MakeExtendedPair(scm__rc.d1562[124], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[368]));
4777 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("f32vector-ref")), SCM_OBJ(&libvecf32vector_ref__STUB), 0);
4778 libvecf32vector_ref__STUB.common.info = scm__rc.d1562[125];
4779 Scm_SetterSet(SCM_PROCEDURE(&libvecf32vector_ref__STUB), SCM_PROCEDURE(&libvecf32vector_setX__STUB), TRUE);
4780 scm__rc.d1562[126] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[84])),TRUE); /* f64vector-set! */
4781 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[371]), scm__rc.d1562[3]);
4782 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[372]), scm__rc.d1562[126]);
4783 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[373]), scm__rc.d1562[44]);
4784 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[374]), scm__rc.d1562[4]);
4785 scm__rc.d1562[127] = Scm_MakeExtendedPair(scm__rc.d1562[126], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[376]));
4786 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("f64vector-set!")), SCM_OBJ(&libvecf64vector_setX__STUB), 0);
4787 libvecf64vector_setX__STUB.common.info = scm__rc.d1562[127];
4788 scm__rc.d1562[128] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[85])),TRUE); /* f64vector-ref */
4789 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[379]), scm__rc.d1562[3]);
4790 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[380]), scm__rc.d1562[128]);
4791 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[381]), scm__rc.d1562[44]);
4792 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[382]), scm__rc.d1562[4]);
4793 scm__rc.d1562[129] = Scm_MakeExtendedPair(scm__rc.d1562[128], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[384]));
4794 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("f64vector-ref")), SCM_OBJ(&libvecf64vector_ref__STUB), 0);
4795 libvecf64vector_ref__STUB.common.info = scm__rc.d1562[129];
4796 Scm_SetterSet(SCM_PROCEDURE(&libvecf64vector_ref__STUB), SCM_PROCEDURE(&libvecf64vector_setX__STUB), TRUE);
4797 scm__rc.d1562[130] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[86])),TRUE); /* c32vector-set! */
4798 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[387]), scm__rc.d1562[3]);
4799 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[388]), scm__rc.d1562[130]);
4800 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[389]), scm__rc.d1562[44]);
4801 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[390]), scm__rc.d1562[4]);
4802 scm__rc.d1562[131] = Scm_MakeExtendedPair(scm__rc.d1562[130], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[392]));
4803 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("c32vector-set!")), SCM_OBJ(&libvecc32vector_setX__STUB), 0);
4804 libvecc32vector_setX__STUB.common.info = scm__rc.d1562[131];
4805 scm__rc.d1562[132] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[87])),TRUE); /* c32vector-ref */
4806 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[395]), scm__rc.d1562[3]);
4807 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[396]), scm__rc.d1562[132]);
4808 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[397]), scm__rc.d1562[44]);
4809 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[398]), scm__rc.d1562[4]);
4810 scm__rc.d1562[133] = Scm_MakeExtendedPair(scm__rc.d1562[132], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[400]));
4811 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("c32vector-ref")), SCM_OBJ(&libvecc32vector_ref__STUB), 0);
4812 libvecc32vector_ref__STUB.common.info = scm__rc.d1562[133];
4813 Scm_SetterSet(SCM_PROCEDURE(&libvecc32vector_ref__STUB), SCM_PROCEDURE(&libvecc32vector_setX__STUB), TRUE);
4814 scm__rc.d1562[134] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[88])),TRUE); /* c64vector-set! */
4815 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[403]), scm__rc.d1562[3]);
4816 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[404]), scm__rc.d1562[134]);
4817 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[405]), scm__rc.d1562[44]);
4818 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[406]), scm__rc.d1562[4]);
4819 scm__rc.d1562[135] = Scm_MakeExtendedPair(scm__rc.d1562[134], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[408]));
4820 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("c64vector-set!")), SCM_OBJ(&libvecc64vector_setX__STUB), 0);
4821 libvecc64vector_setX__STUB.common.info = scm__rc.d1562[135];
4822 scm__rc.d1562[136] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[89])),TRUE); /* c64vector-ref */
4823 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[411]), scm__rc.d1562[3]);
4824 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[412]), scm__rc.d1562[136]);
4825 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[413]), scm__rc.d1562[44]);
4826 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[414]), scm__rc.d1562[4]);
4827 scm__rc.d1562[137] = Scm_MakeExtendedPair(scm__rc.d1562[136], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[416]));
4828 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("c64vector-ref")), SCM_OBJ(&libvecc64vector_ref__STUB), 0);
4829 libvecc64vector_ref__STUB.common.info = scm__rc.d1562[137];
4830 Scm_SetterSet(SCM_PROCEDURE(&libvecc64vector_ref__STUB), SCM_PROCEDURE(&libvecc64vector_setX__STUB), TRUE);
4831 scm__rc.d1562[138] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[90])),TRUE); /* c128vector-set! */
4832 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[419]), scm__rc.d1562[3]);
4833 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[420]), scm__rc.d1562[138]);
4834 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[421]), scm__rc.d1562[44]);
4835 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[422]), scm__rc.d1562[4]);
4836 scm__rc.d1562[139] = Scm_MakeExtendedPair(scm__rc.d1562[138], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[424]));
4837 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("c128vector-set!")), SCM_OBJ(&libvecc128vector_setX__STUB), 0);
4838 libvecc128vector_setX__STUB.common.info = scm__rc.d1562[139];
4839 scm__rc.d1562[140] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[91])),TRUE); /* c128vector-ref */
4840 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[427]), scm__rc.d1562[3]);
4841 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[428]), scm__rc.d1562[140]);
4842 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[429]), scm__rc.d1562[44]);
4843 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[430]), scm__rc.d1562[4]);
4844 scm__rc.d1562[141] = Scm_MakeExtendedPair(scm__rc.d1562[140], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[432]));
4845 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("c128vector-ref")), SCM_OBJ(&libvecc128vector_ref__STUB), 0);
4846 libvecc128vector_ref__STUB.common.info = scm__rc.d1562[141];
4847 Scm_SetterSet(SCM_PROCEDURE(&libvecc128vector_ref__STUB), SCM_PROCEDURE(&libvecc128vector_setX__STUB), TRUE);
4848 scm__rc.d1562[142] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[92])),TRUE); /* uvector-set! */
4849 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[435]), scm__rc.d1562[3]);
4850 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[436]), scm__rc.d1562[142]);
4851 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[437]), scm__rc.d1562[44]);
4852 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[438]), scm__rc.d1562[4]);
4853 scm__rc.d1562[143] = Scm_MakeExtendedPair(scm__rc.d1562[142], SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[440]));
4854 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("uvector-set!")), SCM_OBJ(&libvecuvector_setX__STUB), 0);
4855 libvecuvector_setX__STUB.common.info = scm__rc.d1562[143];
4856 scm__rc.d1562[144] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[93])),TRUE); /* uvector-ref */
4857 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[443]), scm__rc.d1562[3]);
4858 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[444]), scm__rc.d1562[144]);
4859 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[445]), scm__rc.d1562[44]);
4860 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[446]), scm__rc.d1562[4]);
4861 scm__rc.d1562[145] = Scm_MakeExtendedPair(scm__rc.d1562[144], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[448]));
4862 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("uvector-ref")), SCM_OBJ(&libvecuvector_ref__STUB), 0);
4863 libvecuvector_ref__STUB.common.info = scm__rc.d1562[145];
4864 Scm_SetterSet(SCM_PROCEDURE(&libvecuvector_ref__STUB), SCM_PROCEDURE(&libvecuvector_setX__STUB), TRUE);
4865 scm__rc.d1562[146] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[94])),TRUE); /* uvector-length */
4866 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[451]), scm__rc.d1562[3]);
4867 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[452]), scm__rc.d1562[146]);
4868 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[453]), scm__rc.d1562[44]);
4869 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[454]), scm__rc.d1562[4]);
4870 scm__rc.d1562[147] = Scm_MakeExtendedPair(scm__rc.d1562[146], SCM_OBJ(&scm__rc.d1563[119]), SCM_OBJ(&scm__rc.d1563[456]));
4871 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("uvector-length")), SCM_OBJ(&libvecuvector_length__STUB), SCM_BINDING_INLINABLE);
4872 libvecuvector_length__STUB.common.info = scm__rc.d1562[147];
4873 scm__rc.d1562[148] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[95])),TRUE); /* uvector-immutable? */
4874 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[459]), scm__rc.d1562[3]);
4875 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[460]), scm__rc.d1562[148]);
4876 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[461]), scm__rc.d1562[44]);
4877 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[462]), scm__rc.d1562[4]);
4878 scm__rc.d1562[149] = Scm_MakeExtendedPair(scm__rc.d1562[148], SCM_OBJ(&scm__rc.d1563[119]), SCM_OBJ(&scm__rc.d1563[464]));
4879 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("uvector-immutable?")), SCM_OBJ(&libvecuvector_immutableP__STUB), 0);
4880 libvecuvector_immutableP__STUB.common.info = scm__rc.d1562[149];
4881 scm__rc.d1562[150] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[96])),TRUE); /* uvector? */
4882 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[467]), scm__rc.d1562[3]);
4883 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[468]), scm__rc.d1562[150]);
4884 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[469]), scm__rc.d1562[44]);
4885 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[470]), scm__rc.d1562[4]);
4886 scm__rc.d1562[151] = Scm_MakeExtendedPair(scm__rc.d1562[150], SCM_OBJ(&scm__rc.d1563[11]), SCM_OBJ(&scm__rc.d1563[472]));
4887 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("uvector?")), SCM_OBJ(&libvecuvectorP__STUB), SCM_BINDING_INLINABLE);
4888 libvecuvectorP__STUB.common.info = scm__rc.d1562[151];
4889 scm__rc.d1562[152] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[97])),TRUE); /* u8vector? */
4890 scm__rc.d1562[153] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[98])),TRUE); /* x */
4891 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[473]), scm__rc.d1562[153]);
4892 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[476]), scm__rc.d1562[3]);
4893 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[477]), scm__rc.d1562[152]);
4894 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[478]), scm__rc.d1562[44]);
4895 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[479]), scm__rc.d1562[4]);
4896 scm__rc.d1562[154] = Scm_MakeExtendedPair(scm__rc.d1562[152], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[481]));
4897 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u8vector?")), SCM_OBJ(&libvecu8vectorP__STUB), 0);
4898 libvecu8vectorP__STUB.common.info = scm__rc.d1562[154];
4899 scm__rc.d1562[155] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[99])),TRUE); /* s8vector? */
4900 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[484]), scm__rc.d1562[3]);
4901 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[485]), scm__rc.d1562[155]);
4902 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[486]), scm__rc.d1562[44]);
4903 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[487]), scm__rc.d1562[4]);
4904 scm__rc.d1562[156] = Scm_MakeExtendedPair(scm__rc.d1562[155], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[489]));
4905 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s8vector?")), SCM_OBJ(&libvecs8vectorP__STUB), 0);
4906 libvecs8vectorP__STUB.common.info = scm__rc.d1562[156];
4907 scm__rc.d1562[157] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[100])),TRUE); /* u16vector? */
4908 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[492]), scm__rc.d1562[3]);
4909 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[493]), scm__rc.d1562[157]);
4910 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[494]), scm__rc.d1562[44]);
4911 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[495]), scm__rc.d1562[4]);
4912 scm__rc.d1562[158] = Scm_MakeExtendedPair(scm__rc.d1562[157], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[497]));
4913 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u16vector?")), SCM_OBJ(&libvecu16vectorP__STUB), 0);
4914 libvecu16vectorP__STUB.common.info = scm__rc.d1562[158];
4915 scm__rc.d1562[159] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[101])),TRUE); /* s16vector? */
4916 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[500]), scm__rc.d1562[3]);
4917 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[501]), scm__rc.d1562[159]);
4918 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[502]), scm__rc.d1562[44]);
4919 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[503]), scm__rc.d1562[4]);
4920 scm__rc.d1562[160] = Scm_MakeExtendedPair(scm__rc.d1562[159], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[505]));
4921 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s16vector?")), SCM_OBJ(&libvecs16vectorP__STUB), 0);
4922 libvecs16vectorP__STUB.common.info = scm__rc.d1562[160];
4923 scm__rc.d1562[161] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[102])),TRUE); /* u32vector? */
4924 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[508]), scm__rc.d1562[3]);
4925 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[509]), scm__rc.d1562[161]);
4926 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[510]), scm__rc.d1562[44]);
4927 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[511]), scm__rc.d1562[4]);
4928 scm__rc.d1562[162] = Scm_MakeExtendedPair(scm__rc.d1562[161], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[513]));
4929 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u32vector?")), SCM_OBJ(&libvecu32vectorP__STUB), 0);
4930 libvecu32vectorP__STUB.common.info = scm__rc.d1562[162];
4931 scm__rc.d1562[163] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[103])),TRUE); /* s32vector? */
4932 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[516]), scm__rc.d1562[3]);
4933 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[517]), scm__rc.d1562[163]);
4934 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[518]), scm__rc.d1562[44]);
4935 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[519]), scm__rc.d1562[4]);
4936 scm__rc.d1562[164] = Scm_MakeExtendedPair(scm__rc.d1562[163], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[521]));
4937 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s32vector?")), SCM_OBJ(&libvecs32vectorP__STUB), 0);
4938 libvecs32vectorP__STUB.common.info = scm__rc.d1562[164];
4939 scm__rc.d1562[165] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[104])),TRUE); /* u64vector? */
4940 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[524]), scm__rc.d1562[3]);
4941 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[525]), scm__rc.d1562[165]);
4942 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[526]), scm__rc.d1562[44]);
4943 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[527]), scm__rc.d1562[4]);
4944 scm__rc.d1562[166] = Scm_MakeExtendedPair(scm__rc.d1562[165], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[529]));
4945 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("u64vector?")), SCM_OBJ(&libvecu64vectorP__STUB), 0);
4946 libvecu64vectorP__STUB.common.info = scm__rc.d1562[166];
4947 scm__rc.d1562[167] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[105])),TRUE); /* s64vector? */
4948 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[532]), scm__rc.d1562[3]);
4949 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[533]), scm__rc.d1562[167]);
4950 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[534]), scm__rc.d1562[44]);
4951 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[535]), scm__rc.d1562[4]);
4952 scm__rc.d1562[168] = Scm_MakeExtendedPair(scm__rc.d1562[167], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[537]));
4953 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("s64vector?")), SCM_OBJ(&libvecs64vectorP__STUB), 0);
4954 libvecs64vectorP__STUB.common.info = scm__rc.d1562[168];
4955 scm__rc.d1562[169] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[106])),TRUE); /* f16vector? */
4956 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[540]), scm__rc.d1562[3]);
4957 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[541]), scm__rc.d1562[169]);
4958 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[542]), scm__rc.d1562[44]);
4959 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[543]), scm__rc.d1562[4]);
4960 scm__rc.d1562[170] = Scm_MakeExtendedPair(scm__rc.d1562[169], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[545]));
4961 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("f16vector?")), SCM_OBJ(&libvecf16vectorP__STUB), 0);
4962 libvecf16vectorP__STUB.common.info = scm__rc.d1562[170];
4963 scm__rc.d1562[171] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[107])),TRUE); /* f32vector? */
4964 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[548]), scm__rc.d1562[3]);
4965 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[549]), scm__rc.d1562[171]);
4966 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[550]), scm__rc.d1562[44]);
4967 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[551]), scm__rc.d1562[4]);
4968 scm__rc.d1562[172] = Scm_MakeExtendedPair(scm__rc.d1562[171], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[553]));
4969 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("f32vector?")), SCM_OBJ(&libvecf32vectorP__STUB), 0);
4970 libvecf32vectorP__STUB.common.info = scm__rc.d1562[172];
4971 scm__rc.d1562[173] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[108])),TRUE); /* f64vector? */
4972 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[556]), scm__rc.d1562[3]);
4973 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[557]), scm__rc.d1562[173]);
4974 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[558]), scm__rc.d1562[44]);
4975 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[559]), scm__rc.d1562[4]);
4976 scm__rc.d1562[174] = Scm_MakeExtendedPair(scm__rc.d1562[173], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[561]));
4977 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("f64vector?")), SCM_OBJ(&libvecf64vectorP__STUB), 0);
4978 libvecf64vectorP__STUB.common.info = scm__rc.d1562[174];
4979 scm__rc.d1562[175] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[109])),TRUE); /* c32vector? */
4980 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[564]), scm__rc.d1562[3]);
4981 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[565]), scm__rc.d1562[175]);
4982 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[566]), scm__rc.d1562[44]);
4983 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[567]), scm__rc.d1562[4]);
4984 scm__rc.d1562[176] = Scm_MakeExtendedPair(scm__rc.d1562[175], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[569]));
4985 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("c32vector?")), SCM_OBJ(&libvecc32vectorP__STUB), 0);
4986 libvecc32vectorP__STUB.common.info = scm__rc.d1562[176];
4987 scm__rc.d1562[177] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[110])),TRUE); /* c64vector? */
4988 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[572]), scm__rc.d1562[3]);
4989 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[573]), scm__rc.d1562[177]);
4990 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[574]), scm__rc.d1562[44]);
4991 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[575]), scm__rc.d1562[4]);
4992 scm__rc.d1562[178] = Scm_MakeExtendedPair(scm__rc.d1562[177], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[577]));
4993 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("c64vector?")), SCM_OBJ(&libvecc64vectorP__STUB), 0);
4994 libvecc64vectorP__STUB.common.info = scm__rc.d1562[178];
4995 scm__rc.d1562[179] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[111])),TRUE); /* c128vector? */
4996 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[580]), scm__rc.d1562[3]);
4997 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[581]), scm__rc.d1562[179]);
4998 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[582]), scm__rc.d1562[44]);
4999 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[583]), scm__rc.d1562[4]);
5000 scm__rc.d1562[180] = Scm_MakeExtendedPair(scm__rc.d1562[179], SCM_OBJ(&scm__rc.d1563[473]), SCM_OBJ(&scm__rc.d1563[585]));
5001 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("c128vector?")), SCM_OBJ(&libvecc128vectorP__STUB), 0);
5002 libvecc128vectorP__STUB.common.info = scm__rc.d1562[180];
5003 scm__rc.d1562[181] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[112])),TRUE); /* bitvector? */
5004 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[588]), scm__rc.d1562[3]);
5005 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[589]), scm__rc.d1562[181]);
5006 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[590]), scm__rc.d1562[44]);
5007 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[591]), scm__rc.d1562[4]);
5008 scm__rc.d1562[182] = Scm_MakeExtendedPair(scm__rc.d1562[181], SCM_OBJ(&scm__rc.d1563[11]), SCM_OBJ(&scm__rc.d1563[593]));
5009 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bitvector?")), SCM_OBJ(&libvecbitvectorP__STUB), 0);
5010 libvecbitvectorP__STUB.common.info = scm__rc.d1562[182];
5011 scm__rc.d1562[183] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[113])),TRUE); /* bitvector-length */
5012 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[596]), scm__rc.d1562[3]);
5013 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[597]), scm__rc.d1562[183]);
5014 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[598]), scm__rc.d1562[44]);
5015 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[599]), scm__rc.d1562[4]);
5016 scm__rc.d1562[184] = Scm_MakeExtendedPair(scm__rc.d1562[183], SCM_OBJ(&scm__rc.d1563[119]), SCM_OBJ(&scm__rc.d1563[601]));
5017 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bitvector-length")), SCM_OBJ(&libvecbitvector_length__STUB), 0);
5018 libvecbitvector_length__STUB.common.info = scm__rc.d1562[184];
5019 scm__rc.d1562[185] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[114])),TRUE); /* make-bitvector */
5020 scm__rc.d1562[186] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[115])),TRUE); /* len */
5021 scm__rc.d1562[187] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[116])),TRUE); /* init */
5022 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[602]), scm__rc.d1562[187]);
5023 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[603]), scm__rc.d1562[15]);
5024 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[604]), scm__rc.d1562[186]);
5025 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[607]), scm__rc.d1562[3]);
5026 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[608]), scm__rc.d1562[185]);
5027 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[609]), scm__rc.d1562[44]);
5028 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[610]), scm__rc.d1562[4]);
5029 scm__rc.d1562[188] = Scm_MakeExtendedPair(scm__rc.d1562[185], SCM_OBJ(&scm__rc.d1563[604]), SCM_OBJ(&scm__rc.d1563[612]));
5030 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("make-bitvector")), SCM_OBJ(&libvecmake_bitvector__STUB), 0);
5031 libvecmake_bitvector__STUB.common.info = scm__rc.d1562[188];
5032 scm__rc.d1562[189] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[117])),TRUE); /* bitvector */
5033 scm__rc.d1562[190] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[118])),TRUE); /* bits */
5034 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[613]), scm__rc.d1562[190]);
5035 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[614]), scm__rc.d1562[1]);
5036 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[617]), scm__rc.d1562[3]);
5037 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[618]), scm__rc.d1562[189]);
5038 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[619]), scm__rc.d1562[44]);
5039 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[620]), scm__rc.d1562[4]);
5040 scm__rc.d1562[191] = Scm_MakeExtendedPair(scm__rc.d1562[189], SCM_OBJ(&scm__rc.d1563[614]), SCM_OBJ(&scm__rc.d1563[622]));
5041 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bitvector")), SCM_OBJ(&libvecbitvector__STUB), 0);
5042 libvecbitvector__STUB.common.info = scm__rc.d1562[191];
5043 scm__rc.d1562[192] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[119])),TRUE); /* list->bitvector */
5044 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[625]), scm__rc.d1562[3]);
5045 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[626]), scm__rc.d1562[192]);
5046 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[627]), scm__rc.d1562[44]);
5047 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[628]), scm__rc.d1562[4]);
5048 scm__rc.d1562[193] = Scm_MakeExtendedPair(scm__rc.d1562[192], SCM_OBJ(&scm__rc.d1563[613]), SCM_OBJ(&scm__rc.d1563[630]));
5049 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("list->bitvector")), SCM_OBJ(&libveclist_TObitvector__STUB), 0);
5050 libveclist_TObitvector__STUB.common.info = scm__rc.d1562[193];
5051 scm__rc.d1562[194] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[120])),TRUE); /* string->bitvector */
5052 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[631]), scm__rc.d1562[36]);
5053 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[634]), scm__rc.d1562[3]);
5054 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[635]), scm__rc.d1562[194]);
5055 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[636]), scm__rc.d1562[44]);
5056 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[637]), scm__rc.d1562[4]);
5057 scm__rc.d1562[195] = Scm_MakeExtendedPair(scm__rc.d1562[194], SCM_OBJ(&scm__rc.d1563[631]), SCM_OBJ(&scm__rc.d1563[639]));
5058 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string->bitvector")), SCM_OBJ(&libvecstring_TObitvector__STUB), 0);
5059 libvecstring_TObitvector__STUB.common.info = scm__rc.d1562[195];
5060 scm__rc.d1562[196] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[121])),TRUE); /* bitvector->string */
5061 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[642]), scm__rc.d1562[3]);
5062 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[643]), scm__rc.d1562[196]);
5063 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[644]), scm__rc.d1562[44]);
5064 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[645]), scm__rc.d1562[4]);
5065 scm__rc.d1562[197] = Scm_MakeExtendedPair(scm__rc.d1562[196], SCM_OBJ(&scm__rc.d1563[119]), SCM_OBJ(&scm__rc.d1563[647]));
5066 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bitvector->string")), SCM_OBJ(&libvecbitvector_TOstring__STUB), 0);
5067 libvecbitvector_TOstring__STUB.common.info = scm__rc.d1562[197];
5068 scm__rc.d1562[198] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[122])),TRUE); /* bit->integer */
5069 scm__rc.d1562[199] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[123])),TRUE); /* bit */
5070 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[648]), scm__rc.d1562[199]);
5071 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[651]), scm__rc.d1562[3]);
5072 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[652]), scm__rc.d1562[198]);
5073 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[653]), scm__rc.d1562[44]);
5074 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[654]), scm__rc.d1562[4]);
5075 scm__rc.d1562[200] = Scm_MakeExtendedPair(scm__rc.d1562[198], SCM_OBJ(&scm__rc.d1563[648]), SCM_OBJ(&scm__rc.d1563[656]));
5076 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bit->integer")), SCM_OBJ(&libvecbit_TOinteger__STUB), 0);
5077 libvecbit_TOinteger__STUB.common.info = scm__rc.d1562[200];
5078 scm__rc.d1562[201] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[124])),TRUE); /* bit->boolean */
5079 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[659]), scm__rc.d1562[3]);
5080 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[660]), scm__rc.d1562[201]);
5081 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[661]), scm__rc.d1562[44]);
5082 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[662]), scm__rc.d1562[4]);
5083 scm__rc.d1562[202] = Scm_MakeExtendedPair(scm__rc.d1562[201], SCM_OBJ(&scm__rc.d1563[648]), SCM_OBJ(&scm__rc.d1563[664]));
5084 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bit->boolean")), SCM_OBJ(&libvecbit_TOboolean__STUB), 0);
5085 libvecbit_TOboolean__STUB.common.info = scm__rc.d1562[202];
5086 scm__rc.d1562[203] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[125])),TRUE); /* bitvector-set! */
5087 scm__rc.d1562[204] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[126])),TRUE); /* b */
5088 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[665]), scm__rc.d1562[204]);
5089 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[666]), scm__rc.d1562[85]);
5090 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[667]), scm__rc.d1562[31]);
5091 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[670]), scm__rc.d1562[3]);
5092 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[671]), scm__rc.d1562[203]);
5093 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[672]), scm__rc.d1562[44]);
5094 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[673]), scm__rc.d1562[4]);
5095 scm__rc.d1562[205] = Scm_MakeExtendedPair(scm__rc.d1562[203], SCM_OBJ(&scm__rc.d1563[667]), SCM_OBJ(&scm__rc.d1563[675]));
5096 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bitvector-set!")), SCM_OBJ(&libvecbitvector_setX__STUB), 0);
5097 libvecbitvector_setX__STUB.common.info = scm__rc.d1562[205];
5098 scm__rc.d1562[206] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[127])),TRUE); /* bitvector-ref/int */
5099 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[678]), scm__rc.d1562[3]);
5100 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[679]), scm__rc.d1562[206]);
5101 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[680]), scm__rc.d1562[44]);
5102 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[681]), scm__rc.d1562[4]);
5103 scm__rc.d1562[207] = Scm_MakeExtendedPair(scm__rc.d1562[206], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[683]));
5104 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bitvector-ref/int")), SCM_OBJ(&libvecbitvector_ref_2fint__STUB), 0);
5105 libvecbitvector_ref_2fint__STUB.common.info = scm__rc.d1562[207];
5106 Scm_SetterSet(SCM_PROCEDURE(&libvecbitvector_ref_2fint__STUB), SCM_PROCEDURE(&libvecbitvector_setX__STUB), TRUE);
5107 scm__rc.d1562[208] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[128])),TRUE); /* bitvector-ref/bool */
5108 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[686]), scm__rc.d1562[3]);
5109 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[687]), scm__rc.d1562[208]);
5110 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[688]), scm__rc.d1562[44]);
5111 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[689]), scm__rc.d1562[4]);
5112 scm__rc.d1562[209] = Scm_MakeExtendedPair(scm__rc.d1562[208], SCM_OBJ(&scm__rc.d1563[216]), SCM_OBJ(&scm__rc.d1563[691]));
5113 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bitvector-ref/bool")), SCM_OBJ(&libvecbitvector_ref_2fbool__STUB), 0);
5114 libvecbitvector_ref_2fbool__STUB.common.info = scm__rc.d1562[209];
5115 Scm_SetterSet(SCM_PROCEDURE(&libvecbitvector_ref_2fbool__STUB), SCM_PROCEDURE(&libvecbitvector_setX__STUB), TRUE);
5116 scm__rc.d1562[210] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[129])),TRUE); /* bitvector-copy */
5117 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[692]), scm__rc.d1562[31]);
5118 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[695]), scm__rc.d1562[3]);
5119 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[696]), scm__rc.d1562[210]);
5120 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[697]), scm__rc.d1562[44]);
5121 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[698]), scm__rc.d1562[4]);
5122 scm__rc.d1562[211] = Scm_MakeExtendedPair(scm__rc.d1562[210], SCM_OBJ(&scm__rc.d1563[692]), SCM_OBJ(&scm__rc.d1563[700]));
5123 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bitvector-copy")), SCM_OBJ(&libvecbitvector_copy__STUB), 0);
5124 libvecbitvector_copy__STUB.common.info = scm__rc.d1562[211];
5125 scm__rc.d1562[212] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[130])),TRUE); /* bitvector-copy! */
5126 scm__rc.d1562[213] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[131])),TRUE); /* dest */
5127 scm__rc.d1562[214] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[132])),TRUE); /* dstart */
5128 scm__rc.d1562[215] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[133])),TRUE); /* src */
5129 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[701]), scm__rc.d1562[215]);
5130 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[702]), scm__rc.d1562[214]);
5131 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[703]), scm__rc.d1562[213]);
5132 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[706]), scm__rc.d1562[3]);
5133 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[707]), scm__rc.d1562[212]);
5134 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[708]), scm__rc.d1562[44]);
5135 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[709]), scm__rc.d1562[4]);
5136 scm__rc.d1562[216] = Scm_MakeExtendedPair(scm__rc.d1562[212], SCM_OBJ(&scm__rc.d1563[703]), SCM_OBJ(&scm__rc.d1563[711]));
5137 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bitvector-copy!")), SCM_OBJ(&libvecbitvector_copyX__STUB), 0);
5138 libvecbitvector_copyX__STUB.common.info = scm__rc.d1562[216];
5139 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
5140 Scm_VMExecuteToplevels(toplevels);
5141 }
5142