1 /*Generated by genstub. Do not edit.*/
2
3 #line 6 "./lib_core.stub"
4
5 #define LIBSAGITTARIUS_BODY
6
7
8 #line 7 "./lib_core.stub"
9
10 #include <sagittarius/private.h>
11
12 #include <sagittarius/private/instruction.h>
13
14 #include <sagittarius/private/builtin-symbols.h>
15
16 #include "shortnames.incl"
17
18 #include "gc-incl.inc"
19
20
21 #line 1826 "./lib_core.stub"
22
23 #include <string.h>
24
25 static struct sg__rc_cgen9166Rec {
26 SgObject d9486[583];
27 } sg__rc_cgen9166 = {
28 { /* SgObject d9486 */
29 SG_UNBOUND,
30 SG_UNBOUND,
31 SG_UNBOUND,
32 SG_UNBOUND,
33 SG_UNBOUND,
34 SG_UNBOUND,
35 SG_UNBOUND,
36 SG_UNBOUND,
37 SG_UNBOUND,
38 SG_UNBOUND,
39 SG_UNBOUND,
40 SG_UNBOUND,
41 SG_UNBOUND,
42 SG_UNBOUND,
43 SG_UNBOUND,
44 SG_UNBOUND,
45 SG_UNBOUND,
46 SG_UNBOUND,
47 SG_UNBOUND,
48 SG_UNBOUND,
49 SG_UNBOUND,
50 SG_UNBOUND,
51 SG_UNBOUND,
52 SG_UNBOUND,
53 SG_UNBOUND,
54 SG_UNBOUND,
55 SG_UNBOUND,
56 SG_UNBOUND,
57 SG_UNBOUND,
58 SG_UNBOUND,
59 SG_UNBOUND,
60 SG_UNBOUND,
61 SG_UNBOUND,
62 SG_UNBOUND,
63 SG_UNBOUND,
64 SG_UNBOUND,
65 SG_UNBOUND,
66 SG_UNBOUND,
67 SG_UNBOUND,
68 SG_UNBOUND,
69 SG_UNBOUND,
70 SG_UNBOUND,
71 SG_UNBOUND,
72 SG_UNBOUND,
73 SG_UNBOUND,
74 SG_UNBOUND,
75 SG_UNBOUND,
76 SG_UNBOUND,
77 SG_UNBOUND,
78 SG_UNBOUND,
79 SG_UNBOUND,
80 SG_UNBOUND,
81 SG_UNBOUND,
82 SG_UNBOUND,
83 SG_UNBOUND,
84 SG_UNBOUND,
85 SG_UNBOUND,
86 SG_UNBOUND,
87 SG_UNBOUND,
88 SG_UNBOUND,
89 SG_UNBOUND,
90 SG_UNBOUND,
91 SG_UNBOUND,
92 SG_UNBOUND,
93 SG_UNBOUND,
94 SG_UNBOUND,
95 SG_UNBOUND,
96 SG_UNBOUND,
97 SG_UNBOUND,
98 SG_UNBOUND,
99 SG_UNBOUND,
100 SG_UNBOUND,
101 SG_UNBOUND,
102 SG_UNBOUND,
103 SG_UNBOUND,
104 SG_UNBOUND,
105 SG_UNBOUND,
106 SG_UNBOUND,
107 SG_UNBOUND,
108 SG_UNBOUND,
109 SG_UNBOUND,
110 SG_UNBOUND,
111 SG_UNBOUND,
112 SG_UNBOUND,
113 SG_UNBOUND,
114 SG_UNBOUND,
115 SG_UNBOUND,
116 SG_UNBOUND,
117 SG_UNBOUND,
118 SG_UNBOUND,
119 SG_UNBOUND,
120 SG_UNBOUND,
121 SG_UNBOUND,
122 SG_UNBOUND,
123 SG_UNBOUND,
124 SG_UNBOUND,
125 SG_UNBOUND,
126 SG_UNBOUND,
127 SG_UNBOUND,
128 SG_UNBOUND,
129 SG_UNBOUND,
130 SG_UNBOUND,
131 SG_UNBOUND,
132 SG_UNBOUND,
133 SG_UNBOUND,
134 SG_UNBOUND,
135 SG_UNBOUND,
136 SG_UNBOUND,
137 SG_UNBOUND,
138 SG_UNBOUND,
139 SG_UNBOUND,
140 SG_UNBOUND,
141 SG_UNBOUND,
142 SG_UNBOUND,
143 SG_UNBOUND,
144 SG_UNBOUND,
145 SG_UNBOUND,
146 SG_UNBOUND,
147 SG_UNBOUND,
148 SG_UNBOUND,
149 SG_UNBOUND,
150 SG_UNBOUND,
151 SG_UNBOUND,
152 SG_UNBOUND,
153 SG_UNBOUND,
154 SG_UNBOUND,
155 SG_UNBOUND,
156 SG_UNBOUND,
157 SG_UNBOUND,
158 SG_UNBOUND,
159 SG_UNBOUND,
160 SG_UNBOUND,
161 SG_UNBOUND,
162 SG_UNBOUND,
163 SG_UNBOUND,
164 SG_UNBOUND,
165 SG_UNBOUND,
166 SG_UNBOUND,
167 SG_UNBOUND,
168 SG_UNBOUND,
169 SG_UNBOUND,
170 SG_UNBOUND,
171 SG_UNBOUND,
172 SG_UNBOUND,
173 SG_UNBOUND,
174 SG_UNBOUND,
175 SG_UNBOUND,
176 SG_UNBOUND,
177 SG_UNBOUND,
178 SG_UNBOUND,
179 SG_UNBOUND,
180 SG_UNBOUND,
181 SG_UNBOUND,
182 SG_UNBOUND,
183 SG_UNBOUND,
184 SG_UNBOUND,
185 SG_UNBOUND,
186 SG_UNBOUND,
187 SG_UNBOUND,
188 SG_UNBOUND,
189 SG_UNBOUND,
190 SG_UNBOUND,
191 SG_UNBOUND,
192 SG_UNBOUND,
193 SG_UNBOUND,
194 SG_UNBOUND,
195 SG_UNBOUND,
196 SG_UNBOUND,
197 SG_UNBOUND,
198 SG_UNBOUND,
199 SG_UNBOUND,
200 SG_UNBOUND,
201 SG_UNBOUND,
202 SG_UNBOUND,
203 SG_UNBOUND,
204 SG_UNBOUND,
205 SG_UNBOUND,
206 SG_UNBOUND,
207 SG_UNBOUND,
208 SG_UNBOUND,
209 SG_UNBOUND,
210 SG_UNBOUND,
211 SG_UNBOUND,
212 SG_UNBOUND,
213 SG_UNBOUND,
214 SG_UNBOUND,
215 SG_UNBOUND,
216 SG_UNBOUND,
217 SG_UNBOUND,
218 SG_UNBOUND,
219 SG_UNBOUND,
220 SG_UNBOUND,
221 SG_UNBOUND,
222 SG_UNBOUND,
223 SG_UNBOUND,
224 SG_UNBOUND,
225 SG_UNBOUND,
226 SG_UNBOUND,
227 SG_UNBOUND,
228 SG_UNBOUND,
229 SG_UNBOUND,
230 SG_UNBOUND,
231 SG_UNBOUND,
232 SG_UNBOUND,
233 SG_UNBOUND,
234 SG_UNBOUND,
235 SG_UNBOUND,
236 SG_UNBOUND,
237 SG_UNBOUND,
238 SG_UNBOUND,
239 SG_UNBOUND,
240 SG_UNBOUND,
241 SG_UNBOUND,
242 SG_UNBOUND,
243 SG_UNBOUND,
244 SG_UNBOUND,
245 SG_UNBOUND,
246 SG_UNBOUND,
247 SG_UNBOUND,
248 SG_UNBOUND,
249 SG_UNBOUND,
250 SG_UNBOUND,
251 SG_UNBOUND,
252 SG_UNBOUND,
253 SG_UNBOUND,
254 SG_UNBOUND,
255 SG_UNBOUND,
256 SG_UNBOUND,
257 SG_UNBOUND,
258 SG_UNBOUND,
259 SG_UNBOUND,
260 SG_UNBOUND,
261 SG_UNBOUND,
262 SG_UNBOUND,
263 SG_UNBOUND,
264 SG_UNBOUND,
265 SG_UNBOUND,
266 SG_UNBOUND,
267 SG_UNBOUND,
268 SG_UNBOUND,
269 SG_UNBOUND,
270 SG_UNBOUND,
271 SG_UNBOUND,
272 SG_UNBOUND,
273 SG_UNBOUND,
274 SG_UNBOUND,
275 SG_UNBOUND,
276 SG_UNBOUND,
277 SG_UNBOUND,
278 SG_UNBOUND,
279 SG_UNBOUND,
280 SG_UNBOUND,
281 SG_UNBOUND,
282 SG_UNBOUND,
283 SG_UNBOUND,
284 SG_UNBOUND,
285 SG_UNBOUND,
286 SG_UNBOUND,
287 SG_UNBOUND,
288 SG_UNBOUND,
289 SG_UNBOUND,
290 SG_UNBOUND,
291 SG_UNBOUND,
292 SG_UNBOUND,
293 SG_UNBOUND,
294 SG_UNBOUND,
295 SG_UNBOUND,
296 SG_UNBOUND,
297 SG_UNBOUND,
298 SG_UNBOUND,
299 SG_UNBOUND,
300 SG_UNBOUND,
301 SG_UNBOUND,
302 SG_UNBOUND,
303 SG_UNBOUND,
304 SG_UNBOUND,
305 SG_UNBOUND,
306 SG_UNBOUND,
307 SG_UNBOUND,
308 SG_UNBOUND,
309 SG_UNBOUND,
310 SG_UNBOUND,
311 SG_UNBOUND,
312 SG_UNBOUND,
313 SG_UNBOUND,
314 SG_UNBOUND,
315 SG_UNBOUND,
316 SG_UNBOUND,
317 SG_UNBOUND,
318 SG_UNBOUND,
319 SG_UNBOUND,
320 SG_UNBOUND,
321 SG_UNBOUND,
322 SG_UNBOUND,
323 SG_UNBOUND,
324 SG_UNBOUND,
325 SG_UNBOUND,
326 SG_UNBOUND,
327 SG_UNBOUND,
328 SG_UNBOUND,
329 SG_UNBOUND,
330 SG_UNBOUND,
331 SG_UNBOUND,
332 SG_UNBOUND,
333 SG_UNBOUND,
334 SG_UNBOUND,
335 SG_UNBOUND,
336 SG_UNBOUND,
337 SG_UNBOUND,
338 SG_UNBOUND,
339 SG_UNBOUND,
340 SG_UNBOUND,
341 SG_UNBOUND,
342 SG_UNBOUND,
343 SG_UNBOUND,
344 SG_UNBOUND,
345 SG_UNBOUND,
346 SG_UNBOUND,
347 SG_UNBOUND,
348 SG_UNBOUND,
349 SG_UNBOUND,
350 SG_UNBOUND,
351 SG_UNBOUND,
352 SG_UNBOUND,
353 SG_UNBOUND,
354 SG_UNBOUND,
355 SG_UNBOUND,
356 SG_UNBOUND,
357 SG_UNBOUND,
358 SG_UNBOUND,
359 SG_UNBOUND,
360 SG_UNBOUND,
361 SG_UNBOUND,
362 SG_UNBOUND,
363 SG_UNBOUND,
364 SG_UNBOUND,
365 SG_UNBOUND,
366 SG_UNBOUND,
367 SG_UNBOUND,
368 SG_UNBOUND,
369 SG_UNBOUND,
370 SG_UNBOUND,
371 SG_UNBOUND,
372 SG_UNBOUND,
373 SG_UNBOUND,
374 SG_UNBOUND,
375 SG_UNBOUND,
376 SG_UNBOUND,
377 SG_UNBOUND,
378 SG_UNBOUND,
379 SG_UNBOUND,
380 SG_UNBOUND,
381 SG_UNBOUND,
382 SG_UNBOUND,
383 SG_UNBOUND,
384 SG_UNBOUND,
385 SG_UNBOUND,
386 SG_UNBOUND,
387 SG_UNBOUND,
388 SG_UNBOUND,
389 SG_UNBOUND,
390 SG_UNBOUND,
391 SG_UNBOUND,
392 SG_UNBOUND,
393 SG_UNBOUND,
394 SG_UNBOUND,
395 SG_UNBOUND,
396 SG_UNBOUND,
397 SG_UNBOUND,
398 SG_UNBOUND,
399 SG_UNBOUND,
400 SG_UNBOUND,
401 SG_UNBOUND,
402 SG_UNBOUND,
403 SG_UNBOUND,
404 SG_UNBOUND,
405 SG_UNBOUND,
406 SG_UNBOUND,
407 SG_UNBOUND,
408 SG_UNBOUND,
409 SG_UNBOUND,
410 SG_UNBOUND,
411 SG_UNBOUND,
412 SG_UNBOUND,
413 SG_UNBOUND,
414 SG_UNBOUND,
415 SG_UNBOUND,
416 SG_UNBOUND,
417 SG_UNBOUND,
418 SG_UNBOUND,
419 SG_UNBOUND,
420 SG_UNBOUND,
421 SG_UNBOUND,
422 SG_UNBOUND,
423 SG_UNBOUND,
424 SG_UNBOUND,
425 SG_UNBOUND,
426 SG_UNBOUND,
427 SG_UNBOUND,
428 SG_UNBOUND,
429 SG_UNBOUND,
430 SG_UNBOUND,
431 SG_UNBOUND,
432 SG_UNBOUND,
433 SG_UNBOUND,
434 SG_UNBOUND,
435 SG_UNBOUND,
436 SG_UNBOUND,
437 SG_UNBOUND,
438 SG_UNBOUND,
439 SG_UNBOUND,
440 SG_UNBOUND,
441 SG_UNBOUND,
442 SG_UNBOUND,
443 SG_UNBOUND,
444 SG_UNBOUND,
445 SG_UNBOUND,
446 SG_UNBOUND,
447 SG_UNBOUND,
448 SG_UNBOUND,
449 SG_UNBOUND,
450 SG_UNBOUND,
451 SG_UNBOUND,
452 SG_UNBOUND,
453 SG_UNBOUND,
454 SG_UNBOUND,
455 SG_UNBOUND,
456 SG_UNBOUND,
457 SG_UNBOUND,
458 SG_UNBOUND,
459 SG_UNBOUND,
460 SG_UNBOUND,
461 SG_UNBOUND,
462 SG_UNBOUND,
463 SG_UNBOUND,
464 SG_UNBOUND,
465 SG_UNBOUND,
466 SG_UNBOUND,
467 SG_UNBOUND,
468 SG_UNBOUND,
469 SG_UNBOUND,
470 SG_UNBOUND,
471 SG_UNBOUND,
472 SG_UNBOUND,
473 SG_UNBOUND,
474 SG_UNBOUND,
475 SG_UNBOUND,
476 SG_UNBOUND,
477 SG_UNBOUND,
478 SG_UNBOUND,
479 SG_UNBOUND,
480 SG_UNBOUND,
481 SG_UNBOUND,
482 SG_UNBOUND,
483 SG_UNBOUND,
484 SG_UNBOUND,
485 SG_UNBOUND,
486 SG_UNBOUND,
487 SG_UNBOUND,
488 SG_UNBOUND,
489 SG_UNBOUND,
490 SG_UNBOUND,
491 SG_UNBOUND,
492 SG_UNBOUND,
493 SG_UNBOUND,
494 SG_UNBOUND,
495 SG_UNBOUND,
496 SG_UNBOUND,
497 SG_UNBOUND,
498 SG_UNBOUND,
499 SG_UNBOUND,
500 SG_UNBOUND,
501 SG_UNBOUND,
502 SG_UNBOUND,
503 SG_UNBOUND,
504 SG_UNBOUND,
505 SG_UNBOUND,
506 SG_UNBOUND,
507 SG_UNBOUND,
508 SG_UNBOUND,
509 SG_UNBOUND,
510 SG_UNBOUND,
511 SG_UNBOUND,
512 SG_UNBOUND,
513 SG_UNBOUND,
514 SG_UNBOUND,
515 SG_UNBOUND,
516 SG_UNBOUND,
517 SG_UNBOUND,
518 SG_UNBOUND,
519 SG_UNBOUND,
520 SG_UNBOUND,
521 SG_UNBOUND,
522 SG_UNBOUND,
523 SG_UNBOUND,
524 SG_UNBOUND,
525 SG_UNBOUND,
526 SG_UNBOUND,
527 SG_UNBOUND,
528 SG_UNBOUND,
529 SG_UNBOUND,
530 SG_UNBOUND,
531 SG_UNBOUND,
532 SG_UNBOUND,
533 SG_UNBOUND,
534 SG_UNBOUND,
535 SG_UNBOUND,
536 SG_UNBOUND,
537 SG_UNBOUND,
538 SG_UNBOUND,
539 SG_UNBOUND,
540 SG_UNBOUND,
541 SG_UNBOUND,
542 SG_UNBOUND,
543 SG_UNBOUND,
544 SG_UNBOUND,
545 SG_UNBOUND,
546 SG_UNBOUND,
547 SG_UNBOUND,
548 SG_UNBOUND,
549 SG_UNBOUND,
550 SG_UNBOUND,
551 SG_UNBOUND,
552 SG_UNBOUND,
553 SG_UNBOUND,
554 SG_UNBOUND,
555 SG_UNBOUND,
556 SG_UNBOUND,
557 SG_UNBOUND,
558 SG_UNBOUND,
559 SG_UNBOUND,
560 SG_UNBOUND,
561 SG_UNBOUND,
562 SG_UNBOUND,
563 SG_UNBOUND,
564 SG_UNBOUND,
565 SG_UNBOUND,
566 SG_UNBOUND,
567 SG_UNBOUND,
568 SG_UNBOUND,
569 SG_UNBOUND,
570 SG_UNBOUND,
571 SG_UNBOUND,
572 SG_UNBOUND,
573 SG_UNBOUND,
574 SG_UNBOUND,
575 SG_UNBOUND,
576 SG_UNBOUND,
577 SG_UNBOUND,
578 SG_UNBOUND,
579 SG_UNBOUND,
580 SG_UNBOUND,
581 SG_UNBOUND,
582 SG_UNBOUND,
583 SG_UNBOUND,
584 SG_UNBOUND,
585 SG_UNBOUND,
586 SG_UNBOUND,
587 SG_UNBOUND,
588 SG_UNBOUND,
589 SG_UNBOUND,
590 SG_UNBOUND,
591 SG_UNBOUND,
592 SG_UNBOUND,
593 SG_UNBOUND,
594 SG_UNBOUND,
595 SG_UNBOUND,
596 SG_UNBOUND,
597 SG_UNBOUND,
598 SG_UNBOUND,
599 SG_UNBOUND,
600 SG_UNBOUND,
601 SG_UNBOUND,
602 SG_UNBOUND,
603 SG_UNBOUND,
604 SG_UNBOUND,
605 SG_UNBOUND,
606 SG_UNBOUND,
607 SG_UNBOUND,
608 SG_UNBOUND,
609 SG_UNBOUND,
610 SG_UNBOUND,
611 SG_UNBOUND,
612 },
613 };
core_booleanP(SgObject * SG_FP,int SG_ARGC,void * data_)614 static SgObject core_booleanP(SgObject *SG_FP, int SG_ARGC, void *data_)
615 {
616 SgObject o_scm;
617 SgObject o;
618 SG_ENTER_SUBR("boolean?");
619 if (SG_ARGC != 1)
620 Sg_WrongNumberOfArgumentsViolation(
621 SG_INTERN("boolean?"), 1, SG_ARGC, SG_NIL);
622 o_scm = SG_ARGREF(0);
623 o = (o_scm);
624 {
625 {
626 int SG_RESULT = (int)FALSE;
627 SG_RESULT=(SG_BOOLP(o));
628 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
629 }
630 }
631 }
632 static SG_DEFINE_SUBR(core_booleanP__STUB, 1, 0,core_booleanP, SG_FALSE, NULL);
633
core_pairP(SgObject * SG_FP,int SG_ARGC,void * data_)634 static SgObject core_pairP(SgObject *SG_FP, int SG_ARGC, void *data_)
635 {
636 SgObject o_scm;
637 SgObject o;
638 SG_ENTER_SUBR("pair?");
639 if (SG_ARGC != 1)
640 Sg_WrongNumberOfArgumentsViolation(
641 SG_INTERN("pair?"), 1, SG_ARGC, SG_NIL);
642 o_scm = SG_ARGREF(0);
643 o = (o_scm);
644 {
645 {
646 int SG_RESULT = (int)FALSE;
647 SG_RESULT=(SG_PAIRP(o));
648 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
649 }
650 }
651 }
652 static SG_DEFINE_SUBR(core_pairP__STUB, 1, 0,core_pairP, SG_MAKE_INT(PAIRP), NULL);
653
core_symbolP(SgObject * SG_FP,int SG_ARGC,void * data_)654 static SgObject core_symbolP(SgObject *SG_FP, int SG_ARGC, void *data_)
655 {
656 SgObject o_scm;
657 SgObject o;
658 SG_ENTER_SUBR("symbol?");
659 if (SG_ARGC != 1)
660 Sg_WrongNumberOfArgumentsViolation(
661 SG_INTERN("symbol?"), 1, SG_ARGC, SG_NIL);
662 o_scm = SG_ARGREF(0);
663 o = (o_scm);
664 {
665 {
666 int SG_RESULT = (int)FALSE;
667 SG_RESULT=(SG_SYMBOLP(o));
668 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
669 }
670 }
671 }
672 static SG_DEFINE_SUBR(core_symbolP__STUB, 1, 0,core_symbolP, SG_MAKE_INT(SYMBOLP), NULL);
673
core_numberP(SgObject * SG_FP,int SG_ARGC,void * data_)674 static SgObject core_numberP(SgObject *SG_FP, int SG_ARGC, void *data_)
675 {
676 SgObject o_scm;
677 SgObject o;
678 SG_ENTER_SUBR("number?");
679 if (SG_ARGC != 1)
680 Sg_WrongNumberOfArgumentsViolation(
681 SG_INTERN("number?"), 1, SG_ARGC, SG_NIL);
682 o_scm = SG_ARGREF(0);
683 o = (o_scm);
684 {
685 {
686 int SG_RESULT = (int)FALSE;
687 SG_RESULT=(SG_NUMBERP(o));
688 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
689 }
690 }
691 }
692 static SG_DEFINE_SUBR(core_numberP__STUB, 1, 0,core_numberP, SG_FALSE, NULL);
693
core_charP(SgObject * SG_FP,int SG_ARGC,void * data_)694 static SgObject core_charP(SgObject *SG_FP, int SG_ARGC, void *data_)
695 {
696 SgObject o_scm;
697 SgObject o;
698 SG_ENTER_SUBR("char?");
699 if (SG_ARGC != 1)
700 Sg_WrongNumberOfArgumentsViolation(
701 SG_INTERN("char?"), 1, SG_ARGC, SG_NIL);
702 o_scm = SG_ARGREF(0);
703 o = (o_scm);
704 {
705 {
706 int SG_RESULT = (int)FALSE;
707 SG_RESULT=(SG_CHARP(o));
708 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
709 }
710 }
711 }
712 static SG_DEFINE_SUBR(core_charP__STUB, 1, 0,core_charP, SG_FALSE, NULL);
713
core_stringP(SgObject * SG_FP,int SG_ARGC,void * data_)714 static SgObject core_stringP(SgObject *SG_FP, int SG_ARGC, void *data_)
715 {
716 SgObject o_scm;
717 SgObject o;
718 SG_ENTER_SUBR("string?");
719 if (SG_ARGC != 1)
720 Sg_WrongNumberOfArgumentsViolation(
721 SG_INTERN("string?"), 1, SG_ARGC, SG_NIL);
722 o_scm = SG_ARGREF(0);
723 o = (o_scm);
724 {
725 {
726 int SG_RESULT = (int)FALSE;
727 SG_RESULT=(SG_STRINGP(o));
728 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
729 }
730 }
731 }
732 static SG_DEFINE_SUBR(core_stringP__STUB, 1, 0,core_stringP, SG_FALSE, NULL);
733
core_vectorP(SgObject * SG_FP,int SG_ARGC,void * data_)734 static SgObject core_vectorP(SgObject *SG_FP, int SG_ARGC, void *data_)
735 {
736 SgObject o_scm;
737 SgObject o;
738 SG_ENTER_SUBR("vector?");
739 if (SG_ARGC != 1)
740 Sg_WrongNumberOfArgumentsViolation(
741 SG_INTERN("vector?"), 1, SG_ARGC, SG_NIL);
742 o_scm = SG_ARGREF(0);
743 o = (o_scm);
744 {
745 {
746 int SG_RESULT = (int)FALSE;
747 SG_RESULT=(SG_VECTORP(o));
748 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
749 }
750 }
751 }
752 static SG_DEFINE_SUBR(core_vectorP__STUB, 1, 0,core_vectorP, SG_MAKE_INT(VECTORP), NULL);
753
core_procedureP(SgObject * SG_FP,int SG_ARGC,void * data_)754 static SgObject core_procedureP(SgObject *SG_FP, int SG_ARGC, void *data_)
755 {
756 SgObject o_scm;
757 SgObject o;
758 SG_ENTER_SUBR("procedure?");
759 if (SG_ARGC != 1)
760 Sg_WrongNumberOfArgumentsViolation(
761 SG_INTERN("procedure?"), 1, SG_ARGC, SG_NIL);
762 o_scm = SG_ARGREF(0);
763 o = (o_scm);
764 {
765 {
766 int SG_RESULT = (int)FALSE;
767 SG_RESULT=(SG_PROCEDUREP(o));
768 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
769 }
770 }
771 }
772 static SG_DEFINE_SUBR(core_procedureP__STUB, 1, 0,core_procedureP, SG_FALSE, NULL);
773
core_nullP(SgObject * SG_FP,int SG_ARGC,void * data_)774 static SgObject core_nullP(SgObject *SG_FP, int SG_ARGC, void *data_)
775 {
776 SgObject o_scm;
777 SgObject o;
778 SG_ENTER_SUBR("null?");
779 if (SG_ARGC != 1)
780 Sg_WrongNumberOfArgumentsViolation(
781 SG_INTERN("null?"), 1, SG_ARGC, SG_NIL);
782 o_scm = SG_ARGREF(0);
783 o = (o_scm);
784 {
785 {
786 int SG_RESULT = (int)FALSE;
787 SG_RESULT=(SG_NULLP(o));
788 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
789 }
790 }
791 }
792 static SG_DEFINE_SUBR(core_nullP__STUB, 1, 0,core_nullP, SG_MAKE_INT(NULLP), NULL);
793
core_complexP(SgObject * SG_FP,int SG_ARGC,void * data_)794 static SgObject core_complexP(SgObject *SG_FP, int SG_ARGC, void *data_)
795 {
796 SgObject o_scm;
797 SgObject o;
798 SG_ENTER_SUBR("complex?");
799 if (SG_ARGC != 1)
800 Sg_WrongNumberOfArgumentsViolation(
801 SG_INTERN("complex?"), 1, SG_ARGC, SG_NIL);
802 o_scm = SG_ARGREF(0);
803 o = (o_scm);
804 {
805 {
806 int SG_RESULT = (int)FALSE;
807 SG_RESULT=(SG_NUMBERP(o));
808 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
809 }
810 }
811 }
812 static SG_DEFINE_SUBR(core_complexP__STUB, 1, 0,core_complexP, SG_FALSE, NULL);
813
core_realP(SgObject * SG_FP,int SG_ARGC,void * data_)814 static SgObject core_realP(SgObject *SG_FP, int SG_ARGC, void *data_)
815 {
816 SgObject o_scm;
817 SgObject o;
818 SG_ENTER_SUBR("real?");
819 if (SG_ARGC != 1)
820 Sg_WrongNumberOfArgumentsViolation(
821 SG_INTERN("real?"), 1, SG_ARGC, SG_NIL);
822 o_scm = SG_ARGREF(0);
823 o = (o_scm);
824 {
825 {
826 int SG_RESULT = (int)FALSE;
827 SG_RESULT=(SG_REALP(o));
828 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
829 }
830 }
831 }
832 static SG_DEFINE_SUBR(core_realP__STUB, 1, 0,core_realP, SG_FALSE, NULL);
833
core_rationalP(SgObject * SG_FP,int SG_ARGC,void * data_)834 static SgObject core_rationalP(SgObject *SG_FP, int SG_ARGC, void *data_)
835 {
836 SgObject o_scm;
837 SgObject o;
838 SG_ENTER_SUBR("rational?");
839 if (SG_ARGC != 1)
840 Sg_WrongNumberOfArgumentsViolation(
841 SG_INTERN("rational?"), 1, SG_ARGC, SG_NIL);
842 o_scm = SG_ARGREF(0);
843 o = (o_scm);
844 {
845 {
846 int SG_RESULT = (int)FALSE;
847 SG_RESULT=(Sg_RationalP(o));
848 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
849 }
850 }
851 }
852 static SG_DEFINE_SUBR(core_rationalP__STUB, 1, 0,core_rationalP, SG_FALSE, NULL);
853
core_integerP(SgObject * SG_FP,int SG_ARGC,void * data_)854 static SgObject core_integerP(SgObject *SG_FP, int SG_ARGC, void *data_)
855 {
856 SgObject o_scm;
857 SgObject o;
858 SG_ENTER_SUBR("integer?");
859 if (SG_ARGC != 1)
860 Sg_WrongNumberOfArgumentsViolation(
861 SG_INTERN("integer?"), 1, SG_ARGC, SG_NIL);
862 o_scm = SG_ARGREF(0);
863 o = (o_scm);
864 {
865 {
866 int SG_RESULT = (int)FALSE;
867 SG_RESULT=(Sg_IntegerP(o));
868 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
869 }
870 }
871 }
872 static SG_DEFINE_SUBR(core_integerP__STUB, 1, 0,core_integerP, SG_FALSE, NULL);
873
core_real_valuedP(SgObject * SG_FP,int SG_ARGC,void * data_)874 static SgObject core_real_valuedP(SgObject *SG_FP, int SG_ARGC, void *data_)
875 {
876 SgObject o_scm;
877 SgObject o;
878 SG_ENTER_SUBR("real-valued?");
879 if (SG_ARGC != 1)
880 Sg_WrongNumberOfArgumentsViolation(
881 SG_INTERN("real-valued?"), 1, SG_ARGC, SG_NIL);
882 o_scm = SG_ARGREF(0);
883 o = (o_scm);
884 {
885 {
886 int SG_RESULT = (int)FALSE;
887 SG_RESULT=(Sg_RealValuedP(o));
888 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
889 }
890 }
891 }
892 static SG_DEFINE_SUBR(core_real_valuedP__STUB, 1, 0,core_real_valuedP, SG_FALSE, NULL);
893
core_rational_valuedP(SgObject * SG_FP,int SG_ARGC,void * data_)894 static SgObject core_rational_valuedP(SgObject *SG_FP, int SG_ARGC, void *data_)
895 {
896 SgObject o_scm;
897 SgObject o;
898 SG_ENTER_SUBR("rational-valued?");
899 if (SG_ARGC != 1)
900 Sg_WrongNumberOfArgumentsViolation(
901 SG_INTERN("rational-valued?"), 1, SG_ARGC, SG_NIL);
902 o_scm = SG_ARGREF(0);
903 o = (o_scm);
904 {
905 {
906 int SG_RESULT = (int)FALSE;
907 SG_RESULT=(Sg_RationalValuedP(o));
908 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
909 }
910 }
911 }
912 static SG_DEFINE_SUBR(core_rational_valuedP__STUB, 1, 0,core_rational_valuedP, SG_FALSE, NULL);
913
core_integer_valuedP(SgObject * SG_FP,int SG_ARGC,void * data_)914 static SgObject core_integer_valuedP(SgObject *SG_FP, int SG_ARGC, void *data_)
915 {
916 SgObject o_scm;
917 SgObject o;
918 SG_ENTER_SUBR("integer-valued?");
919 if (SG_ARGC != 1)
920 Sg_WrongNumberOfArgumentsViolation(
921 SG_INTERN("integer-valued?"), 1, SG_ARGC, SG_NIL);
922 o_scm = SG_ARGREF(0);
923 o = (o_scm);
924 {
925 {
926 int SG_RESULT = (int)FALSE;
927 SG_RESULT=(Sg_IntegerValuedP(o));
928 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
929 }
930 }
931 }
932 static SG_DEFINE_SUBR(core_integer_valuedP__STUB, 1, 0,core_integer_valuedP, SG_FALSE, NULL);
933
core_exactP(SgObject * SG_FP,int SG_ARGC,void * data_)934 static SgObject core_exactP(SgObject *SG_FP, int SG_ARGC, void *data_)
935 {
936 SgObject o_scm;
937 SgObject o;
938 SG_ENTER_SUBR("exact?");
939 if (SG_ARGC != 1)
940 Sg_WrongNumberOfArgumentsViolation(
941 SG_INTERN("exact?"), 1, SG_ARGC, SG_NIL);
942 o_scm = SG_ARGREF(0);
943 o = (o_scm);
944 {
945 {
946 int SG_RESULT = (int)FALSE;
947 SG_RESULT=(Sg_ExactP(o));
948 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
949 }
950 }
951 }
952 static SG_DEFINE_SUBR(core_exactP__STUB, 1, 0,core_exactP, SG_FALSE, NULL);
953
core_inexactP(SgObject * SG_FP,int SG_ARGC,void * data_)954 static SgObject core_inexactP(SgObject *SG_FP, int SG_ARGC, void *data_)
955 {
956 SgObject o_scm;
957 SgObject o;
958 SG_ENTER_SUBR("inexact?");
959 if (SG_ARGC != 1)
960 Sg_WrongNumberOfArgumentsViolation(
961 SG_INTERN("inexact?"), 1, SG_ARGC, SG_NIL);
962 o_scm = SG_ARGREF(0);
963 o = (o_scm);
964 {
965 {
966 int SG_RESULT = (int)FALSE;
967 SG_RESULT=(Sg_InexactP(o));
968 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
969 }
970 }
971 }
972 static SG_DEFINE_SUBR(core_inexactP__STUB, 1, 0,core_inexactP, SG_FALSE, NULL);
973
core_inexact(SgObject * SG_FP,int SG_ARGC,void * data_)974 static SgObject core_inexact(SgObject *SG_FP, int SG_ARGC, void *data_)
975 {
976 SgObject z_scm;
977 SgObject z;
978 SG_ENTER_SUBR("inexact");
979 if (SG_ARGC != 1)
980 Sg_WrongNumberOfArgumentsViolation(
981 SG_INTERN("inexact"), 1, SG_ARGC, SG_NIL);
982 z_scm = SG_ARGREF(0);
983 if (!SG_NUMBERP(z_scm))
984 Sg_WrongTypeOfArgumentViolation(
985 sg__rc_cgen9166.d9486[18], SG_MAKE_STRING("number"), z_scm, SG_NIL);
986 z = (z_scm);
987 {
988 {
989 SgObject SG_RESULT = (SgObject)NULL;
990 SG_RESULT=(Sg_Inexact(z));
991 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
992 }
993 }
994 }
995 static SG_DEFINE_SUBR(core_inexact__STUB, 1, 0,core_inexact, SG_FALSE, NULL);
996
core_exact(SgObject * SG_FP,int SG_ARGC,void * data_)997 static SgObject core_exact(SgObject *SG_FP, int SG_ARGC, void *data_)
998 {
999 SgObject z_scm;
1000 SgObject z;
1001 SG_ENTER_SUBR("exact");
1002 if (SG_ARGC != 1)
1003 Sg_WrongNumberOfArgumentsViolation(
1004 SG_INTERN("exact"), 1, SG_ARGC, SG_NIL);
1005 z_scm = SG_ARGREF(0);
1006 if (!SG_NUMBERP(z_scm))
1007 Sg_WrongTypeOfArgumentViolation(
1008 sg__rc_cgen9166.d9486[19], SG_MAKE_STRING("number"), z_scm, SG_NIL);
1009 z = (z_scm);
1010 {
1011 {
1012 SgObject SG_RESULT = (SgObject)NULL;
1013 SG_RESULT=(Sg_Exact(z));
1014 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1015 }
1016 }
1017 }
1018 static SG_DEFINE_SUBR(core_exact__STUB, 1, 0,core_exact, SG_FALSE, NULL);
1019
core__3d(SgObject * SG_FP,int SG_ARGC,void * data_)1020 static SgObject core__3d(SgObject *SG_FP, int SG_ARGC, void *data_)
1021 {
1022 SgObject arg0_scm;
1023 SgObject arg0;
1024 SgObject arg1_scm;
1025 SgObject arg1;
1026 SgObject rest_scm;
1027 SgObject rest;
1028 SG_ENTER_SUBR("=");
1029 if (SG_ARGC < 2)
1030 Sg_WrongNumberOfArgumentsAtLeastViolation(
1031 SG_INTERN("="), 2, SG_ARGC, SG_NIL);
1032 arg0_scm = SG_ARGREF(0);
1033 arg0 = (arg0_scm);
1034 arg1_scm = SG_ARGREF(1);
1035 arg1 = (arg1_scm);
1036 rest_scm = SG_ARGREF(SG_ARGC-1);
1037 rest = (rest_scm);
1038 {
1039 {
1040 int SG_RESULT = (int)FALSE;
1041
1042 #line 105 "./lib_core.stub"
1043 SG_RESULT=(FALSE);
1044
1045 #line 106 "./lib_core.stub"
1046 for (;;) {if ((!(Sg_NumEq(arg0,arg1)))){break;}else if(
1047 SG_NULLP(rest)){SG_RESULT=(TRUE);break;} else {
1048 arg0=(arg1);
1049 arg1=(SG_CAR(rest));
1050 rest=(SG_CDR(rest));}}
1051 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1052 }
1053 }
1054 }
1055 static SG_DEFINE_SUBR(core__3d__STUB, 2, 1,core__3d, SG_FALSE, NULL);
1056
core__LT(SgObject * SG_FP,int SG_ARGC,void * data_)1057 static SgObject core__LT(SgObject *SG_FP, int SG_ARGC, void *data_)
1058 {
1059 SgObject arg0_scm;
1060 SgObject arg0;
1061 SgObject arg1_scm;
1062 SgObject arg1;
1063 SgObject rest_scm;
1064 SgObject rest;
1065 SG_ENTER_SUBR("<");
1066 if (SG_ARGC < 2)
1067 Sg_WrongNumberOfArgumentsAtLeastViolation(
1068 SG_INTERN("<"), 2, SG_ARGC, SG_NIL);
1069 arg0_scm = SG_ARGREF(0);
1070 arg0 = (arg0_scm);
1071 arg1_scm = SG_ARGREF(1);
1072 arg1 = (arg1_scm);
1073 rest_scm = SG_ARGREF(SG_ARGC-1);
1074 rest = (rest_scm);
1075 {
1076 {
1077 int SG_RESULT = (int)FALSE;
1078
1079 #line 112 "./lib_core.stub"
1080 SG_RESULT=(FALSE);
1081
1082 #line 113 "./lib_core.stub"
1083 for (;;) {if ((!((Sg_NumCmp(arg0,arg1))<(0)))){break;}else if(SG_NULLP(rest)){SG_RESULT=(TRUE);break;} else {arg0=(arg1);arg1=(SG_CAR(rest));rest=(SG_CDR(rest));}}
1084 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1085 }
1086 }
1087 }
1088 static SG_DEFINE_SUBR(core__LT__STUB, 2, 1,core__LT, SG_FALSE, NULL);
1089
core__LT_3d(SgObject * SG_FP,int SG_ARGC,void * data_)1090 static SgObject core__LT_3d(SgObject *SG_FP, int SG_ARGC, void *data_)
1091 {
1092 SgObject arg0_scm;
1093 SgObject arg0;
1094 SgObject arg1_scm;
1095 SgObject arg1;
1096 SgObject rest_scm;
1097 SgObject rest;
1098 SG_ENTER_SUBR("<=");
1099 if (SG_ARGC < 2)
1100 Sg_WrongNumberOfArgumentsAtLeastViolation(
1101 SG_INTERN("<="), 2, SG_ARGC, SG_NIL);
1102 arg0_scm = SG_ARGREF(0);
1103 arg0 = (arg0_scm);
1104 arg1_scm = SG_ARGREF(1);
1105 arg1 = (arg1_scm);
1106 rest_scm = SG_ARGREF(SG_ARGC-1);
1107 rest = (rest_scm);
1108 {
1109 {
1110 int SG_RESULT = (int)FALSE;
1111
1112 #line 115 "./lib_core.stub"
1113 SG_RESULT=(FALSE);
1114
1115 #line 116 "./lib_core.stub"
1116 for (;;) {if ((!((Sg_NumCmp(arg0,arg1))<=(0)))){break;}else if(SG_NULLP(rest)){SG_RESULT=(TRUE);break;} else {arg0=(arg1);arg1=(SG_CAR(rest));rest=(SG_CDR(rest));}}
1117 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1118 }
1119 }
1120 }
1121 static SG_DEFINE_SUBR(core__LT_3d__STUB, 2, 1,core__LT_3d, SG_FALSE, NULL);
1122
core__GT(SgObject * SG_FP,int SG_ARGC,void * data_)1123 static SgObject core__GT(SgObject *SG_FP, int SG_ARGC, void *data_)
1124 {
1125 SgObject arg0_scm;
1126 SgObject arg0;
1127 SgObject arg1_scm;
1128 SgObject arg1;
1129 SgObject rest_scm;
1130 SgObject rest;
1131 SG_ENTER_SUBR(">");
1132 if (SG_ARGC < 2)
1133 Sg_WrongNumberOfArgumentsAtLeastViolation(
1134 SG_INTERN(">"), 2, SG_ARGC, SG_NIL);
1135 arg0_scm = SG_ARGREF(0);
1136 arg0 = (arg0_scm);
1137 arg1_scm = SG_ARGREF(1);
1138 arg1 = (arg1_scm);
1139 rest_scm = SG_ARGREF(SG_ARGC-1);
1140 rest = (rest_scm);
1141 {
1142 {
1143 int SG_RESULT = (int)FALSE;
1144
1145 #line 118 "./lib_core.stub"
1146 SG_RESULT=(FALSE);
1147
1148 #line 119 "./lib_core.stub"
1149 for (;;) {if ((!((Sg_NumCmp(arg0,arg1))>(0)))){break;}else if(SG_NULLP(rest)){SG_RESULT=(TRUE);break;} else {arg0=(arg1);arg1=(SG_CAR(rest));rest=(SG_CDR(rest));}}
1150 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1151 }
1152 }
1153 }
1154 static SG_DEFINE_SUBR(core__GT__STUB, 2, 1,core__GT, SG_FALSE, NULL);
1155
core__GT_3d(SgObject * SG_FP,int SG_ARGC,void * data_)1156 static SgObject core__GT_3d(SgObject *SG_FP, int SG_ARGC, void *data_)
1157 {
1158 SgObject arg0_scm;
1159 SgObject arg0;
1160 SgObject arg1_scm;
1161 SgObject arg1;
1162 SgObject rest_scm;
1163 SgObject rest;
1164 SG_ENTER_SUBR(">=");
1165 if (SG_ARGC < 2)
1166 Sg_WrongNumberOfArgumentsAtLeastViolation(
1167 SG_INTERN(">="), 2, SG_ARGC, SG_NIL);
1168 arg0_scm = SG_ARGREF(0);
1169 arg0 = (arg0_scm);
1170 arg1_scm = SG_ARGREF(1);
1171 arg1 = (arg1_scm);
1172 rest_scm = SG_ARGREF(SG_ARGC-1);
1173 rest = (rest_scm);
1174 {
1175 {
1176 int SG_RESULT = (int)FALSE;
1177
1178 #line 121 "./lib_core.stub"
1179 SG_RESULT=(FALSE);
1180
1181 #line 122 "./lib_core.stub"
1182 for (;;) {if ((!((Sg_NumCmp(arg0,arg1))>=(0)))){break;}else if(SG_NULLP(rest)){SG_RESULT=(TRUE);break;} else {arg0=(arg1);arg1=(SG_CAR(rest));rest=(SG_CDR(rest));}}
1183 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1184 }
1185 }
1186 }
1187 static SG_DEFINE_SUBR(core__GT_3d__STUB, 2, 1,core__GT_3d, SG_FALSE, NULL);
1188
core_zeroP(SgObject * SG_FP,int SG_ARGC,void * data_)1189 static SgObject core_zeroP(SgObject *SG_FP, int SG_ARGC, void *data_)
1190 {
1191 SgObject n_scm;
1192 SgObject n;
1193 SG_ENTER_SUBR("zero?");
1194 if (SG_ARGC != 1)
1195 Sg_WrongNumberOfArgumentsViolation(
1196 SG_INTERN("zero?"), 1, SG_ARGC, SG_NIL);
1197 n_scm = SG_ARGREF(0);
1198 if (!SG_NUMBERP(n_scm))
1199 Sg_WrongTypeOfArgumentViolation(
1200 sg__rc_cgen9166.d9486[25], SG_MAKE_STRING("number"), n_scm, SG_NIL);
1201 n = (n_scm);
1202 {
1203 {
1204 int SG_RESULT = (int)FALSE;
1205 SG_RESULT=(Sg_ZeroP(n));
1206 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1207 }
1208 }
1209 }
1210 static SG_DEFINE_SUBR(core_zeroP__STUB, 1, 0,core_zeroP, SG_FALSE, NULL);
1211
core_positiveP(SgObject * SG_FP,int SG_ARGC,void * data_)1212 static SgObject core_positiveP(SgObject *SG_FP, int SG_ARGC, void *data_)
1213 {
1214 SgObject x_scm;
1215 SgObject x;
1216 SG_ENTER_SUBR("positive?");
1217 if (SG_ARGC != 1)
1218 Sg_WrongNumberOfArgumentsViolation(
1219 SG_INTERN("positive?"), 1, SG_ARGC, SG_NIL);
1220 x_scm = SG_ARGREF(0);
1221 if (!SG_NUMBERP(x_scm))
1222 Sg_WrongTypeOfArgumentViolation(
1223 sg__rc_cgen9166.d9486[26], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1224 x = (x_scm);
1225 {
1226 {
1227 int SG_RESULT = (int)FALSE;
1228 SG_RESULT=(Sg_PositiveP(x));
1229 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1230 }
1231 }
1232 }
1233 static SG_DEFINE_SUBR(core_positiveP__STUB, 1, 0,core_positiveP, SG_FALSE, NULL);
1234
core_negativeP(SgObject * SG_FP,int SG_ARGC,void * data_)1235 static SgObject core_negativeP(SgObject *SG_FP, int SG_ARGC, void *data_)
1236 {
1237 SgObject x_scm;
1238 SgObject x;
1239 SG_ENTER_SUBR("negative?");
1240 if (SG_ARGC != 1)
1241 Sg_WrongNumberOfArgumentsViolation(
1242 SG_INTERN("negative?"), 1, SG_ARGC, SG_NIL);
1243 x_scm = SG_ARGREF(0);
1244 if (!SG_NUMBERP(x_scm))
1245 Sg_WrongTypeOfArgumentViolation(
1246 sg__rc_cgen9166.d9486[27], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1247 x = (x_scm);
1248 {
1249 {
1250 int SG_RESULT = (int)FALSE;
1251 SG_RESULT=(Sg_NegativeP(x));
1252 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1253 }
1254 }
1255 }
1256 static SG_DEFINE_SUBR(core_negativeP__STUB, 1, 0,core_negativeP, SG_FALSE, NULL);
1257
core_oddP(SgObject * SG_FP,int SG_ARGC,void * data_)1258 static SgObject core_oddP(SgObject *SG_FP, int SG_ARGC, void *data_)
1259 {
1260 SgObject x_scm;
1261 SgObject x;
1262 SG_ENTER_SUBR("odd?");
1263 if (SG_ARGC != 1)
1264 Sg_WrongNumberOfArgumentsViolation(
1265 SG_INTERN("odd?"), 1, SG_ARGC, SG_NIL);
1266 x_scm = SG_ARGREF(0);
1267 if (!SG_NUMBERP(x_scm))
1268 Sg_WrongTypeOfArgumentViolation(
1269 sg__rc_cgen9166.d9486[28], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1270 x = (x_scm);
1271 {
1272 {
1273 int SG_RESULT = (int)FALSE;
1274 SG_RESULT=(Sg_OddP(x));
1275 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1276 }
1277 }
1278 }
1279 static SG_DEFINE_SUBR(core_oddP__STUB, 1, 0,core_oddP, SG_FALSE, NULL);
1280
core_evenP(SgObject * SG_FP,int SG_ARGC,void * data_)1281 static SgObject core_evenP(SgObject *SG_FP, int SG_ARGC, void *data_)
1282 {
1283 SgObject x_scm;
1284 SgObject x;
1285 SG_ENTER_SUBR("even?");
1286 if (SG_ARGC != 1)
1287 Sg_WrongNumberOfArgumentsViolation(
1288 SG_INTERN("even?"), 1, SG_ARGC, SG_NIL);
1289 x_scm = SG_ARGREF(0);
1290 if (!SG_NUMBERP(x_scm))
1291 Sg_WrongTypeOfArgumentViolation(
1292 sg__rc_cgen9166.d9486[29], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1293 x = (x_scm);
1294 {
1295 {
1296 int SG_RESULT = (int)FALSE;
1297
1298 #line 129 "./lib_core.stub"
1299 SG_RESULT=((!(Sg_OddP(x))));
1300 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1301 }
1302 }
1303 }
1304 static SG_DEFINE_SUBR(core_evenP__STUB, 1, 0,core_evenP, SG_FALSE, NULL);
1305
core_finiteP(SgObject * SG_FP,int SG_ARGC,void * data_)1306 static SgObject core_finiteP(SgObject *SG_FP, int SG_ARGC, void *data_)
1307 {
1308 SgObject x_scm;
1309 SgObject x;
1310 SG_ENTER_SUBR("finite?");
1311 if (SG_ARGC != 1)
1312 Sg_WrongNumberOfArgumentsViolation(
1313 SG_INTERN("finite?"), 1, SG_ARGC, SG_NIL);
1314 x_scm = SG_ARGREF(0);
1315 if (!SG_NUMBERP(x_scm))
1316 Sg_WrongTypeOfArgumentViolation(
1317 sg__rc_cgen9166.d9486[30], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1318 x = (x_scm);
1319 {
1320 {
1321 int SG_RESULT = (int)FALSE;
1322 SG_RESULT=(Sg_FiniteP(x));
1323 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1324 }
1325 }
1326 }
1327 static SG_DEFINE_SUBR(core_finiteP__STUB, 1, 0,core_finiteP, SG_FALSE, NULL);
1328
core_infiniteP(SgObject * SG_FP,int SG_ARGC,void * data_)1329 static SgObject core_infiniteP(SgObject *SG_FP, int SG_ARGC, void *data_)
1330 {
1331 SgObject x_scm;
1332 SgObject x;
1333 SG_ENTER_SUBR("infinite?");
1334 if (SG_ARGC != 1)
1335 Sg_WrongNumberOfArgumentsViolation(
1336 SG_INTERN("infinite?"), 1, SG_ARGC, SG_NIL);
1337 x_scm = SG_ARGREF(0);
1338 if (!SG_NUMBERP(x_scm))
1339 Sg_WrongTypeOfArgumentViolation(
1340 sg__rc_cgen9166.d9486[31], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1341 x = (x_scm);
1342 {
1343 {
1344 int SG_RESULT = (int)FALSE;
1345 SG_RESULT=(Sg_InfiniteP(x));
1346 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1347 }
1348 }
1349 }
1350 static SG_DEFINE_SUBR(core_infiniteP__STUB, 1, 0,core_infiniteP, SG_FALSE, NULL);
1351
core_nanP(SgObject * SG_FP,int SG_ARGC,void * data_)1352 static SgObject core_nanP(SgObject *SG_FP, int SG_ARGC, void *data_)
1353 {
1354 SgObject x_scm;
1355 SgObject x;
1356 SG_ENTER_SUBR("nan?");
1357 if (SG_ARGC != 1)
1358 Sg_WrongNumberOfArgumentsViolation(
1359 SG_INTERN("nan?"), 1, SG_ARGC, SG_NIL);
1360 x_scm = SG_ARGREF(0);
1361 if (!SG_NUMBERP(x_scm))
1362 Sg_WrongTypeOfArgumentViolation(
1363 sg__rc_cgen9166.d9486[32], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1364 x = (x_scm);
1365 {
1366 {
1367 int SG_RESULT = (int)FALSE;
1368 SG_RESULT=(Sg_NanP(x));
1369 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1370 }
1371 }
1372 }
1373 static SG_DEFINE_SUBR(core_nanP__STUB, 1, 0,core_nanP, SG_FALSE, NULL);
1374
core_max(SgObject * SG_FP,int SG_ARGC,void * data_)1375 static SgObject core_max(SgObject *SG_FP, int SG_ARGC, void *data_)
1376 {
1377 SgObject arg0_scm;
1378 SgObject arg0;
1379 SgObject rest_scm;
1380 SgObject rest;
1381 SG_ENTER_SUBR("max");
1382 if (SG_ARGC < 1)
1383 Sg_WrongNumberOfArgumentsAtLeastViolation(
1384 SG_INTERN("max"), 1, SG_ARGC, SG_NIL);
1385 arg0_scm = SG_ARGREF(0);
1386 arg0 = (arg0_scm);
1387 rest_scm = SG_ARGREF(SG_ARGC-1);
1388 rest = (rest_scm);
1389 {
1390 {
1391 SgObject SG_RESULT = (SgObject)NULL;
1392
1393 #line 135 "./lib_core.stub"
1394 Sg_MinMax(arg0,rest,NULL,(&(SG_RESULT)));
1395 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1396 }
1397 }
1398 }
1399 static SG_DEFINE_SUBR(core_max__STUB, 1, 1,core_max, SG_FALSE, NULL);
1400
core_min(SgObject * SG_FP,int SG_ARGC,void * data_)1401 static SgObject core_min(SgObject *SG_FP, int SG_ARGC, void *data_)
1402 {
1403 SgObject arg0_scm;
1404 SgObject arg0;
1405 SgObject rest_scm;
1406 SgObject rest;
1407 SG_ENTER_SUBR("min");
1408 if (SG_ARGC < 1)
1409 Sg_WrongNumberOfArgumentsAtLeastViolation(
1410 SG_INTERN("min"), 1, SG_ARGC, SG_NIL);
1411 arg0_scm = SG_ARGREF(0);
1412 arg0 = (arg0_scm);
1413 rest_scm = SG_ARGREF(SG_ARGC-1);
1414 rest = (rest_scm);
1415 {
1416 {
1417 SgObject SG_RESULT = (SgObject)NULL;
1418
1419 #line 137 "./lib_core.stub"
1420 Sg_MinMax(arg0,rest,(&(SG_RESULT)),NULL);
1421 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1422 }
1423 }
1424 }
1425 static SG_DEFINE_SUBR(core_min__STUB, 1, 1,core_min, SG_FALSE, NULL);
1426
core__2b(SgObject * SG_FP,int SG_ARGC,void * data_)1427 static SgObject core__2b(SgObject *SG_FP, int SG_ARGC, void *data_)
1428 {
1429 SgObject rest_scm;
1430 SgObject rest;
1431 SG_ENTER_SUBR("+");
1432 if (SG_ARGC < 0)
1433 Sg_WrongNumberOfArgumentsAtLeastViolation(
1434 SG_INTERN("+"), 0, SG_ARGC, SG_NIL);
1435 rest_scm = SG_ARGREF(SG_ARGC-1);
1436 rest = (rest_scm);
1437 {
1438 {
1439 SgObject SG_RESULT = (SgObject)NULL;
1440 SgObject cise__9580;
1441 #line 147 "./lib_core.stub"
1442 if ((!(SG_PAIRP(rest)))){SG_RESULT=(SG_MAKE_INT(0));}else if(
1443 (!(SG_NUMBERP(SG_CAR(rest))))){
1444 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[36],SG_MAKE_STRING("number"),SG_CAR(rest),rest);}
1445 SG_RESULT=(SG_UNDEF);} else {
1446 #line 152 "./lib_core.stub"
1447 {SgObject r=SG_CAR(rest);
1448 SG_FOR_EACH(cise__9580,SG_CDR(rest)) {{SgObject v=SG_CAR(cise__9580);
1449 if ((!(SG_NUMBERP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[36],SG_MAKE_STRING("number"),v,SG_NIL);}}}
1450 r=(Sg_Add(r,v));}}
1451 SG_RESULT=(r);}}
1452 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1453 }
1454 }
1455 }
1456 static SG_DEFINE_SUBR(core__2b__STUB, 0, 1,core__2b, SG_FALSE, NULL);
1457
core__2a(SgObject * SG_FP,int SG_ARGC,void * data_)1458 static SgObject core__2a(SgObject *SG_FP, int SG_ARGC, void *data_)
1459 {
1460 SgObject rest_scm;
1461 SgObject rest;
1462 SG_ENTER_SUBR("*");
1463 if (SG_ARGC < 0)
1464 Sg_WrongNumberOfArgumentsAtLeastViolation(
1465 SG_INTERN("*"), 0, SG_ARGC, SG_NIL);
1466 rest_scm = SG_ARGREF(SG_ARGC-1);
1467 rest = (rest_scm);
1468 {
1469 {
1470 SgObject SG_RESULT = (SgObject)NULL;
1471 SgObject cise__9581;
1472 #line 159 "./lib_core.stub"
1473 if ((!(SG_PAIRP(rest)))){SG_RESULT=(SG_MAKE_INT(1));}else if(
1474 (!(SG_NUMBERP(SG_CAR(rest))))){
1475 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[36],SG_MAKE_STRING("number"),SG_CAR(rest),rest);}
1476 SG_RESULT=(SG_UNDEF);} else {
1477 #line 164 "./lib_core.stub"
1478 {SgObject r=SG_CAR(rest);
1479 SG_FOR_EACH(cise__9581,SG_CDR(rest)) {{SgObject v=SG_CAR(cise__9581);
1480 if ((!(SG_NUMBERP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[38],SG_MAKE_STRING("number"),v,SG_NIL);}}}
1481 r=(Sg_Mul(r,v));}}
1482 SG_RESULT=(r);}}
1483 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1484 }
1485 }
1486 }
1487 static SG_DEFINE_SUBR(core__2a__STUB, 0, 1,core__2a, SG_FALSE, NULL);
1488
core__(SgObject * SG_FP,int SG_ARGC,void * data_)1489 static SgObject core__(SgObject *SG_FP, int SG_ARGC, void *data_)
1490 {
1491 SgObject arg1_scm;
1492 SgObject arg1;
1493 SgObject rest_scm;
1494 SgObject rest;
1495 SG_ENTER_SUBR("-");
1496 if (SG_ARGC < 1)
1497 Sg_WrongNumberOfArgumentsAtLeastViolation(
1498 SG_INTERN("-"), 1, SG_ARGC, SG_NIL);
1499 arg1_scm = SG_ARGREF(0);
1500 if (!SG_NUMBERP(arg1_scm))
1501 Sg_WrongTypeOfArgumentViolation(
1502 sg__rc_cgen9166.d9486[39], SG_MAKE_STRING("number"), arg1_scm, SG_NIL);
1503 arg1 = (arg1_scm);
1504 rest_scm = SG_ARGREF(SG_ARGC-1);
1505 rest = (rest_scm);
1506 {
1507 {
1508 SgObject SG_RESULT = (SgObject)NULL;
1509 SgObject cise__9582;
1510 #line 171 "./lib_core.stub"
1511 if (SG_NULLP(rest)){
1512 SG_RESULT=(Sg_Negate(arg1));} else {
1513 {
1514 SG_FOR_EACH(cise__9582,rest) {{SgObject v=SG_CAR(cise__9582);
1515 if ((!(SG_NUMBERP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[40],SG_MAKE_STRING("number"),v,SG_NIL);}}}
1516 arg1=(Sg_Sub(arg1,v));}}
1517 SG_RESULT=(arg1);}}
1518 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1519 }
1520 }
1521 }
1522 static SG_DEFINE_SUBR(core____STUB, 1, 1,core__, SG_FALSE, NULL);
1523
core__2f(SgObject * SG_FP,int SG_ARGC,void * data_)1524 static SgObject core__2f(SgObject *SG_FP, int SG_ARGC, void *data_)
1525 {
1526 SgObject arg1_scm;
1527 SgObject arg1;
1528 SgObject rest_scm;
1529 SgObject rest;
1530 SG_ENTER_SUBR("/");
1531 if (SG_ARGC < 1)
1532 Sg_WrongNumberOfArgumentsAtLeastViolation(
1533 SG_INTERN("/"), 1, SG_ARGC, SG_NIL);
1534 arg1_scm = SG_ARGREF(0);
1535 if (!SG_NUMBERP(arg1_scm))
1536 Sg_WrongTypeOfArgumentViolation(
1537 sg__rc_cgen9166.d9486[41], SG_MAKE_STRING("number"), arg1_scm, SG_NIL);
1538 arg1 = (arg1_scm);
1539 rest_scm = SG_ARGREF(SG_ARGC-1);
1540 rest = (rest_scm);
1541 {
1542 {
1543 SgObject SG_RESULT = (SgObject)NULL;
1544 SgObject cise__9583;
1545 #line 180 "./lib_core.stub"
1546 if (SG_NULLP(rest)){
1547 SG_RESULT=(Sg_Inverse(arg1));} else {
1548 {int exact=Sg_ExactP(arg1);
1549 SG_FOR_EACH(cise__9583,rest) {{SgObject v=SG_CAR(cise__9583);
1550 if ((!(SG_NUMBERP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[42],SG_MAKE_STRING("number"),v,SG_NIL);}}}
1551 #line 187 "./lib_core.stub"
1552 if (exact){{exact=(Sg_ExactP(v));}}
1553 if ((exact)&&(Sg_ZeroP(v))){{
1554 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[42],SG_MAKE_STRING("undefined for 0"),Sg_Cons(arg1,rest));}}}
1555 arg1=(Sg_Div(arg1,v));}}
1556 SG_RESULT=(arg1);}}
1557 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1558 }
1559 }
1560 }
1561 static SG_DEFINE_SUBR(core__2f__STUB, 1, 1,core__2f, SG_FALSE, NULL);
1562
core_abs(SgObject * SG_FP,int SG_ARGC,void * data_)1563 static SgObject core_abs(SgObject *SG_FP, int SG_ARGC, void *data_)
1564 {
1565 SgObject x_scm;
1566 SgObject x;
1567 SG_ENTER_SUBR("abs");
1568 if (SG_ARGC != 1)
1569 Sg_WrongNumberOfArgumentsViolation(
1570 SG_INTERN("abs"), 1, SG_ARGC, SG_NIL);
1571 x_scm = SG_ARGREF(0);
1572 if (!SG_NUMBERP(x_scm))
1573 Sg_WrongTypeOfArgumentViolation(
1574 sg__rc_cgen9166.d9486[43], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1575 x = (x_scm);
1576 {
1577 {
1578 SgObject SG_RESULT = (SgObject)NULL;
1579 SG_RESULT=(Sg_Abs(x));
1580 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1581 }
1582 }
1583 }
1584 static SG_DEFINE_SUBR(core_abs__STUB, 1, 0,core_abs, SG_FALSE, NULL);
1585
core_numerator(SgObject * SG_FP,int SG_ARGC,void * data_)1586 static SgObject core_numerator(SgObject *SG_FP, int SG_ARGC, void *data_)
1587 {
1588 SgObject x_scm;
1589 SgObject x;
1590 SG_ENTER_SUBR("numerator");
1591 if (SG_ARGC != 1)
1592 Sg_WrongNumberOfArgumentsViolation(
1593 SG_INTERN("numerator"), 1, SG_ARGC, SG_NIL);
1594 x_scm = SG_ARGREF(0);
1595 if (!SG_NUMBERP(x_scm))
1596 Sg_WrongTypeOfArgumentViolation(
1597 sg__rc_cgen9166.d9486[44], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1598 x = (x_scm);
1599 {
1600 {
1601 SgObject SG_RESULT = (SgObject)NULL;
1602 SG_RESULT=(Sg_Numerator(x));
1603 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1604 }
1605 }
1606 }
1607 static SG_DEFINE_SUBR(core_numerator__STUB, 1, 0,core_numerator, SG_FALSE, NULL);
1608
core_denominator(SgObject * SG_FP,int SG_ARGC,void * data_)1609 static SgObject core_denominator(SgObject *SG_FP, int SG_ARGC, void *data_)
1610 {
1611 SgObject x_scm;
1612 SgObject x;
1613 SG_ENTER_SUBR("denominator");
1614 if (SG_ARGC != 1)
1615 Sg_WrongNumberOfArgumentsViolation(
1616 SG_INTERN("denominator"), 1, SG_ARGC, SG_NIL);
1617 x_scm = SG_ARGREF(0);
1618 if (!SG_NUMBERP(x_scm))
1619 Sg_WrongTypeOfArgumentViolation(
1620 sg__rc_cgen9166.d9486[45], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1621 x = (x_scm);
1622 {
1623 {
1624 SgObject SG_RESULT = (SgObject)NULL;
1625 SG_RESULT=(Sg_Denominator(x));
1626 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1627 }
1628 }
1629 }
1630 static SG_DEFINE_SUBR(core_denominator__STUB, 1, 0,core_denominator, SG_FALSE, NULL);
1631
core_floor(SgObject * SG_FP,int SG_ARGC,void * data_)1632 static SgObject core_floor(SgObject *SG_FP, int SG_ARGC, void *data_)
1633 {
1634 SgObject x_scm;
1635 SgObject x;
1636 SG_ENTER_SUBR("floor");
1637 if (SG_ARGC != 1)
1638 Sg_WrongNumberOfArgumentsViolation(
1639 SG_INTERN("floor"), 1, SG_ARGC, SG_NIL);
1640 x_scm = SG_ARGREF(0);
1641 if (!SG_NUMBERP(x_scm))
1642 Sg_WrongTypeOfArgumentViolation(
1643 sg__rc_cgen9166.d9486[46], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1644 x = (x_scm);
1645 {
1646 {
1647 SgObject SG_RESULT = (SgObject)NULL;
1648
1649 #line 204 "./lib_core.stub"
1650 if ((!(Sg_RealValuedP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[47],SG_MAKE_STRING("real number"),x,SG_NIL);}}}
1651
1652 #line 205 "./lib_core.stub"
1653 SG_RESULT=(Sg_Round(x,SG_ROUND_FLOOR));
1654 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1655 }
1656 }
1657 }
1658 static SG_DEFINE_SUBR(core_floor__STUB, 1, 0,core_floor, SG_FALSE, NULL);
1659
core_ceiling(SgObject * SG_FP,int SG_ARGC,void * data_)1660 static SgObject core_ceiling(SgObject *SG_FP, int SG_ARGC, void *data_)
1661 {
1662 SgObject x_scm;
1663 SgObject x;
1664 SG_ENTER_SUBR("ceiling");
1665 if (SG_ARGC != 1)
1666 Sg_WrongNumberOfArgumentsViolation(
1667 SG_INTERN("ceiling"), 1, SG_ARGC, SG_NIL);
1668 x_scm = SG_ARGREF(0);
1669 if (!SG_NUMBERP(x_scm))
1670 Sg_WrongTypeOfArgumentViolation(
1671 sg__rc_cgen9166.d9486[48], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1672 x = (x_scm);
1673 {
1674 {
1675 SgObject SG_RESULT = (SgObject)NULL;
1676
1677 #line 208 "./lib_core.stub"
1678 if ((!(Sg_RealValuedP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[49],SG_MAKE_STRING("real number"),x,SG_NIL);}}}
1679
1680 #line 209 "./lib_core.stub"
1681 SG_RESULT=(Sg_Round(x,SG_ROUND_CEIL));
1682 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1683 }
1684 }
1685 }
1686 static SG_DEFINE_SUBR(core_ceiling__STUB, 1, 0,core_ceiling, SG_FALSE, NULL);
1687
core_truncate(SgObject * SG_FP,int SG_ARGC,void * data_)1688 static SgObject core_truncate(SgObject *SG_FP, int SG_ARGC, void *data_)
1689 {
1690 SgObject x_scm;
1691 SgObject x;
1692 SG_ENTER_SUBR("truncate");
1693 if (SG_ARGC != 1)
1694 Sg_WrongNumberOfArgumentsViolation(
1695 SG_INTERN("truncate"), 1, SG_ARGC, SG_NIL);
1696 x_scm = SG_ARGREF(0);
1697 if (!SG_NUMBERP(x_scm))
1698 Sg_WrongTypeOfArgumentViolation(
1699 sg__rc_cgen9166.d9486[50], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1700 x = (x_scm);
1701 {
1702 {
1703 SgObject SG_RESULT = (SgObject)NULL;
1704
1705 #line 212 "./lib_core.stub"
1706 if ((!(Sg_RealValuedP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[51],SG_MAKE_STRING("real number"),x,SG_NIL);}}}
1707
1708 #line 213 "./lib_core.stub"
1709 SG_RESULT=(Sg_Round(x,SG_ROUND_TRUNC));
1710 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1711 }
1712 }
1713 }
1714 static SG_DEFINE_SUBR(core_truncate__STUB, 1, 0,core_truncate, SG_FALSE, NULL);
1715
core_round(SgObject * SG_FP,int SG_ARGC,void * data_)1716 static SgObject core_round(SgObject *SG_FP, int SG_ARGC, void *data_)
1717 {
1718 SgObject x_scm;
1719 SgObject x;
1720 SG_ENTER_SUBR("round");
1721 if (SG_ARGC != 1)
1722 Sg_WrongNumberOfArgumentsViolation(
1723 SG_INTERN("round"), 1, SG_ARGC, SG_NIL);
1724 x_scm = SG_ARGREF(0);
1725 if (!SG_NUMBERP(x_scm))
1726 Sg_WrongTypeOfArgumentViolation(
1727 sg__rc_cgen9166.d9486[52], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1728 x = (x_scm);
1729 {
1730 {
1731 SgObject SG_RESULT = (SgObject)NULL;
1732
1733 #line 216 "./lib_core.stub"
1734 if ((!(Sg_RealValuedP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[53],SG_MAKE_STRING("real number"),x,SG_NIL);}}}
1735
1736 #line 217 "./lib_core.stub"
1737 SG_RESULT=(Sg_Round(x,SG_ROUND_ROUND));
1738 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1739 }
1740 }
1741 }
1742 static SG_DEFINE_SUBR(core_round__STUB, 1, 0,core_round, SG_FALSE, NULL);
1743
core_div(SgObject * SG_FP,int SG_ARGC,void * data_)1744 static SgObject core_div(SgObject *SG_FP, int SG_ARGC, void *data_)
1745 {
1746 SgObject x_scm;
1747 SgObject x;
1748 SgObject y_scm;
1749 SgObject y;
1750 SG_ENTER_SUBR("div");
1751 if (SG_ARGC != 2)
1752 Sg_WrongNumberOfArgumentsViolation(
1753 SG_INTERN("div"), 2, SG_ARGC, SG_NIL);
1754 x_scm = SG_ARGREF(0);
1755 if (!SG_NUMBERP(x_scm))
1756 Sg_WrongTypeOfArgumentViolation(
1757 sg__rc_cgen9166.d9486[54], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1758 x = (x_scm);
1759 y_scm = SG_ARGREF(1);
1760 if (!SG_NUMBERP(y_scm))
1761 Sg_WrongTypeOfArgumentViolation(
1762 sg__rc_cgen9166.d9486[54], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1763 y = (y_scm);
1764 {
1765 {
1766 SgObject SG_RESULT = (SgObject)NULL;
1767
1768 #line 242 "./lib_core.stub"
1769 {if ((!(Sg_FiniteP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[55],SG_MAKE_STRING("finite"),x,SG_NIL);}}}if (Sg_NanP(x)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[55],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[55],SG_MAKE_STRING("not zero"),y,SG_NIL);}}}}
1770
1771 #line 243 "./lib_core.stub"
1772 SG_RESULT=(Sg_IntegerDiv(x,y));
1773 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1774 }
1775 }
1776 }
1777 static SG_DEFINE_SUBR(core_div__STUB, 2, 0,core_div, SG_FALSE, NULL);
1778
core_mod(SgObject * SG_FP,int SG_ARGC,void * data_)1779 static SgObject core_mod(SgObject *SG_FP, int SG_ARGC, void *data_)
1780 {
1781 SgObject x_scm;
1782 SgObject x;
1783 SgObject y_scm;
1784 SgObject y;
1785 SG_ENTER_SUBR("mod");
1786 if (SG_ARGC != 2)
1787 Sg_WrongNumberOfArgumentsViolation(
1788 SG_INTERN("mod"), 2, SG_ARGC, SG_NIL);
1789 x_scm = SG_ARGREF(0);
1790 if (!SG_NUMBERP(x_scm))
1791 Sg_WrongTypeOfArgumentViolation(
1792 sg__rc_cgen9166.d9486[56], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1793 x = (x_scm);
1794 y_scm = SG_ARGREF(1);
1795 if (!SG_NUMBERP(y_scm))
1796 Sg_WrongTypeOfArgumentViolation(
1797 sg__rc_cgen9166.d9486[56], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1798 y = (y_scm);
1799 {
1800 {
1801 SgObject SG_RESULT = (SgObject)NULL;
1802
1803 #line 246 "./lib_core.stub"
1804 {if ((!(Sg_FiniteP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[57],SG_MAKE_STRING("finite"),x,SG_NIL);}}}if (Sg_NanP(x)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[57],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[57],SG_MAKE_STRING("not zero"),y,SG_NIL);}}}}
1805
1806 #line 247 "./lib_core.stub"
1807 SG_RESULT=(Sg_IntegerMod(x,y));
1808 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1809 }
1810 }
1811 }
1812 static SG_DEFINE_SUBR(core_mod__STUB, 2, 0,core_mod, SG_FALSE, NULL);
1813
core_div0(SgObject * SG_FP,int SG_ARGC,void * data_)1814 static SgObject core_div0(SgObject *SG_FP, int SG_ARGC, void *data_)
1815 {
1816 SgObject x_scm;
1817 SgObject x;
1818 SgObject y_scm;
1819 SgObject y;
1820 SG_ENTER_SUBR("div0");
1821 if (SG_ARGC != 2)
1822 Sg_WrongNumberOfArgumentsViolation(
1823 SG_INTERN("div0"), 2, SG_ARGC, SG_NIL);
1824 x_scm = SG_ARGREF(0);
1825 if (!SG_NUMBERP(x_scm))
1826 Sg_WrongTypeOfArgumentViolation(
1827 sg__rc_cgen9166.d9486[58], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1828 x = (x_scm);
1829 y_scm = SG_ARGREF(1);
1830 if (!SG_NUMBERP(y_scm))
1831 Sg_WrongTypeOfArgumentViolation(
1832 sg__rc_cgen9166.d9486[58], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1833 y = (y_scm);
1834 {
1835 {
1836 SgObject SG_RESULT = (SgObject)NULL;
1837
1838 #line 250 "./lib_core.stub"
1839 {if ((!(Sg_FiniteP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[59],SG_MAKE_STRING("finite"),x,SG_NIL);}}}if (Sg_NanP(x)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[59],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[59],SG_MAKE_STRING("not zero"),y,SG_NIL);}}}}
1840
1841 #line 251 "./lib_core.stub"
1842 SG_RESULT=(Sg_IntegerDiv0(x,y));
1843 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1844 }
1845 }
1846 }
1847 static SG_DEFINE_SUBR(core_div0__STUB, 2, 0,core_div0, SG_FALSE, NULL);
1848
core_mod0(SgObject * SG_FP,int SG_ARGC,void * data_)1849 static SgObject core_mod0(SgObject *SG_FP, int SG_ARGC, void *data_)
1850 {
1851 SgObject x_scm;
1852 SgObject x;
1853 SgObject y_scm;
1854 SgObject y;
1855 SG_ENTER_SUBR("mod0");
1856 if (SG_ARGC != 2)
1857 Sg_WrongNumberOfArgumentsViolation(
1858 SG_INTERN("mod0"), 2, SG_ARGC, SG_NIL);
1859 x_scm = SG_ARGREF(0);
1860 if (!SG_NUMBERP(x_scm))
1861 Sg_WrongTypeOfArgumentViolation(
1862 sg__rc_cgen9166.d9486[60], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1863 x = (x_scm);
1864 y_scm = SG_ARGREF(1);
1865 if (!SG_NUMBERP(y_scm))
1866 Sg_WrongTypeOfArgumentViolation(
1867 sg__rc_cgen9166.d9486[60], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1868 y = (y_scm);
1869 {
1870 {
1871 SgObject SG_RESULT = (SgObject)NULL;
1872
1873 #line 254 "./lib_core.stub"
1874 {if ((!(Sg_FiniteP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[61],SG_MAKE_STRING("finite"),x,SG_NIL);}}}if (Sg_NanP(x)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[61],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[61],SG_MAKE_STRING("not zero"),y,SG_NIL);}}}}
1875
1876 #line 255 "./lib_core.stub"
1877 SG_RESULT=(Sg_IntegerMod0(x,y));
1878 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1879 }
1880 }
1881 }
1882 static SG_DEFINE_SUBR(core_mod0__STUB, 2, 0,core_mod0, SG_FALSE, NULL);
1883
core__25gcd(SgObject * SG_FP,int SG_ARGC,void * data_)1884 static SgObject core__25gcd(SgObject *SG_FP, int SG_ARGC, void *data_)
1885 {
1886 SgObject x_scm;
1887 SgObject x;
1888 SgObject y_scm;
1889 SgObject y;
1890 SG_ENTER_SUBR("%gcd");
1891 if (SG_ARGC != 2)
1892 Sg_WrongNumberOfArgumentsViolation(
1893 SG_INTERN("%gcd"), 2, SG_ARGC, SG_NIL);
1894 x_scm = SG_ARGREF(0);
1895 if (!SG_NUMBERP(x_scm))
1896 Sg_WrongTypeOfArgumentViolation(
1897 sg__rc_cgen9166.d9486[62], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1898 x = (x_scm);
1899 y_scm = SG_ARGREF(1);
1900 if (!SG_NUMBERP(y_scm))
1901 Sg_WrongTypeOfArgumentViolation(
1902 sg__rc_cgen9166.d9486[62], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1903 y = (y_scm);
1904 {
1905 {
1906 SgObject SG_RESULT = (SgObject)NULL;
1907 SG_RESULT=(Sg_Gcd(x,y));
1908 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1909 }
1910 }
1911 }
1912 static SG_DEFINE_SUBR(core__25gcd__STUB, 2, 0,core__25gcd, SG_FALSE, NULL);
1913
core_exp(SgObject * SG_FP,int SG_ARGC,void * data_)1914 static SgObject core_exp(SgObject *SG_FP, int SG_ARGC, void *data_)
1915 {
1916 SgObject x_scm;
1917 SgObject x;
1918 SG_ENTER_SUBR("exp");
1919 if (SG_ARGC != 1)
1920 Sg_WrongNumberOfArgumentsViolation(
1921 SG_INTERN("exp"), 1, SG_ARGC, SG_NIL);
1922 x_scm = SG_ARGREF(0);
1923 if (!SG_NUMBERP(x_scm))
1924 Sg_WrongTypeOfArgumentViolation(
1925 sg__rc_cgen9166.d9486[63], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1926 x = (x_scm);
1927 {
1928 {
1929 SgObject SG_RESULT = (SgObject)NULL;
1930 SG_RESULT=(Sg_Exp(x));
1931 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1932 }
1933 }
1934 }
1935 static SG_DEFINE_SUBR(core_exp__STUB, 1, 0,core_exp, SG_FALSE, NULL);
1936
core_expt(SgObject * SG_FP,int SG_ARGC,void * data_)1937 static SgObject core_expt(SgObject *SG_FP, int SG_ARGC, void *data_)
1938 {
1939 SgObject x_scm;
1940 SgObject x;
1941 SgObject y_scm;
1942 SgObject y;
1943 SG_ENTER_SUBR("expt");
1944 if (SG_ARGC != 2)
1945 Sg_WrongNumberOfArgumentsViolation(
1946 SG_INTERN("expt"), 2, SG_ARGC, SG_NIL);
1947 x_scm = SG_ARGREF(0);
1948 if (!SG_NUMBERP(x_scm))
1949 Sg_WrongTypeOfArgumentViolation(
1950 sg__rc_cgen9166.d9486[64], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1951 x = (x_scm);
1952 y_scm = SG_ARGREF(1);
1953 if (!SG_NUMBERP(y_scm))
1954 Sg_WrongTypeOfArgumentViolation(
1955 sg__rc_cgen9166.d9486[64], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1956 y = (y_scm);
1957 {
1958 {
1959 SgObject SG_RESULT = (SgObject)NULL;
1960 SG_RESULT=(Sg_Expt(x,y));
1961 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1962 }
1963 }
1964 }
1965 static SG_DEFINE_SUBR(core_expt__STUB, 2, 0,core_expt, SG_FALSE, NULL);
1966
core_log(SgObject * SG_FP,int SG_ARGC,void * data_)1967 static SgObject core_log(SgObject *SG_FP, int SG_ARGC, void *data_)
1968 {
1969 SgObject x_scm;
1970 SgObject x;
1971 SgObject base_scm;
1972 SgObject base;
1973 SG_ENTER_SUBR("log");
1974 if ((SG_ARGC > 2 &&
1975 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
1976 SG_ARGC < 1)
1977 Sg_WrongNumberOfArgumentsBetweenViolation(
1978 SG_INTERN("log"), 1, 2, SG_ARGC, SG_NIL);
1979 x_scm = SG_ARGREF(0);
1980 if (!SG_NUMBERP(x_scm))
1981 Sg_WrongTypeOfArgumentViolation(
1982 sg__rc_cgen9166.d9486[65], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1983 x = (x_scm);
1984 if (SG_ARGC > 1+1) {
1985 base_scm = SG_ARGREF(1);
1986 } else {
1987 base_scm = SG_UNBOUND;
1988 }
1989 if (!SG_UNBOUNDP(base_scm) && !SG_NUMBERP(base_scm))
1990 Sg_WrongTypeOfArgumentViolation(
1991 sg__rc_cgen9166.d9486[65], SG_MAKE_STRING("number"), base_scm, SG_NIL);
1992 base = (base_scm);
1993 {
1994 {
1995 SgObject SG_RESULT = (SgObject)NULL;
1996
1997 #line 264 "./lib_core.stub"
1998 if (SG_UNBOUNDP(base)){
1999 if ((x)==(SG_MAKE_INT(0))){
2000 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[66],SG_MAKE_STRING("undefined for 0"),x);}} else {
2001 SG_RESULT=(Sg_Log(x));}} else {
2002 SG_RESULT=(Sg_Div(Sg_Log(x),Sg_Log(base)));}
2003 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2004 }
2005 }
2006 }
2007 static SG_DEFINE_SUBR(core_log__STUB, 1, 2,core_log, SG_FALSE, NULL);
2008
core_make_rectangular(SgObject * SG_FP,int SG_ARGC,void * data_)2009 static SgObject core_make_rectangular(SgObject *SG_FP, int SG_ARGC, void *data_)
2010 {
2011 SgObject a_scm;
2012 SgObject a;
2013 SgObject b_scm;
2014 SgObject b;
2015 SG_ENTER_SUBR("make-rectangular");
2016 if (SG_ARGC != 2)
2017 Sg_WrongNumberOfArgumentsViolation(
2018 SG_INTERN("make-rectangular"), 2, SG_ARGC, SG_NIL);
2019 a_scm = SG_ARGREF(0);
2020 if (!SG_NUMBERP(a_scm))
2021 Sg_WrongTypeOfArgumentViolation(
2022 sg__rc_cgen9166.d9486[67], SG_MAKE_STRING("number"), a_scm, SG_NIL);
2023 a = (a_scm);
2024 b_scm = SG_ARGREF(1);
2025 if (!SG_NUMBERP(b_scm))
2026 Sg_WrongTypeOfArgumentViolation(
2027 sg__rc_cgen9166.d9486[67], SG_MAKE_STRING("number"), b_scm, SG_NIL);
2028 b = (b_scm);
2029 {
2030 {
2031 SgObject SG_RESULT = (SgObject)NULL;
2032
2033 #line 271 "./lib_core.stub"
2034 if ((!(SG_REALP(a)))){{
2035 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[68],SG_MAKE_STRING("real number required"),a,
2036 SG_LIST2(a,b));}}}
2037
2038 #line 274 "./lib_core.stub"
2039 if ((!(SG_REALP(b)))){{
2040 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[68],SG_MAKE_STRING("real number required"),b,
2041 SG_LIST2(a,b));}}}
2042
2043 #line 277 "./lib_core.stub"
2044 SG_RESULT=(Sg_MakeComplex(a,b));
2045 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2046 }
2047 }
2048 }
2049 static SG_DEFINE_SUBR(core_make_rectangular__STUB, 2, 0,core_make_rectangular, SG_FALSE, NULL);
2050
core_make_polar(SgObject * SG_FP,int SG_ARGC,void * data_)2051 static SgObject core_make_polar(SgObject *SG_FP, int SG_ARGC, void *data_)
2052 {
2053 SgObject r_scm;
2054 SgObject r;
2055 SgObject t_scm;
2056 SgObject t;
2057 SG_ENTER_SUBR("make-polar");
2058 if (SG_ARGC != 2)
2059 Sg_WrongNumberOfArgumentsViolation(
2060 SG_INTERN("make-polar"), 2, SG_ARGC, SG_NIL);
2061 r_scm = SG_ARGREF(0);
2062 if (!SG_NUMBERP(r_scm))
2063 Sg_WrongTypeOfArgumentViolation(
2064 sg__rc_cgen9166.d9486[69], SG_MAKE_STRING("number"), r_scm, SG_NIL);
2065 r = (r_scm);
2066 t_scm = SG_ARGREF(1);
2067 if (!SG_NUMBERP(t_scm))
2068 Sg_WrongTypeOfArgumentViolation(
2069 sg__rc_cgen9166.d9486[69], SG_MAKE_STRING("number"), t_scm, SG_NIL);
2070 t = (t_scm);
2071 {
2072 {
2073 SgObject SG_RESULT = (SgObject)NULL;
2074
2075 #line 280 "./lib_core.stub"
2076 if ((!(SG_REALP(r)))){{
2077 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[70],SG_MAKE_STRING("real number required"),r,
2078 SG_LIST2(r,t));}}}
2079
2080 #line 283 "./lib_core.stub"
2081 if ((!(SG_REALP(t)))){{
2082 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[70],SG_MAKE_STRING("real number required"),t,
2083 SG_LIST2(r,t));}}}
2084
2085 #line 286 "./lib_core.stub"
2086 SG_RESULT=(Sg_MakeComplexPolar(r,t));
2087 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2088 }
2089 }
2090 }
2091 static SG_DEFINE_SUBR(core_make_polar__STUB, 2, 0,core_make_polar, SG_FALSE, NULL);
2092
core_real_part(SgObject * SG_FP,int SG_ARGC,void * data_)2093 static SgObject core_real_part(SgObject *SG_FP, int SG_ARGC, void *data_)
2094 {
2095 SgObject r_scm;
2096 SgObject r;
2097 SG_ENTER_SUBR("real-part");
2098 if (SG_ARGC != 1)
2099 Sg_WrongNumberOfArgumentsViolation(
2100 SG_INTERN("real-part"), 1, SG_ARGC, SG_NIL);
2101 r_scm = SG_ARGREF(0);
2102 if (!SG_NUMBERP(r_scm))
2103 Sg_WrongTypeOfArgumentViolation(
2104 sg__rc_cgen9166.d9486[71], SG_MAKE_STRING("number"), r_scm, SG_NIL);
2105 r = (r_scm);
2106 {
2107 {
2108 SgObject SG_RESULT = (SgObject)NULL;
2109
2110 #line 289 "./lib_core.stub"
2111 if (SG_COMPLEXP(r)){
2112 SG_RESULT=((SG_COMPLEX(r))->real);}else if(
2113 SG_REALP(r)){SG_RESULT=(r);} else {
2114 #line 294 "./lib_core.stub"
2115 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[72],SG_MAKE_STRING("number required"),r,SG_NIL);}}
2116 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2117 }
2118 }
2119 }
2120 static SG_DEFINE_SUBR(core_real_part__STUB, 1, 0,core_real_part, SG_FALSE, NULL);
2121
core_imag_part(SgObject * SG_FP,int SG_ARGC,void * data_)2122 static SgObject core_imag_part(SgObject *SG_FP, int SG_ARGC, void *data_)
2123 {
2124 SgObject r_scm;
2125 SgObject r;
2126 SG_ENTER_SUBR("imag-part");
2127 if (SG_ARGC != 1)
2128 Sg_WrongNumberOfArgumentsViolation(
2129 SG_INTERN("imag-part"), 1, SG_ARGC, SG_NIL);
2130 r_scm = SG_ARGREF(0);
2131 if (!SG_NUMBERP(r_scm))
2132 Sg_WrongTypeOfArgumentViolation(
2133 sg__rc_cgen9166.d9486[73], SG_MAKE_STRING("number"), r_scm, SG_NIL);
2134 r = (r_scm);
2135 {
2136 {
2137 SgObject SG_RESULT = (SgObject)NULL;
2138
2139 #line 297 "./lib_core.stub"
2140 if (SG_COMPLEXP(r)){
2141 SG_RESULT=((SG_COMPLEX(r))->imag);}else if(
2142 SG_REALP(r)){
2143 SG_RESULT=(SG_MAKE_INT(0));} else {
2144 #line 302 "./lib_core.stub"
2145 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[74],SG_MAKE_STRING("number required"),r,SG_NIL);}}
2146 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2147 }
2148 }
2149 }
2150 static SG_DEFINE_SUBR(core_imag_part__STUB, 1, 0,core_imag_part, SG_FALSE, NULL);
2151
core_magnitude(SgObject * SG_FP,int SG_ARGC,void * data_)2152 static SgObject core_magnitude(SgObject *SG_FP, int SG_ARGC, void *data_)
2153 {
2154 SgObject n_scm;
2155 SgObject n;
2156 SG_ENTER_SUBR("magnitude");
2157 if (SG_ARGC != 1)
2158 Sg_WrongNumberOfArgumentsViolation(
2159 SG_INTERN("magnitude"), 1, SG_ARGC, SG_NIL);
2160 n_scm = SG_ARGREF(0);
2161 if (!SG_NUMBERP(n_scm))
2162 Sg_WrongTypeOfArgumentViolation(
2163 sg__rc_cgen9166.d9486[75], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2164 n = (n_scm);
2165 {
2166 {
2167 SgObject SG_RESULT = (SgObject)NULL;
2168 SG_RESULT=(Sg_Magnitude(n));
2169 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2170 }
2171 }
2172 }
2173 static SG_DEFINE_SUBR(core_magnitude__STUB, 1, 0,core_magnitude, SG_FALSE, NULL);
2174
core_angle(SgObject * SG_FP,int SG_ARGC,void * data_)2175 static SgObject core_angle(SgObject *SG_FP, int SG_ARGC, void *data_)
2176 {
2177 SgObject n_scm;
2178 SgObject n;
2179 SG_ENTER_SUBR("angle");
2180 if (SG_ARGC != 1)
2181 Sg_WrongNumberOfArgumentsViolation(
2182 SG_INTERN("angle"), 1, SG_ARGC, SG_NIL);
2183 n_scm = SG_ARGREF(0);
2184 if (!SG_NUMBERP(n_scm))
2185 Sg_WrongTypeOfArgumentViolation(
2186 sg__rc_cgen9166.d9486[76], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2187 n = (n_scm);
2188 {
2189 {
2190 SgObject SG_RESULT = (SgObject)NULL;
2191 SG_RESULT=(Sg_Angle(n));
2192 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2193 }
2194 }
2195 }
2196 static SG_DEFINE_SUBR(core_angle__STUB, 1, 0,core_angle, SG_FALSE, NULL);
2197
core_sin(SgObject * SG_FP,int SG_ARGC,void * data_)2198 static SgObject core_sin(SgObject *SG_FP, int SG_ARGC, void *data_)
2199 {
2200 SgObject n_scm;
2201 SgObject n;
2202 SG_ENTER_SUBR("sin");
2203 if (SG_ARGC != 1)
2204 Sg_WrongNumberOfArgumentsViolation(
2205 SG_INTERN("sin"), 1, SG_ARGC, SG_NIL);
2206 n_scm = SG_ARGREF(0);
2207 if (!SG_NUMBERP(n_scm))
2208 Sg_WrongTypeOfArgumentViolation(
2209 sg__rc_cgen9166.d9486[77], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2210 n = (n_scm);
2211 {
2212 {
2213 SgObject SG_RESULT = (SgObject)NULL;
2214 SG_RESULT=(Sg_Sin(n));
2215 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2216 }
2217 }
2218 }
2219 static SG_DEFINE_SUBR(core_sin__STUB, 1, 0,core_sin, SG_FALSE, NULL);
2220
core_cos(SgObject * SG_FP,int SG_ARGC,void * data_)2221 static SgObject core_cos(SgObject *SG_FP, int SG_ARGC, void *data_)
2222 {
2223 SgObject n_scm;
2224 SgObject n;
2225 SG_ENTER_SUBR("cos");
2226 if (SG_ARGC != 1)
2227 Sg_WrongNumberOfArgumentsViolation(
2228 SG_INTERN("cos"), 1, SG_ARGC, SG_NIL);
2229 n_scm = SG_ARGREF(0);
2230 if (!SG_NUMBERP(n_scm))
2231 Sg_WrongTypeOfArgumentViolation(
2232 sg__rc_cgen9166.d9486[78], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2233 n = (n_scm);
2234 {
2235 {
2236 SgObject SG_RESULT = (SgObject)NULL;
2237 SG_RESULT=(Sg_Cos(n));
2238 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2239 }
2240 }
2241 }
2242 static SG_DEFINE_SUBR(core_cos__STUB, 1, 0,core_cos, SG_FALSE, NULL);
2243
core_tan(SgObject * SG_FP,int SG_ARGC,void * data_)2244 static SgObject core_tan(SgObject *SG_FP, int SG_ARGC, void *data_)
2245 {
2246 SgObject n_scm;
2247 SgObject n;
2248 SG_ENTER_SUBR("tan");
2249 if (SG_ARGC != 1)
2250 Sg_WrongNumberOfArgumentsViolation(
2251 SG_INTERN("tan"), 1, SG_ARGC, SG_NIL);
2252 n_scm = SG_ARGREF(0);
2253 if (!SG_NUMBERP(n_scm))
2254 Sg_WrongTypeOfArgumentViolation(
2255 sg__rc_cgen9166.d9486[79], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2256 n = (n_scm);
2257 {
2258 {
2259 SgObject SG_RESULT = (SgObject)NULL;
2260 SG_RESULT=(Sg_Tan(n));
2261 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2262 }
2263 }
2264 }
2265 static SG_DEFINE_SUBR(core_tan__STUB, 1, 0,core_tan, SG_FALSE, NULL);
2266
core_asin(SgObject * SG_FP,int SG_ARGC,void * data_)2267 static SgObject core_asin(SgObject *SG_FP, int SG_ARGC, void *data_)
2268 {
2269 SgObject n_scm;
2270 SgObject n;
2271 SG_ENTER_SUBR("asin");
2272 if (SG_ARGC != 1)
2273 Sg_WrongNumberOfArgumentsViolation(
2274 SG_INTERN("asin"), 1, SG_ARGC, SG_NIL);
2275 n_scm = SG_ARGREF(0);
2276 if (!SG_NUMBERP(n_scm))
2277 Sg_WrongTypeOfArgumentViolation(
2278 sg__rc_cgen9166.d9486[80], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2279 n = (n_scm);
2280 {
2281 {
2282 SgObject SG_RESULT = (SgObject)NULL;
2283 SG_RESULT=(Sg_Asin(n));
2284 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2285 }
2286 }
2287 }
2288 static SG_DEFINE_SUBR(core_asin__STUB, 1, 0,core_asin, SG_FALSE, NULL);
2289
core_acos(SgObject * SG_FP,int SG_ARGC,void * data_)2290 static SgObject core_acos(SgObject *SG_FP, int SG_ARGC, void *data_)
2291 {
2292 SgObject n_scm;
2293 SgObject n;
2294 SG_ENTER_SUBR("acos");
2295 if (SG_ARGC != 1)
2296 Sg_WrongNumberOfArgumentsViolation(
2297 SG_INTERN("acos"), 1, SG_ARGC, SG_NIL);
2298 n_scm = SG_ARGREF(0);
2299 if (!SG_NUMBERP(n_scm))
2300 Sg_WrongTypeOfArgumentViolation(
2301 sg__rc_cgen9166.d9486[81], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2302 n = (n_scm);
2303 {
2304 {
2305 SgObject SG_RESULT = (SgObject)NULL;
2306 SG_RESULT=(Sg_Acos(n));
2307 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2308 }
2309 }
2310 }
2311 static SG_DEFINE_SUBR(core_acos__STUB, 1, 0,core_acos, SG_FALSE, NULL);
2312
core_atan(SgObject * SG_FP,int SG_ARGC,void * data_)2313 static SgObject core_atan(SgObject *SG_FP, int SG_ARGC, void *data_)
2314 {
2315 SgObject n_scm;
2316 SgObject n;
2317 SgObject n2_scm;
2318 SgObject n2;
2319 SG_ENTER_SUBR("atan");
2320 if ((SG_ARGC > 2 &&
2321 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
2322 SG_ARGC < 1)
2323 Sg_WrongNumberOfArgumentsBetweenViolation(
2324 SG_INTERN("atan"), 1, 2, SG_ARGC, SG_NIL);
2325 n_scm = SG_ARGREF(0);
2326 if (!SG_NUMBERP(n_scm))
2327 Sg_WrongTypeOfArgumentViolation(
2328 sg__rc_cgen9166.d9486[82], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2329 n = (n_scm);
2330 if (SG_ARGC > 1+1) {
2331 n2_scm = SG_ARGREF(1);
2332 } else {
2333 n2_scm = SG_UNBOUND;
2334 }
2335 if (!SG_UNBOUNDP(n2_scm) && !SG_NUMBERP(n2_scm))
2336 Sg_WrongTypeOfArgumentViolation(
2337 sg__rc_cgen9166.d9486[82], SG_MAKE_STRING("number"), n2_scm, SG_NIL);
2338 n2 = (n2_scm);
2339 {
2340 {
2341 SgObject SG_RESULT = (SgObject)NULL;
2342
2343 #line 314 "./lib_core.stub"
2344 if (SG_UNBOUNDP(n2)){SG_RESULT=(Sg_Atan(n));} else {
2345 #line 316 "./lib_core.stub"
2346 if ((!(Sg_RealValuedP(n)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[83],SG_MAKE_STRING("real number"),n,SG_NIL);}}}
2347 if ((!(Sg_RealValuedP(n2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[83],SG_MAKE_STRING("real number"),n2,SG_NIL);}}}
2348 SG_RESULT=(Sg_Atan2(n,n2));}
2349 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2350 }
2351 }
2352 }
2353 static SG_DEFINE_SUBR(core_atan__STUB, 1, 2,core_atan, SG_FALSE, NULL);
2354
core_sqrt(SgObject * SG_FP,int SG_ARGC,void * data_)2355 static SgObject core_sqrt(SgObject *SG_FP, int SG_ARGC, void *data_)
2356 {
2357 SgObject n_scm;
2358 SgObject n;
2359 SG_ENTER_SUBR("sqrt");
2360 if (SG_ARGC != 1)
2361 Sg_WrongNumberOfArgumentsViolation(
2362 SG_INTERN("sqrt"), 1, SG_ARGC, SG_NIL);
2363 n_scm = SG_ARGREF(0);
2364 if (!SG_NUMBERP(n_scm))
2365 Sg_WrongTypeOfArgumentViolation(
2366 sg__rc_cgen9166.d9486[84], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2367 n = (n_scm);
2368 {
2369 {
2370 SgObject SG_RESULT = (SgObject)NULL;
2371 SG_RESULT=(Sg_Sqrt(n));
2372 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2373 }
2374 }
2375 }
2376 static SG_DEFINE_SUBR(core_sqrt__STUB, 1, 0,core_sqrt, SG_FALSE, NULL);
2377
core_exact_integer_sqrt(SgObject * SG_FP,int SG_ARGC,void * data_)2378 static SgObject core_exact_integer_sqrt(SgObject *SG_FP, int SG_ARGC, void *data_)
2379 {
2380 SgObject n_scm;
2381 SgObject n;
2382 SG_ENTER_SUBR("exact-integer-sqrt");
2383 if (SG_ARGC != 1)
2384 Sg_WrongNumberOfArgumentsViolation(
2385 SG_INTERN("exact-integer-sqrt"), 1, SG_ARGC, SG_NIL);
2386 n_scm = SG_ARGREF(0);
2387 if (!SG_NUMBERP(n_scm))
2388 Sg_WrongTypeOfArgumentViolation(
2389 sg__rc_cgen9166.d9486[85], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2390 n = (n_scm);
2391 {
2392 {
2393 SgObject SG_RESULT = (SgObject)NULL;
2394
2395 #line 322 "./lib_core.stub"
2396 if ((Sg_NegativeP(n))||((!(SG_EXACT_INTP(n))))){{
2397 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[86],SG_MAKE_STRING("non-negative exact integer required"),n,SG_NIL);}}}
2398
2399 #line 326 "./lib_core.stub"
2400 SG_RESULT=(Sg_ExactIntegerSqrt(n));
2401 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2402 }
2403 }
2404 }
2405 static SG_DEFINE_SUBR(core_exact_integer_sqrt__STUB, 1, 0,core_exact_integer_sqrt, SG_FALSE, NULL);
2406
core_rationalize(SgObject * SG_FP,int SG_ARGC,void * data_)2407 static SgObject core_rationalize(SgObject *SG_FP, int SG_ARGC, void *data_)
2408 {
2409 SgObject x_scm;
2410 SgObject x;
2411 SgObject e_scm;
2412 SgObject e;
2413 SG_ENTER_SUBR("rationalize");
2414 if (SG_ARGC != 2)
2415 Sg_WrongNumberOfArgumentsViolation(
2416 SG_INTERN("rationalize"), 2, SG_ARGC, SG_NIL);
2417 x_scm = SG_ARGREF(0);
2418 if (!SG_NUMBERP(x_scm))
2419 Sg_WrongTypeOfArgumentViolation(
2420 sg__rc_cgen9166.d9486[87], SG_MAKE_STRING("number"), x_scm, SG_NIL);
2421 x = (x_scm);
2422 e_scm = SG_ARGREF(1);
2423 if (!SG_NUMBERP(e_scm))
2424 Sg_WrongTypeOfArgumentViolation(
2425 sg__rc_cgen9166.d9486[87], SG_MAKE_STRING("number"), e_scm, SG_NIL);
2426 e = (e_scm);
2427 {
2428 {
2429 SgObject SG_RESULT = (SgObject)NULL;
2430
2431 #line 329 "./lib_core.stub"
2432 if ((!(SG_REALP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[88],SG_MAKE_STRING("real number"),x,SG_NIL);}}}
2433
2434 #line 330 "./lib_core.stub"
2435 if ((!(SG_REALP(e)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[88],SG_MAKE_STRING("real number"),e,SG_NIL);}}}
2436
2437 #line 331 "./lib_core.stub"
2438 SG_RESULT=(Sg_Rationalize(x,e));
2439 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2440 }
2441 }
2442 }
2443 static SG_DEFINE_SUBR(core_rationalize__STUB, 2, 0,core_rationalize, SG_FALSE, NULL);
2444
core_quotient(SgObject * SG_FP,int SG_ARGC,void * data_)2445 static SgObject core_quotient(SgObject *SG_FP, int SG_ARGC, void *data_)
2446 {
2447 SgObject n1_scm;
2448 SgObject n1;
2449 SgObject n2_scm;
2450 SgObject n2;
2451 SG_ENTER_SUBR("quotient");
2452 if (SG_ARGC != 2)
2453 Sg_WrongNumberOfArgumentsViolation(
2454 SG_INTERN("quotient"), 2, SG_ARGC, SG_NIL);
2455 n1_scm = SG_ARGREF(0);
2456 if (!SG_NUMBERP(n1_scm))
2457 Sg_WrongTypeOfArgumentViolation(
2458 sg__rc_cgen9166.d9486[89], SG_MAKE_STRING("number"), n1_scm, SG_NIL);
2459 n1 = (n1_scm);
2460 n2_scm = SG_ARGREF(1);
2461 if (!SG_NUMBERP(n2_scm))
2462 Sg_WrongTypeOfArgumentViolation(
2463 sg__rc_cgen9166.d9486[89], SG_MAKE_STRING("number"), n2_scm, SG_NIL);
2464 n2 = (n2_scm);
2465 {
2466 {
2467 SgObject SG_RESULT = (SgObject)NULL;
2468
2469 #line 335 "./lib_core.stub"
2470 if (SG_EQ(n2,SG_MAKE_INT(0))){{
2471 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[90],SG_MAKE_STRING("attempt to calculate a quotient by zero"),
2472 SG_LIST2(n1,n2));}}}
2473
2474 #line 338 "./lib_core.stub"
2475 SG_RESULT=(Sg_Quotient(n1,n2,NULL));
2476 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2477 }
2478 }
2479 }
2480 static SG_DEFINE_SUBR(core_quotient__STUB, 2, 0,core_quotient, SG_FALSE, NULL);
2481
core_remainder(SgObject * SG_FP,int SG_ARGC,void * data_)2482 static SgObject core_remainder(SgObject *SG_FP, int SG_ARGC, void *data_)
2483 {
2484 SgObject n1_scm;
2485 SgObject n1;
2486 SgObject n2_scm;
2487 SgObject n2;
2488 SG_ENTER_SUBR("remainder");
2489 if (SG_ARGC != 2)
2490 Sg_WrongNumberOfArgumentsViolation(
2491 SG_INTERN("remainder"), 2, SG_ARGC, SG_NIL);
2492 n1_scm = SG_ARGREF(0);
2493 if (!SG_NUMBERP(n1_scm))
2494 Sg_WrongTypeOfArgumentViolation(
2495 sg__rc_cgen9166.d9486[91], SG_MAKE_STRING("number"), n1_scm, SG_NIL);
2496 n1 = (n1_scm);
2497 n2_scm = SG_ARGREF(1);
2498 if (!SG_NUMBERP(n2_scm))
2499 Sg_WrongTypeOfArgumentViolation(
2500 sg__rc_cgen9166.d9486[91], SG_MAKE_STRING("number"), n2_scm, SG_NIL);
2501 n2 = (n2_scm);
2502 {
2503 {
2504 SgObject SG_RESULT = (SgObject)NULL;
2505
2506 #line 341 "./lib_core.stub"
2507 SG_RESULT=(Sg_Modulo(n1,n2,TRUE));
2508 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2509 }
2510 }
2511 }
2512 static SG_DEFINE_SUBR(core_remainder__STUB, 2, 0,core_remainder, SG_FALSE, NULL);
2513
core_modulo(SgObject * SG_FP,int SG_ARGC,void * data_)2514 static SgObject core_modulo(SgObject *SG_FP, int SG_ARGC, void *data_)
2515 {
2516 SgObject n1_scm;
2517 SgObject n1;
2518 SgObject n2_scm;
2519 SgObject n2;
2520 SG_ENTER_SUBR("modulo");
2521 if (SG_ARGC != 2)
2522 Sg_WrongNumberOfArgumentsViolation(
2523 SG_INTERN("modulo"), 2, SG_ARGC, SG_NIL);
2524 n1_scm = SG_ARGREF(0);
2525 if (!SG_NUMBERP(n1_scm))
2526 Sg_WrongTypeOfArgumentViolation(
2527 sg__rc_cgen9166.d9486[92], SG_MAKE_STRING("number"), n1_scm, SG_NIL);
2528 n1 = (n1_scm);
2529 n2_scm = SG_ARGREF(1);
2530 if (!SG_NUMBERP(n2_scm))
2531 Sg_WrongTypeOfArgumentViolation(
2532 sg__rc_cgen9166.d9486[92], SG_MAKE_STRING("number"), n2_scm, SG_NIL);
2533 n2 = (n2_scm);
2534 {
2535 {
2536 SgObject SG_RESULT = (SgObject)NULL;
2537
2538 #line 344 "./lib_core.stub"
2539 SG_RESULT=(Sg_Modulo(n1,n2,FALSE));
2540 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2541 }
2542 }
2543 }
2544 static SG_DEFINE_SUBR(core_modulo__STUB, 2, 0,core_modulo, SG_FALSE, NULL);
2545
core_integer_length(SgObject * SG_FP,int SG_ARGC,void * data_)2546 static SgObject core_integer_length(SgObject *SG_FP, int SG_ARGC, void *data_)
2547 {
2548 SgObject n_scm;
2549 SgObject n;
2550 SG_ENTER_SUBR("integer-length");
2551 if (SG_ARGC != 1)
2552 Sg_WrongNumberOfArgumentsViolation(
2553 SG_INTERN("integer-length"), 1, SG_ARGC, SG_NIL);
2554 n_scm = SG_ARGREF(0);
2555 if (!SG_NUMBERP(n_scm))
2556 Sg_WrongTypeOfArgumentViolation(
2557 sg__rc_cgen9166.d9486[93], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2558 n = (n_scm);
2559 {
2560 {
2561 long SG_RESULT = (long)0;
2562 SG_RESULT=(Sg_IntegerLength(n));
2563 SG_RETURN(SG_MAKE_INT(SG_RESULT));
2564 }
2565 }
2566 }
2567 static SG_DEFINE_SUBR(core_integer_length__STUB, 1, 0,core_integer_length, SG_FALSE, NULL);
2568
core_number_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)2569 static SgObject core_number_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
2570 {
2571 SgObject z_scm;
2572 SgObject z;
2573 SgObject radix_scm;
2574 long radix;
2575 SgObject precision_scm;
2576 SgObject precision;
2577 SG_ENTER_SUBR("number->string");
2578 if ((SG_ARGC > 3 &&
2579 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
2580 SG_ARGC < 1)
2581 Sg_WrongNumberOfArgumentsBetweenViolation(
2582 SG_INTERN("number->string"), 1, 3, SG_ARGC, SG_NIL);
2583 z_scm = SG_ARGREF(0);
2584 if (!SG_NUMBERP(z_scm))
2585 Sg_WrongTypeOfArgumentViolation(
2586 sg__rc_cgen9166.d9486[94], SG_MAKE_STRING("number"), z_scm, SG_NIL);
2587 z = (z_scm);
2588 if (SG_ARGC > 1+1) {
2589 radix_scm = SG_ARGREF(1);
2590 } else {
2591 radix_scm = SG_MAKE_INT(10U);
2592 }
2593 if (!SG_INTP(radix_scm) && !SG_INTP(radix_scm))
2594 Sg_WrongTypeOfArgumentViolation(
2595 sg__rc_cgen9166.d9486[94], SG_MAKE_STRING("fixnum"), radix_scm, SG_NIL);
2596 radix = SG_INT_VALUE(radix_scm);
2597 if (SG_ARGC > 2+1) {
2598 precision_scm = SG_ARGREF(2);
2599 } else {
2600 precision_scm = SG_UNBOUND;
2601 }
2602 precision = (precision_scm);
2603 {
2604 {
2605 SgObject SG_RESULT = (SgObject)NULL;
2606
2607 #line 354 "./lib_core.stub"
2608 SG_RESULT=(Sg_NumberToString(z,((int )(radix)),FALSE));
2609 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2610 }
2611 }
2612 }
2613 static SG_DEFINE_SUBR(core_number_TOstring__STUB, 1, 3,core_number_TOstring, SG_FALSE, NULL);
2614
core_string_TOnumber(SgObject * SG_FP,int SG_ARGC,void * data_)2615 static SgObject core_string_TOnumber(SgObject *SG_FP, int SG_ARGC, void *data_)
2616 {
2617 SgObject s_scm;
2618 SgString* s;
2619 SgObject radix_scm;
2620 long radix;
2621 SG_ENTER_SUBR("string->number");
2622 if ((SG_ARGC > 2 &&
2623 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
2624 SG_ARGC < 1)
2625 Sg_WrongNumberOfArgumentsBetweenViolation(
2626 SG_INTERN("string->number"), 1, 2, SG_ARGC, SG_NIL);
2627 s_scm = SG_ARGREF(0);
2628 if (!SG_STRINGP(s_scm))
2629 Sg_WrongTypeOfArgumentViolation(
2630 sg__rc_cgen9166.d9486[95], SG_MAKE_STRING("string"), s_scm, SG_NIL);
2631 s = SG_STRING(s_scm);
2632 if (SG_ARGC > 1+1) {
2633 radix_scm = SG_ARGREF(1);
2634 } else {
2635 radix_scm = SG_MAKE_INT(10U);
2636 }
2637 if (!SG_INTP(radix_scm) && !SG_INTP(radix_scm))
2638 Sg_WrongTypeOfArgumentViolation(
2639 sg__rc_cgen9166.d9486[95], SG_MAKE_STRING("fixnum"), radix_scm, SG_NIL);
2640 radix = SG_INT_VALUE(radix_scm);
2641 {
2642 {
2643 SgObject SG_RESULT = (SgObject)NULL;
2644
2645 #line 358 "./lib_core.stub"
2646 SG_RESULT=(Sg_StringToNumber(s,((int )(radix)),FALSE));
2647 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2648 }
2649 }
2650 }
2651 static SG_DEFINE_SUBR(core_string_TOnumber__STUB, 1, 2,core_string_TOnumber, SG_FALSE, NULL);
2652
core_not(SgObject * SG_FP,int SG_ARGC,void * data_)2653 static SgObject core_not(SgObject *SG_FP, int SG_ARGC, void *data_)
2654 {
2655 SgObject arg0_scm;
2656 SgObject arg0;
2657 SG_ENTER_SUBR("not");
2658 if (SG_ARGC != 1)
2659 Sg_WrongNumberOfArgumentsViolation(
2660 SG_INTERN("not"), 1, SG_ARGC, SG_NIL);
2661 arg0_scm = SG_ARGREF(0);
2662 arg0 = (arg0_scm);
2663 {
2664 {
2665 int SG_RESULT = (int)FALSE;
2666 SG_RESULT=(SG_FALSEP(arg0));
2667 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
2668 }
2669 }
2670 }
2671 static SG_DEFINE_SUBR(core_not__STUB, 1, 0,core_not, SG_MAKE_INT(NOT), NULL);
2672
core_boolean_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)2673 static SgObject core_boolean_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
2674 {
2675 SgObject b1_scm;
2676 SgObject b1;
2677 SgObject b2_scm;
2678 SgObject b2;
2679 SgObject rest_scm;
2680 SgObject rest;
2681 SG_ENTER_SUBR("boolean=?");
2682 if (SG_ARGC < 2)
2683 Sg_WrongNumberOfArgumentsAtLeastViolation(
2684 SG_INTERN("boolean=?"), 2, SG_ARGC, SG_NIL);
2685 b1_scm = SG_ARGREF(0);
2686 b1 = (b1_scm);
2687 b2_scm = SG_ARGREF(1);
2688 b2 = (b2_scm);
2689 rest_scm = SG_ARGREF(SG_ARGC-1);
2690 rest = (rest_scm);
2691 {
2692 {
2693 int SG_RESULT = (int)FALSE;
2694 SgObject cise__9779;
2695 #line 369 "./lib_core.stub"
2696 {if ((!(SG_BOOLP(b1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[98],SG_MAKE_STRING("boolean"),b1,SG_NIL);}}}if ((!(SG_BOOLP(b2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[98],SG_MAKE_STRING("boolean"),b2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=(SG_EQ(b1,b2));}else if((!(SG_EQ(b1,b2)))){SG_RESULT=(FALSE);} else {{SgObject prev=b2;SG_FOR_EACH(cise__9779,rest) {{SgObject p=SG_CAR(cise__9779);if ((!(SG_BOOLP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[98],SG_MAKE_STRING("boolean"),p,SG_NIL);}}}if ((!(SG_EQ(prev,p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
2697 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
2698 }
2699 }
2700 }
2701 static SG_DEFINE_SUBR(core_boolean_3dP__STUB, 2, 1,core_boolean_3dP, SG_FALSE, NULL);
2702
core_cons(SgObject * SG_FP,int SG_ARGC,void * data_)2703 static SgObject core_cons(SgObject *SG_FP, int SG_ARGC, void *data_)
2704 {
2705 SgObject o1_scm;
2706 SgObject o1;
2707 SgObject o2_scm;
2708 SgObject o2;
2709 SG_ENTER_SUBR("cons");
2710 if (SG_ARGC != 2)
2711 Sg_WrongNumberOfArgumentsViolation(
2712 SG_INTERN("cons"), 2, SG_ARGC, SG_NIL);
2713 o1_scm = SG_ARGREF(0);
2714 o1 = (o1_scm);
2715 o2_scm = SG_ARGREF(1);
2716 o2 = (o2_scm);
2717 {
2718 {
2719 SgObject SG_RESULT = (SgObject)NULL;
2720 SG_RESULT=(Sg_Cons(o1,o2));
2721 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2722 }
2723 }
2724 }
2725 static SG_DEFINE_SUBR(core_cons__STUB, 2, 0,core_cons, SG_MAKE_INT(CONS), NULL);
2726
core_car(SgObject * SG_FP,int SG_ARGC,void * data_)2727 static SgObject core_car(SgObject *SG_FP, int SG_ARGC, void *data_)
2728 {
2729 SgObject o_scm;
2730 SgPair* o;
2731 SG_ENTER_SUBR("car");
2732 if (SG_ARGC != 1)
2733 Sg_WrongNumberOfArgumentsViolation(
2734 SG_INTERN("car"), 1, SG_ARGC, SG_NIL);
2735 o_scm = SG_ARGREF(0);
2736 if (!SG_PAIRP(o_scm))
2737 Sg_WrongTypeOfArgumentViolation(
2738 sg__rc_cgen9166.d9486[100], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2739 o = SG_PAIR(o_scm);
2740 {
2741 {
2742 SgObject SG_RESULT = (SgObject)NULL;
2743 SG_RESULT=(SG_CAR(o));
2744 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2745 }
2746 }
2747 }
2748 static SG_DEFINE_SUBR(core_car__STUB, 1, 0,core_car, SG_MAKE_INT(CAR), NULL);
2749
core_cdr(SgObject * SG_FP,int SG_ARGC,void * data_)2750 static SgObject core_cdr(SgObject *SG_FP, int SG_ARGC, void *data_)
2751 {
2752 SgObject o_scm;
2753 SgPair* o;
2754 SG_ENTER_SUBR("cdr");
2755 if (SG_ARGC != 1)
2756 Sg_WrongNumberOfArgumentsViolation(
2757 SG_INTERN("cdr"), 1, SG_ARGC, SG_NIL);
2758 o_scm = SG_ARGREF(0);
2759 if (!SG_PAIRP(o_scm))
2760 Sg_WrongTypeOfArgumentViolation(
2761 sg__rc_cgen9166.d9486[101], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2762 o = SG_PAIR(o_scm);
2763 {
2764 {
2765 SgObject SG_RESULT = (SgObject)NULL;
2766 SG_RESULT=(SG_CDR(o));
2767 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2768 }
2769 }
2770 }
2771 static SG_DEFINE_SUBR(core_cdr__STUB, 1, 0,core_cdr, SG_MAKE_INT(CDR), NULL);
2772
2773 #define CXR_SETTER(PRE, pre, tail) SgObject cell = Sg_C##tail##r(obj); if (!SG_PAIRP(cell)) Sg_Error(UC("can't set c" #pre #tail "r of %S"), obj); SG_SET_C##PRE##R(cell, value);
core_caar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)2774 static SgObject core_caar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
2775 {
2776 SgObject obj_scm;
2777 SgObject obj;
2778 SgObject value_scm;
2779 SgObject value;
2780 SG_ENTER_SUBR("(setter caar)");
2781 if (SG_ARGC != 2)
2782 Sg_WrongNumberOfArgumentsViolation(
2783 SG_INTERN("(setter caar)"), 2, SG_ARGC, SG_NIL);
2784 obj_scm = SG_ARGREF(0);
2785 obj = (obj_scm);
2786 value_scm = SG_ARGREF(1);
2787 value = (value_scm);
2788 {
2789
2790 #line 386 "./lib_core.stub"
2791 CXR_SETTER(A,a,a);
2792 SG_RETURN(SG_UNDEF);
2793 }
2794 }
2795 static SG_DEFINE_SUBR(core_caar_SETTER__STUB, 2, 0,core_caar_SETTER, SG_FALSE, NULL);
2796
core_caar(SgObject * SG_FP,int SG_ARGC,void * data_)2797 static SgObject core_caar(SgObject *SG_FP, int SG_ARGC, void *data_)
2798 {
2799 SgObject o_scm;
2800 SgPair* o;
2801 SG_ENTER_SUBR("caar");
2802 if (SG_ARGC != 1)
2803 Sg_WrongNumberOfArgumentsViolation(
2804 SG_INTERN("caar"), 1, SG_ARGC, SG_NIL);
2805 o_scm = SG_ARGREF(0);
2806 if (!SG_PAIRP(o_scm))
2807 Sg_WrongTypeOfArgumentViolation(
2808 sg__rc_cgen9166.d9486[102], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2809 o = SG_PAIR(o_scm);
2810 {
2811 {
2812 SgObject SG_RESULT = (SgObject)NULL;
2813 SG_RESULT=(Sg_Caar(o));
2814 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2815 }
2816 }
2817 }
2818 static SG_DEFINE_SUBR(core_caar__STUB, 1, 0,core_caar, SG_MAKE_INT(CAAR), NULL);
2819
core_cadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)2820 static SgObject core_cadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
2821 {
2822 SgObject obj_scm;
2823 SgObject obj;
2824 SgObject value_scm;
2825 SgObject value;
2826 SG_ENTER_SUBR("(setter cadr)");
2827 if (SG_ARGC != 2)
2828 Sg_WrongNumberOfArgumentsViolation(
2829 SG_INTERN("(setter cadr)"), 2, SG_ARGC, SG_NIL);
2830 obj_scm = SG_ARGREF(0);
2831 obj = (obj_scm);
2832 value_scm = SG_ARGREF(1);
2833 value = (value_scm);
2834 {
2835
2836 #line 388 "./lib_core.stub"
2837 CXR_SETTER(A,a,d);
2838 SG_RETURN(SG_UNDEF);
2839 }
2840 }
2841 static SG_DEFINE_SUBR(core_cadr_SETTER__STUB, 2, 0,core_cadr_SETTER, SG_FALSE, NULL);
2842
core_cadr(SgObject * SG_FP,int SG_ARGC,void * data_)2843 static SgObject core_cadr(SgObject *SG_FP, int SG_ARGC, void *data_)
2844 {
2845 SgObject o_scm;
2846 SgPair* o;
2847 SG_ENTER_SUBR("cadr");
2848 if (SG_ARGC != 1)
2849 Sg_WrongNumberOfArgumentsViolation(
2850 SG_INTERN("cadr"), 1, SG_ARGC, SG_NIL);
2851 o_scm = SG_ARGREF(0);
2852 if (!SG_PAIRP(o_scm))
2853 Sg_WrongTypeOfArgumentViolation(
2854 sg__rc_cgen9166.d9486[104], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2855 o = SG_PAIR(o_scm);
2856 {
2857 {
2858 SgObject SG_RESULT = (SgObject)NULL;
2859 SG_RESULT=(Sg_Cadr(o));
2860 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2861 }
2862 }
2863 }
2864 static SG_DEFINE_SUBR(core_cadr__STUB, 1, 0,core_cadr, SG_MAKE_INT(CADR), NULL);
2865
core_cdar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)2866 static SgObject core_cdar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
2867 {
2868 SgObject obj_scm;
2869 SgObject obj;
2870 SgObject value_scm;
2871 SgObject value;
2872 SG_ENTER_SUBR("(setter cdar)");
2873 if (SG_ARGC != 2)
2874 Sg_WrongNumberOfArgumentsViolation(
2875 SG_INTERN("(setter cdar)"), 2, SG_ARGC, SG_NIL);
2876 obj_scm = SG_ARGREF(0);
2877 obj = (obj_scm);
2878 value_scm = SG_ARGREF(1);
2879 value = (value_scm);
2880 {
2881
2882 #line 390 "./lib_core.stub"
2883 CXR_SETTER(D,d,a);
2884 SG_RETURN(SG_UNDEF);
2885 }
2886 }
2887 static SG_DEFINE_SUBR(core_cdar_SETTER__STUB, 2, 0,core_cdar_SETTER, SG_FALSE, NULL);
2888
core_cdar(SgObject * SG_FP,int SG_ARGC,void * data_)2889 static SgObject core_cdar(SgObject *SG_FP, int SG_ARGC, void *data_)
2890 {
2891 SgObject o_scm;
2892 SgPair* o;
2893 SG_ENTER_SUBR("cdar");
2894 if (SG_ARGC != 1)
2895 Sg_WrongNumberOfArgumentsViolation(
2896 SG_INTERN("cdar"), 1, SG_ARGC, SG_NIL);
2897 o_scm = SG_ARGREF(0);
2898 if (!SG_PAIRP(o_scm))
2899 Sg_WrongTypeOfArgumentViolation(
2900 sg__rc_cgen9166.d9486[106], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2901 o = SG_PAIR(o_scm);
2902 {
2903 {
2904 SgObject SG_RESULT = (SgObject)NULL;
2905 SG_RESULT=(Sg_Cdar(o));
2906 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2907 }
2908 }
2909 }
2910 static SG_DEFINE_SUBR(core_cdar__STUB, 1, 0,core_cdar, SG_MAKE_INT(CDAR), NULL);
2911
core_cddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)2912 static SgObject core_cddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
2913 {
2914 SgObject obj_scm;
2915 SgObject obj;
2916 SgObject value_scm;
2917 SgObject value;
2918 SG_ENTER_SUBR("(setter cddr)");
2919 if (SG_ARGC != 2)
2920 Sg_WrongNumberOfArgumentsViolation(
2921 SG_INTERN("(setter cddr)"), 2, SG_ARGC, SG_NIL);
2922 obj_scm = SG_ARGREF(0);
2923 obj = (obj_scm);
2924 value_scm = SG_ARGREF(1);
2925 value = (value_scm);
2926 {
2927
2928 #line 392 "./lib_core.stub"
2929 CXR_SETTER(D,d,d);
2930 SG_RETURN(SG_UNDEF);
2931 }
2932 }
2933 static SG_DEFINE_SUBR(core_cddr_SETTER__STUB, 2, 0,core_cddr_SETTER, SG_FALSE, NULL);
2934
core_cddr(SgObject * SG_FP,int SG_ARGC,void * data_)2935 static SgObject core_cddr(SgObject *SG_FP, int SG_ARGC, void *data_)
2936 {
2937 SgObject o_scm;
2938 SgPair* o;
2939 SG_ENTER_SUBR("cddr");
2940 if (SG_ARGC != 1)
2941 Sg_WrongNumberOfArgumentsViolation(
2942 SG_INTERN("cddr"), 1, SG_ARGC, SG_NIL);
2943 o_scm = SG_ARGREF(0);
2944 if (!SG_PAIRP(o_scm))
2945 Sg_WrongTypeOfArgumentViolation(
2946 sg__rc_cgen9166.d9486[108], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2947 o = SG_PAIR(o_scm);
2948 {
2949 {
2950 SgObject SG_RESULT = (SgObject)NULL;
2951 SG_RESULT=(Sg_Cddr(o));
2952 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2953 }
2954 }
2955 }
2956 static SG_DEFINE_SUBR(core_cddr__STUB, 1, 0,core_cddr, SG_MAKE_INT(CDDR), NULL);
2957
2958 #define CXXR_SETTER(PRE, pre, tail) SgObject cell = Sg_C##pre##r(Sg_C##tail##r(obj)); if (!SG_PAIRP(cell)) Sg_Error(UC("can't set c" #pre #tail "r of %S"), obj); SG_SET_C##PRE##R(cell, value);
core_caaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)2959 static SgObject core_caaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
2960 {
2961 SgObject obj_scm;
2962 SgObject obj;
2963 SgObject value_scm;
2964 SgObject value;
2965 SG_ENTER_SUBR("(setter caaar)");
2966 if (SG_ARGC != 2)
2967 Sg_WrongNumberOfArgumentsViolation(
2968 SG_INTERN("(setter caaar)"), 2, SG_ARGC, SG_NIL);
2969 obj_scm = SG_ARGREF(0);
2970 obj = (obj_scm);
2971 value_scm = SG_ARGREF(1);
2972 value = (value_scm);
2973 {
2974
2975 #line 403 "./lib_core.stub"
2976 CXXR_SETTER(A,a,a);
2977 SG_RETURN(SG_UNDEF);
2978 }
2979 }
2980 static SG_DEFINE_SUBR(core_caaar_SETTER__STUB, 2, 0,core_caaar_SETTER, SG_FALSE, NULL);
2981
core_caaar(SgObject * SG_FP,int SG_ARGC,void * data_)2982 static SgObject core_caaar(SgObject *SG_FP, int SG_ARGC, void *data_)
2983 {
2984 SgObject o_scm;
2985 SgObject o;
2986 SG_ENTER_SUBR("caaar");
2987 if (SG_ARGC != 1)
2988 Sg_WrongNumberOfArgumentsViolation(
2989 SG_INTERN("caaar"), 1, SG_ARGC, SG_NIL);
2990 o_scm = SG_ARGREF(0);
2991 o = (o_scm);
2992 {
2993 {
2994 SgObject SG_RESULT = (SgObject)NULL;
2995
2996 #line 404 "./lib_core.stub"
2997 SG_RESULT=(Sg_Car(Sg_Caar(o)));
2998 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2999 }
3000 }
3001 }
3002 static SG_DEFINE_SUBR(core_caaar__STUB, 1, 0,core_caaar, SG_FALSE, NULL);
3003
core_caadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3004 static SgObject core_caadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3005 {
3006 SgObject obj_scm;
3007 SgObject obj;
3008 SgObject value_scm;
3009 SgObject value;
3010 SG_ENTER_SUBR("(setter caadr)");
3011 if (SG_ARGC != 2)
3012 Sg_WrongNumberOfArgumentsViolation(
3013 SG_INTERN("(setter caadr)"), 2, SG_ARGC, SG_NIL);
3014 obj_scm = SG_ARGREF(0);
3015 obj = (obj_scm);
3016 value_scm = SG_ARGREF(1);
3017 value = (value_scm);
3018 {
3019
3020 #line 406 "./lib_core.stub"
3021 CXXR_SETTER(A,a,d);
3022 SG_RETURN(SG_UNDEF);
3023 }
3024 }
3025 static SG_DEFINE_SUBR(core_caadr_SETTER__STUB, 2, 0,core_caadr_SETTER, SG_FALSE, NULL);
3026
core_caadr(SgObject * SG_FP,int SG_ARGC,void * data_)3027 static SgObject core_caadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3028 {
3029 SgObject o_scm;
3030 SgObject o;
3031 SG_ENTER_SUBR("caadr");
3032 if (SG_ARGC != 1)
3033 Sg_WrongNumberOfArgumentsViolation(
3034 SG_INTERN("caadr"), 1, SG_ARGC, SG_NIL);
3035 o_scm = SG_ARGREF(0);
3036 o = (o_scm);
3037 {
3038 {
3039 SgObject SG_RESULT = (SgObject)NULL;
3040
3041 #line 407 "./lib_core.stub"
3042 SG_RESULT=(Sg_Car(Sg_Cadr(o)));
3043 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3044 }
3045 }
3046 }
3047 static SG_DEFINE_SUBR(core_caadr__STUB, 1, 0,core_caadr, SG_FALSE, NULL);
3048
core_cadar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3049 static SgObject core_cadar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3050 {
3051 SgObject obj_scm;
3052 SgObject obj;
3053 SgObject value_scm;
3054 SgObject value;
3055 SG_ENTER_SUBR("(setter cadar)");
3056 if (SG_ARGC != 2)
3057 Sg_WrongNumberOfArgumentsViolation(
3058 SG_INTERN("(setter cadar)"), 2, SG_ARGC, SG_NIL);
3059 obj_scm = SG_ARGREF(0);
3060 obj = (obj_scm);
3061 value_scm = SG_ARGREF(1);
3062 value = (value_scm);
3063 {
3064
3065 #line 409 "./lib_core.stub"
3066 CXXR_SETTER(A,d,a);
3067 SG_RETURN(SG_UNDEF);
3068 }
3069 }
3070 static SG_DEFINE_SUBR(core_cadar_SETTER__STUB, 2, 0,core_cadar_SETTER, SG_FALSE, NULL);
3071
core_cadar(SgObject * SG_FP,int SG_ARGC,void * data_)3072 static SgObject core_cadar(SgObject *SG_FP, int SG_ARGC, void *data_)
3073 {
3074 SgObject o_scm;
3075 SgObject o;
3076 SG_ENTER_SUBR("cadar");
3077 if (SG_ARGC != 1)
3078 Sg_WrongNumberOfArgumentsViolation(
3079 SG_INTERN("cadar"), 1, SG_ARGC, SG_NIL);
3080 o_scm = SG_ARGREF(0);
3081 o = (o_scm);
3082 {
3083 {
3084 SgObject SG_RESULT = (SgObject)NULL;
3085
3086 #line 410 "./lib_core.stub"
3087 SG_RESULT=(Sg_Car(Sg_Cdar(o)));
3088 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3089 }
3090 }
3091 }
3092 static SG_DEFINE_SUBR(core_cadar__STUB, 1, 0,core_cadar, SG_FALSE, NULL);
3093
core_caddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3094 static SgObject core_caddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3095 {
3096 SgObject obj_scm;
3097 SgObject obj;
3098 SgObject value_scm;
3099 SgObject value;
3100 SG_ENTER_SUBR("(setter caddr)");
3101 if (SG_ARGC != 2)
3102 Sg_WrongNumberOfArgumentsViolation(
3103 SG_INTERN("(setter caddr)"), 2, SG_ARGC, SG_NIL);
3104 obj_scm = SG_ARGREF(0);
3105 obj = (obj_scm);
3106 value_scm = SG_ARGREF(1);
3107 value = (value_scm);
3108 {
3109
3110 #line 412 "./lib_core.stub"
3111 CXXR_SETTER(A,d,d);
3112 SG_RETURN(SG_UNDEF);
3113 }
3114 }
3115 static SG_DEFINE_SUBR(core_caddr_SETTER__STUB, 2, 0,core_caddr_SETTER, SG_FALSE, NULL);
3116
core_caddr(SgObject * SG_FP,int SG_ARGC,void * data_)3117 static SgObject core_caddr(SgObject *SG_FP, int SG_ARGC, void *data_)
3118 {
3119 SgObject o_scm;
3120 SgObject o;
3121 SG_ENTER_SUBR("caddr");
3122 if (SG_ARGC != 1)
3123 Sg_WrongNumberOfArgumentsViolation(
3124 SG_INTERN("caddr"), 1, SG_ARGC, SG_NIL);
3125 o_scm = SG_ARGREF(0);
3126 o = (o_scm);
3127 {
3128 {
3129 SgObject SG_RESULT = (SgObject)NULL;
3130
3131 #line 413 "./lib_core.stub"
3132 SG_RESULT=(Sg_Car(Sg_Cddr(o)));
3133 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3134 }
3135 }
3136 }
3137 static SG_DEFINE_SUBR(core_caddr__STUB, 1, 0,core_caddr, SG_FALSE, NULL);
3138
core_cdaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3139 static SgObject core_cdaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3140 {
3141 SgObject obj_scm;
3142 SgObject obj;
3143 SgObject value_scm;
3144 SgObject value;
3145 SG_ENTER_SUBR("(setter cdaar)");
3146 if (SG_ARGC != 2)
3147 Sg_WrongNumberOfArgumentsViolation(
3148 SG_INTERN("(setter cdaar)"), 2, SG_ARGC, SG_NIL);
3149 obj_scm = SG_ARGREF(0);
3150 obj = (obj_scm);
3151 value_scm = SG_ARGREF(1);
3152 value = (value_scm);
3153 {
3154
3155 #line 415 "./lib_core.stub"
3156 CXXR_SETTER(D,a,a);
3157 SG_RETURN(SG_UNDEF);
3158 }
3159 }
3160 static SG_DEFINE_SUBR(core_cdaar_SETTER__STUB, 2, 0,core_cdaar_SETTER, SG_FALSE, NULL);
3161
core_cdaar(SgObject * SG_FP,int SG_ARGC,void * data_)3162 static SgObject core_cdaar(SgObject *SG_FP, int SG_ARGC, void *data_)
3163 {
3164 SgObject o_scm;
3165 SgObject o;
3166 SG_ENTER_SUBR("cdaar");
3167 if (SG_ARGC != 1)
3168 Sg_WrongNumberOfArgumentsViolation(
3169 SG_INTERN("cdaar"), 1, SG_ARGC, SG_NIL);
3170 o_scm = SG_ARGREF(0);
3171 o = (o_scm);
3172 {
3173 {
3174 SgObject SG_RESULT = (SgObject)NULL;
3175
3176 #line 416 "./lib_core.stub"
3177 SG_RESULT=(Sg_Cdr(Sg_Caar(o)));
3178 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3179 }
3180 }
3181 }
3182 static SG_DEFINE_SUBR(core_cdaar__STUB, 1, 0,core_cdaar, SG_FALSE, NULL);
3183
core_cdadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3184 static SgObject core_cdadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3185 {
3186 SgObject obj_scm;
3187 SgObject obj;
3188 SgObject value_scm;
3189 SgObject value;
3190 SG_ENTER_SUBR("(setter cdadr)");
3191 if (SG_ARGC != 2)
3192 Sg_WrongNumberOfArgumentsViolation(
3193 SG_INTERN("(setter cdadr)"), 2, SG_ARGC, SG_NIL);
3194 obj_scm = SG_ARGREF(0);
3195 obj = (obj_scm);
3196 value_scm = SG_ARGREF(1);
3197 value = (value_scm);
3198 {
3199
3200 #line 418 "./lib_core.stub"
3201 CXXR_SETTER(D,a,d);
3202 SG_RETURN(SG_UNDEF);
3203 }
3204 }
3205 static SG_DEFINE_SUBR(core_cdadr_SETTER__STUB, 2, 0,core_cdadr_SETTER, SG_FALSE, NULL);
3206
core_cdadr(SgObject * SG_FP,int SG_ARGC,void * data_)3207 static SgObject core_cdadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3208 {
3209 SgObject o_scm;
3210 SgObject o;
3211 SG_ENTER_SUBR("cdadr");
3212 if (SG_ARGC != 1)
3213 Sg_WrongNumberOfArgumentsViolation(
3214 SG_INTERN("cdadr"), 1, SG_ARGC, SG_NIL);
3215 o_scm = SG_ARGREF(0);
3216 o = (o_scm);
3217 {
3218 {
3219 SgObject SG_RESULT = (SgObject)NULL;
3220
3221 #line 419 "./lib_core.stub"
3222 SG_RESULT=(Sg_Cdr(Sg_Cadr(o)));
3223 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3224 }
3225 }
3226 }
3227 static SG_DEFINE_SUBR(core_cdadr__STUB, 1, 0,core_cdadr, SG_FALSE, NULL);
3228
core_cddar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3229 static SgObject core_cddar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3230 {
3231 SgObject obj_scm;
3232 SgObject obj;
3233 SgObject value_scm;
3234 SgObject value;
3235 SG_ENTER_SUBR("(setter cddar)");
3236 if (SG_ARGC != 2)
3237 Sg_WrongNumberOfArgumentsViolation(
3238 SG_INTERN("(setter cddar)"), 2, SG_ARGC, SG_NIL);
3239 obj_scm = SG_ARGREF(0);
3240 obj = (obj_scm);
3241 value_scm = SG_ARGREF(1);
3242 value = (value_scm);
3243 {
3244
3245 #line 421 "./lib_core.stub"
3246 CXXR_SETTER(D,d,a);
3247 SG_RETURN(SG_UNDEF);
3248 }
3249 }
3250 static SG_DEFINE_SUBR(core_cddar_SETTER__STUB, 2, 0,core_cddar_SETTER, SG_FALSE, NULL);
3251
core_cddar(SgObject * SG_FP,int SG_ARGC,void * data_)3252 static SgObject core_cddar(SgObject *SG_FP, int SG_ARGC, void *data_)
3253 {
3254 SgObject o_scm;
3255 SgObject o;
3256 SG_ENTER_SUBR("cddar");
3257 if (SG_ARGC != 1)
3258 Sg_WrongNumberOfArgumentsViolation(
3259 SG_INTERN("cddar"), 1, SG_ARGC, SG_NIL);
3260 o_scm = SG_ARGREF(0);
3261 o = (o_scm);
3262 {
3263 {
3264 SgObject SG_RESULT = (SgObject)NULL;
3265
3266 #line 422 "./lib_core.stub"
3267 SG_RESULT=(Sg_Cdr(Sg_Cdar(o)));
3268 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3269 }
3270 }
3271 }
3272 static SG_DEFINE_SUBR(core_cddar__STUB, 1, 0,core_cddar, SG_FALSE, NULL);
3273
core_cdddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3274 static SgObject core_cdddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3275 {
3276 SgObject obj_scm;
3277 SgObject obj;
3278 SgObject value_scm;
3279 SgObject value;
3280 SG_ENTER_SUBR("(setter cdddr)");
3281 if (SG_ARGC != 2)
3282 Sg_WrongNumberOfArgumentsViolation(
3283 SG_INTERN("(setter cdddr)"), 2, SG_ARGC, SG_NIL);
3284 obj_scm = SG_ARGREF(0);
3285 obj = (obj_scm);
3286 value_scm = SG_ARGREF(1);
3287 value = (value_scm);
3288 {
3289
3290 #line 424 "./lib_core.stub"
3291 CXXR_SETTER(D,d,d);
3292 SG_RETURN(SG_UNDEF);
3293 }
3294 }
3295 static SG_DEFINE_SUBR(core_cdddr_SETTER__STUB, 2, 0,core_cdddr_SETTER, SG_FALSE, NULL);
3296
core_cdddr(SgObject * SG_FP,int SG_ARGC,void * data_)3297 static SgObject core_cdddr(SgObject *SG_FP, int SG_ARGC, void *data_)
3298 {
3299 SgObject o_scm;
3300 SgObject o;
3301 SG_ENTER_SUBR("cdddr");
3302 if (SG_ARGC != 1)
3303 Sg_WrongNumberOfArgumentsViolation(
3304 SG_INTERN("cdddr"), 1, SG_ARGC, SG_NIL);
3305 o_scm = SG_ARGREF(0);
3306 o = (o_scm);
3307 {
3308 {
3309 SgObject SG_RESULT = (SgObject)NULL;
3310
3311 #line 425 "./lib_core.stub"
3312 SG_RESULT=(Sg_Cdr(Sg_Cddr(o)));
3313 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3314 }
3315 }
3316 }
3317 static SG_DEFINE_SUBR(core_cdddr__STUB, 1, 0,core_cdddr, SG_FALSE, NULL);
3318
core_caaaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3319 static SgObject core_caaaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3320 {
3321 SgObject obj_scm;
3322 SgObject obj;
3323 SgObject value_scm;
3324 SgObject value;
3325 SG_ENTER_SUBR("(setter caaaar)");
3326 if (SG_ARGC != 2)
3327 Sg_WrongNumberOfArgumentsViolation(
3328 SG_INTERN("(setter caaaar)"), 2, SG_ARGC, SG_NIL);
3329 obj_scm = SG_ARGREF(0);
3330 obj = (obj_scm);
3331 value_scm = SG_ARGREF(1);
3332 value = (value_scm);
3333 {
3334
3335 #line 427 "./lib_core.stub"
3336 CXXR_SETTER(A,a,aa);
3337 SG_RETURN(SG_UNDEF);
3338 }
3339 }
3340 static SG_DEFINE_SUBR(core_caaaar_SETTER__STUB, 2, 0,core_caaaar_SETTER, SG_FALSE, NULL);
3341
core_caaaar(SgObject * SG_FP,int SG_ARGC,void * data_)3342 static SgObject core_caaaar(SgObject *SG_FP, int SG_ARGC, void *data_)
3343 {
3344 SgObject o_scm;
3345 SgObject o;
3346 SG_ENTER_SUBR("caaaar");
3347 if (SG_ARGC != 1)
3348 Sg_WrongNumberOfArgumentsViolation(
3349 SG_INTERN("caaaar"), 1, SG_ARGC, SG_NIL);
3350 o_scm = SG_ARGREF(0);
3351 o = (o_scm);
3352 {
3353 {
3354 SgObject SG_RESULT = (SgObject)NULL;
3355
3356 #line 428 "./lib_core.stub"
3357 SG_RESULT=(Sg_Caar(Sg_Caar(o)));
3358 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3359 }
3360 }
3361 }
3362 static SG_DEFINE_SUBR(core_caaaar__STUB, 1, 0,core_caaaar, SG_FALSE, NULL);
3363
core_caaadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3364 static SgObject core_caaadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3365 {
3366 SgObject obj_scm;
3367 SgObject obj;
3368 SgObject value_scm;
3369 SgObject value;
3370 SG_ENTER_SUBR("(setter caaadr)");
3371 if (SG_ARGC != 2)
3372 Sg_WrongNumberOfArgumentsViolation(
3373 SG_INTERN("(setter caaadr)"), 2, SG_ARGC, SG_NIL);
3374 obj_scm = SG_ARGREF(0);
3375 obj = (obj_scm);
3376 value_scm = SG_ARGREF(1);
3377 value = (value_scm);
3378 {
3379
3380 #line 430 "./lib_core.stub"
3381 CXXR_SETTER(A,a,ad);
3382 SG_RETURN(SG_UNDEF);
3383 }
3384 }
3385 static SG_DEFINE_SUBR(core_caaadr_SETTER__STUB, 2, 0,core_caaadr_SETTER, SG_FALSE, NULL);
3386
core_caaadr(SgObject * SG_FP,int SG_ARGC,void * data_)3387 static SgObject core_caaadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3388 {
3389 SgObject o_scm;
3390 SgObject o;
3391 SG_ENTER_SUBR("caaadr");
3392 if (SG_ARGC != 1)
3393 Sg_WrongNumberOfArgumentsViolation(
3394 SG_INTERN("caaadr"), 1, SG_ARGC, SG_NIL);
3395 o_scm = SG_ARGREF(0);
3396 o = (o_scm);
3397 {
3398 {
3399 SgObject SG_RESULT = (SgObject)NULL;
3400
3401 #line 431 "./lib_core.stub"
3402 SG_RESULT=(Sg_Caar(Sg_Cadr(o)));
3403 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3404 }
3405 }
3406 }
3407 static SG_DEFINE_SUBR(core_caaadr__STUB, 1, 0,core_caaadr, SG_FALSE, NULL);
3408
core_caadar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3409 static SgObject core_caadar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3410 {
3411 SgObject obj_scm;
3412 SgObject obj;
3413 SgObject value_scm;
3414 SgObject value;
3415 SG_ENTER_SUBR("(setter caadar)");
3416 if (SG_ARGC != 2)
3417 Sg_WrongNumberOfArgumentsViolation(
3418 SG_INTERN("(setter caadar)"), 2, SG_ARGC, SG_NIL);
3419 obj_scm = SG_ARGREF(0);
3420 obj = (obj_scm);
3421 value_scm = SG_ARGREF(1);
3422 value = (value_scm);
3423 {
3424
3425 #line 433 "./lib_core.stub"
3426 CXXR_SETTER(A,a,da);
3427 SG_RETURN(SG_UNDEF);
3428 }
3429 }
3430 static SG_DEFINE_SUBR(core_caadar_SETTER__STUB, 2, 0,core_caadar_SETTER, SG_FALSE, NULL);
3431
core_caadar(SgObject * SG_FP,int SG_ARGC,void * data_)3432 static SgObject core_caadar(SgObject *SG_FP, int SG_ARGC, void *data_)
3433 {
3434 SgObject o_scm;
3435 SgObject o;
3436 SG_ENTER_SUBR("caadar");
3437 if (SG_ARGC != 1)
3438 Sg_WrongNumberOfArgumentsViolation(
3439 SG_INTERN("caadar"), 1, SG_ARGC, SG_NIL);
3440 o_scm = SG_ARGREF(0);
3441 o = (o_scm);
3442 {
3443 {
3444 SgObject SG_RESULT = (SgObject)NULL;
3445
3446 #line 434 "./lib_core.stub"
3447 SG_RESULT=(Sg_Caar(Sg_Cdar(o)));
3448 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3449 }
3450 }
3451 }
3452 static SG_DEFINE_SUBR(core_caadar__STUB, 1, 0,core_caadar, SG_FALSE, NULL);
3453
core_caaddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3454 static SgObject core_caaddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3455 {
3456 SgObject obj_scm;
3457 SgObject obj;
3458 SgObject value_scm;
3459 SgObject value;
3460 SG_ENTER_SUBR("(setter caaddr)");
3461 if (SG_ARGC != 2)
3462 Sg_WrongNumberOfArgumentsViolation(
3463 SG_INTERN("(setter caaddr)"), 2, SG_ARGC, SG_NIL);
3464 obj_scm = SG_ARGREF(0);
3465 obj = (obj_scm);
3466 value_scm = SG_ARGREF(1);
3467 value = (value_scm);
3468 {
3469
3470 #line 436 "./lib_core.stub"
3471 CXXR_SETTER(A,a,dd);
3472 SG_RETURN(SG_UNDEF);
3473 }
3474 }
3475 static SG_DEFINE_SUBR(core_caaddr_SETTER__STUB, 2, 0,core_caaddr_SETTER, SG_FALSE, NULL);
3476
core_caaddr(SgObject * SG_FP,int SG_ARGC,void * data_)3477 static SgObject core_caaddr(SgObject *SG_FP, int SG_ARGC, void *data_)
3478 {
3479 SgObject o_scm;
3480 SgObject o;
3481 SG_ENTER_SUBR("caaddr");
3482 if (SG_ARGC != 1)
3483 Sg_WrongNumberOfArgumentsViolation(
3484 SG_INTERN("caaddr"), 1, SG_ARGC, SG_NIL);
3485 o_scm = SG_ARGREF(0);
3486 o = (o_scm);
3487 {
3488 {
3489 SgObject SG_RESULT = (SgObject)NULL;
3490
3491 #line 437 "./lib_core.stub"
3492 SG_RESULT=(Sg_Caar(Sg_Cddr(o)));
3493 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3494 }
3495 }
3496 }
3497 static SG_DEFINE_SUBR(core_caaddr__STUB, 1, 0,core_caaddr, SG_FALSE, NULL);
3498
core_cadaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3499 static SgObject core_cadaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3500 {
3501 SgObject obj_scm;
3502 SgObject obj;
3503 SgObject value_scm;
3504 SgObject value;
3505 SG_ENTER_SUBR("(setter cadaar)");
3506 if (SG_ARGC != 2)
3507 Sg_WrongNumberOfArgumentsViolation(
3508 SG_INTERN("(setter cadaar)"), 2, SG_ARGC, SG_NIL);
3509 obj_scm = SG_ARGREF(0);
3510 obj = (obj_scm);
3511 value_scm = SG_ARGREF(1);
3512 value = (value_scm);
3513 {
3514
3515 #line 439 "./lib_core.stub"
3516 CXXR_SETTER(A,d,aa);
3517 SG_RETURN(SG_UNDEF);
3518 }
3519 }
3520 static SG_DEFINE_SUBR(core_cadaar_SETTER__STUB, 2, 0,core_cadaar_SETTER, SG_FALSE, NULL);
3521
core_cadaar(SgObject * SG_FP,int SG_ARGC,void * data_)3522 static SgObject core_cadaar(SgObject *SG_FP, int SG_ARGC, void *data_)
3523 {
3524 SgObject o_scm;
3525 SgObject o;
3526 SG_ENTER_SUBR("cadaar");
3527 if (SG_ARGC != 1)
3528 Sg_WrongNumberOfArgumentsViolation(
3529 SG_INTERN("cadaar"), 1, SG_ARGC, SG_NIL);
3530 o_scm = SG_ARGREF(0);
3531 o = (o_scm);
3532 {
3533 {
3534 SgObject SG_RESULT = (SgObject)NULL;
3535
3536 #line 440 "./lib_core.stub"
3537 SG_RESULT=(Sg_Cadr(Sg_Caar(o)));
3538 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3539 }
3540 }
3541 }
3542 static SG_DEFINE_SUBR(core_cadaar__STUB, 1, 0,core_cadaar, SG_FALSE, NULL);
3543
core_cadadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3544 static SgObject core_cadadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3545 {
3546 SgObject obj_scm;
3547 SgObject obj;
3548 SgObject value_scm;
3549 SgObject value;
3550 SG_ENTER_SUBR("(setter cadadr)");
3551 if (SG_ARGC != 2)
3552 Sg_WrongNumberOfArgumentsViolation(
3553 SG_INTERN("(setter cadadr)"), 2, SG_ARGC, SG_NIL);
3554 obj_scm = SG_ARGREF(0);
3555 obj = (obj_scm);
3556 value_scm = SG_ARGREF(1);
3557 value = (value_scm);
3558 {
3559
3560 #line 442 "./lib_core.stub"
3561 CXXR_SETTER(A,d,ad);
3562 SG_RETURN(SG_UNDEF);
3563 }
3564 }
3565 static SG_DEFINE_SUBR(core_cadadr_SETTER__STUB, 2, 0,core_cadadr_SETTER, SG_FALSE, NULL);
3566
core_cadadr(SgObject * SG_FP,int SG_ARGC,void * data_)3567 static SgObject core_cadadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3568 {
3569 SgObject o_scm;
3570 SgObject o;
3571 SG_ENTER_SUBR("cadadr");
3572 if (SG_ARGC != 1)
3573 Sg_WrongNumberOfArgumentsViolation(
3574 SG_INTERN("cadadr"), 1, SG_ARGC, SG_NIL);
3575 o_scm = SG_ARGREF(0);
3576 o = (o_scm);
3577 {
3578 {
3579 SgObject SG_RESULT = (SgObject)NULL;
3580
3581 #line 443 "./lib_core.stub"
3582 SG_RESULT=(Sg_Cadr(Sg_Cadr(o)));
3583 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3584 }
3585 }
3586 }
3587 static SG_DEFINE_SUBR(core_cadadr__STUB, 1, 0,core_cadadr, SG_FALSE, NULL);
3588
core_caddar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3589 static SgObject core_caddar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3590 {
3591 SgObject obj_scm;
3592 SgObject obj;
3593 SgObject value_scm;
3594 SgObject value;
3595 SG_ENTER_SUBR("(setter caddar)");
3596 if (SG_ARGC != 2)
3597 Sg_WrongNumberOfArgumentsViolation(
3598 SG_INTERN("(setter caddar)"), 2, SG_ARGC, SG_NIL);
3599 obj_scm = SG_ARGREF(0);
3600 obj = (obj_scm);
3601 value_scm = SG_ARGREF(1);
3602 value = (value_scm);
3603 {
3604
3605 #line 445 "./lib_core.stub"
3606 CXXR_SETTER(A,d,da);
3607 SG_RETURN(SG_UNDEF);
3608 }
3609 }
3610 static SG_DEFINE_SUBR(core_caddar_SETTER__STUB, 2, 0,core_caddar_SETTER, SG_FALSE, NULL);
3611
core_caddar(SgObject * SG_FP,int SG_ARGC,void * data_)3612 static SgObject core_caddar(SgObject *SG_FP, int SG_ARGC, void *data_)
3613 {
3614 SgObject o_scm;
3615 SgObject o;
3616 SG_ENTER_SUBR("caddar");
3617 if (SG_ARGC != 1)
3618 Sg_WrongNumberOfArgumentsViolation(
3619 SG_INTERN("caddar"), 1, SG_ARGC, SG_NIL);
3620 o_scm = SG_ARGREF(0);
3621 o = (o_scm);
3622 {
3623 {
3624 SgObject SG_RESULT = (SgObject)NULL;
3625
3626 #line 446 "./lib_core.stub"
3627 SG_RESULT=(Sg_Cadr(Sg_Cdar(o)));
3628 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3629 }
3630 }
3631 }
3632 static SG_DEFINE_SUBR(core_caddar__STUB, 1, 0,core_caddar, SG_FALSE, NULL);
3633
core_cadddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3634 static SgObject core_cadddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3635 {
3636 SgObject obj_scm;
3637 SgObject obj;
3638 SgObject value_scm;
3639 SgObject value;
3640 SG_ENTER_SUBR("(setter cadddr)");
3641 if (SG_ARGC != 2)
3642 Sg_WrongNumberOfArgumentsViolation(
3643 SG_INTERN("(setter cadddr)"), 2, SG_ARGC, SG_NIL);
3644 obj_scm = SG_ARGREF(0);
3645 obj = (obj_scm);
3646 value_scm = SG_ARGREF(1);
3647 value = (value_scm);
3648 {
3649
3650 #line 448 "./lib_core.stub"
3651 CXXR_SETTER(A,d,dd);
3652 SG_RETURN(SG_UNDEF);
3653 }
3654 }
3655 static SG_DEFINE_SUBR(core_cadddr_SETTER__STUB, 2, 0,core_cadddr_SETTER, SG_FALSE, NULL);
3656
core_cadddr(SgObject * SG_FP,int SG_ARGC,void * data_)3657 static SgObject core_cadddr(SgObject *SG_FP, int SG_ARGC, void *data_)
3658 {
3659 SgObject o_scm;
3660 SgObject o;
3661 SG_ENTER_SUBR("cadddr");
3662 if (SG_ARGC != 1)
3663 Sg_WrongNumberOfArgumentsViolation(
3664 SG_INTERN("cadddr"), 1, SG_ARGC, SG_NIL);
3665 o_scm = SG_ARGREF(0);
3666 o = (o_scm);
3667 {
3668 {
3669 SgObject SG_RESULT = (SgObject)NULL;
3670
3671 #line 449 "./lib_core.stub"
3672 SG_RESULT=(Sg_Cadr(Sg_Cddr(o)));
3673 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3674 }
3675 }
3676 }
3677 static SG_DEFINE_SUBR(core_cadddr__STUB, 1, 0,core_cadddr, SG_FALSE, NULL);
3678
core_cdaaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3679 static SgObject core_cdaaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3680 {
3681 SgObject obj_scm;
3682 SgObject obj;
3683 SgObject value_scm;
3684 SgObject value;
3685 SG_ENTER_SUBR("(setter cdaaar)");
3686 if (SG_ARGC != 2)
3687 Sg_WrongNumberOfArgumentsViolation(
3688 SG_INTERN("(setter cdaaar)"), 2, SG_ARGC, SG_NIL);
3689 obj_scm = SG_ARGREF(0);
3690 obj = (obj_scm);
3691 value_scm = SG_ARGREF(1);
3692 value = (value_scm);
3693 {
3694
3695 #line 451 "./lib_core.stub"
3696 CXXR_SETTER(D,a,aa);
3697 SG_RETURN(SG_UNDEF);
3698 }
3699 }
3700 static SG_DEFINE_SUBR(core_cdaaar_SETTER__STUB, 2, 0,core_cdaaar_SETTER, SG_FALSE, NULL);
3701
core_cdaaar(SgObject * SG_FP,int SG_ARGC,void * data_)3702 static SgObject core_cdaaar(SgObject *SG_FP, int SG_ARGC, void *data_)
3703 {
3704 SgObject o_scm;
3705 SgObject o;
3706 SG_ENTER_SUBR("cdaaar");
3707 if (SG_ARGC != 1)
3708 Sg_WrongNumberOfArgumentsViolation(
3709 SG_INTERN("cdaaar"), 1, SG_ARGC, SG_NIL);
3710 o_scm = SG_ARGREF(0);
3711 o = (o_scm);
3712 {
3713 {
3714 SgObject SG_RESULT = (SgObject)NULL;
3715
3716 #line 452 "./lib_core.stub"
3717 SG_RESULT=(Sg_Cdar(Sg_Caar(o)));
3718 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3719 }
3720 }
3721 }
3722 static SG_DEFINE_SUBR(core_cdaaar__STUB, 1, 0,core_cdaaar, SG_FALSE, NULL);
3723
core_cdaadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3724 static SgObject core_cdaadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3725 {
3726 SgObject obj_scm;
3727 SgObject obj;
3728 SgObject value_scm;
3729 SgObject value;
3730 SG_ENTER_SUBR("(setter cdaadr)");
3731 if (SG_ARGC != 2)
3732 Sg_WrongNumberOfArgumentsViolation(
3733 SG_INTERN("(setter cdaadr)"), 2, SG_ARGC, SG_NIL);
3734 obj_scm = SG_ARGREF(0);
3735 obj = (obj_scm);
3736 value_scm = SG_ARGREF(1);
3737 value = (value_scm);
3738 {
3739
3740 #line 454 "./lib_core.stub"
3741 CXXR_SETTER(D,a,ad);
3742 SG_RETURN(SG_UNDEF);
3743 }
3744 }
3745 static SG_DEFINE_SUBR(core_cdaadr_SETTER__STUB, 2, 0,core_cdaadr_SETTER, SG_FALSE, NULL);
3746
core_cdaadr(SgObject * SG_FP,int SG_ARGC,void * data_)3747 static SgObject core_cdaadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3748 {
3749 SgObject o_scm;
3750 SgObject o;
3751 SG_ENTER_SUBR("cdaadr");
3752 if (SG_ARGC != 1)
3753 Sg_WrongNumberOfArgumentsViolation(
3754 SG_INTERN("cdaadr"), 1, SG_ARGC, SG_NIL);
3755 o_scm = SG_ARGREF(0);
3756 o = (o_scm);
3757 {
3758 {
3759 SgObject SG_RESULT = (SgObject)NULL;
3760
3761 #line 455 "./lib_core.stub"
3762 SG_RESULT=(Sg_Cdar(Sg_Cadr(o)));
3763 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3764 }
3765 }
3766 }
3767 static SG_DEFINE_SUBR(core_cdaadr__STUB, 1, 0,core_cdaadr, SG_FALSE, NULL);
3768
core_cdadar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3769 static SgObject core_cdadar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3770 {
3771 SgObject obj_scm;
3772 SgObject obj;
3773 SgObject value_scm;
3774 SgObject value;
3775 SG_ENTER_SUBR("(setter cdadar)");
3776 if (SG_ARGC != 2)
3777 Sg_WrongNumberOfArgumentsViolation(
3778 SG_INTERN("(setter cdadar)"), 2, SG_ARGC, SG_NIL);
3779 obj_scm = SG_ARGREF(0);
3780 obj = (obj_scm);
3781 value_scm = SG_ARGREF(1);
3782 value = (value_scm);
3783 {
3784
3785 #line 457 "./lib_core.stub"
3786 CXXR_SETTER(D,a,da);
3787 SG_RETURN(SG_UNDEF);
3788 }
3789 }
3790 static SG_DEFINE_SUBR(core_cdadar_SETTER__STUB, 2, 0,core_cdadar_SETTER, SG_FALSE, NULL);
3791
core_cdadar(SgObject * SG_FP,int SG_ARGC,void * data_)3792 static SgObject core_cdadar(SgObject *SG_FP, int SG_ARGC, void *data_)
3793 {
3794 SgObject o_scm;
3795 SgObject o;
3796 SG_ENTER_SUBR("cdadar");
3797 if (SG_ARGC != 1)
3798 Sg_WrongNumberOfArgumentsViolation(
3799 SG_INTERN("cdadar"), 1, SG_ARGC, SG_NIL);
3800 o_scm = SG_ARGREF(0);
3801 o = (o_scm);
3802 {
3803 {
3804 SgObject SG_RESULT = (SgObject)NULL;
3805
3806 #line 458 "./lib_core.stub"
3807 SG_RESULT=(Sg_Cdar(Sg_Cdar(o)));
3808 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3809 }
3810 }
3811 }
3812 static SG_DEFINE_SUBR(core_cdadar__STUB, 1, 0,core_cdadar, SG_FALSE, NULL);
3813
core_cdaddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3814 static SgObject core_cdaddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3815 {
3816 SgObject obj_scm;
3817 SgObject obj;
3818 SgObject value_scm;
3819 SgObject value;
3820 SG_ENTER_SUBR("(setter cdaddr)");
3821 if (SG_ARGC != 2)
3822 Sg_WrongNumberOfArgumentsViolation(
3823 SG_INTERN("(setter cdaddr)"), 2, SG_ARGC, SG_NIL);
3824 obj_scm = SG_ARGREF(0);
3825 obj = (obj_scm);
3826 value_scm = SG_ARGREF(1);
3827 value = (value_scm);
3828 {
3829
3830 #line 460 "./lib_core.stub"
3831 CXXR_SETTER(D,a,dd);
3832 SG_RETURN(SG_UNDEF);
3833 }
3834 }
3835 static SG_DEFINE_SUBR(core_cdaddr_SETTER__STUB, 2, 0,core_cdaddr_SETTER, SG_FALSE, NULL);
3836
core_cdaddr(SgObject * SG_FP,int SG_ARGC,void * data_)3837 static SgObject core_cdaddr(SgObject *SG_FP, int SG_ARGC, void *data_)
3838 {
3839 SgObject o_scm;
3840 SgObject o;
3841 SG_ENTER_SUBR("cdaddr");
3842 if (SG_ARGC != 1)
3843 Sg_WrongNumberOfArgumentsViolation(
3844 SG_INTERN("cdaddr"), 1, SG_ARGC, SG_NIL);
3845 o_scm = SG_ARGREF(0);
3846 o = (o_scm);
3847 {
3848 {
3849 SgObject SG_RESULT = (SgObject)NULL;
3850
3851 #line 461 "./lib_core.stub"
3852 SG_RESULT=(Sg_Cdar(Sg_Cddr(o)));
3853 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3854 }
3855 }
3856 }
3857 static SG_DEFINE_SUBR(core_cdaddr__STUB, 1, 0,core_cdaddr, SG_FALSE, NULL);
3858
core_cddaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3859 static SgObject core_cddaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3860 {
3861 SgObject obj_scm;
3862 SgObject obj;
3863 SgObject value_scm;
3864 SgObject value;
3865 SG_ENTER_SUBR("(setter cddaar)");
3866 if (SG_ARGC != 2)
3867 Sg_WrongNumberOfArgumentsViolation(
3868 SG_INTERN("(setter cddaar)"), 2, SG_ARGC, SG_NIL);
3869 obj_scm = SG_ARGREF(0);
3870 obj = (obj_scm);
3871 value_scm = SG_ARGREF(1);
3872 value = (value_scm);
3873 {
3874
3875 #line 463 "./lib_core.stub"
3876 CXXR_SETTER(D,d,aa);
3877 SG_RETURN(SG_UNDEF);
3878 }
3879 }
3880 static SG_DEFINE_SUBR(core_cddaar_SETTER__STUB, 2, 0,core_cddaar_SETTER, SG_FALSE, NULL);
3881
core_cddaar(SgObject * SG_FP,int SG_ARGC,void * data_)3882 static SgObject core_cddaar(SgObject *SG_FP, int SG_ARGC, void *data_)
3883 {
3884 SgObject o_scm;
3885 SgObject o;
3886 SG_ENTER_SUBR("cddaar");
3887 if (SG_ARGC != 1)
3888 Sg_WrongNumberOfArgumentsViolation(
3889 SG_INTERN("cddaar"), 1, SG_ARGC, SG_NIL);
3890 o_scm = SG_ARGREF(0);
3891 o = (o_scm);
3892 {
3893 {
3894 SgObject SG_RESULT = (SgObject)NULL;
3895
3896 #line 464 "./lib_core.stub"
3897 SG_RESULT=(Sg_Cddr(Sg_Caar(o)));
3898 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3899 }
3900 }
3901 }
3902 static SG_DEFINE_SUBR(core_cddaar__STUB, 1, 0,core_cddaar, SG_FALSE, NULL);
3903
core_cddadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3904 static SgObject core_cddadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3905 {
3906 SgObject obj_scm;
3907 SgObject obj;
3908 SgObject value_scm;
3909 SgObject value;
3910 SG_ENTER_SUBR("(setter cddadr)");
3911 if (SG_ARGC != 2)
3912 Sg_WrongNumberOfArgumentsViolation(
3913 SG_INTERN("(setter cddadr)"), 2, SG_ARGC, SG_NIL);
3914 obj_scm = SG_ARGREF(0);
3915 obj = (obj_scm);
3916 value_scm = SG_ARGREF(1);
3917 value = (value_scm);
3918 {
3919
3920 #line 466 "./lib_core.stub"
3921 CXXR_SETTER(D,d,ad);
3922 SG_RETURN(SG_UNDEF);
3923 }
3924 }
3925 static SG_DEFINE_SUBR(core_cddadr_SETTER__STUB, 2, 0,core_cddadr_SETTER, SG_FALSE, NULL);
3926
core_cddadr(SgObject * SG_FP,int SG_ARGC,void * data_)3927 static SgObject core_cddadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3928 {
3929 SgObject o_scm;
3930 SgObject o;
3931 SG_ENTER_SUBR("cddadr");
3932 if (SG_ARGC != 1)
3933 Sg_WrongNumberOfArgumentsViolation(
3934 SG_INTERN("cddadr"), 1, SG_ARGC, SG_NIL);
3935 o_scm = SG_ARGREF(0);
3936 o = (o_scm);
3937 {
3938 {
3939 SgObject SG_RESULT = (SgObject)NULL;
3940
3941 #line 467 "./lib_core.stub"
3942 SG_RESULT=(Sg_Cddr(Sg_Cadr(o)));
3943 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3944 }
3945 }
3946 }
3947 static SG_DEFINE_SUBR(core_cddadr__STUB, 1, 0,core_cddadr, SG_FALSE, NULL);
3948
core_cdddar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3949 static SgObject core_cdddar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3950 {
3951 SgObject obj_scm;
3952 SgObject obj;
3953 SgObject value_scm;
3954 SgObject value;
3955 SG_ENTER_SUBR("(setter cdddar)");
3956 if (SG_ARGC != 2)
3957 Sg_WrongNumberOfArgumentsViolation(
3958 SG_INTERN("(setter cdddar)"), 2, SG_ARGC, SG_NIL);
3959 obj_scm = SG_ARGREF(0);
3960 obj = (obj_scm);
3961 value_scm = SG_ARGREF(1);
3962 value = (value_scm);
3963 {
3964
3965 #line 469 "./lib_core.stub"
3966 CXXR_SETTER(D,d,da);
3967 SG_RETURN(SG_UNDEF);
3968 }
3969 }
3970 static SG_DEFINE_SUBR(core_cdddar_SETTER__STUB, 2, 0,core_cdddar_SETTER, SG_FALSE, NULL);
3971
core_cdddar(SgObject * SG_FP,int SG_ARGC,void * data_)3972 static SgObject core_cdddar(SgObject *SG_FP, int SG_ARGC, void *data_)
3973 {
3974 SgObject o_scm;
3975 SgObject o;
3976 SG_ENTER_SUBR("cdddar");
3977 if (SG_ARGC != 1)
3978 Sg_WrongNumberOfArgumentsViolation(
3979 SG_INTERN("cdddar"), 1, SG_ARGC, SG_NIL);
3980 o_scm = SG_ARGREF(0);
3981 o = (o_scm);
3982 {
3983 {
3984 SgObject SG_RESULT = (SgObject)NULL;
3985
3986 #line 470 "./lib_core.stub"
3987 SG_RESULT=(Sg_Cddr(Sg_Cdar(o)));
3988 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3989 }
3990 }
3991 }
3992 static SG_DEFINE_SUBR(core_cdddar__STUB, 1, 0,core_cdddar, SG_FALSE, NULL);
3993
core_cddddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3994 static SgObject core_cddddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3995 {
3996 SgObject obj_scm;
3997 SgObject obj;
3998 SgObject value_scm;
3999 SgObject value;
4000 SG_ENTER_SUBR("(setter cddddr)");
4001 if (SG_ARGC != 2)
4002 Sg_WrongNumberOfArgumentsViolation(
4003 SG_INTERN("(setter cddddr)"), 2, SG_ARGC, SG_NIL);
4004 obj_scm = SG_ARGREF(0);
4005 obj = (obj_scm);
4006 value_scm = SG_ARGREF(1);
4007 value = (value_scm);
4008 {
4009
4010 #line 472 "./lib_core.stub"
4011 CXXR_SETTER(D,d,dd);
4012 SG_RETURN(SG_UNDEF);
4013 }
4014 }
4015 static SG_DEFINE_SUBR(core_cddddr_SETTER__STUB, 2, 0,core_cddddr_SETTER, SG_FALSE, NULL);
4016
core_cddddr(SgObject * SG_FP,int SG_ARGC,void * data_)4017 static SgObject core_cddddr(SgObject *SG_FP, int SG_ARGC, void *data_)
4018 {
4019 SgObject o_scm;
4020 SgObject o;
4021 SG_ENTER_SUBR("cddddr");
4022 if (SG_ARGC != 1)
4023 Sg_WrongNumberOfArgumentsViolation(
4024 SG_INTERN("cddddr"), 1, SG_ARGC, SG_NIL);
4025 o_scm = SG_ARGREF(0);
4026 o = (o_scm);
4027 {
4028 {
4029 SgObject SG_RESULT = (SgObject)NULL;
4030
4031 #line 473 "./lib_core.stub"
4032 SG_RESULT=(Sg_Cddr(Sg_Cddr(o)));
4033 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4034 }
4035 }
4036 }
4037 static SG_DEFINE_SUBR(core_cddddr__STUB, 1, 0,core_cddddr, SG_FALSE, NULL);
4038
core_listP(SgObject * SG_FP,int SG_ARGC,void * data_)4039 static SgObject core_listP(SgObject *SG_FP, int SG_ARGC, void *data_)
4040 {
4041 SgObject arg0_scm;
4042 SgObject arg0;
4043 SG_ENTER_SUBR("list?");
4044 if (SG_ARGC != 1)
4045 Sg_WrongNumberOfArgumentsViolation(
4046 SG_INTERN("list?"), 1, SG_ARGC, SG_NIL);
4047 arg0_scm = SG_ARGREF(0);
4048 arg0 = (arg0_scm);
4049 {
4050 {
4051 int SG_RESULT = (int)FALSE;
4052 SG_RESULT=(SG_PROPER_LISTP(arg0));
4053 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4054 }
4055 }
4056 }
4057 static SG_DEFINE_SUBR(core_listP__STUB, 1, 0,core_listP, SG_FALSE, NULL);
4058
core_list(SgObject * SG_FP,int SG_ARGC,void * data_)4059 static SgObject core_list(SgObject *SG_FP, int SG_ARGC, void *data_)
4060 {
4061 SgObject rest_scm;
4062 SgObject rest;
4063 SG_ENTER_SUBR("list");
4064 if (SG_ARGC < 0)
4065 Sg_WrongNumberOfArgumentsAtLeastViolation(
4066 SG_INTERN("list"), 0, SG_ARGC, SG_NIL);
4067 rest_scm = SG_ARGREF(SG_ARGC-1);
4068 rest = (rest_scm);
4069 {
4070 {
4071 SgObject SG_RESULT = (SgObject)NULL;
4072
4073 #line 477 "./lib_core.stub"
4074 SG_RESULT=(rest);
4075 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4076 }
4077 }
4078 }
4079 static SG_DEFINE_SUBR(core_list__STUB, 0, 1,core_list, SG_MAKE_INT(LIST), NULL);
4080
core_length(SgObject * SG_FP,int SG_ARGC,void * data_)4081 static SgObject core_length(SgObject *SG_FP, int SG_ARGC, void *data_)
4082 {
4083 SgObject lst_scm;
4084 SgObject lst;
4085 SG_ENTER_SUBR("length");
4086 if (SG_ARGC != 1)
4087 Sg_WrongNumberOfArgumentsViolation(
4088 SG_INTERN("length"), 1, SG_ARGC, SG_NIL);
4089 lst_scm = SG_ARGREF(0);
4090 lst = (lst_scm);
4091 {
4092 {
4093 long SG_RESULT = (long)0;
4094 SG_RESULT=(Sg_Length(lst));
4095 SG_RETURN(SG_MAKE_INT(SG_RESULT));
4096 }
4097 }
4098 }
4099 static SG_DEFINE_SUBR(core_length__STUB, 1, 0,core_length, SG_FALSE, NULL);
4100
core_append(SgObject * SG_FP,int SG_ARGC,void * data_)4101 static SgObject core_append(SgObject *SG_FP, int SG_ARGC, void *data_)
4102 {
4103 SgObject lst_scm;
4104 SgObject lst;
4105 SG_ENTER_SUBR("append");
4106 if (SG_ARGC < 0)
4107 Sg_WrongNumberOfArgumentsAtLeastViolation(
4108 SG_INTERN("append"), 0, SG_ARGC, SG_NIL);
4109 lst_scm = SG_ARGREF(SG_ARGC-1);
4110 lst = (lst_scm);
4111 {
4112 {
4113 SgObject SG_RESULT = (SgObject)NULL;
4114 SG_RESULT=(Sg_Append(lst));
4115 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4116 }
4117 }
4118 }
4119 static SG_DEFINE_SUBR(core_append__STUB, 0, 1,core_append, SG_MAKE_INT(APPEND), NULL);
4120
core_reverse(SgObject * SG_FP,int SG_ARGC,void * data_)4121 static SgObject core_reverse(SgObject *SG_FP, int SG_ARGC, void *data_)
4122 {
4123 SgObject lst_scm;
4124 SgObject lst;
4125 SG_ENTER_SUBR("reverse");
4126 if (SG_ARGC != 1)
4127 Sg_WrongNumberOfArgumentsViolation(
4128 SG_INTERN("reverse"), 1, SG_ARGC, SG_NIL);
4129 lst_scm = SG_ARGREF(0);
4130 lst = (lst_scm);
4131 {
4132 {
4133 SgObject SG_RESULT = (SgObject)NULL;
4134 SG_RESULT=(Sg_Reverse(lst));
4135 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4136 }
4137 }
4138 }
4139 static SG_DEFINE_SUBR(core_reverse__STUB, 1, 0,core_reverse, SG_FALSE, NULL);
4140
core_list_tail(SgObject * SG_FP,int SG_ARGC,void * data_)4141 static SgObject core_list_tail(SgObject *SG_FP, int SG_ARGC, void *data_)
4142 {
4143 SgObject lst_scm;
4144 SgObject lst;
4145 SgObject k_scm;
4146 long k;
4147 SgObject fallback_scm;
4148 SgObject fallback;
4149 SG_ENTER_SUBR("list-tail");
4150 if ((SG_ARGC > 3 &&
4151 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
4152 SG_ARGC < 2)
4153 Sg_WrongNumberOfArgumentsBetweenViolation(
4154 SG_INTERN("list-tail"), 2, 3, SG_ARGC, SG_NIL);
4155 lst_scm = SG_ARGREF(0);
4156 lst = (lst_scm);
4157 k_scm = SG_ARGREF(1);
4158 if (!SG_INTP(k_scm))
4159 Sg_WrongTypeOfArgumentViolation(
4160 sg__rc_cgen9166.d9486[163], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
4161 k = SG_INT_VALUE(k_scm);
4162 if (SG_ARGC > 2+1) {
4163 fallback_scm = SG_ARGREF(2);
4164 } else {
4165 fallback_scm = SG_UNBOUND;
4166 }
4167 fallback = (fallback_scm);
4168 {
4169 {
4170 SgObject SG_RESULT = (SgObject)NULL;
4171 SG_RESULT=(Sg_ListTail(lst,k,fallback));
4172 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4173 }
4174 }
4175 }
4176 static SG_DEFINE_SUBR(core_list_tail__STUB, 2, 2,core_list_tail, SG_FALSE, NULL);
4177
core_list_setX(SgObject * SG_FP,int SG_ARGC,void * data_)4178 static SgObject core_list_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
4179 {
4180 SgObject lst_scm;
4181 SgObject lst;
4182 SgObject k_scm;
4183 long k;
4184 SgObject v_scm;
4185 SgObject v;
4186 SG_ENTER_SUBR("list-set!");
4187 if (SG_ARGC != 3)
4188 Sg_WrongNumberOfArgumentsViolation(
4189 SG_INTERN("list-set!"), 3, SG_ARGC, SG_NIL);
4190 lst_scm = SG_ARGREF(0);
4191 lst = (lst_scm);
4192 k_scm = SG_ARGREF(1);
4193 if (!SG_INTP(k_scm))
4194 Sg_WrongTypeOfArgumentViolation(
4195 sg__rc_cgen9166.d9486[164], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
4196 k = SG_INT_VALUE(k_scm);
4197 v_scm = SG_ARGREF(2);
4198 v = (v_scm);
4199 {
4200 {
4201 SgObject SG_RESULT = (SgObject)NULL;
4202
4203 #line 487 "./lib_core.stub"
4204 {SgObject p=Sg_ListTail(lst,k,SG_FALSE);
4205 if (SG_PAIRP(p)){
4206 SG_SET_CAR(p,v);} else {
4207 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[165],SG_MAKE_STRING("index out of bound"),
4208 SG_LIST2(lst,SG_MAKE_INT(k)));}}}
4209 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4210 }
4211 }
4212 }
4213 static SG_DEFINE_SUBR(core_list_setX__STUB, 3, 0,core_list_setX, SG_FALSE, NULL);
4214
core_list_ref(SgObject * SG_FP,int SG_ARGC,void * data_)4215 static SgObject core_list_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
4216 {
4217 SgObject lst_scm;
4218 SgObject lst;
4219 SgObject k_scm;
4220 long k;
4221 SgObject fallback_scm;
4222 SgObject fallback;
4223 SG_ENTER_SUBR("list-ref");
4224 if ((SG_ARGC > 3 &&
4225 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
4226 SG_ARGC < 2)
4227 Sg_WrongNumberOfArgumentsBetweenViolation(
4228 SG_INTERN("list-ref"), 2, 3, SG_ARGC, SG_NIL);
4229 lst_scm = SG_ARGREF(0);
4230 lst = (lst_scm);
4231 k_scm = SG_ARGREF(1);
4232 if (!SG_INTP(k_scm))
4233 Sg_WrongTypeOfArgumentViolation(
4234 sg__rc_cgen9166.d9486[166], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
4235 k = SG_INT_VALUE(k_scm);
4236 if (SG_ARGC > 2+1) {
4237 fallback_scm = SG_ARGREF(2);
4238 } else {
4239 fallback_scm = SG_UNBOUND;
4240 }
4241 fallback = (fallback_scm);
4242 {
4243 {
4244 SgObject SG_RESULT = (SgObject)NULL;
4245 SG_RESULT=(Sg_ListRef(lst,k,fallback));
4246 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4247 }
4248 }
4249 }
4250 static SG_DEFINE_SUBR(core_list_ref__STUB, 2, 2,core_list_ref, SG_FALSE, NULL);
4251
core_last_pair(SgObject * SG_FP,int SG_ARGC,void * data_)4252 static SgObject core_last_pair(SgObject *SG_FP, int SG_ARGC, void *data_)
4253 {
4254 SgObject lst_scm;
4255 SgObject lst;
4256 SG_ENTER_SUBR("last-pair");
4257 if (SG_ARGC != 1)
4258 Sg_WrongNumberOfArgumentsViolation(
4259 SG_INTERN("last-pair"), 1, SG_ARGC, SG_NIL);
4260 lst_scm = SG_ARGREF(0);
4261 lst = (lst_scm);
4262 {
4263 {
4264 SgObject SG_RESULT = (SgObject)NULL;
4265 SG_RESULT=(Sg_LastPair(lst));
4266 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4267 }
4268 }
4269 }
4270 static SG_DEFINE_SUBR(core_last_pair__STUB, 1, 0,core_last_pair, SG_FALSE, NULL);
4271
core_symbol_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)4272 static SgObject core_symbol_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
4273 {
4274 SgObject z_scm;
4275 SgSymbol* z;
4276 SG_ENTER_SUBR("symbol->string");
4277 if (SG_ARGC != 1)
4278 Sg_WrongNumberOfArgumentsViolation(
4279 SG_INTERN("symbol->string"), 1, SG_ARGC, SG_NIL);
4280 z_scm = SG_ARGREF(0);
4281 if (!SG_SYMBOLP(z_scm))
4282 Sg_WrongTypeOfArgumentViolation(
4283 sg__rc_cgen9166.d9486[168], SG_MAKE_STRING("symbol"), z_scm, SG_NIL);
4284 z = SG_SYMBOL(z_scm);
4285 {
4286 {
4287 SgObject SG_RESULT = (SgObject)NULL;
4288 SG_RESULT=(SG_SYMBOL_NAME(z));
4289 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4290 }
4291 }
4292 }
4293 static SG_DEFINE_SUBR(core_symbol_TOstring__STUB, 1, 0,core_symbol_TOstring, SG_FALSE, NULL);
4294
core_symbol_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4295 static SgObject core_symbol_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4296 {
4297 SgObject s1_scm;
4298 SgSymbol* s1;
4299 SgObject s2_scm;
4300 SgSymbol* s2;
4301 SgObject rest_scm;
4302 SgObject rest;
4303 SG_ENTER_SUBR("symbol=?");
4304 if (SG_ARGC < 2)
4305 Sg_WrongNumberOfArgumentsAtLeastViolation(
4306 SG_INTERN("symbol=?"), 2, SG_ARGC, SG_NIL);
4307 s1_scm = SG_ARGREF(0);
4308 if (!SG_SYMBOLP(s1_scm))
4309 Sg_WrongTypeOfArgumentViolation(
4310 sg__rc_cgen9166.d9486[169], SG_MAKE_STRING("symbol"), s1_scm, SG_NIL);
4311 s1 = SG_SYMBOL(s1_scm);
4312 s2_scm = SG_ARGREF(1);
4313 if (!SG_SYMBOLP(s2_scm))
4314 Sg_WrongTypeOfArgumentViolation(
4315 sg__rc_cgen9166.d9486[169], SG_MAKE_STRING("symbol"), s2_scm, SG_NIL);
4316 s2 = SG_SYMBOL(s2_scm);
4317 rest_scm = SG_ARGREF(SG_ARGC-1);
4318 rest = (rest_scm);
4319 {
4320 {
4321 int SG_RESULT = (int)FALSE;
4322 SgObject cise__9811;
4323 #line 508 "./lib_core.stub"
4324 {if ((!(SG_SYMBOLP(s1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[170],SG_MAKE_STRING("symbol"),s1,SG_NIL);}}}if ((!(SG_SYMBOLP(s2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[170],SG_MAKE_STRING("symbol"),s2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=(SG_EQ(s1,s2));}else if((!(SG_EQ(s1,s2)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__9811,rest) {{SgObject p=SG_CAR(cise__9811);if ((!(SG_SYMBOLP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[170],SG_MAKE_STRING("symbol"),p,SG_NIL);}}}if ((!(SG_EQ(prev,p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4325 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4326 }
4327 }
4328 }
4329 static SG_DEFINE_SUBR(core_symbol_3dP__STUB, 2, 1,core_symbol_3dP, SG_FALSE, NULL);
4330
core_string_TOsymbol(SgObject * SG_FP,int SG_ARGC,void * data_)4331 static SgObject core_string_TOsymbol(SgObject *SG_FP, int SG_ARGC, void *data_)
4332 {
4333 SgObject z_scm;
4334 SgString* z;
4335 SG_ENTER_SUBR("string->symbol");
4336 if (SG_ARGC != 1)
4337 Sg_WrongNumberOfArgumentsViolation(
4338 SG_INTERN("string->symbol"), 1, SG_ARGC, SG_NIL);
4339 z_scm = SG_ARGREF(0);
4340 if (!SG_STRINGP(z_scm))
4341 Sg_WrongTypeOfArgumentViolation(
4342 sg__rc_cgen9166.d9486[171], SG_MAKE_STRING("string"), z_scm, SG_NIL);
4343 z = SG_STRING(z_scm);
4344 {
4345 {
4346 SgObject SG_RESULT = (SgObject)NULL;
4347 SG_RESULT=(Sg_Intern(z));
4348 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4349 }
4350 }
4351 }
4352 static SG_DEFINE_SUBR(core_string_TOsymbol__STUB, 1, 0,core_string_TOsymbol, SG_FALSE, NULL);
4353
core_char_TOinteger(SgObject * SG_FP,int SG_ARGC,void * data_)4354 static SgObject core_char_TOinteger(SgObject *SG_FP, int SG_ARGC, void *data_)
4355 {
4356 SgObject c_scm;
4357 SgChar c;
4358 SG_ENTER_SUBR("char->integer");
4359 if (SG_ARGC != 1)
4360 Sg_WrongNumberOfArgumentsViolation(
4361 SG_INTERN("char->integer"), 1, SG_ARGC, SG_NIL);
4362 c_scm = SG_ARGREF(0);
4363 if (!SG_CHARP(c_scm))
4364 Sg_WrongTypeOfArgumentViolation(
4365 sg__rc_cgen9166.d9486[172], SG_MAKE_STRING("character"), c_scm, SG_NIL);
4366 c = SG_CHAR_VALUE(c_scm);
4367 {
4368 {
4369 SgObject SG_RESULT = (SgObject)NULL;
4370 SG_RESULT=(SG_MAKE_INT(c));
4371 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4372 }
4373 }
4374 }
4375 static SG_DEFINE_SUBR(core_char_TOinteger__STUB, 1, 0,core_char_TOinteger, SG_FALSE, NULL);
4376
core_integer_TOchar(SgObject * SG_FP,int SG_ARGC,void * data_)4377 static SgObject core_integer_TOchar(SgObject *SG_FP, int SG_ARGC, void *data_)
4378 {
4379 SgObject ch_scm;
4380 long ch;
4381 SG_ENTER_SUBR("integer->char");
4382 if (SG_ARGC != 1)
4383 Sg_WrongNumberOfArgumentsViolation(
4384 SG_INTERN("integer->char"), 1, SG_ARGC, SG_NIL);
4385 ch_scm = SG_ARGREF(0);
4386 if (!SG_INTP(ch_scm))
4387 Sg_WrongTypeOfArgumentViolation(
4388 sg__rc_cgen9166.d9486[173], SG_MAKE_STRING("fixnum"), ch_scm, SG_NIL);
4389 ch = SG_INT_VALUE(ch_scm);
4390 {
4391 {
4392 SgObject SG_RESULT = (SgObject)NULL;
4393
4394 #line 521 "./lib_core.stub"
4395 if ((!((((0)<=(ch))&&((ch)<=(55295)))||(
4396 ((57344)<=(ch))&&((ch)<=(1114111)))))){{
4397 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[174],SG_MAKE_STRING("code point out of range"),
4398 SG_MAKE_INT(ch));}}}
4399
4400 #line 525 "./lib_core.stub"
4401 SG_RESULT=(SG_MAKE_CHAR(ch));
4402 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4403 }
4404 }
4405 }
4406 static SG_DEFINE_SUBR(core_integer_TOchar__STUB, 1, 0,core_integer_TOchar, SG_FALSE, NULL);
4407
core_char_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4408 static SgObject core_char_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4409 {
4410 SgObject c1_scm;
4411 SgObject c1;
4412 SgObject c2_scm;
4413 SgObject c2;
4414 SgObject rest_scm;
4415 SgObject rest;
4416 SG_ENTER_SUBR("char=?");
4417 if (SG_ARGC < 2)
4418 Sg_WrongNumberOfArgumentsAtLeastViolation(
4419 SG_INTERN("char=?"), 2, SG_ARGC, SG_NIL);
4420 c1_scm = SG_ARGREF(0);
4421 c1 = (c1_scm);
4422 c2_scm = SG_ARGREF(1);
4423 c2 = (c2_scm);
4424 rest_scm = SG_ARGREF(SG_ARGC-1);
4425 rest = (rest_scm);
4426 {
4427 {
4428 int SG_RESULT = (int)FALSE;
4429 SgObject cise__9843;
4430 #line 528 "./lib_core.stub"
4431 {if ((!(SG_CHARP(c1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[176],SG_MAKE_STRING("char"),c1,SG_NIL);}}}if ((!(SG_CHARP(c2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[176],SG_MAKE_STRING("char"),c2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=(SG_EQ(c1,c2));}else if((!(SG_EQ(c1,c2)))){SG_RESULT=(FALSE);} else {{SgObject prev=c2;SG_FOR_EACH(cise__9843,rest) {{SgObject p=SG_CAR(cise__9843);if ((!(SG_CHARP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[176],SG_MAKE_STRING("char"),p,SG_NIL);}}}if ((!(SG_EQ(prev,p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4432 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4433 }
4434 }
4435 }
4436 static SG_DEFINE_SUBR(core_char_3dP__STUB, 2, 1,core_char_3dP, SG_FALSE, NULL);
4437
core_char_LTP(SgObject * SG_FP,int SG_ARGC,void * data_)4438 static SgObject core_char_LTP(SgObject *SG_FP, int SG_ARGC, void *data_)
4439 {
4440 SgObject c1_scm;
4441 SgObject c1;
4442 SgObject c2_scm;
4443 SgObject c2;
4444 SgObject rest_scm;
4445 SgObject rest;
4446 SG_ENTER_SUBR("char<?");
4447 if (SG_ARGC < 2)
4448 Sg_WrongNumberOfArgumentsAtLeastViolation(
4449 SG_INTERN("char<?"), 2, SG_ARGC, SG_NIL);
4450 c1_scm = SG_ARGREF(0);
4451 c1 = (c1_scm);
4452 c2_scm = SG_ARGREF(1);
4453 c2 = (c2_scm);
4454 rest_scm = SG_ARGREF(SG_ARGC-1);
4455 rest = (rest_scm);
4456 {
4457 {
4458 int SG_RESULT = (int)FALSE;
4459 SgObject cise__9902;
4460 #line 549 "./lib_core.stub"
4461 {if ((!(SG_CHARP(c1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[178],SG_MAKE_STRING("char"),c1,SG_NIL);}}}if ((!(SG_CHARP(c2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[178],SG_MAKE_STRING("char"),c2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=((c1)<(c2));}else if((!((c1)<(c2)))){SG_RESULT=(FALSE);} else {{SgObject prev=c2;SG_FOR_EACH(cise__9902,rest) {{SgObject p=SG_CAR(cise__9902);if ((!(SG_CHARP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[178],SG_MAKE_STRING("char"),p,SG_NIL);}}}if ((!((prev)<(p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4462 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4463 }
4464 }
4465 }
4466 static SG_DEFINE_SUBR(core_char_LTP__STUB, 2, 1,core_char_LTP, SG_FALSE, NULL);
4467
core_char_GTP(SgObject * SG_FP,int SG_ARGC,void * data_)4468 static SgObject core_char_GTP(SgObject *SG_FP, int SG_ARGC, void *data_)
4469 {
4470 SgObject c1_scm;
4471 SgObject c1;
4472 SgObject c2_scm;
4473 SgObject c2;
4474 SgObject rest_scm;
4475 SgObject rest;
4476 SG_ENTER_SUBR("char>?");
4477 if (SG_ARGC < 2)
4478 Sg_WrongNumberOfArgumentsAtLeastViolation(
4479 SG_INTERN("char>?"), 2, SG_ARGC, SG_NIL);
4480 c1_scm = SG_ARGREF(0);
4481 c1 = (c1_scm);
4482 c2_scm = SG_ARGREF(1);
4483 c2 = (c2_scm);
4484 rest_scm = SG_ARGREF(SG_ARGC-1);
4485 rest = (rest_scm);
4486 {
4487 {
4488 int SG_RESULT = (int)FALSE;
4489 SgObject cise__9903;
4490 #line 552 "./lib_core.stub"
4491 {if ((!(SG_CHARP(c1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[180],SG_MAKE_STRING("char"),c1,SG_NIL);}}}if ((!(SG_CHARP(c2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[180],SG_MAKE_STRING("char"),c2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=((c1)>(c2));}else if((!((c1)>(c2)))){SG_RESULT=(FALSE);} else {{SgObject prev=c2;SG_FOR_EACH(cise__9903,rest) {{SgObject p=SG_CAR(cise__9903);if ((!(SG_CHARP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[180],SG_MAKE_STRING("char"),p,SG_NIL);}}}if ((!((prev)>(p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4492 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4493 }
4494 }
4495 }
4496 static SG_DEFINE_SUBR(core_char_GTP__STUB, 2, 1,core_char_GTP, SG_FALSE, NULL);
4497
core_char_LT_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4498 static SgObject core_char_LT_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4499 {
4500 SgObject c1_scm;
4501 SgObject c1;
4502 SgObject c2_scm;
4503 SgObject c2;
4504 SgObject rest_scm;
4505 SgObject rest;
4506 SG_ENTER_SUBR("char<=?");
4507 if (SG_ARGC < 2)
4508 Sg_WrongNumberOfArgumentsAtLeastViolation(
4509 SG_INTERN("char<=?"), 2, SG_ARGC, SG_NIL);
4510 c1_scm = SG_ARGREF(0);
4511 c1 = (c1_scm);
4512 c2_scm = SG_ARGREF(1);
4513 c2 = (c2_scm);
4514 rest_scm = SG_ARGREF(SG_ARGC-1);
4515 rest = (rest_scm);
4516 {
4517 {
4518 int SG_RESULT = (int)FALSE;
4519 SgObject cise__9904;
4520 #line 555 "./lib_core.stub"
4521 {if ((!(SG_CHARP(c1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[182],SG_MAKE_STRING("char"),c1,SG_NIL);}}}if ((!(SG_CHARP(c2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[182],SG_MAKE_STRING("char"),c2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=((c1)<=(c2));}else if((!((c1)<=(c2)))){SG_RESULT=(FALSE);} else {{SgObject prev=c2;SG_FOR_EACH(cise__9904,rest) {{SgObject p=SG_CAR(cise__9904);if ((!(SG_CHARP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[182],SG_MAKE_STRING("char"),p,SG_NIL);}}}if ((!((prev)<=(p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4522 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4523 }
4524 }
4525 }
4526 static SG_DEFINE_SUBR(core_char_LT_3dP__STUB, 2, 1,core_char_LT_3dP, SG_FALSE, NULL);
4527
core_char_GT_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4528 static SgObject core_char_GT_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4529 {
4530 SgObject c1_scm;
4531 SgObject c1;
4532 SgObject c2_scm;
4533 SgObject c2;
4534 SgObject rest_scm;
4535 SgObject rest;
4536 SG_ENTER_SUBR("char>=?");
4537 if (SG_ARGC < 2)
4538 Sg_WrongNumberOfArgumentsAtLeastViolation(
4539 SG_INTERN("char>=?"), 2, SG_ARGC, SG_NIL);
4540 c1_scm = SG_ARGREF(0);
4541 c1 = (c1_scm);
4542 c2_scm = SG_ARGREF(1);
4543 c2 = (c2_scm);
4544 rest_scm = SG_ARGREF(SG_ARGC-1);
4545 rest = (rest_scm);
4546 {
4547 {
4548 int SG_RESULT = (int)FALSE;
4549 SgObject cise__9905;
4550 #line 558 "./lib_core.stub"
4551 {if ((!(SG_CHARP(c1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[184],SG_MAKE_STRING("char"),c1,SG_NIL);}}}if ((!(SG_CHARP(c2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[184],SG_MAKE_STRING("char"),c2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=((c1)>=(c2));}else if((!((c1)>=(c2)))){SG_RESULT=(FALSE);} else {{SgObject prev=c2;SG_FOR_EACH(cise__9905,rest) {{SgObject p=SG_CAR(cise__9905);if ((!(SG_CHARP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[184],SG_MAKE_STRING("char"),p,SG_NIL);}}}if ((!((prev)>=(p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4552 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4553 }
4554 }
4555 }
4556 static SG_DEFINE_SUBR(core_char_GT_3dP__STUB, 2, 1,core_char_GT_3dP, SG_FALSE, NULL);
4557
core_make_string(SgObject * SG_FP,int SG_ARGC,void * data_)4558 static SgObject core_make_string(SgObject *SG_FP, int SG_ARGC, void *data_)
4559 {
4560 SgObject k_scm;
4561 long k;
4562 SgObject c_scm;
4563 SgChar c;
4564 SG_ENTER_SUBR("make-string");
4565 if ((SG_ARGC > 2 &&
4566 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
4567 SG_ARGC < 1)
4568 Sg_WrongNumberOfArgumentsBetweenViolation(
4569 SG_INTERN("make-string"), 1, 2, SG_ARGC, SG_NIL);
4570 k_scm = SG_ARGREF(0);
4571 if (!SG_INTP(k_scm))
4572 Sg_WrongTypeOfArgumentViolation(
4573 sg__rc_cgen9166.d9486[185], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
4574 k = SG_INT_VALUE(k_scm);
4575 if (SG_ARGC > 1+1) {
4576 c_scm = SG_ARGREF(1);
4577 } else {
4578 c_scm = SG_MAKE_CHAR(32);
4579 }
4580 if (!SG_CHARP(c_scm) && !SG_CHARP(c_scm))
4581 Sg_WrongTypeOfArgumentViolation(
4582 sg__rc_cgen9166.d9486[185], SG_MAKE_STRING("character"), c_scm, SG_NIL);
4583 c = SG_CHAR_VALUE(c_scm);
4584 {
4585 {
4586 SgObject SG_RESULT = (SgObject)NULL;
4587 SG_RESULT=(Sg_ReserveString(k,c));
4588 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4589 }
4590 }
4591 }
4592 static SG_DEFINE_SUBR(core_make_string__STUB, 1, 2,core_make_string, SG_FALSE, NULL);
4593
core_string(SgObject * SG_FP,int SG_ARGC,void * data_)4594 static SgObject core_string(SgObject *SG_FP, int SG_ARGC, void *data_)
4595 {
4596 SgObject rest_scm;
4597 SgObject rest;
4598 SG_ENTER_SUBR("string");
4599 if (SG_ARGC < 0)
4600 Sg_WrongNumberOfArgumentsAtLeastViolation(
4601 SG_INTERN("string"), 0, SG_ARGC, SG_NIL);
4602 rest_scm = SG_ARGREF(SG_ARGC-1);
4603 rest = (rest_scm);
4604 {
4605 {
4606 SgObject SG_RESULT = (SgObject)NULL;
4607
4608 #line 569 "./lib_core.stub"
4609 SG_RESULT=(Sg_ListToString(rest,0,-1));
4610 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4611 }
4612 }
4613 }
4614 static SG_DEFINE_SUBR(core_string__STUB, 0, 1,core_string, SG_FALSE, NULL);
4615
core_string_length(SgObject * SG_FP,int SG_ARGC,void * data_)4616 static SgObject core_string_length(SgObject *SG_FP, int SG_ARGC, void *data_)
4617 {
4618 SgObject s_scm;
4619 SgString* s;
4620 SG_ENTER_SUBR("string-length");
4621 if (SG_ARGC != 1)
4622 Sg_WrongNumberOfArgumentsViolation(
4623 SG_INTERN("string-length"), 1, SG_ARGC, SG_NIL);
4624 s_scm = SG_ARGREF(0);
4625 if (!SG_STRINGP(s_scm))
4626 Sg_WrongTypeOfArgumentViolation(
4627 sg__rc_cgen9166.d9486[187], SG_MAKE_STRING("string"), s_scm, SG_NIL);
4628 s = SG_STRING(s_scm);
4629 {
4630 {
4631 long SG_RESULT = (long)0;
4632 SG_RESULT=(SG_STRING_SIZE(s));
4633 SG_RETURN(SG_MAKE_INT(SG_RESULT));
4634 }
4635 }
4636 }
4637 static SG_DEFINE_SUBR(core_string_length__STUB, 1, 0,core_string_length, SG_FALSE, NULL);
4638
core_string_ref(SgObject * SG_FP,int SG_ARGC,void * data_)4639 static SgObject core_string_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
4640 {
4641 SgObject s_scm;
4642 SgString* s;
4643 SgObject k_scm;
4644 long k;
4645 SgObject fallback_scm;
4646 SgObject fallback;
4647 SG_ENTER_SUBR("string-ref");
4648 if ((SG_ARGC > 3 &&
4649 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
4650 SG_ARGC < 2)
4651 Sg_WrongNumberOfArgumentsBetweenViolation(
4652 SG_INTERN("string-ref"), 2, 3, SG_ARGC, SG_NIL);
4653 s_scm = SG_ARGREF(0);
4654 if (!SG_STRINGP(s_scm))
4655 Sg_WrongTypeOfArgumentViolation(
4656 sg__rc_cgen9166.d9486[188], SG_MAKE_STRING("string"), s_scm, SG_NIL);
4657 s = SG_STRING(s_scm);
4658 k_scm = SG_ARGREF(1);
4659 if (!SG_INTP(k_scm))
4660 Sg_WrongTypeOfArgumentViolation(
4661 sg__rc_cgen9166.d9486[188], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
4662 k = SG_INT_VALUE(k_scm);
4663 if (SG_ARGC > 2+1) {
4664 fallback_scm = SG_ARGREF(2);
4665 } else {
4666 fallback_scm = SG_UNBOUND;
4667 }
4668 fallback = (fallback_scm);
4669 {
4670 {
4671 SgObject SG_RESULT = (SgObject)NULL;
4672
4673 #line 576 "./lib_core.stub"
4674 if (SG_UNBOUNDP(fallback)){
4675 SG_RESULT=(SG_MAKE_CHAR(Sg_StringRef(s,k)));}else if(
4676 ((0)<=(k))&&((k)<(SG_STRING_SIZE(s)))){
4677 SG_RESULT=(SG_MAKE_CHAR(Sg_StringRef(s,k)));} else {
4678 SG_RESULT=(fallback);}
4679 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4680 }
4681 }
4682 }
4683 static SG_DEFINE_SUBR(core_string_ref__STUB, 2, 2,core_string_ref, SG_FALSE, NULL);
4684
core_string_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4685 static SgObject core_string_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4686 {
4687 SgObject s1_scm;
4688 SgString* s1;
4689 SgObject s2_scm;
4690 SgString* s2;
4691 SgObject rest_scm;
4692 SgObject rest;
4693 SG_ENTER_SUBR("string=?");
4694 if (SG_ARGC < 2)
4695 Sg_WrongNumberOfArgumentsAtLeastViolation(
4696 SG_INTERN("string=?"), 2, SG_ARGC, SG_NIL);
4697 s1_scm = SG_ARGREF(0);
4698 if (!SG_STRINGP(s1_scm))
4699 Sg_WrongTypeOfArgumentViolation(
4700 sg__rc_cgen9166.d9486[189], SG_MAKE_STRING("string"), s1_scm, SG_NIL);
4701 s1 = SG_STRING(s1_scm);
4702 s2_scm = SG_ARGREF(1);
4703 if (!SG_STRINGP(s2_scm))
4704 Sg_WrongTypeOfArgumentViolation(
4705 sg__rc_cgen9166.d9486[189], SG_MAKE_STRING("string"), s2_scm, SG_NIL);
4706 s2 = SG_STRING(s2_scm);
4707 rest_scm = SG_ARGREF(SG_ARGC-1);
4708 rest = (rest_scm);
4709 {
4710 {
4711 int SG_RESULT = (int)FALSE;
4712 SgObject cise__9937;
4713 #line 585 "./lib_core.stub"
4714 {if ((!(SG_STRINGP(s1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[190],SG_MAKE_STRING("string"),s1,SG_NIL);}}}if ((!(SG_STRINGP(s2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[190],SG_MAKE_STRING("string"),s2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=(Sg_StringEqual(s1,s2));}else if((!(Sg_StringEqual(s1,s2)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__9937,rest) {{SgObject p=SG_CAR(cise__9937);if ((!(SG_STRINGP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[190],SG_MAKE_STRING("string"),p,SG_NIL);}}}if ((!(Sg_StringEqual(prev,p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4715 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4716 }
4717 }
4718 }
4719 static SG_DEFINE_SUBR(core_string_3dP__STUB, 2, 1,core_string_3dP, SG_FALSE, NULL);
4720
core_string_LTP(SgObject * SG_FP,int SG_ARGC,void * data_)4721 static SgObject core_string_LTP(SgObject *SG_FP, int SG_ARGC, void *data_)
4722 {
4723 SgObject s1_scm;
4724 SgString* s1;
4725 SgObject s2_scm;
4726 SgString* s2;
4727 SgObject rest_scm;
4728 SgObject rest;
4729 SG_ENTER_SUBR("string<?");
4730 if (SG_ARGC < 2)
4731 Sg_WrongNumberOfArgumentsAtLeastViolation(
4732 SG_INTERN("string<?"), 2, SG_ARGC, SG_NIL);
4733 s1_scm = SG_ARGREF(0);
4734 if (!SG_STRINGP(s1_scm))
4735 Sg_WrongTypeOfArgumentViolation(
4736 sg__rc_cgen9166.d9486[191], SG_MAKE_STRING("string"), s1_scm, SG_NIL);
4737 s1 = SG_STRING(s1_scm);
4738 s2_scm = SG_ARGREF(1);
4739 if (!SG_STRINGP(s2_scm))
4740 Sg_WrongTypeOfArgumentViolation(
4741 sg__rc_cgen9166.d9486[191], SG_MAKE_STRING("string"), s2_scm, SG_NIL);
4742 s2 = SG_STRING(s2_scm);
4743 rest_scm = SG_ARGREF(SG_ARGC-1);
4744 rest = (rest_scm);
4745 {
4746 {
4747 int SG_RESULT = (int)FALSE;
4748 SgObject cise__10005;
4749 #line 605 "./lib_core.stub"
4750 {if (SG_NULLP(rest)){SG_RESULT=((Sg_StringCompare(s1,s2))==(-1));}else if((!((Sg_StringCompare(s1,s2))==(-1)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__10005,rest) {{SgObject p=SG_CAR(cise__10005);if ((!(SG_STRINGP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[192],SG_MAKE_STRING("string"),p,SG_NIL);}}}if ((!((Sg_StringCompare(prev,p))==(-1)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4751 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4752 }
4753 }
4754 }
4755 static SG_DEFINE_SUBR(core_string_LTP__STUB, 2, 1,core_string_LTP, SG_FALSE, NULL);
4756
core_string_GTP(SgObject * SG_FP,int SG_ARGC,void * data_)4757 static SgObject core_string_GTP(SgObject *SG_FP, int SG_ARGC, void *data_)
4758 {
4759 SgObject s1_scm;
4760 SgString* s1;
4761 SgObject s2_scm;
4762 SgString* s2;
4763 SgObject rest_scm;
4764 SgObject rest;
4765 SG_ENTER_SUBR("string>?");
4766 if (SG_ARGC < 2)
4767 Sg_WrongNumberOfArgumentsAtLeastViolation(
4768 SG_INTERN("string>?"), 2, SG_ARGC, SG_NIL);
4769 s1_scm = SG_ARGREF(0);
4770 if (!SG_STRINGP(s1_scm))
4771 Sg_WrongTypeOfArgumentViolation(
4772 sg__rc_cgen9166.d9486[193], SG_MAKE_STRING("string"), s1_scm, SG_NIL);
4773 s1 = SG_STRING(s1_scm);
4774 s2_scm = SG_ARGREF(1);
4775 if (!SG_STRINGP(s2_scm))
4776 Sg_WrongTypeOfArgumentViolation(
4777 sg__rc_cgen9166.d9486[193], SG_MAKE_STRING("string"), s2_scm, SG_NIL);
4778 s2 = SG_STRING(s2_scm);
4779 rest_scm = SG_ARGREF(SG_ARGC-1);
4780 rest = (rest_scm);
4781 {
4782 {
4783 int SG_RESULT = (int)FALSE;
4784 SgObject cise__10006;
4785 #line 608 "./lib_core.stub"
4786 {if (SG_NULLP(rest)){SG_RESULT=((Sg_StringCompare(s1,s2))==(1));}else if((!((Sg_StringCompare(s1,s2))==(1)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__10006,rest) {{SgObject p=SG_CAR(cise__10006);if ((!(SG_STRINGP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[194],SG_MAKE_STRING("string"),p,SG_NIL);}}}if ((!((Sg_StringCompare(prev,p))==(1)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4787 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4788 }
4789 }
4790 }
4791 static SG_DEFINE_SUBR(core_string_GTP__STUB, 2, 1,core_string_GTP, SG_FALSE, NULL);
4792
core_string_LT_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4793 static SgObject core_string_LT_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4794 {
4795 SgObject s1_scm;
4796 SgString* s1;
4797 SgObject s2_scm;
4798 SgString* s2;
4799 SgObject rest_scm;
4800 SgObject rest;
4801 SG_ENTER_SUBR("string<=?");
4802 if (SG_ARGC < 2)
4803 Sg_WrongNumberOfArgumentsAtLeastViolation(
4804 SG_INTERN("string<=?"), 2, SG_ARGC, SG_NIL);
4805 s1_scm = SG_ARGREF(0);
4806 if (!SG_STRINGP(s1_scm))
4807 Sg_WrongTypeOfArgumentViolation(
4808 sg__rc_cgen9166.d9486[195], SG_MAKE_STRING("string"), s1_scm, SG_NIL);
4809 s1 = SG_STRING(s1_scm);
4810 s2_scm = SG_ARGREF(1);
4811 if (!SG_STRINGP(s2_scm))
4812 Sg_WrongTypeOfArgumentViolation(
4813 sg__rc_cgen9166.d9486[195], SG_MAKE_STRING("string"), s2_scm, SG_NIL);
4814 s2 = SG_STRING(s2_scm);
4815 rest_scm = SG_ARGREF(SG_ARGC-1);
4816 rest = (rest_scm);
4817 {
4818 {
4819 int SG_RESULT = (int)FALSE;
4820 SgObject cise__10007;
4821 #line 611 "./lib_core.stub"
4822 {if (SG_NULLP(rest)){SG_RESULT=((Sg_StringCompare(s1,s2))<=(0));}else if((!((Sg_StringCompare(s1,s2))<=(0)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__10007,rest) {{SgObject p=SG_CAR(cise__10007);if ((!(SG_STRINGP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[196],SG_MAKE_STRING("string"),p,SG_NIL);}}}if ((!((Sg_StringCompare(prev,p))<=(0)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4823 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4824 }
4825 }
4826 }
4827 static SG_DEFINE_SUBR(core_string_LT_3dP__STUB, 2, 1,core_string_LT_3dP, SG_FALSE, NULL);
4828
core_string_GT_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4829 static SgObject core_string_GT_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4830 {
4831 SgObject s1_scm;
4832 SgString* s1;
4833 SgObject s2_scm;
4834 SgString* s2;
4835 SgObject rest_scm;
4836 SgObject rest;
4837 SG_ENTER_SUBR("string>=?");
4838 if (SG_ARGC < 2)
4839 Sg_WrongNumberOfArgumentsAtLeastViolation(
4840 SG_INTERN("string>=?"), 2, SG_ARGC, SG_NIL);
4841 s1_scm = SG_ARGREF(0);
4842 if (!SG_STRINGP(s1_scm))
4843 Sg_WrongTypeOfArgumentViolation(
4844 sg__rc_cgen9166.d9486[197], SG_MAKE_STRING("string"), s1_scm, SG_NIL);
4845 s1 = SG_STRING(s1_scm);
4846 s2_scm = SG_ARGREF(1);
4847 if (!SG_STRINGP(s2_scm))
4848 Sg_WrongTypeOfArgumentViolation(
4849 sg__rc_cgen9166.d9486[197], SG_MAKE_STRING("string"), s2_scm, SG_NIL);
4850 s2 = SG_STRING(s2_scm);
4851 rest_scm = SG_ARGREF(SG_ARGC-1);
4852 rest = (rest_scm);
4853 {
4854 {
4855 int SG_RESULT = (int)FALSE;
4856 SgObject cise__10008;
4857 #line 614 "./lib_core.stub"
4858 {if (SG_NULLP(rest)){SG_RESULT=((Sg_StringCompare(s1,s2))>=(0));}else if((!((Sg_StringCompare(s1,s2))>=(0)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__10008,rest) {{SgObject p=SG_CAR(cise__10008);if ((!(SG_STRINGP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[198],SG_MAKE_STRING("string"),p,SG_NIL);}}}if ((!((Sg_StringCompare(prev,p))>=(0)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4859 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4860 }
4861 }
4862 }
4863 static SG_DEFINE_SUBR(core_string_GT_3dP__STUB, 2, 1,core_string_GT_3dP, SG_FALSE, NULL);
4864
core_substring(SgObject * SG_FP,int SG_ARGC,void * data_)4865 static SgObject core_substring(SgObject *SG_FP, int SG_ARGC, void *data_)
4866 {
4867 SgObject s_scm;
4868 SgString* s;
4869 SgObject start_scm;
4870 long start;
4871 SgObject end_scm;
4872 long end;
4873 SG_ENTER_SUBR("substring");
4874 if (SG_ARGC != 3)
4875 Sg_WrongNumberOfArgumentsViolation(
4876 SG_INTERN("substring"), 3, SG_ARGC, SG_NIL);
4877 s_scm = SG_ARGREF(0);
4878 if (!SG_STRINGP(s_scm))
4879 Sg_WrongTypeOfArgumentViolation(
4880 sg__rc_cgen9166.d9486[199], SG_MAKE_STRING("string"), s_scm, SG_NIL);
4881 s = SG_STRING(s_scm);
4882 start_scm = SG_ARGREF(1);
4883 if (!SG_INTP(start_scm))
4884 Sg_WrongTypeOfArgumentViolation(
4885 sg__rc_cgen9166.d9486[199], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
4886 start = SG_INT_VALUE(start_scm);
4887 end_scm = SG_ARGREF(2);
4888 if (!SG_INTP(end_scm))
4889 Sg_WrongTypeOfArgumentViolation(
4890 sg__rc_cgen9166.d9486[199], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
4891 end = SG_INT_VALUE(end_scm);
4892 {
4893 {
4894 SgObject SG_RESULT = (SgObject)NULL;
4895
4896 #line 618 "./lib_core.stub"
4897 if ((start)<(0)){{
4898 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[200],SG_MAKE_STRING("non negative exact integer"),
4899 SG_MAKE_INT(start),
4900 SG_LIST3(s,SG_MAKE_INT(start),
4901 SG_MAKE_INT(end)));}}}
4902
4903 #line 623 "./lib_core.stub"
4904 if ((end)<(0)){{
4905 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[200],SG_MAKE_STRING("non negative exact integer"),
4906 SG_MAKE_INT(end),
4907 SG_LIST3(s,SG_MAKE_INT(start),
4908 SG_MAKE_INT(end)));}}}
4909
4910 #line 628 "./lib_core.stub"
4911 if ((end)<(start)){{
4912 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[200],SG_MAKE_STRING("end index is smaller than start index"),
4913 SG_LIST3(s,SG_MAKE_INT(start),SG_MAKE_INT(end)));}}}
4914
4915 #line 631 "./lib_core.stub"
4916 if ((SG_STRING_SIZE(s))<(end)){{
4917 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[200],SG_MAKE_STRING("end index out of bounds"),
4918 SG_LIST3(s,SG_MAKE_INT(start),SG_MAKE_INT(end)));}}}
4919
4920 #line 634 "./lib_core.stub"
4921 SG_RESULT=(Sg_Substring(s,start,end));
4922 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4923 }
4924 }
4925 }
4926 static SG_DEFINE_SUBR(core_substring__STUB, 3, 0,core_substring, SG_FALSE, NULL);
4927
core_string_append(SgObject * SG_FP,int SG_ARGC,void * data_)4928 static SgObject core_string_append(SgObject *SG_FP, int SG_ARGC, void *data_)
4929 {
4930 SgObject rest_scm;
4931 SgObject rest;
4932 SG_ENTER_SUBR("string-append");
4933 if (SG_ARGC < 0)
4934 Sg_WrongNumberOfArgumentsAtLeastViolation(
4935 SG_INTERN("string-append"), 0, SG_ARGC, SG_NIL);
4936 rest_scm = SG_ARGREF(SG_ARGC-1);
4937 rest = (rest_scm);
4938 {
4939 {
4940 SgObject SG_RESULT = (SgObject)NULL;
4941 SG_RESULT=(Sg_StringAppend(rest));
4942 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4943 }
4944 }
4945 }
4946 static SG_DEFINE_SUBR(core_string_append__STUB, 0, 1,core_string_append, SG_FALSE, NULL);
4947
core_string_TOlist(SgObject * SG_FP,int SG_ARGC,void * data_)4948 static SgObject core_string_TOlist(SgObject *SG_FP, int SG_ARGC, void *data_)
4949 {
4950 SgObject s_scm;
4951 SgString* s;
4952 SgObject start_scm;
4953 long start;
4954 SgObject end_scm;
4955 long end;
4956 SG_ENTER_SUBR("string->list");
4957 if ((SG_ARGC > 3 &&
4958 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
4959 SG_ARGC < 1)
4960 Sg_WrongNumberOfArgumentsBetweenViolation(
4961 SG_INTERN("string->list"), 1, 3, SG_ARGC, SG_NIL);
4962 s_scm = SG_ARGREF(0);
4963 if (!SG_STRINGP(s_scm))
4964 Sg_WrongTypeOfArgumentViolation(
4965 sg__rc_cgen9166.d9486[202], SG_MAKE_STRING("string"), s_scm, SG_NIL);
4966 s = SG_STRING(s_scm);
4967 if (SG_ARGC > 1+1) {
4968 start_scm = SG_ARGREF(1);
4969 } else {
4970 start_scm = SG_MAKE_INT(0);
4971 }
4972 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
4973 Sg_WrongTypeOfArgumentViolation(
4974 sg__rc_cgen9166.d9486[202], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
4975 start = SG_INT_VALUE(start_scm);
4976 if (SG_ARGC > 2+1) {
4977 end_scm = SG_ARGREF(2);
4978 } else {
4979 end_scm = SG_MAKE_INT(-1);
4980 }
4981 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
4982 Sg_WrongTypeOfArgumentViolation(
4983 sg__rc_cgen9166.d9486[202], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
4984 end = SG_INT_VALUE(end_scm);
4985 {
4986 {
4987 SgObject SG_RESULT = (SgObject)NULL;
4988 SG_RESULT=(Sg_StringToList(s,start,end));
4989 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4990 }
4991 }
4992 }
4993 static SG_DEFINE_SUBR(core_string_TOlist__STUB, 1, 3,core_string_TOlist, SG_FALSE, NULL);
4994
core_list_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)4995 static SgObject core_list_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
4996 {
4997 SgObject o_scm;
4998 SgObject o;
4999 SgObject start_scm;
5000 long start;
5001 SgObject end_scm;
5002 long end;
5003 SG_ENTER_SUBR("list->string");
5004 if ((SG_ARGC > 3 &&
5005 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5006 SG_ARGC < 1)
5007 Sg_WrongNumberOfArgumentsBetweenViolation(
5008 SG_INTERN("list->string"), 1, 3, SG_ARGC, SG_NIL);
5009 o_scm = SG_ARGREF(0);
5010 if (!SG_LISTP(o_scm))
5011 Sg_WrongTypeOfArgumentViolation(
5012 sg__rc_cgen9166.d9486[203], SG_MAKE_STRING("list"), o_scm, SG_NIL);
5013 o = (o_scm);
5014 if (SG_ARGC > 1+1) {
5015 start_scm = SG_ARGREF(1);
5016 } else {
5017 start_scm = SG_MAKE_INT(0);
5018 }
5019 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5020 Sg_WrongTypeOfArgumentViolation(
5021 sg__rc_cgen9166.d9486[203], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5022 start = SG_INT_VALUE(start_scm);
5023 if (SG_ARGC > 2+1) {
5024 end_scm = SG_ARGREF(2);
5025 } else {
5026 end_scm = SG_MAKE_INT(-1);
5027 }
5028 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5029 Sg_WrongTypeOfArgumentViolation(
5030 sg__rc_cgen9166.d9486[203], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5031 end = SG_INT_VALUE(end_scm);
5032 {
5033 {
5034 SgObject SG_RESULT = (SgObject)NULL;
5035 SG_RESULT=(Sg_ListToString(o,start,end));
5036 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5037 }
5038 }
5039 }
5040 static SG_DEFINE_SUBR(core_list_TOstring__STUB, 1, 3,core_list_TOstring, SG_FALSE, NULL);
5041
core_string_copy(SgObject * SG_FP,int SG_ARGC,void * data_)5042 static SgObject core_string_copy(SgObject *SG_FP, int SG_ARGC, void *data_)
5043 {
5044 SgObject s_scm;
5045 SgString* s;
5046 SgObject start_scm;
5047 long start;
5048 SgObject end_scm;
5049 long end;
5050 SG_ENTER_SUBR("string-copy");
5051 if ((SG_ARGC > 3 &&
5052 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5053 SG_ARGC < 1)
5054 Sg_WrongNumberOfArgumentsBetweenViolation(
5055 SG_INTERN("string-copy"), 1, 3, SG_ARGC, SG_NIL);
5056 s_scm = SG_ARGREF(0);
5057 if (!SG_STRINGP(s_scm))
5058 Sg_WrongTypeOfArgumentViolation(
5059 sg__rc_cgen9166.d9486[204], SG_MAKE_STRING("string"), s_scm, SG_NIL);
5060 s = SG_STRING(s_scm);
5061 if (SG_ARGC > 1+1) {
5062 start_scm = SG_ARGREF(1);
5063 } else {
5064 start_scm = SG_MAKE_INT(0);
5065 }
5066 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5067 Sg_WrongTypeOfArgumentViolation(
5068 sg__rc_cgen9166.d9486[204], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5069 start = SG_INT_VALUE(start_scm);
5070 if (SG_ARGC > 2+1) {
5071 end_scm = SG_ARGREF(2);
5072 } else {
5073 end_scm = SG_MAKE_INT(-1);
5074 }
5075 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5076 Sg_WrongTypeOfArgumentViolation(
5077 sg__rc_cgen9166.d9486[204], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5078 end = SG_INT_VALUE(end_scm);
5079 {
5080 {
5081 SgObject SG_RESULT = (SgObject)NULL;
5082 SG_RESULT=(Sg_Substring(s,start,end));
5083 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5084 }
5085 }
5086 }
5087 static SG_DEFINE_SUBR(core_string_copy__STUB, 1, 3,core_string_copy, SG_FALSE, NULL);
5088
core_make_vector(SgObject * SG_FP,int SG_ARGC,void * data_)5089 static SgObject core_make_vector(SgObject *SG_FP, int SG_ARGC, void *data_)
5090 {
5091 SgObject size_scm;
5092 long size;
5093 SgObject fill_scm;
5094 SgObject fill;
5095 SG_ENTER_SUBR("make-vector");
5096 if ((SG_ARGC > 2 &&
5097 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5098 SG_ARGC < 1)
5099 Sg_WrongNumberOfArgumentsBetweenViolation(
5100 SG_INTERN("make-vector"), 1, 2, SG_ARGC, SG_NIL);
5101 size_scm = SG_ARGREF(0);
5102 if (!SG_INTP(size_scm))
5103 Sg_WrongTypeOfArgumentViolation(
5104 sg__rc_cgen9166.d9486[205], SG_MAKE_STRING("fixnum"), size_scm, SG_NIL);
5105 size = SG_INT_VALUE(size_scm);
5106 if (SG_ARGC > 1+1) {
5107 fill_scm = SG_ARGREF(1);
5108 } else {
5109 fill_scm = SG_UNBOUND;
5110 }
5111 fill = (fill_scm);
5112 {
5113 {
5114 SgObject SG_RESULT = (SgObject)NULL;
5115
5116 #line 657 "./lib_core.stub"
5117 if (SG_UNBOUNDP(fill)){{fill=(SG_UNDEF);}}
5118
5119 #line 658 "./lib_core.stub"
5120 SG_RESULT=(Sg_MakeVector(size,fill));
5121 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5122 }
5123 }
5124 }
5125 static SG_DEFINE_SUBR(core_make_vector__STUB, 1, 2,core_make_vector, SG_FALSE, NULL);
5126
core_vector(SgObject * SG_FP,int SG_ARGC,void * data_)5127 static SgObject core_vector(SgObject *SG_FP, int SG_ARGC, void *data_)
5128 {
5129 SgObject rest_scm;
5130 SgObject rest;
5131 SG_ENTER_SUBR("vector");
5132 if (SG_ARGC < 0)
5133 Sg_WrongNumberOfArgumentsAtLeastViolation(
5134 SG_INTERN("vector"), 0, SG_ARGC, SG_NIL);
5135 rest_scm = SG_ARGREF(SG_ARGC-1);
5136 rest = (rest_scm);
5137 {
5138 {
5139 SgObject SG_RESULT = (SgObject)NULL;
5140
5141 #line 661 "./lib_core.stub"
5142 SG_RESULT=(Sg_ListToVector(rest,0,-1));
5143 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5144 }
5145 }
5146 }
5147 static SG_DEFINE_SUBR(core_vector__STUB, 0, 1,core_vector, SG_MAKE_INT(VECTOR), NULL);
5148
core_vector_length(SgObject * SG_FP,int SG_ARGC,void * data_)5149 static SgObject core_vector_length(SgObject *SG_FP, int SG_ARGC, void *data_)
5150 {
5151 SgObject vec_scm;
5152 SgVector* vec;
5153 SG_ENTER_SUBR("vector-length");
5154 if (SG_ARGC != 1)
5155 Sg_WrongNumberOfArgumentsViolation(
5156 SG_INTERN("vector-length"), 1, SG_ARGC, SG_NIL);
5157 vec_scm = SG_ARGREF(0);
5158 if (!SG_VECTORP(vec_scm))
5159 Sg_WrongTypeOfArgumentViolation(
5160 sg__rc_cgen9166.d9486[207], SG_MAKE_STRING("vector"), vec_scm, SG_NIL);
5161 vec = SG_VECTOR(vec_scm);
5162 {
5163 {
5164 long SG_RESULT = (long)0;
5165
5166 #line 665 "./lib_core.stub"
5167 SG_RESULT=(SG_VECTOR_SIZE(vec));
5168 SG_RETURN(SG_MAKE_INT(SG_RESULT));
5169 }
5170 }
5171 }
5172 static SG_DEFINE_SUBR(core_vector_length__STUB, 1, 0,core_vector_length, SG_MAKE_INT(VEC_LEN), NULL);
5173
core_vector_ref(SgObject * SG_FP,int SG_ARGC,void * data_)5174 static SgObject core_vector_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
5175 {
5176 SgObject vec_scm;
5177 SgVector* vec;
5178 SgObject i_scm;
5179 long i;
5180 SgObject fallback_scm;
5181 SgObject fallback;
5182 SG_ENTER_SUBR("vector-ref");
5183 if ((SG_ARGC > 3 &&
5184 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5185 SG_ARGC < 2)
5186 Sg_WrongNumberOfArgumentsBetweenViolation(
5187 SG_INTERN("vector-ref"), 2, 3, SG_ARGC, SG_NIL);
5188 vec_scm = SG_ARGREF(0);
5189 if (!SG_VECTORP(vec_scm))
5190 Sg_WrongTypeOfArgumentViolation(
5191 sg__rc_cgen9166.d9486[208], SG_MAKE_STRING("vector"), vec_scm, SG_NIL);
5192 vec = SG_VECTOR(vec_scm);
5193 i_scm = SG_ARGREF(1);
5194 if (!SG_INTP(i_scm))
5195 Sg_WrongTypeOfArgumentViolation(
5196 sg__rc_cgen9166.d9486[208], SG_MAKE_STRING("fixnum"), i_scm, SG_NIL);
5197 i = SG_INT_VALUE(i_scm);
5198 if (SG_ARGC > 2+1) {
5199 fallback_scm = SG_ARGREF(2);
5200 } else {
5201 fallback_scm = SG_UNBOUND;
5202 }
5203 fallback = (fallback_scm);
5204 {
5205 {
5206 SgObject SG_RESULT = (SgObject)NULL;
5207
5208 #line 669 "./lib_core.stub"
5209 if (((i)<(0))||(
5210 (i)>=(SG_VECTOR_SIZE(vec)))){
5211 if (SG_UNBOUNDP(fallback)){{
5212 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[209],SG_MAKE_STRING("index out of range"),
5213 SG_MAKE_INT(i));}}}
5214 SG_RESULT=(fallback);} else {
5215 SG_RESULT=(SG_VECTOR_ELEMENT(vec,i));}
5216 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5217 }
5218 }
5219 }
5220 static SG_DEFINE_SUBR(core_vector_ref__STUB, 2, 2,core_vector_ref, SG_FALSE, NULL);
5221
core_vector_setX(SgObject * SG_FP,int SG_ARGC,void * data_)5222 static SgObject core_vector_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
5223 {
5224 SgObject vec_scm;
5225 SgVector* vec;
5226 SgObject i_scm;
5227 long i;
5228 SgObject obj_scm;
5229 SgObject obj;
5230 SG_ENTER_SUBR("vector-set!");
5231 if (SG_ARGC != 3)
5232 Sg_WrongNumberOfArgumentsViolation(
5233 SG_INTERN("vector-set!"), 3, SG_ARGC, SG_NIL);
5234 vec_scm = SG_ARGREF(0);
5235 if (!SG_VECTORP(vec_scm))
5236 Sg_WrongTypeOfArgumentViolation(
5237 sg__rc_cgen9166.d9486[210], SG_MAKE_STRING("vector"), vec_scm, SG_NIL);
5238 vec = SG_VECTOR(vec_scm);
5239 i_scm = SG_ARGREF(1);
5240 if (!SG_INTP(i_scm))
5241 Sg_WrongTypeOfArgumentViolation(
5242 sg__rc_cgen9166.d9486[210], SG_MAKE_STRING("fixnum"), i_scm, SG_NIL);
5243 i = SG_INT_VALUE(i_scm);
5244 obj_scm = SG_ARGREF(2);
5245 obj = (obj_scm);
5246 {
5247
5248 #line 678 "./lib_core.stub"
5249 if (SG_LITERAL_VECTORP(vec)){{
5250 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[211],SG_MAKE_STRING("attempt to modify immutable vector"),
5251 SG_LIST1(vec));}}}
5252
5253 #line 681 "./lib_core.stub"
5254 if (((i)<(0))||((i)>=(SG_VECTOR_SIZE(vec)))){
5255 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[209],SG_MAKE_STRING("index out of range"),
5256 SG_MAKE_INT(i));}} else {
5257 SG_VECTOR_ELEMENT(vec,i)=(obj);}
5258 SG_RETURN(SG_UNDEF);
5259 }
5260 }
5261 static SG_DEFINE_SUBR(core_vector_setX__STUB, 3, 0,core_vector_setX, SG_FALSE, NULL);
5262
core_vector_TOlist(SgObject * SG_FP,int SG_ARGC,void * data_)5263 static SgObject core_vector_TOlist(SgObject *SG_FP, int SG_ARGC, void *data_)
5264 {
5265 SgObject vec_scm;
5266 SgVector* vec;
5267 SgObject start_scm;
5268 long start;
5269 SgObject end_scm;
5270 long end;
5271 SG_ENTER_SUBR("vector->list");
5272 if ((SG_ARGC > 3 &&
5273 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5274 SG_ARGC < 1)
5275 Sg_WrongNumberOfArgumentsBetweenViolation(
5276 SG_INTERN("vector->list"), 1, 3, SG_ARGC, SG_NIL);
5277 vec_scm = SG_ARGREF(0);
5278 if (!SG_VECTORP(vec_scm))
5279 Sg_WrongTypeOfArgumentViolation(
5280 sg__rc_cgen9166.d9486[213], SG_MAKE_STRING("vector"), vec_scm, SG_NIL);
5281 vec = SG_VECTOR(vec_scm);
5282 if (SG_ARGC > 1+1) {
5283 start_scm = SG_ARGREF(1);
5284 } else {
5285 start_scm = SG_MAKE_INT(0);
5286 }
5287 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5288 Sg_WrongTypeOfArgumentViolation(
5289 sg__rc_cgen9166.d9486[213], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5290 start = SG_INT_VALUE(start_scm);
5291 if (SG_ARGC > 2+1) {
5292 end_scm = SG_ARGREF(2);
5293 } else {
5294 end_scm = SG_MAKE_INT(-1);
5295 }
5296 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5297 Sg_WrongTypeOfArgumentViolation(
5298 sg__rc_cgen9166.d9486[213], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5299 end = SG_INT_VALUE(end_scm);
5300 {
5301 {
5302 SgObject SG_RESULT = (SgObject)NULL;
5303 SG_RESULT=(Sg_VectorToList(vec,start,end));
5304 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5305 }
5306 }
5307 }
5308 static SG_DEFINE_SUBR(core_vector_TOlist__STUB, 1, 3,core_vector_TOlist, SG_FALSE, NULL);
5309
core_list_TOvector(SgObject * SG_FP,int SG_ARGC,void * data_)5310 static SgObject core_list_TOvector(SgObject *SG_FP, int SG_ARGC, void *data_)
5311 {
5312 SgObject lst_scm;
5313 SgObject lst;
5314 SgObject start_scm;
5315 long start;
5316 SgObject end_scm;
5317 long end;
5318 SG_ENTER_SUBR("list->vector");
5319 if ((SG_ARGC > 3 &&
5320 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5321 SG_ARGC < 1)
5322 Sg_WrongNumberOfArgumentsBetweenViolation(
5323 SG_INTERN("list->vector"), 1, 3, SG_ARGC, SG_NIL);
5324 lst_scm = SG_ARGREF(0);
5325 lst = (lst_scm);
5326 if (SG_ARGC > 1+1) {
5327 start_scm = SG_ARGREF(1);
5328 } else {
5329 start_scm = SG_MAKE_INT(0);
5330 }
5331 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5332 Sg_WrongTypeOfArgumentViolation(
5333 sg__rc_cgen9166.d9486[214], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5334 start = SG_INT_VALUE(start_scm);
5335 if (SG_ARGC > 2+1) {
5336 end_scm = SG_ARGREF(2);
5337 } else {
5338 end_scm = SG_MAKE_INT(-1);
5339 }
5340 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5341 Sg_WrongTypeOfArgumentViolation(
5342 sg__rc_cgen9166.d9486[214], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5343 end = SG_INT_VALUE(end_scm);
5344 {
5345 {
5346 SgObject SG_RESULT = (SgObject)NULL;
5347
5348 #line 693 "./lib_core.stub"
5349 if ((!(SG_LISTP(lst)))){{
5350 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[215],SG_MAKE_STRING("propert list"),lst,SG_NIL);}}}
5351
5352 #line 695 "./lib_core.stub"
5353 SG_RESULT=(Sg_ListToVector(lst,start,end));
5354 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5355 }
5356 }
5357 }
5358 static SG_DEFINE_SUBR(core_list_TOvector__STUB, 1, 3,core_list_TOvector, SG_FALSE, NULL);
5359
core_vector_fillX(SgObject * SG_FP,int SG_ARGC,void * data_)5360 static SgObject core_vector_fillX(SgObject *SG_FP, int SG_ARGC, void *data_)
5361 {
5362 SgObject vec_scm;
5363 SgVector* vec;
5364 SgObject fill_scm;
5365 SgObject fill;
5366 SgObject start_scm;
5367 long start;
5368 SgObject end_scm;
5369 long end;
5370 SG_ENTER_SUBR("vector-fill!");
5371 if ((SG_ARGC > 4 &&
5372 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5373 SG_ARGC < 2)
5374 Sg_WrongNumberOfArgumentsBetweenViolation(
5375 SG_INTERN("vector-fill!"), 2, 4, SG_ARGC, SG_NIL);
5376 vec_scm = SG_ARGREF(0);
5377 if (!SG_VECTORP(vec_scm))
5378 Sg_WrongTypeOfArgumentViolation(
5379 sg__rc_cgen9166.d9486[216], SG_MAKE_STRING("vector"), vec_scm, SG_NIL);
5380 vec = SG_VECTOR(vec_scm);
5381 fill_scm = SG_ARGREF(1);
5382 fill = (fill_scm);
5383 if (SG_ARGC > 2+1) {
5384 start_scm = SG_ARGREF(2);
5385 } else {
5386 start_scm = SG_MAKE_INT(0);
5387 }
5388 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5389 Sg_WrongTypeOfArgumentViolation(
5390 sg__rc_cgen9166.d9486[216], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5391 start = SG_INT_VALUE(start_scm);
5392 if (SG_ARGC > 3+1) {
5393 end_scm = SG_ARGREF(3);
5394 } else {
5395 end_scm = SG_MAKE_INT(-1);
5396 }
5397 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5398 Sg_WrongTypeOfArgumentViolation(
5399 sg__rc_cgen9166.d9486[216], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5400 end = SG_INT_VALUE(end_scm);
5401 {
5402 Sg_VectorFill(vec,fill,start,end);
5403 SG_RETURN(SG_UNDEF);
5404 }
5405 }
5406 static SG_DEFINE_SUBR(core_vector_fillX__STUB, 2, 3,core_vector_fillX, SG_FALSE, NULL);
5407
core_assertion_violation(SgObject * SG_FP,int SG_ARGC,void * data_)5408 static SgObject core_assertion_violation(SgObject *SG_FP, int SG_ARGC, void *data_)
5409 {
5410 SgObject who_scm;
5411 SgObject who;
5412 SgObject message_scm;
5413 SgObject message;
5414 SgObject irritants_scm;
5415 SgObject irritants;
5416 SG_ENTER_SUBR("assertion-violation");
5417 if (SG_ARGC < 2)
5418 Sg_WrongNumberOfArgumentsAtLeastViolation(
5419 SG_INTERN("assertion-violation"), 2, SG_ARGC, SG_NIL);
5420 who_scm = SG_ARGREF(0);
5421 who = (who_scm);
5422 message_scm = SG_ARGREF(1);
5423 message = (message_scm);
5424 irritants_scm = SG_ARGREF(SG_ARGC-1);
5425 irritants = (irritants_scm);
5426 {
5427 Sg_AssertionViolation(who,message,irritants);
5428 SG_RETURN(SG_UNDEF);
5429 }
5430 }
5431 static SG_DEFINE_SUBR(core_assertion_violation__STUB, 2, 1,core_assertion_violation, SG_FALSE, NULL);
5432
core_error(SgObject * SG_FP,int SG_ARGC,void * data_)5433 static SgObject core_error(SgObject *SG_FP, int SG_ARGC, void *data_)
5434 {
5435 SgObject who_scm;
5436 SgObject who;
5437 SgObject message_scm;
5438 SgObject message;
5439 SgObject irritants_scm;
5440 SgObject irritants;
5441 SG_ENTER_SUBR("error");
5442 if (SG_ARGC < 2)
5443 Sg_WrongNumberOfArgumentsAtLeastViolation(
5444 SG_INTERN("error"), 2, SG_ARGC, SG_NIL);
5445 who_scm = SG_ARGREF(0);
5446 who = (who_scm);
5447 message_scm = SG_ARGREF(1);
5448 message = (message_scm);
5449 irritants_scm = SG_ARGREF(SG_ARGC-1);
5450 irritants = (irritants_scm);
5451 {
5452
5453 #line 707 "./lib_core.stub"
5454 {SgObject condi=SG_FALSE;
5455 if (SG_FALSEP(who)){
5456 condi=(
5457 Sg_Condition(
5458 SG_LIST2(Sg_MakeError(message),
5459 Sg_MakeIrritantsCondition(irritants))));} else {
5460 condi=(
5461 Sg_Condition(
5462 SG_LIST3(Sg_MakeError(message),
5463 Sg_MakeWhoCondition(who),
5464 Sg_MakeIrritantsCondition(irritants))));}
5465 Sg_Raise(condi,FALSE);}
5466 SG_RETURN(SG_UNDEF);
5467 }
5468 }
5469 static SG_DEFINE_SUBR(core_error__STUB, 2, 1,core_error, SG_FALSE, NULL);
5470
core_scheme_error(SgObject * SG_FP,int SG_ARGC,void * data_)5471 static SgObject core_scheme_error(SgObject *SG_FP, int SG_ARGC, void *data_)
5472 {
5473 SgObject who_scm;
5474 SgObject who;
5475 SgObject msg_scm;
5476 SgObject msg;
5477 SgObject irritant_scm;
5478 SgObject irritant;
5479 SG_ENTER_SUBR("scheme-error");
5480 if (SG_ARGC < 2)
5481 Sg_WrongNumberOfArgumentsAtLeastViolation(
5482 SG_INTERN("scheme-error"), 2, SG_ARGC, SG_NIL);
5483 who_scm = SG_ARGREF(0);
5484 who = (who_scm);
5485 msg_scm = SG_ARGREF(1);
5486 msg = (msg_scm);
5487 irritant_scm = SG_ARGREF(SG_ARGC-1);
5488 irritant = (irritant_scm);
5489 {
5490
5491 #line 722 "./lib_core.stub"
5492 Sg_Error(UC("%S %A %S"),who,msg,irritant);
5493 SG_RETURN(SG_UNDEF);
5494 }
5495 }
5496 static SG_DEFINE_SUBR(core_scheme_error__STUB, 2, 1,core_scheme_error, SG_FALSE, NULL);
5497
core_syntax_error(SgObject * SG_FP,int SG_ARGC,void * data_)5498 static SgObject core_syntax_error(SgObject *SG_FP, int SG_ARGC, void *data_)
5499 {
5500 SgObject form_scm;
5501 SgObject form;
5502 SgObject irritant_scm;
5503 SgObject irritant;
5504 SG_ENTER_SUBR("syntax-error");
5505 if (SG_ARGC < 1)
5506 Sg_WrongNumberOfArgumentsAtLeastViolation(
5507 SG_INTERN("syntax-error"), 1, SG_ARGC, SG_NIL);
5508 form_scm = SG_ARGREF(0);
5509 form = (form_scm);
5510 irritant_scm = SG_ARGREF(SG_ARGC-1);
5511 irritant = (irritant_scm);
5512 {
5513 Sg_SyntaxError(form,irritant);
5514 SG_RETURN(SG_UNDEF);
5515 }
5516 }
5517 static SG_DEFINE_SUBR(core_syntax_error__STUB, 1, 1,core_syntax_error, SG_FALSE, NULL);
5518
core_apply(SgObject * SG_FP,int SG_ARGC,void * data_)5519 static SgObject core_apply(SgObject *SG_FP, int SG_ARGC, void *data_)
5520 {
5521 SgObject proc_scm;
5522 SgProcedure* proc;
5523 SgObject arg1_scm;
5524 SgObject arg1;
5525 SgObject rest_scm;
5526 SgObject rest;
5527 SG_ENTER_SUBR("apply");
5528 if (SG_ARGC < 2)
5529 Sg_WrongNumberOfArgumentsAtLeastViolation(
5530 SG_INTERN("apply"), 2, SG_ARGC, SG_NIL);
5531 proc_scm = SG_ARGREF(0);
5532 if (!SG_PROCEDUREP(proc_scm))
5533 Sg_WrongTypeOfArgumentViolation(
5534 sg__rc_cgen9166.d9486[221], SG_MAKE_STRING("procedure"), proc_scm, SG_NIL);
5535 proc = SG_PROCEDURE(proc_scm);
5536 arg1_scm = SG_ARGREF(1);
5537 arg1 = (arg1_scm);
5538 rest_scm = SG_ARGREF(SG_ARGC-1);
5539 rest = (rest_scm);
5540 {
5541 {
5542 SgObject SG_RESULT = (SgObject)NULL;
5543 SgObject cp;
5544 #line 732 "./lib_core.stub"
5545 {SgObject head=SG_NIL;SgObject tail=SG_NIL;
5546 if (SG_NULLP(rest)){SG_RESULT=(Sg_VMApply(proc,arg1));} else {
5547 #line 735 "./lib_core.stub"
5548 head=(Sg_Cons(arg1,SG_NIL));
5549 tail=(head);
5550 SG_FOR_EACH(cp,rest){
5551 if (SG_NULLP(SG_CDR(cp))){{
5552 SG_APPEND(head,tail,SG_CAR(cp));
5553 break;}}
5554 if ((!(SG_PAIRP(SG_CDR(cp))))){{
5555 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[222],SG_MAKE_STRING("improper list not allowed"),rest);}}}
5556 #line 744 "./lib_core.stub"
5557 SG_APPEND1(head,tail,SG_CAR(cp));}
5558 SG_RESULT=(Sg_VMApply(proc,head));}}
5559 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5560 }
5561 }
5562 }
5563 static SG_DEFINE_SUBR(core_apply__STUB, 2, 1,core_apply, SG_MAKE_INT(APPLY), NULL);
5564
core_call_2fcc(SgObject * SG_FP,int SG_ARGC,void * data_)5565 static SgObject core_call_2fcc(SgObject *SG_FP, int SG_ARGC, void *data_)
5566 {
5567 SgObject proc_scm;
5568 SgProcedure* proc;
5569 SG_ENTER_SUBR("call/cc");
5570 if (SG_ARGC != 1)
5571 Sg_WrongNumberOfArgumentsViolation(
5572 SG_INTERN("call/cc"), 1, SG_ARGC, SG_NIL);
5573 proc_scm = SG_ARGREF(0);
5574 if (!SG_PROCEDUREP(proc_scm))
5575 Sg_WrongTypeOfArgumentViolation(
5576 sg__rc_cgen9166.d9486[223], SG_MAKE_STRING("procedure"), proc_scm, SG_NIL);
5577 proc = SG_PROCEDURE(proc_scm);
5578 {
5579 {
5580 SgObject SG_RESULT = (SgObject)NULL;
5581 SG_RESULT=(Sg_VMCallCC(proc));
5582 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5583 }
5584 }
5585 }
5586 static SG_DEFINE_SUBR(core_call_2fcc__STUB, 1, 0,core_call_2fcc, SG_FALSE, NULL);
5587
core_call_with_current_continuation(SgObject * SG_FP,int SG_ARGC,void * data_)5588 static SgObject core_call_with_current_continuation(SgObject *SG_FP, int SG_ARGC, void *data_)
5589 {
5590 SgObject proc_scm;
5591 SgProcedure* proc;
5592 SG_ENTER_SUBR("call-with-current-continuation");
5593 if (SG_ARGC != 1)
5594 Sg_WrongNumberOfArgumentsViolation(
5595 SG_INTERN("call-with-current-continuation"), 1, SG_ARGC, SG_NIL);
5596 proc_scm = SG_ARGREF(0);
5597 if (!SG_PROCEDUREP(proc_scm))
5598 Sg_WrongTypeOfArgumentViolation(
5599 sg__rc_cgen9166.d9486[224], SG_MAKE_STRING("procedure"), proc_scm, SG_NIL);
5600 proc = SG_PROCEDURE(proc_scm);
5601 {
5602 {
5603 SgObject SG_RESULT = (SgObject)NULL;
5604 SG_RESULT=(Sg_VMCallCC(proc));
5605 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5606 }
5607 }
5608 }
5609 static SG_DEFINE_SUBR(core_call_with_current_continuation__STUB, 1, 0,core_call_with_current_continuation, SG_FALSE, NULL);
5610
core_values(SgObject * SG_FP,int SG_ARGC,void * data_)5611 static SgObject core_values(SgObject *SG_FP, int SG_ARGC, void *data_)
5612 {
5613 SgObject rest_scm;
5614 SgObject rest;
5615 SG_ENTER_SUBR("values");
5616 if (SG_ARGC < 0)
5617 Sg_WrongNumberOfArgumentsAtLeastViolation(
5618 SG_INTERN("values"), 0, SG_ARGC, SG_NIL);
5619 rest_scm = SG_ARGREF(SG_ARGC-1);
5620 rest = (rest_scm);
5621 {
5622 {
5623 SgObject SG_RESULT = (SgObject)NULL;
5624 SG_RESULT=(Sg_Values(rest));
5625 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5626 }
5627 }
5628 }
5629 static SG_DEFINE_SUBR(core_values__STUB, 0, 1,core_values, SG_MAKE_INT(VALUES), NULL);
5630
core_dynamic_wind(SgObject * SG_FP,int SG_ARGC,void * data_)5631 static SgObject core_dynamic_wind(SgObject *SG_FP, int SG_ARGC, void *data_)
5632 {
5633 SgObject before_scm;
5634 SgObject before;
5635 SgObject thunk_scm;
5636 SgObject thunk;
5637 SgObject after_scm;
5638 SgObject after;
5639 SG_ENTER_SUBR("dynamic-wind");
5640 if (SG_ARGC != 3)
5641 Sg_WrongNumberOfArgumentsViolation(
5642 SG_INTERN("dynamic-wind"), 3, SG_ARGC, SG_NIL);
5643 before_scm = SG_ARGREF(0);
5644 before = (before_scm);
5645 thunk_scm = SG_ARGREF(1);
5646 thunk = (thunk_scm);
5647 after_scm = SG_ARGREF(2);
5648 after = (after_scm);
5649 {
5650 {
5651 SgObject SG_RESULT = (SgObject)NULL;
5652 SG_RESULT=(Sg_VMDynamicWind(before,thunk,after));
5653 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5654 }
5655 }
5656 }
5657 static SG_DEFINE_SUBR(core_dynamic_wind__STUB, 3, 0,core_dynamic_wind, SG_FALSE, NULL);
5658
core_char_upcase(SgObject * SG_FP,int SG_ARGC,void * data_)5659 static SgObject core_char_upcase(SgObject *SG_FP, int SG_ARGC, void *data_)
5660 {
5661 SgObject c_scm;
5662 SgChar c;
5663 SG_ENTER_SUBR("char-upcase");
5664 if (SG_ARGC != 1)
5665 Sg_WrongNumberOfArgumentsViolation(
5666 SG_INTERN("char-upcase"), 1, SG_ARGC, SG_NIL);
5667 c_scm = SG_ARGREF(0);
5668 if (!SG_CHARP(c_scm))
5669 Sg_WrongTypeOfArgumentViolation(
5670 sg__rc_cgen9166.d9486[227], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5671 c = SG_CHAR_VALUE(c_scm);
5672 {
5673 {
5674 SgChar SG_RESULT = (SgChar)0;
5675 SG_RESULT=(Sg_CharUpCase(c));
5676 SG_RETURN(SG_MAKE_CHAR(SG_RESULT));
5677 }
5678 }
5679 }
5680 static SG_DEFINE_SUBR(core_char_upcase__STUB, 1, 0,core_char_upcase, SG_FALSE, NULL);
5681
core_char_downcase(SgObject * SG_FP,int SG_ARGC,void * data_)5682 static SgObject core_char_downcase(SgObject *SG_FP, int SG_ARGC, void *data_)
5683 {
5684 SgObject c_scm;
5685 SgChar c;
5686 SG_ENTER_SUBR("char-downcase");
5687 if (SG_ARGC != 1)
5688 Sg_WrongNumberOfArgumentsViolation(
5689 SG_INTERN("char-downcase"), 1, SG_ARGC, SG_NIL);
5690 c_scm = SG_ARGREF(0);
5691 if (!SG_CHARP(c_scm))
5692 Sg_WrongTypeOfArgumentViolation(
5693 sg__rc_cgen9166.d9486[228], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5694 c = SG_CHAR_VALUE(c_scm);
5695 {
5696 {
5697 SgChar SG_RESULT = (SgChar)0;
5698 SG_RESULT=(Sg_CharDownCase(c));
5699 SG_RETURN(SG_MAKE_CHAR(SG_RESULT));
5700 }
5701 }
5702 }
5703 static SG_DEFINE_SUBR(core_char_downcase__STUB, 1, 0,core_char_downcase, SG_FALSE, NULL);
5704
core_char_titlecase(SgObject * SG_FP,int SG_ARGC,void * data_)5705 static SgObject core_char_titlecase(SgObject *SG_FP, int SG_ARGC, void *data_)
5706 {
5707 SgObject c_scm;
5708 SgChar c;
5709 SG_ENTER_SUBR("char-titlecase");
5710 if (SG_ARGC != 1)
5711 Sg_WrongNumberOfArgumentsViolation(
5712 SG_INTERN("char-titlecase"), 1, SG_ARGC, SG_NIL);
5713 c_scm = SG_ARGREF(0);
5714 if (!SG_CHARP(c_scm))
5715 Sg_WrongTypeOfArgumentViolation(
5716 sg__rc_cgen9166.d9486[229], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5717 c = SG_CHAR_VALUE(c_scm);
5718 {
5719 {
5720 SgChar SG_RESULT = (SgChar)0;
5721 SG_RESULT=(Sg_CharTitleCase(c));
5722 SG_RETURN(SG_MAKE_CHAR(SG_RESULT));
5723 }
5724 }
5725 }
5726 static SG_DEFINE_SUBR(core_char_titlecase__STUB, 1, 0,core_char_titlecase, SG_FALSE, NULL);
5727
core_char_foldcase(SgObject * SG_FP,int SG_ARGC,void * data_)5728 static SgObject core_char_foldcase(SgObject *SG_FP, int SG_ARGC, void *data_)
5729 {
5730 SgObject c_scm;
5731 SgChar c;
5732 SG_ENTER_SUBR("char-foldcase");
5733 if (SG_ARGC != 1)
5734 Sg_WrongNumberOfArgumentsViolation(
5735 SG_INTERN("char-foldcase"), 1, SG_ARGC, SG_NIL);
5736 c_scm = SG_ARGREF(0);
5737 if (!SG_CHARP(c_scm))
5738 Sg_WrongTypeOfArgumentViolation(
5739 sg__rc_cgen9166.d9486[230], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5740 c = SG_CHAR_VALUE(c_scm);
5741 {
5742 {
5743 SgChar SG_RESULT = (SgChar)0;
5744 SG_RESULT=(Sg_CharFoldCase(c));
5745 SG_RETURN(SG_MAKE_CHAR(SG_RESULT));
5746 }
5747 }
5748 }
5749 static SG_DEFINE_SUBR(core_char_foldcase__STUB, 1, 0,core_char_foldcase, SG_FALSE, NULL);
5750
core_char_general_category(SgObject * SG_FP,int SG_ARGC,void * data_)5751 static SgObject core_char_general_category(SgObject *SG_FP, int SG_ARGC, void *data_)
5752 {
5753 SgObject c_scm;
5754 SgChar c;
5755 SG_ENTER_SUBR("char-general-category");
5756 if (SG_ARGC != 1)
5757 Sg_WrongNumberOfArgumentsViolation(
5758 SG_INTERN("char-general-category"), 1, SG_ARGC, SG_NIL);
5759 c_scm = SG_ARGREF(0);
5760 if (!SG_CHARP(c_scm))
5761 Sg_WrongTypeOfArgumentViolation(
5762 sg__rc_cgen9166.d9486[231], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5763 c = SG_CHAR_VALUE(c_scm);
5764 {
5765 {
5766 SgObject SG_RESULT = (SgObject)NULL;
5767
5768 #line 775 "./lib_core.stub"
5769 SG_RESULT=(Sg_CategroyToSymbol(Sg_CharGeneralCategory(c)));
5770 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5771 }
5772 }
5773 }
5774 static SG_DEFINE_SUBR(core_char_general_category__STUB, 1, 0,core_char_general_category, SG_FALSE, NULL);
5775
core_char_alphabeticP(SgObject * SG_FP,int SG_ARGC,void * data_)5776 static SgObject core_char_alphabeticP(SgObject *SG_FP, int SG_ARGC, void *data_)
5777 {
5778 SgObject c_scm;
5779 SgChar c;
5780 SG_ENTER_SUBR("char-alphabetic?");
5781 if (SG_ARGC != 1)
5782 Sg_WrongNumberOfArgumentsViolation(
5783 SG_INTERN("char-alphabetic?"), 1, SG_ARGC, SG_NIL);
5784 c_scm = SG_ARGREF(0);
5785 if (!SG_CHARP(c_scm))
5786 Sg_WrongTypeOfArgumentViolation(
5787 sg__rc_cgen9166.d9486[232], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5788 c = SG_CHAR_VALUE(c_scm);
5789 {
5790 {
5791 int SG_RESULT = (int)FALSE;
5792 SG_RESULT=(Sg_CharAlphabeticP(c));
5793 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5794 }
5795 }
5796 }
5797 static SG_DEFINE_SUBR(core_char_alphabeticP__STUB, 1, 0,core_char_alphabeticP, SG_FALSE, NULL);
5798
core_char_numericP(SgObject * SG_FP,int SG_ARGC,void * data_)5799 static SgObject core_char_numericP(SgObject *SG_FP, int SG_ARGC, void *data_)
5800 {
5801 SgObject c_scm;
5802 SgChar c;
5803 SG_ENTER_SUBR("char-numeric?");
5804 if (SG_ARGC != 1)
5805 Sg_WrongNumberOfArgumentsViolation(
5806 SG_INTERN("char-numeric?"), 1, SG_ARGC, SG_NIL);
5807 c_scm = SG_ARGREF(0);
5808 if (!SG_CHARP(c_scm))
5809 Sg_WrongTypeOfArgumentViolation(
5810 sg__rc_cgen9166.d9486[233], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5811 c = SG_CHAR_VALUE(c_scm);
5812 {
5813 {
5814 int SG_RESULT = (int)FALSE;
5815 SG_RESULT=(Sg_CharNumericP(c));
5816 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5817 }
5818 }
5819 }
5820 static SG_DEFINE_SUBR(core_char_numericP__STUB, 1, 0,core_char_numericP, SG_FALSE, NULL);
5821
core_char_whitespaceP(SgObject * SG_FP,int SG_ARGC,void * data_)5822 static SgObject core_char_whitespaceP(SgObject *SG_FP, int SG_ARGC, void *data_)
5823 {
5824 SgObject c_scm;
5825 SgChar c;
5826 SG_ENTER_SUBR("char-whitespace?");
5827 if (SG_ARGC != 1)
5828 Sg_WrongNumberOfArgumentsViolation(
5829 SG_INTERN("char-whitespace?"), 1, SG_ARGC, SG_NIL);
5830 c_scm = SG_ARGREF(0);
5831 if (!SG_CHARP(c_scm))
5832 Sg_WrongTypeOfArgumentViolation(
5833 sg__rc_cgen9166.d9486[234], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5834 c = SG_CHAR_VALUE(c_scm);
5835 {
5836 {
5837 int SG_RESULT = (int)FALSE;
5838 SG_RESULT=(Sg_Ucs4WhiteSpaceP(c));
5839 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5840 }
5841 }
5842 }
5843 static SG_DEFINE_SUBR(core_char_whitespaceP__STUB, 1, 0,core_char_whitespaceP, SG_FALSE, NULL);
5844
core_char_upper_caseP(SgObject * SG_FP,int SG_ARGC,void * data_)5845 static SgObject core_char_upper_caseP(SgObject *SG_FP, int SG_ARGC, void *data_)
5846 {
5847 SgObject c_scm;
5848 SgChar c;
5849 SG_ENTER_SUBR("char-upper-case?");
5850 if (SG_ARGC != 1)
5851 Sg_WrongNumberOfArgumentsViolation(
5852 SG_INTERN("char-upper-case?"), 1, SG_ARGC, SG_NIL);
5853 c_scm = SG_ARGREF(0);
5854 if (!SG_CHARP(c_scm))
5855 Sg_WrongTypeOfArgumentViolation(
5856 sg__rc_cgen9166.d9486[235], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5857 c = SG_CHAR_VALUE(c_scm);
5858 {
5859 {
5860 int SG_RESULT = (int)FALSE;
5861 SG_RESULT=(Sg_CharUpperCaseP(c));
5862 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5863 }
5864 }
5865 }
5866 static SG_DEFINE_SUBR(core_char_upper_caseP__STUB, 1, 0,core_char_upper_caseP, SG_FALSE, NULL);
5867
core_char_lower_caseP(SgObject * SG_FP,int SG_ARGC,void * data_)5868 static SgObject core_char_lower_caseP(SgObject *SG_FP, int SG_ARGC, void *data_)
5869 {
5870 SgObject c_scm;
5871 SgChar c;
5872 SG_ENTER_SUBR("char-lower-case?");
5873 if (SG_ARGC != 1)
5874 Sg_WrongNumberOfArgumentsViolation(
5875 SG_INTERN("char-lower-case?"), 1, SG_ARGC, SG_NIL);
5876 c_scm = SG_ARGREF(0);
5877 if (!SG_CHARP(c_scm))
5878 Sg_WrongTypeOfArgumentViolation(
5879 sg__rc_cgen9166.d9486[236], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5880 c = SG_CHAR_VALUE(c_scm);
5881 {
5882 {
5883 int SG_RESULT = (int)FALSE;
5884 SG_RESULT=(Sg_CharLowerCaseP(c));
5885 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5886 }
5887 }
5888 }
5889 static SG_DEFINE_SUBR(core_char_lower_caseP__STUB, 1, 0,core_char_lower_caseP, SG_FALSE, NULL);
5890
core_char_title_caseP(SgObject * SG_FP,int SG_ARGC,void * data_)5891 static SgObject core_char_title_caseP(SgObject *SG_FP, int SG_ARGC, void *data_)
5892 {
5893 SgObject c_scm;
5894 SgChar c;
5895 SG_ENTER_SUBR("char-title-case?");
5896 if (SG_ARGC != 1)
5897 Sg_WrongNumberOfArgumentsViolation(
5898 SG_INTERN("char-title-case?"), 1, SG_ARGC, SG_NIL);
5899 c_scm = SG_ARGREF(0);
5900 if (!SG_CHARP(c_scm))
5901 Sg_WrongTypeOfArgumentViolation(
5902 sg__rc_cgen9166.d9486[237], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5903 c = SG_CHAR_VALUE(c_scm);
5904 {
5905 {
5906 int SG_RESULT = (int)FALSE;
5907 SG_RESULT=(Sg_CharTitleCaseP(c));
5908 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5909 }
5910 }
5911 }
5912 static SG_DEFINE_SUBR(core_char_title_caseP__STUB, 1, 0,core_char_title_caseP, SG_FALSE, NULL);
5913
core_string_upcase(SgObject * SG_FP,int SG_ARGC,void * data_)5914 static SgObject core_string_upcase(SgObject *SG_FP, int SG_ARGC, void *data_)
5915 {
5916 SgObject s_scm;
5917 SgString* s;
5918 SgObject start_scm;
5919 long start;
5920 SgObject end_scm;
5921 long end;
5922 SG_ENTER_SUBR("string-upcase");
5923 if ((SG_ARGC > 3 &&
5924 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5925 SG_ARGC < 1)
5926 Sg_WrongNumberOfArgumentsBetweenViolation(
5927 SG_INTERN("string-upcase"), 1, 3, SG_ARGC, SG_NIL);
5928 s_scm = SG_ARGREF(0);
5929 if (!SG_STRINGP(s_scm))
5930 Sg_WrongTypeOfArgumentViolation(
5931 sg__rc_cgen9166.d9486[238], SG_MAKE_STRING("string"), s_scm, SG_NIL);
5932 s = SG_STRING(s_scm);
5933 if (SG_ARGC > 1+1) {
5934 start_scm = SG_ARGREF(1);
5935 } else {
5936 start_scm = SG_MAKE_INT(0);
5937 }
5938 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5939 Sg_WrongTypeOfArgumentViolation(
5940 sg__rc_cgen9166.d9486[238], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5941 start = SG_INT_VALUE(start_scm);
5942 if (SG_ARGC > 2+1) {
5943 end_scm = SG_ARGREF(2);
5944 } else {
5945 end_scm = SG_MAKE_INT(-1);
5946 }
5947 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5948 Sg_WrongTypeOfArgumentViolation(
5949 sg__rc_cgen9166.d9486[238], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5950 end = SG_INT_VALUE(end_scm);
5951 {
5952 {
5953 SgObject SG_RESULT = (SgObject)NULL;
5954
5955 #line 797 "./lib_core.stub"
5956 SG_RESULT=(Sg_StringUpCase(Sg_MaybeSubstring(s,start,end)));
5957 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5958 }
5959 }
5960 }
5961 static SG_DEFINE_SUBR(core_string_upcase__STUB, 1, 3,core_string_upcase, SG_FALSE, NULL);
5962
core_string_downcase(SgObject * SG_FP,int SG_ARGC,void * data_)5963 static SgObject core_string_downcase(SgObject *SG_FP, int SG_ARGC, void *data_)
5964 {
5965 SgObject s_scm;
5966 SgString* s;
5967 SgObject start_scm;
5968 long start;
5969 SgObject end_scm;
5970 long end;
5971 SG_ENTER_SUBR("string-downcase");
5972 if ((SG_ARGC > 3 &&
5973 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5974 SG_ARGC < 1)
5975 Sg_WrongNumberOfArgumentsBetweenViolation(
5976 SG_INTERN("string-downcase"), 1, 3, SG_ARGC, SG_NIL);
5977 s_scm = SG_ARGREF(0);
5978 if (!SG_STRINGP(s_scm))
5979 Sg_WrongTypeOfArgumentViolation(
5980 sg__rc_cgen9166.d9486[239], SG_MAKE_STRING("string"), s_scm, SG_NIL);
5981 s = SG_STRING(s_scm);
5982 if (SG_ARGC > 1+1) {
5983 start_scm = SG_ARGREF(1);
5984 } else {
5985 start_scm = SG_MAKE_INT(0);
5986 }
5987 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5988 Sg_WrongTypeOfArgumentViolation(
5989 sg__rc_cgen9166.d9486[239], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5990 start = SG_INT_VALUE(start_scm);
5991 if (SG_ARGC > 2+1) {
5992 end_scm = SG_ARGREF(2);
5993 } else {
5994 end_scm = SG_MAKE_INT(-1);
5995 }
5996 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5997 Sg_WrongTypeOfArgumentViolation(
5998 sg__rc_cgen9166.d9486[239], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5999 end = SG_INT_VALUE(end_scm);
6000 {
6001 {
6002 SgObject SG_RESULT = (SgObject)NULL;
6003
6004 #line 802 "./lib_core.stub"
6005 SG_RESULT=(Sg_StringDownCase(Sg_MaybeSubstring(s,start,end)));
6006 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6007 }
6008 }
6009 }
6010 static SG_DEFINE_SUBR(core_string_downcase__STUB, 1, 3,core_string_downcase, SG_FALSE, NULL);
6011
core_string_titlecase(SgObject * SG_FP,int SG_ARGC,void * data_)6012 static SgObject core_string_titlecase(SgObject *SG_FP, int SG_ARGC, void *data_)
6013 {
6014 SgObject s_scm;
6015 SgString* s;
6016 SgObject start_scm;
6017 long start;
6018 SgObject end_scm;
6019 long end;
6020 SG_ENTER_SUBR("string-titlecase");
6021 if ((SG_ARGC > 3 &&
6022 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
6023 SG_ARGC < 1)
6024 Sg_WrongNumberOfArgumentsBetweenViolation(
6025 SG_INTERN("string-titlecase"), 1, 3, SG_ARGC, SG_NIL);
6026 s_scm = SG_ARGREF(0);
6027 if (!SG_STRINGP(s_scm))
6028 Sg_WrongTypeOfArgumentViolation(
6029 sg__rc_cgen9166.d9486[240], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6030 s = SG_STRING(s_scm);
6031 if (SG_ARGC > 1+1) {
6032 start_scm = SG_ARGREF(1);
6033 } else {
6034 start_scm = SG_MAKE_INT(0);
6035 }
6036 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
6037 Sg_WrongTypeOfArgumentViolation(
6038 sg__rc_cgen9166.d9486[240], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
6039 start = SG_INT_VALUE(start_scm);
6040 if (SG_ARGC > 2+1) {
6041 end_scm = SG_ARGREF(2);
6042 } else {
6043 end_scm = SG_MAKE_INT(-1);
6044 }
6045 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
6046 Sg_WrongTypeOfArgumentViolation(
6047 sg__rc_cgen9166.d9486[240], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
6048 end = SG_INT_VALUE(end_scm);
6049 {
6050 {
6051 SgObject SG_RESULT = (SgObject)NULL;
6052
6053 #line 807 "./lib_core.stub"
6054 SG_RESULT=(Sg_StringTitleCase(Sg_MaybeSubstring(s,start,end),FALSE));
6055 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6056 }
6057 }
6058 }
6059 static SG_DEFINE_SUBR(core_string_titlecase__STUB, 1, 3,core_string_titlecase, SG_FALSE, NULL);
6060
core_string_foldcase(SgObject * SG_FP,int SG_ARGC,void * data_)6061 static SgObject core_string_foldcase(SgObject *SG_FP, int SG_ARGC, void *data_)
6062 {
6063 SgObject s_scm;
6064 SgString* s;
6065 SgObject start_scm;
6066 long start;
6067 SgObject end_scm;
6068 long end;
6069 SG_ENTER_SUBR("string-foldcase");
6070 if ((SG_ARGC > 3 &&
6071 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
6072 SG_ARGC < 1)
6073 Sg_WrongNumberOfArgumentsBetweenViolation(
6074 SG_INTERN("string-foldcase"), 1, 3, SG_ARGC, SG_NIL);
6075 s_scm = SG_ARGREF(0);
6076 if (!SG_STRINGP(s_scm))
6077 Sg_WrongTypeOfArgumentViolation(
6078 sg__rc_cgen9166.d9486[241], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6079 s = SG_STRING(s_scm);
6080 if (SG_ARGC > 1+1) {
6081 start_scm = SG_ARGREF(1);
6082 } else {
6083 start_scm = SG_MAKE_INT(0);
6084 }
6085 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
6086 Sg_WrongTypeOfArgumentViolation(
6087 sg__rc_cgen9166.d9486[241], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
6088 start = SG_INT_VALUE(start_scm);
6089 if (SG_ARGC > 2+1) {
6090 end_scm = SG_ARGREF(2);
6091 } else {
6092 end_scm = SG_MAKE_INT(-1);
6093 }
6094 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
6095 Sg_WrongTypeOfArgumentViolation(
6096 sg__rc_cgen9166.d9486[241], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
6097 end = SG_INT_VALUE(end_scm);
6098 {
6099 {
6100 SgObject SG_RESULT = (SgObject)NULL;
6101
6102 #line 812 "./lib_core.stub"
6103 SG_RESULT=(Sg_StringFoldCase(Sg_MaybeSubstring(s,start,end)));
6104 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6105 }
6106 }
6107 }
6108 static SG_DEFINE_SUBR(core_string_foldcase__STUB, 1, 3,core_string_foldcase, SG_FALSE, NULL);
6109
core_string_normalize_nfd(SgObject * SG_FP,int SG_ARGC,void * data_)6110 static SgObject core_string_normalize_nfd(SgObject *SG_FP, int SG_ARGC, void *data_)
6111 {
6112 SgObject s_scm;
6113 SgString* s;
6114 SG_ENTER_SUBR("string-normalize-nfd");
6115 if (SG_ARGC != 1)
6116 Sg_WrongNumberOfArgumentsViolation(
6117 SG_INTERN("string-normalize-nfd"), 1, SG_ARGC, SG_NIL);
6118 s_scm = SG_ARGREF(0);
6119 if (!SG_STRINGP(s_scm))
6120 Sg_WrongTypeOfArgumentViolation(
6121 sg__rc_cgen9166.d9486[242], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6122 s = SG_STRING(s_scm);
6123 {
6124 {
6125 SgObject SG_RESULT = (SgObject)NULL;
6126 SG_RESULT=(Sg_StringNormalizeNfd(s));
6127 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6128 }
6129 }
6130 }
6131 static SG_DEFINE_SUBR(core_string_normalize_nfd__STUB, 1, 0,core_string_normalize_nfd, SG_FALSE, NULL);
6132
core_string_normalize_nfkd(SgObject * SG_FP,int SG_ARGC,void * data_)6133 static SgObject core_string_normalize_nfkd(SgObject *SG_FP, int SG_ARGC, void *data_)
6134 {
6135 SgObject s_scm;
6136 SgString* s;
6137 SG_ENTER_SUBR("string-normalize-nfkd");
6138 if (SG_ARGC != 1)
6139 Sg_WrongNumberOfArgumentsViolation(
6140 SG_INTERN("string-normalize-nfkd"), 1, SG_ARGC, SG_NIL);
6141 s_scm = SG_ARGREF(0);
6142 if (!SG_STRINGP(s_scm))
6143 Sg_WrongTypeOfArgumentViolation(
6144 sg__rc_cgen9166.d9486[243], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6145 s = SG_STRING(s_scm);
6146 {
6147 {
6148 SgObject SG_RESULT = (SgObject)NULL;
6149 SG_RESULT=(Sg_StringNormalizeNfkd(s));
6150 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6151 }
6152 }
6153 }
6154 static SG_DEFINE_SUBR(core_string_normalize_nfkd__STUB, 1, 0,core_string_normalize_nfkd, SG_FALSE, NULL);
6155
core_string_normalize_nfc(SgObject * SG_FP,int SG_ARGC,void * data_)6156 static SgObject core_string_normalize_nfc(SgObject *SG_FP, int SG_ARGC, void *data_)
6157 {
6158 SgObject s_scm;
6159 SgString* s;
6160 SG_ENTER_SUBR("string-normalize-nfc");
6161 if (SG_ARGC != 1)
6162 Sg_WrongNumberOfArgumentsViolation(
6163 SG_INTERN("string-normalize-nfc"), 1, SG_ARGC, SG_NIL);
6164 s_scm = SG_ARGREF(0);
6165 if (!SG_STRINGP(s_scm))
6166 Sg_WrongTypeOfArgumentViolation(
6167 sg__rc_cgen9166.d9486[244], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6168 s = SG_STRING(s_scm);
6169 {
6170 {
6171 SgObject SG_RESULT = (SgObject)NULL;
6172 SG_RESULT=(Sg_StringNormalizeNfc(s));
6173 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6174 }
6175 }
6176 }
6177 static SG_DEFINE_SUBR(core_string_normalize_nfc__STUB, 1, 0,core_string_normalize_nfc, SG_FALSE, NULL);
6178
core_string_normalize_nfkc(SgObject * SG_FP,int SG_ARGC,void * data_)6179 static SgObject core_string_normalize_nfkc(SgObject *SG_FP, int SG_ARGC, void *data_)
6180 {
6181 SgObject s_scm;
6182 SgString* s;
6183 SG_ENTER_SUBR("string-normalize-nfkc");
6184 if (SG_ARGC != 1)
6185 Sg_WrongNumberOfArgumentsViolation(
6186 SG_INTERN("string-normalize-nfkc"), 1, SG_ARGC, SG_NIL);
6187 s_scm = SG_ARGREF(0);
6188 if (!SG_STRINGP(s_scm))
6189 Sg_WrongTypeOfArgumentViolation(
6190 sg__rc_cgen9166.d9486[245], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6191 s = SG_STRING(s_scm);
6192 {
6193 {
6194 SgObject SG_RESULT = (SgObject)NULL;
6195 SG_RESULT=(Sg_StringNormalizeNfkc(s));
6196 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6197 }
6198 }
6199 }
6200 static SG_DEFINE_SUBR(core_string_normalize_nfkc__STUB, 1, 0,core_string_normalize_nfkc, SG_FALSE, NULL);
6201
core_native_endianness(SgObject * SG_FP,int SG_ARGC,void * data_)6202 static SgObject core_native_endianness(SgObject *SG_FP, int SG_ARGC, void *data_)
6203 {
6204 SG_ENTER_SUBR("native-endianness");
6205 if (SG_ARGC != 0)
6206 Sg_WrongNumberOfArgumentsViolation(
6207 SG_INTERN("native-endianness"), 0, SG_ARGC, SG_NIL);
6208 {
6209 {
6210 SgObject SG_RESULT = (SgObject)NULL;
6211 SG_RESULT=(Sg_NativeEndianness());
6212 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6213 }
6214 }
6215 }
6216 static SG_DEFINE_SUBR(core_native_endianness__STUB, 0, 0,core_native_endianness, SG_FALSE, NULL);
6217
core_bytevector_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)6218 static SgObject core_bytevector_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
6219 {
6220 SgObject bv1_scm;
6221 SgByteVector* bv1;
6222 SgObject bv2_scm;
6223 SgByteVector* bv2;
6224 SG_ENTER_SUBR("bytevector=?");
6225 if (SG_ARGC != 2)
6226 Sg_WrongNumberOfArgumentsViolation(
6227 SG_INTERN("bytevector=?"), 2, SG_ARGC, SG_NIL);
6228 bv1_scm = SG_ARGREF(0);
6229 if (!SG_BVECTORP(bv1_scm))
6230 Sg_WrongTypeOfArgumentViolation(
6231 sg__rc_cgen9166.d9486[247], SG_MAKE_STRING("bytevector"), bv1_scm, SG_NIL);
6232 bv1 = SG_BVECTOR(bv1_scm);
6233 bv2_scm = SG_ARGREF(1);
6234 if (!SG_BVECTORP(bv2_scm))
6235 Sg_WrongTypeOfArgumentViolation(
6236 sg__rc_cgen9166.d9486[247], SG_MAKE_STRING("bytevector"), bv2_scm, SG_NIL);
6237 bv2 = SG_BVECTOR(bv2_scm);
6238 {
6239 {
6240 int SG_RESULT = (int)FALSE;
6241 SG_RESULT=(Sg_ByteVectorEqP(bv1,bv2));
6242 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
6243 }
6244 }
6245 }
6246 static SG_DEFINE_SUBR(core_bytevector_3dP__STUB, 2, 0,core_bytevector_3dP, SG_FALSE, NULL);
6247
core_bytevector_copy(SgObject * SG_FP,int SG_ARGC,void * data_)6248 static SgObject core_bytevector_copy(SgObject *SG_FP, int SG_ARGC, void *data_)
6249 {
6250 SgObject src_scm;
6251 SgByteVector* src;
6252 SgObject start_scm;
6253 long start;
6254 SgObject end_scm;
6255 long end;
6256 SG_ENTER_SUBR("bytevector-copy");
6257 if ((SG_ARGC > 3 &&
6258 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
6259 SG_ARGC < 1)
6260 Sg_WrongNumberOfArgumentsBetweenViolation(
6261 SG_INTERN("bytevector-copy"), 1, 3, SG_ARGC, SG_NIL);
6262 src_scm = SG_ARGREF(0);
6263 if (!SG_BVECTORP(src_scm))
6264 Sg_WrongTypeOfArgumentViolation(
6265 sg__rc_cgen9166.d9486[248], SG_MAKE_STRING("bytevector"), src_scm, SG_NIL);
6266 src = SG_BVECTOR(src_scm);
6267 if (SG_ARGC > 1+1) {
6268 start_scm = SG_ARGREF(1);
6269 } else {
6270 start_scm = SG_MAKE_INT(0);
6271 }
6272 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
6273 Sg_WrongTypeOfArgumentViolation(
6274 sg__rc_cgen9166.d9486[248], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
6275 start = SG_INT_VALUE(start_scm);
6276 if (SG_ARGC > 2+1) {
6277 end_scm = SG_ARGREF(2);
6278 } else {
6279 end_scm = SG_MAKE_INT(-1);
6280 }
6281 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
6282 Sg_WrongTypeOfArgumentViolation(
6283 sg__rc_cgen9166.d9486[248], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
6284 end = SG_INT_VALUE(end_scm);
6285 {
6286 {
6287 SgObject SG_RESULT = (SgObject)NULL;
6288 SG_RESULT=(Sg_ByteVectorCopy(src,start,end));
6289 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6290 }
6291 }
6292 }
6293 static SG_DEFINE_SUBR(core_bytevector_copy__STUB, 1, 3,core_bytevector_copy, SG_FALSE, NULL);
6294
core_bytevector_copyX(SgObject * SG_FP,int SG_ARGC,void * data_)6295 static SgObject core_bytevector_copyX(SgObject *SG_FP, int SG_ARGC, void *data_)
6296 {
6297 SgObject src_scm;
6298 SgByteVector* src;
6299 SgObject sstart_scm;
6300 long sstart;
6301 SgObject dst_scm;
6302 SgByteVector* dst;
6303 SgObject dstart_scm;
6304 long dstart;
6305 SgObject k_scm;
6306 long k;
6307 SG_ENTER_SUBR("bytevector-copy!");
6308 if (SG_ARGC != 5)
6309 Sg_WrongNumberOfArgumentsViolation(
6310 SG_INTERN("bytevector-copy!"), 5, SG_ARGC, SG_NIL);
6311 src_scm = SG_ARGREF(0);
6312 if (!SG_BVECTORP(src_scm))
6313 Sg_WrongTypeOfArgumentViolation(
6314 sg__rc_cgen9166.d9486[249], SG_MAKE_STRING("bytevector"), src_scm, SG_NIL);
6315 src = SG_BVECTOR(src_scm);
6316 sstart_scm = SG_ARGREF(1);
6317 if (!SG_INTP(sstart_scm))
6318 Sg_WrongTypeOfArgumentViolation(
6319 sg__rc_cgen9166.d9486[249], SG_MAKE_STRING("fixnum"), sstart_scm, SG_NIL);
6320 sstart = SG_INT_VALUE(sstart_scm);
6321 dst_scm = SG_ARGREF(2);
6322 if (!SG_BVECTORP(dst_scm))
6323 Sg_WrongTypeOfArgumentViolation(
6324 sg__rc_cgen9166.d9486[249], SG_MAKE_STRING("bytevector"), dst_scm, SG_NIL);
6325 dst = SG_BVECTOR(dst_scm);
6326 dstart_scm = SG_ARGREF(3);
6327 if (!SG_INTP(dstart_scm))
6328 Sg_WrongTypeOfArgumentViolation(
6329 sg__rc_cgen9166.d9486[249], SG_MAKE_STRING("fixnum"), dstart_scm, SG_NIL);
6330 dstart = SG_INT_VALUE(dstart_scm);
6331 k_scm = SG_ARGREF(4);
6332 if (!SG_INTP(k_scm))
6333 Sg_WrongTypeOfArgumentViolation(
6334 sg__rc_cgen9166.d9486[249], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
6335 k = SG_INT_VALUE(k_scm);
6336 {
6337
6338 #line 846 "./lib_core.stub"
6339 if ((sstart)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[250],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(sstart),SG_NIL);}}}
6340
6341 #line 847 "./lib_core.stub"
6342 if ((dstart)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[250],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(dstart),SG_NIL);}}}
6343
6344 #line 848 "./lib_core.stub"
6345 Sg_ByteVectorCopyX(src,sstart,dst,dstart,k);
6346 SG_RETURN(SG_UNDEF);
6347 }
6348 }
6349 static SG_DEFINE_SUBR(core_bytevector_copyX__STUB, 5, 0,core_bytevector_copyX, SG_FALSE, NULL);
6350
core_make_bytevector(SgObject * SG_FP,int SG_ARGC,void * data_)6351 static SgObject core_make_bytevector(SgObject *SG_FP, int SG_ARGC, void *data_)
6352 {
6353 SgObject len_scm;
6354 long len;
6355 SgObject fill_scm;
6356 long fill;
6357 SG_ENTER_SUBR("make-bytevector");
6358 if ((SG_ARGC > 2 &&
6359 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
6360 SG_ARGC < 1)
6361 Sg_WrongNumberOfArgumentsBetweenViolation(
6362 SG_INTERN("make-bytevector"), 1, 2, SG_ARGC, SG_NIL);
6363 len_scm = SG_ARGREF(0);
6364 if (!SG_INTP(len_scm))
6365 Sg_WrongTypeOfArgumentViolation(
6366 sg__rc_cgen9166.d9486[251], SG_MAKE_STRING("fixnum"), len_scm, SG_NIL);
6367 len = SG_INT_VALUE(len_scm);
6368 if (SG_ARGC > 1+1) {
6369 fill_scm = SG_ARGREF(1);
6370 } else {
6371 fill_scm = SG_MAKE_INT(0);
6372 }
6373 if (!SG_INTP(fill_scm) && !SG_INTP(fill_scm))
6374 Sg_WrongTypeOfArgumentViolation(
6375 sg__rc_cgen9166.d9486[251], SG_MAKE_STRING("fixnum"), fill_scm, SG_NIL);
6376 fill = SG_INT_VALUE(fill_scm);
6377 {
6378 {
6379 SgObject SG_RESULT = (SgObject)NULL;
6380
6381 #line 852 "./lib_core.stub"
6382 if ((len)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[252],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(len),SG_NIL);}}}
6383
6384 #line 853 "./lib_core.stub"
6385 SG_RESULT=(Sg_MakeByteVector(len,((int )(fill))));
6386 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6387 }
6388 }
6389 }
6390 static SG_DEFINE_SUBR(core_make_bytevector__STUB, 1, 2,core_make_bytevector, SG_FALSE, NULL);
6391
core_bytevectorP(SgObject * SG_FP,int SG_ARGC,void * data_)6392 static SgObject core_bytevectorP(SgObject *SG_FP, int SG_ARGC, void *data_)
6393 {
6394 SgObject o_scm;
6395 SgObject o;
6396 SG_ENTER_SUBR("bytevector?");
6397 if (SG_ARGC != 1)
6398 Sg_WrongNumberOfArgumentsViolation(
6399 SG_INTERN("bytevector?"), 1, SG_ARGC, SG_NIL);
6400 o_scm = SG_ARGREF(0);
6401 o = (o_scm);
6402 {
6403 {
6404 int SG_RESULT = (int)FALSE;
6405 SG_RESULT=(SG_BVECTORP(o));
6406 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
6407 }
6408 }
6409 }
6410 static SG_DEFINE_SUBR(core_bytevectorP__STUB, 1, 0,core_bytevectorP, SG_FALSE, NULL);
6411
core_bytevector_length(SgObject * SG_FP,int SG_ARGC,void * data_)6412 static SgObject core_bytevector_length(SgObject *SG_FP, int SG_ARGC, void *data_)
6413 {
6414 SgObject bv_scm;
6415 SgByteVector* bv;
6416 SG_ENTER_SUBR("bytevector-length");
6417 if (SG_ARGC != 1)
6418 Sg_WrongNumberOfArgumentsViolation(
6419 SG_INTERN("bytevector-length"), 1, SG_ARGC, SG_NIL);
6420 bv_scm = SG_ARGREF(0);
6421 if (!SG_BVECTORP(bv_scm))
6422 Sg_WrongTypeOfArgumentViolation(
6423 sg__rc_cgen9166.d9486[254], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6424 bv = SG_BVECTOR(bv_scm);
6425 {
6426 {
6427 long SG_RESULT = (long)0;
6428 SG_RESULT=(SG_BVECTOR_SIZE(bv));
6429 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6430 }
6431 }
6432 }
6433 static SG_DEFINE_SUBR(core_bytevector_length__STUB, 1, 0,core_bytevector_length, SG_FALSE, NULL);
6434
core_bytevector_fillX(SgObject * SG_FP,int SG_ARGC,void * data_)6435 static SgObject core_bytevector_fillX(SgObject *SG_FP, int SG_ARGC, void *data_)
6436 {
6437 SgObject bv_scm;
6438 SgByteVector* bv;
6439 SgObject fill_scm;
6440 long fill;
6441 SgObject start_scm;
6442 long start;
6443 SgObject end_scm;
6444 long end;
6445 SG_ENTER_SUBR("bytevector-fill!");
6446 if ((SG_ARGC > 4 &&
6447 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
6448 SG_ARGC < 2)
6449 Sg_WrongNumberOfArgumentsBetweenViolation(
6450 SG_INTERN("bytevector-fill!"), 2, 4, SG_ARGC, SG_NIL);
6451 bv_scm = SG_ARGREF(0);
6452 if (!SG_BVECTORP(bv_scm))
6453 Sg_WrongTypeOfArgumentViolation(
6454 sg__rc_cgen9166.d9486[255], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6455 bv = SG_BVECTOR(bv_scm);
6456 fill_scm = SG_ARGREF(1);
6457 if (!SG_INTP(fill_scm))
6458 Sg_WrongTypeOfArgumentViolation(
6459 sg__rc_cgen9166.d9486[255], SG_MAKE_STRING("fixnum"), fill_scm, SG_NIL);
6460 fill = SG_INT_VALUE(fill_scm);
6461 if (SG_ARGC > 2+1) {
6462 start_scm = SG_ARGREF(2);
6463 } else {
6464 start_scm = SG_MAKE_INT(0);
6465 }
6466 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
6467 Sg_WrongTypeOfArgumentViolation(
6468 sg__rc_cgen9166.d9486[255], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
6469 start = SG_INT_VALUE(start_scm);
6470 if (SG_ARGC > 3+1) {
6471 end_scm = SG_ARGREF(3);
6472 } else {
6473 end_scm = SG_MAKE_INT(-1);
6474 }
6475 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
6476 Sg_WrongTypeOfArgumentViolation(
6477 sg__rc_cgen9166.d9486[255], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
6478 end = SG_INT_VALUE(end_scm);
6479 {
6480
6481 #line 862 "./lib_core.stub"
6482 Sg_ByteVectorFill(bv,((int )(fill)),start,end);
6483 SG_RETURN(SG_UNDEF);
6484 }
6485 }
6486 static SG_DEFINE_SUBR(core_bytevector_fillX__STUB, 2, 3,core_bytevector_fillX, SG_FALSE, NULL);
6487
core_u8_list_TObytevector(SgObject * SG_FP,int SG_ARGC,void * data_)6488 static SgObject core_u8_list_TObytevector(SgObject *SG_FP, int SG_ARGC, void *data_)
6489 {
6490 SgObject lst_scm;
6491 SgObject lst;
6492 SG_ENTER_SUBR("u8-list->bytevector");
6493 if (SG_ARGC != 1)
6494 Sg_WrongNumberOfArgumentsViolation(
6495 SG_INTERN("u8-list->bytevector"), 1, SG_ARGC, SG_NIL);
6496 lst_scm = SG_ARGREF(0);
6497 lst = (lst_scm);
6498 {
6499 {
6500 SgObject SG_RESULT = (SgObject)NULL;
6501
6502 #line 866 "./lib_core.stub"
6503 SG_RESULT=(Sg_ListToByteVector(lst,8,FALSE));
6504 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6505 }
6506 }
6507 }
6508 static SG_DEFINE_SUBR(core_u8_list_TObytevector__STUB, 1, 0,core_u8_list_TObytevector, SG_FALSE, NULL);
6509
core_bytevector_TOu8_list(SgObject * SG_FP,int SG_ARGC,void * data_)6510 static SgObject core_bytevector_TOu8_list(SgObject *SG_FP, int SG_ARGC, void *data_)
6511 {
6512 SgObject lst_scm;
6513 SgObject lst;
6514 SG_ENTER_SUBR("bytevector->u8-list");
6515 if (SG_ARGC != 1)
6516 Sg_WrongNumberOfArgumentsViolation(
6517 SG_INTERN("bytevector->u8-list"), 1, SG_ARGC, SG_NIL);
6518 lst_scm = SG_ARGREF(0);
6519 lst = (lst_scm);
6520 {
6521 {
6522 SgObject SG_RESULT = (SgObject)NULL;
6523
6524 #line 869 "./lib_core.stub"
6525 SG_RESULT=(Sg_ByteVectorToList(lst,8,FALSE));
6526 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6527 }
6528 }
6529 }
6530 static SG_DEFINE_SUBR(core_bytevector_TOu8_list__STUB, 1, 0,core_bytevector_TOu8_list, SG_FALSE, NULL);
6531
core_bytevector_u8_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6532 static SgObject core_bytevector_u8_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6533 {
6534 SgObject bv_scm;
6535 SgByteVector* bv;
6536 SgObject index_scm;
6537 long index;
6538 SG_ENTER_SUBR("bytevector-u8-ref");
6539 if (SG_ARGC != 2)
6540 Sg_WrongNumberOfArgumentsViolation(
6541 SG_INTERN("bytevector-u8-ref"), 2, SG_ARGC, SG_NIL);
6542 bv_scm = SG_ARGREF(0);
6543 if (!SG_BVECTORP(bv_scm))
6544 Sg_WrongTypeOfArgumentViolation(
6545 sg__rc_cgen9166.d9486[258], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6546 bv = SG_BVECTOR(bv_scm);
6547 index_scm = SG_ARGREF(1);
6548 if (!SG_INTP(index_scm))
6549 Sg_WrongTypeOfArgumentViolation(
6550 sg__rc_cgen9166.d9486[258], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6551 index = SG_INT_VALUE(index_scm);
6552 {
6553 {
6554 long SG_RESULT = (long)0;
6555
6556 #line 892 "./lib_core.stub"
6557 if ((!(((SG_BVECTOR_SIZE(bv))>(index))&&((index)>=(0))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[259],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}
6558
6559 #line 893 "./lib_core.stub"
6560 SG_RESULT=(SG_BVECTOR_ELEMENT(bv,index));
6561 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6562 }
6563 }
6564 }
6565 static SG_DEFINE_SUBR(core_bytevector_u8_ref__STUB, 2, 0,core_bytevector_u8_ref, SG_FALSE, NULL);
6566
core_bytevector_u8_setX(SgObject * SG_FP,int SG_ARGC,void * data_)6567 static SgObject core_bytevector_u8_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
6568 {
6569 SgObject bv_scm;
6570 SgByteVector* bv;
6571 SgObject index_scm;
6572 long index;
6573 SgObject value_scm;
6574 long value;
6575 SG_ENTER_SUBR("bytevector-u8-set!");
6576 if (SG_ARGC != 3)
6577 Sg_WrongNumberOfArgumentsViolation(
6578 SG_INTERN("bytevector-u8-set!"), 3, SG_ARGC, SG_NIL);
6579 bv_scm = SG_ARGREF(0);
6580 if (!SG_BVECTORP(bv_scm))
6581 Sg_WrongTypeOfArgumentViolation(
6582 sg__rc_cgen9166.d9486[260], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6583 bv = SG_BVECTOR(bv_scm);
6584 index_scm = SG_ARGREF(1);
6585 if (!SG_INTP(index_scm))
6586 Sg_WrongTypeOfArgumentViolation(
6587 sg__rc_cgen9166.d9486[260], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6588 index = SG_INT_VALUE(index_scm);
6589 value_scm = SG_ARGREF(2);
6590 if (!SG_INTP(value_scm))
6591 Sg_WrongTypeOfArgumentViolation(
6592 sg__rc_cgen9166.d9486[260], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
6593 value = SG_INT_VALUE(value_scm);
6594 {
6595
6596 #line 897 "./lib_core.stub"
6597 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[261],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
6598
6599 #line 898 "./lib_core.stub"
6600 if ((!(((SG_BVECTOR_SIZE(bv))>(index))&&((index)>=(0))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[261],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}
6601
6602 #line 899 "./lib_core.stub"
6603 if ((!(SG_IS_OCTET(value)))){{
6604 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[261],SG_MAKE_STRING("value out of range. must be 0 <= value <= 255"),
6605 #line 902 "./lib_core.stub"
6606 SG_MAKE_INT(value));}}}
6607
6608 #line 903 "./lib_core.stub"
6609 SG_BVECTOR_ELEMENT(bv,index)=(((uint8_t )(value)));
6610 SG_RETURN(SG_UNDEF);
6611 }
6612 }
6613 static SG_DEFINE_SUBR(core_bytevector_u8_setX__STUB, 3, 0,core_bytevector_u8_setX, SG_FALSE, NULL);
6614
core_bytevector_s8_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6615 static SgObject core_bytevector_s8_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6616 {
6617 SgObject bv_scm;
6618 SgByteVector* bv;
6619 SgObject index_scm;
6620 long index;
6621 SG_ENTER_SUBR("bytevector-s8-ref");
6622 if (SG_ARGC != 2)
6623 Sg_WrongNumberOfArgumentsViolation(
6624 SG_INTERN("bytevector-s8-ref"), 2, SG_ARGC, SG_NIL);
6625 bv_scm = SG_ARGREF(0);
6626 if (!SG_BVECTORP(bv_scm))
6627 Sg_WrongTypeOfArgumentViolation(
6628 sg__rc_cgen9166.d9486[262], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6629 bv = SG_BVECTOR(bv_scm);
6630 index_scm = SG_ARGREF(1);
6631 if (!SG_INTP(index_scm))
6632 Sg_WrongTypeOfArgumentViolation(
6633 sg__rc_cgen9166.d9486[262], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6634 index = SG_INT_VALUE(index_scm);
6635 {
6636 {
6637 long SG_RESULT = (long)0;
6638
6639 #line 908 "./lib_core.stub"
6640 if ((!(((SG_BVECTOR_SIZE(bv))>(index))&&((index)>=(0))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[263],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}
6641
6642 #line 909 "./lib_core.stub"
6643 SG_RESULT=(((int8_t )(SG_BVECTOR_ELEMENT(bv,index))));
6644 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6645 }
6646 }
6647 }
6648 static SG_DEFINE_SUBR(core_bytevector_s8_ref__STUB, 2, 0,core_bytevector_s8_ref, SG_FALSE, NULL);
6649
core_bytevector_s8_setX(SgObject * SG_FP,int SG_ARGC,void * data_)6650 static SgObject core_bytevector_s8_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
6651 {
6652 SgObject bv_scm;
6653 SgByteVector* bv;
6654 SgObject index_scm;
6655 long index;
6656 SgObject value_scm;
6657 long value;
6658 SG_ENTER_SUBR("bytevector-s8-set!");
6659 if (SG_ARGC != 3)
6660 Sg_WrongNumberOfArgumentsViolation(
6661 SG_INTERN("bytevector-s8-set!"), 3, SG_ARGC, SG_NIL);
6662 bv_scm = SG_ARGREF(0);
6663 if (!SG_BVECTORP(bv_scm))
6664 Sg_WrongTypeOfArgumentViolation(
6665 sg__rc_cgen9166.d9486[264], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6666 bv = SG_BVECTOR(bv_scm);
6667 index_scm = SG_ARGREF(1);
6668 if (!SG_INTP(index_scm))
6669 Sg_WrongTypeOfArgumentViolation(
6670 sg__rc_cgen9166.d9486[264], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6671 index = SG_INT_VALUE(index_scm);
6672 value_scm = SG_ARGREF(2);
6673 if (!SG_INTP(value_scm))
6674 Sg_WrongTypeOfArgumentViolation(
6675 sg__rc_cgen9166.d9486[264], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
6676 value = SG_INT_VALUE(value_scm);
6677 {
6678
6679 #line 913 "./lib_core.stub"
6680 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[265],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
6681
6682 #line 914 "./lib_core.stub"
6683 if ((!(((SG_BVECTOR_SIZE(bv))>(index))&&((index)>=(0))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[265],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}
6684
6685 #line 915 "./lib_core.stub"
6686 if ((!(SG_IS_BYTE(value)))){{
6687 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[265],SG_MAKE_STRING("value out of range. must be -128 <= value <= 127"),
6688 #line 918 "./lib_core.stub"
6689 SG_MAKE_INT(value));}}}
6690
6691 #line 919 "./lib_core.stub"
6692 SG_BVECTOR_ELEMENT(bv,index)=(((uint8_t )(value)));
6693 SG_RETURN(SG_UNDEF);
6694 }
6695 }
6696 static SG_DEFINE_SUBR(core_bytevector_s8_setX__STUB, 3, 0,core_bytevector_s8_setX, SG_FALSE, NULL);
6697
core_bytevector_u16_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6698 static SgObject core_bytevector_u16_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6699 {
6700 SgObject bv_scm;
6701 SgByteVector* bv;
6702 SgObject index_scm;
6703 long index;
6704 SG_ENTER_SUBR("bytevector-u16-native-ref");
6705 if (SG_ARGC != 2)
6706 Sg_WrongNumberOfArgumentsViolation(
6707 SG_INTERN("bytevector-u16-native-ref"), 2, SG_ARGC, SG_NIL);
6708 bv_scm = SG_ARGREF(0);
6709 if (!SG_BVECTORP(bv_scm))
6710 Sg_WrongTypeOfArgumentViolation(
6711 sg__rc_cgen9166.d9486[266], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6712 bv = SG_BVECTOR(bv_scm);
6713 index_scm = SG_ARGREF(1);
6714 if (!SG_INTP(index_scm))
6715 Sg_WrongTypeOfArgumentViolation(
6716 sg__rc_cgen9166.d9486[266], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6717 index = SG_INT_VALUE(index_scm);
6718 {
6719 {
6720 long SG_RESULT = (long)0;
6721
6722 #line 941 "./lib_core.stub"
6723 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[267],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6724
6725 #line 942 "./lib_core.stub"
6726 if ((!(((index)%(2))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[267],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
6727
6728 #line 943 "./lib_core.stub"
6729 SG_RESULT=(Sg_ByteVectorU16NativeRef(bv,index));
6730 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6731 }
6732 }
6733 }
6734 static SG_DEFINE_SUBR(core_bytevector_u16_native_ref__STUB, 2, 0,core_bytevector_u16_native_ref, SG_FALSE, NULL);
6735
core_bytevector_u16_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)6736 static SgObject core_bytevector_u16_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
6737 {
6738 SgObject bv_scm;
6739 SgByteVector* bv;
6740 SgObject index_scm;
6741 long index;
6742 SgObject value_scm;
6743 long value;
6744 SG_ENTER_SUBR("bytevector-u16-native-set!");
6745 if (SG_ARGC != 3)
6746 Sg_WrongNumberOfArgumentsViolation(
6747 SG_INTERN("bytevector-u16-native-set!"), 3, SG_ARGC, SG_NIL);
6748 bv_scm = SG_ARGREF(0);
6749 if (!SG_BVECTORP(bv_scm))
6750 Sg_WrongTypeOfArgumentViolation(
6751 sg__rc_cgen9166.d9486[268], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6752 bv = SG_BVECTOR(bv_scm);
6753 index_scm = SG_ARGREF(1);
6754 if (!SG_INTP(index_scm))
6755 Sg_WrongTypeOfArgumentViolation(
6756 sg__rc_cgen9166.d9486[268], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6757 index = SG_INT_VALUE(index_scm);
6758 value_scm = SG_ARGREF(2);
6759 if (!SG_INTP(value_scm))
6760 Sg_WrongTypeOfArgumentViolation(
6761 sg__rc_cgen9166.d9486[268], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
6762 value = SG_INT_VALUE(value_scm);
6763 {
6764
6765 #line 947 "./lib_core.stub"
6766 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[269],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
6767
6768 #line 948 "./lib_core.stub"
6769 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[269],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6770
6771 #line 949 "./lib_core.stub"
6772 {long cise__10275=value;if ((!(((0)<=(cise__10275))&&((cise__10275)<=(65535))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[269],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10275));}}}}
6773
6774 #line 950 "./lib_core.stub"
6775 Sg_ByteVectorU16NativeSet(bv,index,value);
6776 SG_RETURN(SG_UNDEF);
6777 }
6778 }
6779 static SG_DEFINE_SUBR(core_bytevector_u16_native_setX__STUB, 3, 0,core_bytevector_u16_native_setX, SG_FALSE, NULL);
6780
core_bytevector_u16_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6781 static SgObject core_bytevector_u16_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6782 {
6783 SgObject bv_scm;
6784 SgByteVector* bv;
6785 SgObject index_scm;
6786 long index;
6787 SgObject endian_scm;
6788 SgSymbol* endian;
6789 SG_ENTER_SUBR("bytevector-u16-ref");
6790 if (SG_ARGC != 3)
6791 Sg_WrongNumberOfArgumentsViolation(
6792 SG_INTERN("bytevector-u16-ref"), 3, SG_ARGC, SG_NIL);
6793 bv_scm = SG_ARGREF(0);
6794 if (!SG_BVECTORP(bv_scm))
6795 Sg_WrongTypeOfArgumentViolation(
6796 sg__rc_cgen9166.d9486[270], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6797 bv = SG_BVECTOR(bv_scm);
6798 index_scm = SG_ARGREF(1);
6799 if (!SG_INTP(index_scm))
6800 Sg_WrongTypeOfArgumentViolation(
6801 sg__rc_cgen9166.d9486[270], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6802 index = SG_INT_VALUE(index_scm);
6803 endian_scm = SG_ARGREF(2);
6804 if (!SG_SYMBOLP(endian_scm))
6805 Sg_WrongTypeOfArgumentViolation(
6806 sg__rc_cgen9166.d9486[270], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
6807 endian = SG_SYMBOL(endian_scm);
6808 {
6809 {
6810 long SG_RESULT = (long)0;
6811
6812 #line 955 "./lib_core.stub"
6813 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[271],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6814
6815 #line 956 "./lib_core.stub"
6816 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
6817 SG_RESULT=(Sg_ByteVectorU16BigRef(bv,index));}else if(
6818 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
6819 SG_RESULT=(Sg_ByteVectorU16LittleRef(bv,index));} else {
6820 #line 961 "./lib_core.stub"
6821 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[271],SG_MAKE_STRING("unsupported endianness"),endian);}}
6822 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6823 }
6824 }
6825 }
6826 static SG_DEFINE_SUBR(core_bytevector_u16_ref__STUB, 3, 0,core_bytevector_u16_ref, SG_FALSE, NULL);
6827
core_bytevector_u16_setX(SgObject * SG_FP,int SG_ARGC,void * data_)6828 static SgObject core_bytevector_u16_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
6829 {
6830 SgObject bv_scm;
6831 SgByteVector* bv;
6832 SgObject index_scm;
6833 long index;
6834 SgObject value_scm;
6835 long value;
6836 SgObject endian_scm;
6837 SgSymbol* endian;
6838 SG_ENTER_SUBR("bytevector-u16-set!");
6839 if (SG_ARGC != 4)
6840 Sg_WrongNumberOfArgumentsViolation(
6841 SG_INTERN("bytevector-u16-set!"), 4, SG_ARGC, SG_NIL);
6842 bv_scm = SG_ARGREF(0);
6843 if (!SG_BVECTORP(bv_scm))
6844 Sg_WrongTypeOfArgumentViolation(
6845 sg__rc_cgen9166.d9486[276], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6846 bv = SG_BVECTOR(bv_scm);
6847 index_scm = SG_ARGREF(1);
6848 if (!SG_INTP(index_scm))
6849 Sg_WrongTypeOfArgumentViolation(
6850 sg__rc_cgen9166.d9486[276], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6851 index = SG_INT_VALUE(index_scm);
6852 value_scm = SG_ARGREF(2);
6853 if (!SG_INTP(value_scm))
6854 Sg_WrongTypeOfArgumentViolation(
6855 sg__rc_cgen9166.d9486[276], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
6856 value = SG_INT_VALUE(value_scm);
6857 endian_scm = SG_ARGREF(3);
6858 if (!SG_SYMBOLP(endian_scm))
6859 Sg_WrongTypeOfArgumentViolation(
6860 sg__rc_cgen9166.d9486[276], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
6861 endian = SG_SYMBOL(endian_scm);
6862 {
6863
6864 #line 966 "./lib_core.stub"
6865 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[277],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
6866
6867 #line 967 "./lib_core.stub"
6868 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[277],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6869
6870 #line 968 "./lib_core.stub"
6871 {long cise__10276=value;if ((!(((0)<=(cise__10276))&&((cise__10276)<=(65535))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[277],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10276));}}}}
6872
6873 #line 969 "./lib_core.stub"
6874 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
6875 Sg_ByteVectorU16BigSet(bv,index,value);}else if(
6876 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
6877 Sg_ByteVectorU16LittleSet(bv,index,value);} else {
6878 #line 974 "./lib_core.stub"
6879 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[277],SG_MAKE_STRING("unsupported endianness"),endian);}}
6880 SG_RETURN(SG_UNDEF);
6881 }
6882 }
6883 static SG_DEFINE_SUBR(core_bytevector_u16_setX__STUB, 4, 0,core_bytevector_u16_setX, SG_FALSE, NULL);
6884
core_bytevector_s16_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6885 static SgObject core_bytevector_s16_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6886 {
6887 SgObject bv_scm;
6888 SgByteVector* bv;
6889 SgObject index_scm;
6890 long index;
6891 SG_ENTER_SUBR("bytevector-s16-native-ref");
6892 if (SG_ARGC != 2)
6893 Sg_WrongNumberOfArgumentsViolation(
6894 SG_INTERN("bytevector-s16-native-ref"), 2, SG_ARGC, SG_NIL);
6895 bv_scm = SG_ARGREF(0);
6896 if (!SG_BVECTORP(bv_scm))
6897 Sg_WrongTypeOfArgumentViolation(
6898 sg__rc_cgen9166.d9486[278], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6899 bv = SG_BVECTOR(bv_scm);
6900 index_scm = SG_ARGREF(1);
6901 if (!SG_INTP(index_scm))
6902 Sg_WrongTypeOfArgumentViolation(
6903 sg__rc_cgen9166.d9486[278], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6904 index = SG_INT_VALUE(index_scm);
6905 {
6906 {
6907 long SG_RESULT = (long)0;
6908
6909 #line 981 "./lib_core.stub"
6910 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[279],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6911
6912 #line 982 "./lib_core.stub"
6913 if ((!(((index)%(2))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[279],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
6914
6915 #line 983 "./lib_core.stub"
6916 SG_RESULT=(Sg_ByteVectorS16NativeRef(bv,index));
6917 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6918 }
6919 }
6920 }
6921 static SG_DEFINE_SUBR(core_bytevector_s16_native_ref__STUB, 2, 0,core_bytevector_s16_native_ref, SG_FALSE, NULL);
6922
core_bytevector_s16_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)6923 static SgObject core_bytevector_s16_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
6924 {
6925 SgObject bv_scm;
6926 SgByteVector* bv;
6927 SgObject index_scm;
6928 long index;
6929 SgObject value_scm;
6930 long value;
6931 SG_ENTER_SUBR("bytevector-s16-native-set!");
6932 if (SG_ARGC != 3)
6933 Sg_WrongNumberOfArgumentsViolation(
6934 SG_INTERN("bytevector-s16-native-set!"), 3, SG_ARGC, SG_NIL);
6935 bv_scm = SG_ARGREF(0);
6936 if (!SG_BVECTORP(bv_scm))
6937 Sg_WrongTypeOfArgumentViolation(
6938 sg__rc_cgen9166.d9486[280], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6939 bv = SG_BVECTOR(bv_scm);
6940 index_scm = SG_ARGREF(1);
6941 if (!SG_INTP(index_scm))
6942 Sg_WrongTypeOfArgumentViolation(
6943 sg__rc_cgen9166.d9486[280], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6944 index = SG_INT_VALUE(index_scm);
6945 value_scm = SG_ARGREF(2);
6946 if (!SG_INTP(value_scm))
6947 Sg_WrongTypeOfArgumentViolation(
6948 sg__rc_cgen9166.d9486[280], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
6949 value = SG_INT_VALUE(value_scm);
6950 {
6951
6952 #line 987 "./lib_core.stub"
6953 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[281],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
6954
6955 #line 988 "./lib_core.stub"
6956 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[281],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6957
6958 #line 989 "./lib_core.stub"
6959 {long cise__10277=value;if ((!(((-32768)<=(cise__10277))&&((cise__10277)<=(32767))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[281],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10277));}}}}
6960
6961 #line 990 "./lib_core.stub"
6962 Sg_ByteVectorS16NativeSet(bv,index,value);
6963 SG_RETURN(SG_UNDEF);
6964 }
6965 }
6966 static SG_DEFINE_SUBR(core_bytevector_s16_native_setX__STUB, 3, 0,core_bytevector_s16_native_setX, SG_FALSE, NULL);
6967
core_bytevector_s16_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6968 static SgObject core_bytevector_s16_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6969 {
6970 SgObject bv_scm;
6971 SgByteVector* bv;
6972 SgObject index_scm;
6973 long index;
6974 SgObject endian_scm;
6975 SgSymbol* endian;
6976 SG_ENTER_SUBR("bytevector-s16-ref");
6977 if (SG_ARGC != 3)
6978 Sg_WrongNumberOfArgumentsViolation(
6979 SG_INTERN("bytevector-s16-ref"), 3, SG_ARGC, SG_NIL);
6980 bv_scm = SG_ARGREF(0);
6981 if (!SG_BVECTORP(bv_scm))
6982 Sg_WrongTypeOfArgumentViolation(
6983 sg__rc_cgen9166.d9486[282], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6984 bv = SG_BVECTOR(bv_scm);
6985 index_scm = SG_ARGREF(1);
6986 if (!SG_INTP(index_scm))
6987 Sg_WrongTypeOfArgumentViolation(
6988 sg__rc_cgen9166.d9486[282], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6989 index = SG_INT_VALUE(index_scm);
6990 endian_scm = SG_ARGREF(2);
6991 if (!SG_SYMBOLP(endian_scm))
6992 Sg_WrongTypeOfArgumentViolation(
6993 sg__rc_cgen9166.d9486[282], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
6994 endian = SG_SYMBOL(endian_scm);
6995 {
6996 {
6997 long SG_RESULT = (long)0;
6998
6999 #line 995 "./lib_core.stub"
7000 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[283],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7001
7002 #line 996 "./lib_core.stub"
7003 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7004 SG_RESULT=(Sg_ByteVectorS16BigRef(bv,index));}else if(
7005 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7006 SG_RESULT=(Sg_ByteVectorS16LittleRef(bv,index));} else {
7007 #line 1001 "./lib_core.stub"
7008 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[283],SG_MAKE_STRING("unsupported endianness"),endian);}}
7009 SG_RETURN(SG_MAKE_INT(SG_RESULT));
7010 }
7011 }
7012 }
7013 static SG_DEFINE_SUBR(core_bytevector_s16_ref__STUB, 3, 0,core_bytevector_s16_ref, SG_FALSE, NULL);
7014
core_bytevector_s16_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7015 static SgObject core_bytevector_s16_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7016 {
7017 SgObject bv_scm;
7018 SgByteVector* bv;
7019 SgObject index_scm;
7020 long index;
7021 SgObject value_scm;
7022 long value;
7023 SgObject endian_scm;
7024 SgSymbol* endian;
7025 SG_ENTER_SUBR("bytevector-s16-set!");
7026 if (SG_ARGC != 4)
7027 Sg_WrongNumberOfArgumentsViolation(
7028 SG_INTERN("bytevector-s16-set!"), 4, SG_ARGC, SG_NIL);
7029 bv_scm = SG_ARGREF(0);
7030 if (!SG_BVECTORP(bv_scm))
7031 Sg_WrongTypeOfArgumentViolation(
7032 sg__rc_cgen9166.d9486[284], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7033 bv = SG_BVECTOR(bv_scm);
7034 index_scm = SG_ARGREF(1);
7035 if (!SG_INTP(index_scm))
7036 Sg_WrongTypeOfArgumentViolation(
7037 sg__rc_cgen9166.d9486[284], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7038 index = SG_INT_VALUE(index_scm);
7039 value_scm = SG_ARGREF(2);
7040 if (!SG_INTP(value_scm))
7041 Sg_WrongTypeOfArgumentViolation(
7042 sg__rc_cgen9166.d9486[284], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
7043 value = SG_INT_VALUE(value_scm);
7044 endian_scm = SG_ARGREF(3);
7045 if (!SG_SYMBOLP(endian_scm))
7046 Sg_WrongTypeOfArgumentViolation(
7047 sg__rc_cgen9166.d9486[284], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7048 endian = SG_SYMBOL(endian_scm);
7049 {
7050
7051 #line 1006 "./lib_core.stub"
7052 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[285],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7053
7054 #line 1007 "./lib_core.stub"
7055 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[285],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7056
7057 #line 1008 "./lib_core.stub"
7058 {long cise__10278=value;if ((!(((-32768)<=(cise__10278))&&((cise__10278)<=(32767))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[285],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10278));}}}}
7059
7060 #line 1009 "./lib_core.stub"
7061 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7062 Sg_ByteVectorS16BigSet(bv,index,value);}else if(
7063 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7064 Sg_ByteVectorS16LittleSet(bv,index,value);} else {
7065 #line 1014 "./lib_core.stub"
7066 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[285],SG_MAKE_STRING("unsupported endianness"),endian);}}
7067 SG_RETURN(SG_UNDEF);
7068 }
7069 }
7070 static SG_DEFINE_SUBR(core_bytevector_s16_setX__STUB, 4, 0,core_bytevector_s16_setX, SG_FALSE, NULL);
7071
core_bytevector_u32_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7072 static SgObject core_bytevector_u32_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7073 {
7074 SgObject bv_scm;
7075 SgByteVector* bv;
7076 SgObject index_scm;
7077 long index;
7078 SG_ENTER_SUBR("bytevector-u32-native-ref");
7079 if (SG_ARGC != 2)
7080 Sg_WrongNumberOfArgumentsViolation(
7081 SG_INTERN("bytevector-u32-native-ref"), 2, SG_ARGC, SG_NIL);
7082 bv_scm = SG_ARGREF(0);
7083 if (!SG_BVECTORP(bv_scm))
7084 Sg_WrongTypeOfArgumentViolation(
7085 sg__rc_cgen9166.d9486[286], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7086 bv = SG_BVECTOR(bv_scm);
7087 index_scm = SG_ARGREF(1);
7088 if (!SG_INTP(index_scm))
7089 Sg_WrongTypeOfArgumentViolation(
7090 sg__rc_cgen9166.d9486[286], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7091 index = SG_INT_VALUE(index_scm);
7092 {
7093 {
7094 SgObject SG_RESULT = (SgObject)NULL;
7095
7096 #line 1021 "./lib_core.stub"
7097 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[287],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7098
7099 #line 1022 "./lib_core.stub"
7100 if ((!(((index)%(4))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[287],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
7101
7102 #line 1023 "./lib_core.stub"
7103 SG_RESULT=(Sg_MakeIntegerFromU32(Sg_ByteVectorU32NativeRef(bv,index)));
7104 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7105 }
7106 }
7107 }
7108 static SG_DEFINE_SUBR(core_bytevector_u32_native_ref__STUB, 2, 0,core_bytevector_u32_native_ref, SG_FALSE, NULL);
7109
core_bytevector_u32_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7110 static SgObject core_bytevector_u32_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7111 {
7112 SgObject bv_scm;
7113 SgByteVector* bv;
7114 SgObject index_scm;
7115 long index;
7116 SgObject v_scm;
7117 SgObject v;
7118 SG_ENTER_SUBR("bytevector-u32-native-set!");
7119 if (SG_ARGC != 3)
7120 Sg_WrongNumberOfArgumentsViolation(
7121 SG_INTERN("bytevector-u32-native-set!"), 3, SG_ARGC, SG_NIL);
7122 bv_scm = SG_ARGREF(0);
7123 if (!SG_BVECTORP(bv_scm))
7124 Sg_WrongTypeOfArgumentViolation(
7125 sg__rc_cgen9166.d9486[288], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7126 bv = SG_BVECTOR(bv_scm);
7127 index_scm = SG_ARGREF(1);
7128 if (!SG_INTP(index_scm))
7129 Sg_WrongTypeOfArgumentViolation(
7130 sg__rc_cgen9166.d9486[288], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7131 index = SG_INT_VALUE(index_scm);
7132 v_scm = SG_ARGREF(2);
7133 if (!SG_NUMBERP(v_scm))
7134 Sg_WrongTypeOfArgumentViolation(
7135 sg__rc_cgen9166.d9486[288], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7136 v = (v_scm);
7137 {
7138
7139 #line 1027 "./lib_core.stub"
7140 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[289],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7141
7142 #line 1028 "./lib_core.stub"
7143 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[289],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7144
7145 #line 1029 "./lib_core.stub"
7146 {uint32_t value=0;
7147 if (SG_INTP(v)){
7148 {long cise__10279=SG_INT_VALUE(v);if ((!(((0)<=(cise__10279))&&((cise__10279)<=(UINT32_MAX))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[289],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10279));}}}}
7149 #line 1033 "./lib_core.stub"
7150 value=(((uint32_t )(SG_INT_VALUE(v))));}else if(
7151 SG_BIGNUMP(v)){
7152 value=(Sg_BignumToU32(v,SG_CLAMP_NONE,NULL));} else {
7153 #line 1037 "./lib_core.stub"
7154 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[289],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7155 #line 1039 "./lib_core.stub"
7156 Sg_ByteVectorU32NativeSet(bv,index,value);}
7157 SG_RETURN(SG_UNDEF);
7158 }
7159 }
7160 static SG_DEFINE_SUBR(core_bytevector_u32_native_setX__STUB, 3, 0,core_bytevector_u32_native_setX, SG_FALSE, NULL);
7161
core_bytevector_u32_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7162 static SgObject core_bytevector_u32_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7163 {
7164 SgObject bv_scm;
7165 SgByteVector* bv;
7166 SgObject index_scm;
7167 long index;
7168 SgObject endian_scm;
7169 SgSymbol* endian;
7170 SG_ENTER_SUBR("bytevector-u32-ref");
7171 if (SG_ARGC != 3)
7172 Sg_WrongNumberOfArgumentsViolation(
7173 SG_INTERN("bytevector-u32-ref"), 3, SG_ARGC, SG_NIL);
7174 bv_scm = SG_ARGREF(0);
7175 if (!SG_BVECTORP(bv_scm))
7176 Sg_WrongTypeOfArgumentViolation(
7177 sg__rc_cgen9166.d9486[290], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7178 bv = SG_BVECTOR(bv_scm);
7179 index_scm = SG_ARGREF(1);
7180 if (!SG_INTP(index_scm))
7181 Sg_WrongTypeOfArgumentViolation(
7182 sg__rc_cgen9166.d9486[290], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7183 index = SG_INT_VALUE(index_scm);
7184 endian_scm = SG_ARGREF(2);
7185 if (!SG_SYMBOLP(endian_scm))
7186 Sg_WrongTypeOfArgumentViolation(
7187 sg__rc_cgen9166.d9486[290], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7188 endian = SG_SYMBOL(endian_scm);
7189 {
7190 {
7191 SgObject SG_RESULT = (SgObject)NULL;
7192
7193 #line 1044 "./lib_core.stub"
7194 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[291],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7195
7196 #line 1045 "./lib_core.stub"
7197 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7198 SG_RESULT=(Sg_MakeIntegerFromU32(Sg_ByteVectorU32BigRef(bv,index)));}else if(
7199 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7200 SG_RESULT=(Sg_MakeIntegerFromU32(
7201 Sg_ByteVectorU32LittleRef(bv,index)));} else {
7202 #line 1051 "./lib_core.stub"
7203 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[291],SG_MAKE_STRING("unsupported endianness"),endian);}}
7204 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7205 }
7206 }
7207 }
7208 static SG_DEFINE_SUBR(core_bytevector_u32_ref__STUB, 3, 0,core_bytevector_u32_ref, SG_FALSE, NULL);
7209
core_bytevector_u32_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7210 static SgObject core_bytevector_u32_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7211 {
7212 SgObject bv_scm;
7213 SgByteVector* bv;
7214 SgObject index_scm;
7215 long index;
7216 SgObject v_scm;
7217 SgObject v;
7218 SgObject endian_scm;
7219 SgSymbol* endian;
7220 SG_ENTER_SUBR("bytevector-u32-set!");
7221 if (SG_ARGC != 4)
7222 Sg_WrongNumberOfArgumentsViolation(
7223 SG_INTERN("bytevector-u32-set!"), 4, SG_ARGC, SG_NIL);
7224 bv_scm = SG_ARGREF(0);
7225 if (!SG_BVECTORP(bv_scm))
7226 Sg_WrongTypeOfArgumentViolation(
7227 sg__rc_cgen9166.d9486[292], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7228 bv = SG_BVECTOR(bv_scm);
7229 index_scm = SG_ARGREF(1);
7230 if (!SG_INTP(index_scm))
7231 Sg_WrongTypeOfArgumentViolation(
7232 sg__rc_cgen9166.d9486[292], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7233 index = SG_INT_VALUE(index_scm);
7234 v_scm = SG_ARGREF(2);
7235 if (!SG_NUMBERP(v_scm))
7236 Sg_WrongTypeOfArgumentViolation(
7237 sg__rc_cgen9166.d9486[292], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7238 v = (v_scm);
7239 endian_scm = SG_ARGREF(3);
7240 if (!SG_SYMBOLP(endian_scm))
7241 Sg_WrongTypeOfArgumentViolation(
7242 sg__rc_cgen9166.d9486[292], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7243 endian = SG_SYMBOL(endian_scm);
7244 {
7245
7246 #line 1056 "./lib_core.stub"
7247 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[293],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7248
7249 #line 1057 "./lib_core.stub"
7250 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[293],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7251
7252 #line 1058 "./lib_core.stub"
7253 {uint32_t value=0;
7254 if (SG_INTP(v)){
7255 #line 1061 "./lib_core.stub"
7256 {long cise__10280=SG_INT_VALUE(v);if ((!(((0)<=(cise__10280))&&((cise__10280)<=(UINT32_MAX))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[293],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10280));}}}}
7257 #line 1063 "./lib_core.stub"
7258 value=(((uint32_t )(SG_INT_VALUE(v))));}else if(
7259 SG_BIGNUMP(v)){
7260 value=(Sg_BignumToU32(v,SG_CLAMP_NONE,NULL));} else {
7261 #line 1067 "./lib_core.stub"
7262 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[293],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7263 #line 1069 "./lib_core.stub"
7264 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7265 Sg_ByteVectorU32BigSet(bv,index,value);}else if(
7266 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7267 Sg_ByteVectorU32LittleSet(bv,index,value);} else {
7268 #line 1074 "./lib_core.stub"
7269 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[293],SG_MAKE_STRING("unsupported endianness"),endian);}}}
7270 SG_RETURN(SG_UNDEF);
7271 }
7272 }
7273 static SG_DEFINE_SUBR(core_bytevector_u32_setX__STUB, 4, 0,core_bytevector_u32_setX, SG_FALSE, NULL);
7274
core_bytevector_s32_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7275 static SgObject core_bytevector_s32_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7276 {
7277 SgObject bv_scm;
7278 SgByteVector* bv;
7279 SgObject index_scm;
7280 long index;
7281 SG_ENTER_SUBR("bytevector-s32-native-ref");
7282 if (SG_ARGC != 2)
7283 Sg_WrongNumberOfArgumentsViolation(
7284 SG_INTERN("bytevector-s32-native-ref"), 2, SG_ARGC, SG_NIL);
7285 bv_scm = SG_ARGREF(0);
7286 if (!SG_BVECTORP(bv_scm))
7287 Sg_WrongTypeOfArgumentViolation(
7288 sg__rc_cgen9166.d9486[294], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7289 bv = SG_BVECTOR(bv_scm);
7290 index_scm = SG_ARGREF(1);
7291 if (!SG_INTP(index_scm))
7292 Sg_WrongTypeOfArgumentViolation(
7293 sg__rc_cgen9166.d9486[294], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7294 index = SG_INT_VALUE(index_scm);
7295 {
7296 {
7297 SgObject SG_RESULT = (SgObject)NULL;
7298
7299 #line 1080 "./lib_core.stub"
7300 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[295],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7301
7302 #line 1081 "./lib_core.stub"
7303 if ((!(((index)%(4))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[295],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
7304
7305 #line 1082 "./lib_core.stub"
7306 SG_RESULT=(Sg_MakeIntegerFromS32(Sg_ByteVectorS32NativeRef(bv,index)));
7307 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7308 }
7309 }
7310 }
7311 static SG_DEFINE_SUBR(core_bytevector_s32_native_ref__STUB, 2, 0,core_bytevector_s32_native_ref, SG_FALSE, NULL);
7312
core_bytevector_s32_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7313 static SgObject core_bytevector_s32_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7314 {
7315 SgObject bv_scm;
7316 SgByteVector* bv;
7317 SgObject index_scm;
7318 long index;
7319 SgObject v_scm;
7320 SgObject v;
7321 SG_ENTER_SUBR("bytevector-s32-native-set!");
7322 if (SG_ARGC != 3)
7323 Sg_WrongNumberOfArgumentsViolation(
7324 SG_INTERN("bytevector-s32-native-set!"), 3, SG_ARGC, SG_NIL);
7325 bv_scm = SG_ARGREF(0);
7326 if (!SG_BVECTORP(bv_scm))
7327 Sg_WrongTypeOfArgumentViolation(
7328 sg__rc_cgen9166.d9486[296], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7329 bv = SG_BVECTOR(bv_scm);
7330 index_scm = SG_ARGREF(1);
7331 if (!SG_INTP(index_scm))
7332 Sg_WrongTypeOfArgumentViolation(
7333 sg__rc_cgen9166.d9486[296], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7334 index = SG_INT_VALUE(index_scm);
7335 v_scm = SG_ARGREF(2);
7336 if (!SG_NUMBERP(v_scm))
7337 Sg_WrongTypeOfArgumentViolation(
7338 sg__rc_cgen9166.d9486[296], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7339 v = (v_scm);
7340 {
7341
7342 #line 1086 "./lib_core.stub"
7343 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[297],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7344
7345 #line 1087 "./lib_core.stub"
7346 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[297],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7347
7348 #line 1088 "./lib_core.stub"
7349 {int32_t value=0;
7350 if (SG_INTP(v)){
7351 {long cise__10281=SG_INT_VALUE(v);if ((!(((INT32_MIN)<=(cise__10281))&&((cise__10281)<=(INT32_MAX))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[297],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10281));}}}}
7352 #line 1092 "./lib_core.stub"
7353 value=(((int32_t )(SG_INT_VALUE(v))));}else if(
7354 SG_BIGNUMP(v)){
7355 value=(Sg_BignumToS32(v,SG_CLAMP_NONE,NULL));} else {
7356 #line 1096 "./lib_core.stub"
7357 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[297],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7358 #line 1098 "./lib_core.stub"
7359 Sg_ByteVectorS32NativeSet(bv,index,value);}
7360 SG_RETURN(SG_UNDEF);
7361 }
7362 }
7363 static SG_DEFINE_SUBR(core_bytevector_s32_native_setX__STUB, 3, 0,core_bytevector_s32_native_setX, SG_FALSE, NULL);
7364
core_bytevector_s32_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7365 static SgObject core_bytevector_s32_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7366 {
7367 SgObject bv_scm;
7368 SgByteVector* bv;
7369 SgObject index_scm;
7370 long index;
7371 SgObject endian_scm;
7372 SgSymbol* endian;
7373 SG_ENTER_SUBR("bytevector-s32-ref");
7374 if (SG_ARGC != 3)
7375 Sg_WrongNumberOfArgumentsViolation(
7376 SG_INTERN("bytevector-s32-ref"), 3, SG_ARGC, SG_NIL);
7377 bv_scm = SG_ARGREF(0);
7378 if (!SG_BVECTORP(bv_scm))
7379 Sg_WrongTypeOfArgumentViolation(
7380 sg__rc_cgen9166.d9486[298], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7381 bv = SG_BVECTOR(bv_scm);
7382 index_scm = SG_ARGREF(1);
7383 if (!SG_INTP(index_scm))
7384 Sg_WrongTypeOfArgumentViolation(
7385 sg__rc_cgen9166.d9486[298], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7386 index = SG_INT_VALUE(index_scm);
7387 endian_scm = SG_ARGREF(2);
7388 if (!SG_SYMBOLP(endian_scm))
7389 Sg_WrongTypeOfArgumentViolation(
7390 sg__rc_cgen9166.d9486[298], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7391 endian = SG_SYMBOL(endian_scm);
7392 {
7393 {
7394 SgObject SG_RESULT = (SgObject)NULL;
7395
7396 #line 1103 "./lib_core.stub"
7397 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[299],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7398
7399 #line 1104 "./lib_core.stub"
7400 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7401 SG_RESULT=(Sg_MakeIntegerFromS32(Sg_ByteVectorS32BigRef(bv,index)));}else if(
7402 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7403 SG_RESULT=(Sg_MakeIntegerFromS32(
7404 Sg_ByteVectorS32LittleRef(bv,index)));} else {
7405 #line 1110 "./lib_core.stub"
7406 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[299],SG_MAKE_STRING("unsupported endianness"),endian);}}
7407 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7408 }
7409 }
7410 }
7411 static SG_DEFINE_SUBR(core_bytevector_s32_ref__STUB, 3, 0,core_bytevector_s32_ref, SG_FALSE, NULL);
7412
core_bytevector_s32_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7413 static SgObject core_bytevector_s32_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7414 {
7415 SgObject bv_scm;
7416 SgByteVector* bv;
7417 SgObject index_scm;
7418 long index;
7419 SgObject v_scm;
7420 SgObject v;
7421 SgObject endian_scm;
7422 SgSymbol* endian;
7423 SG_ENTER_SUBR("bytevector-s32-set!");
7424 if (SG_ARGC != 4)
7425 Sg_WrongNumberOfArgumentsViolation(
7426 SG_INTERN("bytevector-s32-set!"), 4, SG_ARGC, SG_NIL);
7427 bv_scm = SG_ARGREF(0);
7428 if (!SG_BVECTORP(bv_scm))
7429 Sg_WrongTypeOfArgumentViolation(
7430 sg__rc_cgen9166.d9486[300], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7431 bv = SG_BVECTOR(bv_scm);
7432 index_scm = SG_ARGREF(1);
7433 if (!SG_INTP(index_scm))
7434 Sg_WrongTypeOfArgumentViolation(
7435 sg__rc_cgen9166.d9486[300], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7436 index = SG_INT_VALUE(index_scm);
7437 v_scm = SG_ARGREF(2);
7438 if (!SG_NUMBERP(v_scm))
7439 Sg_WrongTypeOfArgumentViolation(
7440 sg__rc_cgen9166.d9486[300], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7441 v = (v_scm);
7442 endian_scm = SG_ARGREF(3);
7443 if (!SG_SYMBOLP(endian_scm))
7444 Sg_WrongTypeOfArgumentViolation(
7445 sg__rc_cgen9166.d9486[300], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7446 endian = SG_SYMBOL(endian_scm);
7447 {
7448
7449 #line 1115 "./lib_core.stub"
7450 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[301],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7451
7452 #line 1116 "./lib_core.stub"
7453 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[301],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7454
7455 #line 1117 "./lib_core.stub"
7456 {int32_t value=0;
7457 if (SG_INTP(v)){
7458 {long cise__10282=SG_INT_VALUE(v);if ((!(((INT32_MIN)<=(cise__10282))&&((cise__10282)<=(INT32_MAX))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[301],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10282));}}}}
7459 #line 1121 "./lib_core.stub"
7460 value=(((int32_t )(SG_INT_VALUE(v))));}else if(
7461 SG_BIGNUMP(v)){
7462 value=(Sg_BignumToS32(v,SG_CLAMP_NONE,NULL));} else {
7463 #line 1125 "./lib_core.stub"
7464 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[301],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7465 #line 1127 "./lib_core.stub"
7466 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7467 Sg_ByteVectorS32BigSet(bv,index,value);}else if(
7468 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7469 Sg_ByteVectorS32LittleSet(bv,index,value);} else {
7470 #line 1132 "./lib_core.stub"
7471 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[301],SG_MAKE_STRING("unsupported endianness"),endian);}}}
7472 SG_RETURN(SG_UNDEF);
7473 }
7474 }
7475 static SG_DEFINE_SUBR(core_bytevector_s32_setX__STUB, 4, 0,core_bytevector_s32_setX, SG_FALSE, NULL);
7476
core_bytevector_u64_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7477 static SgObject core_bytevector_u64_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7478 {
7479 SgObject bv_scm;
7480 SgByteVector* bv;
7481 SgObject index_scm;
7482 long index;
7483 SG_ENTER_SUBR("bytevector-u64-native-ref");
7484 if (SG_ARGC != 2)
7485 Sg_WrongNumberOfArgumentsViolation(
7486 SG_INTERN("bytevector-u64-native-ref"), 2, SG_ARGC, SG_NIL);
7487 bv_scm = SG_ARGREF(0);
7488 if (!SG_BVECTORP(bv_scm))
7489 Sg_WrongTypeOfArgumentViolation(
7490 sg__rc_cgen9166.d9486[302], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7491 bv = SG_BVECTOR(bv_scm);
7492 index_scm = SG_ARGREF(1);
7493 if (!SG_INTP(index_scm))
7494 Sg_WrongTypeOfArgumentViolation(
7495 sg__rc_cgen9166.d9486[302], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7496 index = SG_INT_VALUE(index_scm);
7497 {
7498 {
7499 SgObject SG_RESULT = (SgObject)NULL;
7500
7501 #line 1139 "./lib_core.stub"
7502 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[303],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7503
7504 #line 1140 "./lib_core.stub"
7505 if ((!(((index)%(8))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[303],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
7506
7507 #line 1141 "./lib_core.stub"
7508 SG_RESULT=(Sg_MakeIntegerFromU64(Sg_ByteVectorU64NativeRef(bv,index)));
7509 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7510 }
7511 }
7512 }
7513 static SG_DEFINE_SUBR(core_bytevector_u64_native_ref__STUB, 2, 0,core_bytevector_u64_native_ref, SG_FALSE, NULL);
7514
core_bytevector_u64_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7515 static SgObject core_bytevector_u64_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7516 {
7517 SgObject bv_scm;
7518 SgByteVector* bv;
7519 SgObject index_scm;
7520 long index;
7521 SgObject v_scm;
7522 SgObject v;
7523 SG_ENTER_SUBR("bytevector-u64-native-set!");
7524 if (SG_ARGC != 3)
7525 Sg_WrongNumberOfArgumentsViolation(
7526 SG_INTERN("bytevector-u64-native-set!"), 3, SG_ARGC, SG_NIL);
7527 bv_scm = SG_ARGREF(0);
7528 if (!SG_BVECTORP(bv_scm))
7529 Sg_WrongTypeOfArgumentViolation(
7530 sg__rc_cgen9166.d9486[304], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7531 bv = SG_BVECTOR(bv_scm);
7532 index_scm = SG_ARGREF(1);
7533 if (!SG_INTP(index_scm))
7534 Sg_WrongTypeOfArgumentViolation(
7535 sg__rc_cgen9166.d9486[304], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7536 index = SG_INT_VALUE(index_scm);
7537 v_scm = SG_ARGREF(2);
7538 if (!SG_NUMBERP(v_scm))
7539 Sg_WrongTypeOfArgumentViolation(
7540 sg__rc_cgen9166.d9486[304], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7541 v = (v_scm);
7542 {
7543
7544 #line 1145 "./lib_core.stub"
7545 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[305],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7546
7547 #line 1146 "./lib_core.stub"
7548 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[305],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7549
7550 #line 1147 "./lib_core.stub"
7551 {uint64_t value=0;
7552 if (SG_INTP(v)){
7553 #line 1151 "./lib_core.stub"
7554 if ((SG_INT_VALUE(v))<(0)){{
7555 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[305],SG_MAKE_STRING("value out of range"),v);}}}
7556 #line 1154 "./lib_core.stub"
7557 value=(((uint64_t )(SG_INT_VALUE(v))));}else if(
7558 SG_BIGNUMP(v)){
7559 value=(Sg_BignumToU64(v,SG_CLAMP_NONE,NULL));} else {
7560 #line 1158 "./lib_core.stub"
7561 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[305],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7562 #line 1160 "./lib_core.stub"
7563 Sg_ByteVectorU64NativeSet(bv,index,value);}
7564 SG_RETURN(SG_UNDEF);
7565 }
7566 }
7567 static SG_DEFINE_SUBR(core_bytevector_u64_native_setX__STUB, 3, 0,core_bytevector_u64_native_setX, SG_FALSE, NULL);
7568
core_bytevector_u64_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7569 static SgObject core_bytevector_u64_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7570 {
7571 SgObject bv_scm;
7572 SgByteVector* bv;
7573 SgObject index_scm;
7574 long index;
7575 SgObject endian_scm;
7576 SgSymbol* endian;
7577 SG_ENTER_SUBR("bytevector-u64-ref");
7578 if (SG_ARGC != 3)
7579 Sg_WrongNumberOfArgumentsViolation(
7580 SG_INTERN("bytevector-u64-ref"), 3, SG_ARGC, SG_NIL);
7581 bv_scm = SG_ARGREF(0);
7582 if (!SG_BVECTORP(bv_scm))
7583 Sg_WrongTypeOfArgumentViolation(
7584 sg__rc_cgen9166.d9486[306], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7585 bv = SG_BVECTOR(bv_scm);
7586 index_scm = SG_ARGREF(1);
7587 if (!SG_INTP(index_scm))
7588 Sg_WrongTypeOfArgumentViolation(
7589 sg__rc_cgen9166.d9486[306], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7590 index = SG_INT_VALUE(index_scm);
7591 endian_scm = SG_ARGREF(2);
7592 if (!SG_SYMBOLP(endian_scm))
7593 Sg_WrongTypeOfArgumentViolation(
7594 sg__rc_cgen9166.d9486[306], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7595 endian = SG_SYMBOL(endian_scm);
7596 {
7597 {
7598 SgObject SG_RESULT = (SgObject)NULL;
7599
7600 #line 1165 "./lib_core.stub"
7601 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[307],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7602
7603 #line 1166 "./lib_core.stub"
7604 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7605 SG_RESULT=(Sg_MakeIntegerFromU64(
7606 Sg_ByteVectorU64BigRef(bv,index)));}else if(
7607 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7608 SG_RESULT=(Sg_MakeIntegerFromU64(
7609 Sg_ByteVectorU64LittleRef(bv,index)));} else {
7610 #line 1173 "./lib_core.stub"
7611 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[307],SG_MAKE_STRING("unsupported endianness"),endian);}}
7612 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7613 }
7614 }
7615 }
7616 static SG_DEFINE_SUBR(core_bytevector_u64_ref__STUB, 3, 0,core_bytevector_u64_ref, SG_FALSE, NULL);
7617
core_bytevector_u64_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7618 static SgObject core_bytevector_u64_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7619 {
7620 SgObject bv_scm;
7621 SgByteVector* bv;
7622 SgObject index_scm;
7623 long index;
7624 SgObject v_scm;
7625 SgObject v;
7626 SgObject endian_scm;
7627 SgSymbol* endian;
7628 SG_ENTER_SUBR("bytevector-u64-set!");
7629 if (SG_ARGC != 4)
7630 Sg_WrongNumberOfArgumentsViolation(
7631 SG_INTERN("bytevector-u64-set!"), 4, SG_ARGC, SG_NIL);
7632 bv_scm = SG_ARGREF(0);
7633 if (!SG_BVECTORP(bv_scm))
7634 Sg_WrongTypeOfArgumentViolation(
7635 sg__rc_cgen9166.d9486[308], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7636 bv = SG_BVECTOR(bv_scm);
7637 index_scm = SG_ARGREF(1);
7638 if (!SG_INTP(index_scm))
7639 Sg_WrongTypeOfArgumentViolation(
7640 sg__rc_cgen9166.d9486[308], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7641 index = SG_INT_VALUE(index_scm);
7642 v_scm = SG_ARGREF(2);
7643 if (!SG_NUMBERP(v_scm))
7644 Sg_WrongTypeOfArgumentViolation(
7645 sg__rc_cgen9166.d9486[308], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7646 v = (v_scm);
7647 endian_scm = SG_ARGREF(3);
7648 if (!SG_SYMBOLP(endian_scm))
7649 Sg_WrongTypeOfArgumentViolation(
7650 sg__rc_cgen9166.d9486[308], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7651 endian = SG_SYMBOL(endian_scm);
7652 {
7653
7654 #line 1178 "./lib_core.stub"
7655 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[309],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7656
7657 #line 1179 "./lib_core.stub"
7658 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[309],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7659
7660 #line 1180 "./lib_core.stub"
7661 {uint64_t value=0;
7662 if (SG_INTP(v)){
7663 if ((SG_INT_VALUE(v))<(0)){{
7664 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[309],SG_MAKE_STRING("value out of range"),v);}}}
7665 #line 1185 "./lib_core.stub"
7666 value=(((uint64_t )(SG_INT_VALUE(v))));}else if(
7667 SG_BIGNUMP(v)){
7668 value=(Sg_BignumToU64(v,SG_CLAMP_NONE,NULL));} else {
7669 #line 1189 "./lib_core.stub"
7670 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[309],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7671 #line 1191 "./lib_core.stub"
7672 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7673 Sg_ByteVectorU64BigSet(bv,index,value);}else if(
7674 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7675 Sg_ByteVectorU64LittleSet(bv,index,value);} else {
7676 #line 1196 "./lib_core.stub"
7677 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[309],SG_MAKE_STRING("unsupported endianness"),endian);}}}
7678 SG_RETURN(SG_UNDEF);
7679 }
7680 }
7681 static SG_DEFINE_SUBR(core_bytevector_u64_setX__STUB, 4, 0,core_bytevector_u64_setX, SG_FALSE, NULL);
7682
core_bytevector_s64_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7683 static SgObject core_bytevector_s64_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7684 {
7685 SgObject bv_scm;
7686 SgByteVector* bv;
7687 SgObject index_scm;
7688 long index;
7689 SG_ENTER_SUBR("bytevector-s64-native-ref");
7690 if (SG_ARGC != 2)
7691 Sg_WrongNumberOfArgumentsViolation(
7692 SG_INTERN("bytevector-s64-native-ref"), 2, SG_ARGC, SG_NIL);
7693 bv_scm = SG_ARGREF(0);
7694 if (!SG_BVECTORP(bv_scm))
7695 Sg_WrongTypeOfArgumentViolation(
7696 sg__rc_cgen9166.d9486[310], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7697 bv = SG_BVECTOR(bv_scm);
7698 index_scm = SG_ARGREF(1);
7699 if (!SG_INTP(index_scm))
7700 Sg_WrongTypeOfArgumentViolation(
7701 sg__rc_cgen9166.d9486[310], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7702 index = SG_INT_VALUE(index_scm);
7703 {
7704 {
7705 SgObject SG_RESULT = (SgObject)NULL;
7706
7707 #line 1202 "./lib_core.stub"
7708 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[311],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7709
7710 #line 1203 "./lib_core.stub"
7711 if ((!(((index)%(8))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[311],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
7712
7713 #line 1204 "./lib_core.stub"
7714 SG_RESULT=(Sg_MakeIntegerFromS64(Sg_ByteVectorS64NativeRef(bv,index)));
7715 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7716 }
7717 }
7718 }
7719 static SG_DEFINE_SUBR(core_bytevector_s64_native_ref__STUB, 2, 0,core_bytevector_s64_native_ref, SG_FALSE, NULL);
7720
core_bytevector_s64_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7721 static SgObject core_bytevector_s64_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7722 {
7723 SgObject bv_scm;
7724 SgByteVector* bv;
7725 SgObject index_scm;
7726 long index;
7727 SgObject v_scm;
7728 SgObject v;
7729 SG_ENTER_SUBR("bytevector-s64-native-set!");
7730 if (SG_ARGC != 3)
7731 Sg_WrongNumberOfArgumentsViolation(
7732 SG_INTERN("bytevector-s64-native-set!"), 3, SG_ARGC, SG_NIL);
7733 bv_scm = SG_ARGREF(0);
7734 if (!SG_BVECTORP(bv_scm))
7735 Sg_WrongTypeOfArgumentViolation(
7736 sg__rc_cgen9166.d9486[312], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7737 bv = SG_BVECTOR(bv_scm);
7738 index_scm = SG_ARGREF(1);
7739 if (!SG_INTP(index_scm))
7740 Sg_WrongTypeOfArgumentViolation(
7741 sg__rc_cgen9166.d9486[312], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7742 index = SG_INT_VALUE(index_scm);
7743 v_scm = SG_ARGREF(2);
7744 if (!SG_NUMBERP(v_scm))
7745 Sg_WrongTypeOfArgumentViolation(
7746 sg__rc_cgen9166.d9486[312], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7747 v = (v_scm);
7748 {
7749
7750 #line 1208 "./lib_core.stub"
7751 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[313],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7752
7753 #line 1209 "./lib_core.stub"
7754 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[313],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7755
7756 #line 1210 "./lib_core.stub"
7757 {int64_t value=0;
7758 if (SG_INTP(v)){
7759 if (((SG_INT_VALUE(v))<(SG_INT_MIN))||(
7760 (SG_INT_VALUE(v))>(SG_INT_MAX))){{
7761 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[313],SG_MAKE_STRING("value out of range"),v);}}}
7762 #line 1216 "./lib_core.stub"
7763 value=(((int64_t )(SG_INT_VALUE(v))));}else if(
7764 SG_BIGNUMP(v)){
7765 value=(Sg_BignumToS64(v,SG_CLAMP_NONE,NULL));} else {
7766 #line 1220 "./lib_core.stub"
7767 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[313],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7768 #line 1222 "./lib_core.stub"
7769 Sg_ByteVectorS64NativeSet(bv,index,value);}
7770 SG_RETURN(SG_UNDEF);
7771 }
7772 }
7773 static SG_DEFINE_SUBR(core_bytevector_s64_native_setX__STUB, 3, 0,core_bytevector_s64_native_setX, SG_FALSE, NULL);
7774
core_bytevector_s64_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7775 static SgObject core_bytevector_s64_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7776 {
7777 SgObject bv_scm;
7778 SgByteVector* bv;
7779 SgObject index_scm;
7780 long index;
7781 SgObject endian_scm;
7782 SgSymbol* endian;
7783 SG_ENTER_SUBR("bytevector-s64-ref");
7784 if (SG_ARGC != 3)
7785 Sg_WrongNumberOfArgumentsViolation(
7786 SG_INTERN("bytevector-s64-ref"), 3, SG_ARGC, SG_NIL);
7787 bv_scm = SG_ARGREF(0);
7788 if (!SG_BVECTORP(bv_scm))
7789 Sg_WrongTypeOfArgumentViolation(
7790 sg__rc_cgen9166.d9486[314], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7791 bv = SG_BVECTOR(bv_scm);
7792 index_scm = SG_ARGREF(1);
7793 if (!SG_INTP(index_scm))
7794 Sg_WrongTypeOfArgumentViolation(
7795 sg__rc_cgen9166.d9486[314], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7796 index = SG_INT_VALUE(index_scm);
7797 endian_scm = SG_ARGREF(2);
7798 if (!SG_SYMBOLP(endian_scm))
7799 Sg_WrongTypeOfArgumentViolation(
7800 sg__rc_cgen9166.d9486[314], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7801 endian = SG_SYMBOL(endian_scm);
7802 {
7803 {
7804 SgObject SG_RESULT = (SgObject)NULL;
7805
7806 #line 1227 "./lib_core.stub"
7807 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[315],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7808
7809 #line 1228 "./lib_core.stub"
7810 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7811 SG_RESULT=(Sg_MakeIntegerFromS64(Sg_ByteVectorS64BigRef(bv,index)));}else if(
7812 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7813 SG_RESULT=(Sg_MakeIntegerFromS64(
7814 Sg_ByteVectorS64LittleRef(bv,index)));} else {
7815 #line 1234 "./lib_core.stub"
7816 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[315],SG_MAKE_STRING("unsupported endianness"),endian);}}
7817 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7818 }
7819 }
7820 }
7821 static SG_DEFINE_SUBR(core_bytevector_s64_ref__STUB, 3, 0,core_bytevector_s64_ref, SG_FALSE, NULL);
7822
core_bytevector_s64_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7823 static SgObject core_bytevector_s64_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7824 {
7825 SgObject bv_scm;
7826 SgByteVector* bv;
7827 SgObject index_scm;
7828 long index;
7829 SgObject v_scm;
7830 SgObject v;
7831 SgObject endian_scm;
7832 SgSymbol* endian;
7833 SG_ENTER_SUBR("bytevector-s64-set!");
7834 if (SG_ARGC != 4)
7835 Sg_WrongNumberOfArgumentsViolation(
7836 SG_INTERN("bytevector-s64-set!"), 4, SG_ARGC, SG_NIL);
7837 bv_scm = SG_ARGREF(0);
7838 if (!SG_BVECTORP(bv_scm))
7839 Sg_WrongTypeOfArgumentViolation(
7840 sg__rc_cgen9166.d9486[316], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7841 bv = SG_BVECTOR(bv_scm);
7842 index_scm = SG_ARGREF(1);
7843 if (!SG_INTP(index_scm))
7844 Sg_WrongTypeOfArgumentViolation(
7845 sg__rc_cgen9166.d9486[316], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7846 index = SG_INT_VALUE(index_scm);
7847 v_scm = SG_ARGREF(2);
7848 if (!SG_NUMBERP(v_scm))
7849 Sg_WrongTypeOfArgumentViolation(
7850 sg__rc_cgen9166.d9486[316], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7851 v = (v_scm);
7852 endian_scm = SG_ARGREF(3);
7853 if (!SG_SYMBOLP(endian_scm))
7854 Sg_WrongTypeOfArgumentViolation(
7855 sg__rc_cgen9166.d9486[316], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7856 endian = SG_SYMBOL(endian_scm);
7857 {
7858
7859 #line 1239 "./lib_core.stub"
7860 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[317],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7861
7862 #line 1240 "./lib_core.stub"
7863 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[317],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7864
7865 #line 1241 "./lib_core.stub"
7866 {int64_t value=0;
7867 if (SG_INTP(v)){
7868 if (((SG_INT_VALUE(v))<(SG_INT_MIN))||(
7869 (SG_INT_VALUE(v))>(SG_INT_MAX))){{
7870 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[317],SG_MAKE_STRING("value out of range"),v);}}}
7871 #line 1247 "./lib_core.stub"
7872 value=(((int64_t )(SG_INT_VALUE(v))));}else if(
7873 SG_BIGNUMP(v)){
7874 value=(Sg_BignumToS64(v,SG_CLAMP_NONE,NULL));} else {
7875 #line 1251 "./lib_core.stub"
7876 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[317],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7877 #line 1253 "./lib_core.stub"
7878 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7879 Sg_ByteVectorS64BigSet(bv,index,value);}else if(
7880 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7881 Sg_ByteVectorS64LittleSet(bv,index,value);} else {
7882 #line 1258 "./lib_core.stub"
7883 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[317],SG_MAKE_STRING("unsupported endianness"),endian);}}}
7884 SG_RETURN(SG_UNDEF);
7885 }
7886 }
7887 static SG_DEFINE_SUBR(core_bytevector_s64_setX__STUB, 4, 0,core_bytevector_s64_setX, SG_FALSE, NULL);
7888
core_bytevector_ieee_single_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7889 static SgObject core_bytevector_ieee_single_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7890 {
7891 SgObject bv_scm;
7892 SgByteVector* bv;
7893 SgObject index_scm;
7894 long index;
7895 SG_ENTER_SUBR("bytevector-ieee-single-native-ref");
7896 if (SG_ARGC != 2)
7897 Sg_WrongNumberOfArgumentsViolation(
7898 SG_INTERN("bytevector-ieee-single-native-ref"), 2, SG_ARGC, SG_NIL);
7899 bv_scm = SG_ARGREF(0);
7900 if (!SG_BVECTORP(bv_scm))
7901 Sg_WrongTypeOfArgumentViolation(
7902 sg__rc_cgen9166.d9486[318], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7903 bv = SG_BVECTOR(bv_scm);
7904 index_scm = SG_ARGREF(1);
7905 if (!SG_INTP(index_scm))
7906 Sg_WrongTypeOfArgumentViolation(
7907 sg__rc_cgen9166.d9486[318], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7908 index = SG_INT_VALUE(index_scm);
7909 {
7910 {
7911 SgObject SG_RESULT = (SgObject)NULL;
7912
7913 #line 1265 "./lib_core.stub"
7914 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[319],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7915
7916 #line 1266 "./lib_core.stub"
7917 if ((!(((index)%(4))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[319],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
7918
7919 #line 1267 "./lib_core.stub"
7920 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEESingleNativeRef(bv,index)));
7921 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7922 }
7923 }
7924 }
7925 static SG_DEFINE_SUBR(core_bytevector_ieee_single_native_ref__STUB, 2, 0,core_bytevector_ieee_single_native_ref, SG_FALSE, NULL);
7926
core_bytevector_ieee_single_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7927 static SgObject core_bytevector_ieee_single_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7928 {
7929 SgObject bv_scm;
7930 SgByteVector* bv;
7931 SgObject index_scm;
7932 long index;
7933 SgObject endian_scm;
7934 SgSymbol* endian;
7935 SG_ENTER_SUBR("bytevector-ieee-single-ref");
7936 if (SG_ARGC != 3)
7937 Sg_WrongNumberOfArgumentsViolation(
7938 SG_INTERN("bytevector-ieee-single-ref"), 3, SG_ARGC, SG_NIL);
7939 bv_scm = SG_ARGREF(0);
7940 if (!SG_BVECTORP(bv_scm))
7941 Sg_WrongTypeOfArgumentViolation(
7942 sg__rc_cgen9166.d9486[320], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7943 bv = SG_BVECTOR(bv_scm);
7944 index_scm = SG_ARGREF(1);
7945 if (!SG_INTP(index_scm))
7946 Sg_WrongTypeOfArgumentViolation(
7947 sg__rc_cgen9166.d9486[320], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7948 index = SG_INT_VALUE(index_scm);
7949 endian_scm = SG_ARGREF(2);
7950 if (!SG_SYMBOLP(endian_scm))
7951 Sg_WrongTypeOfArgumentViolation(
7952 sg__rc_cgen9166.d9486[320], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7953 endian = SG_SYMBOL(endian_scm);
7954 {
7955 {
7956 SgObject SG_RESULT = (SgObject)NULL;
7957
7958 #line 1272 "./lib_core.stub"
7959 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[321],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7960
7961 #line 1273 "./lib_core.stub"
7962 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7963 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEESingleBigRef(bv,index)));}else if(
7964 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7965 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEESingleLittleRef(bv,index)));} else {
7966 #line 1278 "./lib_core.stub"
7967 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[321],SG_MAKE_STRING("unsupported endianness"),endian);}}
7968 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7969 }
7970 }
7971 }
7972 static SG_DEFINE_SUBR(core_bytevector_ieee_single_ref__STUB, 3, 0,core_bytevector_ieee_single_ref, SG_FALSE, NULL);
7973
core_bytevector_ieee_single_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7974 static SgObject core_bytevector_ieee_single_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7975 {
7976 SgObject bv_scm;
7977 SgByteVector* bv;
7978 SgObject index_scm;
7979 long index;
7980 SgObject v_scm;
7981 SgObject v;
7982 SG_ENTER_SUBR("bytevector-ieee-single-native-set!");
7983 if (SG_ARGC != 3)
7984 Sg_WrongNumberOfArgumentsViolation(
7985 SG_INTERN("bytevector-ieee-single-native-set!"), 3, SG_ARGC, SG_NIL);
7986 bv_scm = SG_ARGREF(0);
7987 if (!SG_BVECTORP(bv_scm))
7988 Sg_WrongTypeOfArgumentViolation(
7989 sg__rc_cgen9166.d9486[322], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7990 bv = SG_BVECTOR(bv_scm);
7991 index_scm = SG_ARGREF(1);
7992 if (!SG_INTP(index_scm))
7993 Sg_WrongTypeOfArgumentViolation(
7994 sg__rc_cgen9166.d9486[322], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7995 index = SG_INT_VALUE(index_scm);
7996 v_scm = SG_ARGREF(2);
7997 if (!SG_NUMBERP(v_scm))
7998 Sg_WrongTypeOfArgumentViolation(
7999 sg__rc_cgen9166.d9486[322], SG_MAKE_STRING("number"), v_scm, SG_NIL);
8000 v = (v_scm);
8001 {
8002
8003 #line 1283 "./lib_core.stub"
8004 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[323],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
8005
8006 #line 1284 "./lib_core.stub"
8007 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[323],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8008
8009 #line 1285 "./lib_core.stub"
8010 if ((!(((index)%(4))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[323],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
8011
8012 #line 1286 "./lib_core.stub"
8013 if ((!(SG_REALP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[323],SG_MAKE_STRING("real number"),v,SG_NIL);}}}
8014
8015 #line 1287 "./lib_core.stub"
8016 {double value=Sg_GetDouble(v);
8017 Sg_ByteVectorIEEESingleNativeSet(bv,index,((float )(value)));}
8018 SG_RETURN(SG_UNDEF);
8019 }
8020 }
8021 static SG_DEFINE_SUBR(core_bytevector_ieee_single_native_setX__STUB, 3, 0,core_bytevector_ieee_single_native_setX, SG_FALSE, NULL);
8022
core_bytevector_ieee_single_setX(SgObject * SG_FP,int SG_ARGC,void * data_)8023 static SgObject core_bytevector_ieee_single_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
8024 {
8025 SgObject bv_scm;
8026 SgByteVector* bv;
8027 SgObject index_scm;
8028 long index;
8029 SgObject v_scm;
8030 SgObject v;
8031 SgObject endian_scm;
8032 SgSymbol* endian;
8033 SG_ENTER_SUBR("bytevector-ieee-single-set!");
8034 if (SG_ARGC != 4)
8035 Sg_WrongNumberOfArgumentsViolation(
8036 SG_INTERN("bytevector-ieee-single-set!"), 4, SG_ARGC, SG_NIL);
8037 bv_scm = SG_ARGREF(0);
8038 if (!SG_BVECTORP(bv_scm))
8039 Sg_WrongTypeOfArgumentViolation(
8040 sg__rc_cgen9166.d9486[324], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8041 bv = SG_BVECTOR(bv_scm);
8042 index_scm = SG_ARGREF(1);
8043 if (!SG_INTP(index_scm))
8044 Sg_WrongTypeOfArgumentViolation(
8045 sg__rc_cgen9166.d9486[324], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
8046 index = SG_INT_VALUE(index_scm);
8047 v_scm = SG_ARGREF(2);
8048 if (!SG_NUMBERP(v_scm))
8049 Sg_WrongTypeOfArgumentViolation(
8050 sg__rc_cgen9166.d9486[324], SG_MAKE_STRING("number"), v_scm, SG_NIL);
8051 v = (v_scm);
8052 endian_scm = SG_ARGREF(3);
8053 if (!SG_SYMBOLP(endian_scm))
8054 Sg_WrongTypeOfArgumentViolation(
8055 sg__rc_cgen9166.d9486[324], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8056 endian = SG_SYMBOL(endian_scm);
8057 {
8058
8059 #line 1292 "./lib_core.stub"
8060 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[325],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
8061
8062 #line 1293 "./lib_core.stub"
8063 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[325],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8064
8065 #line 1294 "./lib_core.stub"
8066 if ((!(SG_REALP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[325],SG_MAKE_STRING("real number"),v,SG_NIL);}}}
8067
8068 #line 1295 "./lib_core.stub"
8069 {double value=Sg_GetDouble(v);
8070 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8071 Sg_ByteVectorIEEESingleBigSet(bv,index,((float )(value)));}else if(
8072 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8073 Sg_ByteVectorIEEESingleLittleSet(bv,index,((float )(value)));} else {
8074 #line 1301 "./lib_core.stub"
8075 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[325],SG_MAKE_STRING("unsupported endianness"),endian);}}}
8076 SG_RETURN(SG_UNDEF);
8077 }
8078 }
8079 static SG_DEFINE_SUBR(core_bytevector_ieee_single_setX__STUB, 4, 0,core_bytevector_ieee_single_setX, SG_FALSE, NULL);
8080
core_bytevector_ieee_double_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)8081 static SgObject core_bytevector_ieee_double_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
8082 {
8083 SgObject bv_scm;
8084 SgByteVector* bv;
8085 SgObject index_scm;
8086 long index;
8087 SG_ENTER_SUBR("bytevector-ieee-double-native-ref");
8088 if (SG_ARGC != 2)
8089 Sg_WrongNumberOfArgumentsViolation(
8090 SG_INTERN("bytevector-ieee-double-native-ref"), 2, SG_ARGC, SG_NIL);
8091 bv_scm = SG_ARGREF(0);
8092 if (!SG_BVECTORP(bv_scm))
8093 Sg_WrongTypeOfArgumentViolation(
8094 sg__rc_cgen9166.d9486[326], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8095 bv = SG_BVECTOR(bv_scm);
8096 index_scm = SG_ARGREF(1);
8097 if (!SG_INTP(index_scm))
8098 Sg_WrongTypeOfArgumentViolation(
8099 sg__rc_cgen9166.d9486[326], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
8100 index = SG_INT_VALUE(index_scm);
8101 {
8102 {
8103 SgObject SG_RESULT = (SgObject)NULL;
8104
8105 #line 1307 "./lib_core.stub"
8106 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[327],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8107
8108 #line 1308 "./lib_core.stub"
8109 if ((!(((index)%(8))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[327],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
8110
8111 #line 1309 "./lib_core.stub"
8112 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEEDoubleNativeRef(bv,index)));
8113 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8114 }
8115 }
8116 }
8117 static SG_DEFINE_SUBR(core_bytevector_ieee_double_native_ref__STUB, 2, 0,core_bytevector_ieee_double_native_ref, SG_FALSE, NULL);
8118
core_bytevector_ieee_double_ref(SgObject * SG_FP,int SG_ARGC,void * data_)8119 static SgObject core_bytevector_ieee_double_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
8120 {
8121 SgObject bv_scm;
8122 SgByteVector* bv;
8123 SgObject index_scm;
8124 long index;
8125 SgObject endian_scm;
8126 SgSymbol* endian;
8127 SG_ENTER_SUBR("bytevector-ieee-double-ref");
8128 if (SG_ARGC != 3)
8129 Sg_WrongNumberOfArgumentsViolation(
8130 SG_INTERN("bytevector-ieee-double-ref"), 3, SG_ARGC, SG_NIL);
8131 bv_scm = SG_ARGREF(0);
8132 if (!SG_BVECTORP(bv_scm))
8133 Sg_WrongTypeOfArgumentViolation(
8134 sg__rc_cgen9166.d9486[328], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8135 bv = SG_BVECTOR(bv_scm);
8136 index_scm = SG_ARGREF(1);
8137 if (!SG_INTP(index_scm))
8138 Sg_WrongTypeOfArgumentViolation(
8139 sg__rc_cgen9166.d9486[328], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
8140 index = SG_INT_VALUE(index_scm);
8141 endian_scm = SG_ARGREF(2);
8142 if (!SG_SYMBOLP(endian_scm))
8143 Sg_WrongTypeOfArgumentViolation(
8144 sg__rc_cgen9166.d9486[328], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8145 endian = SG_SYMBOL(endian_scm);
8146 {
8147 {
8148 SgObject SG_RESULT = (SgObject)NULL;
8149
8150 #line 1314 "./lib_core.stub"
8151 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[329],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8152
8153 #line 1315 "./lib_core.stub"
8154 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8155 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEEDoubleBigRef(bv,index)));}else if(
8156 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8157 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEEDoubleLittleRef(bv,index)));} else {
8158 #line 1320 "./lib_core.stub"
8159 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[329],SG_MAKE_STRING("unsupported endianness"),endian);}}
8160 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8161 }
8162 }
8163 }
8164 static SG_DEFINE_SUBR(core_bytevector_ieee_double_ref__STUB, 3, 0,core_bytevector_ieee_double_ref, SG_FALSE, NULL);
8165
core_bytevector_ieee_double_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)8166 static SgObject core_bytevector_ieee_double_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
8167 {
8168 SgObject bv_scm;
8169 SgByteVector* bv;
8170 SgObject index_scm;
8171 long index;
8172 SgObject v_scm;
8173 SgObject v;
8174 SG_ENTER_SUBR("bytevector-ieee-double-native-set!");
8175 if (SG_ARGC != 3)
8176 Sg_WrongNumberOfArgumentsViolation(
8177 SG_INTERN("bytevector-ieee-double-native-set!"), 3, SG_ARGC, SG_NIL);
8178 bv_scm = SG_ARGREF(0);
8179 if (!SG_BVECTORP(bv_scm))
8180 Sg_WrongTypeOfArgumentViolation(
8181 sg__rc_cgen9166.d9486[330], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8182 bv = SG_BVECTOR(bv_scm);
8183 index_scm = SG_ARGREF(1);
8184 if (!SG_INTP(index_scm))
8185 Sg_WrongTypeOfArgumentViolation(
8186 sg__rc_cgen9166.d9486[330], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
8187 index = SG_INT_VALUE(index_scm);
8188 v_scm = SG_ARGREF(2);
8189 if (!SG_NUMBERP(v_scm))
8190 Sg_WrongTypeOfArgumentViolation(
8191 sg__rc_cgen9166.d9486[330], SG_MAKE_STRING("number"), v_scm, SG_NIL);
8192 v = (v_scm);
8193 {
8194
8195 #line 1325 "./lib_core.stub"
8196 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[331],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
8197
8198 #line 1326 "./lib_core.stub"
8199 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[331],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8200
8201 #line 1327 "./lib_core.stub"
8202 if ((!(((index)%(8))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[331],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
8203
8204 #line 1328 "./lib_core.stub"
8205 if ((!(SG_REALP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[331],SG_MAKE_STRING("real number"),v,SG_NIL);}}}
8206
8207 #line 1329 "./lib_core.stub"
8208 {double value=Sg_GetDouble(v);
8209 Sg_ByteVectorIEEEDoubleNativeSet(bv,index,value);}
8210 SG_RETURN(SG_UNDEF);
8211 }
8212 }
8213 static SG_DEFINE_SUBR(core_bytevector_ieee_double_native_setX__STUB, 3, 0,core_bytevector_ieee_double_native_setX, SG_FALSE, NULL);
8214
core_bytevector_ieee_double_setX(SgObject * SG_FP,int SG_ARGC,void * data_)8215 static SgObject core_bytevector_ieee_double_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
8216 {
8217 SgObject bv_scm;
8218 SgByteVector* bv;
8219 SgObject index_scm;
8220 long index;
8221 SgObject v_scm;
8222 SgObject v;
8223 SgObject endian_scm;
8224 SgSymbol* endian;
8225 SG_ENTER_SUBR("bytevector-ieee-double-set!");
8226 if (SG_ARGC != 4)
8227 Sg_WrongNumberOfArgumentsViolation(
8228 SG_INTERN("bytevector-ieee-double-set!"), 4, SG_ARGC, SG_NIL);
8229 bv_scm = SG_ARGREF(0);
8230 if (!SG_BVECTORP(bv_scm))
8231 Sg_WrongTypeOfArgumentViolation(
8232 sg__rc_cgen9166.d9486[332], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8233 bv = SG_BVECTOR(bv_scm);
8234 index_scm = SG_ARGREF(1);
8235 if (!SG_INTP(index_scm))
8236 Sg_WrongTypeOfArgumentViolation(
8237 sg__rc_cgen9166.d9486[332], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
8238 index = SG_INT_VALUE(index_scm);
8239 v_scm = SG_ARGREF(2);
8240 if (!SG_NUMBERP(v_scm))
8241 Sg_WrongTypeOfArgumentViolation(
8242 sg__rc_cgen9166.d9486[332], SG_MAKE_STRING("number"), v_scm, SG_NIL);
8243 v = (v_scm);
8244 endian_scm = SG_ARGREF(3);
8245 if (!SG_SYMBOLP(endian_scm))
8246 Sg_WrongTypeOfArgumentViolation(
8247 sg__rc_cgen9166.d9486[332], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8248 endian = SG_SYMBOL(endian_scm);
8249 {
8250
8251 #line 1334 "./lib_core.stub"
8252 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[333],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
8253
8254 #line 1335 "./lib_core.stub"
8255 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[333],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8256
8257 #line 1336 "./lib_core.stub"
8258 if ((!(SG_REALP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[333],SG_MAKE_STRING("real number"),v,SG_NIL);}}}
8259
8260 #line 1337 "./lib_core.stub"
8261 {double value=Sg_GetDouble(v);
8262 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8263 Sg_ByteVectorIEEEDoubleBigSet(bv,index,value);}else if(
8264 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8265 Sg_ByteVectorIEEEDoubleLittleSet(bv,index,value);} else {
8266 #line 1343 "./lib_core.stub"
8267 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[333],SG_MAKE_STRING("unsupported endianness"),endian);}}}
8268 SG_RETURN(SG_UNDEF);
8269 }
8270 }
8271 static SG_DEFINE_SUBR(core_bytevector_ieee_double_setX__STUB, 4, 0,core_bytevector_ieee_double_setX, SG_FALSE, NULL);
8272
check_utf8_3bytes(SgObject bv,long i)8273 static int check_utf8_3bytes(SgObject bv,long i){{
8274 #line 1353 "./lib_core.stub"
8275 {int first=SG_BVECTOR_ELEMENT(bv,i);int second=
8276 SG_BVECTOR_ELEMENT(bv,(i)+(1));int third=
8277 SG_BVECTOR_ELEMENT(bv,(i)+(2));
8278 if ((!(((128)<=(third))&&((third)<=(191))))){return (FALSE);}else if(
8279 (!(((((((224)==(first))&&((160)<=(second)))&&((second)<=(191)))||(
8280 (((237)==(first))&&((128)<=(second)))&&((second)<=(159))))||(
8281 (((225)<=(first))&&((first)<=(236)))&&(((128)<=(second))&&((second)<=(191)))))||(
8282 (((238)==(first))||((239)==(first)))&&(
8283 ((128)<=(second))&&((second)<=(191))))))){
8284 return (FALSE);} else {
8285 return (TRUE);}}}}
check_utf8_4bytes(SgObject bv,long i)8286 static int check_utf8_4bytes(SgObject bv,long i){{
8287 #line 1366 "./lib_core.stub"
8288 {int first=SG_BVECTOR_ELEMENT(bv,i);int second=
8289 SG_BVECTOR_ELEMENT(bv,(i)+(1));int third=
8290 SG_BVECTOR_ELEMENT(bv,(i)+(2));int forth=
8291 SG_BVECTOR_ELEMENT(bv,(i)+(3));
8292 if (((!(((128)<=(third))&&((third)<=(191)))))||((!(((128)<=(forth))&&((forth)<=(191)))))){
8293 return (FALSE);}else if(
8294 (!((((((240)==(first))&&((144)<=(second)))&&((second)<=(191)))||(
8295 (((244)==(first))&&((128)<=(second)))&&((second)<=(143))))||(
8296 (((241)<=(first))&&((first)<=(243)))&&(
8297 ((128)<=(second))&&((second)<=(191))))))){
8298 return (FALSE);} else {
8299 return (TRUE);}}}}
core_utf8_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)8300 static SgObject core_utf8_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
8301 {
8302 SgObject bv_scm;
8303 SgByteVector* bv;
8304 SgObject start_scm;
8305 long start;
8306 SgObject end_scm;
8307 long end;
8308 SG_ENTER_SUBR("utf8->string");
8309 if ((SG_ARGC > 3 &&
8310 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8311 SG_ARGC < 1)
8312 Sg_WrongNumberOfArgumentsBetweenViolation(
8313 SG_INTERN("utf8->string"), 1, 3, SG_ARGC, SG_NIL);
8314 bv_scm = SG_ARGREF(0);
8315 if (!SG_BVECTORP(bv_scm))
8316 Sg_WrongTypeOfArgumentViolation(
8317 sg__rc_cgen9166.d9486[334], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8318 bv = SG_BVECTOR(bv_scm);
8319 if (SG_ARGC > 1+1) {
8320 start_scm = SG_ARGREF(1);
8321 } else {
8322 start_scm = SG_MAKE_INT(0);
8323 }
8324 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
8325 Sg_WrongTypeOfArgumentViolation(
8326 sg__rc_cgen9166.d9486[334], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
8327 start = SG_INT_VALUE(start_scm);
8328 if (SG_ARGC > 2+1) {
8329 end_scm = SG_ARGREF(2);
8330 } else {
8331 end_scm = SG_MAKE_INT(-1);
8332 }
8333 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
8334 Sg_WrongTypeOfArgumentViolation(
8335 sg__rc_cgen9166.d9486[334], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
8336 end = SG_INT_VALUE(end_scm);
8337 {
8338 {
8339 SgObject SG_RESULT = (SgObject)NULL;
8340
8341 #line 1381 "./lib_core.stub"
8342 {SgObject s;long count=0;long size=
8343 #line 1383 "./lib_core.stub"
8344 SG_BVECTOR_SIZE(bv);long i=start;
8345 #line 1385 "./lib_core.stub"
8346 SG_CHECK_START_END(start,end,size);
8347 while ((i)<(end)){
8348 (count)++;
8349 {uint8_t f=SG_BVECTOR_ELEMENT(bv,i);
8350 (i)+=((((f)<(128))?(1):(
8351 (((((194)<=(f))&&((f)<=(223)))&&(
8352 ((128)<=(SG_BVECTOR_ELEMENT(bv,(i)+(1))))&&((SG_BVECTOR_ELEMENT(bv,(i)+(1)))<=(191))))?(2):(
8353 (((((224)<=(f))&&((f)<=(239)))&&(
8354 check_utf8_3bytes(bv,i)))?(3):(
8355 #line 1395 "./lib_core.stub"
8356 (((((240)<=(f))&&((f)<=(244)))&&(
8357 check_utf8_4bytes(bv,i)))?(4):(1)))))))));}}
8358 s=(Sg_ReserveString(count,0));
8359 Sg_ConvertUtf8BufferToUcs4(Sg_MakeUtf8Codec(),
8360 (SG_BVECTOR_ELEMENTS(bv))+(start),size,
8361 SG_STRING_VALUE(s),count,NULL,SG_REPLACE_ERROR,FALSE);
8362 #line 1402 "./lib_core.stub"
8363 SG_RESULT=(s);}
8364 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8365 }
8366 }
8367 }
8368 static SG_DEFINE_SUBR(core_utf8_TOstring__STUB, 1, 3,core_utf8_TOstring, SG_FALSE, NULL);
8369
core_string_TOutf8(SgObject * SG_FP,int SG_ARGC,void * data_)8370 static SgObject core_string_TOutf8(SgObject *SG_FP, int SG_ARGC, void *data_)
8371 {
8372 SgObject s_scm;
8373 SgString* s;
8374 SgObject start_scm;
8375 long start;
8376 SgObject end_scm;
8377 long end;
8378 SG_ENTER_SUBR("string->utf8");
8379 if ((SG_ARGC > 3 &&
8380 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8381 SG_ARGC < 1)
8382 Sg_WrongNumberOfArgumentsBetweenViolation(
8383 SG_INTERN("string->utf8"), 1, 3, SG_ARGC, SG_NIL);
8384 s_scm = SG_ARGREF(0);
8385 if (!SG_STRINGP(s_scm))
8386 Sg_WrongTypeOfArgumentViolation(
8387 sg__rc_cgen9166.d9486[335], SG_MAKE_STRING("string"), s_scm, SG_NIL);
8388 s = SG_STRING(s_scm);
8389 if (SG_ARGC > 1+1) {
8390 start_scm = SG_ARGREF(1);
8391 } else {
8392 start_scm = SG_MAKE_INT(0);
8393 }
8394 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
8395 Sg_WrongTypeOfArgumentViolation(
8396 sg__rc_cgen9166.d9486[335], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
8397 start = SG_INT_VALUE(start_scm);
8398 if (SG_ARGC > 2+1) {
8399 end_scm = SG_ARGREF(2);
8400 } else {
8401 end_scm = SG_MAKE_INT(-1);
8402 }
8403 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
8404 Sg_WrongTypeOfArgumentViolation(
8405 sg__rc_cgen9166.d9486[335], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
8406 end = SG_INT_VALUE(end_scm);
8407 {
8408 {
8409 SgObject SG_RESULT = (SgObject)NULL;
8410
8411 #line 1407 "./lib_core.stub"
8412 {SgObject bv;long count=0;long size=
8413 #line 1409 "./lib_core.stub"
8414 SG_STRING_SIZE(s);
8415 SG_CHECK_START_END(start,end,size);
8416 {long i=0;long cise__10305=(end)-(start);for (;(i)<(cise__10305);(i)++){
8417 {SgChar ucs4=SG_STRING_VALUE_AT(s,(i)+(start));
8418 (count)+=((((ucs4)<(128))?(1):(
8419 (((ucs4)<(2048))?(2):(
8420 (((ucs4)<(65536))?(3):(
8421 #line 1417 "./lib_core.stub"
8422 (((ucs4)<(2097152))?(4):(2)))))))));}}}
8423 bv=(Sg_MakeByteVector(count,0));
8424 count=(0);
8425 {long i=0;long cise__10306=(end)-(start);for (;(i)<(cise__10306);(i)++){
8426 (count)+=(Sg_ConvertUcs4ToUtf8(
8427 SG_STRING_VALUE_AT(s,(i)+(start)),
8428 (SG_BVECTOR_ELEMENTS(bv))+(count),SG_REPLACE_ERROR));}}
8429 #line 1425 "./lib_core.stub"
8430 SG_RESULT=(bv);}
8431 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8432 }
8433 }
8434 }
8435 static SG_DEFINE_SUBR(core_string_TOutf8__STUB, 1, 3,core_string_TOutf8, SG_FALSE, NULL);
8436
core_utf16_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)8437 static SgObject core_utf16_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
8438 {
8439 SgObject bv_scm;
8440 SgByteVector* bv;
8441 SgObject endian_scm;
8442 SgSymbol* endian;
8443 SgObject mandatory_scm;
8444 SgObject mandatory;
8445 SG_ENTER_SUBR("utf16->string");
8446 if ((SG_ARGC > 3 &&
8447 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8448 SG_ARGC < 2)
8449 Sg_WrongNumberOfArgumentsBetweenViolation(
8450 SG_INTERN("utf16->string"), 2, 3, SG_ARGC, SG_NIL);
8451 bv_scm = SG_ARGREF(0);
8452 if (!SG_BVECTORP(bv_scm))
8453 Sg_WrongTypeOfArgumentViolation(
8454 sg__rc_cgen9166.d9486[336], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8455 bv = SG_BVECTOR(bv_scm);
8456 endian_scm = SG_ARGREF(1);
8457 if (!SG_SYMBOLP(endian_scm))
8458 Sg_WrongTypeOfArgumentViolation(
8459 sg__rc_cgen9166.d9486[336], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8460 endian = SG_SYMBOL(endian_scm);
8461 if (SG_ARGC > 2+1) {
8462 mandatory_scm = SG_ARGREF(2);
8463 } else {
8464 mandatory_scm = SG_UNBOUND;
8465 }
8466 mandatory = (mandatory_scm);
8467 {
8468 {
8469 SgObject SG_RESULT = (SgObject)NULL;
8470
8471 #line 1431 "./lib_core.stub"
8472 {SgEndianness endianness=NO_BOM;int skipBOM=FALSE;
8473 #line 1433 "./lib_core.stub"
8474 if (SG_UNBOUNDP(mandatory)){{
8475 endianness=(Sg_Utf16CheckBOM(bv));
8476 if ((!((endianness)==(NO_BOM)))){{skipBOM=(TRUE);}}}}
8477 if ((((!(SG_UNBOUNDP(mandatory))))&&(
8478 (!(SG_FALSEP(mandatory)))))||(
8479 (endianness)==(NO_BOM))){{
8480 if (SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8481 endianness=(UTF_16LE);}else if(
8482 SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8483 endianness=(UTF_16BE);} else {
8484 #line 1444 "./lib_core.stub"
8485 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[337],SG_MAKE_STRING("endianness should be little or big"),endian);}}}}
8486 #line 1446 "./lib_core.stub"
8487 {int skipSize=0;SgObject codec=SG_UNDEF;SgTranscoder trans;
8488 #line 1449 "./lib_core.stub"
8489 if (skipBOM){{skipSize=(2);}}
8490 codec=(Sg_MakeUtf16Codec(endianness));
8491 Sg_InitTranscoder((&(trans)),codec,E_NONE,SG_REPLACE_ERROR);
8492 #line 1453 "./lib_core.stub"
8493 SG_RESULT=(Sg_ByteVectorToString(bv,(&(trans)),skipSize,-1));}}
8494 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8495 }
8496 }
8497 }
8498 static SG_DEFINE_SUBR(core_utf16_TOstring__STUB, 2, 2,core_utf16_TOstring, SG_FALSE, NULL);
8499
core_string_TOutf16(SgObject * SG_FP,int SG_ARGC,void * data_)8500 static SgObject core_string_TOutf16(SgObject *SG_FP, int SG_ARGC, void *data_)
8501 {
8502 SgObject s_scm;
8503 SgString* s;
8504 SgObject endian_scm;
8505 SgSymbol* endian;
8506 SG_ENTER_SUBR("string->utf16");
8507 if ((SG_ARGC > 2 &&
8508 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8509 SG_ARGC < 1)
8510 Sg_WrongNumberOfArgumentsBetweenViolation(
8511 SG_INTERN("string->utf16"), 1, 2, SG_ARGC, SG_NIL);
8512 s_scm = SG_ARGREF(0);
8513 if (!SG_STRINGP(s_scm))
8514 Sg_WrongTypeOfArgumentViolation(
8515 sg__rc_cgen9166.d9486[338], SG_MAKE_STRING("string"), s_scm, SG_NIL);
8516 s = SG_STRING(s_scm);
8517 if (SG_ARGC > 1+1) {
8518 endian_scm = SG_ARGREF(1);
8519 } else {
8520 endian_scm = SG_UNBOUND;
8521 }
8522 if (!SG_UNBOUNDP(endian_scm) && !SG_SYMBOLP(endian_scm))
8523 Sg_WrongTypeOfArgumentViolation(
8524 sg__rc_cgen9166.d9486[338], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8525 endian = SG_SYMBOL(endian_scm);
8526 {
8527 {
8528 SgObject SG_RESULT = (SgObject)NULL;
8529
8530 #line 1457 "./lib_core.stub"
8531 {SgEndianness endianness=UTF_16BE;SgTranscoder trans;
8532 #line 1459 "./lib_core.stub"
8533 if ((!(SG_UNBOUNDP(endian)))){
8534 if (SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8535 endianness=(UTF_16LE);}else if(
8536 SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8537 endianness=(UTF_16BE);} else {
8538 #line 1465 "./lib_core.stub"
8539 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[339],SG_MAKE_STRING("endianness should be little or big"),endian);}}}
8540 #line 1467 "./lib_core.stub"
8541 Sg_InitTranscoder((&(trans)),Sg_MakeUtf16Codec(endianness),E_NONE,SG_REPLACE_ERROR);
8542 #line 1469 "./lib_core.stub"
8543 SG_RESULT=(Sg_StringToByteVector(s,(&(trans)),0,-1));}
8544 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8545 }
8546 }
8547 }
8548 static SG_DEFINE_SUBR(core_string_TOutf16__STUB, 1, 2,core_string_TOutf16, SG_FALSE, NULL);
8549
core_string_TOutf32(SgObject * SG_FP,int SG_ARGC,void * data_)8550 static SgObject core_string_TOutf32(SgObject *SG_FP, int SG_ARGC, void *data_)
8551 {
8552 SgObject s_scm;
8553 SgString* s;
8554 SgObject endian_scm;
8555 SgSymbol* endian;
8556 SG_ENTER_SUBR("string->utf32");
8557 if ((SG_ARGC > 2 &&
8558 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8559 SG_ARGC < 1)
8560 Sg_WrongNumberOfArgumentsBetweenViolation(
8561 SG_INTERN("string->utf32"), 1, 2, SG_ARGC, SG_NIL);
8562 s_scm = SG_ARGREF(0);
8563 if (!SG_STRINGP(s_scm))
8564 Sg_WrongTypeOfArgumentViolation(
8565 sg__rc_cgen9166.d9486[340], SG_MAKE_STRING("string"), s_scm, SG_NIL);
8566 s = SG_STRING(s_scm);
8567 if (SG_ARGC > 1+1) {
8568 endian_scm = SG_ARGREF(1);
8569 } else {
8570 endian_scm = SG_UNBOUND;
8571 }
8572 if (!SG_UNBOUNDP(endian_scm) && !SG_SYMBOLP(endian_scm))
8573 Sg_WrongTypeOfArgumentViolation(
8574 sg__rc_cgen9166.d9486[340], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8575 endian = SG_SYMBOL(endian_scm);
8576 {
8577 {
8578 SgObject SG_RESULT = (SgObject)NULL;
8579
8580 #line 1474 "./lib_core.stub"
8581 {SgEndianness endianness=UTF_32BE;SgTranscoder trans;
8582 #line 1476 "./lib_core.stub"
8583 if ((!(SG_UNBOUNDP(endian)))){
8584 if (SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8585 endianness=(UTF_32LE);}else if(
8586 SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8587 endianness=(UTF_32BE);} else {
8588 #line 1482 "./lib_core.stub"
8589 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[341],SG_MAKE_STRING("endianness should be little or big"),endian);}}}
8590 #line 1484 "./lib_core.stub"
8591 Sg_InitTranscoder((&(trans)),Sg_MakeUtf32Codec(endianness),E_NONE,SG_REPLACE_ERROR);
8592 #line 1486 "./lib_core.stub"
8593 SG_RESULT=(Sg_StringToByteVector(s,(&(trans)),0,-1));}
8594 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8595 }
8596 }
8597 }
8598 static SG_DEFINE_SUBR(core_string_TOutf32__STUB, 1, 2,core_string_TOutf32, SG_FALSE, NULL);
8599
core_utf32_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)8600 static SgObject core_utf32_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
8601 {
8602 SgObject bv_scm;
8603 SgByteVector* bv;
8604 SgObject endian_scm;
8605 SgSymbol* endian;
8606 SgObject mandatory_scm;
8607 SgObject mandatory;
8608 SG_ENTER_SUBR("utf32->string");
8609 if ((SG_ARGC > 3 &&
8610 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8611 SG_ARGC < 2)
8612 Sg_WrongNumberOfArgumentsBetweenViolation(
8613 SG_INTERN("utf32->string"), 2, 3, SG_ARGC, SG_NIL);
8614 bv_scm = SG_ARGREF(0);
8615 if (!SG_BVECTORP(bv_scm))
8616 Sg_WrongTypeOfArgumentViolation(
8617 sg__rc_cgen9166.d9486[342], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8618 bv = SG_BVECTOR(bv_scm);
8619 endian_scm = SG_ARGREF(1);
8620 if (!SG_SYMBOLP(endian_scm))
8621 Sg_WrongTypeOfArgumentViolation(
8622 sg__rc_cgen9166.d9486[342], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8623 endian = SG_SYMBOL(endian_scm);
8624 if (SG_ARGC > 2+1) {
8625 mandatory_scm = SG_ARGREF(2);
8626 } else {
8627 mandatory_scm = SG_UNBOUND;
8628 }
8629 mandatory = (mandatory_scm);
8630 {
8631 {
8632 SgObject SG_RESULT = (SgObject)NULL;
8633
8634 #line 1491 "./lib_core.stub"
8635 {SgEndianness endianness=NO_BOM;int skipBOM=FALSE;
8636 #line 1493 "./lib_core.stub"
8637 if (SG_UNBOUNDP(mandatory)){{
8638 endianness=(Sg_Utf32CheckBOM(bv));
8639 if ((!((endianness)==(NO_BOM)))){
8640 skipBOM=(TRUE);}}}
8641 if ((((!(SG_UNBOUNDP(mandatory))))&&(
8642 (!(SG_FALSEP(mandatory)))))||(
8643 (endianness)==(NO_BOM))){{
8644 if (SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8645 endianness=(UTF_32LE);}else if(
8646 SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8647 endianness=(UTF_32BE);} else {
8648 #line 1505 "./lib_core.stub"
8649 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[343],SG_MAKE_STRING("endianness should be little or big"),endian);}}}}
8650 #line 1507 "./lib_core.stub"
8651 {int skipSize=0;SgObject codec=SG_UNDEF;SgTranscoder trans;
8652 #line 1510 "./lib_core.stub"
8653 if (skipBOM){
8654 skipSize=(4);}
8655 codec=(Sg_MakeUtf32Codec(endianness));
8656 Sg_InitTranscoder((&(trans)),codec,E_NONE,SG_REPLACE_ERROR);
8657 #line 1515 "./lib_core.stub"
8658 SG_RESULT=(Sg_ByteVectorToString(bv,(&(trans)),skipSize,-1));}}
8659 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8660 }
8661 }
8662 }
8663 static SG_DEFINE_SUBR(core_utf32_TOstring__STUB, 2, 2,core_utf32_TOstring, SG_FALSE, NULL);
8664
core_memq(SgObject * SG_FP,int SG_ARGC,void * data_)8665 static SgObject core_memq(SgObject *SG_FP, int SG_ARGC, void *data_)
8666 {
8667 SgObject arg0_scm;
8668 SgObject arg0;
8669 SgObject arg1_scm;
8670 SgObject arg1;
8671 SG_ENTER_SUBR("memq");
8672 if (SG_ARGC != 2)
8673 Sg_WrongNumberOfArgumentsViolation(
8674 SG_INTERN("memq"), 2, SG_ARGC, SG_NIL);
8675 arg0_scm = SG_ARGREF(0);
8676 arg0 = (arg0_scm);
8677 arg1_scm = SG_ARGREF(1);
8678 arg1 = (arg1_scm);
8679 {
8680 {
8681 SgObject SG_RESULT = (SgObject)NULL;
8682 SG_RESULT=(Sg_Memq(arg0,arg1));
8683 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8684 }
8685 }
8686 }
8687 static SG_DEFINE_SUBR(core_memq__STUB, 2, 0,core_memq, SG_FALSE, NULL);
8688
core_memv(SgObject * SG_FP,int SG_ARGC,void * data_)8689 static SgObject core_memv(SgObject *SG_FP, int SG_ARGC, void *data_)
8690 {
8691 SgObject arg0_scm;
8692 SgObject arg0;
8693 SgObject arg1_scm;
8694 SgObject arg1;
8695 SG_ENTER_SUBR("memv");
8696 if (SG_ARGC != 2)
8697 Sg_WrongNumberOfArgumentsViolation(
8698 SG_INTERN("memv"), 2, SG_ARGC, SG_NIL);
8699 arg0_scm = SG_ARGREF(0);
8700 arg0 = (arg0_scm);
8701 arg1_scm = SG_ARGREF(1);
8702 arg1 = (arg1_scm);
8703 {
8704 {
8705 SgObject SG_RESULT = (SgObject)NULL;
8706 SG_RESULT=(Sg_Memv(arg0,arg1));
8707 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8708 }
8709 }
8710 }
8711 static SG_DEFINE_SUBR(core_memv__STUB, 2, 0,core_memv, SG_FALSE, NULL);
8712
core_assq(SgObject * SG_FP,int SG_ARGC,void * data_)8713 static SgObject core_assq(SgObject *SG_FP, int SG_ARGC, void *data_)
8714 {
8715 SgObject obj_scm;
8716 SgObject obj;
8717 SgObject alist_scm;
8718 SgObject alist;
8719 SG_ENTER_SUBR("assq");
8720 if (SG_ARGC != 2)
8721 Sg_WrongNumberOfArgumentsViolation(
8722 SG_INTERN("assq"), 2, SG_ARGC, SG_NIL);
8723 obj_scm = SG_ARGREF(0);
8724 obj = (obj_scm);
8725 alist_scm = SG_ARGREF(1);
8726 alist = (alist_scm);
8727 {
8728 {
8729 SgObject SG_RESULT = (SgObject)NULL;
8730 SG_RESULT=(Sg_Assq(obj,alist));
8731 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8732 }
8733 }
8734 }
8735 static SG_DEFINE_SUBR(core_assq__STUB, 2, 0,core_assq, SG_FALSE, NULL);
8736
core_assv(SgObject * SG_FP,int SG_ARGC,void * data_)8737 static SgObject core_assv(SgObject *SG_FP, int SG_ARGC, void *data_)
8738 {
8739 SgObject obj_scm;
8740 SgObject obj;
8741 SgObject alist_scm;
8742 SgObject alist;
8743 SG_ENTER_SUBR("assv");
8744 if (SG_ARGC != 2)
8745 Sg_WrongNumberOfArgumentsViolation(
8746 SG_INTERN("assv"), 2, SG_ARGC, SG_NIL);
8747 obj_scm = SG_ARGREF(0);
8748 obj = (obj_scm);
8749 alist_scm = SG_ARGREF(1);
8750 alist = (alist_scm);
8751 {
8752 {
8753 SgObject SG_RESULT = (SgObject)NULL;
8754 SG_RESULT=(Sg_Assv(obj,alist));
8755 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8756 }
8757 }
8758 }
8759 static SG_DEFINE_SUBR(core_assv__STUB, 2, 0,core_assv, SG_FALSE, NULL);
8760
core_cons_2a(SgObject * SG_FP,int SG_ARGC,void * data_)8761 static SgObject core_cons_2a(SgObject *SG_FP, int SG_ARGC, void *data_)
8762 {
8763 SgObject rest_scm;
8764 SgObject rest;
8765 SG_ENTER_SUBR("cons*");
8766 if (SG_ARGC < 0)
8767 Sg_WrongNumberOfArgumentsAtLeastViolation(
8768 SG_INTERN("cons*"), 0, SG_ARGC, SG_NIL);
8769 rest_scm = SG_ARGREF(SG_ARGC-1);
8770 rest = (rest_scm);
8771 {
8772 {
8773 SgObject SG_RESULT = (SgObject)NULL;
8774 SgObject cp;
8775 #line 1524 "./lib_core.stub"
8776 {SgObject h=SG_NIL;SgObject t=SG_NIL;
8777 if (SG_PAIRP(rest)){{
8778 SG_FOR_EACH(cp,rest){
8779 if ((!(SG_PAIRP(SG_CDR(cp))))){{
8780 if (SG_NULLP(h)){
8781 h=(SG_CAR(cp));} else {
8782 SG_SET_CDR(t,SG_CAR(cp));}
8783 break;}}
8784 SG_APPEND1(h,t,SG_CAR(cp));}}}
8785 SG_RESULT=(h);}
8786 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8787 }
8788 }
8789 }
8790 static SG_DEFINE_SUBR(core_cons_2a__STUB, 0, 1,core_cons_2a, SG_FALSE, NULL);
8791
core_buffer_modeP(SgObject * SG_FP,int SG_ARGC,void * data_)8792 static SgObject core_buffer_modeP(SgObject *SG_FP, int SG_ARGC, void *data_)
8793 {
8794 SgObject o_scm;
8795 SgObject o;
8796 SG_ENTER_SUBR("buffer-mode?");
8797 if (SG_ARGC != 1)
8798 Sg_WrongNumberOfArgumentsViolation(
8799 SG_INTERN("buffer-mode?"), 1, SG_ARGC, SG_NIL);
8800 o_scm = SG_ARGREF(0);
8801 o = (o_scm);
8802 {
8803 {
8804 int SG_RESULT = (int)FALSE;
8805
8806 #line 1551 "./lib_core.stub"
8807 SG_RESULT=(((SG_EQ(o,sg__rc_cgen9166.d9486[350]))||(
8808 SG_EQ(o,sg__rc_cgen9166.d9486[352])))||(
8809 SG_EQ(o,sg__rc_cgen9166.d9486[354])));
8810 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
8811 }
8812 }
8813 }
8814 static SG_DEFINE_SUBR(core_buffer_modeP__STUB, 1, 0,core_buffer_modeP, SG_FALSE, NULL);
8815
core_latin_1_codec(SgObject * SG_FP,int SG_ARGC,void * data_)8816 static SgObject core_latin_1_codec(SgObject *SG_FP, int SG_ARGC, void *data_)
8817 {
8818 SG_ENTER_SUBR("latin-1-codec");
8819 if (SG_ARGC != 0)
8820 Sg_WrongNumberOfArgumentsViolation(
8821 SG_INTERN("latin-1-codec"), 0, SG_ARGC, SG_NIL);
8822 {
8823 {
8824 SgObject SG_RESULT = (SgObject)NULL;
8825 SG_RESULT=(Sg_MakeLatin1Codec());
8826 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8827 }
8828 }
8829 }
8830 static SG_DEFINE_SUBR(core_latin_1_codec__STUB, 0, 0,core_latin_1_codec, SG_FALSE, NULL);
8831
core_utf_8_codec(SgObject * SG_FP,int SG_ARGC,void * data_)8832 static SgObject core_utf_8_codec(SgObject *SG_FP, int SG_ARGC, void *data_)
8833 {
8834 SG_ENTER_SUBR("utf-8-codec");
8835 if (SG_ARGC != 0)
8836 Sg_WrongNumberOfArgumentsViolation(
8837 SG_INTERN("utf-8-codec"), 0, SG_ARGC, SG_NIL);
8838 {
8839 {
8840 SgObject SG_RESULT = (SgObject)NULL;
8841 SG_RESULT=(Sg_MakeUtf8Codec());
8842 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8843 }
8844 }
8845 }
8846 static SG_DEFINE_SUBR(core_utf_8_codec__STUB, 0, 0,core_utf_8_codec, SG_FALSE, NULL);
8847
core_utf_16_codec(SgObject * SG_FP,int SG_ARGC,void * data_)8848 static SgObject core_utf_16_codec(SgObject *SG_FP, int SG_ARGC, void *data_)
8849 {
8850 SG_ENTER_SUBR("utf-16-codec");
8851 if (SG_ARGC != 0)
8852 Sg_WrongNumberOfArgumentsViolation(
8853 SG_INTERN("utf-16-codec"), 0, SG_ARGC, SG_NIL);
8854 {
8855 {
8856 SgObject SG_RESULT = (SgObject)NULL;
8857
8858 #line 1559 "./lib_core.stub"
8859 SG_RESULT=(Sg_MakeUtf16Codec(UTF_16CHECK_BOM));
8860 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8861 }
8862 }
8863 }
8864 static SG_DEFINE_SUBR(core_utf_16_codec__STUB, 0, 0,core_utf_16_codec, SG_FALSE, NULL);
8865
core_native_eol_style(SgObject * SG_FP,int SG_ARGC,void * data_)8866 static SgObject core_native_eol_style(SgObject *SG_FP, int SG_ARGC, void *data_)
8867 {
8868 SG_ENTER_SUBR("native-eol-style");
8869 if (SG_ARGC != 0)
8870 Sg_WrongNumberOfArgumentsViolation(
8871 SG_INTERN("native-eol-style"), 0, SG_ARGC, SG_NIL);
8872 {
8873 {
8874 SgObject SG_RESULT = (SgObject)NULL;
8875
8876 #line 1562 "./lib_core.stub"
8877 {SgEolStyle style=Sg_NativeEol();
8878 if ((style)==(LF)){
8879 SG_RESULT=(sg__rc_cgen9166.d9486[371]);}else if(
8880 (style)==(CR)){
8881 SG_RESULT=(sg__rc_cgen9166.d9486[369]);}else if(
8882 (style)==(LS)){
8883 SG_RESULT=(sg__rc_cgen9166.d9486[367]);}else if(
8884 (style)==(NEL)){
8885 SG_RESULT=(sg__rc_cgen9166.d9486[365]);}else if(
8886 (style)==(CRNEL)){
8887 SG_RESULT=(sg__rc_cgen9166.d9486[363]);}else if(
8888 (style)==(CRLF)){
8889 SG_RESULT=(sg__rc_cgen9166.d9486[361]);}else if(
8890 (style)==(E_NONE)){
8891 SG_RESULT=(sg__rc_cgen9166.d9486[350]);} else {
8892 #line 1580 "./lib_core.stub"
8893 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[360],SG_MAKE_STRING("platform native eol style not found"),SG_NIL);}}}
8894 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8895 }
8896 }
8897 }
8898 static SG_DEFINE_SUBR(core_native_eol_style__STUB, 0, 0,core_native_eol_style, SG_FALSE, NULL);
8899
core_make_transcoder(SgObject * SG_FP,int SG_ARGC,void * data_)8900 static SgObject core_make_transcoder(SgObject *SG_FP, int SG_ARGC, void *data_)
8901 {
8902 SgObject c_scm;
8903 SgCodec* c;
8904 SgObject eol_scm;
8905 SgObject eol;
8906 SgObject mode_scm;
8907 SgSymbol* mode;
8908 SG_ENTER_SUBR("make-transcoder");
8909 if ((SG_ARGC > 3 &&
8910 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8911 SG_ARGC < 1)
8912 Sg_WrongNumberOfArgumentsBetweenViolation(
8913 SG_INTERN("make-transcoder"), 1, 3, SG_ARGC, SG_NIL);
8914 c_scm = SG_ARGREF(0);
8915 if (!SG_CODECP(c_scm))
8916 Sg_WrongTypeOfArgumentViolation(
8917 sg__rc_cgen9166.d9486[373], SG_MAKE_STRING("codec"), c_scm, SG_NIL);
8918 c = SG_CODEC(c_scm);
8919 if (SG_ARGC > 1+1) {
8920 eol_scm = SG_ARGREF(1);
8921 } else {
8922 eol_scm = SG_UNBOUND;
8923 }
8924 eol = (eol_scm);
8925 if (SG_ARGC > 2+1) {
8926 mode_scm = SG_ARGREF(2);
8927 } else {
8928 mode_scm = SG_UNBOUND;
8929 }
8930 if (!SG_UNBOUNDP(mode_scm) && !SG_SYMBOLP(mode_scm))
8931 Sg_WrongTypeOfArgumentViolation(
8932 sg__rc_cgen9166.d9486[373], SG_MAKE_STRING("symbol"), mode_scm, SG_NIL);
8933 mode = SG_SYMBOL(mode_scm);
8934 {
8935 {
8936 SgObject SG_RESULT = (SgObject)NULL;
8937
8938 #line 1586 "./lib_core.stub"
8939 if ((!((SG_UNBOUNDP(eol))||(
8940 SG_SYMBOLP(eol))))){{
8941 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[374],SG_MAKE_STRING("symbol"),eol,SG_NIL);}}}
8942
8943 #line 1590 "./lib_core.stub"
8944 {SgEolStyle style=Sg_NativeEol();SgErrorHandlingMode handling=SG_REPLACE_ERROR;
8945 #line 1592 "./lib_core.stub"
8946 if (SG_UNBOUNDP(eol)){}else if(
8947 SG_EQ(eol,sg__rc_cgen9166.d9486[371])){
8948 style=(LF);}else if(
8949 SG_EQ(eol,sg__rc_cgen9166.d9486[369])){
8950 style=(CR);}else if(
8951 SG_EQ(eol,sg__rc_cgen9166.d9486[367])){
8952 style=(LS);}else if(
8953 SG_EQ(eol,sg__rc_cgen9166.d9486[365])){
8954 style=(NEL);}else if(
8955 SG_EQ(eol,sg__rc_cgen9166.d9486[363])){
8956 style=(CRNEL);}else if(
8957 SG_EQ(eol,sg__rc_cgen9166.d9486[361])){
8958 style=(CRLF);}else if(
8959 SG_EQ(eol,sg__rc_cgen9166.d9486[350])){
8960 style=(E_NONE);} else {
8961 #line 1608 "./lib_core.stub"
8962 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[374],SG_MAKE_STRING("invalid eol-style"),eol);}}
8963 #line 1611 "./lib_core.stub"
8964 if ((SG_UNBOUNDP(mode))||(
8965 SG_EQ(mode,sg__rc_cgen9166.d9486[379]))){}else if(
8966 SG_EQ(mode,sg__rc_cgen9166.d9486[377])){
8967 handling=(SG_RAISE_ERROR);}else if(
8968 SG_EQ(mode,sg__rc_cgen9166.d9486[375])){
8969 handling=(SG_IGNORE_ERROR);} else {
8970 #line 1618 "./lib_core.stub"
8971 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[374],SG_MAKE_STRING("invalid error-handling-mode"),mode);}}
8972 #line 1621 "./lib_core.stub"
8973 SG_RESULT=(Sg_MakeTranscoder(c,style,handling));}
8974 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8975 }
8976 }
8977 }
8978 static SG_DEFINE_SUBR(core_make_transcoder__STUB, 1, 3,core_make_transcoder, SG_FALSE, NULL);
8979
core_native_transcoder(SgObject * SG_FP,int SG_ARGC,void * data_)8980 static SgObject core_native_transcoder(SgObject *SG_FP, int SG_ARGC, void *data_)
8981 {
8982 SG_ENTER_SUBR("native-transcoder");
8983 if (SG_ARGC != 0)
8984 Sg_WrongNumberOfArgumentsViolation(
8985 SG_INTERN("native-transcoder"), 0, SG_ARGC, SG_NIL);
8986 {
8987 {
8988 SgObject SG_RESULT = (SgObject)NULL;
8989 SG_RESULT=(Sg_MakeNativeTranscoder());
8990 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8991 }
8992 }
8993 }
8994 static SG_DEFINE_SUBR(core_native_transcoder__STUB, 0, 0,core_native_transcoder, SG_FALSE, NULL);
8995
core_transcoder_codec(SgObject * SG_FP,int SG_ARGC,void * data_)8996 static SgObject core_transcoder_codec(SgObject *SG_FP, int SG_ARGC, void *data_)
8997 {
8998 SgObject t_scm;
8999 SgTranscoder* t;
9000 SG_ENTER_SUBR("transcoder-codec");
9001 if (SG_ARGC != 1)
9002 Sg_WrongNumberOfArgumentsViolation(
9003 SG_INTERN("transcoder-codec"), 1, SG_ARGC, SG_NIL);
9004 t_scm = SG_ARGREF(0);
9005 if (!SG_TRANSCODERP(t_scm))
9006 Sg_WrongTypeOfArgumentViolation(
9007 sg__rc_cgen9166.d9486[382], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9008 t = SG_TRANSCODER(t_scm);
9009 {
9010 {
9011 SgObject SG_RESULT = (SgObject)NULL;
9012 SG_RESULT=(SG_TRANSCODER_CODEC(t));
9013 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9014 }
9015 }
9016 }
9017 static SG_DEFINE_SUBR(core_transcoder_codec__STUB, 1, 0,core_transcoder_codec, SG_FALSE, NULL);
9018
core_transcoder_eol_style(SgObject * SG_FP,int SG_ARGC,void * data_)9019 static SgObject core_transcoder_eol_style(SgObject *SG_FP, int SG_ARGC, void *data_)
9020 {
9021 SgObject t_scm;
9022 SgTranscoder* t;
9023 SG_ENTER_SUBR("transcoder-eol-style");
9024 if (SG_ARGC != 1)
9025 Sg_WrongNumberOfArgumentsViolation(
9026 SG_INTERN("transcoder-eol-style"), 1, SG_ARGC, SG_NIL);
9027 t_scm = SG_ARGREF(0);
9028 if (!SG_TRANSCODERP(t_scm))
9029 Sg_WrongTypeOfArgumentViolation(
9030 sg__rc_cgen9166.d9486[383], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9031 t = SG_TRANSCODER(t_scm);
9032 {
9033 {
9034 SgObject SG_RESULT = (SgObject)NULL;
9035
9036 #line 1629 "./lib_core.stub"
9037 {SgEolStyle style=SG_TRANSCODER_EOL_STYLE(t);
9038 if ((style)==(LF)){
9039 SG_RESULT=(sg__rc_cgen9166.d9486[371]);}else if(
9040 (style)==(CR)){
9041 SG_RESULT=(sg__rc_cgen9166.d9486[369]);}else if(
9042 (style)==(LS)){
9043 SG_RESULT=(sg__rc_cgen9166.d9486[367]);}else if(
9044 (style)==(NEL)){
9045 SG_RESULT=(sg__rc_cgen9166.d9486[365]);}else if(
9046 (style)==(CRNEL)){
9047 SG_RESULT=(sg__rc_cgen9166.d9486[363]);}else if(
9048 (style)==(CRLF)){
9049 SG_RESULT=(sg__rc_cgen9166.d9486[361]);}else if(
9050 (style)==(E_NONE)){
9051 SG_RESULT=(sg__rc_cgen9166.d9486[350]);} else {
9052 #line 1646 "./lib_core.stub"
9053 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[384],SG_MAKE_STRING("transcoder had unknown eol-style. this must be a bug, please report it"),SG_NIL);}}}
9054 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9055 }
9056 }
9057 }
9058 static SG_DEFINE_SUBR(core_transcoder_eol_style__STUB, 1, 0,core_transcoder_eol_style, SG_FALSE, NULL);
9059
core_transcoder_error_handling_mode(SgObject * SG_FP,int SG_ARGC,void * data_)9060 static SgObject core_transcoder_error_handling_mode(SgObject *SG_FP, int SG_ARGC, void *data_)
9061 {
9062 SgObject t_scm;
9063 SgTranscoder* t;
9064 SG_ENTER_SUBR("transcoder-error-handling-mode");
9065 if (SG_ARGC != 1)
9066 Sg_WrongNumberOfArgumentsViolation(
9067 SG_INTERN("transcoder-error-handling-mode"), 1, SG_ARGC, SG_NIL);
9068 t_scm = SG_ARGREF(0);
9069 if (!SG_TRANSCODERP(t_scm))
9070 Sg_WrongTypeOfArgumentViolation(
9071 sg__rc_cgen9166.d9486[385], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9072 t = SG_TRANSCODER(t_scm);
9073 {
9074 {
9075 SgObject SG_RESULT = (SgObject)NULL;
9076
9077 #line 1652 "./lib_core.stub"
9078 {SgErrorHandlingMode mode=SG_TRANSCODER_MODE(t);
9079 if (SG_EQ(mode,SG_REPLACE_ERROR)){
9080 SG_RESULT=(SG_SYMBOL_REPLACE);}else if(
9081 SG_EQ(mode,SG_IGNORE_ERROR)){
9082 SG_RESULT=(SG_SYMBOL_IGNORE);}else if(
9083 SG_EQ(mode,SG_RAISE_ERROR)){
9084 SG_RESULT=(SG_SYMBOL_RAISE);} else {
9085 #line 1660 "./lib_core.stub"
9086 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[386],SG_MAKE_STRING("transcoder had unknown error-handling-mode. this must be a bug, please report it"),SG_NIL);}}}
9087 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9088 }
9089 }
9090 }
9091 static SG_DEFINE_SUBR(core_transcoder_error_handling_mode__STUB, 1, 0,core_transcoder_error_handling_mode, SG_FALSE, NULL);
9092
core_bytevector_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)9093 static SgObject core_bytevector_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
9094 {
9095 SgObject b_scm;
9096 SgByteVector* b;
9097 SgObject t_scm;
9098 SgTranscoder* t;
9099 SgObject start_scm;
9100 long start;
9101 SgObject end_scm;
9102 long end;
9103 SG_ENTER_SUBR("bytevector->string");
9104 if ((SG_ARGC > 4 &&
9105 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9106 SG_ARGC < 2)
9107 Sg_WrongNumberOfArgumentsBetweenViolation(
9108 SG_INTERN("bytevector->string"), 2, 4, SG_ARGC, SG_NIL);
9109 b_scm = SG_ARGREF(0);
9110 if (!SG_BVECTORP(b_scm))
9111 Sg_WrongTypeOfArgumentViolation(
9112 sg__rc_cgen9166.d9486[387], SG_MAKE_STRING("bytevector"), b_scm, SG_NIL);
9113 b = SG_BVECTOR(b_scm);
9114 t_scm = SG_ARGREF(1);
9115 if (!SG_TRANSCODERP(t_scm))
9116 Sg_WrongTypeOfArgumentViolation(
9117 sg__rc_cgen9166.d9486[387], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9118 t = SG_TRANSCODER(t_scm);
9119 if (SG_ARGC > 2+1) {
9120 start_scm = SG_ARGREF(2);
9121 } else {
9122 start_scm = SG_MAKE_INT(0);
9123 }
9124 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
9125 Sg_WrongTypeOfArgumentViolation(
9126 sg__rc_cgen9166.d9486[387], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
9127 start = SG_INT_VALUE(start_scm);
9128 if (SG_ARGC > 3+1) {
9129 end_scm = SG_ARGREF(3);
9130 } else {
9131 end_scm = SG_MAKE_INT(-1);
9132 }
9133 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
9134 Sg_WrongTypeOfArgumentViolation(
9135 sg__rc_cgen9166.d9486[387], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
9136 end = SG_INT_VALUE(end_scm);
9137 {
9138 {
9139 SgObject SG_RESULT = (SgObject)NULL;
9140 SG_RESULT=(Sg_ByteVectorToString(b,t,start,end));
9141 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9142 }
9143 }
9144 }
9145 static SG_DEFINE_SUBR(core_bytevector_TOstring__STUB, 2, 3,core_bytevector_TOstring, SG_FALSE, NULL);
9146
core_string_TObytevector(SgObject * SG_FP,int SG_ARGC,void * data_)9147 static SgObject core_string_TObytevector(SgObject *SG_FP, int SG_ARGC, void *data_)
9148 {
9149 SgObject s_scm;
9150 SgString* s;
9151 SgObject t_scm;
9152 SgTranscoder* t;
9153 SgObject start_scm;
9154 long start;
9155 SgObject end_scm;
9156 long end;
9157 SG_ENTER_SUBR("string->bytevector");
9158 if ((SG_ARGC > 4 &&
9159 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9160 SG_ARGC < 2)
9161 Sg_WrongNumberOfArgumentsBetweenViolation(
9162 SG_INTERN("string->bytevector"), 2, 4, SG_ARGC, SG_NIL);
9163 s_scm = SG_ARGREF(0);
9164 if (!SG_STRINGP(s_scm))
9165 Sg_WrongTypeOfArgumentViolation(
9166 sg__rc_cgen9166.d9486[388], SG_MAKE_STRING("string"), s_scm, SG_NIL);
9167 s = SG_STRING(s_scm);
9168 t_scm = SG_ARGREF(1);
9169 if (!SG_TRANSCODERP(t_scm))
9170 Sg_WrongTypeOfArgumentViolation(
9171 sg__rc_cgen9166.d9486[388], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9172 t = SG_TRANSCODER(t_scm);
9173 if (SG_ARGC > 2+1) {
9174 start_scm = SG_ARGREF(2);
9175 } else {
9176 start_scm = SG_MAKE_INT(0);
9177 }
9178 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
9179 Sg_WrongTypeOfArgumentViolation(
9180 sg__rc_cgen9166.d9486[388], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
9181 start = SG_INT_VALUE(start_scm);
9182 if (SG_ARGC > 3+1) {
9183 end_scm = SG_ARGREF(3);
9184 } else {
9185 end_scm = SG_MAKE_INT(-1);
9186 }
9187 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
9188 Sg_WrongTypeOfArgumentViolation(
9189 sg__rc_cgen9166.d9486[388], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
9190 end = SG_INT_VALUE(end_scm);
9191 {
9192 {
9193 SgObject SG_RESULT = (SgObject)NULL;
9194 SG_RESULT=(Sg_StringToByteVector(s,t,start,end));
9195 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9196 }
9197 }
9198 }
9199 static SG_DEFINE_SUBR(core_string_TObytevector__STUB, 2, 3,core_string_TObytevector, SG_FALSE, NULL);
9200
core_eof_object(SgObject * SG_FP,int SG_ARGC,void * data_)9201 static SgObject core_eof_object(SgObject *SG_FP, int SG_ARGC, void *data_)
9202 {
9203 SG_ENTER_SUBR("eof-object");
9204 if (SG_ARGC != 0)
9205 Sg_WrongNumberOfArgumentsViolation(
9206 SG_INTERN("eof-object"), 0, SG_ARGC, SG_NIL);
9207 {
9208 {
9209 SgObject SG_RESULT = (SgObject)NULL;
9210
9211 #line 1677 "./lib_core.stub"
9212 SG_RESULT=(SG_EOF);
9213 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9214 }
9215 }
9216 }
9217 static SG_DEFINE_SUBR(core_eof_object__STUB, 0, 0,core_eof_object, SG_FALSE, NULL);
9218
core_eof_objectP(SgObject * SG_FP,int SG_ARGC,void * data_)9219 static SgObject core_eof_objectP(SgObject *SG_FP, int SG_ARGC, void *data_)
9220 {
9221 SgObject o_scm;
9222 SgObject o;
9223 SG_ENTER_SUBR("eof-object?");
9224 if (SG_ARGC != 1)
9225 Sg_WrongNumberOfArgumentsViolation(
9226 SG_INTERN("eof-object?"), 1, SG_ARGC, SG_NIL);
9227 o_scm = SG_ARGREF(0);
9228 o = (o_scm);
9229 {
9230 {
9231 int SG_RESULT = (int)FALSE;
9232 SG_RESULT=(SG_EOFP(o));
9233 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9234 }
9235 }
9236 }
9237 static SG_DEFINE_SUBR(core_eof_objectP__STUB, 1, 0,core_eof_objectP, SG_FALSE, NULL);
9238
core_portP(SgObject * SG_FP,int SG_ARGC,void * data_)9239 static SgObject core_portP(SgObject *SG_FP, int SG_ARGC, void *data_)
9240 {
9241 SgObject obj_scm;
9242 SgObject obj;
9243 SG_ENTER_SUBR("port?");
9244 if (SG_ARGC != 1)
9245 Sg_WrongNumberOfArgumentsViolation(
9246 SG_INTERN("port?"), 1, SG_ARGC, SG_NIL);
9247 obj_scm = SG_ARGREF(0);
9248 obj = (obj_scm);
9249 {
9250 {
9251 int SG_RESULT = (int)FALSE;
9252 SG_RESULT=(SG_PORTP(obj));
9253 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9254 }
9255 }
9256 }
9257 static SG_DEFINE_SUBR(core_portP__STUB, 1, 0,core_portP, SG_FALSE, NULL);
9258
core_port_transcoder(SgObject * SG_FP,int SG_ARGC,void * data_)9259 static SgObject core_port_transcoder(SgObject *SG_FP, int SG_ARGC, void *data_)
9260 {
9261 SgObject p_scm;
9262 SgPort* p;
9263 SG_ENTER_SUBR("port-transcoder");
9264 if (SG_ARGC != 1)
9265 Sg_WrongNumberOfArgumentsViolation(
9266 SG_INTERN("port-transcoder"), 1, SG_ARGC, SG_NIL);
9267 p_scm = SG_ARGREF(0);
9268 if (!SG_PORTP(p_scm))
9269 Sg_WrongTypeOfArgumentViolation(
9270 sg__rc_cgen9166.d9486[392], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9271 p = SG_PORT(p_scm);
9272 {
9273 {
9274 SgObject SG_RESULT = (SgObject)NULL;
9275 SG_RESULT=(Sg_PortTranscoder(p));
9276 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9277 }
9278 }
9279 }
9280 static SG_DEFINE_SUBR(core_port_transcoder__STUB, 1, 0,core_port_transcoder, SG_FALSE, NULL);
9281
core_textual_portP(SgObject * SG_FP,int SG_ARGC,void * data_)9282 static SgObject core_textual_portP(SgObject *SG_FP, int SG_ARGC, void *data_)
9283 {
9284 SgObject p_scm;
9285 SgObject p;
9286 SG_ENTER_SUBR("textual-port?");
9287 if (SG_ARGC != 1)
9288 Sg_WrongNumberOfArgumentsViolation(
9289 SG_INTERN("textual-port?"), 1, SG_ARGC, SG_NIL);
9290 p_scm = SG_ARGREF(0);
9291 p = (p_scm);
9292 {
9293 {
9294 int SG_RESULT = (int)FALSE;
9295 SG_RESULT=(SG_TEXTUAL_PORTP(p));
9296 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9297 }
9298 }
9299 }
9300 static SG_DEFINE_SUBR(core_textual_portP__STUB, 1, 0,core_textual_portP, SG_FALSE, NULL);
9301
core_binary_portP(SgObject * SG_FP,int SG_ARGC,void * data_)9302 static SgObject core_binary_portP(SgObject *SG_FP, int SG_ARGC, void *data_)
9303 {
9304 SgObject p_scm;
9305 SgObject p;
9306 SG_ENTER_SUBR("binary-port?");
9307 if (SG_ARGC != 1)
9308 Sg_WrongNumberOfArgumentsViolation(
9309 SG_INTERN("binary-port?"), 1, SG_ARGC, SG_NIL);
9310 p_scm = SG_ARGREF(0);
9311 p = (p_scm);
9312 {
9313 {
9314 int SG_RESULT = (int)FALSE;
9315 SG_RESULT=(SG_BINARY_PORTP(p));
9316 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9317 }
9318 }
9319 }
9320 static SG_DEFINE_SUBR(core_binary_portP__STUB, 1, 0,core_binary_portP, SG_FALSE, NULL);
9321
core_transcoded_port(SgObject * SG_FP,int SG_ARGC,void * data_)9322 static SgObject core_transcoded_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9323 {
9324 SgObject p_scm;
9325 SgPort* p;
9326 SgObject t_scm;
9327 SgTranscoder* t;
9328 SG_ENTER_SUBR("transcoded-port");
9329 if (SG_ARGC != 2)
9330 Sg_WrongNumberOfArgumentsViolation(
9331 SG_INTERN("transcoded-port"), 2, SG_ARGC, SG_NIL);
9332 p_scm = SG_ARGREF(0);
9333 if (!SG_PORTP(p_scm))
9334 Sg_WrongTypeOfArgumentViolation(
9335 sg__rc_cgen9166.d9486[395], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9336 p = SG_PORT(p_scm);
9337 t_scm = SG_ARGREF(1);
9338 if (!SG_TRANSCODERP(t_scm))
9339 Sg_WrongTypeOfArgumentViolation(
9340 sg__rc_cgen9166.d9486[395], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9341 t = SG_TRANSCODER(t_scm);
9342 {
9343 {
9344 SgObject SG_RESULT = (SgObject)NULL;
9345
9346 #line 1702 "./lib_core.stub"
9347 if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[396],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}
9348
9349 #line 1703 "./lib_core.stub"
9350 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[396],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
9351
9352 #line 1704 "./lib_core.stub"
9353 Sg_PseudoClosePort(p);
9354
9355 #line 1705 "./lib_core.stub"
9356 SG_RESULT=(Sg_MakeTranscodedPort(p,t));
9357 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9358 }
9359 }
9360 }
9361 static SG_DEFINE_SUBR(core_transcoded_port__STUB, 2, 0,core_transcoded_port, SG_FALSE, NULL);
9362
core_port_has_port_positionP(SgObject * SG_FP,int SG_ARGC,void * data_)9363 static SgObject core_port_has_port_positionP(SgObject *SG_FP, int SG_ARGC, void *data_)
9364 {
9365 SgObject p_scm;
9366 SgPort* p;
9367 SG_ENTER_SUBR("port-has-port-position?");
9368 if (SG_ARGC != 1)
9369 Sg_WrongNumberOfArgumentsViolation(
9370 SG_INTERN("port-has-port-position?"), 1, SG_ARGC, SG_NIL);
9371 p_scm = SG_ARGREF(0);
9372 if (!SG_PORTP(p_scm))
9373 Sg_WrongTypeOfArgumentViolation(
9374 sg__rc_cgen9166.d9486[397], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9375 p = SG_PORT(p_scm);
9376 {
9377 {
9378 int SG_RESULT = (int)FALSE;
9379 SG_RESULT=(Sg_HasPortPosition(p));
9380 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9381 }
9382 }
9383 }
9384 static SG_DEFINE_SUBR(core_port_has_port_positionP__STUB, 1, 0,core_port_has_port_positionP, SG_FALSE, NULL);
9385
core_port_has_set_port_positionXP(SgObject * SG_FP,int SG_ARGC,void * data_)9386 static SgObject core_port_has_set_port_positionXP(SgObject *SG_FP, int SG_ARGC, void *data_)
9387 {
9388 SgObject p_scm;
9389 SgPort* p;
9390 SG_ENTER_SUBR("port-has-set-port-position!?");
9391 if (SG_ARGC != 1)
9392 Sg_WrongNumberOfArgumentsViolation(
9393 SG_INTERN("port-has-set-port-position!?"), 1, SG_ARGC, SG_NIL);
9394 p_scm = SG_ARGREF(0);
9395 if (!SG_PORTP(p_scm))
9396 Sg_WrongTypeOfArgumentViolation(
9397 sg__rc_cgen9166.d9486[398], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9398 p = SG_PORT(p_scm);
9399 {
9400 {
9401 int SG_RESULT = (int)FALSE;
9402 SG_RESULT=(Sg_HasSetPortPosition(p));
9403 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9404 }
9405 }
9406 }
9407 static SG_DEFINE_SUBR(core_port_has_set_port_positionXP__STUB, 1, 0,core_port_has_set_port_positionXP, SG_FALSE, NULL);
9408
core_port_position(SgObject * SG_FP,int SG_ARGC,void * data_)9409 static SgObject core_port_position(SgObject *SG_FP, int SG_ARGC, void *data_)
9410 {
9411 SgObject p_scm;
9412 SgPort* p;
9413 SG_ENTER_SUBR("port-position");
9414 if (SG_ARGC != 1)
9415 Sg_WrongNumberOfArgumentsViolation(
9416 SG_INTERN("port-position"), 1, SG_ARGC, SG_NIL);
9417 p_scm = SG_ARGREF(0);
9418 if (!SG_PORTP(p_scm))
9419 Sg_WrongTypeOfArgumentViolation(
9420 sg__rc_cgen9166.d9486[399], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9421 p = SG_PORT(p_scm);
9422 {
9423 {
9424 SgObject SG_RESULT = (SgObject)NULL;
9425
9426 #line 1715 "./lib_core.stub"
9427 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[400],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
9428
9429 #line 1716 "./lib_core.stub"
9430 SG_RESULT=(Sg_MakeIntegerFromS64(Sg_PortPosition(p)));
9431 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9432 }
9433 }
9434 }
9435 static SG_DEFINE_SUBR(core_port_position__STUB, 1, 0,core_port_position, SG_FALSE, NULL);
9436
core_set_port_positionX(SgObject * SG_FP,int SG_ARGC,void * data_)9437 static SgObject core_set_port_positionX(SgObject *SG_FP, int SG_ARGC, void *data_)
9438 {
9439 SgObject p_scm;
9440 SgPort* p;
9441 SgObject off_scm;
9442 SgObject off;
9443 SgObject whence_scm;
9444 SgSymbol* whence;
9445 SG_ENTER_SUBR("set-port-position!");
9446 if ((SG_ARGC > 3 &&
9447 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9448 SG_ARGC < 2)
9449 Sg_WrongNumberOfArgumentsBetweenViolation(
9450 SG_INTERN("set-port-position!"), 2, 3, SG_ARGC, SG_NIL);
9451 p_scm = SG_ARGREF(0);
9452 if (!SG_PORTP(p_scm))
9453 Sg_WrongTypeOfArgumentViolation(
9454 sg__rc_cgen9166.d9486[401], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9455 p = SG_PORT(p_scm);
9456 off_scm = SG_ARGREF(1);
9457 if (!SG_NUMBERP(off_scm))
9458 Sg_WrongTypeOfArgumentViolation(
9459 sg__rc_cgen9166.d9486[401], SG_MAKE_STRING("number"), off_scm, SG_NIL);
9460 off = (off_scm);
9461 if (SG_ARGC > 2+1) {
9462 whence_scm = SG_ARGREF(2);
9463 } else {
9464 whence_scm = sg__rc_cgen9166.d9486[407];
9465 }
9466 if (!SG_SYMBOLP(whence_scm))
9467 Sg_WrongTypeOfArgumentViolation(
9468 sg__rc_cgen9166.d9486[401], SG_MAKE_STRING("symbol"), whence_scm, SG_NIL);
9469 whence = SG_SYMBOL(whence_scm);
9470 {
9471
9472 #line 1721 "./lib_core.stub"
9473 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[402],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
9474
9475 #line 1722 "./lib_core.stub"
9476 {SgWhence w=SG_BEGIN;
9477 if (SG_EQ(whence,sg__rc_cgen9166.d9486[407])){
9478 if (Sg_NegativeP(off)){{
9479 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[402],SG_MAKE_STRING("non negative number"),off,
9480 #line 1728 "./lib_core.stub"
9481 SG_LIST3(p,off,whence));}}}
9482 w=(SG_BEGIN);}else if(
9483 SG_EQ(whence,sg__rc_cgen9166.d9486[405])){w=(SG_CURRENT);}else if(
9484 SG_EQ(whence,sg__rc_cgen9166.d9486[403])){w=(SG_END);} else {
9485 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[402],SG_MAKE_STRING("unknown whence"),whence);}}
9486 #line 1734 "./lib_core.stub"
9487 Sg_SetPortPosition(p,Sg_GetIntegerS64Clamp(off,SG_CLAMP_NONE,NULL),w);}
9488 SG_RETURN(SG_UNDEF);
9489 }
9490 }
9491 static SG_DEFINE_SUBR(core_set_port_positionX__STUB, 2, 2,core_set_port_positionX, SG_FALSE, NULL);
9492
core_close_port(SgObject * SG_FP,int SG_ARGC,void * data_)9493 static SgObject core_close_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9494 {
9495 SgObject p_scm;
9496 SgPort* p;
9497 SG_ENTER_SUBR("close-port");
9498 if (SG_ARGC != 1)
9499 Sg_WrongNumberOfArgumentsViolation(
9500 SG_INTERN("close-port"), 1, SG_ARGC, SG_NIL);
9501 p_scm = SG_ARGREF(0);
9502 if (!SG_PORTP(p_scm))
9503 Sg_WrongTypeOfArgumentViolation(
9504 sg__rc_cgen9166.d9486[409], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9505 p = SG_PORT(p_scm);
9506 {
9507
9508 #line 1737 "./lib_core.stub"
9509 Sg_ClosePort(p);
9510 SG_RETURN(SG_UNDEF);
9511 }
9512 }
9513 static SG_DEFINE_SUBR(core_close_port__STUB, 1, 0,core_close_port, SG_FALSE, NULL);
9514
core_input_portP(SgObject * SG_FP,int SG_ARGC,void * data_)9515 static SgObject core_input_portP(SgObject *SG_FP, int SG_ARGC, void *data_)
9516 {
9517 SgObject obj_scm;
9518 SgObject obj;
9519 SG_ENTER_SUBR("input-port?");
9520 if (SG_ARGC != 1)
9521 Sg_WrongNumberOfArgumentsViolation(
9522 SG_INTERN("input-port?"), 1, SG_ARGC, SG_NIL);
9523 obj_scm = SG_ARGREF(0);
9524 obj = (obj_scm);
9525 {
9526 {
9527 int SG_RESULT = (int)FALSE;
9528 SG_RESULT=(SG_INPUT_PORTP(obj));
9529 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9530 }
9531 }
9532 }
9533 static SG_DEFINE_SUBR(core_input_portP__STUB, 1, 0,core_input_portP, SG_FALSE, NULL);
9534
core_port_eofP(SgObject * SG_FP,int SG_ARGC,void * data_)9535 static SgObject core_port_eofP(SgObject *SG_FP, int SG_ARGC, void *data_)
9536 {
9537 SgObject p_scm;
9538 SgPort* p;
9539 SG_ENTER_SUBR("port-eof?");
9540 if (SG_ARGC != 1)
9541 Sg_WrongNumberOfArgumentsViolation(
9542 SG_INTERN("port-eof?"), 1, SG_ARGC, SG_NIL);
9543 p_scm = SG_ARGREF(0);
9544 if (!SG_PORTP(p_scm))
9545 Sg_WrongTypeOfArgumentViolation(
9546 sg__rc_cgen9166.d9486[411], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9547 p = SG_PORT(p_scm);
9548 {
9549 {
9550 int SG_RESULT = (int)FALSE;
9551
9552 #line 1748 "./lib_core.stub"
9553 if (SG_BINARY_PORTP(p)){
9554 {int ch=Sg_Peekb(p);
9555 SG_RESULT=((ch)==(EOF));}} else {
9556 {SgChar ch=Sg_Peekc(p);
9557 SG_RESULT=((ch)==(EOF));}}
9558 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9559 }
9560 }
9561 }
9562 static SG_DEFINE_SUBR(core_port_eofP__STUB, 1, 0,core_port_eofP, SG_FALSE, NULL);
9563
core_open_file_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9564 static SgObject core_open_file_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9565 {
9566 SgObject file_scm;
9567 SgString* file;
9568 SgObject option_scm;
9569 SgObject option;
9570 SgObject mode_scm;
9571 SgSymbol* mode;
9572 SgObject transcoder_scm;
9573 SgTranscoder* transcoder;
9574 SG_ENTER_SUBR("open-file-input-port");
9575 if ((SG_ARGC > 4 &&
9576 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9577 SG_ARGC < 1)
9578 Sg_WrongNumberOfArgumentsBetweenViolation(
9579 SG_INTERN("open-file-input-port"), 1, 4, SG_ARGC, SG_NIL);
9580 file_scm = SG_ARGREF(0);
9581 if (!SG_STRINGP(file_scm))
9582 Sg_WrongTypeOfArgumentViolation(
9583 sg__rc_cgen9166.d9486[412], SG_MAKE_STRING("string"), file_scm, SG_NIL);
9584 file = SG_STRING(file_scm);
9585 if (SG_ARGC > 1+1) {
9586 option_scm = SG_ARGREF(1);
9587 } else {
9588 option_scm = SG_FALSE;
9589 }
9590 option = (option_scm);
9591 if (SG_ARGC > 2+1) {
9592 mode_scm = SG_ARGREF(2);
9593 } else {
9594 mode_scm = SG_UNBOUND;
9595 }
9596 if (!SG_UNBOUNDP(mode_scm) && !SG_SYMBOLP(mode_scm))
9597 Sg_WrongTypeOfArgumentViolation(
9598 sg__rc_cgen9166.d9486[412], SG_MAKE_STRING("symbol"), mode_scm, SG_NIL);
9599 mode = SG_SYMBOL(mode_scm);
9600 if (SG_ARGC > 3+1) {
9601 transcoder_scm = SG_ARGREF(3);
9602 } else {
9603 transcoder_scm = SG_FALSE;
9604 }
9605 if (!SG_FALSEP(transcoder_scm) && !SG_TRANSCODERP(transcoder_scm))
9606 Sg_WrongTypeOfArgumentViolation(
9607 sg__rc_cgen9166.d9486[412], SG_MAKE_STRING("transcoder"), transcoder_scm, SG_NIL);
9608 transcoder = SG_TRANSCODER(transcoder_scm);
9609 {
9610 {
9611 SgObject SG_RESULT = (SgObject)NULL;
9612
9613 #line 1759 "./lib_core.stub"
9614 if (SG_UNBOUNDP(mode)){{
9615 mode=(sg__rc_cgen9166.d9486[354]);}}
9616
9617 #line 1761 "./lib_core.stub"
9618 {SgObject fo=Sg_OpenFile(file,SG_READ);int bufferMode=SG_BUFFER_MODE_BLOCK;
9619 #line 1763 "./lib_core.stub"
9620 if ((!(SG_FILEP(fo)))){{
9621 Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[413],fo,file,SG_UNDEF);}}
9622 #line 1767 "./lib_core.stub"
9623 if (SG_EQ(mode,sg__rc_cgen9166.d9486[350])){
9624 bufferMode=(SG_BUFFER_MODE_NONE);}
9625 if (SG_FALSEP(transcoder)){
9626 SG_RESULT=(Sg_MakeFileBinaryInputPort(fo,bufferMode));} else {
9627 {SgObject in=Sg_MakeFileBinaryInputPort(fo,bufferMode);
9628 SG_RESULT=(Sg_MakeTranscodedPort(in,transcoder));}}}
9629 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9630 }
9631 }
9632 }
9633 static SG_DEFINE_SUBR(core_open_file_input_port__STUB, 1, 4,core_open_file_input_port, SG_FALSE, NULL);
9634
core_open_bytevector_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9635 static SgObject core_open_bytevector_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9636 {
9637 SgObject bv_scm;
9638 SgByteVector* bv;
9639 SgObject t_scm;
9640 SgTranscoder* t;
9641 SgObject start_scm;
9642 long start;
9643 SgObject end_scm;
9644 long end;
9645 SG_ENTER_SUBR("open-bytevector-input-port");
9646 if ((SG_ARGC > 4 &&
9647 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9648 SG_ARGC < 1)
9649 Sg_WrongNumberOfArgumentsBetweenViolation(
9650 SG_INTERN("open-bytevector-input-port"), 1, 4, SG_ARGC, SG_NIL);
9651 bv_scm = SG_ARGREF(0);
9652 if (!SG_BVECTORP(bv_scm))
9653 Sg_WrongTypeOfArgumentViolation(
9654 sg__rc_cgen9166.d9486[414], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
9655 bv = SG_BVECTOR(bv_scm);
9656 if (SG_ARGC > 1+1) {
9657 t_scm = SG_ARGREF(1);
9658 } else {
9659 t_scm = SG_FALSE;
9660 }
9661 if (!SG_FALSEP(t_scm) && !SG_TRANSCODERP(t_scm))
9662 Sg_WrongTypeOfArgumentViolation(
9663 sg__rc_cgen9166.d9486[414], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9664 t = SG_TRANSCODER(t_scm);
9665 if (SG_ARGC > 2+1) {
9666 start_scm = SG_ARGREF(2);
9667 } else {
9668 start_scm = SG_MAKE_INT(0);
9669 }
9670 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
9671 Sg_WrongTypeOfArgumentViolation(
9672 sg__rc_cgen9166.d9486[414], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
9673 start = SG_INT_VALUE(start_scm);
9674 if (SG_ARGC > 3+1) {
9675 end_scm = SG_ARGREF(3);
9676 } else {
9677 end_scm = SG_MAKE_INT(-1);
9678 }
9679 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
9680 Sg_WrongTypeOfArgumentViolation(
9681 sg__rc_cgen9166.d9486[414], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
9682 end = SG_INT_VALUE(end_scm);
9683 {
9684 {
9685 SgObject SG_RESULT = (SgObject)NULL;
9686
9687 #line 1777 "./lib_core.stub"
9688 {SgObject bp=Sg_MakeByteVectorInputPort(bv,start,end);
9689 if (SG_FALSEP(t)){
9690 SG_RESULT=(bp);} else {
9691 SG_RESULT=(Sg_MakeTranscodedPort(bp,t));}}
9692 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9693 }
9694 }
9695 }
9696 static SG_DEFINE_SUBR(core_open_bytevector_input_port__STUB, 1, 4,core_open_bytevector_input_port, SG_FALSE, NULL);
9697
core_open_string_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9698 static SgObject core_open_string_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9699 {
9700 SgObject s_scm;
9701 SgString* s;
9702 SgObject start_scm;
9703 long start;
9704 SgObject end_scm;
9705 long end;
9706 SG_ENTER_SUBR("open-string-input-port");
9707 if ((SG_ARGC > 3 &&
9708 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9709 SG_ARGC < 1)
9710 Sg_WrongNumberOfArgumentsBetweenViolation(
9711 SG_INTERN("open-string-input-port"), 1, 3, SG_ARGC, SG_NIL);
9712 s_scm = SG_ARGREF(0);
9713 if (!SG_STRINGP(s_scm))
9714 Sg_WrongTypeOfArgumentViolation(
9715 sg__rc_cgen9166.d9486[415], SG_MAKE_STRING("string"), s_scm, SG_NIL);
9716 s = SG_STRING(s_scm);
9717 if (SG_ARGC > 1+1) {
9718 start_scm = SG_ARGREF(1);
9719 } else {
9720 start_scm = SG_MAKE_INT(0);
9721 }
9722 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
9723 Sg_WrongTypeOfArgumentViolation(
9724 sg__rc_cgen9166.d9486[415], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
9725 start = SG_INT_VALUE(start_scm);
9726 if (SG_ARGC > 2+1) {
9727 end_scm = SG_ARGREF(2);
9728 } else {
9729 end_scm = SG_MAKE_INT(-1);
9730 }
9731 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
9732 Sg_WrongTypeOfArgumentViolation(
9733 sg__rc_cgen9166.d9486[415], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
9734 end = SG_INT_VALUE(end_scm);
9735 {
9736 {
9737 SgObject SG_RESULT = (SgObject)NULL;
9738
9739 #line 1784 "./lib_core.stub"
9740 SG_RESULT=(Sg_MakeStringInputPort(s,start,end));
9741 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9742 }
9743 }
9744 }
9745 static SG_DEFINE_SUBR(core_open_string_input_port__STUB, 1, 3,core_open_string_input_port, SG_FALSE, NULL);
9746
core_standard_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9747 static SgObject core_standard_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9748 {
9749 SG_ENTER_SUBR("standard-input-port");
9750 if (SG_ARGC != 0)
9751 Sg_WrongNumberOfArgumentsViolation(
9752 SG_INTERN("standard-input-port"), 0, SG_ARGC, SG_NIL);
9753 {
9754 {
9755 SgObject SG_RESULT = (SgObject)NULL;
9756 SG_RESULT=(Sg_StandardInputPort());
9757 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9758 }
9759 }
9760 }
9761 static SG_DEFINE_SUBR(core_standard_input_port__STUB, 0, 0,core_standard_input_port, SG_FALSE, NULL);
9762
core_current_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9763 static SgObject core_current_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9764 {
9765 SgObject p_scm;
9766 SgPort* p;
9767 SG_ENTER_SUBR("current-input-port");
9768 if ((SG_ARGC > 1 &&
9769 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9770 SG_ARGC < 0)
9771 Sg_WrongNumberOfArgumentsBetweenViolation(
9772 SG_INTERN("current-input-port"), 0, 1, SG_ARGC, SG_NIL);
9773 if (SG_ARGC > 0+1) {
9774 p_scm = SG_ARGREF(0);
9775 } else {
9776 p_scm = SG_UNBOUND;
9777 }
9778 if (!SG_UNBOUNDP(p_scm) && !SG_PORTP(p_scm))
9779 Sg_WrongTypeOfArgumentViolation(
9780 sg__rc_cgen9166.d9486[417], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9781 p = SG_PORT(p_scm);
9782 {
9783 {
9784 SgObject SG_RESULT = (SgObject)NULL;
9785
9786 #line 1789 "./lib_core.stub"
9787 {SgVM* vm=Sg_VM();
9788 if (SG_UNBOUNDP(p)){
9789 SG_RESULT=((vm)->currentInputPort);} else {
9790 {
9791 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[418],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
9792 (vm)->currentInputPort=(p);
9793 SG_RESULT=(SG_UNDEF);}}}
9794 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9795 }
9796 }
9797 }
9798 static SG_DEFINE_SUBR(core_current_input_port__STUB, 0, 2,core_current_input_port, SG_FALSE, NULL);
9799
core_make_custom_binary_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9800 static SgObject core_make_custom_binary_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9801 {
9802 SgObject id_scm;
9803 SgString* id;
9804 SgObject read_scm;
9805 SgProcedure* read;
9806 SgObject getter_scm;
9807 SgObject getter;
9808 SgObject setter_scm;
9809 SgObject setter;
9810 SgObject close_scm;
9811 SgObject close;
9812 SgObject ready_scm;
9813 SgObject ready;
9814 SG_ENTER_SUBR("make-custom-binary-input-port");
9815 if ((SG_ARGC > 6 &&
9816 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9817 SG_ARGC < 5)
9818 Sg_WrongNumberOfArgumentsBetweenViolation(
9819 SG_INTERN("make-custom-binary-input-port"), 5, 6, SG_ARGC, SG_NIL);
9820 id_scm = SG_ARGREF(0);
9821 if (!SG_STRINGP(id_scm))
9822 Sg_WrongTypeOfArgumentViolation(
9823 sg__rc_cgen9166.d9486[419], SG_MAKE_STRING("string"), id_scm, SG_NIL);
9824 id = SG_STRING(id_scm);
9825 read_scm = SG_ARGREF(1);
9826 if (!SG_PROCEDUREP(read_scm))
9827 Sg_WrongTypeOfArgumentViolation(
9828 sg__rc_cgen9166.d9486[419], SG_MAKE_STRING("procedure"), read_scm, SG_NIL);
9829 read = SG_PROCEDURE(read_scm);
9830 getter_scm = SG_ARGREF(2);
9831 getter = (getter_scm);
9832 setter_scm = SG_ARGREF(3);
9833 setter = (setter_scm);
9834 close_scm = SG_ARGREF(4);
9835 close = (close_scm);
9836 if (SG_ARGC > 5+1) {
9837 ready_scm = SG_ARGREF(5);
9838 } else {
9839 ready_scm = SG_FALSE;
9840 }
9841 ready = (ready_scm);
9842 {
9843 {
9844 SgObject SG_RESULT = (SgObject)NULL;
9845
9846 #line 1808 "./lib_core.stub"
9847 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[420],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
9848
9849 #line 1809 "./lib_core.stub"
9850 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[420],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
9851
9852 #line 1810 "./lib_core.stub"
9853 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[420],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
9854
9855 #line 1811 "./lib_core.stub"
9856 if ((!((SG_FALSEP(ready))||(SG_PROCEDUREP(ready))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[420],SG_MAKE_STRING("procedure or #f"),ready,SG_NIL);}}}
9857
9858 #line 1812 "./lib_core.stub"
9859 SG_RESULT=(Sg_MakeCustomBinaryPort(id,SG_INPUT_PORT,read,SG_FALSE,getter,setter,close,ready));
9860 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9861 }
9862 }
9863 }
9864 static SG_DEFINE_SUBR(core_make_custom_binary_input_port__STUB, 5, 2,core_make_custom_binary_input_port, SG_FALSE, NULL);
9865
core_make_custom_textual_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9866 static SgObject core_make_custom_textual_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9867 {
9868 SgObject id_scm;
9869 SgString* id;
9870 SgObject read_scm;
9871 SgProcedure* read;
9872 SgObject getter_scm;
9873 SgObject getter;
9874 SgObject setter_scm;
9875 SgObject setter;
9876 SgObject close_scm;
9877 SgObject close;
9878 SgObject ready_scm;
9879 SgObject ready;
9880 SG_ENTER_SUBR("make-custom-textual-input-port");
9881 if ((SG_ARGC > 6 &&
9882 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9883 SG_ARGC < 5)
9884 Sg_WrongNumberOfArgumentsBetweenViolation(
9885 SG_INTERN("make-custom-textual-input-port"), 5, 6, SG_ARGC, SG_NIL);
9886 id_scm = SG_ARGREF(0);
9887 if (!SG_STRINGP(id_scm))
9888 Sg_WrongTypeOfArgumentViolation(
9889 sg__rc_cgen9166.d9486[421], SG_MAKE_STRING("string"), id_scm, SG_NIL);
9890 id = SG_STRING(id_scm);
9891 read_scm = SG_ARGREF(1);
9892 if (!SG_PROCEDUREP(read_scm))
9893 Sg_WrongTypeOfArgumentViolation(
9894 sg__rc_cgen9166.d9486[421], SG_MAKE_STRING("procedure"), read_scm, SG_NIL);
9895 read = SG_PROCEDURE(read_scm);
9896 getter_scm = SG_ARGREF(2);
9897 getter = (getter_scm);
9898 setter_scm = SG_ARGREF(3);
9899 setter = (setter_scm);
9900 close_scm = SG_ARGREF(4);
9901 close = (close_scm);
9902 if (SG_ARGC > 5+1) {
9903 ready_scm = SG_ARGREF(5);
9904 } else {
9905 ready_scm = SG_FALSE;
9906 }
9907 ready = (ready_scm);
9908 {
9909 {
9910 SgObject SG_RESULT = (SgObject)NULL;
9911
9912 #line 1818 "./lib_core.stub"
9913 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[422],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
9914
9915 #line 1819 "./lib_core.stub"
9916 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[422],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
9917
9918 #line 1820 "./lib_core.stub"
9919 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[422],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
9920
9921 #line 1821 "./lib_core.stub"
9922 if ((!((SG_FALSEP(ready))||(SG_PROCEDUREP(ready))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[422],SG_MAKE_STRING("procedure or #f"),ready,SG_NIL);}}}
9923
9924 #line 1822 "./lib_core.stub"
9925 SG_RESULT=(Sg_MakeCustomTextualPort(id,SG_INPUT_PORT,read,SG_FALSE,getter,setter,close,ready));
9926 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9927 }
9928 }
9929 }
9930 static SG_DEFINE_SUBR(core_make_custom_textual_input_port__STUB, 5, 2,core_make_custom_textual_input_port, SG_FALSE, NULL);
9931
core_get_u8(SgObject * SG_FP,int SG_ARGC,void * data_)9932 static SgObject core_get_u8(SgObject *SG_FP, int SG_ARGC, void *data_)
9933 {
9934 SgObject p_scm;
9935 SgPort* p;
9936 SgObject reckless_scm;
9937 SgObject reckless;
9938 SG_ENTER_SUBR("get-u8");
9939 if ((SG_ARGC > 2 &&
9940 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9941 SG_ARGC < 1)
9942 Sg_WrongNumberOfArgumentsBetweenViolation(
9943 SG_INTERN("get-u8"), 1, 2, SG_ARGC, SG_NIL);
9944 p_scm = SG_ARGREF(0);
9945 if (!SG_PORTP(p_scm))
9946 Sg_WrongTypeOfArgumentViolation(
9947 sg__rc_cgen9166.d9486[423], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9948 p = SG_PORT(p_scm);
9949 if (SG_ARGC > 1+1) {
9950 reckless_scm = SG_ARGREF(1);
9951 } else {
9952 reckless_scm = SG_FALSE;
9953 }
9954 reckless = (reckless_scm);
9955 {
9956 {
9957 SgObject SG_RESULT = (SgObject)NULL;
9958
9959 #line 1848 "./lib_core.stub"
9960 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[424],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
9961
9962 #line 1849 "./lib_core.stub"
9963 if (SG_FALSEP(reckless)){{if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[424],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
9964
9965 #line 1850 "./lib_core.stub"
9966 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[424],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
9967
9968 #line 1851 "./lib_core.stub"
9969 {int b;if (SG_CUSTOM_PORTP(p)){b=(Sg_Getb(p));} else {b=(Sg_GetbUnsafe(p));}if ((EOF)==(b)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_INT(b));}}
9970 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9971 }
9972 }
9973 }
9974 static SG_DEFINE_SUBR(core_get_u8__STUB, 1, 2,core_get_u8, SG_FALSE, NULL);
9975
core_lookahead_u8(SgObject * SG_FP,int SG_ARGC,void * data_)9976 static SgObject core_lookahead_u8(SgObject *SG_FP, int SG_ARGC, void *data_)
9977 {
9978 SgObject p_scm;
9979 SgPort* p;
9980 SgObject reckless_scm;
9981 SgObject reckless;
9982 SG_ENTER_SUBR("lookahead-u8");
9983 if ((SG_ARGC > 2 &&
9984 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9985 SG_ARGC < 1)
9986 Sg_WrongNumberOfArgumentsBetweenViolation(
9987 SG_INTERN("lookahead-u8"), 1, 2, SG_ARGC, SG_NIL);
9988 p_scm = SG_ARGREF(0);
9989 if (!SG_PORTP(p_scm))
9990 Sg_WrongTypeOfArgumentViolation(
9991 sg__rc_cgen9166.d9486[425], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9992 p = SG_PORT(p_scm);
9993 if (SG_ARGC > 1+1) {
9994 reckless_scm = SG_ARGREF(1);
9995 } else {
9996 reckless_scm = SG_FALSE;
9997 }
9998 reckless = (reckless_scm);
9999 {
10000 {
10001 SgObject SG_RESULT = (SgObject)NULL;
10002
10003 #line 1854 "./lib_core.stub"
10004 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[426],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10005
10006 #line 1855 "./lib_core.stub"
10007 if (SG_FALSEP(reckless)){{if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[426],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
10008
10009 #line 1856 "./lib_core.stub"
10010 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[426],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10011
10012 #line 1857 "./lib_core.stub"
10013 {int b;if (SG_CUSTOM_PORTP(p)){b=(Sg_Peekb(p));} else {b=(Sg_PeekbUnsafe(p));}if ((EOF)==(b)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_INT(b));}}
10014 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10015 }
10016 }
10017 }
10018 static SG_DEFINE_SUBR(core_lookahead_u8__STUB, 1, 2,core_lookahead_u8, SG_FALSE, NULL);
10019
core_get_bytevector_n(SgObject * SG_FP,int SG_ARGC,void * data_)10020 static SgObject core_get_bytevector_n(SgObject *SG_FP, int SG_ARGC, void *data_)
10021 {
10022 SgObject p_scm;
10023 SgPort* p;
10024 SgObject count_scm;
10025 long count;
10026 SgObject reckless_scm;
10027 SgObject reckless;
10028 SG_ENTER_SUBR("get-bytevector-n");
10029 if ((SG_ARGC > 3 &&
10030 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10031 SG_ARGC < 2)
10032 Sg_WrongNumberOfArgumentsBetweenViolation(
10033 SG_INTERN("get-bytevector-n"), 2, 3, SG_ARGC, SG_NIL);
10034 p_scm = SG_ARGREF(0);
10035 if (!SG_PORTP(p_scm))
10036 Sg_WrongTypeOfArgumentViolation(
10037 sg__rc_cgen9166.d9486[427], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10038 p = SG_PORT(p_scm);
10039 count_scm = SG_ARGREF(1);
10040 if (!SG_INTP(count_scm))
10041 Sg_WrongTypeOfArgumentViolation(
10042 sg__rc_cgen9166.d9486[427], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
10043 count = SG_INT_VALUE(count_scm);
10044 if (SG_ARGC > 2+1) {
10045 reckless_scm = SG_ARGREF(2);
10046 } else {
10047 reckless_scm = SG_FALSE;
10048 }
10049 reckless = (reckless_scm);
10050 {
10051 {
10052 SgObject SG_RESULT = (SgObject)NULL;
10053
10054 #line 1889 "./lib_core.stub"
10055 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10056
10057 #line 1890 "./lib_core.stub"
10058 if (SG_FALSEP(reckless)){{if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
10059
10060 #line 1891 "./lib_core.stub"
10061 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10062
10063 #line 1892 "./lib_core.stub"
10064 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
10065
10066 #line 1893 "./lib_core.stub"
10067 if ((count)==(0)){
10068 SG_RESULT=(Sg_MakeByteVector(0,0));} else {
10069 {SgObject buf=Sg_MakeByteVector(count,0);int64_t res=0;
10070 #line 1898 "./lib_core.stub"
10071 SG_PORT_LOCK_READ(p);
10072 {int64_t G10680=0;int64_t G10681=0;int64_t G10682=count;int G10683=Sg_ReadOncePortP(p);for (;(!((G10682)==(0)));){G10681=(Sg_ReadbUnsafe(p,(SG_BVECTOR_ELEMENTS(buf))+(G10680),G10682));res=((G10681)+(res));if ((G10681)==(0)){{break;}}if (G10683){{break;}}G10682=((G10682)-(G10681));G10680=((G10680)+(G10681));}}
10073 #line 1901 "./lib_core.stub"
10074 SG_PORT_UNLOCK_READ(p);
10075 if ((res)==(0)){SG_RESULT=(SG_EOF);} else {
10076 #line 1904 "./lib_core.stub"
10077 if ((!((count)==(res)))){{
10078 SG_BVECTOR_SIZE(buf)=(res);}}
10079 SG_RESULT=(buf);}}}
10080 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10081 }
10082 }
10083 }
10084 static SG_DEFINE_SUBR(core_get_bytevector_n__STUB, 2, 2,core_get_bytevector_n, SG_FALSE, NULL);
10085
core_get_bytevector_nX(SgObject * SG_FP,int SG_ARGC,void * data_)10086 static SgObject core_get_bytevector_nX(SgObject *SG_FP, int SG_ARGC, void *data_)
10087 {
10088 SgObject p_scm;
10089 SgPort* p;
10090 SgObject bv_scm;
10091 SgByteVector* bv;
10092 SgObject start_scm;
10093 long start;
10094 SgObject count_scm;
10095 long count;
10096 SgObject reckless_scm;
10097 SgObject reckless;
10098 SG_ENTER_SUBR("get-bytevector-n!");
10099 if ((SG_ARGC > 5 &&
10100 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10101 SG_ARGC < 4)
10102 Sg_WrongNumberOfArgumentsBetweenViolation(
10103 SG_INTERN("get-bytevector-n!"), 4, 5, SG_ARGC, SG_NIL);
10104 p_scm = SG_ARGREF(0);
10105 if (!SG_PORTP(p_scm))
10106 Sg_WrongTypeOfArgumentViolation(
10107 sg__rc_cgen9166.d9486[429], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10108 p = SG_PORT(p_scm);
10109 bv_scm = SG_ARGREF(1);
10110 if (!SG_BVECTORP(bv_scm))
10111 Sg_WrongTypeOfArgumentViolation(
10112 sg__rc_cgen9166.d9486[429], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
10113 bv = SG_BVECTOR(bv_scm);
10114 start_scm = SG_ARGREF(2);
10115 if (!SG_INTP(start_scm))
10116 Sg_WrongTypeOfArgumentViolation(
10117 sg__rc_cgen9166.d9486[429], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
10118 start = SG_INT_VALUE(start_scm);
10119 count_scm = SG_ARGREF(3);
10120 if (!SG_INTP(count_scm))
10121 Sg_WrongTypeOfArgumentViolation(
10122 sg__rc_cgen9166.d9486[429], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
10123 count = SG_INT_VALUE(count_scm);
10124 if (SG_ARGC > 4+1) {
10125 reckless_scm = SG_ARGREF(4);
10126 } else {
10127 reckless_scm = SG_FALSE;
10128 }
10129 reckless = (reckless_scm);
10130 {
10131 {
10132 SgObject SG_RESULT = (SgObject)NULL;
10133
10134 #line 1911 "./lib_core.stub"
10135 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[430],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10136
10137 #line 1912 "./lib_core.stub"
10138 if (SG_FALSEP(reckless)){{if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
10139
10140 #line 1913 "./lib_core.stub"
10141 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[430],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10142
10143 #line 1914 "./lib_core.stub"
10144 if ((start)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[430],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(start),SG_NIL);}}}
10145
10146 #line 1915 "./lib_core.stub"
10147 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[430],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
10148
10149 #line 1916 "./lib_core.stub"
10150 if ((!((SG_BVECTOR_SIZE(bv))>=((start)+(count))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[430],SG_MAKE_STRING("out of range"),SG_MAKE_INT(SG_BVECTOR_SIZE(bv)));}}}
10151
10152 #line 1917 "./lib_core.stub"
10153 if ((count)==(0)){
10154 SG_RESULT=(SG_MAKE_INT(0));} else {
10155 {int64_t res=0;
10156 #line 1921 "./lib_core.stub"
10157 SG_PORT_LOCK_READ(p);
10158 {int64_t G10684=start;int64_t G10685=0;int64_t G10686=count;int G10687=Sg_ReadOncePortP(p);for (;(!((G10686)==(0)));){G10685=(Sg_ReadbUnsafe(p,(SG_BVECTOR_ELEMENTS(bv))+(G10684),G10686));res=((G10685)+(res));if ((G10685)==(0)){{break;}}if (G10687){{break;}}G10686=((G10686)-(G10685));G10684=((G10684)+(G10685));}}
10159 #line 1924 "./lib_core.stub"
10160 SG_PORT_UNLOCK_READ(p);
10161 if ((res)==(0)){
10162 SG_RESULT=(SG_EOF);} else {
10163 SG_RESULT=(SG_MAKE_INT(res));}}}
10164 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10165 }
10166 }
10167 }
10168 static SG_DEFINE_SUBR(core_get_bytevector_nX__STUB, 4, 2,core_get_bytevector_nX, SG_FALSE, NULL);
10169
core_get_bytevector_some(SgObject * SG_FP,int SG_ARGC,void * data_)10170 static SgObject core_get_bytevector_some(SgObject *SG_FP, int SG_ARGC, void *data_)
10171 {
10172 SgObject p_scm;
10173 SgPort* p;
10174 SgObject reckless_scm;
10175 SgObject reckless;
10176 SG_ENTER_SUBR("get-bytevector-some");
10177 if ((SG_ARGC > 2 &&
10178 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10179 SG_ARGC < 1)
10180 Sg_WrongNumberOfArgumentsBetweenViolation(
10181 SG_INTERN("get-bytevector-some"), 1, 2, SG_ARGC, SG_NIL);
10182 p_scm = SG_ARGREF(0);
10183 if (!SG_PORTP(p_scm))
10184 Sg_WrongTypeOfArgumentViolation(
10185 sg__rc_cgen9166.d9486[431], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10186 p = SG_PORT(p_scm);
10187 if (SG_ARGC > 1+1) {
10188 reckless_scm = SG_ARGREF(1);
10189 } else {
10190 reckless_scm = SG_FALSE;
10191 }
10192 reckless = (reckless_scm);
10193 {
10194 {
10195 SgObject SG_RESULT = (SgObject)NULL;
10196
10197 #line 1931 "./lib_core.stub"
10198 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[432],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10199
10200 #line 1932 "./lib_core.stub"
10201 if (SG_FALSEP(reckless)){{
10202 if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
10203
10204 #line 1934 "./lib_core.stub"
10205 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[432],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10206
10207 #line 1935 "./lib_core.stub"
10208 {SgObject buf=Sg_MakeByteVector(512,0);int64_t res=0;
10209 #line 1938 "./lib_core.stub"
10210 SG_PORT_LOCK_READ(p);
10211 {int64_t G10688=0;int64_t G10689=0;int64_t G10690=512;int G10691=Sg_ReadOncePortP(p);for (;(!((G10690)==(0)));){G10689=(Sg_ReadbUnsafe(p,(SG_BVECTOR_ELEMENTS(buf))+(G10688),G10690));res=((G10689)+(res));if ((G10689)==(0)){{break;}}if (G10691){{break;}}G10690=((G10690)-(G10689));G10688=((G10688)+(G10689));}}
10212 SG_PORT_UNLOCK_READ(p);
10213 if ((res)==(0)){
10214 SG_RESULT=(SG_EOF);} else {
10215 #line 1944 "./lib_core.stub"
10216 if ((!((res)==(512)))){{
10217 SG_BVECTOR_SIZE(buf)=(res);}}
10218 SG_RESULT=(buf);}}
10219 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10220 }
10221 }
10222 }
10223 static SG_DEFINE_SUBR(core_get_bytevector_some__STUB, 1, 2,core_get_bytevector_some, SG_FALSE, NULL);
10224
core_get_bytevector_all(SgObject * SG_FP,int SG_ARGC,void * data_)10225 static SgObject core_get_bytevector_all(SgObject *SG_FP, int SG_ARGC, void *data_)
10226 {
10227 SgObject p_scm;
10228 SgPort* p;
10229 SgObject reckless_scm;
10230 SgObject reckless;
10231 SG_ENTER_SUBR("get-bytevector-all");
10232 if ((SG_ARGC > 2 &&
10233 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10234 SG_ARGC < 1)
10235 Sg_WrongNumberOfArgumentsBetweenViolation(
10236 SG_INTERN("get-bytevector-all"), 1, 2, SG_ARGC, SG_NIL);
10237 p_scm = SG_ARGREF(0);
10238 if (!SG_PORTP(p_scm))
10239 Sg_WrongTypeOfArgumentViolation(
10240 sg__rc_cgen9166.d9486[433], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10241 p = SG_PORT(p_scm);
10242 if (SG_ARGC > 1+1) {
10243 reckless_scm = SG_ARGREF(1);
10244 } else {
10245 reckless_scm = SG_FALSE;
10246 }
10247 reckless = (reckless_scm);
10248 {
10249 {
10250 SgObject SG_RESULT = (SgObject)NULL;
10251
10252 #line 1949 "./lib_core.stub"
10253 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[434],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10254
10255 #line 1950 "./lib_core.stub"
10256 if (SG_FALSEP(reckless)){{
10257 if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
10258
10259 #line 1952 "./lib_core.stub"
10260 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[434],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10261
10262 #line 1955 "./lib_core.stub"
10263 {uint8_t* buf=NULL;int64_t res=
10264 Sg_ReadbAll(p,(&(buf)));
10265 if ((res)==(0)){
10266 SG_RESULT=(SG_EOF);} else {
10267 {SgObject r=Sg_MakeByteVectorFromU8Array(buf,res);
10268 buf=(NULL);
10269 SG_RESULT=(r);}}}
10270 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10271 }
10272 }
10273 }
10274 static SG_DEFINE_SUBR(core_get_bytevector_all__STUB, 1, 2,core_get_bytevector_all, SG_FALSE, NULL);
10275
core_get_char(SgObject * SG_FP,int SG_ARGC,void * data_)10276 static SgObject core_get_char(SgObject *SG_FP, int SG_ARGC, void *data_)
10277 {
10278 SgObject p_scm;
10279 SgPort* p;
10280 SG_ENTER_SUBR("get-char");
10281 if (SG_ARGC != 1)
10282 Sg_WrongNumberOfArgumentsViolation(
10283 SG_INTERN("get-char"), 1, SG_ARGC, SG_NIL);
10284 p_scm = SG_ARGREF(0);
10285 if (!SG_PORTP(p_scm))
10286 Sg_WrongTypeOfArgumentViolation(
10287 sg__rc_cgen9166.d9486[435], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10288 p = SG_PORT(p_scm);
10289 {
10290 {
10291 SgObject SG_RESULT = (SgObject)NULL;
10292
10293 #line 1998 "./lib_core.stub"
10294 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[436],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10295
10296 #line 1999 "./lib_core.stub"
10297 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[436],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10298
10299 #line 2000 "./lib_core.stub"
10300 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[436],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10301
10302 #line 2001 "./lib_core.stub"
10303 {SgChar c;if (SG_STRING_PORTP(p)){c=(Sg_GetcUnsafe(p));} else {c=(Sg_Getc(p));}if ((c)==(EOF)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_CHAR(c));}}
10304 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10305 }
10306 }
10307 }
10308 static SG_DEFINE_SUBR(core_get_char__STUB, 1, 0,core_get_char, SG_FALSE, NULL);
10309
core_lookahead_char(SgObject * SG_FP,int SG_ARGC,void * data_)10310 static SgObject core_lookahead_char(SgObject *SG_FP, int SG_ARGC, void *data_)
10311 {
10312 SgObject p_scm;
10313 SgPort* p;
10314 SG_ENTER_SUBR("lookahead-char");
10315 if (SG_ARGC != 1)
10316 Sg_WrongNumberOfArgumentsViolation(
10317 SG_INTERN("lookahead-char"), 1, SG_ARGC, SG_NIL);
10318 p_scm = SG_ARGREF(0);
10319 if (!SG_PORTP(p_scm))
10320 Sg_WrongTypeOfArgumentViolation(
10321 sg__rc_cgen9166.d9486[437], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10322 p = SG_PORT(p_scm);
10323 {
10324 {
10325 SgObject SG_RESULT = (SgObject)NULL;
10326
10327 #line 2004 "./lib_core.stub"
10328 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[438],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10329
10330 #line 2005 "./lib_core.stub"
10331 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[438],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10332
10333 #line 2006 "./lib_core.stub"
10334 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[438],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10335
10336 #line 2007 "./lib_core.stub"
10337 {SgChar c;if (SG_STRING_PORTP(p)){c=(Sg_PeekcUnsafe(p));} else {c=(Sg_Peekc(p));}if ((c)==(EOF)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_CHAR(c));}}
10338 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10339 }
10340 }
10341 }
10342 static SG_DEFINE_SUBR(core_lookahead_char__STUB, 1, 0,core_lookahead_char, SG_FALSE, NULL);
10343
core_get_string_n(SgObject * SG_FP,int SG_ARGC,void * data_)10344 static SgObject core_get_string_n(SgObject *SG_FP, int SG_ARGC, void *data_)
10345 {
10346 SgObject p_scm;
10347 SgPort* p;
10348 SgObject count_scm;
10349 long count;
10350 SG_ENTER_SUBR("get-string-n");
10351 if (SG_ARGC != 2)
10352 Sg_WrongNumberOfArgumentsViolation(
10353 SG_INTERN("get-string-n"), 2, SG_ARGC, SG_NIL);
10354 p_scm = SG_ARGREF(0);
10355 if (!SG_PORTP(p_scm))
10356 Sg_WrongTypeOfArgumentViolation(
10357 sg__rc_cgen9166.d9486[439], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10358 p = SG_PORT(p_scm);
10359 count_scm = SG_ARGREF(1);
10360 if (!SG_INTP(count_scm))
10361 Sg_WrongTypeOfArgumentViolation(
10362 sg__rc_cgen9166.d9486[439], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
10363 count = SG_INT_VALUE(count_scm);
10364 {
10365 {
10366 SgObject SG_RESULT = (SgObject)NULL;
10367
10368 #line 2010 "./lib_core.stub"
10369 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[440],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10370
10371 #line 2011 "./lib_core.stub"
10372 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[440],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10373
10374 #line 2012 "./lib_core.stub"
10375 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[440],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10376
10377 #line 2013 "./lib_core.stub"
10378 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[440],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
10379
10380 #line 2014 "./lib_core.stub"
10381 if ((count)==(0)){
10382 SG_RESULT=(Sg_MakeEmptyString());} else {
10383 {SgChar ch=Sg_Peekc(p);
10384 if ((ch)==(EOF)){
10385 SG_RESULT=(SG_EOF);} else {
10386 {SgString* buf=Sg_ReserveString(count,0);int64_t len=0;
10387 #line 2022 "./lib_core.stub"
10388 SG_PORT_LOCK_READ(p);
10389 {int64_t G10816=0;int64_t G10817=0;int64_t G10818=count;int G10819=Sg_ReadOncePortP(p);for (;(!((G10818)==(0)));){G10817=(Sg_ReadsUnsafe(p,(SG_STRING_VALUE(buf))+(G10816),G10818));len=((G10817)+(len));if ((G10817)==(0)){{break;}}if (G10819){{break;}}G10818=((G10818)-(G10817));G10816=((G10816)+(G10817));}}
10390 #line 2025 "./lib_core.stub"
10391 SG_PORT_UNLOCK_READ(p);
10392 if ((len)==(count)){
10393 SG_RESULT=(buf);} else {
10394 SG_RESULT=(Sg_Substring(buf,0,len));}}}}}
10395 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10396 }
10397 }
10398 }
10399 static SG_DEFINE_SUBR(core_get_string_n__STUB, 2, 0,core_get_string_n, SG_FALSE, NULL);
10400
core_get_string_nX(SgObject * SG_FP,int SG_ARGC,void * data_)10401 static SgObject core_get_string_nX(SgObject *SG_FP, int SG_ARGC, void *data_)
10402 {
10403 SgObject p_scm;
10404 SgPort* p;
10405 SgObject s_scm;
10406 SgString* s;
10407 SgObject start_scm;
10408 long start;
10409 SgObject count_scm;
10410 long count;
10411 SG_ENTER_SUBR("get-string-n!");
10412 if (SG_ARGC != 4)
10413 Sg_WrongNumberOfArgumentsViolation(
10414 SG_INTERN("get-string-n!"), 4, SG_ARGC, SG_NIL);
10415 p_scm = SG_ARGREF(0);
10416 if (!SG_PORTP(p_scm))
10417 Sg_WrongTypeOfArgumentViolation(
10418 sg__rc_cgen9166.d9486[441], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10419 p = SG_PORT(p_scm);
10420 s_scm = SG_ARGREF(1);
10421 if (!SG_STRINGP(s_scm))
10422 Sg_WrongTypeOfArgumentViolation(
10423 sg__rc_cgen9166.d9486[441], SG_MAKE_STRING("string"), s_scm, SG_NIL);
10424 s = SG_STRING(s_scm);
10425 start_scm = SG_ARGREF(2);
10426 if (!SG_INTP(start_scm))
10427 Sg_WrongTypeOfArgumentViolation(
10428 sg__rc_cgen9166.d9486[441], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
10429 start = SG_INT_VALUE(start_scm);
10430 count_scm = SG_ARGREF(3);
10431 if (!SG_INTP(count_scm))
10432 Sg_WrongTypeOfArgumentViolation(
10433 sg__rc_cgen9166.d9486[441], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
10434 count = SG_INT_VALUE(count_scm);
10435 {
10436 {
10437 SgObject SG_RESULT = (SgObject)NULL;
10438
10439 #line 2033 "./lib_core.stub"
10440 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10441
10442 #line 2034 "./lib_core.stub"
10443 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10444
10445 #line 2035 "./lib_core.stub"
10446 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10447
10448 #line 2036 "./lib_core.stub"
10449 if ((start)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(start),SG_NIL);}}}
10450
10451 #line 2037 "./lib_core.stub"
10452 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
10453
10454 #line 2038 "./lib_core.stub"
10455 if ((!((SG_STRING_SIZE(s))>=((start)+(count))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("out of range"),SG_MAKE_INT(SG_STRING_SIZE(s)));}}}
10456
10457 #line 2040 "./lib_core.stub"
10458 if (SG_IMMUTABLE_STRINGP(s)){{
10459 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("attempt to modify an immutable string"),s);}}}
10460
10461 #line 2043 "./lib_core.stub"
10462 if ((count)==(0)){
10463 SG_RESULT=(SG_MAKE_INT(0));} else {
10464 {SgChar ch=Sg_Peekc(p);
10465 if ((ch)==(EOF)){
10466 SG_RESULT=(SG_EOF);} else {
10467 {int64_t len=0;
10468 #line 2050 "./lib_core.stub"
10469 SG_PORT_LOCK_READ(p);
10470 {int64_t G10820=start;int64_t G10821=0;int64_t G10822=count;int G10823=Sg_ReadOncePortP(p);for (;(!((G10822)==(0)));){G10821=(Sg_ReadsUnsafe(p,(SG_STRING_VALUE(s))+(G10820),G10822));len=((G10821)+(len));if ((G10821)==(0)){{break;}}if (G10823){{break;}}G10822=((G10822)-(G10821));G10820=((G10820)+(G10821));}}
10471 #line 2053 "./lib_core.stub"
10472 SG_PORT_UNLOCK_READ(p);
10473 SG_RESULT=(SG_MAKE_INT(len));}}}}
10474 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10475 }
10476 }
10477 }
10478 static SG_DEFINE_SUBR(core_get_string_nX__STUB, 4, 0,core_get_string_nX, SG_FALSE, NULL);
10479
core_get_string_all(SgObject * SG_FP,int SG_ARGC,void * data_)10480 static SgObject core_get_string_all(SgObject *SG_FP, int SG_ARGC, void *data_)
10481 {
10482 SgObject p_scm;
10483 SgPort* p;
10484 SG_ENTER_SUBR("get-string-all");
10485 if (SG_ARGC != 1)
10486 Sg_WrongNumberOfArgumentsViolation(
10487 SG_INTERN("get-string-all"), 1, SG_ARGC, SG_NIL);
10488 p_scm = SG_ARGREF(0);
10489 if (!SG_PORTP(p_scm))
10490 Sg_WrongTypeOfArgumentViolation(
10491 sg__rc_cgen9166.d9486[443], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10492 p = SG_PORT(p_scm);
10493 {
10494 {
10495 SgObject SG_RESULT = (SgObject)NULL;
10496
10497 #line 2057 "./lib_core.stub"
10498 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[444],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10499
10500 #line 2058 "./lib_core.stub"
10501 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[444],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10502
10503 #line 2059 "./lib_core.stub"
10504 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[444],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10505
10506 #line 2060 "./lib_core.stub"
10507 {SgChar ch=Sg_Peekc(p);
10508 if ((ch)==(EOF)){
10509 SG_RESULT=(SG_EOF);} else {
10510 #line 2064 "./lib_core.stub"
10511 SG_PORT_LOCK_READ(p);
10512 #line 2066 "./lib_core.stub"
10513 {SgObject buf=Sg_ReserveString(1024,0);SgObject out=SG_FALSE;int firstP=TRUE;
10514 #line 2069 "./lib_core.stub"
10515 for (;;) {
10516 {int64_t len=
10517 Sg_ReadsUnsafe(p,SG_STRING_VALUE(buf),1024);
10518 #line 2073 "./lib_core.stub"
10519 if ((len)==(0)){
10520 if (firstP){{
10521 SG_PORT_UNLOCK_READ(p);
10522 return (SG_EOF);}}
10523 break;}else if(
10524 (len)<(1024)){
10525 if (firstP){{
10526 SG_PORT_UNLOCK_READ(p);
10527 return (Sg_Substring(buf,0,len));}}
10528 Sg_Writes(out,SG_STRING_VALUE(buf),len);
10529 break;} else {
10530 #line 2085 "./lib_core.stub"
10531 if (firstP){out=(Sg_MakeStringOutputPort(-1));}
10532 Sg_PutsUnsafe(out,buf);}
10533 firstP=(FALSE);}}
10534 SG_PORT_UNLOCK_READ(p);
10535 SG_RESULT=(Sg_GetStringFromStringPort(out));}}}
10536 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10537 }
10538 }
10539 }
10540 static SG_DEFINE_SUBR(core_get_string_all__STUB, 1, 0,core_get_string_all, SG_FALSE, NULL);
10541
core_get_line(SgObject * SG_FP,int SG_ARGC,void * data_)10542 static SgObject core_get_line(SgObject *SG_FP, int SG_ARGC, void *data_)
10543 {
10544 SgObject p_scm;
10545 SgPort* p;
10546 SG_ENTER_SUBR("get-line");
10547 if (SG_ARGC != 1)
10548 Sg_WrongNumberOfArgumentsViolation(
10549 SG_INTERN("get-line"), 1, SG_ARGC, SG_NIL);
10550 p_scm = SG_ARGREF(0);
10551 if (!SG_PORTP(p_scm))
10552 Sg_WrongTypeOfArgumentViolation(
10553 sg__rc_cgen9166.d9486[445], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10554 p = SG_PORT(p_scm);
10555 {
10556 {
10557 SgObject SG_RESULT = (SgObject)NULL;
10558
10559 #line 2092 "./lib_core.stub"
10560 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[446],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10561
10562 #line 2093 "./lib_core.stub"
10563 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[446],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10564
10565 #line 2094 "./lib_core.stub"
10566 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[446],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10567
10568 #line 2095 "./lib_core.stub"
10569 SG_RESULT=(Sg_ReadLine(p,LF));
10570 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10571 }
10572 }
10573 }
10574 static SG_DEFINE_SUBR(core_get_line__STUB, 1, 0,core_get_line, SG_FALSE, NULL);
10575
core_get_datum(SgObject * SG_FP,int SG_ARGC,void * data_)10576 static SgObject core_get_datum(SgObject *SG_FP, int SG_ARGC, void *data_)
10577 {
10578 SgObject p_scm;
10579 SgPort* p;
10580 SG_ENTER_SUBR("get-datum");
10581 if (SG_ARGC != 1)
10582 Sg_WrongNumberOfArgumentsViolation(
10583 SG_INTERN("get-datum"), 1, SG_ARGC, SG_NIL);
10584 p_scm = SG_ARGREF(0);
10585 if (!SG_PORTP(p_scm))
10586 Sg_WrongTypeOfArgumentViolation(
10587 sg__rc_cgen9166.d9486[447], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10588 p = SG_PORT(p_scm);
10589 {
10590 {
10591 SgObject SG_RESULT = (SgObject)NULL;
10592
10593 #line 2098 "./lib_core.stub"
10594 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[448],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10595
10596 #line 2099 "./lib_core.stub"
10597 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[450],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10598
10599 #line 2100 "./lib_core.stub"
10600 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[448],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10601
10602 #line 2102 "./lib_core.stub"
10603 {SgReadContext ctx=SG_STATIC_READ_CONTEXT;
10604 SG_RESULT=(Sg_ReadWithContext(p,(&(ctx))));}
10605 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10606 }
10607 }
10608 }
10609 static SG_DEFINE_SUBR(core_get_datum__STUB, 1, 0,core_get_datum, SG_FALSE, NULL);
10610
core_output_portP(SgObject * SG_FP,int SG_ARGC,void * data_)10611 static SgObject core_output_portP(SgObject *SG_FP, int SG_ARGC, void *data_)
10612 {
10613 SgObject obj_scm;
10614 SgObject obj;
10615 SG_ENTER_SUBR("output-port?");
10616 if (SG_ARGC != 1)
10617 Sg_WrongNumberOfArgumentsViolation(
10618 SG_INTERN("output-port?"), 1, SG_ARGC, SG_NIL);
10619 obj_scm = SG_ARGREF(0);
10620 obj = (obj_scm);
10621 {
10622 {
10623 int SG_RESULT = (int)FALSE;
10624 SG_RESULT=(SG_OUTPUT_PORTP(obj));
10625 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
10626 }
10627 }
10628 }
10629 static SG_DEFINE_SUBR(core_output_portP__STUB, 1, 0,core_output_portP, SG_FALSE, NULL);
10630
core_flush_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10631 static SgObject core_flush_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10632 {
10633 SgObject p_scm;
10634 SgPort* p;
10635 SG_ENTER_SUBR("flush-output-port");
10636 if ((SG_ARGC > 1 &&
10637 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10638 SG_ARGC < 0)
10639 Sg_WrongNumberOfArgumentsBetweenViolation(
10640 SG_INTERN("flush-output-port"), 0, 1, SG_ARGC, SG_NIL);
10641 if (SG_ARGC > 0+1) {
10642 p_scm = SG_ARGREF(0);
10643 } else {
10644 p_scm =
10645 #line 2114 "./lib_core.stub"
10646 Sg_CurrentOutputPort();
10647 }
10648 if (!SG_PORTP(p_scm))
10649 Sg_WrongTypeOfArgumentViolation(
10650 sg__rc_cgen9166.d9486[452], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10651 p = SG_PORT(p_scm);
10652 {
10653 Sg_FlushPort(p);
10654 SG_RETURN(SG_UNDEF);
10655 }
10656 }
10657 static SG_DEFINE_SUBR(core_flush_output_port__STUB, 0, 2,core_flush_output_port, SG_FALSE, NULL);
10658
core_output_port_buffer_mode(SgObject * SG_FP,int SG_ARGC,void * data_)10659 static SgObject core_output_port_buffer_mode(SgObject *SG_FP, int SG_ARGC, void *data_)
10660 {
10661 SgObject p_scm;
10662 SgPort* p;
10663 SG_ENTER_SUBR("output-port-buffer-mode");
10664 if (SG_ARGC != 1)
10665 Sg_WrongNumberOfArgumentsViolation(
10666 SG_INTERN("output-port-buffer-mode"), 1, SG_ARGC, SG_NIL);
10667 p_scm = SG_ARGREF(0);
10668 if (!SG_PORTP(p_scm))
10669 Sg_WrongTypeOfArgumentViolation(
10670 sg__rc_cgen9166.d9486[453], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10671 p = SG_PORT(p_scm);
10672 {
10673 {
10674 SgObject SG_RESULT = (SgObject)NULL;
10675
10676 #line 2118 "./lib_core.stub"
10677 if (SG_BUFFERED_PORTP(p)){
10678 if (SG_EQ((SG_BUFFERED_PORT(p))->mode,SG_BUFFER_MODE_NONE)){
10679 SG_RESULT=(sg__rc_cgen9166.d9486[350]);}else if(
10680 SG_EQ((SG_BUFFERED_PORT(p))->mode,SG_BUFFER_MODE_LINE)){
10681 SG_RESULT=(sg__rc_cgen9166.d9486[352]);}else if(
10682 SG_EQ((SG_BUFFERED_PORT(p))->mode,SG_BUFFER_MODE_BLOCK)){
10683 SG_RESULT=(sg__rc_cgen9166.d9486[354]);} else {
10684 #line 2126 "./lib_core.stub"
10685 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[454],SG_MAKE_STRING("port has invalid buffer mode. may be bug?"),p);}}} else {
10686 #line 2129 "./lib_core.stub"
10687 SG_RESULT=(sg__rc_cgen9166.d9486[350]);}
10688 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10689 }
10690 }
10691 }
10692 static SG_DEFINE_SUBR(core_output_port_buffer_mode__STUB, 1, 0,core_output_port_buffer_mode, SG_FALSE, NULL);
10693
get_open_flags(SgObject option,int oflags,SgObject file,int existsP,int * rappend)10694 static int get_open_flags(SgObject option,int oflags,SgObject file,int existsP,int* rappend){{
10695 #line 2134 "./lib_core.stub"
10696 {SgObject opt=Sg_SlotRefUsingClass(Sg_ClassOf(option),option,sg__rc_cgen9166.d9486[455]);
10697 if ((existsP)&&(SG_NULLP(opt))){
10698 {Sg_IOError(SG_IO_FILE_ALREADY_EXIST_ERROR,sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("file already exists"),file,SG_UNDEF);return (0);}} else {
10699 #line 2139 "./lib_core.stub"
10700 {int no_createP=(!(SG_FALSEP(Sg_Memq(sg__rc_cgen9166.d9486[459],opt))));int no_truncateP=
10701 (!(SG_FALSEP(Sg_Memq(sg__rc_cgen9166.d9486[461],opt))));int no_failP=
10702 (!(SG_FALSEP(Sg_Memq(sg__rc_cgen9166.d9486[463],opt))));int appendP=
10703 (!(SG_FALSEP(Sg_Memq(sg__rc_cgen9166.d9486[465],opt))));int open_flags=oflags;
10704 #line 2144 "./lib_core.stub"
10705 if ((no_createP)&&(no_truncateP)){
10706 if ((!(existsP))){{
10707 {Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("file-options no-create: file not exist"),file,SG_UNDEF);return (0);}}}}else if(no_createP){
10708 #line 2151 "./lib_core.stub"
10709 if (existsP){
10710 open_flags=((SG_TRUNCATE)|(open_flags));} else {
10711 {Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("file-options no-create: file not exist"),file,SG_UNDEF);return (0);}}}else if(
10712 #line 2157 "./lib_core.stub"
10713 (no_failP)&&(no_truncateP)){
10714 if ((!(existsP))){{
10715 open_flags=((SG_TRUNCATE)|(open_flags));}}}else if(no_failP){
10716 #line 2162 "./lib_core.stub"
10717 open_flags=((SG_TRUNCATE)|(open_flags));}else if(no_truncateP){
10718 #line 2164 "./lib_core.stub"
10719 if ((existsP)&&((!(appendP)))){
10720 {Sg_IOError(SG_IO_FILE_ALREADY_EXIST_ERROR,sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("file-options no-truncate: file already exist"),file,SG_UNDEF);return (0);}}else if(
10721 #line 2169 "./lib_core.stub"
10722 (!(appendP))){
10723 open_flags=((SG_TRUNCATE)|(open_flags));}}
10724 if (appendP){{(*(rappend))=(appendP);}}
10725 return (open_flags);}}
10726 #line 2174 "./lib_core.stub"
10727 return (0);}}}
core_open_file_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10728 static SgObject core_open_file_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10729 {
10730 SgObject file_scm;
10731 SgString* file;
10732 SgObject option_scm;
10733 SgObject option;
10734 SgObject mode_scm;
10735 SgSymbol* mode;
10736 SgObject transcoder_scm;
10737 SgTranscoder* transcoder;
10738 SG_ENTER_SUBR("open-file-output-port");
10739 if ((SG_ARGC > 4 &&
10740 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10741 SG_ARGC < 1)
10742 Sg_WrongNumberOfArgumentsBetweenViolation(
10743 SG_INTERN("open-file-output-port"), 1, 4, SG_ARGC, SG_NIL);
10744 file_scm = SG_ARGREF(0);
10745 if (!SG_STRINGP(file_scm))
10746 Sg_WrongTypeOfArgumentViolation(
10747 sg__rc_cgen9166.d9486[458], SG_MAKE_STRING("string"), file_scm, SG_NIL);
10748 file = SG_STRING(file_scm);
10749 if (SG_ARGC > 1+1) {
10750 option_scm = SG_ARGREF(1);
10751 } else {
10752 option_scm = SG_FALSE;
10753 }
10754 option = (option_scm);
10755 if (SG_ARGC > 2+1) {
10756 mode_scm = SG_ARGREF(2);
10757 } else {
10758 mode_scm = SG_UNBOUND;
10759 }
10760 if (!SG_UNBOUNDP(mode_scm) && !SG_SYMBOLP(mode_scm))
10761 Sg_WrongTypeOfArgumentViolation(
10762 sg__rc_cgen9166.d9486[458], SG_MAKE_STRING("symbol"), mode_scm, SG_NIL);
10763 mode = SG_SYMBOL(mode_scm);
10764 if (SG_ARGC > 3+1) {
10765 transcoder_scm = SG_ARGREF(3);
10766 } else {
10767 transcoder_scm = SG_FALSE;
10768 }
10769 if (!SG_FALSEP(transcoder_scm) && !SG_TRANSCODERP(transcoder_scm))
10770 Sg_WrongTypeOfArgumentViolation(
10771 sg__rc_cgen9166.d9486[458], SG_MAKE_STRING("transcoder"), transcoder_scm, SG_NIL);
10772 transcoder = SG_TRANSCODER(transcoder_scm);
10773 {
10774 {
10775 SgObject SG_RESULT = (SgObject)NULL;
10776
10777 #line 2180 "./lib_core.stub"
10778 if (SG_UNBOUNDP(mode)){{mode=(sg__rc_cgen9166.d9486[354]);}}
10779
10780 #line 2181 "./lib_core.stub"
10781 {SgObject fo=SG_UNDEF;int isFileExist=
10782 Sg_FileExistP(file);int openFlags=
10783 (SG_WRITE)|(SG_CREATE);int bufferMode=SG_BUFFER_MODE_BLOCK;
10784 #line 2185 "./lib_core.stub"
10785 if (SG_EQ(mode,sg__rc_cgen9166.d9486[350])){
10786 bufferMode=(SG_BUFFER_MODE_NONE);}else if(
10787 SG_EQ(mode,sg__rc_cgen9166.d9486[352])){
10788 bufferMode=(SG_BUFFER_MODE_LINE);}
10789 if (SG_FALSEP(option)){
10790 if (isFileExist){
10791 {Sg_IOError(SG_IO_FILE_ALREADY_EXIST_ERROR,sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("file already exists"),file,SG_UNDEF);return (SG_UNDEF);}}
10792 #line 2194 "./lib_core.stub"
10793 fo=(Sg_OpenFile(file,openFlags));
10794 if ((!(SG_FILEP(fo)))){{
10795 Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[457],fo,file,SG_UNDEF);}}
10796 #line 2199 "./lib_core.stub"
10797 SG_RESULT=(Sg_MakeFileBinaryOutputPort(fo,bufferMode));} else {
10798 #line 2203 "./lib_core.stub"
10799 if ((!(Sg_RecordP(option)))){{
10800 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("invalid file options"),option);}}}
10801 #line 2206 "./lib_core.stub"
10802 {int appendP=0;
10803 openFlags=(get_open_flags(option,openFlags,file,isFileExist,
10804 (&(appendP))));
10805 fo=(Sg_OpenFile(file,openFlags));
10806 if ((!(SG_FILEP(fo)))){{
10807 Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[457],fo,file,SG_UNDEF);}}
10808 #line 2213 "./lib_core.stub"
10809 if (appendP){{Sg_FileSeek(fo,0,SG_END);}}
10810 if (SG_FALSEP(transcoder)){
10811 SG_RESULT=(Sg_MakeFileBinaryOutputPort(fo,bufferMode));} else {
10812 {SgObject out=Sg_MakeFileBinaryOutputPort(fo,bufferMode);
10813 SG_RESULT=(Sg_MakeTranscodedPort(out,transcoder));}}}}}
10814 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10815 }
10816 }
10817 }
10818 static SG_DEFINE_SUBR(core_open_file_output_port__STUB, 1, 4,core_open_file_output_port, SG_FALSE, NULL);
10819
core_standard_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10820 static SgObject core_standard_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10821 {
10822 SG_ENTER_SUBR("standard-output-port");
10823 if (SG_ARGC != 0)
10824 Sg_WrongNumberOfArgumentsViolation(
10825 SG_INTERN("standard-output-port"), 0, SG_ARGC, SG_NIL);
10826 {
10827 {
10828 SgObject SG_RESULT = (SgObject)NULL;
10829 SG_RESULT=(Sg_StandardOutputPort());
10830 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10831 }
10832 }
10833 }
10834 static SG_DEFINE_SUBR(core_standard_output_port__STUB, 0, 0,core_standard_output_port, SG_FALSE, NULL);
10835
core_standard_error_port(SgObject * SG_FP,int SG_ARGC,void * data_)10836 static SgObject core_standard_error_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10837 {
10838 SG_ENTER_SUBR("standard-error-port");
10839 if (SG_ARGC != 0)
10840 Sg_WrongNumberOfArgumentsViolation(
10841 SG_INTERN("standard-error-port"), 0, SG_ARGC, SG_NIL);
10842 {
10843 {
10844 SgObject SG_RESULT = (SgObject)NULL;
10845 SG_RESULT=(Sg_StandardErrorPort());
10846 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10847 }
10848 }
10849 }
10850 static SG_DEFINE_SUBR(core_standard_error_port__STUB, 0, 0,core_standard_error_port, SG_FALSE, NULL);
10851
core_current_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10852 static SgObject core_current_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10853 {
10854 SgObject p_scm;
10855 SgObject p;
10856 SG_ENTER_SUBR("current-output-port");
10857 if ((SG_ARGC > 1 &&
10858 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10859 SG_ARGC < 0)
10860 Sg_WrongNumberOfArgumentsBetweenViolation(
10861 SG_INTERN("current-output-port"), 0, 1, SG_ARGC, SG_NIL);
10862 if (SG_ARGC > 0+1) {
10863 p_scm = SG_ARGREF(0);
10864 } else {
10865 p_scm = SG_UNBOUND;
10866 }
10867 p = (p_scm);
10868 {
10869 {
10870 SgObject SG_RESULT = (SgObject)NULL;
10871
10872 #line 2224 "./lib_core.stub"
10873 {SgVM* vm=Sg_VM();
10874 if (SG_UNBOUNDP(p)){
10875 SG_RESULT=((vm)->currentOutputPort);} else {
10876 {
10877 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[469],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
10878 (vm)->currentOutputPort=(p);
10879 SG_RESULT=(SG_UNDEF);}}}
10880 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10881 }
10882 }
10883 }
10884 static SG_DEFINE_SUBR(core_current_output_port__STUB, 0, 2,core_current_output_port, SG_FALSE, NULL);
10885
core_current_error_port(SgObject * SG_FP,int SG_ARGC,void * data_)10886 static SgObject core_current_error_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10887 {
10888 SgObject p_scm;
10889 SgObject p;
10890 SG_ENTER_SUBR("current-error-port");
10891 if ((SG_ARGC > 1 &&
10892 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10893 SG_ARGC < 0)
10894 Sg_WrongNumberOfArgumentsBetweenViolation(
10895 SG_INTERN("current-error-port"), 0, 1, SG_ARGC, SG_NIL);
10896 if (SG_ARGC > 0+1) {
10897 p_scm = SG_ARGREF(0);
10898 } else {
10899 p_scm = SG_UNBOUND;
10900 }
10901 p = (p_scm);
10902 {
10903 {
10904 SgObject SG_RESULT = (SgObject)NULL;
10905
10906 #line 2233 "./lib_core.stub"
10907 {SgVM* vm=Sg_VM();
10908 if (SG_UNBOUNDP(p)){
10909 SG_RESULT=((vm)->currentErrorPort);} else {
10910 {
10911 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[471],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
10912 (vm)->currentErrorPort=(p);
10913 SG_RESULT=(SG_UNDEF);}}}
10914 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10915 }
10916 }
10917 }
10918 static SG_DEFINE_SUBR(core_current_error_port__STUB, 0, 2,core_current_error_port, SG_FALSE, NULL);
10919
core_make_custom_binary_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10920 static SgObject core_make_custom_binary_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10921 {
10922 SgObject id_scm;
10923 SgString* id;
10924 SgObject write_scm;
10925 SgProcedure* write;
10926 SgObject getter_scm;
10927 SgObject getter;
10928 SgObject setter_scm;
10929 SgObject setter;
10930 SgObject close_scm;
10931 SgObject close;
10932 SG_ENTER_SUBR("make-custom-binary-output-port");
10933 if (SG_ARGC != 5)
10934 Sg_WrongNumberOfArgumentsViolation(
10935 SG_INTERN("make-custom-binary-output-port"), 5, SG_ARGC, SG_NIL);
10936 id_scm = SG_ARGREF(0);
10937 if (!SG_STRINGP(id_scm))
10938 Sg_WrongTypeOfArgumentViolation(
10939 sg__rc_cgen9166.d9486[472], SG_MAKE_STRING("string"), id_scm, SG_NIL);
10940 id = SG_STRING(id_scm);
10941 write_scm = SG_ARGREF(1);
10942 if (!SG_PROCEDUREP(write_scm))
10943 Sg_WrongTypeOfArgumentViolation(
10944 sg__rc_cgen9166.d9486[472], SG_MAKE_STRING("procedure"), write_scm, SG_NIL);
10945 write = SG_PROCEDURE(write_scm);
10946 getter_scm = SG_ARGREF(2);
10947 getter = (getter_scm);
10948 setter_scm = SG_ARGREF(3);
10949 setter = (setter_scm);
10950 close_scm = SG_ARGREF(4);
10951 close = (close_scm);
10952 {
10953 {
10954 SgObject SG_RESULT = (SgObject)NULL;
10955
10956 #line 2243 "./lib_core.stub"
10957 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[473],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
10958
10959 #line 2244 "./lib_core.stub"
10960 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[473],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
10961
10962 #line 2245 "./lib_core.stub"
10963 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[473],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
10964
10965 #line 2246 "./lib_core.stub"
10966 SG_RESULT=(Sg_MakeCustomBinaryPort(id,SG_OUTPUT_PORT,SG_FALSE,write,getter,setter,close,SG_FALSE));
10967 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10968 }
10969 }
10970 }
10971 static SG_DEFINE_SUBR(core_make_custom_binary_output_port__STUB, 5, 0,core_make_custom_binary_output_port, SG_FALSE, NULL);
10972
core_make_custom_textual_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10973 static SgObject core_make_custom_textual_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10974 {
10975 SgObject id_scm;
10976 SgString* id;
10977 SgObject write_scm;
10978 SgProcedure* write;
10979 SgObject getter_scm;
10980 SgObject getter;
10981 SgObject setter_scm;
10982 SgObject setter;
10983 SgObject close_scm;
10984 SgObject close;
10985 SG_ENTER_SUBR("make-custom-textual-output-port");
10986 if (SG_ARGC != 5)
10987 Sg_WrongNumberOfArgumentsViolation(
10988 SG_INTERN("make-custom-textual-output-port"), 5, SG_ARGC, SG_NIL);
10989 id_scm = SG_ARGREF(0);
10990 if (!SG_STRINGP(id_scm))
10991 Sg_WrongTypeOfArgumentViolation(
10992 sg__rc_cgen9166.d9486[474], SG_MAKE_STRING("string"), id_scm, SG_NIL);
10993 id = SG_STRING(id_scm);
10994 write_scm = SG_ARGREF(1);
10995 if (!SG_PROCEDUREP(write_scm))
10996 Sg_WrongTypeOfArgumentViolation(
10997 sg__rc_cgen9166.d9486[474], SG_MAKE_STRING("procedure"), write_scm, SG_NIL);
10998 write = SG_PROCEDURE(write_scm);
10999 getter_scm = SG_ARGREF(2);
11000 getter = (getter_scm);
11001 setter_scm = SG_ARGREF(3);
11002 setter = (setter_scm);
11003 close_scm = SG_ARGREF(4);
11004 close = (close_scm);
11005 {
11006 {
11007 SgObject SG_RESULT = (SgObject)NULL;
11008
11009 #line 2251 "./lib_core.stub"
11010 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[475],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
11011
11012 #line 2252 "./lib_core.stub"
11013 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[475],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
11014
11015 #line 2253 "./lib_core.stub"
11016 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[475],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
11017
11018 #line 2254 "./lib_core.stub"
11019 SG_RESULT=(Sg_MakeCustomTextualPort(id,SG_OUTPUT_PORT,SG_FALSE,write,getter,setter,close,SG_FALSE));
11020 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11021 }
11022 }
11023 }
11024 static SG_DEFINE_SUBR(core_make_custom_textual_output_port__STUB, 5, 0,core_make_custom_textual_output_port, SG_FALSE, NULL);
11025
core_put_u8(SgObject * SG_FP,int SG_ARGC,void * data_)11026 static SgObject core_put_u8(SgObject *SG_FP, int SG_ARGC, void *data_)
11027 {
11028 SgObject p_scm;
11029 SgPort* p;
11030 SgObject octet_scm;
11031 long octet;
11032 SgObject reckless_scm;
11033 SgObject reckless;
11034 SG_ENTER_SUBR("put-u8");
11035 if ((SG_ARGC > 3 &&
11036 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11037 SG_ARGC < 2)
11038 Sg_WrongNumberOfArgumentsBetweenViolation(
11039 SG_INTERN("put-u8"), 2, 3, SG_ARGC, SG_NIL);
11040 p_scm = SG_ARGREF(0);
11041 if (!SG_PORTP(p_scm))
11042 Sg_WrongTypeOfArgumentViolation(
11043 sg__rc_cgen9166.d9486[476], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11044 p = SG_PORT(p_scm);
11045 octet_scm = SG_ARGREF(1);
11046 if (!SG_INTP(octet_scm))
11047 Sg_WrongTypeOfArgumentViolation(
11048 sg__rc_cgen9166.d9486[476], SG_MAKE_STRING("fixnum"), octet_scm, SG_NIL);
11049 octet = SG_INT_VALUE(octet_scm);
11050 if (SG_ARGC > 2+1) {
11051 reckless_scm = SG_ARGREF(2);
11052 } else {
11053 reckless_scm = SG_FALSE;
11054 }
11055 reckless = (reckless_scm);
11056 {
11057
11058 #line 2260 "./lib_core.stub"
11059 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[477],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11060
11061 #line 2261 "./lib_core.stub"
11062 if (SG_FALSEP(reckless)){{
11063 if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[477],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
11064
11065 #line 2263 "./lib_core.stub"
11066 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[477],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11067
11068 #line 2264 "./lib_core.stub"
11069 if ((!(((0)<=(octet))&&((octet)<=(255))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[477],SG_MAKE_STRING("out of range"),SG_MAKE_INT(octet));}}}
11070
11071 #line 2265 "./lib_core.stub"
11072 if (SG_CUSTOM_PORTP(p)){Sg_Putb(p,octet);} else {Sg_PutbUnsafe(p,octet);}
11073 SG_RETURN(SG_UNDEF);
11074 }
11075 }
11076 static SG_DEFINE_SUBR(core_put_u8__STUB, 2, 2,core_put_u8, SG_FALSE, NULL);
11077
core_put_bytevector(SgObject * SG_FP,int SG_ARGC,void * data_)11078 static SgObject core_put_bytevector(SgObject *SG_FP, int SG_ARGC, void *data_)
11079 {
11080 SgObject p_scm;
11081 SgPort* p;
11082 SgObject bv_scm;
11083 SgByteVector* bv;
11084 SgObject start_scm;
11085 long start;
11086 SgObject count_scm;
11087 long count;
11088 SgObject reckless_scm;
11089 SgObject reckless;
11090 SG_ENTER_SUBR("put-bytevector");
11091 if ((SG_ARGC > 5 &&
11092 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11093 SG_ARGC < 2)
11094 Sg_WrongNumberOfArgumentsBetweenViolation(
11095 SG_INTERN("put-bytevector"), 2, 5, SG_ARGC, SG_NIL);
11096 p_scm = SG_ARGREF(0);
11097 if (!SG_PORTP(p_scm))
11098 Sg_WrongTypeOfArgumentViolation(
11099 sg__rc_cgen9166.d9486[478], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11100 p = SG_PORT(p_scm);
11101 bv_scm = SG_ARGREF(1);
11102 if (!SG_BVECTORP(bv_scm))
11103 Sg_WrongTypeOfArgumentViolation(
11104 sg__rc_cgen9166.d9486[478], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
11105 bv = SG_BVECTOR(bv_scm);
11106 if (SG_ARGC > 2+1) {
11107 start_scm = SG_ARGREF(2);
11108 } else {
11109 start_scm = SG_MAKE_INT(0);
11110 }
11111 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
11112 Sg_WrongTypeOfArgumentViolation(
11113 sg__rc_cgen9166.d9486[478], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
11114 start = SG_INT_VALUE(start_scm);
11115 if (SG_ARGC > 3+1) {
11116 count_scm = SG_ARGREF(3);
11117 } else {
11118 count_scm =
11119 #line 2270 "./lib_core.stub"
11120 SG_MAKE_INT((SG_BVECTOR_SIZE(bv))-(start));
11121 }
11122 if (!SG_INTP(count_scm))
11123 Sg_WrongTypeOfArgumentViolation(
11124 sg__rc_cgen9166.d9486[478], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
11125 count = SG_INT_VALUE(count_scm);
11126 if (SG_ARGC > 4+1) {
11127 reckless_scm = SG_ARGREF(4);
11128 } else {
11129 reckless_scm = SG_FALSE;
11130 }
11131 reckless = (reckless_scm);
11132 {
11133
11134 #line 2273 "./lib_core.stub"
11135 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11136
11137 #line 2274 "./lib_core.stub"
11138 if (SG_FALSEP(reckless)){{
11139 if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
11140
11141 #line 2276 "./lib_core.stub"
11142 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11143
11144 #line 2277 "./lib_core.stub"
11145 if ((start)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(start),SG_NIL);}}}
11146
11147 #line 2278 "./lib_core.stub"
11148 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
11149
11150 #line 2279 "./lib_core.stub"
11151 if ((!(((count)+(start))<=(SG_BVECTOR_SIZE(bv))))){{
11152 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("invalid range"),SG_NIL);}}}
11153
11154 #line 2282 "./lib_core.stub"
11155 Sg_Writeb(p,SG_BVECTOR_ELEMENTS(bv),start,count);
11156 SG_RETURN(SG_UNDEF);
11157 }
11158 }
11159 static SG_DEFINE_SUBR(core_put_bytevector__STUB, 2, 4,core_put_bytevector, SG_FALSE, NULL);
11160
core_put_char(SgObject * SG_FP,int SG_ARGC,void * data_)11161 static SgObject core_put_char(SgObject *SG_FP, int SG_ARGC, void *data_)
11162 {
11163 SgObject p_scm;
11164 SgPort* p;
11165 SgObject ch_scm;
11166 SgChar ch;
11167 SG_ENTER_SUBR("put-char");
11168 if (SG_ARGC != 2)
11169 Sg_WrongNumberOfArgumentsViolation(
11170 SG_INTERN("put-char"), 2, SG_ARGC, SG_NIL);
11171 p_scm = SG_ARGREF(0);
11172 if (!SG_PORTP(p_scm))
11173 Sg_WrongTypeOfArgumentViolation(
11174 sg__rc_cgen9166.d9486[480], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11175 p = SG_PORT(p_scm);
11176 ch_scm = SG_ARGREF(1);
11177 if (!SG_CHARP(ch_scm))
11178 Sg_WrongTypeOfArgumentViolation(
11179 sg__rc_cgen9166.d9486[480], SG_MAKE_STRING("character"), ch_scm, SG_NIL);
11180 ch = SG_CHAR_VALUE(ch_scm);
11181 {
11182
11183 #line 2286 "./lib_core.stub"
11184 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[481],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11185
11186 #line 2287 "./lib_core.stub"
11187 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[481],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11188
11189 #line 2288 "./lib_core.stub"
11190 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[481],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11191
11192 #line 2289 "./lib_core.stub"
11193 if (SG_STRING_PORTP(p)){Sg_PutcUnsafe(p,ch);} else {Sg_Putc(p,ch);}
11194 SG_RETURN(SG_UNDEF);
11195 }
11196 }
11197 static SG_DEFINE_SUBR(core_put_char__STUB, 2, 0,core_put_char, SG_FALSE, NULL);
11198
core_put_string(SgObject * SG_FP,int SG_ARGC,void * data_)11199 static SgObject core_put_string(SgObject *SG_FP, int SG_ARGC, void *data_)
11200 {
11201 SgObject p_scm;
11202 SgPort* p;
11203 SgObject s_scm;
11204 SgString* s;
11205 SgObject start_scm;
11206 long start;
11207 SgObject count_scm;
11208 long count;
11209 SG_ENTER_SUBR("put-string");
11210 if ((SG_ARGC > 4 &&
11211 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11212 SG_ARGC < 2)
11213 Sg_WrongNumberOfArgumentsBetweenViolation(
11214 SG_INTERN("put-string"), 2, 4, SG_ARGC, SG_NIL);
11215 p_scm = SG_ARGREF(0);
11216 if (!SG_PORTP(p_scm))
11217 Sg_WrongTypeOfArgumentViolation(
11218 sg__rc_cgen9166.d9486[482], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11219 p = SG_PORT(p_scm);
11220 s_scm = SG_ARGREF(1);
11221 if (!SG_STRINGP(s_scm))
11222 Sg_WrongTypeOfArgumentViolation(
11223 sg__rc_cgen9166.d9486[482], SG_MAKE_STRING("string"), s_scm, SG_NIL);
11224 s = SG_STRING(s_scm);
11225 if (SG_ARGC > 2+1) {
11226 start_scm = SG_ARGREF(2);
11227 } else {
11228 start_scm = SG_MAKE_INT(0);
11229 }
11230 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
11231 Sg_WrongTypeOfArgumentViolation(
11232 sg__rc_cgen9166.d9486[482], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
11233 start = SG_INT_VALUE(start_scm);
11234 if (SG_ARGC > 3+1) {
11235 count_scm = SG_ARGREF(3);
11236 } else {
11237 count_scm =
11238 #line 2294 "./lib_core.stub"
11239 SG_MAKE_INT((SG_STRING_SIZE(s))-(start));
11240 }
11241 if (!SG_INTP(count_scm))
11242 Sg_WrongTypeOfArgumentViolation(
11243 sg__rc_cgen9166.d9486[482], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
11244 count = SG_INT_VALUE(count_scm);
11245 {
11246
11247 #line 2296 "./lib_core.stub"
11248 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11249
11250 #line 2297 "./lib_core.stub"
11251 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11252
11253 #line 2298 "./lib_core.stub"
11254 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11255
11256 #line 2299 "./lib_core.stub"
11257 if ((start)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(start),SG_NIL);}}}
11258
11259 #line 2300 "./lib_core.stub"
11260 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
11261
11262 #line 2301 "./lib_core.stub"
11263 if ((!(((count)+(start))<=(SG_STRING_SIZE(s))))){{
11264 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("invalid range"),SG_NIL);}}}
11265
11266 #line 2303 "./lib_core.stub"
11267 Sg_Writes(p,(SG_STRING_VALUE(s))+(start),count);
11268 SG_RETURN(SG_UNDEF);
11269 }
11270 }
11271 static SG_DEFINE_SUBR(core_put_string__STUB, 2, 3,core_put_string, SG_FALSE, NULL);
11272
core_put_datum(SgObject * SG_FP,int SG_ARGC,void * data_)11273 static SgObject core_put_datum(SgObject *SG_FP, int SG_ARGC, void *data_)
11274 {
11275 SgObject p_scm;
11276 SgPort* p;
11277 SgObject datum_scm;
11278 SgObject datum;
11279 SG_ENTER_SUBR("put-datum");
11280 if (SG_ARGC != 2)
11281 Sg_WrongNumberOfArgumentsViolation(
11282 SG_INTERN("put-datum"), 2, SG_ARGC, SG_NIL);
11283 p_scm = SG_ARGREF(0);
11284 if (!SG_PORTP(p_scm))
11285 Sg_WrongTypeOfArgumentViolation(
11286 sg__rc_cgen9166.d9486[484], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11287 p = SG_PORT(p_scm);
11288 datum_scm = SG_ARGREF(1);
11289 datum = (datum_scm);
11290 {
11291
11292 #line 2306 "./lib_core.stub"
11293 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[485],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11294
11295 #line 2307 "./lib_core.stub"
11296 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[485],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11297
11298 #line 2308 "./lib_core.stub"
11299 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[485],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11300
11301 #line 2309 "./lib_core.stub"
11302 Sg_Write(datum,p,SG_WRITE_WRITE);
11303 SG_RETURN(SG_UNDEF);
11304 }
11305 }
11306 static SG_DEFINE_SUBR(core_put_datum__STUB, 2, 0,core_put_datum, SG_FALSE, NULL);
11307
core_open_file_input_2foutput_port(SgObject * SG_FP,int SG_ARGC,void * data_)11308 static SgObject core_open_file_input_2foutput_port(SgObject *SG_FP, int SG_ARGC, void *data_)
11309 {
11310 SgObject file_scm;
11311 SgString* file;
11312 SgObject option_scm;
11313 SgObject option;
11314 SgObject mode_scm;
11315 SgSymbol* mode;
11316 SgObject transcoder_scm;
11317 SgTranscoder* transcoder;
11318 SG_ENTER_SUBR("open-file-input/output-port");
11319 if ((SG_ARGC > 4 &&
11320 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11321 SG_ARGC < 1)
11322 Sg_WrongNumberOfArgumentsBetweenViolation(
11323 SG_INTERN("open-file-input/output-port"), 1, 4, SG_ARGC, SG_NIL);
11324 file_scm = SG_ARGREF(0);
11325 if (!SG_STRINGP(file_scm))
11326 Sg_WrongTypeOfArgumentViolation(
11327 sg__rc_cgen9166.d9486[486], SG_MAKE_STRING("string"), file_scm, SG_NIL);
11328 file = SG_STRING(file_scm);
11329 if (SG_ARGC > 1+1) {
11330 option_scm = SG_ARGREF(1);
11331 } else {
11332 option_scm = SG_FALSE;
11333 }
11334 option = (option_scm);
11335 if (SG_ARGC > 2+1) {
11336 mode_scm = SG_ARGREF(2);
11337 } else {
11338 mode_scm = SG_UNBOUND;
11339 }
11340 if (!SG_UNBOUNDP(mode_scm) && !SG_SYMBOLP(mode_scm))
11341 Sg_WrongTypeOfArgumentViolation(
11342 sg__rc_cgen9166.d9486[486], SG_MAKE_STRING("symbol"), mode_scm, SG_NIL);
11343 mode = SG_SYMBOL(mode_scm);
11344 if (SG_ARGC > 3+1) {
11345 transcoder_scm = SG_ARGREF(3);
11346 } else {
11347 transcoder_scm = SG_FALSE;
11348 }
11349 if (!SG_FALSEP(transcoder_scm) && !SG_TRANSCODERP(transcoder_scm))
11350 Sg_WrongTypeOfArgumentViolation(
11351 sg__rc_cgen9166.d9486[486], SG_MAKE_STRING("transcoder"), transcoder_scm, SG_NIL);
11352 transcoder = SG_TRANSCODER(transcoder_scm);
11353 {
11354 {
11355 SgObject SG_RESULT = (SgObject)NULL;
11356
11357 #line 2316 "./lib_core.stub"
11358 if (SG_UNBOUNDP(mode)){{
11359 mode=(sg__rc_cgen9166.d9486[354]);}}
11360
11361 #line 2318 "./lib_core.stub"
11362 {SgObject fo=SG_UNDEF;int isFileExist=
11363 Sg_FileExistP(file);int openFlags=
11364 (SG_READ)|((SG_WRITE)|(SG_CREATE));int bufferMode=SG_BUFFER_MODE_BLOCK;
11365 #line 2322 "./lib_core.stub"
11366 if (SG_EQ(mode,sg__rc_cgen9166.d9486[350])){
11367 bufferMode=(SG_BUFFER_MODE_NONE);}else if(
11368 SG_EQ(mode,sg__rc_cgen9166.d9486[352])){
11369 bufferMode=(SG_BUFFER_MODE_LINE);}
11370 if (SG_FALSEP(option)){
11371 if (isFileExist){
11372 {Sg_IOError(SG_IO_FILE_ALREADY_EXIST_ERROR,sg__rc_cgen9166.d9486[487],SG_MAKE_STRING("file already exists"),file,SG_UNDEF);return (SG_UNDEF);}}
11373 #line 2331 "./lib_core.stub"
11374 fo=(Sg_OpenFile(file,openFlags));
11375 if ((!(SG_FILEP(fo)))){{
11376 Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[487],fo,file,SG_UNDEF);}}
11377 #line 2335 "./lib_core.stub"
11378 SG_RESULT=(Sg_MakeFileBinaryInputOutputPort(fo,bufferMode));} else {
11379 #line 2337 "./lib_core.stub"
11380 if ((!(Sg_RecordP(option)))){{
11381 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("invalid file options"),option);}}}
11382 #line 2340 "./lib_core.stub"
11383 {int appendP=0;
11384 openFlags=(get_open_flags(option,openFlags,file,isFileExist,
11385 (&(appendP))));
11386 fo=(Sg_OpenFile(file,openFlags));
11387 if ((!(SG_FILEP(fo)))){{
11388 Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[487],fo,file,SG_UNDEF);}}
11389 #line 2347 "./lib_core.stub"
11390 if (appendP){{Sg_FileSeek(fo,0,SG_END);}}
11391 if (SG_FALSEP(transcoder)){
11392 SG_RESULT=(Sg_MakeFileBinaryInputOutputPort(fo,bufferMode));} else {
11393 {SgObject out=Sg_MakeFileBinaryInputOutputPort(fo,bufferMode);
11394 SG_RESULT=(Sg_MakeTranscodedPort(out,transcoder));}}}}}
11395 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11396 }
11397 }
11398 }
11399 static SG_DEFINE_SUBR(core_open_file_input_2foutput_port__STUB, 1, 4,core_open_file_input_2foutput_port, SG_FALSE, NULL);
11400
core_make_custom_binary_input_2foutput_port(SgObject * SG_FP,int SG_ARGC,void * data_)11401 static SgObject core_make_custom_binary_input_2foutput_port(SgObject *SG_FP, int SG_ARGC, void *data_)
11402 {
11403 SgObject id_scm;
11404 SgString* id;
11405 SgObject read_scm;
11406 SgProcedure* read;
11407 SgObject write_scm;
11408 SgProcedure* write;
11409 SgObject getter_scm;
11410 SgObject getter;
11411 SgObject setter_scm;
11412 SgObject setter;
11413 SgObject close_scm;
11414 SgObject close;
11415 SgObject ready_scm;
11416 SgObject ready;
11417 SG_ENTER_SUBR("make-custom-binary-input/output-port");
11418 if ((SG_ARGC > 7 &&
11419 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11420 SG_ARGC < 6)
11421 Sg_WrongNumberOfArgumentsBetweenViolation(
11422 SG_INTERN("make-custom-binary-input/output-port"), 6, 7, SG_ARGC, SG_NIL);
11423 id_scm = SG_ARGREF(0);
11424 if (!SG_STRINGP(id_scm))
11425 Sg_WrongTypeOfArgumentViolation(
11426 sg__rc_cgen9166.d9486[488], SG_MAKE_STRING("string"), id_scm, SG_NIL);
11427 id = SG_STRING(id_scm);
11428 read_scm = SG_ARGREF(1);
11429 if (!SG_PROCEDUREP(read_scm))
11430 Sg_WrongTypeOfArgumentViolation(
11431 sg__rc_cgen9166.d9486[488], SG_MAKE_STRING("procedure"), read_scm, SG_NIL);
11432 read = SG_PROCEDURE(read_scm);
11433 write_scm = SG_ARGREF(2);
11434 if (!SG_PROCEDUREP(write_scm))
11435 Sg_WrongTypeOfArgumentViolation(
11436 sg__rc_cgen9166.d9486[488], SG_MAKE_STRING("procedure"), write_scm, SG_NIL);
11437 write = SG_PROCEDURE(write_scm);
11438 getter_scm = SG_ARGREF(3);
11439 getter = (getter_scm);
11440 setter_scm = SG_ARGREF(4);
11441 setter = (setter_scm);
11442 close_scm = SG_ARGREF(5);
11443 close = (close_scm);
11444 if (SG_ARGC > 6+1) {
11445 ready_scm = SG_ARGREF(6);
11446 } else {
11447 ready_scm = SG_FALSE;
11448 }
11449 ready = (ready_scm);
11450 {
11451 {
11452 SgObject SG_RESULT = (SgObject)NULL;
11453
11454 #line 2356 "./lib_core.stub"
11455 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[489],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
11456
11457 #line 2357 "./lib_core.stub"
11458 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[489],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
11459
11460 #line 2358 "./lib_core.stub"
11461 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[489],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
11462
11463 #line 2359 "./lib_core.stub"
11464 if ((!((SG_FALSEP(ready))||(SG_PROCEDUREP(ready))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[489],SG_MAKE_STRING("procedure or #f"),ready,SG_NIL);}}}
11465
11466 #line 2360 "./lib_core.stub"
11467 SG_RESULT=(Sg_MakeCustomBinaryPort(id,SG_IN_OUT_PORT,read,write,getter,setter,close,ready));
11468 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11469 }
11470 }
11471 }
11472 static SG_DEFINE_SUBR(core_make_custom_binary_input_2foutput_port__STUB, 6, 2,core_make_custom_binary_input_2foutput_port, SG_FALSE, NULL);
11473
core_make_custom_textual_input_2foutput_port(SgObject * SG_FP,int SG_ARGC,void * data_)11474 static SgObject core_make_custom_textual_input_2foutput_port(SgObject *SG_FP, int SG_ARGC, void *data_)
11475 {
11476 SgObject id_scm;
11477 SgString* id;
11478 SgObject read_scm;
11479 SgProcedure* read;
11480 SgObject write_scm;
11481 SgProcedure* write;
11482 SgObject getter_scm;
11483 SgObject getter;
11484 SgObject setter_scm;
11485 SgObject setter;
11486 SgObject close_scm;
11487 SgObject close;
11488 SgObject ready_scm;
11489 SgObject ready;
11490 SG_ENTER_SUBR("make-custom-textual-input/output-port");
11491 if ((SG_ARGC > 7 &&
11492 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11493 SG_ARGC < 6)
11494 Sg_WrongNumberOfArgumentsBetweenViolation(
11495 SG_INTERN("make-custom-textual-input/output-port"), 6, 7, SG_ARGC, SG_NIL);
11496 id_scm = SG_ARGREF(0);
11497 if (!SG_STRINGP(id_scm))
11498 Sg_WrongTypeOfArgumentViolation(
11499 sg__rc_cgen9166.d9486[490], SG_MAKE_STRING("string"), id_scm, SG_NIL);
11500 id = SG_STRING(id_scm);
11501 read_scm = SG_ARGREF(1);
11502 if (!SG_PROCEDUREP(read_scm))
11503 Sg_WrongTypeOfArgumentViolation(
11504 sg__rc_cgen9166.d9486[490], SG_MAKE_STRING("procedure"), read_scm, SG_NIL);
11505 read = SG_PROCEDURE(read_scm);
11506 write_scm = SG_ARGREF(2);
11507 if (!SG_PROCEDUREP(write_scm))
11508 Sg_WrongTypeOfArgumentViolation(
11509 sg__rc_cgen9166.d9486[490], SG_MAKE_STRING("procedure"), write_scm, SG_NIL);
11510 write = SG_PROCEDURE(write_scm);
11511 getter_scm = SG_ARGREF(3);
11512 getter = (getter_scm);
11513 setter_scm = SG_ARGREF(4);
11514 setter = (setter_scm);
11515 close_scm = SG_ARGREF(5);
11516 close = (close_scm);
11517 if (SG_ARGC > 6+1) {
11518 ready_scm = SG_ARGREF(6);
11519 } else {
11520 ready_scm = SG_FALSE;
11521 }
11522 ready = (ready_scm);
11523 {
11524 {
11525 SgObject SG_RESULT = (SgObject)NULL;
11526
11527 #line 2366 "./lib_core.stub"
11528 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[491],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
11529
11530 #line 2367 "./lib_core.stub"
11531 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[491],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
11532
11533 #line 2368 "./lib_core.stub"
11534 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[491],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
11535
11536 #line 2369 "./lib_core.stub"
11537 if ((!((SG_FALSEP(ready))||(SG_PROCEDUREP(ready))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[491],SG_MAKE_STRING("procedure or #f"),ready,SG_NIL);}}}
11538
11539 #line 2370 "./lib_core.stub"
11540 SG_RESULT=(Sg_MakeCustomTextualPort(id,SG_IN_OUT_PORT,read,write,getter,setter,close,ready));
11541 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11542 }
11543 }
11544 }
11545 static SG_DEFINE_SUBR(core_make_custom_textual_input_2foutput_port__STUB, 6, 2,core_make_custom_textual_input_2foutput_port, SG_FALSE, NULL);
11546
core_close_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)11547 static SgObject core_close_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
11548 {
11549 SgObject p_scm;
11550 SgPort* p;
11551 SG_ENTER_SUBR("close-input-port");
11552 if (SG_ARGC != 1)
11553 Sg_WrongNumberOfArgumentsViolation(
11554 SG_INTERN("close-input-port"), 1, SG_ARGC, SG_NIL);
11555 p_scm = SG_ARGREF(0);
11556 if (!SG_PORTP(p_scm))
11557 Sg_WrongTypeOfArgumentViolation(
11558 sg__rc_cgen9166.d9486[492], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11559 p = SG_PORT(p_scm);
11560 {
11561
11562 #line 2375 "./lib_core.stub"
11563 if ((!(SG_INPUT_PORTP(p)))){{
11564 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[493],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
11565
11566 #line 2377 "./lib_core.stub"
11567 Sg_ClosePort(p);
11568 SG_RETURN(SG_UNDEF);
11569 }
11570 }
11571 static SG_DEFINE_SUBR(core_close_input_port__STUB, 1, 0,core_close_input_port, SG_FALSE, NULL);
11572
core_close_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)11573 static SgObject core_close_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
11574 {
11575 SgObject p_scm;
11576 SgPort* p;
11577 SG_ENTER_SUBR("close-output-port");
11578 if (SG_ARGC != 1)
11579 Sg_WrongNumberOfArgumentsViolation(
11580 SG_INTERN("close-output-port"), 1, SG_ARGC, SG_NIL);
11581 p_scm = SG_ARGREF(0);
11582 if (!SG_PORTP(p_scm))
11583 Sg_WrongTypeOfArgumentViolation(
11584 sg__rc_cgen9166.d9486[494], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11585 p = SG_PORT(p_scm);
11586 {
11587
11588 #line 2380 "./lib_core.stub"
11589 if ((!(SG_OUTPUT_PORTP(p)))){{
11590 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[495],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11591
11592 #line 2382 "./lib_core.stub"
11593 Sg_ClosePort(p);
11594 SG_RETURN(SG_UNDEF);
11595 }
11596 }
11597 static SG_DEFINE_SUBR(core_close_output_port__STUB, 1, 0,core_close_output_port, SG_FALSE, NULL);
11598
core_read_char(SgObject * SG_FP,int SG_ARGC,void * data_)11599 static SgObject core_read_char(SgObject *SG_FP, int SG_ARGC, void *data_)
11600 {
11601 SgObject p_scm;
11602 SgPort* p;
11603 SG_ENTER_SUBR("read-char");
11604 if ((SG_ARGC > 1 &&
11605 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11606 SG_ARGC < 0)
11607 Sg_WrongNumberOfArgumentsBetweenViolation(
11608 SG_INTERN("read-char"), 0, 1, SG_ARGC, SG_NIL);
11609 if (SG_ARGC > 0+1) {
11610 p_scm = SG_ARGREF(0);
11611 } else {
11612 p_scm =
11613 #line 2384 "./lib_core.stub"
11614 Sg_CurrentInputPort();
11615 }
11616 if (!SG_PORTP(p_scm))
11617 Sg_WrongTypeOfArgumentViolation(
11618 sg__rc_cgen9166.d9486[496], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11619 p = SG_PORT(p_scm);
11620 {
11621 {
11622 SgObject SG_RESULT = (SgObject)NULL;
11623
11624 #line 2385 "./lib_core.stub"
11625 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[497],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11626
11627 #line 2386 "./lib_core.stub"
11628 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[497],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
11629
11630 #line 2387 "./lib_core.stub"
11631 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[497],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11632
11633 #line 2388 "./lib_core.stub"
11634 {SgChar c;if (SG_STRING_PORTP(p)){c=(Sg_GetcUnsafe(p));} else {c=(Sg_Getc(p));}if ((c)==(EOF)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_CHAR(c));}}
11635 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11636 }
11637 }
11638 }
11639 static SG_DEFINE_SUBR(core_read_char__STUB, 0, 2,core_read_char, SG_FALSE, NULL);
11640
core_peek_char(SgObject * SG_FP,int SG_ARGC,void * data_)11641 static SgObject core_peek_char(SgObject *SG_FP, int SG_ARGC, void *data_)
11642 {
11643 SgObject p_scm;
11644 SgPort* p;
11645 SG_ENTER_SUBR("peek-char");
11646 if ((SG_ARGC > 1 &&
11647 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11648 SG_ARGC < 0)
11649 Sg_WrongNumberOfArgumentsBetweenViolation(
11650 SG_INTERN("peek-char"), 0, 1, SG_ARGC, SG_NIL);
11651 if (SG_ARGC > 0+1) {
11652 p_scm = SG_ARGREF(0);
11653 } else {
11654 p_scm =
11655 #line 2390 "./lib_core.stub"
11656 Sg_CurrentInputPort();
11657 }
11658 if (!SG_PORTP(p_scm))
11659 Sg_WrongTypeOfArgumentViolation(
11660 sg__rc_cgen9166.d9486[498], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11661 p = SG_PORT(p_scm);
11662 {
11663 {
11664 SgObject SG_RESULT = (SgObject)NULL;
11665
11666 #line 2391 "./lib_core.stub"
11667 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[499],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11668
11669 #line 2392 "./lib_core.stub"
11670 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[499],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
11671
11672 #line 2393 "./lib_core.stub"
11673 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[499],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11674
11675 #line 2394 "./lib_core.stub"
11676 {SgChar c;if (SG_STRING_PORTP(p)){c=(Sg_PeekcUnsafe(p));} else {c=(Sg_Peekc(p));}if ((c)==(EOF)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_CHAR(c));}}
11677 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11678 }
11679 }
11680 }
11681 static SG_DEFINE_SUBR(core_peek_char__STUB, 0, 2,core_peek_char, SG_FALSE, NULL);
11682
core_read(SgObject * SG_FP,int SG_ARGC,void * data_)11683 static SgObject core_read(SgObject *SG_FP, int SG_ARGC, void *data_)
11684 {
11685 SgObject p_scm;
11686 SgPort* p;
11687 SgObject source_infoP_scm = SG_FALSE;
11688 int source_infoP;
11689 SgObject read_sharedP_scm = SG_FALSE;
11690 int read_sharedP;
11691 int SG_KEYARGC = SG_ARGC-1-1;
11692 SG_ENTER_SUBR("read");
11693 if ((SG_ARGC > 5 &&
11694 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11695 SG_ARGC < 0)
11696 Sg_WrongNumberOfArgumentsBetweenViolation(
11697 SG_INTERN("read"), 0, 5, SG_ARGC, SG_NIL);
11698 if (SG_ARGC > 0+1) {
11699 p_scm = SG_ARGREF(0);
11700 } else {
11701 p_scm =
11702 #line 2396 "./lib_core.stub"
11703 Sg_CurrentInputPort();
11704 }
11705 if (!SG_PORTP(p_scm))
11706 Sg_WrongTypeOfArgumentViolation(
11707 sg__rc_cgen9166.d9486[504], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11708 p = SG_PORT(p_scm);
11709 if (SG_KEYARGC > 0 && SG_KEYARGC % 2)
11710 Sg_AssertionViolation(sg__rc_cgen9166.d9486[504], SG_MAKE_STRING("keyword list not even"), Sg_ArrayToList(SG_FP+1, SG_ARGC-1-1));
11711 { int SG_KEYINDEX;
11712 for (SG_KEYINDEX=0; SG_KEYINDEX<SG_KEYARGC; SG_KEYINDEX+=2) {
11713 if (SG_EQ(SG_ARGREF(1+SG_KEYINDEX), sg__rc_cgen9166.d9486[500])) {
11714 source_infoP_scm = SG_ARGREF(1+SG_KEYINDEX+1);
11715 } else
11716 if (SG_EQ(SG_ARGREF(1+SG_KEYINDEX), sg__rc_cgen9166.d9486[502])) {
11717 read_sharedP_scm = SG_ARGREF(1+SG_KEYINDEX+1);
11718 }
11719 else Sg_AssertionViolation(sg__rc_cgen9166.d9486[504], SG_MAKE_STRING("unknown keyword"), SG_ARGREF(1+SG_KEYINDEX));
11720 }
11721 }
11722 if (!SG_FALSEP(source_infoP_scm) && !SG_BOOLP(source_infoP_scm))
11723 Sg_WrongTypeOfArgumentViolation(
11724 sg__rc_cgen9166.d9486[504], SG_MAKE_STRING("boolean"), source_infoP_scm, SG_NIL);
11725 source_infoP = SG_BOOL_VALUE(source_infoP_scm);
11726 if (!SG_FALSEP(read_sharedP_scm) && !SG_BOOLP(read_sharedP_scm))
11727 Sg_WrongTypeOfArgumentViolation(
11728 sg__rc_cgen9166.d9486[504], SG_MAKE_STRING("boolean"), read_sharedP_scm, SG_NIL);
11729 read_sharedP = SG_BOOL_VALUE(read_sharedP_scm);
11730 {
11731 {
11732 SgObject SG_RESULT = (SgObject)NULL;
11733
11734 #line 2399 "./lib_core.stub"
11735 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[505],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11736
11737 #line 2400 "./lib_core.stub"
11738 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[505],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
11739
11740 #line 2401 "./lib_core.stub"
11741 {SgReadContext ctx=SG_STATIC_READ_CONTEXT;
11742 if (source_infoP){{
11743 (ctx).flags=(SG_READ_SOURCE_INFO);}}
11744 if (read_sharedP){{
11745 (ctx).graph=(Sg_MakeHashTableSimple(SG_HASH_EQ,1));}}
11746 SG_RESULT=(Sg_ReadWithContext(p,(&(ctx))));}
11747 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11748 }
11749 }
11750 }
11751 static SG_DEFINE_SUBR(core_read__STUB, 0, 6,core_read, SG_FALSE, NULL);
11752
core_write_char(SgObject * SG_FP,int SG_ARGC,void * data_)11753 static SgObject core_write_char(SgObject *SG_FP, int SG_ARGC, void *data_)
11754 {
11755 SgObject ch_scm;
11756 SgChar ch;
11757 SgObject p_scm;
11758 SgPort* p;
11759 SG_ENTER_SUBR("write-char");
11760 if ((SG_ARGC > 2 &&
11761 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11762 SG_ARGC < 1)
11763 Sg_WrongNumberOfArgumentsBetweenViolation(
11764 SG_INTERN("write-char"), 1, 2, SG_ARGC, SG_NIL);
11765 ch_scm = SG_ARGREF(0);
11766 if (!SG_CHARP(ch_scm))
11767 Sg_WrongTypeOfArgumentViolation(
11768 sg__rc_cgen9166.d9486[506], SG_MAKE_STRING("character"), ch_scm, SG_NIL);
11769 ch = SG_CHAR_VALUE(ch_scm);
11770 if (SG_ARGC > 1+1) {
11771 p_scm = SG_ARGREF(1);
11772 } else {
11773 p_scm =
11774 #line 2409 "./lib_core.stub"
11775 Sg_CurrentOutputPort();
11776 }
11777 if (!SG_PORTP(p_scm))
11778 Sg_WrongTypeOfArgumentViolation(
11779 sg__rc_cgen9166.d9486[506], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11780 p = SG_PORT(p_scm);
11781 {
11782
11783 #line 2411 "./lib_core.stub"
11784 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[507],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11785
11786 #line 2412 "./lib_core.stub"
11787 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[507],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11788
11789 #line 2413 "./lib_core.stub"
11790 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[507],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11791
11792 #line 2414 "./lib_core.stub"
11793 if (SG_STRING_PORTP(p)){Sg_PutcUnsafe(p,ch);} else {Sg_Putc(p,ch);}
11794 SG_RETURN(SG_UNDEF);
11795 }
11796 }
11797 static SG_DEFINE_SUBR(core_write_char__STUB, 1, 2,core_write_char, SG_FALSE, NULL);
11798
core_newline(SgObject * SG_FP,int SG_ARGC,void * data_)11799 static SgObject core_newline(SgObject *SG_FP, int SG_ARGC, void *data_)
11800 {
11801 SgObject p_scm;
11802 SgPort* p;
11803 SG_ENTER_SUBR("newline");
11804 if ((SG_ARGC > 1 &&
11805 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11806 SG_ARGC < 0)
11807 Sg_WrongNumberOfArgumentsBetweenViolation(
11808 SG_INTERN("newline"), 0, 1, SG_ARGC, SG_NIL);
11809 if (SG_ARGC > 0+1) {
11810 p_scm = SG_ARGREF(0);
11811 } else {
11812 p_scm =
11813 #line 2416 "./lib_core.stub"
11814 Sg_CurrentOutputPort();
11815 }
11816 if (!SG_PORTP(p_scm))
11817 Sg_WrongTypeOfArgumentViolation(
11818 sg__rc_cgen9166.d9486[508], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11819 p = SG_PORT(p_scm);
11820 {
11821
11822 #line 2417 "./lib_core.stub"
11823 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[509],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11824
11825 #line 2418 "./lib_core.stub"
11826 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[509],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11827
11828 #line 2419 "./lib_core.stub"
11829 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[509],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11830
11831 #line 2420 "./lib_core.stub"
11832 if (SG_STRING_PORTP(p)){Sg_PutcUnsafe(p,'\n');} else {Sg_Putc(p,'\n');}
11833 SG_RETURN(SG_UNDEF);
11834 }
11835 }
11836 static SG_DEFINE_SUBR(core_newline__STUB, 0, 2,core_newline, SG_FALSE, NULL);
11837
core_display(SgObject * SG_FP,int SG_ARGC,void * data_)11838 static SgObject core_display(SgObject *SG_FP, int SG_ARGC, void *data_)
11839 {
11840 SgObject o_scm;
11841 SgObject o;
11842 SgObject p_scm;
11843 SgPort* p;
11844 SG_ENTER_SUBR("display");
11845 if ((SG_ARGC > 2 &&
11846 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11847 SG_ARGC < 1)
11848 Sg_WrongNumberOfArgumentsBetweenViolation(
11849 SG_INTERN("display"), 1, 2, SG_ARGC, SG_NIL);
11850 o_scm = SG_ARGREF(0);
11851 o = (o_scm);
11852 if (SG_ARGC > 1+1) {
11853 p_scm = SG_ARGREF(1);
11854 } else {
11855 p_scm =
11856 #line 2422 "./lib_core.stub"
11857 Sg_CurrentOutputPort();
11858 }
11859 if (!SG_PORTP(p_scm))
11860 Sg_WrongTypeOfArgumentViolation(
11861 sg__rc_cgen9166.d9486[510], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11862 p = SG_PORT(p_scm);
11863 {
11864
11865 #line 2423 "./lib_core.stub"
11866 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[511],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11867
11868 #line 2424 "./lib_core.stub"
11869 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[511],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11870
11871 #line 2425 "./lib_core.stub"
11872 Sg_Write(o,p,SG_WRITE_DISPLAY);
11873 SG_RETURN(SG_UNDEF);
11874 }
11875 }
11876 static SG_DEFINE_SUBR(core_display__STUB, 1, 2,core_display, SG_FALSE, NULL);
11877
core_write(SgObject * SG_FP,int SG_ARGC,void * data_)11878 static SgObject core_write(SgObject *SG_FP, int SG_ARGC, void *data_)
11879 {
11880 SgObject o_scm;
11881 SgObject o;
11882 SgObject p_scm;
11883 SgPort* p;
11884 SG_ENTER_SUBR("write");
11885 if ((SG_ARGC > 2 &&
11886 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11887 SG_ARGC < 1)
11888 Sg_WrongNumberOfArgumentsBetweenViolation(
11889 SG_INTERN("write"), 1, 2, SG_ARGC, SG_NIL);
11890 o_scm = SG_ARGREF(0);
11891 o = (o_scm);
11892 if (SG_ARGC > 1+1) {
11893 p_scm = SG_ARGREF(1);
11894 } else {
11895 p_scm =
11896 #line 2427 "./lib_core.stub"
11897 Sg_CurrentOutputPort();
11898 }
11899 if (!SG_PORTP(p_scm))
11900 Sg_WrongTypeOfArgumentViolation(
11901 sg__rc_cgen9166.d9486[512], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11902 p = SG_PORT(p_scm);
11903 {
11904
11905 #line 2428 "./lib_core.stub"
11906 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[513],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11907
11908 #line 2429 "./lib_core.stub"
11909 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[513],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11910
11911 #line 2430 "./lib_core.stub"
11912 Sg_Write(o,p,SG_WRITE_WRITE);
11913 SG_RETURN(SG_UNDEF);
11914 }
11915 }
11916 static SG_DEFINE_SUBR(core_write__STUB, 1, 2,core_write, SG_FALSE, NULL);
11917
core_file_existsP(SgObject * SG_FP,int SG_ARGC,void * data_)11918 static SgObject core_file_existsP(SgObject *SG_FP, int SG_ARGC, void *data_)
11919 {
11920 SgObject filename_scm;
11921 SgString* filename;
11922 SG_ENTER_SUBR("file-exists?");
11923 if (SG_ARGC != 1)
11924 Sg_WrongNumberOfArgumentsViolation(
11925 SG_INTERN("file-exists?"), 1, SG_ARGC, SG_NIL);
11926 filename_scm = SG_ARGREF(0);
11927 if (!SG_STRINGP(filename_scm))
11928 Sg_WrongTypeOfArgumentViolation(
11929 sg__rc_cgen9166.d9486[514], SG_MAKE_STRING("string"), filename_scm, SG_NIL);
11930 filename = SG_STRING(filename_scm);
11931 {
11932 {
11933 int SG_RESULT = (int)FALSE;
11934 SG_RESULT=(Sg_FileExistP(filename));
11935 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
11936 }
11937 }
11938 }
11939 static SG_DEFINE_SUBR(core_file_existsP__STUB, 1, 0,core_file_existsP, SG_FALSE, NULL);
11940
core_delete_file(SgObject * SG_FP,int SG_ARGC,void * data_)11941 static SgObject core_delete_file(SgObject *SG_FP, int SG_ARGC, void *data_)
11942 {
11943 SgObject filename_scm;
11944 SgString* filename;
11945 SG_ENTER_SUBR("delete-file");
11946 if (SG_ARGC != 1)
11947 Sg_WrongNumberOfArgumentsViolation(
11948 SG_INTERN("delete-file"), 1, SG_ARGC, SG_NIL);
11949 filename_scm = SG_ARGREF(0);
11950 if (!SG_STRINGP(filename_scm))
11951 Sg_WrongTypeOfArgumentViolation(
11952 sg__rc_cgen9166.d9486[515], SG_MAKE_STRING("string"), filename_scm, SG_NIL);
11953 filename = SG_STRING(filename_scm);
11954 {
11955
11956 #line 2438 "./lib_core.stub"
11957 {int r=Sg_DeleteFile(filename);
11958 if ((!((r)==(0)))){{
11959 Sg_IOError(SG_IO_FILENAME_ERROR,sg__rc_cgen9166.d9486[516],
11960 Sg_GetLastErrorMessageWithErrorCode(r),filename,SG_UNDEF);}}}
11961 SG_RETURN(SG_UNDEF);
11962 }
11963 }
11964 static SG_DEFINE_SUBR(core_delete_file__STUB, 1, 0,core_delete_file, SG_FALSE, NULL);
11965
core_exit(SgObject * SG_FP,int SG_ARGC,void * data_)11966 static SgObject core_exit(SgObject *SG_FP, int SG_ARGC, void *data_)
11967 {
11968 SgObject obj_scm;
11969 SgObject obj;
11970 SG_ENTER_SUBR("exit");
11971 if ((SG_ARGC > 1 &&
11972 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11973 SG_ARGC < 0)
11974 Sg_WrongNumberOfArgumentsBetweenViolation(
11975 SG_INTERN("exit"), 0, 1, SG_ARGC, SG_NIL);
11976 if (SG_ARGC > 0+1) {
11977 obj_scm = SG_ARGREF(0);
11978 } else {
11979 obj_scm = SG_UNBOUND;
11980 }
11981 obj = (obj_scm);
11982 {
11983
11984 #line 2446 "./lib_core.stub"
11985 if (SG_UNBOUNDP(obj)){
11986 Sg_Exit(EXIT_SUCCESS);} else {
11987 if (SG_INTP(obj)){Sg_Exit(((int )(SG_INT_VALUE(obj))));}else if(
11988 SG_TRUEP(obj)){Sg_Exit(EXIT_SUCCESS);} else {
11989 Sg_Exit(EXIT_FAILURE);}}
11990 SG_RETURN(SG_UNDEF);
11991 }
11992 }
11993 static SG_DEFINE_SUBR(core_exit__STUB, 0, 2,core_exit, SG_FALSE, NULL);
11994
core_bitwise_not(SgObject * SG_FP,int SG_ARGC,void * data_)11995 static SgObject core_bitwise_not(SgObject *SG_FP, int SG_ARGC, void *data_)
11996 {
11997 SgObject ei_scm;
11998 SgObject ei;
11999 SG_ENTER_SUBR("bitwise-not");
12000 if (SG_ARGC != 1)
12001 Sg_WrongNumberOfArgumentsViolation(
12002 SG_INTERN("bitwise-not"), 1, SG_ARGC, SG_NIL);
12003 ei_scm = SG_ARGREF(0);
12004 if (!SG_NUMBERP(ei_scm))
12005 Sg_WrongTypeOfArgumentViolation(
12006 sg__rc_cgen9166.d9486[518], SG_MAKE_STRING("number"), ei_scm, SG_NIL);
12007 ei = (ei_scm);
12008 {
12009 {
12010 SgObject SG_RESULT = (SgObject)NULL;
12011
12012 #line 2458 "./lib_core.stub"
12013 if ((!(Sg_ExactP(ei)))){{
12014 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[519],SG_MAKE_STRING("exact integer required"),ei,SG_NIL);}}}
12015
12016 #line 2460 "./lib_core.stub"
12017 SG_RESULT=(Sg_LogNot(ei));
12018 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12019 }
12020 }
12021 }
12022 static SG_DEFINE_SUBR(core_bitwise_not__STUB, 1, 0,core_bitwise_not, SG_FALSE, NULL);
12023
core_bitwise_and(SgObject * SG_FP,int SG_ARGC,void * data_)12024 static SgObject core_bitwise_and(SgObject *SG_FP, int SG_ARGC, void *data_)
12025 {
12026 SgObject ei_scm;
12027 SgObject ei;
12028 SgObject ei2_scm;
12029 SgObject ei2;
12030 SgObject rest_scm;
12031 SgObject rest;
12032 SG_ENTER_SUBR("bitwise-and");
12033 if (SG_ARGC < 0)
12034 Sg_WrongNumberOfArgumentsAtLeastViolation(
12035 SG_INTERN("bitwise-and"), 0, SG_ARGC, SG_NIL);
12036 if (SG_ARGC > 0+1) {
12037 ei_scm = SG_ARGREF(0);
12038 } else {
12039 ei_scm = SG_UNBOUND;
12040 }
12041 if (!SG_UNBOUNDP(ei_scm) && !SG_EXACT_INTP(ei_scm))
12042 Sg_WrongTypeOfArgumentViolation(
12043 sg__rc_cgen9166.d9486[520], SG_MAKE_STRING("exact integer"), ei_scm, SG_NIL);
12044 ei = (ei_scm);
12045 if (SG_ARGC > 1+1) {
12046 ei2_scm = SG_ARGREF(1);
12047 } else {
12048 ei2_scm = SG_UNBOUND;
12049 }
12050 if (!SG_UNBOUNDP(ei2_scm) && !SG_EXACT_INTP(ei2_scm))
12051 Sg_WrongTypeOfArgumentViolation(
12052 sg__rc_cgen9166.d9486[520], SG_MAKE_STRING("exact integer"), ei2_scm, SG_NIL);
12053 ei2 = (ei2_scm);
12054 rest_scm = SG_ARGREF(SG_ARGC-1);
12055 rest = (rest_scm);
12056 {
12057 {
12058 SgObject SG_RESULT = (SgObject)NULL;
12059 SgObject cise__10904;
12060 #line 2470 "./lib_core.stub"
12061 if (SG_UNBOUNDP(ei)){SG_RESULT=(SG_MAKE_INT(-1));}else if(
12062 SG_NULLP(rest)){
12063 if (SG_UNBOUNDP(ei2)){
12064 SG_RESULT=(ei);} else {
12065 SG_RESULT=(Sg_LogAnd(ei,ei2));}} else {
12066 #line 2476 "./lib_core.stub"
12067 ei=(Sg_LogAnd(ei,ei2));
12068 {SgObject r=Sg_LogAnd(ei,SG_CAR(rest));SG_FOR_EACH(cise__10904,SG_CDR(rest)) {{SgObject v=SG_CAR(cise__10904);r=(Sg_LogAnd(r,v));}}SG_RESULT=(r);}}
12069 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12070 }
12071 }
12072 }
12073 static SG_DEFINE_SUBR(core_bitwise_and__STUB, 0, 3,core_bitwise_and, SG_FALSE, NULL);
12074
core_bitwise_ior(SgObject * SG_FP,int SG_ARGC,void * data_)12075 static SgObject core_bitwise_ior(SgObject *SG_FP, int SG_ARGC, void *data_)
12076 {
12077 SgObject ei_scm;
12078 SgObject ei;
12079 SgObject ei2_scm;
12080 SgObject ei2;
12081 SgObject rest_scm;
12082 SgObject rest;
12083 SG_ENTER_SUBR("bitwise-ior");
12084 if (SG_ARGC < 0)
12085 Sg_WrongNumberOfArgumentsAtLeastViolation(
12086 SG_INTERN("bitwise-ior"), 0, SG_ARGC, SG_NIL);
12087 if (SG_ARGC > 0+1) {
12088 ei_scm = SG_ARGREF(0);
12089 } else {
12090 ei_scm = SG_UNBOUND;
12091 }
12092 if (!SG_UNBOUNDP(ei_scm) && !SG_EXACT_INTP(ei_scm))
12093 Sg_WrongTypeOfArgumentViolation(
12094 sg__rc_cgen9166.d9486[521], SG_MAKE_STRING("exact integer"), ei_scm, SG_NIL);
12095 ei = (ei_scm);
12096 if (SG_ARGC > 1+1) {
12097 ei2_scm = SG_ARGREF(1);
12098 } else {
12099 ei2_scm = SG_UNBOUND;
12100 }
12101 if (!SG_UNBOUNDP(ei2_scm) && !SG_EXACT_INTP(ei2_scm))
12102 Sg_WrongTypeOfArgumentViolation(
12103 sg__rc_cgen9166.d9486[521], SG_MAKE_STRING("exact integer"), ei2_scm, SG_NIL);
12104 ei2 = (ei2_scm);
12105 rest_scm = SG_ARGREF(SG_ARGC-1);
12106 rest = (rest_scm);
12107 {
12108 {
12109 SgObject SG_RESULT = (SgObject)NULL;
12110 SgObject cise__10905;
12111 #line 2481 "./lib_core.stub"
12112 if (SG_UNBOUNDP(ei)){SG_RESULT=(SG_MAKE_INT(0));}else if(
12113 SG_NULLP(rest)){
12114 if (SG_UNBOUNDP(ei2)){
12115 SG_RESULT=(ei);} else {
12116 SG_RESULT=(Sg_LogIor(ei,ei2));}} else {
12117 #line 2487 "./lib_core.stub"
12118 ei=(Sg_LogIor(ei,ei2));
12119 {SgObject r=Sg_LogIor(ei,SG_CAR(rest));SG_FOR_EACH(cise__10905,SG_CDR(rest)) {{SgObject v=SG_CAR(cise__10905);r=(Sg_LogIor(r,v));}}SG_RESULT=(r);}}
12120 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12121 }
12122 }
12123 }
12124 static SG_DEFINE_SUBR(core_bitwise_ior__STUB, 0, 3,core_bitwise_ior, SG_FALSE, NULL);
12125
core_bitwise_xor(SgObject * SG_FP,int SG_ARGC,void * data_)12126 static SgObject core_bitwise_xor(SgObject *SG_FP, int SG_ARGC, void *data_)
12127 {
12128 SgObject ei_scm;
12129 SgObject ei;
12130 SgObject ei2_scm;
12131 SgObject ei2;
12132 SgObject rest_scm;
12133 SgObject rest;
12134 SG_ENTER_SUBR("bitwise-xor");
12135 if (SG_ARGC < 0)
12136 Sg_WrongNumberOfArgumentsAtLeastViolation(
12137 SG_INTERN("bitwise-xor"), 0, SG_ARGC, SG_NIL);
12138 if (SG_ARGC > 0+1) {
12139 ei_scm = SG_ARGREF(0);
12140 } else {
12141 ei_scm = SG_UNBOUND;
12142 }
12143 if (!SG_UNBOUNDP(ei_scm) && !SG_EXACT_INTP(ei_scm))
12144 Sg_WrongTypeOfArgumentViolation(
12145 sg__rc_cgen9166.d9486[522], SG_MAKE_STRING("exact integer"), ei_scm, SG_NIL);
12146 ei = (ei_scm);
12147 if (SG_ARGC > 1+1) {
12148 ei2_scm = SG_ARGREF(1);
12149 } else {
12150 ei2_scm = SG_UNBOUND;
12151 }
12152 if (!SG_UNBOUNDP(ei2_scm) && !SG_EXACT_INTP(ei2_scm))
12153 Sg_WrongTypeOfArgumentViolation(
12154 sg__rc_cgen9166.d9486[522], SG_MAKE_STRING("exact integer"), ei2_scm, SG_NIL);
12155 ei2 = (ei2_scm);
12156 rest_scm = SG_ARGREF(SG_ARGC-1);
12157 rest = (rest_scm);
12158 {
12159 {
12160 SgObject SG_RESULT = (SgObject)NULL;
12161 SgObject cise__10906;
12162 #line 2492 "./lib_core.stub"
12163 if (SG_UNBOUNDP(ei)){SG_RESULT=(SG_MAKE_INT(0));}else if(
12164 SG_NULLP(rest)){
12165 if (SG_UNBOUNDP(ei2)){
12166 SG_RESULT=(ei);} else {
12167 SG_RESULT=(Sg_LogXor(ei,ei2));}} else {
12168 #line 2498 "./lib_core.stub"
12169 ei=(Sg_LogXor(ei,ei2));
12170 {SgObject r=Sg_LogXor(ei,SG_CAR(rest));SG_FOR_EACH(cise__10906,SG_CDR(rest)) {{SgObject v=SG_CAR(cise__10906);r=(Sg_LogXor(r,v));}}SG_RESULT=(r);}}
12171 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12172 }
12173 }
12174 }
12175 static SG_DEFINE_SUBR(core_bitwise_xor__STUB, 0, 3,core_bitwise_xor, SG_FALSE, NULL);
12176
core_bitwise_if(SgObject * SG_FP,int SG_ARGC,void * data_)12177 static SgObject core_bitwise_if(SgObject *SG_FP, int SG_ARGC, void *data_)
12178 {
12179 SgObject ei1_scm;
12180 SgObject ei1;
12181 SgObject ei2_scm;
12182 SgObject ei2;
12183 SgObject ei3_scm;
12184 SgObject ei3;
12185 SG_ENTER_SUBR("bitwise-if");
12186 if (SG_ARGC != 3)
12187 Sg_WrongNumberOfArgumentsViolation(
12188 SG_INTERN("bitwise-if"), 3, SG_ARGC, SG_NIL);
12189 ei1_scm = SG_ARGREF(0);
12190 if (!SG_NUMBERP(ei1_scm))
12191 Sg_WrongTypeOfArgumentViolation(
12192 sg__rc_cgen9166.d9486[523], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12193 ei1 = (ei1_scm);
12194 ei2_scm = SG_ARGREF(1);
12195 if (!SG_NUMBERP(ei2_scm))
12196 Sg_WrongTypeOfArgumentViolation(
12197 sg__rc_cgen9166.d9486[523], SG_MAKE_STRING("number"), ei2_scm, SG_NIL);
12198 ei2 = (ei2_scm);
12199 ei3_scm = SG_ARGREF(2);
12200 if (!SG_NUMBERP(ei3_scm))
12201 Sg_WrongTypeOfArgumentViolation(
12202 sg__rc_cgen9166.d9486[523], SG_MAKE_STRING("number"), ei3_scm, SG_NIL);
12203 ei3 = (ei3_scm);
12204 {
12205 {
12206 SgObject SG_RESULT = (SgObject)NULL;
12207
12208 #line 2508 "./lib_core.stub"
12209 SG_RESULT=(Sg_LogIor(Sg_LogAnd(ei1,ei2),Sg_LogAnd(Sg_LogNot(ei1),ei3)));
12210 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12211 }
12212 }
12213 }
12214 static SG_DEFINE_SUBR(core_bitwise_if__STUB, 3, 0,core_bitwise_if, SG_FALSE, NULL);
12215
core_bitwise_bit_count(SgObject * SG_FP,int SG_ARGC,void * data_)12216 static SgObject core_bitwise_bit_count(SgObject *SG_FP, int SG_ARGC, void *data_)
12217 {
12218 SgObject ei_scm;
12219 SgObject ei;
12220 SG_ENTER_SUBR("bitwise-bit-count");
12221 if (SG_ARGC != 1)
12222 Sg_WrongNumberOfArgumentsViolation(
12223 SG_INTERN("bitwise-bit-count"), 1, SG_ARGC, SG_NIL);
12224 ei_scm = SG_ARGREF(0);
12225 if (!SG_NUMBERP(ei_scm))
12226 Sg_WrongTypeOfArgumentViolation(
12227 sg__rc_cgen9166.d9486[524], SG_MAKE_STRING("number"), ei_scm, SG_NIL);
12228 ei = (ei_scm);
12229 {
12230 {
12231 long SG_RESULT = (long)0;
12232 SG_RESULT=(Sg_BitCount(ei));
12233 SG_RETURN(SG_MAKE_INT(SG_RESULT));
12234 }
12235 }
12236 }
12237 static SG_DEFINE_SUBR(core_bitwise_bit_count__STUB, 1, 0,core_bitwise_bit_count, SG_FALSE, NULL);
12238
core_bitwise_length(SgObject * SG_FP,int SG_ARGC,void * data_)12239 static SgObject core_bitwise_length(SgObject *SG_FP, int SG_ARGC, void *data_)
12240 {
12241 SgObject ei_scm;
12242 SgObject ei;
12243 SG_ENTER_SUBR("bitwise-length");
12244 if (SG_ARGC != 1)
12245 Sg_WrongNumberOfArgumentsViolation(
12246 SG_INTERN("bitwise-length"), 1, SG_ARGC, SG_NIL);
12247 ei_scm = SG_ARGREF(0);
12248 if (!SG_NUMBERP(ei_scm))
12249 Sg_WrongTypeOfArgumentViolation(
12250 sg__rc_cgen9166.d9486[525], SG_MAKE_STRING("number"), ei_scm, SG_NIL);
12251 ei = (ei_scm);
12252 {
12253 {
12254 long SG_RESULT = (long)0;
12255 SG_RESULT=(Sg_BitSize(ei));
12256 SG_RETURN(SG_MAKE_INT(SG_RESULT));
12257 }
12258 }
12259 }
12260 static SG_DEFINE_SUBR(core_bitwise_length__STUB, 1, 0,core_bitwise_length, SG_FALSE, NULL);
12261
core_bitwise_first_bit_set(SgObject * SG_FP,int SG_ARGC,void * data_)12262 static SgObject core_bitwise_first_bit_set(SgObject *SG_FP, int SG_ARGC, void *data_)
12263 {
12264 SgObject ei_scm;
12265 SgObject ei;
12266 SG_ENTER_SUBR("bitwise-first-bit-set");
12267 if (SG_ARGC != 1)
12268 Sg_WrongNumberOfArgumentsViolation(
12269 SG_INTERN("bitwise-first-bit-set"), 1, SG_ARGC, SG_NIL);
12270 ei_scm = SG_ARGREF(0);
12271 if (!SG_NUMBERP(ei_scm))
12272 Sg_WrongTypeOfArgumentViolation(
12273 sg__rc_cgen9166.d9486[526], SG_MAKE_STRING("number"), ei_scm, SG_NIL);
12274 ei = (ei_scm);
12275 {
12276 {
12277 long SG_RESULT = (long)0;
12278 SG_RESULT=(Sg_FirstBitSet(ei));
12279 SG_RETURN(SG_MAKE_INT(SG_RESULT));
12280 }
12281 }
12282 }
12283 static SG_DEFINE_SUBR(core_bitwise_first_bit_set__STUB, 1, 0,core_bitwise_first_bit_set, SG_FALSE, NULL);
12284
core_bitwise_bit_setP(SgObject * SG_FP,int SG_ARGC,void * data_)12285 static SgObject core_bitwise_bit_setP(SgObject *SG_FP, int SG_ARGC, void *data_)
12286 {
12287 SgObject ei1_scm;
12288 SgObject ei1;
12289 SgObject ei2_scm;
12290 long ei2;
12291 SG_ENTER_SUBR("bitwise-bit-set?");
12292 if (SG_ARGC != 2)
12293 Sg_WrongNumberOfArgumentsViolation(
12294 SG_INTERN("bitwise-bit-set?"), 2, SG_ARGC, SG_NIL);
12295 ei1_scm = SG_ARGREF(0);
12296 if (!SG_NUMBERP(ei1_scm))
12297 Sg_WrongTypeOfArgumentViolation(
12298 sg__rc_cgen9166.d9486[527], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12299 ei1 = (ei1_scm);
12300 ei2_scm = SG_ARGREF(1);
12301 if (!SG_INTP(ei2_scm))
12302 Sg_WrongTypeOfArgumentViolation(
12303 sg__rc_cgen9166.d9486[527], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12304 ei2 = SG_INT_VALUE(ei2_scm);
12305 {
12306 {
12307 int SG_RESULT = (int)FALSE;
12308 SG_RESULT=(Sg_BitSetP(ei1,ei2));
12309 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
12310 }
12311 }
12312 }
12313 static SG_DEFINE_SUBR(core_bitwise_bit_setP__STUB, 2, 0,core_bitwise_bit_setP, SG_FALSE, NULL);
12314
core_bitwise_copy_bit(SgObject * SG_FP,int SG_ARGC,void * data_)12315 static SgObject core_bitwise_copy_bit(SgObject *SG_FP, int SG_ARGC, void *data_)
12316 {
12317 SgObject ei1_scm;
12318 SgObject ei1;
12319 SgObject ei2_scm;
12320 long ei2;
12321 SgObject ei3_scm;
12322 SgObject ei3;
12323 SG_ENTER_SUBR("bitwise-copy-bit");
12324 if (SG_ARGC != 3)
12325 Sg_WrongNumberOfArgumentsViolation(
12326 SG_INTERN("bitwise-copy-bit"), 3, SG_ARGC, SG_NIL);
12327 ei1_scm = SG_ARGREF(0);
12328 if (!SG_NUMBERP(ei1_scm))
12329 Sg_WrongTypeOfArgumentViolation(
12330 sg__rc_cgen9166.d9486[528], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12331 ei1 = (ei1_scm);
12332 ei2_scm = SG_ARGREF(1);
12333 if (!SG_INTP(ei2_scm))
12334 Sg_WrongTypeOfArgumentViolation(
12335 sg__rc_cgen9166.d9486[528], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12336 ei2 = SG_INT_VALUE(ei2_scm);
12337 ei3_scm = SG_ARGREF(2);
12338 if (!SG_NUMBERP(ei3_scm))
12339 Sg_WrongTypeOfArgumentViolation(
12340 sg__rc_cgen9166.d9486[528], SG_MAKE_STRING("number"), ei3_scm, SG_NIL);
12341 ei3 = (ei3_scm);
12342 {
12343 {
12344 SgObject SG_RESULT = (SgObject)NULL;
12345
12346 #line 2525 "./lib_core.stub"
12347 {SgObject mask=Sg_Ash(SG_MAKE_INT(1),ei2);
12348 SG_RESULT=(Sg_LogIor(Sg_LogAnd(mask,Sg_Ash(ei3,ei2)),Sg_LogAnd(Sg_LogNot(mask),ei1)));}
12349 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12350 }
12351 }
12352 }
12353 static SG_DEFINE_SUBR(core_bitwise_copy_bit__STUB, 3, 0,core_bitwise_copy_bit, SG_FALSE, NULL);
12354
core_bitwise_bit_field(SgObject * SG_FP,int SG_ARGC,void * data_)12355 static SgObject core_bitwise_bit_field(SgObject *SG_FP, int SG_ARGC, void *data_)
12356 {
12357 SgObject ei1_scm;
12358 SgObject ei1;
12359 SgObject ei2_scm;
12360 long ei2;
12361 SgObject ei3_scm;
12362 long ei3;
12363 SG_ENTER_SUBR("bitwise-bit-field");
12364 if (SG_ARGC != 3)
12365 Sg_WrongNumberOfArgumentsViolation(
12366 SG_INTERN("bitwise-bit-field"), 3, SG_ARGC, SG_NIL);
12367 ei1_scm = SG_ARGREF(0);
12368 if (!SG_NUMBERP(ei1_scm))
12369 Sg_WrongTypeOfArgumentViolation(
12370 sg__rc_cgen9166.d9486[529], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12371 ei1 = (ei1_scm);
12372 ei2_scm = SG_ARGREF(1);
12373 if (!SG_INTP(ei2_scm))
12374 Sg_WrongTypeOfArgumentViolation(
12375 sg__rc_cgen9166.d9486[529], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12376 ei2 = SG_INT_VALUE(ei2_scm);
12377 ei3_scm = SG_ARGREF(2);
12378 if (!SG_INTP(ei3_scm))
12379 Sg_WrongTypeOfArgumentViolation(
12380 sg__rc_cgen9166.d9486[529], SG_MAKE_STRING("fixnum"), ei3_scm, SG_NIL);
12381 ei3 = SG_INT_VALUE(ei3_scm);
12382 {
12383 {
12384 SgObject SG_RESULT = (SgObject)NULL;
12385
12386 #line 2530 "./lib_core.stub"
12387 if ((ei2)<(0)){{
12388 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[530],SG_MAKE_STRING("2nd parameter (start) must be non-negative"),
12389 SG_MAKE_INT(ei2));}}}
12390
12391 #line 2533 "./lib_core.stub"
12392 if ((ei3)<(0)){{
12393 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[530],SG_MAKE_STRING("3rd parameter (end) must be non-negative"),
12394 SG_MAKE_INT(ei3));}}}
12395
12396 #line 2536 "./lib_core.stub"
12397 if ((ei2)>(ei3)){{
12398 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[530],SG_MAKE_STRING("2nd parameter must be less than or equal to 3rd parameter"),
12399 #line 2539 "./lib_core.stub"
12400 SG_LIST3(ei1,SG_MAKE_INT(ei2),SG_MAKE_INT(ei3)));}}}
12401
12402 #line 2540 "./lib_core.stub"
12403 {SgObject mask=Sg_LogNot(Sg_Ash(SG_MAKE_INT(-1),ei3));
12404 SG_RESULT=(Sg_Ash(Sg_LogAnd(ei1,mask),(0)-(ei2)));}
12405 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12406 }
12407 }
12408 }
12409 static SG_DEFINE_SUBR(core_bitwise_bit_field__STUB, 3, 0,core_bitwise_bit_field, SG_FALSE, NULL);
12410
core_bitwise_copy_bit_field(SgObject * SG_FP,int SG_ARGC,void * data_)12411 static SgObject core_bitwise_copy_bit_field(SgObject *SG_FP, int SG_ARGC, void *data_)
12412 {
12413 SgObject ei1_scm;
12414 SgObject ei1;
12415 SgObject ei2_scm;
12416 long ei2;
12417 SgObject ei3_scm;
12418 long ei3;
12419 SgObject ei4_scm;
12420 SgObject ei4;
12421 SG_ENTER_SUBR("bitwise-copy-bit-field");
12422 if (SG_ARGC != 4)
12423 Sg_WrongNumberOfArgumentsViolation(
12424 SG_INTERN("bitwise-copy-bit-field"), 4, SG_ARGC, SG_NIL);
12425 ei1_scm = SG_ARGREF(0);
12426 if (!SG_NUMBERP(ei1_scm))
12427 Sg_WrongTypeOfArgumentViolation(
12428 sg__rc_cgen9166.d9486[531], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12429 ei1 = (ei1_scm);
12430 ei2_scm = SG_ARGREF(1);
12431 if (!SG_INTP(ei2_scm))
12432 Sg_WrongTypeOfArgumentViolation(
12433 sg__rc_cgen9166.d9486[531], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12434 ei2 = SG_INT_VALUE(ei2_scm);
12435 ei3_scm = SG_ARGREF(2);
12436 if (!SG_INTP(ei3_scm))
12437 Sg_WrongTypeOfArgumentViolation(
12438 sg__rc_cgen9166.d9486[531], SG_MAKE_STRING("fixnum"), ei3_scm, SG_NIL);
12439 ei3 = SG_INT_VALUE(ei3_scm);
12440 ei4_scm = SG_ARGREF(3);
12441 if (!SG_NUMBERP(ei4_scm))
12442 Sg_WrongTypeOfArgumentViolation(
12443 sg__rc_cgen9166.d9486[531], SG_MAKE_STRING("number"), ei4_scm, SG_NIL);
12444 ei4 = (ei4_scm);
12445 {
12446 {
12447 SgObject SG_RESULT = (SgObject)NULL;
12448
12449 #line 2545 "./lib_core.stub"
12450 {SgObject to=ei1;long start=ei2;long end=ei3;SgObject from=ei4;SgObject mask1=
12451 #line 2549 "./lib_core.stub"
12452 Sg_Ash(SG_MAKE_INT(-1),start);SgObject mask2=
12453 Sg_LogNot(Sg_Ash(SG_MAKE_INT(-1),end));SgObject mask=
12454 Sg_LogAnd(mask1,mask2);
12455 SG_RESULT=(Sg_LogIor(Sg_LogAnd(mask,Sg_Ash(from,start)),Sg_LogAnd(Sg_LogNot(mask),to)));}
12456 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12457 }
12458 }
12459 }
12460 static SG_DEFINE_SUBR(core_bitwise_copy_bit_field__STUB, 4, 0,core_bitwise_copy_bit_field, SG_FALSE, NULL);
12461
core_bitwise_arithmetic_shift(SgObject * SG_FP,int SG_ARGC,void * data_)12462 static SgObject core_bitwise_arithmetic_shift(SgObject *SG_FP, int SG_ARGC, void *data_)
12463 {
12464 SgObject ei1_scm;
12465 SgObject ei1;
12466 SgObject ei2_scm;
12467 long ei2;
12468 SG_ENTER_SUBR("bitwise-arithmetic-shift");
12469 if (SG_ARGC != 2)
12470 Sg_WrongNumberOfArgumentsViolation(
12471 SG_INTERN("bitwise-arithmetic-shift"), 2, SG_ARGC, SG_NIL);
12472 ei1_scm = SG_ARGREF(0);
12473 if (!SG_NUMBERP(ei1_scm))
12474 Sg_WrongTypeOfArgumentViolation(
12475 sg__rc_cgen9166.d9486[532], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12476 ei1 = (ei1_scm);
12477 ei2_scm = SG_ARGREF(1);
12478 if (!SG_INTP(ei2_scm))
12479 Sg_WrongTypeOfArgumentViolation(
12480 sg__rc_cgen9166.d9486[532], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12481 ei2 = SG_INT_VALUE(ei2_scm);
12482 {
12483 {
12484 SgObject SG_RESULT = (SgObject)NULL;
12485 SG_RESULT=(Sg_Ash(ei1,ei2));
12486 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12487 }
12488 }
12489 }
12490 static SG_DEFINE_SUBR(core_bitwise_arithmetic_shift__STUB, 2, 0,core_bitwise_arithmetic_shift, SG_FALSE, NULL);
12491
core_bitwise_arithmetic_shift_left(SgObject * SG_FP,int SG_ARGC,void * data_)12492 static SgObject core_bitwise_arithmetic_shift_left(SgObject *SG_FP, int SG_ARGC, void *data_)
12493 {
12494 SgObject ei1_scm;
12495 SgObject ei1;
12496 SgObject ei2_scm;
12497 long ei2;
12498 SG_ENTER_SUBR("bitwise-arithmetic-shift-left");
12499 if (SG_ARGC != 2)
12500 Sg_WrongNumberOfArgumentsViolation(
12501 SG_INTERN("bitwise-arithmetic-shift-left"), 2, SG_ARGC, SG_NIL);
12502 ei1_scm = SG_ARGREF(0);
12503 if (!SG_NUMBERP(ei1_scm))
12504 Sg_WrongTypeOfArgumentViolation(
12505 sg__rc_cgen9166.d9486[533], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12506 ei1 = (ei1_scm);
12507 ei2_scm = SG_ARGREF(1);
12508 if (!SG_INTP(ei2_scm))
12509 Sg_WrongTypeOfArgumentViolation(
12510 sg__rc_cgen9166.d9486[533], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12511 ei2 = SG_INT_VALUE(ei2_scm);
12512 {
12513 {
12514 SgObject SG_RESULT = (SgObject)NULL;
12515 SG_RESULT=(Sg_Ash(ei1,ei2));
12516 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12517 }
12518 }
12519 }
12520 static SG_DEFINE_SUBR(core_bitwise_arithmetic_shift_left__STUB, 2, 0,core_bitwise_arithmetic_shift_left, SG_FALSE, NULL);
12521
core_bitwise_arithmetic_shift_right(SgObject * SG_FP,int SG_ARGC,void * data_)12522 static SgObject core_bitwise_arithmetic_shift_right(SgObject *SG_FP, int SG_ARGC, void *data_)
12523 {
12524 SgObject ei1_scm;
12525 SgObject ei1;
12526 SgObject ei2_scm;
12527 long ei2;
12528 SG_ENTER_SUBR("bitwise-arithmetic-shift-right");
12529 if (SG_ARGC != 2)
12530 Sg_WrongNumberOfArgumentsViolation(
12531 SG_INTERN("bitwise-arithmetic-shift-right"), 2, SG_ARGC, SG_NIL);
12532 ei1_scm = SG_ARGREF(0);
12533 if (!SG_NUMBERP(ei1_scm))
12534 Sg_WrongTypeOfArgumentViolation(
12535 sg__rc_cgen9166.d9486[534], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12536 ei1 = (ei1_scm);
12537 ei2_scm = SG_ARGREF(1);
12538 if (!SG_INTP(ei2_scm))
12539 Sg_WrongTypeOfArgumentViolation(
12540 sg__rc_cgen9166.d9486[534], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12541 ei2 = SG_INT_VALUE(ei2_scm);
12542 {
12543 {
12544 SgObject SG_RESULT = (SgObject)NULL;
12545
12546 #line 2562 "./lib_core.stub"
12547 SG_RESULT=(Sg_Ash(ei1,(0)-(ei2)));
12548 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12549 }
12550 }
12551 }
12552 static SG_DEFINE_SUBR(core_bitwise_arithmetic_shift_right__STUB, 2, 0,core_bitwise_arithmetic_shift_right, SG_FALSE, NULL);
12553
core_identifierP(SgObject * SG_FP,int SG_ARGC,void * data_)12554 static SgObject core_identifierP(SgObject *SG_FP, int SG_ARGC, void *data_)
12555 {
12556 SgObject id_scm;
12557 SgObject id;
12558 SG_ENTER_SUBR("identifier?");
12559 if (SG_ARGC != 1)
12560 Sg_WrongNumberOfArgumentsViolation(
12561 SG_INTERN("identifier?"), 1, SG_ARGC, SG_NIL);
12562 id_scm = SG_ARGREF(0);
12563 id = (id_scm);
12564 {
12565 {
12566 int SG_RESULT = (int)FALSE;
12567 SG_RESULT=(SG_IDENTIFIERP(id));
12568 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
12569 }
12570 }
12571 }
12572 static SG_DEFINE_SUBR(core_identifierP__STUB, 1, 0,core_identifierP, SG_FALSE, NULL);
12573
retrieve_weakness(SgObject weakness)12574 static SgWeakness retrieve_weakness(SgObject weakness){{
12575 #line 2573 "./lib_core.stub"
12576 if (SG_EQ(weakness,sg__rc_cgen9166.d9486[542])){return (SG_WEAK_KEY);}else if(
12577 SG_EQ(weakness,sg__rc_cgen9166.d9486[540])){return (SG_WEAK_VALUE);}else if(
12578 SG_EQ(weakness,sg__rc_cgen9166.d9486[538])){return (SG_WEAK_BOTH);} else {
12579 #line 2577 "./lib_core.stub"
12580 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[536],SG_MAKE_STRING("weakness must be one of 'key, 'value or 'both"),weakness);}
12581 #line 2580 "./lib_core.stub"
12582 return (-1);}}}
core_make_eq_hashtable(SgObject * SG_FP,int SG_ARGC,void * data_)12583 static SgObject core_make_eq_hashtable(SgObject *SG_FP, int SG_ARGC, void *data_)
12584 {
12585 SgObject kP_scm;
12586 SgObject kP;
12587 SgObject weakness_scm;
12588 SgObject weakness;
12589 SG_ENTER_SUBR("make-eq-hashtable");
12590 if ((SG_ARGC > 2 &&
12591 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12592 SG_ARGC < 0)
12593 Sg_WrongNumberOfArgumentsBetweenViolation(
12594 SG_INTERN("make-eq-hashtable"), 0, 2, SG_ARGC, SG_NIL);
12595 if (SG_ARGC > 0+1) {
12596 kP_scm = SG_ARGREF(0);
12597 } else {
12598 kP_scm = SG_FALSE;
12599 }
12600 kP = (kP_scm);
12601 if (SG_ARGC > 1+1) {
12602 weakness_scm = SG_ARGREF(1);
12603 } else {
12604 weakness_scm = SG_FALSE;
12605 }
12606 weakness = (weakness_scm);
12607 {
12608 {
12609 SgObject SG_RESULT = (SgObject)NULL;
12610
12611 #line 2584 "./lib_core.stub"
12612 {long k=-1;
12613 if (SG_INTP(kP)){k=(SG_INT_VALUE(kP));}else if(
12614 SG_FALSEP(kP)){k=(200);} else {
12615 #line 2588 "./lib_core.stub"
12616 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[545],SG_MAKE_STRING("#f or fixnum"),kP,SG_NIL);}}
12617 #line 2590 "./lib_core.stub"
12618 if ((k)<(0)){{
12619 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[545],SG_MAKE_STRING("non negative exact integer"),kP,SG_NIL);}}}
12620 #line 2594 "./lib_core.stub"
12621 if (SG_FALSEP(weakness)){
12622 SG_RESULT=(Sg_MakeHashTableSimple(SG_HASH_EQ,k));} else {
12623 {SgWeakness w=retrieve_weakness(weakness);
12624 SG_RESULT=(Sg_MakeWeakHashTableSimple(SG_HASH_EQ,w,k,SG_UNDEF));}}}
12625 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12626 }
12627 }
12628 }
12629 static SG_DEFINE_SUBR(core_make_eq_hashtable__STUB, 0, 3,core_make_eq_hashtable, SG_FALSE, NULL);
12630
core_make_eqv_hashtable(SgObject * SG_FP,int SG_ARGC,void * data_)12631 static SgObject core_make_eqv_hashtable(SgObject *SG_FP, int SG_ARGC, void *data_)
12632 {
12633 SgObject kP_scm;
12634 SgObject kP;
12635 SgObject weakness_scm;
12636 SgObject weakness;
12637 SG_ENTER_SUBR("make-eqv-hashtable");
12638 if ((SG_ARGC > 2 &&
12639 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12640 SG_ARGC < 0)
12641 Sg_WrongNumberOfArgumentsBetweenViolation(
12642 SG_INTERN("make-eqv-hashtable"), 0, 2, SG_ARGC, SG_NIL);
12643 if (SG_ARGC > 0+1) {
12644 kP_scm = SG_ARGREF(0);
12645 } else {
12646 kP_scm = SG_FALSE;
12647 }
12648 kP = (kP_scm);
12649 if (SG_ARGC > 1+1) {
12650 weakness_scm = SG_ARGREF(1);
12651 } else {
12652 weakness_scm = SG_FALSE;
12653 }
12654 weakness = (weakness_scm);
12655 {
12656 {
12657 SgObject SG_RESULT = (SgObject)NULL;
12658
12659 #line 2601 "./lib_core.stub"
12660 {long k=-1;
12661 if (SG_INTP(kP)){k=(SG_INT_VALUE(kP));}else if(
12662 SG_FALSEP(kP)){k=(200);} else {
12663 #line 2605 "./lib_core.stub"
12664 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[547],SG_MAKE_STRING("#f or fixnum"),kP,SG_NIL);}}
12665 #line 2607 "./lib_core.stub"
12666 if ((k)<(0)){{
12667 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[547],SG_MAKE_STRING("non negative exact integer"),
12668 #line 2610 "./lib_core.stub"
12669 SG_MAKE_INT(k),SG_NIL);}}}
12670 if (SG_FALSEP(weakness)){
12671 SG_RESULT=(Sg_MakeHashTableSimple(SG_HASH_EQV,k));} else {
12672 {SgWeakness w=retrieve_weakness(weakness);
12673 SG_RESULT=(Sg_MakeWeakHashTableSimple(SG_HASH_EQV,w,k,SG_UNDEF));}}}
12674 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12675 }
12676 }
12677 }
12678 static SG_DEFINE_SUBR(core_make_eqv_hashtable__STUB, 0, 3,core_make_eqv_hashtable, SG_FALSE, NULL);
12679
core_make_hashtable(SgObject * SG_FP,int SG_ARGC,void * data_)12680 static SgObject core_make_hashtable(SgObject *SG_FP, int SG_ARGC, void *data_)
12681 {
12682 SgObject hasher_scm;
12683 SgProcedure* hasher;
12684 SgObject equiv_scm;
12685 SgProcedure* equiv;
12686 SgObject kP_scm;
12687 SgObject kP;
12688 SgObject weakness_scm;
12689 SgObject weakness;
12690 SG_ENTER_SUBR("make-hashtable");
12691 if ((SG_ARGC > 4 &&
12692 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12693 SG_ARGC < 2)
12694 Sg_WrongNumberOfArgumentsBetweenViolation(
12695 SG_INTERN("make-hashtable"), 2, 4, SG_ARGC, SG_NIL);
12696 hasher_scm = SG_ARGREF(0);
12697 if (!SG_PROCEDUREP(hasher_scm))
12698 Sg_WrongTypeOfArgumentViolation(
12699 sg__rc_cgen9166.d9486[537], SG_MAKE_STRING("procedure"), hasher_scm, SG_NIL);
12700 hasher = SG_PROCEDURE(hasher_scm);
12701 equiv_scm = SG_ARGREF(1);
12702 if (!SG_PROCEDUREP(equiv_scm))
12703 Sg_WrongTypeOfArgumentViolation(
12704 sg__rc_cgen9166.d9486[537], SG_MAKE_STRING("procedure"), equiv_scm, SG_NIL);
12705 equiv = SG_PROCEDURE(equiv_scm);
12706 if (SG_ARGC > 2+1) {
12707 kP_scm = SG_ARGREF(2);
12708 } else {
12709 kP_scm = SG_FALSE;
12710 }
12711 kP = (kP_scm);
12712 if (SG_ARGC > 3+1) {
12713 weakness_scm = SG_ARGREF(3);
12714 } else {
12715 weakness_scm = SG_FALSE;
12716 }
12717 weakness = (weakness_scm);
12718 {
12719 {
12720 SgObject SG_RESULT = (SgObject)NULL;
12721
12722 #line 2619 "./lib_core.stub"
12723 {long k=-1;
12724 if (SG_INTP(kP)){k=(SG_INT_VALUE(kP));}else if(
12725 SG_FALSEP(kP)){k=(200);} else {
12726 #line 2623 "./lib_core.stub"
12727 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[536],SG_MAKE_STRING("#f or fixnum"),kP,SG_NIL);}}
12728 #line 2625 "./lib_core.stub"
12729 if ((k)<(0)){{
12730 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[536],SG_MAKE_STRING("non negative exact integer"),
12731 #line 2628 "./lib_core.stub"
12732 SG_MAKE_INT(k),SG_NIL);}}}
12733 if (SG_FALSEP(weakness)){
12734 SG_RESULT=(Sg_MakeHashTable(hasher,equiv,k));} else {
12735 {SgWeakness w=retrieve_weakness(weakness);
12736 SG_RESULT=(Sg_MakeWeakHashTable(hasher,equiv,w,k,SG_UNDEF));}}}
12737 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12738 }
12739 }
12740 }
12741 static SG_DEFINE_SUBR(core_make_hashtable__STUB, 2, 3,core_make_hashtable, SG_FALSE, NULL);
12742
core_hashtableP(SgObject * SG_FP,int SG_ARGC,void * data_)12743 static SgObject core_hashtableP(SgObject *SG_FP, int SG_ARGC, void *data_)
12744 {
12745 SgObject o_scm;
12746 SgObject o;
12747 SG_ENTER_SUBR("hashtable?");
12748 if (SG_ARGC != 1)
12749 Sg_WrongNumberOfArgumentsViolation(
12750 SG_INTERN("hashtable?"), 1, SG_ARGC, SG_NIL);
12751 o_scm = SG_ARGREF(0);
12752 o = (o_scm);
12753 {
12754 {
12755 int SG_RESULT = (int)FALSE;
12756 SG_RESULT=(SG_HASHTABLE_P(o));
12757 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
12758 }
12759 }
12760 }
12761 static SG_DEFINE_SUBR(core_hashtableP__STUB, 1, 0,core_hashtableP, SG_FALSE, NULL);
12762
core_hashtable_size(SgObject * SG_FP,int SG_ARGC,void * data_)12763 static SgObject core_hashtable_size(SgObject *SG_FP, int SG_ARGC, void *data_)
12764 {
12765 SgObject ht_scm;
12766 SgHashTable* ht;
12767 SG_ENTER_SUBR("hashtable-size");
12768 if (SG_ARGC != 1)
12769 Sg_WrongNumberOfArgumentsViolation(
12770 SG_INTERN("hashtable-size"), 1, SG_ARGC, SG_NIL);
12771 ht_scm = SG_ARGREF(0);
12772 if (!SG_HASHTABLE_P(ht_scm))
12773 Sg_WrongTypeOfArgumentViolation(
12774 sg__rc_cgen9166.d9486[549], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12775 ht = SG_HASHTABLE(ht_scm);
12776 {
12777 {
12778 long SG_RESULT = (long)0;
12779 SG_RESULT=(Sg_HashTableSize(ht));
12780 SG_RETURN(SG_MAKE_INT(SG_RESULT));
12781 }
12782 }
12783 }
12784 static SG_DEFINE_SUBR(core_hashtable_size__STUB, 1, 0,core_hashtable_size, SG_FALSE, NULL);
12785
core_hashtable_ref(SgObject * SG_FP,int SG_ARGC,void * data_)12786 static SgObject core_hashtable_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
12787 {
12788 SgObject ht_scm;
12789 SgHashTable* ht;
12790 SgObject key_scm;
12791 SgObject key;
12792 SgObject fallback_scm;
12793 SgObject fallback;
12794 SG_ENTER_SUBR("hashtable-ref");
12795 if ((SG_ARGC > 3 &&
12796 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12797 SG_ARGC < 2)
12798 Sg_WrongNumberOfArgumentsBetweenViolation(
12799 SG_INTERN("hashtable-ref"), 2, 3, SG_ARGC, SG_NIL);
12800 ht_scm = SG_ARGREF(0);
12801 if (!SG_HASHTABLE_P(ht_scm))
12802 Sg_WrongTypeOfArgumentViolation(
12803 sg__rc_cgen9166.d9486[550], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12804 ht = SG_HASHTABLE(ht_scm);
12805 key_scm = SG_ARGREF(1);
12806 key = (key_scm);
12807 if (SG_ARGC > 2+1) {
12808 fallback_scm = SG_ARGREF(2);
12809 } else {
12810 fallback_scm = SG_FALSE;
12811 }
12812 fallback = (fallback_scm);
12813 {
12814 {
12815 SgObject SG_RESULT = (SgObject)NULL;
12816
12817 #line 2641 "./lib_core.stub"
12818 SG_RESULT=(Sg_HashTableRef(ht,key,fallback));
12819 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12820 }
12821 }
12822 }
12823 static SG_DEFINE_SUBR(core_hashtable_ref__STUB, 2, 2,core_hashtable_ref, SG_FALSE, NULL);
12824
core_hashtable_setX(SgObject * SG_FP,int SG_ARGC,void * data_)12825 static SgObject core_hashtable_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
12826 {
12827 SgObject ht_scm;
12828 SgHashTable* ht;
12829 SgObject key_scm;
12830 SgObject key;
12831 SgObject value_scm;
12832 SgObject value;
12833 SG_ENTER_SUBR("hashtable-set!");
12834 if (SG_ARGC != 3)
12835 Sg_WrongNumberOfArgumentsViolation(
12836 SG_INTERN("hashtable-set!"), 3, SG_ARGC, SG_NIL);
12837 ht_scm = SG_ARGREF(0);
12838 if (!SG_HASHTABLE_P(ht_scm))
12839 Sg_WrongTypeOfArgumentViolation(
12840 sg__rc_cgen9166.d9486[551], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12841 ht = SG_HASHTABLE(ht_scm);
12842 key_scm = SG_ARGREF(1);
12843 key = (key_scm);
12844 value_scm = SG_ARGREF(2);
12845 value = (value_scm);
12846 {
12847
12848 #line 2650 "./lib_core.stub"
12849 if (SG_IMMUTABLE_HASHTABLE_P(ht)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[552],SG_MAKE_STRING("attemp to modify an immutable hashtable"),ht);}}}
12850
12851 #line 2651 "./lib_core.stub"
12852 Sg_HashTableSet(ht,key,value,0);
12853 SG_RETURN(SG_UNDEF);
12854 }
12855 }
12856 static SG_DEFINE_SUBR(core_hashtable_setX__STUB, 3, 0,core_hashtable_setX, SG_FALSE, NULL);
12857
core_hashtable_deleteX(SgObject * SG_FP,int SG_ARGC,void * data_)12858 static SgObject core_hashtable_deleteX(SgObject *SG_FP, int SG_ARGC, void *data_)
12859 {
12860 SgObject ht_scm;
12861 SgHashTable* ht;
12862 SgObject key_scm;
12863 SgObject key;
12864 SG_ENTER_SUBR("hashtable-delete!");
12865 if (SG_ARGC != 2)
12866 Sg_WrongNumberOfArgumentsViolation(
12867 SG_INTERN("hashtable-delete!"), 2, SG_ARGC, SG_NIL);
12868 ht_scm = SG_ARGREF(0);
12869 if (!SG_HASHTABLE_P(ht_scm))
12870 Sg_WrongTypeOfArgumentViolation(
12871 sg__rc_cgen9166.d9486[553], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12872 ht = SG_HASHTABLE(ht_scm);
12873 key_scm = SG_ARGREF(1);
12874 key = (key_scm);
12875 {
12876
12877 #line 2654 "./lib_core.stub"
12878 if (SG_IMMUTABLE_HASHTABLE_P(ht)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[552],SG_MAKE_STRING("attemp to modify an immutable hashtable"),ht);}}}
12879
12880 #line 2655 "./lib_core.stub"
12881 Sg_HashTableDelete(ht,key);
12882 SG_RETURN(SG_UNDEF);
12883 }
12884 }
12885 static SG_DEFINE_SUBR(core_hashtable_deleteX__STUB, 2, 0,core_hashtable_deleteX, SG_FALSE, NULL);
12886
core_hashtable_containsP(SgObject * SG_FP,int SG_ARGC,void * data_)12887 static SgObject core_hashtable_containsP(SgObject *SG_FP, int SG_ARGC, void *data_)
12888 {
12889 SgObject ht_scm;
12890 SgHashTable* ht;
12891 SgObject key_scm;
12892 SgObject key;
12893 SG_ENTER_SUBR("hashtable-contains?");
12894 if (SG_ARGC != 2)
12895 Sg_WrongNumberOfArgumentsViolation(
12896 SG_INTERN("hashtable-contains?"), 2, SG_ARGC, SG_NIL);
12897 ht_scm = SG_ARGREF(0);
12898 if (!SG_HASHTABLE_P(ht_scm))
12899 Sg_WrongTypeOfArgumentViolation(
12900 sg__rc_cgen9166.d9486[554], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12901 ht = SG_HASHTABLE(ht_scm);
12902 key_scm = SG_ARGREF(1);
12903 key = (key_scm);
12904 {
12905 {
12906 int SG_RESULT = (int)FALSE;
12907
12908 #line 2659 "./lib_core.stub"
12909 SG_RESULT=((Sg_HashTableRef(ht,key,NULL))!=(NULL));
12910 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
12911 }
12912 }
12913 }
12914 static SG_DEFINE_SUBR(core_hashtable_containsP__STUB, 2, 0,core_hashtable_containsP, SG_FALSE, NULL);
12915
core_hashtable_copy(SgObject * SG_FP,int SG_ARGC,void * data_)12916 static SgObject core_hashtable_copy(SgObject *SG_FP, int SG_ARGC, void *data_)
12917 {
12918 SgObject ht_scm;
12919 SgHashTable* ht;
12920 SgObject mutableP_scm;
12921 int mutableP;
12922 SG_ENTER_SUBR("hashtable-copy");
12923 if ((SG_ARGC > 2 &&
12924 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12925 SG_ARGC < 1)
12926 Sg_WrongNumberOfArgumentsBetweenViolation(
12927 SG_INTERN("hashtable-copy"), 1, 2, SG_ARGC, SG_NIL);
12928 ht_scm = SG_ARGREF(0);
12929 if (!SG_HASHTABLE_P(ht_scm))
12930 Sg_WrongTypeOfArgumentViolation(
12931 sg__rc_cgen9166.d9486[555], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12932 ht = SG_HASHTABLE(ht_scm);
12933 if (SG_ARGC > 1+1) {
12934 mutableP_scm = SG_ARGREF(1);
12935 } else {
12936 mutableP_scm = SG_FALSE;
12937 }
12938 if (!SG_FALSEP(mutableP_scm) && !SG_BOOLP(mutableP_scm))
12939 Sg_WrongTypeOfArgumentViolation(
12940 sg__rc_cgen9166.d9486[555], SG_MAKE_STRING("boolean"), mutableP_scm, SG_NIL);
12941 mutableP = SG_BOOL_VALUE(mutableP_scm);
12942 {
12943 {
12944 SgObject SG_RESULT = (SgObject)NULL;
12945
12946 #line 2663 "./lib_core.stub"
12947 SG_RESULT=(Sg_HashTableCopy(ht,mutableP));
12948 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12949 }
12950 }
12951 }
12952 static SG_DEFINE_SUBR(core_hashtable_copy__STUB, 1, 2,core_hashtable_copy, SG_FALSE, NULL);
12953
core_hashtable_clearX(SgObject * SG_FP,int SG_ARGC,void * data_)12954 static SgObject core_hashtable_clearX(SgObject *SG_FP, int SG_ARGC, void *data_)
12955 {
12956 SgObject ht_scm;
12957 SgHashTable* ht;
12958 SgObject k_scm;
12959 long k;
12960 SG_ENTER_SUBR("hashtable-clear!");
12961 if ((SG_ARGC > 2 &&
12962 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12963 SG_ARGC < 1)
12964 Sg_WrongNumberOfArgumentsBetweenViolation(
12965 SG_INTERN("hashtable-clear!"), 1, 2, SG_ARGC, SG_NIL);
12966 ht_scm = SG_ARGREF(0);
12967 if (!SG_HASHTABLE_P(ht_scm))
12968 Sg_WrongTypeOfArgumentViolation(
12969 sg__rc_cgen9166.d9486[556], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12970 ht = SG_HASHTABLE(ht_scm);
12971 if (SG_ARGC > 1+1) {
12972 k_scm = SG_ARGREF(1);
12973 } else {
12974 k_scm = SG_MAKE_INT(-1);
12975 }
12976 if (!SG_INTP(k_scm) && !SG_INTP(k_scm))
12977 Sg_WrongTypeOfArgumentViolation(
12978 sg__rc_cgen9166.d9486[556], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
12979 k = SG_INT_VALUE(k_scm);
12980 {
12981
12982 #line 2667 "./lib_core.stub"
12983 if (SG_IMMUTABLE_HASHTABLE_P(ht)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[557],SG_MAKE_STRING("attemp to modify an immutable hashtable"),ht);}}}
12984
12985 #line 2668 "./lib_core.stub"
12986 Sg_HashCoreClear(SG_HASHTABLE_CORE(ht),k);
12987 SG_RETURN(SG_UNDEF);
12988 }
12989 }
12990 static SG_DEFINE_SUBR(core_hashtable_clearX__STUB, 1, 2,core_hashtable_clearX, SG_FALSE, NULL);
12991
core_hashtable_keys(SgObject * SG_FP,int SG_ARGC,void * data_)12992 static SgObject core_hashtable_keys(SgObject *SG_FP, int SG_ARGC, void *data_)
12993 {
12994 SgObject ht_scm;
12995 SgHashTable* ht;
12996 SG_ENTER_SUBR("hashtable-keys");
12997 if (SG_ARGC != 1)
12998 Sg_WrongNumberOfArgumentsViolation(
12999 SG_INTERN("hashtable-keys"), 1, SG_ARGC, SG_NIL);
13000 ht_scm = SG_ARGREF(0);
13001 if (!SG_HASHTABLE_P(ht_scm))
13002 Sg_WrongTypeOfArgumentViolation(
13003 sg__rc_cgen9166.d9486[558], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
13004 ht = SG_HASHTABLE(ht_scm);
13005 {
13006 {
13007 SgObject SG_RESULT = (SgObject)NULL;
13008
13009 #line 2671 "./lib_core.stub"
13010 {SgHashIter itr;SgObject r=
13011 Sg_MakeVector((SG_HASHTABLE_CORE(ht))->entryCount,SG_UNDEF);SgObject v;int i=0;
13012 #line 2675 "./lib_core.stub"
13013 Sg_HashIterInit(ht,(&(itr)));
13014 while ((Sg_HashIterNext((&(itr)),(&(v)),NULL))!=(NULL)){
13015 SG_VECTOR_ELEMENT(r,(i)++)=(v);}
13016 SG_RESULT=(r);}
13017 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13018 }
13019 }
13020 }
13021 static SG_DEFINE_SUBR(core_hashtable_keys__STUB, 1, 0,core_hashtable_keys, SG_FALSE, NULL);
13022
core_hashtable_entries(SgObject * SG_FP,int SG_ARGC,void * data_)13023 static SgObject core_hashtable_entries(SgObject *SG_FP, int SG_ARGC, void *data_)
13024 {
13025 SgObject ht_scm;
13026 SgHashTable* ht;
13027 SG_ENTER_SUBR("hashtable-entries");
13028 if (SG_ARGC != 1)
13029 Sg_WrongNumberOfArgumentsViolation(
13030 SG_INTERN("hashtable-entries"), 1, SG_ARGC, SG_NIL);
13031 ht_scm = SG_ARGREF(0);
13032 if (!SG_HASHTABLE_P(ht_scm))
13033 Sg_WrongTypeOfArgumentViolation(
13034 sg__rc_cgen9166.d9486[559], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
13035 ht = SG_HASHTABLE(ht_scm);
13036 {
13037 {
13038 SgObject SG_RESULT = (SgObject)NULL;
13039
13040 #line 2681 "./lib_core.stub"
13041 {SgHashIter itr;SgObject rk=
13042 Sg_MakeVector((SG_HASHTABLE_CORE(ht))->entryCount,SG_UNDEF);SgObject rv=
13043 Sg_MakeVector((SG_HASHTABLE_CORE(ht))->entryCount,SG_UNDEF);SgObject v;SgObject k;int i=0;
13044 #line 2687 "./lib_core.stub"
13045 Sg_HashIterInit(ht,(&(itr)));
13046 while ((Sg_HashIterNext((&(itr)),(&(k)),(&(v))))!=(NULL)){
13047 SG_VECTOR_ELEMENT(rk,i)=(k);
13048 SG_VECTOR_ELEMENT(rv,(i)++)=(v);}
13049 SG_RESULT=(Sg_Values2(rk,rv));}
13050 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13051 }
13052 }
13053 }
13054 static SG_DEFINE_SUBR(core_hashtable_entries__STUB, 1, 0,core_hashtable_entries, SG_FALSE, NULL);
13055
core_hashtable_mutableP(SgObject * SG_FP,int SG_ARGC,void * data_)13056 static SgObject core_hashtable_mutableP(SgObject *SG_FP, int SG_ARGC, void *data_)
13057 {
13058 SgObject ht_scm;
13059 SgHashTable* ht;
13060 SG_ENTER_SUBR("hashtable-mutable?");
13061 if (SG_ARGC != 1)
13062 Sg_WrongNumberOfArgumentsViolation(
13063 SG_INTERN("hashtable-mutable?"), 1, SG_ARGC, SG_NIL);
13064 ht_scm = SG_ARGREF(0);
13065 if (!SG_HASHTABLE_P(ht_scm))
13066 Sg_WrongTypeOfArgumentViolation(
13067 sg__rc_cgen9166.d9486[560], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
13068 ht = SG_HASHTABLE(ht_scm);
13069 {
13070 {
13071 int SG_RESULT = (int)FALSE;
13072
13073 #line 2695 "./lib_core.stub"
13074 SG_RESULT=((!(SG_IMMUTABLE_HASHTABLE_P(ht))));
13075 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
13076 }
13077 }
13078 }
13079 static SG_DEFINE_SUBR(core_hashtable_mutableP__STUB, 1, 0,core_hashtable_mutableP, SG_FALSE, NULL);
13080
core_string_hash(SgObject * SG_FP,int SG_ARGC,void * data_)13081 static SgObject core_string_hash(SgObject *SG_FP, int SG_ARGC, void *data_)
13082 {
13083 SgObject o_scm;
13084 SgString* o;
13085 SgObject bound_scm;
13086 SgObject bound;
13087 SgObject start_scm;
13088 long start;
13089 SgObject end_scm;
13090 long end;
13091 SG_ENTER_SUBR("string-hash");
13092 if ((SG_ARGC > 4 &&
13093 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
13094 SG_ARGC < 1)
13095 Sg_WrongNumberOfArgumentsBetweenViolation(
13096 SG_INTERN("string-hash"), 1, 4, SG_ARGC, SG_NIL);
13097 o_scm = SG_ARGREF(0);
13098 if (!SG_STRINGP(o_scm))
13099 Sg_WrongTypeOfArgumentViolation(
13100 sg__rc_cgen9166.d9486[561], SG_MAKE_STRING("string"), o_scm, SG_NIL);
13101 o = SG_STRING(o_scm);
13102 if (SG_ARGC > 1+1) {
13103 bound_scm = SG_ARGREF(1);
13104 } else {
13105 bound_scm = SG_UNBOUND;
13106 }
13107 bound = (bound_scm);
13108 if (SG_ARGC > 2+1) {
13109 start_scm = SG_ARGREF(2);
13110 } else {
13111 start_scm = SG_MAKE_INT(0);
13112 }
13113 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
13114 Sg_WrongTypeOfArgumentViolation(
13115 sg__rc_cgen9166.d9486[561], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
13116 start = SG_INT_VALUE(start_scm);
13117 if (SG_ARGC > 3+1) {
13118 end_scm = SG_ARGREF(3);
13119 } else {
13120 end_scm = SG_MAKE_INT(-1);
13121 }
13122 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
13123 Sg_WrongTypeOfArgumentViolation(
13124 sg__rc_cgen9166.d9486[561], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
13125 end = SG_INT_VALUE(end_scm);
13126 {
13127 {
13128 long SG_RESULT = (long)0;
13129
13130 #line 2705 "./lib_core.stub"
13131 {long modulo=0;
13132 if (SG_UNBOUNDP(bound)){modulo=(((uint32_t )(SG_INT_MAX)));}else if(
13133 SG_INTP(bound)){modulo=(SG_INT_VALUE(bound));}else if(
13134 SG_BIGNUMP(bound)){
13135 modulo=(Sg_BignumToUI(SG_BIGNUM(bound),SG_CLAMP_BOTH,NULL));}
13136 if ((modulo)==(0)){{
13137 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[562],SG_MAKE_STRING("argument out of domain"),bound);}}}
13138 #line 2714 "./lib_core.stub"
13139 SG_RESULT=(Sg_StringHash(Sg_MaybeSubstring(o,start,end),modulo));}
13140 SG_RETURN(SG_MAKE_INT(SG_RESULT));
13141 }
13142 }
13143 }
13144 static SG_DEFINE_SUBR(core_string_hash__STUB, 1, 4,core_string_hash, SG_FALSE, NULL);
13145
core_string_ci_hash(SgObject * SG_FP,int SG_ARGC,void * data_)13146 static SgObject core_string_ci_hash(SgObject *SG_FP, int SG_ARGC, void *data_)
13147 {
13148 SgObject o_scm;
13149 SgString* o;
13150 SgObject bound_scm;
13151 SgObject bound;
13152 SgObject start_scm;
13153 long start;
13154 SgObject end_scm;
13155 long end;
13156 SG_ENTER_SUBR("string-ci-hash");
13157 if ((SG_ARGC > 4 &&
13158 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
13159 SG_ARGC < 1)
13160 Sg_WrongNumberOfArgumentsBetweenViolation(
13161 SG_INTERN("string-ci-hash"), 1, 4, SG_ARGC, SG_NIL);
13162 o_scm = SG_ARGREF(0);
13163 if (!SG_STRINGP(o_scm))
13164 Sg_WrongTypeOfArgumentViolation(
13165 sg__rc_cgen9166.d9486[563], SG_MAKE_STRING("string"), o_scm, SG_NIL);
13166 o = SG_STRING(o_scm);
13167 if (SG_ARGC > 1+1) {
13168 bound_scm = SG_ARGREF(1);
13169 } else {
13170 bound_scm = SG_UNBOUND;
13171 }
13172 bound = (bound_scm);
13173 if (SG_ARGC > 2+1) {
13174 start_scm = SG_ARGREF(2);
13175 } else {
13176 start_scm = SG_MAKE_INT(0);
13177 }
13178 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
13179 Sg_WrongTypeOfArgumentViolation(
13180 sg__rc_cgen9166.d9486[563], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
13181 start = SG_INT_VALUE(start_scm);
13182 if (SG_ARGC > 3+1) {
13183 end_scm = SG_ARGREF(3);
13184 } else {
13185 end_scm = SG_MAKE_INT(-1);
13186 }
13187 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
13188 Sg_WrongTypeOfArgumentViolation(
13189 sg__rc_cgen9166.d9486[563], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
13190 end = SG_INT_VALUE(end_scm);
13191 {
13192 {
13193 long SG_RESULT = (long)0;
13194
13195 #line 2719 "./lib_core.stub"
13196 {long modulo=0;
13197 if (SG_UNBOUNDP(bound)){modulo=(((uint32_t )(SG_INT_MAX)));}else if(
13198 SG_INTP(bound)){modulo=(SG_INT_VALUE(bound));}else if(
13199 SG_BIGNUMP(bound)){
13200 modulo=(Sg_BignumToUI(SG_BIGNUM(bound),SG_CLAMP_BOTH,NULL));}
13201 if ((modulo)==(0)){{
13202 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[562],SG_MAKE_STRING("argument out of domain"),bound);}}}
13203 #line 2728 "./lib_core.stub"
13204 SG_RESULT=(Sg_StringHash(Sg_StringFoldCase(Sg_MaybeSubstring(o,start,end)),modulo));}
13205 SG_RETURN(SG_MAKE_INT(SG_RESULT));
13206 }
13207 }
13208 }
13209 static SG_DEFINE_SUBR(core_string_ci_hash__STUB, 1, 4,core_string_ci_hash, SG_FALSE, NULL);
13210
core_symbol_hash(SgObject * SG_FP,int SG_ARGC,void * data_)13211 static SgObject core_symbol_hash(SgObject *SG_FP, int SG_ARGC, void *data_)
13212 {
13213 SgObject o_scm;
13214 SgSymbol* o;
13215 SgObject ignore_scm;
13216 SgObject ignore;
13217 SG_ENTER_SUBR("symbol-hash");
13218 if ((SG_ARGC > 2 &&
13219 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
13220 SG_ARGC < 1)
13221 Sg_WrongNumberOfArgumentsBetweenViolation(
13222 SG_INTERN("symbol-hash"), 1, 2, SG_ARGC, SG_NIL);
13223 o_scm = SG_ARGREF(0);
13224 if (!SG_SYMBOLP(o_scm))
13225 Sg_WrongTypeOfArgumentViolation(
13226 sg__rc_cgen9166.d9486[564], SG_MAKE_STRING("symbol"), o_scm, SG_NIL);
13227 o = SG_SYMBOL(o_scm);
13228 if (SG_ARGC > 1+1) {
13229 ignore_scm = SG_ARGREF(1);
13230 } else {
13231 ignore_scm = SG_UNBOUND;
13232 }
13233 ignore = (ignore_scm);
13234 {
13235 {
13236 SgObject SG_RESULT = (SgObject)NULL;
13237
13238 #line 2732 "./lib_core.stub"
13239 SG_RESULT=(Sg_MakeIntegerU(Sg_EqHash(o,0)));
13240 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13241 }
13242 }
13243 }
13244 static SG_DEFINE_SUBR(core_symbol_hash__STUB, 1, 2,core_symbol_hash, SG_FALSE, NULL);
13245
core_eval(SgObject * SG_FP,int SG_ARGC,void * data_)13246 static SgObject core_eval(SgObject *SG_FP, int SG_ARGC, void *data_)
13247 {
13248 SgObject sexp_scm;
13249 SgObject sexp;
13250 SgObject env_scm;
13251 SgObject env;
13252 SG_ENTER_SUBR("eval");
13253 if (SG_ARGC != 2)
13254 Sg_WrongNumberOfArgumentsViolation(
13255 SG_INTERN("eval"), 2, SG_ARGC, SG_NIL);
13256 sexp_scm = SG_ARGREF(0);
13257 sexp = (sexp_scm);
13258 env_scm = SG_ARGREF(1);
13259 env = (env_scm);
13260 {
13261 {
13262 SgObject SG_RESULT = (SgObject)NULL;
13263 SG_RESULT=(Sg_VMEval(sexp,env));
13264 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13265 }
13266 }
13267 }
13268 static SG_DEFINE_SUBR(core_eval__STUB, 2, 0,core_eval, SG_FALSE, NULL);
13269
core_environment(SgObject * SG_FP,int SG_ARGC,void * data_)13270 static SgObject core_environment(SgObject *SG_FP, int SG_ARGC, void *data_)
13271 {
13272 SgObject spec_scm;
13273 SgObject spec;
13274 SG_ENTER_SUBR("environment");
13275 if (SG_ARGC < 0)
13276 Sg_WrongNumberOfArgumentsAtLeastViolation(
13277 SG_INTERN("environment"), 0, SG_ARGC, SG_NIL);
13278 spec_scm = SG_ARGREF(SG_ARGC-1);
13279 spec = (spec_scm);
13280 {
13281 {
13282 SgObject SG_RESULT = (SgObject)NULL;
13283
13284 #line 2739 "./lib_core.stub"
13285 SG_RESULT=(Sg_VMEnvironment(Sg_MakeEvalLibrary(),spec));
13286 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13287 }
13288 }
13289 }
13290 static SG_DEFINE_SUBR(core_environment__STUB, 0, 1,core_environment, SG_FALSE, NULL);
13291
core_set_carX(SgObject * SG_FP,int SG_ARGC,void * data_)13292 static SgObject core_set_carX(SgObject *SG_FP, int SG_ARGC, void *data_)
13293 {
13294 SgObject o_scm;
13295 SgPair* o;
13296 SgObject v_scm;
13297 SgObject v;
13298 SG_ENTER_SUBR("set-car!");
13299 if (SG_ARGC != 2)
13300 Sg_WrongNumberOfArgumentsViolation(
13301 SG_INTERN("set-car!"), 2, SG_ARGC, SG_NIL);
13302 o_scm = SG_ARGREF(0);
13303 if (!SG_PAIRP(o_scm))
13304 Sg_WrongTypeOfArgumentViolation(
13305 sg__rc_cgen9166.d9486[567], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
13306 o = SG_PAIR(o_scm);
13307 v_scm = SG_ARGREF(1);
13308 v = (v_scm);
13309 {
13310
13311 #line 2743 "./lib_core.stub"
13312 if (Sg_ConstantLiteralP(o)){{
13313 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[568],SG_MAKE_STRING("attempt to modify constant literal"),o);}}}
13314
13315 #line 2745 "./lib_core.stub"
13316 SG_SET_CAR(o,v);
13317 SG_RETURN(SG_UNDEF);
13318 }
13319 }
13320 static SG_DEFINE_SUBR(core_set_carX__STUB, 2, 0,core_set_carX, SG_MAKE_INT(SET_CAR), NULL);
13321
core_set_cdrX(SgObject * SG_FP,int SG_ARGC,void * data_)13322 static SgObject core_set_cdrX(SgObject *SG_FP, int SG_ARGC, void *data_)
13323 {
13324 SgObject o_scm;
13325 SgPair* o;
13326 SgObject v_scm;
13327 SgObject v;
13328 SG_ENTER_SUBR("set-cdr!");
13329 if (SG_ARGC != 2)
13330 Sg_WrongNumberOfArgumentsViolation(
13331 SG_INTERN("set-cdr!"), 2, SG_ARGC, SG_NIL);
13332 o_scm = SG_ARGREF(0);
13333 if (!SG_PAIRP(o_scm))
13334 Sg_WrongTypeOfArgumentViolation(
13335 sg__rc_cgen9166.d9486[570], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
13336 o = SG_PAIR(o_scm);
13337 v_scm = SG_ARGREF(1);
13338 v = (v_scm);
13339 {
13340
13341 #line 2748 "./lib_core.stub"
13342 if (Sg_ConstantLiteralP(o)){{
13343 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[571],SG_MAKE_STRING("attempt to modify constant literal"),o);}}}
13344
13345 #line 2750 "./lib_core.stub"
13346 SG_SET_CDR(o,v);
13347 SG_RETURN(SG_UNDEF);
13348 }
13349 }
13350 static SG_DEFINE_SUBR(core_set_cdrX__STUB, 2, 0,core_set_cdrX, SG_MAKE_INT(SET_CDR), NULL);
13351
core_string_setX(SgObject * SG_FP,int SG_ARGC,void * data_)13352 static SgObject core_string_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
13353 {
13354 SgObject s_scm;
13355 SgString* s;
13356 SgObject k_scm;
13357 long k;
13358 SgObject c_scm;
13359 SgChar c;
13360 SG_ENTER_SUBR("string-set!");
13361 if (SG_ARGC != 3)
13362 Sg_WrongNumberOfArgumentsViolation(
13363 SG_INTERN("string-set!"), 3, SG_ARGC, SG_NIL);
13364 s_scm = SG_ARGREF(0);
13365 if (!SG_STRINGP(s_scm))
13366 Sg_WrongTypeOfArgumentViolation(
13367 sg__rc_cgen9166.d9486[573], SG_MAKE_STRING("string"), s_scm, SG_NIL);
13368 s = SG_STRING(s_scm);
13369 k_scm = SG_ARGREF(1);
13370 if (!SG_INTP(k_scm))
13371 Sg_WrongTypeOfArgumentViolation(
13372 sg__rc_cgen9166.d9486[573], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
13373 k = SG_INT_VALUE(k_scm);
13374 c_scm = SG_ARGREF(2);
13375 if (!SG_CHARP(c_scm))
13376 Sg_WrongTypeOfArgumentViolation(
13377 sg__rc_cgen9166.d9486[573], SG_MAKE_STRING("character"), c_scm, SG_NIL);
13378 c = SG_CHAR_VALUE(c_scm);
13379 {
13380 Sg_StringSet(s,k,c);
13381 SG_RETURN(SG_UNDEF);
13382 }
13383 }
13384 static SG_DEFINE_SUBR(core_string_setX__STUB, 3, 0,core_string_setX, SG_FALSE, NULL);
13385
core_string_fillX(SgObject * SG_FP,int SG_ARGC,void * data_)13386 static SgObject core_string_fillX(SgObject *SG_FP, int SG_ARGC, void *data_)
13387 {
13388 SgObject s_scm;
13389 SgString* s;
13390 SgObject c_scm;
13391 SgChar c;
13392 SgObject start_scm;
13393 long start;
13394 SgObject end_scm;
13395 long end;
13396 SG_ENTER_SUBR("string-fill!");
13397 if ((SG_ARGC > 4 &&
13398 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
13399 SG_ARGC < 2)
13400 Sg_WrongNumberOfArgumentsBetweenViolation(
13401 SG_INTERN("string-fill!"), 2, 4, SG_ARGC, SG_NIL);
13402 s_scm = SG_ARGREF(0);
13403 if (!SG_STRINGP(s_scm))
13404 Sg_WrongTypeOfArgumentViolation(
13405 sg__rc_cgen9166.d9486[574], SG_MAKE_STRING("string"), s_scm, SG_NIL);
13406 s = SG_STRING(s_scm);
13407 c_scm = SG_ARGREF(1);
13408 if (!SG_CHARP(c_scm))
13409 Sg_WrongTypeOfArgumentViolation(
13410 sg__rc_cgen9166.d9486[574], SG_MAKE_STRING("character"), c_scm, SG_NIL);
13411 c = SG_CHAR_VALUE(c_scm);
13412 if (SG_ARGC > 2+1) {
13413 start_scm = SG_ARGREF(2);
13414 } else {
13415 start_scm = SG_MAKE_INT(0);
13416 }
13417 if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
13418 Sg_WrongTypeOfArgumentViolation(
13419 sg__rc_cgen9166.d9486[574], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
13420 start = SG_INT_VALUE(start_scm);
13421 if (SG_ARGC > 3+1) {
13422 end_scm = SG_ARGREF(3);
13423 } else {
13424 end_scm = SG_MAKE_INT(-1);
13425 }
13426 if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
13427 Sg_WrongTypeOfArgumentViolation(
13428 sg__rc_cgen9166.d9486[574], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
13429 end = SG_INT_VALUE(end_scm);
13430 {
13431
13432 #line 2760 "./lib_core.stub"
13433 if (SG_IMMUTABLE_STRINGP(s)){{
13434 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[575],SG_MAKE_STRING("attempted to modify an immutable string"),s);}}}
13435
13436 #line 2764 "./lib_core.stub"
13437 Sg_StringFill(s,c,start,end);
13438 SG_RETURN(SG_UNDEF);
13439 }
13440 }
13441 static SG_DEFINE_SUBR(core_string_fillX__STUB, 2, 3,core_string_fillX, SG_FALSE, NULL);
13442
core__25recordP(SgObject * SG_FP,int SG_ARGC,void * data_)13443 static SgObject core__25recordP(SgObject *SG_FP, int SG_ARGC, void *data_)
13444 {
13445 SgObject o_scm;
13446 SgObject o;
13447 SG_ENTER_SUBR("%record?");
13448 if (SG_ARGC != 1)
13449 Sg_WrongNumberOfArgumentsViolation(
13450 SG_INTERN("%record?"), 1, SG_ARGC, SG_NIL);
13451 o_scm = SG_ARGREF(0);
13452 o = (o_scm);
13453 {
13454 {
13455 int SG_RESULT = (int)FALSE;
13456 SG_RESULT=(Sg_RecordP(o));
13457 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
13458 }
13459 }
13460 }
13461 static SG_DEFINE_SUBR(core__25recordP__STUB, 1, 0,core__25recordP, SG_FALSE, NULL);
13462
core_condition(SgObject * SG_FP,int SG_ARGC,void * data_)13463 static SgObject core_condition(SgObject *SG_FP, int SG_ARGC, void *data_)
13464 {
13465 SgObject components_scm;
13466 SgObject components;
13467 SG_ENTER_SUBR("condition");
13468 if (SG_ARGC < 0)
13469 Sg_WrongNumberOfArgumentsAtLeastViolation(
13470 SG_INTERN("condition"), 0, SG_ARGC, SG_NIL);
13471 components_scm = SG_ARGREF(SG_ARGC-1);
13472 components = (components_scm);
13473 {
13474 {
13475 SgObject SG_RESULT = (SgObject)NULL;
13476 SG_RESULT=(Sg_Condition(components));
13477 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13478 }
13479 }
13480 }
13481 static SG_DEFINE_SUBR(core_condition__STUB, 0, 1,core_condition, SG_FALSE, NULL);
13482
core_simple_conditions(SgObject * SG_FP,int SG_ARGC,void * data_)13483 static SgObject core_simple_conditions(SgObject *SG_FP, int SG_ARGC, void *data_)
13484 {
13485 SgObject obj_scm;
13486 SgObject obj;
13487 SG_ENTER_SUBR("simple-conditions");
13488 if (SG_ARGC != 1)
13489 Sg_WrongNumberOfArgumentsViolation(
13490 SG_INTERN("simple-conditions"), 1, SG_ARGC, SG_NIL);
13491 obj_scm = SG_ARGREF(0);
13492 obj = (obj_scm);
13493 {
13494 {
13495 SgObject SG_RESULT = (SgObject)NULL;
13496 SG_RESULT=(Sg_SimpleConditions(obj));
13497 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13498 }
13499 }
13500 }
13501 static SG_DEFINE_SUBR(core_simple_conditions__STUB, 1, 0,core_simple_conditions, SG_FALSE, NULL);
13502
core_compound_condition_component(SgObject * SG_FP,int SG_ARGC,void * data_)13503 static SgObject core_compound_condition_component(SgObject *SG_FP, int SG_ARGC, void *data_)
13504 {
13505 SgObject obj_scm;
13506 SgObject obj;
13507 SG_ENTER_SUBR("compound-condition-component");
13508 if (SG_ARGC != 1)
13509 Sg_WrongNumberOfArgumentsViolation(
13510 SG_INTERN("compound-condition-component"), 1, SG_ARGC, SG_NIL);
13511 obj_scm = SG_ARGREF(0);
13512 obj = (obj_scm);
13513 {
13514 {
13515 SgObject SG_RESULT = (SgObject)NULL;
13516 SG_RESULT=(Sg_CompoundConditionComponent(obj));
13517 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13518 }
13519 }
13520 }
13521 static SG_DEFINE_SUBR(core_compound_condition_component__STUB, 1, 0,core_compound_condition_component, SG_FALSE, NULL);
13522
core_compound_conditionP(SgObject * SG_FP,int SG_ARGC,void * data_)13523 static SgObject core_compound_conditionP(SgObject *SG_FP, int SG_ARGC, void *data_)
13524 {
13525 SgObject obj_scm;
13526 SgObject obj;
13527 SG_ENTER_SUBR("compound-condition?");
13528 if (SG_ARGC != 1)
13529 Sg_WrongNumberOfArgumentsViolation(
13530 SG_INTERN("compound-condition?"), 1, SG_ARGC, SG_NIL);
13531 obj_scm = SG_ARGREF(0);
13532 obj = (obj_scm);
13533 {
13534 {
13535 int SG_RESULT = (int)FALSE;
13536 SG_RESULT=(Sg_CompoundConditionP(obj));
13537 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
13538 }
13539 }
13540 }
13541 static SG_DEFINE_SUBR(core_compound_conditionP__STUB, 1, 0,core_compound_conditionP, SG_FALSE, NULL);
13542
core_simple_conditionP(SgObject * SG_FP,int SG_ARGC,void * data_)13543 static SgObject core_simple_conditionP(SgObject *SG_FP, int SG_ARGC, void *data_)
13544 {
13545 SgObject obj_scm;
13546 SgObject obj;
13547 SG_ENTER_SUBR("simple-condition?");
13548 if (SG_ARGC != 1)
13549 Sg_WrongNumberOfArgumentsViolation(
13550 SG_INTERN("simple-condition?"), 1, SG_ARGC, SG_NIL);
13551 obj_scm = SG_ARGREF(0);
13552 obj = (obj_scm);
13553 {
13554 {
13555 int SG_RESULT = (int)FALSE;
13556 SG_RESULT=(Sg_SimpleConditionP(obj));
13557 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
13558 }
13559 }
13560 }
13561 static SG_DEFINE_SUBR(core_simple_conditionP__STUB, 1, 0,core_simple_conditionP, SG_FALSE, NULL);
13562
core_conditionP(SgObject * SG_FP,int SG_ARGC,void * data_)13563 static SgObject core_conditionP(SgObject *SG_FP, int SG_ARGC, void *data_)
13564 {
13565 SgObject obj_scm;
13566 SgObject obj;
13567 SG_ENTER_SUBR("condition?");
13568 if (SG_ARGC != 1)
13569 Sg_WrongNumberOfArgumentsViolation(
13570 SG_INTERN("condition?"), 1, SG_ARGC, SG_NIL);
13571 obj_scm = SG_ARGREF(0);
13572 obj = (obj_scm);
13573 {
13574 {
13575 int SG_RESULT = (int)FALSE;
13576 SG_RESULT=(Sg_ConditionP(obj));
13577 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
13578 }
13579 }
13580 }
13581 static SG_DEFINE_SUBR(core_conditionP__STUB, 1, 0,core_conditionP, SG_FALSE, NULL);
13582
Sg__Init_core()13583 void Sg__Init_core () {
13584 SgLibrary *lib = SG_LIBRARY(Sg_FindLibrary(SG_INTERN("(core)"), TRUE));
13585 sg__rc_cgen9166.d9486[0] = SG_MAKE_STRING("boolean?");
13586 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[0]), &core_booleanP__STUB);
13587 SG_PROCEDURE_NAME(&core_booleanP__STUB) = sg__rc_cgen9166.d9486[0];
13588 SG_PROCEDURE_TRANSPARENT(&core_booleanP__STUB) = SG_PROC_TRANSPARENT;
13589 sg__rc_cgen9166.d9486[1] = SG_MAKE_STRING("pair?");
13590 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[1]), &core_pairP__STUB);
13591 SG_PROCEDURE_NAME(&core_pairP__STUB) = sg__rc_cgen9166.d9486[1];
13592 SG_PROCEDURE_TRANSPARENT(&core_pairP__STUB) = SG_PROC_TRANSPARENT;
13593 sg__rc_cgen9166.d9486[2] = SG_MAKE_STRING("symbol?");
13594 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[2]), &core_symbolP__STUB);
13595 SG_PROCEDURE_NAME(&core_symbolP__STUB) = sg__rc_cgen9166.d9486[2];
13596 SG_PROCEDURE_TRANSPARENT(&core_symbolP__STUB) = SG_PROC_TRANSPARENT;
13597 sg__rc_cgen9166.d9486[3] = SG_MAKE_STRING("number?");
13598 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[3]), &core_numberP__STUB);
13599 SG_PROCEDURE_NAME(&core_numberP__STUB) = sg__rc_cgen9166.d9486[3];
13600 SG_PROCEDURE_TRANSPARENT(&core_numberP__STUB) = SG_PROC_TRANSPARENT;
13601 sg__rc_cgen9166.d9486[4] = SG_MAKE_STRING("char?");
13602 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[4]), &core_charP__STUB);
13603 SG_PROCEDURE_NAME(&core_charP__STUB) = sg__rc_cgen9166.d9486[4];
13604 SG_PROCEDURE_TRANSPARENT(&core_charP__STUB) = SG_PROC_TRANSPARENT;
13605 sg__rc_cgen9166.d9486[5] = SG_MAKE_STRING("string?");
13606 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[5]), &core_stringP__STUB);
13607 SG_PROCEDURE_NAME(&core_stringP__STUB) = sg__rc_cgen9166.d9486[5];
13608 SG_PROCEDURE_TRANSPARENT(&core_stringP__STUB) = SG_PROC_TRANSPARENT;
13609 sg__rc_cgen9166.d9486[6] = SG_MAKE_STRING("vector?");
13610 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[6]), &core_vectorP__STUB);
13611 SG_PROCEDURE_NAME(&core_vectorP__STUB) = sg__rc_cgen9166.d9486[6];
13612 SG_PROCEDURE_TRANSPARENT(&core_vectorP__STUB) = SG_PROC_TRANSPARENT;
13613 sg__rc_cgen9166.d9486[7] = SG_MAKE_STRING("procedure?");
13614 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[7]), &core_procedureP__STUB);
13615 SG_PROCEDURE_NAME(&core_procedureP__STUB) = sg__rc_cgen9166.d9486[7];
13616 SG_PROCEDURE_TRANSPARENT(&core_procedureP__STUB) = SG_PROC_TRANSPARENT;
13617 sg__rc_cgen9166.d9486[8] = SG_MAKE_STRING("null?");
13618 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[8]), &core_nullP__STUB);
13619 SG_PROCEDURE_NAME(&core_nullP__STUB) = sg__rc_cgen9166.d9486[8];
13620 SG_PROCEDURE_TRANSPARENT(&core_nullP__STUB) = SG_PROC_TRANSPARENT;
13621 sg__rc_cgen9166.d9486[9] = SG_MAKE_STRING("complex?");
13622 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[9]), &core_complexP__STUB);
13623 SG_PROCEDURE_NAME(&core_complexP__STUB) = sg__rc_cgen9166.d9486[9];
13624 SG_PROCEDURE_TRANSPARENT(&core_complexP__STUB) = SG_PROC_TRANSPARENT;
13625 sg__rc_cgen9166.d9486[10] = SG_MAKE_STRING("real?");
13626 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[10]), &core_realP__STUB);
13627 SG_PROCEDURE_NAME(&core_realP__STUB) = sg__rc_cgen9166.d9486[10];
13628 SG_PROCEDURE_TRANSPARENT(&core_realP__STUB) = SG_PROC_TRANSPARENT;
13629 sg__rc_cgen9166.d9486[11] = SG_MAKE_STRING("rational?");
13630 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[11]), &core_rationalP__STUB);
13631 SG_PROCEDURE_NAME(&core_rationalP__STUB) = sg__rc_cgen9166.d9486[11];
13632 SG_PROCEDURE_TRANSPARENT(&core_rationalP__STUB) = SG_PROC_TRANSPARENT;
13633 sg__rc_cgen9166.d9486[12] = SG_MAKE_STRING("integer?");
13634 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[12]), &core_integerP__STUB);
13635 SG_PROCEDURE_NAME(&core_integerP__STUB) = sg__rc_cgen9166.d9486[12];
13636 SG_PROCEDURE_TRANSPARENT(&core_integerP__STUB) = SG_PROC_TRANSPARENT;
13637 sg__rc_cgen9166.d9486[13] = SG_MAKE_STRING("real-valued?");
13638 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[13]), &core_real_valuedP__STUB);
13639 SG_PROCEDURE_NAME(&core_real_valuedP__STUB) = sg__rc_cgen9166.d9486[13];
13640 SG_PROCEDURE_TRANSPARENT(&core_real_valuedP__STUB) = SG_PROC_TRANSPARENT;
13641 sg__rc_cgen9166.d9486[14] = SG_MAKE_STRING("rational-valued?");
13642 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[14]), &core_rational_valuedP__STUB);
13643 SG_PROCEDURE_NAME(&core_rational_valuedP__STUB) = sg__rc_cgen9166.d9486[14];
13644 SG_PROCEDURE_TRANSPARENT(&core_rational_valuedP__STUB) = SG_PROC_TRANSPARENT;
13645 sg__rc_cgen9166.d9486[15] = SG_MAKE_STRING("integer-valued?");
13646 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[15]), &core_integer_valuedP__STUB);
13647 SG_PROCEDURE_NAME(&core_integer_valuedP__STUB) = sg__rc_cgen9166.d9486[15];
13648 SG_PROCEDURE_TRANSPARENT(&core_integer_valuedP__STUB) = SG_PROC_TRANSPARENT;
13649 sg__rc_cgen9166.d9486[16] = SG_MAKE_STRING("exact?");
13650 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[16]), &core_exactP__STUB);
13651 SG_PROCEDURE_NAME(&core_exactP__STUB) = sg__rc_cgen9166.d9486[16];
13652 SG_PROCEDURE_TRANSPARENT(&core_exactP__STUB) = SG_PROC_TRANSPARENT;
13653 sg__rc_cgen9166.d9486[17] = SG_MAKE_STRING("inexact?");
13654 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[17]), &core_inexactP__STUB);
13655 SG_PROCEDURE_NAME(&core_inexactP__STUB) = sg__rc_cgen9166.d9486[17];
13656 SG_PROCEDURE_TRANSPARENT(&core_inexactP__STUB) = SG_PROC_TRANSPARENT;
13657 sg__rc_cgen9166.d9486[18] = SG_MAKE_STRING("inexact");
13658 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[18]), &core_inexact__STUB);
13659 SG_PROCEDURE_NAME(&core_inexact__STUB) = sg__rc_cgen9166.d9486[18];
13660 SG_PROCEDURE_TRANSPARENT(&core_inexact__STUB) = SG_PROC_TRANSPARENT;
13661 sg__rc_cgen9166.d9486[19] = SG_MAKE_STRING("exact");
13662 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[19]), &core_exact__STUB);
13663 SG_PROCEDURE_NAME(&core_exact__STUB) = sg__rc_cgen9166.d9486[19];
13664 SG_PROCEDURE_TRANSPARENT(&core_exact__STUB) = SG_PROC_TRANSPARENT;
13665 sg__rc_cgen9166.d9486[20] = SG_MAKE_STRING("=");
13666 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[20]), &core__3d__STUB);
13667 SG_PROCEDURE_NAME(&core__3d__STUB) = sg__rc_cgen9166.d9486[20];
13668 SG_PROCEDURE_TRANSPARENT(&core__3d__STUB) = SG_PROC_TRANSPARENT;
13669 sg__rc_cgen9166.d9486[21] = SG_MAKE_STRING("<");
13670 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[21]), &core__LT__STUB);
13671 SG_PROCEDURE_NAME(&core__LT__STUB) = sg__rc_cgen9166.d9486[21];
13672 SG_PROCEDURE_TRANSPARENT(&core__LT__STUB) = SG_PROC_TRANSPARENT;
13673 sg__rc_cgen9166.d9486[22] = SG_MAKE_STRING("<=");
13674 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[22]), &core__LT_3d__STUB);
13675 SG_PROCEDURE_NAME(&core__LT_3d__STUB) = sg__rc_cgen9166.d9486[22];
13676 SG_PROCEDURE_TRANSPARENT(&core__LT_3d__STUB) = SG_PROC_TRANSPARENT;
13677 sg__rc_cgen9166.d9486[23] = SG_MAKE_STRING(">");
13678 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[23]), &core__GT__STUB);
13679 SG_PROCEDURE_NAME(&core__GT__STUB) = sg__rc_cgen9166.d9486[23];
13680 SG_PROCEDURE_TRANSPARENT(&core__GT__STUB) = SG_PROC_TRANSPARENT;
13681 sg__rc_cgen9166.d9486[24] = SG_MAKE_STRING(">=");
13682 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[24]), &core__GT_3d__STUB);
13683 SG_PROCEDURE_NAME(&core__GT_3d__STUB) = sg__rc_cgen9166.d9486[24];
13684 SG_PROCEDURE_TRANSPARENT(&core__GT_3d__STUB) = SG_PROC_TRANSPARENT;
13685 sg__rc_cgen9166.d9486[25] = SG_MAKE_STRING("zero?");
13686 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[25]), &core_zeroP__STUB);
13687 SG_PROCEDURE_NAME(&core_zeroP__STUB) = sg__rc_cgen9166.d9486[25];
13688 SG_PROCEDURE_TRANSPARENT(&core_zeroP__STUB) = SG_PROC_TRANSPARENT;
13689 sg__rc_cgen9166.d9486[26] = SG_MAKE_STRING("positive?");
13690 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[26]), &core_positiveP__STUB);
13691 SG_PROCEDURE_NAME(&core_positiveP__STUB) = sg__rc_cgen9166.d9486[26];
13692 SG_PROCEDURE_TRANSPARENT(&core_positiveP__STUB) = SG_PROC_TRANSPARENT;
13693 sg__rc_cgen9166.d9486[27] = SG_MAKE_STRING("negative?");
13694 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[27]), &core_negativeP__STUB);
13695 SG_PROCEDURE_NAME(&core_negativeP__STUB) = sg__rc_cgen9166.d9486[27];
13696 SG_PROCEDURE_TRANSPARENT(&core_negativeP__STUB) = SG_PROC_TRANSPARENT;
13697 sg__rc_cgen9166.d9486[28] = SG_MAKE_STRING("odd?");
13698 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[28]), &core_oddP__STUB);
13699 SG_PROCEDURE_NAME(&core_oddP__STUB) = sg__rc_cgen9166.d9486[28];
13700 SG_PROCEDURE_TRANSPARENT(&core_oddP__STUB) = SG_PROC_TRANSPARENT;
13701 sg__rc_cgen9166.d9486[29] = SG_MAKE_STRING("even?");
13702 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[29]), &core_evenP__STUB);
13703 SG_PROCEDURE_NAME(&core_evenP__STUB) = sg__rc_cgen9166.d9486[29];
13704 SG_PROCEDURE_TRANSPARENT(&core_evenP__STUB) = SG_PROC_TRANSPARENT;
13705 sg__rc_cgen9166.d9486[30] = SG_MAKE_STRING("finite?");
13706 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[30]), &core_finiteP__STUB);
13707 SG_PROCEDURE_NAME(&core_finiteP__STUB) = sg__rc_cgen9166.d9486[30];
13708 sg__rc_cgen9166.d9486[31] = SG_MAKE_STRING("infinite?");
13709 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[31]), &core_infiniteP__STUB);
13710 SG_PROCEDURE_NAME(&core_infiniteP__STUB) = sg__rc_cgen9166.d9486[31];
13711 sg__rc_cgen9166.d9486[32] = SG_MAKE_STRING("nan?");
13712 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[32]), &core_nanP__STUB);
13713 SG_PROCEDURE_NAME(&core_nanP__STUB) = sg__rc_cgen9166.d9486[32];
13714 sg__rc_cgen9166.d9486[33] = SG_MAKE_STRING("max");
13715 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[33]), &core_max__STUB);
13716 SG_PROCEDURE_NAME(&core_max__STUB) = sg__rc_cgen9166.d9486[33];
13717 SG_PROCEDURE_TRANSPARENT(&core_max__STUB) = SG_PROC_TRANSPARENT;
13718 sg__rc_cgen9166.d9486[34] = SG_MAKE_STRING("min");
13719 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[34]), &core_min__STUB);
13720 SG_PROCEDURE_NAME(&core_min__STUB) = sg__rc_cgen9166.d9486[34];
13721 SG_PROCEDURE_TRANSPARENT(&core_min__STUB) = SG_PROC_TRANSPARENT;
13722 sg__rc_cgen9166.d9486[35] = SG_MAKE_STRING("+");
13723 sg__rc_cgen9166.d9486[36] = Sg_Intern(sg__rc_cgen9166.d9486[35]); /* + */
13724 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[35]), &core__2b__STUB);
13725 SG_PROCEDURE_NAME(&core__2b__STUB) = sg__rc_cgen9166.d9486[35];
13726 SG_PROCEDURE_TRANSPARENT(&core__2b__STUB) = SG_PROC_TRANSPARENT;
13727 sg__rc_cgen9166.d9486[37] = SG_MAKE_STRING("*");
13728 sg__rc_cgen9166.d9486[38] = Sg_Intern(sg__rc_cgen9166.d9486[37]); /* * */
13729 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[37]), &core__2a__STUB);
13730 SG_PROCEDURE_NAME(&core__2a__STUB) = sg__rc_cgen9166.d9486[37];
13731 SG_PROCEDURE_TRANSPARENT(&core__2a__STUB) = SG_PROC_TRANSPARENT;
13732 sg__rc_cgen9166.d9486[39] = SG_MAKE_STRING("-");
13733 sg__rc_cgen9166.d9486[40] = Sg_Intern(sg__rc_cgen9166.d9486[39]); /* - */
13734 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[39]), &core____STUB);
13735 SG_PROCEDURE_NAME(&core____STUB) = sg__rc_cgen9166.d9486[39];
13736 SG_PROCEDURE_TRANSPARENT(&core____STUB) = SG_PROC_TRANSPARENT;
13737 sg__rc_cgen9166.d9486[41] = SG_MAKE_STRING("/");
13738 sg__rc_cgen9166.d9486[42] = Sg_Intern(sg__rc_cgen9166.d9486[41]); /* / */
13739 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[41]), &core__2f__STUB);
13740 SG_PROCEDURE_NAME(&core__2f__STUB) = sg__rc_cgen9166.d9486[41];
13741 SG_PROCEDURE_TRANSPARENT(&core__2f__STUB) = SG_PROC_TRANSPARENT;
13742 sg__rc_cgen9166.d9486[43] = SG_MAKE_STRING("abs");
13743 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[43]), &core_abs__STUB);
13744 SG_PROCEDURE_NAME(&core_abs__STUB) = sg__rc_cgen9166.d9486[43];
13745 SG_PROCEDURE_TRANSPARENT(&core_abs__STUB) = SG_PROC_TRANSPARENT;
13746 sg__rc_cgen9166.d9486[44] = SG_MAKE_STRING("numerator");
13747 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[44]), &core_numerator__STUB);
13748 SG_PROCEDURE_NAME(&core_numerator__STUB) = sg__rc_cgen9166.d9486[44];
13749 SG_PROCEDURE_TRANSPARENT(&core_numerator__STUB) = SG_PROC_TRANSPARENT;
13750 sg__rc_cgen9166.d9486[45] = SG_MAKE_STRING("denominator");
13751 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[45]), &core_denominator__STUB);
13752 SG_PROCEDURE_NAME(&core_denominator__STUB) = sg__rc_cgen9166.d9486[45];
13753 SG_PROCEDURE_TRANSPARENT(&core_denominator__STUB) = SG_PROC_TRANSPARENT;
13754 sg__rc_cgen9166.d9486[46] = SG_MAKE_STRING("floor");
13755 sg__rc_cgen9166.d9486[47] = Sg_Intern(sg__rc_cgen9166.d9486[46]); /* floor */
13756 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[46]), &core_floor__STUB);
13757 SG_PROCEDURE_NAME(&core_floor__STUB) = sg__rc_cgen9166.d9486[46];
13758 SG_PROCEDURE_TRANSPARENT(&core_floor__STUB) = SG_PROC_TRANSPARENT;
13759 sg__rc_cgen9166.d9486[48] = SG_MAKE_STRING("ceiling");
13760 sg__rc_cgen9166.d9486[49] = Sg_Intern(sg__rc_cgen9166.d9486[48]); /* ceiling */
13761 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[48]), &core_ceiling__STUB);
13762 SG_PROCEDURE_NAME(&core_ceiling__STUB) = sg__rc_cgen9166.d9486[48];
13763 SG_PROCEDURE_TRANSPARENT(&core_ceiling__STUB) = SG_PROC_TRANSPARENT;
13764 sg__rc_cgen9166.d9486[50] = SG_MAKE_STRING("truncate");
13765 sg__rc_cgen9166.d9486[51] = Sg_Intern(sg__rc_cgen9166.d9486[50]); /* truncate */
13766 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[50]), &core_truncate__STUB);
13767 SG_PROCEDURE_NAME(&core_truncate__STUB) = sg__rc_cgen9166.d9486[50];
13768 SG_PROCEDURE_TRANSPARENT(&core_truncate__STUB) = SG_PROC_TRANSPARENT;
13769 sg__rc_cgen9166.d9486[52] = SG_MAKE_STRING("round");
13770 sg__rc_cgen9166.d9486[53] = Sg_Intern(sg__rc_cgen9166.d9486[52]); /* round */
13771 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[52]), &core_round__STUB);
13772 SG_PROCEDURE_NAME(&core_round__STUB) = sg__rc_cgen9166.d9486[52];
13773 SG_PROCEDURE_TRANSPARENT(&core_round__STUB) = SG_PROC_TRANSPARENT;
13774 sg__rc_cgen9166.d9486[54] = SG_MAKE_STRING("div");
13775 sg__rc_cgen9166.d9486[55] = Sg_Intern(sg__rc_cgen9166.d9486[54]); /* div */
13776 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[54]), &core_div__STUB);
13777 SG_PROCEDURE_NAME(&core_div__STUB) = sg__rc_cgen9166.d9486[54];
13778 SG_PROCEDURE_TRANSPARENT(&core_div__STUB) = SG_PROC_TRANSPARENT;
13779 sg__rc_cgen9166.d9486[56] = SG_MAKE_STRING("mod");
13780 sg__rc_cgen9166.d9486[57] = Sg_Intern(sg__rc_cgen9166.d9486[56]); /* mod */
13781 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[56]), &core_mod__STUB);
13782 SG_PROCEDURE_NAME(&core_mod__STUB) = sg__rc_cgen9166.d9486[56];
13783 SG_PROCEDURE_TRANSPARENT(&core_mod__STUB) = SG_PROC_TRANSPARENT;
13784 sg__rc_cgen9166.d9486[58] = SG_MAKE_STRING("div0");
13785 sg__rc_cgen9166.d9486[59] = Sg_Intern(sg__rc_cgen9166.d9486[58]); /* div0 */
13786 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[58]), &core_div0__STUB);
13787 SG_PROCEDURE_NAME(&core_div0__STUB) = sg__rc_cgen9166.d9486[58];
13788 SG_PROCEDURE_TRANSPARENT(&core_div0__STUB) = SG_PROC_TRANSPARENT;
13789 sg__rc_cgen9166.d9486[60] = SG_MAKE_STRING("mod0");
13790 sg__rc_cgen9166.d9486[61] = Sg_Intern(sg__rc_cgen9166.d9486[60]); /* mod0 */
13791 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[60]), &core_mod0__STUB);
13792 SG_PROCEDURE_NAME(&core_mod0__STUB) = sg__rc_cgen9166.d9486[60];
13793 SG_PROCEDURE_TRANSPARENT(&core_mod0__STUB) = SG_PROC_TRANSPARENT;
13794 sg__rc_cgen9166.d9486[62] = SG_MAKE_STRING("%gcd");
13795 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[62]), &core__25gcd__STUB);
13796 SG_PROCEDURE_NAME(&core__25gcd__STUB) = sg__rc_cgen9166.d9486[62];
13797 SG_PROCEDURE_TRANSPARENT(&core__25gcd__STUB) = SG_PROC_TRANSPARENT;
13798 sg__rc_cgen9166.d9486[63] = SG_MAKE_STRING("exp");
13799 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[63]), &core_exp__STUB);
13800 SG_PROCEDURE_NAME(&core_exp__STUB) = sg__rc_cgen9166.d9486[63];
13801 SG_PROCEDURE_TRANSPARENT(&core_exp__STUB) = SG_PROC_TRANSPARENT;
13802 sg__rc_cgen9166.d9486[64] = SG_MAKE_STRING("expt");
13803 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[64]), &core_expt__STUB);
13804 SG_PROCEDURE_NAME(&core_expt__STUB) = sg__rc_cgen9166.d9486[64];
13805 SG_PROCEDURE_TRANSPARENT(&core_expt__STUB) = SG_PROC_TRANSPARENT;
13806 sg__rc_cgen9166.d9486[65] = SG_MAKE_STRING("log");
13807 sg__rc_cgen9166.d9486[66] = Sg_Intern(sg__rc_cgen9166.d9486[65]); /* log */
13808 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[65]), &core_log__STUB);
13809 SG_PROCEDURE_NAME(&core_log__STUB) = sg__rc_cgen9166.d9486[65];
13810 SG_PROCEDURE_TRANSPARENT(&core_log__STUB) = SG_PROC_TRANSPARENT;
13811 sg__rc_cgen9166.d9486[67] = SG_MAKE_STRING("make-rectangular");
13812 sg__rc_cgen9166.d9486[68] = Sg_Intern(sg__rc_cgen9166.d9486[67]); /* make-rectangular */
13813 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[67]), &core_make_rectangular__STUB);
13814 SG_PROCEDURE_NAME(&core_make_rectangular__STUB) = sg__rc_cgen9166.d9486[67];
13815 SG_PROCEDURE_TRANSPARENT(&core_make_rectangular__STUB) = SG_PROC_TRANSPARENT;
13816 sg__rc_cgen9166.d9486[69] = SG_MAKE_STRING("make-polar");
13817 sg__rc_cgen9166.d9486[70] = Sg_Intern(sg__rc_cgen9166.d9486[69]); /* make-polar */
13818 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[69]), &core_make_polar__STUB);
13819 SG_PROCEDURE_NAME(&core_make_polar__STUB) = sg__rc_cgen9166.d9486[69];
13820 SG_PROCEDURE_TRANSPARENT(&core_make_polar__STUB) = SG_PROC_TRANSPARENT;
13821 sg__rc_cgen9166.d9486[71] = SG_MAKE_STRING("real-part");
13822 sg__rc_cgen9166.d9486[72] = Sg_Intern(sg__rc_cgen9166.d9486[71]); /* real-part */
13823 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[71]), &core_real_part__STUB);
13824 SG_PROCEDURE_NAME(&core_real_part__STUB) = sg__rc_cgen9166.d9486[71];
13825 SG_PROCEDURE_TRANSPARENT(&core_real_part__STUB) = SG_PROC_TRANSPARENT;
13826 sg__rc_cgen9166.d9486[73] = SG_MAKE_STRING("imag-part");
13827 sg__rc_cgen9166.d9486[74] = Sg_Intern(sg__rc_cgen9166.d9486[73]); /* imag-part */
13828 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[73]), &core_imag_part__STUB);
13829 SG_PROCEDURE_NAME(&core_imag_part__STUB) = sg__rc_cgen9166.d9486[73];
13830 SG_PROCEDURE_TRANSPARENT(&core_imag_part__STUB) = SG_PROC_TRANSPARENT;
13831 sg__rc_cgen9166.d9486[75] = SG_MAKE_STRING("magnitude");
13832 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[75]), &core_magnitude__STUB);
13833 SG_PROCEDURE_NAME(&core_magnitude__STUB) = sg__rc_cgen9166.d9486[75];
13834 SG_PROCEDURE_TRANSPARENT(&core_magnitude__STUB) = SG_PROC_TRANSPARENT;
13835 sg__rc_cgen9166.d9486[76] = SG_MAKE_STRING("angle");
13836 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[76]), &core_angle__STUB);
13837 SG_PROCEDURE_NAME(&core_angle__STUB) = sg__rc_cgen9166.d9486[76];
13838 SG_PROCEDURE_TRANSPARENT(&core_angle__STUB) = SG_PROC_TRANSPARENT;
13839 sg__rc_cgen9166.d9486[77] = SG_MAKE_STRING("sin");
13840 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[77]), &core_sin__STUB);
13841 SG_PROCEDURE_NAME(&core_sin__STUB) = sg__rc_cgen9166.d9486[77];
13842 SG_PROCEDURE_TRANSPARENT(&core_sin__STUB) = SG_PROC_TRANSPARENT;
13843 sg__rc_cgen9166.d9486[78] = SG_MAKE_STRING("cos");
13844 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[78]), &core_cos__STUB);
13845 SG_PROCEDURE_NAME(&core_cos__STUB) = sg__rc_cgen9166.d9486[78];
13846 SG_PROCEDURE_TRANSPARENT(&core_cos__STUB) = SG_PROC_TRANSPARENT;
13847 sg__rc_cgen9166.d9486[79] = SG_MAKE_STRING("tan");
13848 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[79]), &core_tan__STUB);
13849 SG_PROCEDURE_NAME(&core_tan__STUB) = sg__rc_cgen9166.d9486[79];
13850 SG_PROCEDURE_TRANSPARENT(&core_tan__STUB) = SG_PROC_TRANSPARENT;
13851 sg__rc_cgen9166.d9486[80] = SG_MAKE_STRING("asin");
13852 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[80]), &core_asin__STUB);
13853 SG_PROCEDURE_NAME(&core_asin__STUB) = sg__rc_cgen9166.d9486[80];
13854 SG_PROCEDURE_TRANSPARENT(&core_asin__STUB) = SG_PROC_TRANSPARENT;
13855 sg__rc_cgen9166.d9486[81] = SG_MAKE_STRING("acos");
13856 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[81]), &core_acos__STUB);
13857 SG_PROCEDURE_NAME(&core_acos__STUB) = sg__rc_cgen9166.d9486[81];
13858 SG_PROCEDURE_TRANSPARENT(&core_acos__STUB) = SG_PROC_TRANSPARENT;
13859 sg__rc_cgen9166.d9486[82] = SG_MAKE_STRING("atan");
13860 sg__rc_cgen9166.d9486[83] = Sg_Intern(sg__rc_cgen9166.d9486[82]); /* atan */
13861 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[82]), &core_atan__STUB);
13862 SG_PROCEDURE_NAME(&core_atan__STUB) = sg__rc_cgen9166.d9486[82];
13863 SG_PROCEDURE_TRANSPARENT(&core_atan__STUB) = SG_PROC_TRANSPARENT;
13864 sg__rc_cgen9166.d9486[84] = SG_MAKE_STRING("sqrt");
13865 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[84]), &core_sqrt__STUB);
13866 SG_PROCEDURE_NAME(&core_sqrt__STUB) = sg__rc_cgen9166.d9486[84];
13867 SG_PROCEDURE_TRANSPARENT(&core_sqrt__STUB) = SG_PROC_TRANSPARENT;
13868 sg__rc_cgen9166.d9486[85] = SG_MAKE_STRING("exact-integer-sqrt");
13869 sg__rc_cgen9166.d9486[86] = Sg_Intern(sg__rc_cgen9166.d9486[85]); /* exact-integer-sqrt */
13870 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[85]), &core_exact_integer_sqrt__STUB);
13871 SG_PROCEDURE_NAME(&core_exact_integer_sqrt__STUB) = sg__rc_cgen9166.d9486[85];
13872 SG_PROCEDURE_TRANSPARENT(&core_exact_integer_sqrt__STUB) = SG_PROC_TRANSPARENT;
13873 sg__rc_cgen9166.d9486[87] = SG_MAKE_STRING("rationalize");
13874 sg__rc_cgen9166.d9486[88] = Sg_Intern(sg__rc_cgen9166.d9486[87]); /* rationalize */
13875 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[87]), &core_rationalize__STUB);
13876 SG_PROCEDURE_NAME(&core_rationalize__STUB) = sg__rc_cgen9166.d9486[87];
13877 SG_PROCEDURE_TRANSPARENT(&core_rationalize__STUB) = SG_PROC_TRANSPARENT;
13878 sg__rc_cgen9166.d9486[89] = SG_MAKE_STRING("quotient");
13879 sg__rc_cgen9166.d9486[90] = Sg_Intern(sg__rc_cgen9166.d9486[89]); /* quotient */
13880 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[89]), &core_quotient__STUB);
13881 SG_PROCEDURE_NAME(&core_quotient__STUB) = sg__rc_cgen9166.d9486[89];
13882 SG_PROCEDURE_TRANSPARENT(&core_quotient__STUB) = SG_PROC_TRANSPARENT;
13883 sg__rc_cgen9166.d9486[91] = SG_MAKE_STRING("remainder");
13884 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[91]), &core_remainder__STUB);
13885 SG_PROCEDURE_NAME(&core_remainder__STUB) = sg__rc_cgen9166.d9486[91];
13886 SG_PROCEDURE_TRANSPARENT(&core_remainder__STUB) = SG_PROC_TRANSPARENT;
13887 sg__rc_cgen9166.d9486[92] = SG_MAKE_STRING("modulo");
13888 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[92]), &core_modulo__STUB);
13889 SG_PROCEDURE_NAME(&core_modulo__STUB) = sg__rc_cgen9166.d9486[92];
13890 SG_PROCEDURE_TRANSPARENT(&core_modulo__STUB) = SG_PROC_TRANSPARENT;
13891 sg__rc_cgen9166.d9486[93] = SG_MAKE_STRING("integer-length");
13892 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[93]), &core_integer_length__STUB);
13893 SG_PROCEDURE_NAME(&core_integer_length__STUB) = sg__rc_cgen9166.d9486[93];
13894 SG_PROCEDURE_TRANSPARENT(&core_integer_length__STUB) = SG_PROC_TRANSPARENT;
13895 sg__rc_cgen9166.d9486[94] = SG_MAKE_STRING("number->string");
13896 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[94]), &core_number_TOstring__STUB);
13897 SG_PROCEDURE_NAME(&core_number_TOstring__STUB) = sg__rc_cgen9166.d9486[94];
13898 SG_PROCEDURE_TRANSPARENT(&core_number_TOstring__STUB) = SG_PROC_TRANSPARENT;
13899 sg__rc_cgen9166.d9486[95] = SG_MAKE_STRING("string->number");
13900 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[95]), &core_string_TOnumber__STUB);
13901 SG_PROCEDURE_NAME(&core_string_TOnumber__STUB) = sg__rc_cgen9166.d9486[95];
13902 SG_PROCEDURE_TRANSPARENT(&core_string_TOnumber__STUB) = SG_PROC_TRANSPARENT;
13903 sg__rc_cgen9166.d9486[96] = SG_MAKE_STRING("not");
13904 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[96]), &core_not__STUB);
13905 SG_PROCEDURE_NAME(&core_not__STUB) = sg__rc_cgen9166.d9486[96];
13906 SG_PROCEDURE_TRANSPARENT(&core_not__STUB) = SG_PROC_TRANSPARENT;
13907 sg__rc_cgen9166.d9486[97] = SG_MAKE_STRING("boolean=?");
13908 sg__rc_cgen9166.d9486[98] = Sg_Intern(sg__rc_cgen9166.d9486[97]); /* boolean=? */
13909 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[97]), &core_boolean_3dP__STUB);
13910 SG_PROCEDURE_NAME(&core_boolean_3dP__STUB) = sg__rc_cgen9166.d9486[97];
13911 SG_PROCEDURE_TRANSPARENT(&core_boolean_3dP__STUB) = SG_PROC_TRANSPARENT;
13912 sg__rc_cgen9166.d9486[99] = SG_MAKE_STRING("cons");
13913 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[99]), &core_cons__STUB);
13914 SG_PROCEDURE_NAME(&core_cons__STUB) = sg__rc_cgen9166.d9486[99];
13915 SG_PROCEDURE_TRANSPARENT(&core_cons__STUB) = SG_PROC_NO_SIDE_EFFECT;
13916 sg__rc_cgen9166.d9486[100] = SG_MAKE_STRING("car");
13917 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[100]), &core_car__STUB);
13918 SG_PROCEDURE_NAME(&core_car__STUB) = sg__rc_cgen9166.d9486[100];
13919 SG_PROCEDURE_TRANSPARENT(&core_car__STUB) = SG_PROC_TRANSPARENT;
13920 SG_PROCEDURE_NAME(&core_set_carX__STUB) = sg__rc_cgen9166.d9486[567];
13921 Sg_SetterSet(SG_PROCEDURE(&core_car__STUB), SG_PROCEDURE(&core_set_carX__STUB), TRUE);
13922 sg__rc_cgen9166.d9486[101] = SG_MAKE_STRING("cdr");
13923 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[101]), &core_cdr__STUB);
13924 SG_PROCEDURE_NAME(&core_cdr__STUB) = sg__rc_cgen9166.d9486[101];
13925 SG_PROCEDURE_TRANSPARENT(&core_cdr__STUB) = SG_PROC_TRANSPARENT;
13926 SG_PROCEDURE_NAME(&core_set_cdrX__STUB) = sg__rc_cgen9166.d9486[570];
13927 Sg_SetterSet(SG_PROCEDURE(&core_cdr__STUB), SG_PROCEDURE(&core_set_cdrX__STUB), TRUE);
13928 sg__rc_cgen9166.d9486[102] = SG_MAKE_STRING("caar");
13929 sg__rc_cgen9166.d9486[103] = SG_MAKE_STRING("(setter caar)");
13930 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[102]), &core_caar__STUB);
13931 SG_PROCEDURE_NAME(&core_caar__STUB) = sg__rc_cgen9166.d9486[102];
13932 SG_PROCEDURE_TRANSPARENT(&core_caar__STUB) = SG_PROC_TRANSPARENT;
13933 SG_PROCEDURE_NAME(&core_caar_SETTER__STUB) = sg__rc_cgen9166.d9486[103];
13934 Sg_SetterSet(SG_PROCEDURE(&core_caar__STUB), SG_PROCEDURE(&core_caar_SETTER__STUB), TRUE);
13935 sg__rc_cgen9166.d9486[104] = SG_MAKE_STRING("cadr");
13936 sg__rc_cgen9166.d9486[105] = SG_MAKE_STRING("(setter cadr)");
13937 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[104]), &core_cadr__STUB);
13938 SG_PROCEDURE_NAME(&core_cadr__STUB) = sg__rc_cgen9166.d9486[104];
13939 SG_PROCEDURE_TRANSPARENT(&core_cadr__STUB) = SG_PROC_TRANSPARENT;
13940 SG_PROCEDURE_NAME(&core_cadr_SETTER__STUB) = sg__rc_cgen9166.d9486[105];
13941 Sg_SetterSet(SG_PROCEDURE(&core_cadr__STUB), SG_PROCEDURE(&core_cadr_SETTER__STUB), TRUE);
13942 sg__rc_cgen9166.d9486[106] = SG_MAKE_STRING("cdar");
13943 sg__rc_cgen9166.d9486[107] = SG_MAKE_STRING("(setter cdar)");
13944 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[106]), &core_cdar__STUB);
13945 SG_PROCEDURE_NAME(&core_cdar__STUB) = sg__rc_cgen9166.d9486[106];
13946 SG_PROCEDURE_TRANSPARENT(&core_cdar__STUB) = SG_PROC_TRANSPARENT;
13947 SG_PROCEDURE_NAME(&core_cdar_SETTER__STUB) = sg__rc_cgen9166.d9486[107];
13948 Sg_SetterSet(SG_PROCEDURE(&core_cdar__STUB), SG_PROCEDURE(&core_cdar_SETTER__STUB), TRUE);
13949 sg__rc_cgen9166.d9486[108] = SG_MAKE_STRING("cddr");
13950 sg__rc_cgen9166.d9486[109] = SG_MAKE_STRING("(setter cddr)");
13951 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[108]), &core_cddr__STUB);
13952 SG_PROCEDURE_NAME(&core_cddr__STUB) = sg__rc_cgen9166.d9486[108];
13953 SG_PROCEDURE_TRANSPARENT(&core_cddr__STUB) = SG_PROC_TRANSPARENT;
13954 SG_PROCEDURE_NAME(&core_cddr_SETTER__STUB) = sg__rc_cgen9166.d9486[109];
13955 Sg_SetterSet(SG_PROCEDURE(&core_cddr__STUB), SG_PROCEDURE(&core_cddr_SETTER__STUB), TRUE);
13956 sg__rc_cgen9166.d9486[110] = SG_MAKE_STRING("caaar");
13957 sg__rc_cgen9166.d9486[111] = SG_MAKE_STRING("(setter caaar)");
13958 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[110]), &core_caaar__STUB);
13959 SG_PROCEDURE_NAME(&core_caaar__STUB) = sg__rc_cgen9166.d9486[110];
13960 SG_PROCEDURE_TRANSPARENT(&core_caaar__STUB) = SG_PROC_TRANSPARENT;
13961 SG_PROCEDURE_NAME(&core_caaar_SETTER__STUB) = sg__rc_cgen9166.d9486[111];
13962 Sg_SetterSet(SG_PROCEDURE(&core_caaar__STUB), SG_PROCEDURE(&core_caaar_SETTER__STUB), TRUE);
13963 sg__rc_cgen9166.d9486[112] = SG_MAKE_STRING("caadr");
13964 sg__rc_cgen9166.d9486[113] = SG_MAKE_STRING("(setter caadr)");
13965 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[112]), &core_caadr__STUB);
13966 SG_PROCEDURE_NAME(&core_caadr__STUB) = sg__rc_cgen9166.d9486[112];
13967 SG_PROCEDURE_TRANSPARENT(&core_caadr__STUB) = SG_PROC_TRANSPARENT;
13968 SG_PROCEDURE_NAME(&core_caadr_SETTER__STUB) = sg__rc_cgen9166.d9486[113];
13969 Sg_SetterSet(SG_PROCEDURE(&core_caadr__STUB), SG_PROCEDURE(&core_caadr_SETTER__STUB), TRUE);
13970 sg__rc_cgen9166.d9486[114] = SG_MAKE_STRING("cadar");
13971 sg__rc_cgen9166.d9486[115] = SG_MAKE_STRING("(setter cadar)");
13972 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[114]), &core_cadar__STUB);
13973 SG_PROCEDURE_NAME(&core_cadar__STUB) = sg__rc_cgen9166.d9486[114];
13974 SG_PROCEDURE_TRANSPARENT(&core_cadar__STUB) = SG_PROC_TRANSPARENT;
13975 SG_PROCEDURE_NAME(&core_cadar_SETTER__STUB) = sg__rc_cgen9166.d9486[115];
13976 Sg_SetterSet(SG_PROCEDURE(&core_cadar__STUB), SG_PROCEDURE(&core_cadar_SETTER__STUB), TRUE);
13977 sg__rc_cgen9166.d9486[116] = SG_MAKE_STRING("caddr");
13978 sg__rc_cgen9166.d9486[117] = SG_MAKE_STRING("(setter caddr)");
13979 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[116]), &core_caddr__STUB);
13980 SG_PROCEDURE_NAME(&core_caddr__STUB) = sg__rc_cgen9166.d9486[116];
13981 SG_PROCEDURE_TRANSPARENT(&core_caddr__STUB) = SG_PROC_TRANSPARENT;
13982 SG_PROCEDURE_NAME(&core_caddr_SETTER__STUB) = sg__rc_cgen9166.d9486[117];
13983 Sg_SetterSet(SG_PROCEDURE(&core_caddr__STUB), SG_PROCEDURE(&core_caddr_SETTER__STUB), TRUE);
13984 sg__rc_cgen9166.d9486[118] = SG_MAKE_STRING("cdaar");
13985 sg__rc_cgen9166.d9486[119] = SG_MAKE_STRING("(setter cdaar)");
13986 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[118]), &core_cdaar__STUB);
13987 SG_PROCEDURE_NAME(&core_cdaar__STUB) = sg__rc_cgen9166.d9486[118];
13988 SG_PROCEDURE_TRANSPARENT(&core_cdaar__STUB) = SG_PROC_TRANSPARENT;
13989 SG_PROCEDURE_NAME(&core_cdaar_SETTER__STUB) = sg__rc_cgen9166.d9486[119];
13990 Sg_SetterSet(SG_PROCEDURE(&core_cdaar__STUB), SG_PROCEDURE(&core_cdaar_SETTER__STUB), TRUE);
13991 sg__rc_cgen9166.d9486[120] = SG_MAKE_STRING("cdadr");
13992 sg__rc_cgen9166.d9486[121] = SG_MAKE_STRING("(setter cdadr)");
13993 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[120]), &core_cdadr__STUB);
13994 SG_PROCEDURE_NAME(&core_cdadr__STUB) = sg__rc_cgen9166.d9486[120];
13995 SG_PROCEDURE_TRANSPARENT(&core_cdadr__STUB) = SG_PROC_TRANSPARENT;
13996 SG_PROCEDURE_NAME(&core_cdadr_SETTER__STUB) = sg__rc_cgen9166.d9486[121];
13997 Sg_SetterSet(SG_PROCEDURE(&core_cdadr__STUB), SG_PROCEDURE(&core_cdadr_SETTER__STUB), TRUE);
13998 sg__rc_cgen9166.d9486[122] = SG_MAKE_STRING("cddar");
13999 sg__rc_cgen9166.d9486[123] = SG_MAKE_STRING("(setter cddar)");
14000 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[122]), &core_cddar__STUB);
14001 SG_PROCEDURE_NAME(&core_cddar__STUB) = sg__rc_cgen9166.d9486[122];
14002 SG_PROCEDURE_TRANSPARENT(&core_cddar__STUB) = SG_PROC_TRANSPARENT;
14003 SG_PROCEDURE_NAME(&core_cddar_SETTER__STUB) = sg__rc_cgen9166.d9486[123];
14004 Sg_SetterSet(SG_PROCEDURE(&core_cddar__STUB), SG_PROCEDURE(&core_cddar_SETTER__STUB), TRUE);
14005 sg__rc_cgen9166.d9486[124] = SG_MAKE_STRING("cdddr");
14006 sg__rc_cgen9166.d9486[125] = SG_MAKE_STRING("(setter cdddr)");
14007 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[124]), &core_cdddr__STUB);
14008 SG_PROCEDURE_NAME(&core_cdddr__STUB) = sg__rc_cgen9166.d9486[124];
14009 SG_PROCEDURE_TRANSPARENT(&core_cdddr__STUB) = SG_PROC_TRANSPARENT;
14010 SG_PROCEDURE_NAME(&core_cdddr_SETTER__STUB) = sg__rc_cgen9166.d9486[125];
14011 Sg_SetterSet(SG_PROCEDURE(&core_cdddr__STUB), SG_PROCEDURE(&core_cdddr_SETTER__STUB), TRUE);
14012 sg__rc_cgen9166.d9486[126] = SG_MAKE_STRING("caaaar");
14013 sg__rc_cgen9166.d9486[127] = SG_MAKE_STRING("(setter caaaar)");
14014 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[126]), &core_caaaar__STUB);
14015 SG_PROCEDURE_NAME(&core_caaaar__STUB) = sg__rc_cgen9166.d9486[126];
14016 SG_PROCEDURE_TRANSPARENT(&core_caaaar__STUB) = SG_PROC_TRANSPARENT;
14017 SG_PROCEDURE_NAME(&core_caaaar_SETTER__STUB) = sg__rc_cgen9166.d9486[127];
14018 Sg_SetterSet(SG_PROCEDURE(&core_caaaar__STUB), SG_PROCEDURE(&core_caaaar_SETTER__STUB), TRUE);
14019 sg__rc_cgen9166.d9486[128] = SG_MAKE_STRING("caaadr");
14020 sg__rc_cgen9166.d9486[129] = SG_MAKE_STRING("(setter caaadr)");
14021 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[128]), &core_caaadr__STUB);
14022 SG_PROCEDURE_NAME(&core_caaadr__STUB) = sg__rc_cgen9166.d9486[128];
14023 SG_PROCEDURE_TRANSPARENT(&core_caaadr__STUB) = SG_PROC_TRANSPARENT;
14024 SG_PROCEDURE_NAME(&core_caaadr_SETTER__STUB) = sg__rc_cgen9166.d9486[129];
14025 Sg_SetterSet(SG_PROCEDURE(&core_caaadr__STUB), SG_PROCEDURE(&core_caaadr_SETTER__STUB), TRUE);
14026 sg__rc_cgen9166.d9486[130] = SG_MAKE_STRING("caadar");
14027 sg__rc_cgen9166.d9486[131] = SG_MAKE_STRING("(setter caadar)");
14028 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[130]), &core_caadar__STUB);
14029 SG_PROCEDURE_NAME(&core_caadar__STUB) = sg__rc_cgen9166.d9486[130];
14030 SG_PROCEDURE_TRANSPARENT(&core_caadar__STUB) = SG_PROC_TRANSPARENT;
14031 SG_PROCEDURE_NAME(&core_caadar_SETTER__STUB) = sg__rc_cgen9166.d9486[131];
14032 Sg_SetterSet(SG_PROCEDURE(&core_caadar__STUB), SG_PROCEDURE(&core_caadar_SETTER__STUB), TRUE);
14033 sg__rc_cgen9166.d9486[132] = SG_MAKE_STRING("caaddr");
14034 sg__rc_cgen9166.d9486[133] = SG_MAKE_STRING("(setter caaddr)");
14035 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[132]), &core_caaddr__STUB);
14036 SG_PROCEDURE_NAME(&core_caaddr__STUB) = sg__rc_cgen9166.d9486[132];
14037 SG_PROCEDURE_TRANSPARENT(&core_caaddr__STUB) = SG_PROC_TRANSPARENT;
14038 SG_PROCEDURE_NAME(&core_caaddr_SETTER__STUB) = sg__rc_cgen9166.d9486[133];
14039 Sg_SetterSet(SG_PROCEDURE(&core_caaddr__STUB), SG_PROCEDURE(&core_caaddr_SETTER__STUB), TRUE);
14040 sg__rc_cgen9166.d9486[134] = SG_MAKE_STRING("cadaar");
14041 sg__rc_cgen9166.d9486[135] = SG_MAKE_STRING("(setter cadaar)");
14042 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[134]), &core_cadaar__STUB);
14043 SG_PROCEDURE_NAME(&core_cadaar__STUB) = sg__rc_cgen9166.d9486[134];
14044 SG_PROCEDURE_TRANSPARENT(&core_cadaar__STUB) = SG_PROC_TRANSPARENT;
14045 SG_PROCEDURE_NAME(&core_cadaar_SETTER__STUB) = sg__rc_cgen9166.d9486[135];
14046 Sg_SetterSet(SG_PROCEDURE(&core_cadaar__STUB), SG_PROCEDURE(&core_cadaar_SETTER__STUB), TRUE);
14047 sg__rc_cgen9166.d9486[136] = SG_MAKE_STRING("cadadr");
14048 sg__rc_cgen9166.d9486[137] = SG_MAKE_STRING("(setter cadadr)");
14049 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[136]), &core_cadadr__STUB);
14050 SG_PROCEDURE_NAME(&core_cadadr__STUB) = sg__rc_cgen9166.d9486[136];
14051 SG_PROCEDURE_TRANSPARENT(&core_cadadr__STUB) = SG_PROC_TRANSPARENT;
14052 SG_PROCEDURE_NAME(&core_cadadr_SETTER__STUB) = sg__rc_cgen9166.d9486[137];
14053 Sg_SetterSet(SG_PROCEDURE(&core_cadadr__STUB), SG_PROCEDURE(&core_cadadr_SETTER__STUB), TRUE);
14054 sg__rc_cgen9166.d9486[138] = SG_MAKE_STRING("caddar");
14055 sg__rc_cgen9166.d9486[139] = SG_MAKE_STRING("(setter caddar)");
14056 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[138]), &core_caddar__STUB);
14057 SG_PROCEDURE_NAME(&core_caddar__STUB) = sg__rc_cgen9166.d9486[138];
14058 SG_PROCEDURE_TRANSPARENT(&core_caddar__STUB) = SG_PROC_TRANSPARENT;
14059 SG_PROCEDURE_NAME(&core_caddar_SETTER__STUB) = sg__rc_cgen9166.d9486[139];
14060 Sg_SetterSet(SG_PROCEDURE(&core_caddar__STUB), SG_PROCEDURE(&core_caddar_SETTER__STUB), TRUE);
14061 sg__rc_cgen9166.d9486[140] = SG_MAKE_STRING("cadddr");
14062 sg__rc_cgen9166.d9486[141] = SG_MAKE_STRING("(setter cadddr)");
14063 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[140]), &core_cadddr__STUB);
14064 SG_PROCEDURE_NAME(&core_cadddr__STUB) = sg__rc_cgen9166.d9486[140];
14065 SG_PROCEDURE_TRANSPARENT(&core_cadddr__STUB) = SG_PROC_TRANSPARENT;
14066 SG_PROCEDURE_NAME(&core_cadddr_SETTER__STUB) = sg__rc_cgen9166.d9486[141];
14067 Sg_SetterSet(SG_PROCEDURE(&core_cadddr__STUB), SG_PROCEDURE(&core_cadddr_SETTER__STUB), TRUE);
14068 sg__rc_cgen9166.d9486[142] = SG_MAKE_STRING("cdaaar");
14069 sg__rc_cgen9166.d9486[143] = SG_MAKE_STRING("(setter cdaaar)");
14070 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[142]), &core_cdaaar__STUB);
14071 SG_PROCEDURE_NAME(&core_cdaaar__STUB) = sg__rc_cgen9166.d9486[142];
14072 SG_PROCEDURE_TRANSPARENT(&core_cdaaar__STUB) = SG_PROC_TRANSPARENT;
14073 SG_PROCEDURE_NAME(&core_cdaaar_SETTER__STUB) = sg__rc_cgen9166.d9486[143];
14074 Sg_SetterSet(SG_PROCEDURE(&core_cdaaar__STUB), SG_PROCEDURE(&core_cdaaar_SETTER__STUB), TRUE);
14075 sg__rc_cgen9166.d9486[144] = SG_MAKE_STRING("cdaadr");
14076 sg__rc_cgen9166.d9486[145] = SG_MAKE_STRING("(setter cdaadr)");
14077 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[144]), &core_cdaadr__STUB);
14078 SG_PROCEDURE_NAME(&core_cdaadr__STUB) = sg__rc_cgen9166.d9486[144];
14079 SG_PROCEDURE_TRANSPARENT(&core_cdaadr__STUB) = SG_PROC_TRANSPARENT;
14080 SG_PROCEDURE_NAME(&core_cdaadr_SETTER__STUB) = sg__rc_cgen9166.d9486[145];
14081 Sg_SetterSet(SG_PROCEDURE(&core_cdaadr__STUB), SG_PROCEDURE(&core_cdaadr_SETTER__STUB), TRUE);
14082 sg__rc_cgen9166.d9486[146] = SG_MAKE_STRING("cdadar");
14083 sg__rc_cgen9166.d9486[147] = SG_MAKE_STRING("(setter cdadar)");
14084 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[146]), &core_cdadar__STUB);
14085 SG_PROCEDURE_NAME(&core_cdadar__STUB) = sg__rc_cgen9166.d9486[146];
14086 SG_PROCEDURE_TRANSPARENT(&core_cdadar__STUB) = SG_PROC_TRANSPARENT;
14087 SG_PROCEDURE_NAME(&core_cdadar_SETTER__STUB) = sg__rc_cgen9166.d9486[147];
14088 Sg_SetterSet(SG_PROCEDURE(&core_cdadar__STUB), SG_PROCEDURE(&core_cdadar_SETTER__STUB), TRUE);
14089 sg__rc_cgen9166.d9486[148] = SG_MAKE_STRING("cdaddr");
14090 sg__rc_cgen9166.d9486[149] = SG_MAKE_STRING("(setter cdaddr)");
14091 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[148]), &core_cdaddr__STUB);
14092 SG_PROCEDURE_NAME(&core_cdaddr__STUB) = sg__rc_cgen9166.d9486[148];
14093 SG_PROCEDURE_TRANSPARENT(&core_cdaddr__STUB) = SG_PROC_TRANSPARENT;
14094 SG_PROCEDURE_NAME(&core_cdaddr_SETTER__STUB) = sg__rc_cgen9166.d9486[149];
14095 Sg_SetterSet(SG_PROCEDURE(&core_cdaddr__STUB), SG_PROCEDURE(&core_cdaddr_SETTER__STUB), TRUE);
14096 sg__rc_cgen9166.d9486[150] = SG_MAKE_STRING("cddaar");
14097 sg__rc_cgen9166.d9486[151] = SG_MAKE_STRING("(setter cddaar)");
14098 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[150]), &core_cddaar__STUB);
14099 SG_PROCEDURE_NAME(&core_cddaar__STUB) = sg__rc_cgen9166.d9486[150];
14100 SG_PROCEDURE_TRANSPARENT(&core_cddaar__STUB) = SG_PROC_TRANSPARENT;
14101 SG_PROCEDURE_NAME(&core_cddaar_SETTER__STUB) = sg__rc_cgen9166.d9486[151];
14102 Sg_SetterSet(SG_PROCEDURE(&core_cddaar__STUB), SG_PROCEDURE(&core_cddaar_SETTER__STUB), TRUE);
14103 sg__rc_cgen9166.d9486[152] = SG_MAKE_STRING("cddadr");
14104 sg__rc_cgen9166.d9486[153] = SG_MAKE_STRING("(setter cddadr)");
14105 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[152]), &core_cddadr__STUB);
14106 SG_PROCEDURE_NAME(&core_cddadr__STUB) = sg__rc_cgen9166.d9486[152];
14107 SG_PROCEDURE_TRANSPARENT(&core_cddadr__STUB) = SG_PROC_TRANSPARENT;
14108 SG_PROCEDURE_NAME(&core_cddadr_SETTER__STUB) = sg__rc_cgen9166.d9486[153];
14109 Sg_SetterSet(SG_PROCEDURE(&core_cddadr__STUB), SG_PROCEDURE(&core_cddadr_SETTER__STUB), TRUE);
14110 sg__rc_cgen9166.d9486[154] = SG_MAKE_STRING("cdddar");
14111 sg__rc_cgen9166.d9486[155] = SG_MAKE_STRING("(setter cdddar)");
14112 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[154]), &core_cdddar__STUB);
14113 SG_PROCEDURE_NAME(&core_cdddar__STUB) = sg__rc_cgen9166.d9486[154];
14114 SG_PROCEDURE_TRANSPARENT(&core_cdddar__STUB) = SG_PROC_TRANSPARENT;
14115 SG_PROCEDURE_NAME(&core_cdddar_SETTER__STUB) = sg__rc_cgen9166.d9486[155];
14116 Sg_SetterSet(SG_PROCEDURE(&core_cdddar__STUB), SG_PROCEDURE(&core_cdddar_SETTER__STUB), TRUE);
14117 sg__rc_cgen9166.d9486[156] = SG_MAKE_STRING("cddddr");
14118 sg__rc_cgen9166.d9486[157] = SG_MAKE_STRING("(setter cddddr)");
14119 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[156]), &core_cddddr__STUB);
14120 SG_PROCEDURE_NAME(&core_cddddr__STUB) = sg__rc_cgen9166.d9486[156];
14121 SG_PROCEDURE_TRANSPARENT(&core_cddddr__STUB) = SG_PROC_TRANSPARENT;
14122 SG_PROCEDURE_NAME(&core_cddddr_SETTER__STUB) = sg__rc_cgen9166.d9486[157];
14123 Sg_SetterSet(SG_PROCEDURE(&core_cddddr__STUB), SG_PROCEDURE(&core_cddddr_SETTER__STUB), TRUE);
14124 sg__rc_cgen9166.d9486[158] = SG_MAKE_STRING("list?");
14125 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[158]), &core_listP__STUB);
14126 SG_PROCEDURE_NAME(&core_listP__STUB) = sg__rc_cgen9166.d9486[158];
14127 SG_PROCEDURE_TRANSPARENT(&core_listP__STUB) = SG_PROC_TRANSPARENT;
14128 sg__rc_cgen9166.d9486[159] = SG_MAKE_STRING("list");
14129 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[159]), &core_list__STUB);
14130 SG_PROCEDURE_NAME(&core_list__STUB) = sg__rc_cgen9166.d9486[159];
14131 SG_PROCEDURE_TRANSPARENT(&core_list__STUB) = SG_PROC_NO_SIDE_EFFECT;
14132 sg__rc_cgen9166.d9486[160] = SG_MAKE_STRING("length");
14133 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[160]), &core_length__STUB);
14134 SG_PROCEDURE_NAME(&core_length__STUB) = sg__rc_cgen9166.d9486[160];
14135 SG_PROCEDURE_TRANSPARENT(&core_length__STUB) = SG_PROC_TRANSPARENT;
14136 sg__rc_cgen9166.d9486[161] = SG_MAKE_STRING("append");
14137 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[161]), &core_append__STUB);
14138 SG_PROCEDURE_NAME(&core_append__STUB) = sg__rc_cgen9166.d9486[161];
14139 SG_PROCEDURE_TRANSPARENT(&core_append__STUB) = SG_PROC_NO_SIDE_EFFECT;
14140 sg__rc_cgen9166.d9486[162] = SG_MAKE_STRING("reverse");
14141 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[162]), &core_reverse__STUB);
14142 SG_PROCEDURE_NAME(&core_reverse__STUB) = sg__rc_cgen9166.d9486[162];
14143 SG_PROCEDURE_TRANSPARENT(&core_reverse__STUB) = SG_PROC_NO_SIDE_EFFECT;
14144 sg__rc_cgen9166.d9486[163] = SG_MAKE_STRING("list-tail");
14145 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[163]), &core_list_tail__STUB);
14146 SG_PROCEDURE_NAME(&core_list_tail__STUB) = sg__rc_cgen9166.d9486[163];
14147 SG_PROCEDURE_TRANSPARENT(&core_list_tail__STUB) = SG_PROC_TRANSPARENT;
14148 sg__rc_cgen9166.d9486[164] = SG_MAKE_STRING("list-set!");
14149 sg__rc_cgen9166.d9486[165] = Sg_Intern(sg__rc_cgen9166.d9486[164]); /* list-set! */
14150 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[164]), &core_list_setX__STUB);
14151 SG_PROCEDURE_NAME(&core_list_setX__STUB) = sg__rc_cgen9166.d9486[164];
14152 sg__rc_cgen9166.d9486[166] = SG_MAKE_STRING("list-ref");
14153 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[166]), &core_list_ref__STUB);
14154 SG_PROCEDURE_NAME(&core_list_ref__STUB) = sg__rc_cgen9166.d9486[166];
14155 SG_PROCEDURE_TRANSPARENT(&core_list_ref__STUB) = SG_PROC_TRANSPARENT;
14156 SG_PROCEDURE_NAME(&core_list_setX__STUB) = sg__rc_cgen9166.d9486[164];
14157 Sg_SetterSet(SG_PROCEDURE(&core_list_ref__STUB), SG_PROCEDURE(&core_list_setX__STUB), TRUE);
14158 sg__rc_cgen9166.d9486[167] = SG_MAKE_STRING("last-pair");
14159 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[167]), &core_last_pair__STUB);
14160 SG_PROCEDURE_NAME(&core_last_pair__STUB) = sg__rc_cgen9166.d9486[167];
14161 SG_PROCEDURE_TRANSPARENT(&core_last_pair__STUB) = SG_PROC_TRANSPARENT;
14162 sg__rc_cgen9166.d9486[168] = SG_MAKE_STRING("symbol->string");
14163 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[168]), &core_symbol_TOstring__STUB);
14164 SG_PROCEDURE_NAME(&core_symbol_TOstring__STUB) = sg__rc_cgen9166.d9486[168];
14165 SG_PROCEDURE_TRANSPARENT(&core_symbol_TOstring__STUB) = SG_PROC_TRANSPARENT;
14166 sg__rc_cgen9166.d9486[169] = SG_MAKE_STRING("symbol=?");
14167 sg__rc_cgen9166.d9486[170] = Sg_Intern(sg__rc_cgen9166.d9486[169]); /* symbol=? */
14168 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[169]), &core_symbol_3dP__STUB);
14169 SG_PROCEDURE_NAME(&core_symbol_3dP__STUB) = sg__rc_cgen9166.d9486[169];
14170 SG_PROCEDURE_TRANSPARENT(&core_symbol_3dP__STUB) = SG_PROC_TRANSPARENT;
14171 sg__rc_cgen9166.d9486[171] = SG_MAKE_STRING("string->symbol");
14172 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[171]), &core_string_TOsymbol__STUB);
14173 SG_PROCEDURE_NAME(&core_string_TOsymbol__STUB) = sg__rc_cgen9166.d9486[171];
14174 SG_PROCEDURE_TRANSPARENT(&core_string_TOsymbol__STUB) = SG_PROC_TRANSPARENT;
14175 sg__rc_cgen9166.d9486[172] = SG_MAKE_STRING("char->integer");
14176 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[172]), &core_char_TOinteger__STUB);
14177 SG_PROCEDURE_NAME(&core_char_TOinteger__STUB) = sg__rc_cgen9166.d9486[172];
14178 SG_PROCEDURE_TRANSPARENT(&core_char_TOinteger__STUB) = SG_PROC_TRANSPARENT;
14179 sg__rc_cgen9166.d9486[173] = SG_MAKE_STRING("integer->char");
14180 sg__rc_cgen9166.d9486[174] = Sg_Intern(sg__rc_cgen9166.d9486[173]); /* integer->char */
14181 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[173]), &core_integer_TOchar__STUB);
14182 SG_PROCEDURE_NAME(&core_integer_TOchar__STUB) = sg__rc_cgen9166.d9486[173];
14183 SG_PROCEDURE_TRANSPARENT(&core_integer_TOchar__STUB) = SG_PROC_TRANSPARENT;
14184 sg__rc_cgen9166.d9486[175] = SG_MAKE_STRING("char=?");
14185 sg__rc_cgen9166.d9486[176] = Sg_Intern(sg__rc_cgen9166.d9486[175]); /* char=? */
14186 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[175]), &core_char_3dP__STUB);
14187 SG_PROCEDURE_NAME(&core_char_3dP__STUB) = sg__rc_cgen9166.d9486[175];
14188 SG_PROCEDURE_TRANSPARENT(&core_char_3dP__STUB) = SG_PROC_TRANSPARENT;
14189 sg__rc_cgen9166.d9486[177] = SG_MAKE_STRING("char<?");
14190 sg__rc_cgen9166.d9486[178] = Sg_Intern(sg__rc_cgen9166.d9486[177]); /* char<? */
14191 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[177]), &core_char_LTP__STUB);
14192 SG_PROCEDURE_NAME(&core_char_LTP__STUB) = sg__rc_cgen9166.d9486[177];
14193 SG_PROCEDURE_TRANSPARENT(&core_char_LTP__STUB) = SG_PROC_TRANSPARENT;
14194 sg__rc_cgen9166.d9486[179] = SG_MAKE_STRING("char>?");
14195 sg__rc_cgen9166.d9486[180] = Sg_Intern(sg__rc_cgen9166.d9486[179]); /* char>? */
14196 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[179]), &core_char_GTP__STUB);
14197 SG_PROCEDURE_NAME(&core_char_GTP__STUB) = sg__rc_cgen9166.d9486[179];
14198 SG_PROCEDURE_TRANSPARENT(&core_char_GTP__STUB) = SG_PROC_TRANSPARENT;
14199 sg__rc_cgen9166.d9486[181] = SG_MAKE_STRING("char<=?");
14200 sg__rc_cgen9166.d9486[182] = Sg_Intern(sg__rc_cgen9166.d9486[181]); /* char<=? */
14201 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[181]), &core_char_LT_3dP__STUB);
14202 SG_PROCEDURE_NAME(&core_char_LT_3dP__STUB) = sg__rc_cgen9166.d9486[181];
14203 SG_PROCEDURE_TRANSPARENT(&core_char_LT_3dP__STUB) = SG_PROC_TRANSPARENT;
14204 sg__rc_cgen9166.d9486[183] = SG_MAKE_STRING("char>=?");
14205 sg__rc_cgen9166.d9486[184] = Sg_Intern(sg__rc_cgen9166.d9486[183]); /* char>=? */
14206 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[183]), &core_char_GT_3dP__STUB);
14207 SG_PROCEDURE_NAME(&core_char_GT_3dP__STUB) = sg__rc_cgen9166.d9486[183];
14208 SG_PROCEDURE_TRANSPARENT(&core_char_GT_3dP__STUB) = SG_PROC_TRANSPARENT;
14209 sg__rc_cgen9166.d9486[185] = SG_MAKE_STRING("make-string");
14210 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[185]), &core_make_string__STUB);
14211 SG_PROCEDURE_NAME(&core_make_string__STUB) = sg__rc_cgen9166.d9486[185];
14212 sg__rc_cgen9166.d9486[186] = SG_MAKE_STRING("string");
14213 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[186]), &core_string__STUB);
14214 SG_PROCEDURE_NAME(&core_string__STUB) = sg__rc_cgen9166.d9486[186];
14215 SG_PROCEDURE_TRANSPARENT(&core_string__STUB) = SG_PROC_NO_SIDE_EFFECT;
14216 sg__rc_cgen9166.d9486[187] = SG_MAKE_STRING("string-length");
14217 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[187]), &core_string_length__STUB);
14218 SG_PROCEDURE_NAME(&core_string_length__STUB) = sg__rc_cgen9166.d9486[187];
14219 SG_PROCEDURE_TRANSPARENT(&core_string_length__STUB) = SG_PROC_TRANSPARENT;
14220 sg__rc_cgen9166.d9486[188] = SG_MAKE_STRING("string-ref");
14221 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[188]), &core_string_ref__STUB);
14222 SG_PROCEDURE_NAME(&core_string_ref__STUB) = sg__rc_cgen9166.d9486[188];
14223 SG_PROCEDURE_TRANSPARENT(&core_string_ref__STUB) = SG_PROC_TRANSPARENT;
14224 SG_PROCEDURE_NAME(&core_string_setX__STUB) = sg__rc_cgen9166.d9486[573];
14225 Sg_SetterSet(SG_PROCEDURE(&core_string_ref__STUB), SG_PROCEDURE(&core_string_setX__STUB), TRUE);
14226 sg__rc_cgen9166.d9486[189] = SG_MAKE_STRING("string=?");
14227 sg__rc_cgen9166.d9486[190] = Sg_Intern(sg__rc_cgen9166.d9486[189]); /* string=? */
14228 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[189]), &core_string_3dP__STUB);
14229 SG_PROCEDURE_NAME(&core_string_3dP__STUB) = sg__rc_cgen9166.d9486[189];
14230 SG_PROCEDURE_TRANSPARENT(&core_string_3dP__STUB) = SG_PROC_TRANSPARENT;
14231 sg__rc_cgen9166.d9486[191] = SG_MAKE_STRING("string<?");
14232 sg__rc_cgen9166.d9486[192] = Sg_Intern(sg__rc_cgen9166.d9486[191]); /* string<? */
14233 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[191]), &core_string_LTP__STUB);
14234 SG_PROCEDURE_NAME(&core_string_LTP__STUB) = sg__rc_cgen9166.d9486[191];
14235 SG_PROCEDURE_TRANSPARENT(&core_string_LTP__STUB) = SG_PROC_TRANSPARENT;
14236 sg__rc_cgen9166.d9486[193] = SG_MAKE_STRING("string>?");
14237 sg__rc_cgen9166.d9486[194] = Sg_Intern(sg__rc_cgen9166.d9486[193]); /* string>? */
14238 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[193]), &core_string_GTP__STUB);
14239 SG_PROCEDURE_NAME(&core_string_GTP__STUB) = sg__rc_cgen9166.d9486[193];
14240 SG_PROCEDURE_TRANSPARENT(&core_string_GTP__STUB) = SG_PROC_TRANSPARENT;
14241 sg__rc_cgen9166.d9486[195] = SG_MAKE_STRING("string<=?");
14242 sg__rc_cgen9166.d9486[196] = Sg_Intern(sg__rc_cgen9166.d9486[195]); /* string<=? */
14243 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[195]), &core_string_LT_3dP__STUB);
14244 SG_PROCEDURE_NAME(&core_string_LT_3dP__STUB) = sg__rc_cgen9166.d9486[195];
14245 SG_PROCEDURE_TRANSPARENT(&core_string_LT_3dP__STUB) = SG_PROC_TRANSPARENT;
14246 sg__rc_cgen9166.d9486[197] = SG_MAKE_STRING("string>=?");
14247 sg__rc_cgen9166.d9486[198] = Sg_Intern(sg__rc_cgen9166.d9486[197]); /* string>=? */
14248 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[197]), &core_string_GT_3dP__STUB);
14249 SG_PROCEDURE_NAME(&core_string_GT_3dP__STUB) = sg__rc_cgen9166.d9486[197];
14250 SG_PROCEDURE_TRANSPARENT(&core_string_GT_3dP__STUB) = SG_PROC_TRANSPARENT;
14251 sg__rc_cgen9166.d9486[199] = SG_MAKE_STRING("substring");
14252 sg__rc_cgen9166.d9486[200] = Sg_Intern(sg__rc_cgen9166.d9486[199]); /* substring */
14253 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[199]), &core_substring__STUB);
14254 SG_PROCEDURE_NAME(&core_substring__STUB) = sg__rc_cgen9166.d9486[199];
14255 SG_PROCEDURE_TRANSPARENT(&core_substring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14256 sg__rc_cgen9166.d9486[201] = SG_MAKE_STRING("string-append");
14257 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[201]), &core_string_append__STUB);
14258 SG_PROCEDURE_NAME(&core_string_append__STUB) = sg__rc_cgen9166.d9486[201];
14259 SG_PROCEDURE_TRANSPARENT(&core_string_append__STUB) = SG_PROC_NO_SIDE_EFFECT;
14260 sg__rc_cgen9166.d9486[202] = SG_MAKE_STRING("string->list");
14261 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[202]), &core_string_TOlist__STUB);
14262 SG_PROCEDURE_NAME(&core_string_TOlist__STUB) = sg__rc_cgen9166.d9486[202];
14263 SG_PROCEDURE_TRANSPARENT(&core_string_TOlist__STUB) = SG_PROC_NO_SIDE_EFFECT;
14264 sg__rc_cgen9166.d9486[203] = SG_MAKE_STRING("list->string");
14265 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[203]), &core_list_TOstring__STUB);
14266 SG_PROCEDURE_NAME(&core_list_TOstring__STUB) = sg__rc_cgen9166.d9486[203];
14267 SG_PROCEDURE_TRANSPARENT(&core_list_TOstring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14268 sg__rc_cgen9166.d9486[204] = SG_MAKE_STRING("string-copy");
14269 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[204]), &core_string_copy__STUB);
14270 SG_PROCEDURE_NAME(&core_string_copy__STUB) = sg__rc_cgen9166.d9486[204];
14271 SG_PROCEDURE_TRANSPARENT(&core_string_copy__STUB) = SG_PROC_NO_SIDE_EFFECT;
14272 sg__rc_cgen9166.d9486[205] = SG_MAKE_STRING("make-vector");
14273 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[205]), &core_make_vector__STUB);
14274 SG_PROCEDURE_NAME(&core_make_vector__STUB) = sg__rc_cgen9166.d9486[205];
14275 SG_PROCEDURE_TRANSPARENT(&core_make_vector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14276 sg__rc_cgen9166.d9486[206] = SG_MAKE_STRING("vector");
14277 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[206]), &core_vector__STUB);
14278 SG_PROCEDURE_NAME(&core_vector__STUB) = sg__rc_cgen9166.d9486[206];
14279 SG_PROCEDURE_TRANSPARENT(&core_vector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14280 sg__rc_cgen9166.d9486[207] = SG_MAKE_STRING("vector-length");
14281 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[207]), &core_vector_length__STUB);
14282 SG_PROCEDURE_NAME(&core_vector_length__STUB) = sg__rc_cgen9166.d9486[207];
14283 SG_PROCEDURE_TRANSPARENT(&core_vector_length__STUB) = SG_PROC_TRANSPARENT;
14284 sg__rc_cgen9166.d9486[208] = SG_MAKE_STRING("vector-ref");
14285 sg__rc_cgen9166.d9486[209] = Sg_Intern(sg__rc_cgen9166.d9486[208]); /* vector-ref */
14286 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[208]), &core_vector_ref__STUB);
14287 SG_PROCEDURE_NAME(&core_vector_ref__STUB) = sg__rc_cgen9166.d9486[208];
14288 SG_PROCEDURE_TRANSPARENT(&core_vector_ref__STUB) = SG_PROC_TRANSPARENT;
14289 SG_PROCEDURE_NAME(&core_vector_setX__STUB) = sg__rc_cgen9166.d9486[210];
14290 Sg_SetterSet(SG_PROCEDURE(&core_vector_ref__STUB), SG_PROCEDURE(&core_vector_setX__STUB), TRUE);
14291 sg__rc_cgen9166.d9486[210] = SG_MAKE_STRING("vector-set!");
14292 sg__rc_cgen9166.d9486[212] = SG_MAKE_STRING("vector-set");
14293 sg__rc_cgen9166.d9486[211] = Sg_Intern(sg__rc_cgen9166.d9486[212]); /* vector-set */
14294 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[210]), &core_vector_setX__STUB);
14295 SG_PROCEDURE_NAME(&core_vector_setX__STUB) = sg__rc_cgen9166.d9486[210];
14296 sg__rc_cgen9166.d9486[213] = SG_MAKE_STRING("vector->list");
14297 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[213]), &core_vector_TOlist__STUB);
14298 SG_PROCEDURE_NAME(&core_vector_TOlist__STUB) = sg__rc_cgen9166.d9486[213];
14299 SG_PROCEDURE_TRANSPARENT(&core_vector_TOlist__STUB) = SG_PROC_NO_SIDE_EFFECT;
14300 sg__rc_cgen9166.d9486[214] = SG_MAKE_STRING("list->vector");
14301 sg__rc_cgen9166.d9486[215] = Sg_Intern(sg__rc_cgen9166.d9486[214]); /* list->vector */
14302 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[214]), &core_list_TOvector__STUB);
14303 SG_PROCEDURE_NAME(&core_list_TOvector__STUB) = sg__rc_cgen9166.d9486[214];
14304 SG_PROCEDURE_TRANSPARENT(&core_list_TOvector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14305 sg__rc_cgen9166.d9486[216] = SG_MAKE_STRING("vector-fill!");
14306 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[216]), &core_vector_fillX__STUB);
14307 SG_PROCEDURE_NAME(&core_vector_fillX__STUB) = sg__rc_cgen9166.d9486[216];
14308 sg__rc_cgen9166.d9486[217] = SG_MAKE_STRING("assertion-violation");
14309 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[217]), &core_assertion_violation__STUB);
14310 SG_PROCEDURE_NAME(&core_assertion_violation__STUB) = sg__rc_cgen9166.d9486[217];
14311 sg__rc_cgen9166.d9486[218] = SG_MAKE_STRING("error");
14312 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[218]), &core_error__STUB);
14313 SG_PROCEDURE_NAME(&core_error__STUB) = sg__rc_cgen9166.d9486[218];
14314 sg__rc_cgen9166.d9486[219] = SG_MAKE_STRING("scheme-error");
14315 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[219]), &core_scheme_error__STUB);
14316 SG_PROCEDURE_NAME(&core_scheme_error__STUB) = sg__rc_cgen9166.d9486[219];
14317 sg__rc_cgen9166.d9486[220] = SG_MAKE_STRING("syntax-error");
14318 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[220]), &core_syntax_error__STUB);
14319 SG_PROCEDURE_NAME(&core_syntax_error__STUB) = sg__rc_cgen9166.d9486[220];
14320 sg__rc_cgen9166.d9486[221] = SG_MAKE_STRING("apply");
14321 sg__rc_cgen9166.d9486[222] = Sg_Intern(sg__rc_cgen9166.d9486[221]); /* apply */
14322 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[221]), &core_apply__STUB);
14323 SG_PROCEDURE_NAME(&core_apply__STUB) = sg__rc_cgen9166.d9486[221];
14324 SG_PROCEDURE_TRANSPARENT(&core_apply__STUB) = SG_PROC_NO_SIDE_EFFECT;
14325 sg__rc_cgen9166.d9486[223] = SG_MAKE_STRING("call/cc");
14326 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[223]), &core_call_2fcc__STUB);
14327 SG_PROCEDURE_NAME(&core_call_2fcc__STUB) = sg__rc_cgen9166.d9486[223];
14328 sg__rc_cgen9166.d9486[224] = SG_MAKE_STRING("call-with-current-continuation");
14329 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[224]), &core_call_with_current_continuation__STUB);
14330 SG_PROCEDURE_NAME(&core_call_with_current_continuation__STUB) = sg__rc_cgen9166.d9486[224];
14331 sg__rc_cgen9166.d9486[225] = SG_MAKE_STRING("values");
14332 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[225]), &core_values__STUB);
14333 SG_PROCEDURE_NAME(&core_values__STUB) = sg__rc_cgen9166.d9486[225];
14334 SG_PROCEDURE_TRANSPARENT(&core_values__STUB) = SG_PROC_TRANSPARENT;
14335 sg__rc_cgen9166.d9486[226] = SG_MAKE_STRING("dynamic-wind");
14336 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[226]), &core_dynamic_wind__STUB);
14337 SG_PROCEDURE_NAME(&core_dynamic_wind__STUB) = sg__rc_cgen9166.d9486[226];
14338 sg__rc_cgen9166.d9486[227] = SG_MAKE_STRING("char-upcase");
14339 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[227]), &core_char_upcase__STUB);
14340 SG_PROCEDURE_NAME(&core_char_upcase__STUB) = sg__rc_cgen9166.d9486[227];
14341 SG_PROCEDURE_TRANSPARENT(&core_char_upcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14342 sg__rc_cgen9166.d9486[228] = SG_MAKE_STRING("char-downcase");
14343 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[228]), &core_char_downcase__STUB);
14344 SG_PROCEDURE_NAME(&core_char_downcase__STUB) = sg__rc_cgen9166.d9486[228];
14345 SG_PROCEDURE_TRANSPARENT(&core_char_downcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14346 sg__rc_cgen9166.d9486[229] = SG_MAKE_STRING("char-titlecase");
14347 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[229]), &core_char_titlecase__STUB);
14348 SG_PROCEDURE_NAME(&core_char_titlecase__STUB) = sg__rc_cgen9166.d9486[229];
14349 SG_PROCEDURE_TRANSPARENT(&core_char_titlecase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14350 sg__rc_cgen9166.d9486[230] = SG_MAKE_STRING("char-foldcase");
14351 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[230]), &core_char_foldcase__STUB);
14352 SG_PROCEDURE_NAME(&core_char_foldcase__STUB) = sg__rc_cgen9166.d9486[230];
14353 SG_PROCEDURE_TRANSPARENT(&core_char_foldcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14354 sg__rc_cgen9166.d9486[231] = SG_MAKE_STRING("char-general-category");
14355 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[231]), &core_char_general_category__STUB);
14356 SG_PROCEDURE_NAME(&core_char_general_category__STUB) = sg__rc_cgen9166.d9486[231];
14357 SG_PROCEDURE_TRANSPARENT(&core_char_general_category__STUB) = SG_PROC_NO_SIDE_EFFECT;
14358 sg__rc_cgen9166.d9486[232] = SG_MAKE_STRING("char-alphabetic?");
14359 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[232]), &core_char_alphabeticP__STUB);
14360 SG_PROCEDURE_NAME(&core_char_alphabeticP__STUB) = sg__rc_cgen9166.d9486[232];
14361 SG_PROCEDURE_TRANSPARENT(&core_char_alphabeticP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14362 sg__rc_cgen9166.d9486[233] = SG_MAKE_STRING("char-numeric?");
14363 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[233]), &core_char_numericP__STUB);
14364 SG_PROCEDURE_NAME(&core_char_numericP__STUB) = sg__rc_cgen9166.d9486[233];
14365 SG_PROCEDURE_TRANSPARENT(&core_char_numericP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14366 sg__rc_cgen9166.d9486[234] = SG_MAKE_STRING("char-whitespace?");
14367 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[234]), &core_char_whitespaceP__STUB);
14368 SG_PROCEDURE_NAME(&core_char_whitespaceP__STUB) = sg__rc_cgen9166.d9486[234];
14369 SG_PROCEDURE_TRANSPARENT(&core_char_whitespaceP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14370 sg__rc_cgen9166.d9486[235] = SG_MAKE_STRING("char-upper-case?");
14371 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[235]), &core_char_upper_caseP__STUB);
14372 SG_PROCEDURE_NAME(&core_char_upper_caseP__STUB) = sg__rc_cgen9166.d9486[235];
14373 SG_PROCEDURE_TRANSPARENT(&core_char_upper_caseP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14374 sg__rc_cgen9166.d9486[236] = SG_MAKE_STRING("char-lower-case?");
14375 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[236]), &core_char_lower_caseP__STUB);
14376 SG_PROCEDURE_NAME(&core_char_lower_caseP__STUB) = sg__rc_cgen9166.d9486[236];
14377 SG_PROCEDURE_TRANSPARENT(&core_char_lower_caseP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14378 sg__rc_cgen9166.d9486[237] = SG_MAKE_STRING("char-title-case?");
14379 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[237]), &core_char_title_caseP__STUB);
14380 SG_PROCEDURE_NAME(&core_char_title_caseP__STUB) = sg__rc_cgen9166.d9486[237];
14381 SG_PROCEDURE_TRANSPARENT(&core_char_title_caseP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14382 sg__rc_cgen9166.d9486[238] = SG_MAKE_STRING("string-upcase");
14383 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[238]), &core_string_upcase__STUB);
14384 SG_PROCEDURE_NAME(&core_string_upcase__STUB) = sg__rc_cgen9166.d9486[238];
14385 SG_PROCEDURE_TRANSPARENT(&core_string_upcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14386 sg__rc_cgen9166.d9486[239] = SG_MAKE_STRING("string-downcase");
14387 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[239]), &core_string_downcase__STUB);
14388 SG_PROCEDURE_NAME(&core_string_downcase__STUB) = sg__rc_cgen9166.d9486[239];
14389 SG_PROCEDURE_TRANSPARENT(&core_string_downcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14390 sg__rc_cgen9166.d9486[240] = SG_MAKE_STRING("string-titlecase");
14391 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[240]), &core_string_titlecase__STUB);
14392 SG_PROCEDURE_NAME(&core_string_titlecase__STUB) = sg__rc_cgen9166.d9486[240];
14393 SG_PROCEDURE_TRANSPARENT(&core_string_titlecase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14394 sg__rc_cgen9166.d9486[241] = SG_MAKE_STRING("string-foldcase");
14395 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[241]), &core_string_foldcase__STUB);
14396 SG_PROCEDURE_NAME(&core_string_foldcase__STUB) = sg__rc_cgen9166.d9486[241];
14397 SG_PROCEDURE_TRANSPARENT(&core_string_foldcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14398 sg__rc_cgen9166.d9486[242] = SG_MAKE_STRING("string-normalize-nfd");
14399 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[242]), &core_string_normalize_nfd__STUB);
14400 SG_PROCEDURE_NAME(&core_string_normalize_nfd__STUB) = sg__rc_cgen9166.d9486[242];
14401 SG_PROCEDURE_TRANSPARENT(&core_string_normalize_nfd__STUB) = SG_PROC_NO_SIDE_EFFECT;
14402 sg__rc_cgen9166.d9486[243] = SG_MAKE_STRING("string-normalize-nfkd");
14403 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[243]), &core_string_normalize_nfkd__STUB);
14404 SG_PROCEDURE_NAME(&core_string_normalize_nfkd__STUB) = sg__rc_cgen9166.d9486[243];
14405 SG_PROCEDURE_TRANSPARENT(&core_string_normalize_nfkd__STUB) = SG_PROC_NO_SIDE_EFFECT;
14406 sg__rc_cgen9166.d9486[244] = SG_MAKE_STRING("string-normalize-nfc");
14407 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[244]), &core_string_normalize_nfc__STUB);
14408 SG_PROCEDURE_NAME(&core_string_normalize_nfc__STUB) = sg__rc_cgen9166.d9486[244];
14409 SG_PROCEDURE_TRANSPARENT(&core_string_normalize_nfc__STUB) = SG_PROC_NO_SIDE_EFFECT;
14410 sg__rc_cgen9166.d9486[245] = SG_MAKE_STRING("string-normalize-nfkc");
14411 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[245]), &core_string_normalize_nfkc__STUB);
14412 SG_PROCEDURE_NAME(&core_string_normalize_nfkc__STUB) = sg__rc_cgen9166.d9486[245];
14413 SG_PROCEDURE_TRANSPARENT(&core_string_normalize_nfkc__STUB) = SG_PROC_NO_SIDE_EFFECT;
14414 sg__rc_cgen9166.d9486[246] = SG_MAKE_STRING("native-endianness");
14415 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[246]), &core_native_endianness__STUB);
14416 SG_PROCEDURE_NAME(&core_native_endianness__STUB) = sg__rc_cgen9166.d9486[246];
14417 SG_PROCEDURE_TRANSPARENT(&core_native_endianness__STUB) = SG_PROC_NO_SIDE_EFFECT;
14418 sg__rc_cgen9166.d9486[247] = SG_MAKE_STRING("bytevector=?");
14419 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[247]), &core_bytevector_3dP__STUB);
14420 SG_PROCEDURE_NAME(&core_bytevector_3dP__STUB) = sg__rc_cgen9166.d9486[247];
14421 SG_PROCEDURE_TRANSPARENT(&core_bytevector_3dP__STUB) = SG_PROC_TRANSPARENT;
14422 sg__rc_cgen9166.d9486[248] = SG_MAKE_STRING("bytevector-copy");
14423 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[248]), &core_bytevector_copy__STUB);
14424 SG_PROCEDURE_NAME(&core_bytevector_copy__STUB) = sg__rc_cgen9166.d9486[248];
14425 SG_PROCEDURE_TRANSPARENT(&core_bytevector_copy__STUB) = SG_PROC_NO_SIDE_EFFECT;
14426 sg__rc_cgen9166.d9486[249] = SG_MAKE_STRING("bytevector-copy!");
14427 sg__rc_cgen9166.d9486[250] = Sg_Intern(sg__rc_cgen9166.d9486[249]); /* bytevector-copy! */
14428 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[249]), &core_bytevector_copyX__STUB);
14429 SG_PROCEDURE_NAME(&core_bytevector_copyX__STUB) = sg__rc_cgen9166.d9486[249];
14430 sg__rc_cgen9166.d9486[251] = SG_MAKE_STRING("make-bytevector");
14431 sg__rc_cgen9166.d9486[252] = Sg_Intern(sg__rc_cgen9166.d9486[251]); /* make-bytevector */
14432 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[251]), &core_make_bytevector__STUB);
14433 SG_PROCEDURE_NAME(&core_make_bytevector__STUB) = sg__rc_cgen9166.d9486[251];
14434 SG_PROCEDURE_TRANSPARENT(&core_make_bytevector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14435 sg__rc_cgen9166.d9486[253] = SG_MAKE_STRING("bytevector?");
14436 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[253]), &core_bytevectorP__STUB);
14437 SG_PROCEDURE_NAME(&core_bytevectorP__STUB) = sg__rc_cgen9166.d9486[253];
14438 SG_PROCEDURE_TRANSPARENT(&core_bytevectorP__STUB) = SG_PROC_TRANSPARENT;
14439 sg__rc_cgen9166.d9486[254] = SG_MAKE_STRING("bytevector-length");
14440 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[254]), &core_bytevector_length__STUB);
14441 SG_PROCEDURE_NAME(&core_bytevector_length__STUB) = sg__rc_cgen9166.d9486[254];
14442 SG_PROCEDURE_TRANSPARENT(&core_bytevector_length__STUB) = SG_PROC_TRANSPARENT;
14443 sg__rc_cgen9166.d9486[255] = SG_MAKE_STRING("bytevector-fill!");
14444 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[255]), &core_bytevector_fillX__STUB);
14445 SG_PROCEDURE_NAME(&core_bytevector_fillX__STUB) = sg__rc_cgen9166.d9486[255];
14446 sg__rc_cgen9166.d9486[256] = SG_MAKE_STRING("u8-list->bytevector");
14447 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[256]), &core_u8_list_TObytevector__STUB);
14448 SG_PROCEDURE_NAME(&core_u8_list_TObytevector__STUB) = sg__rc_cgen9166.d9486[256];
14449 SG_PROCEDURE_TRANSPARENT(&core_u8_list_TObytevector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14450 sg__rc_cgen9166.d9486[257] = SG_MAKE_STRING("bytevector->u8-list");
14451 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[257]), &core_bytevector_TOu8_list__STUB);
14452 SG_PROCEDURE_NAME(&core_bytevector_TOu8_list__STUB) = sg__rc_cgen9166.d9486[257];
14453 SG_PROCEDURE_TRANSPARENT(&core_bytevector_TOu8_list__STUB) = SG_PROC_NO_SIDE_EFFECT;
14454 sg__rc_cgen9166.d9486[258] = SG_MAKE_STRING("bytevector-u8-ref");
14455 sg__rc_cgen9166.d9486[259] = Sg_Intern(sg__rc_cgen9166.d9486[258]); /* bytevector-u8-ref */
14456 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[258]), &core_bytevector_u8_ref__STUB);
14457 SG_PROCEDURE_NAME(&core_bytevector_u8_ref__STUB) = sg__rc_cgen9166.d9486[258];
14458 SG_PROCEDURE_TRANSPARENT(&core_bytevector_u8_ref__STUB) = SG_PROC_TRANSPARENT;
14459 SG_PROCEDURE_NAME(&core_bytevector_u8_setX__STUB) = sg__rc_cgen9166.d9486[260];
14460 Sg_SetterSet(SG_PROCEDURE(&core_bytevector_u8_ref__STUB), SG_PROCEDURE(&core_bytevector_u8_setX__STUB), TRUE);
14461 sg__rc_cgen9166.d9486[260] = SG_MAKE_STRING("bytevector-u8-set!");
14462 sg__rc_cgen9166.d9486[261] = Sg_Intern(sg__rc_cgen9166.d9486[260]); /* bytevector-u8-set! */
14463 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[260]), &core_bytevector_u8_setX__STUB);
14464 SG_PROCEDURE_NAME(&core_bytevector_u8_setX__STUB) = sg__rc_cgen9166.d9486[260];
14465 sg__rc_cgen9166.d9486[262] = SG_MAKE_STRING("bytevector-s8-ref");
14466 sg__rc_cgen9166.d9486[263] = Sg_Intern(sg__rc_cgen9166.d9486[262]); /* bytevector-s8-ref */
14467 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[262]), &core_bytevector_s8_ref__STUB);
14468 SG_PROCEDURE_NAME(&core_bytevector_s8_ref__STUB) = sg__rc_cgen9166.d9486[262];
14469 SG_PROCEDURE_TRANSPARENT(&core_bytevector_s8_ref__STUB) = SG_PROC_TRANSPARENT;
14470 SG_PROCEDURE_NAME(&core_bytevector_s8_setX__STUB) = sg__rc_cgen9166.d9486[264];
14471 Sg_SetterSet(SG_PROCEDURE(&core_bytevector_s8_ref__STUB), SG_PROCEDURE(&core_bytevector_s8_setX__STUB), TRUE);
14472 sg__rc_cgen9166.d9486[264] = SG_MAKE_STRING("bytevector-s8-set!");
14473 sg__rc_cgen9166.d9486[265] = Sg_Intern(sg__rc_cgen9166.d9486[264]); /* bytevector-s8-set! */
14474 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[264]), &core_bytevector_s8_setX__STUB);
14475 SG_PROCEDURE_NAME(&core_bytevector_s8_setX__STUB) = sg__rc_cgen9166.d9486[264];
14476 sg__rc_cgen9166.d9486[266] = SG_MAKE_STRING("bytevector-u16-native-ref");
14477 sg__rc_cgen9166.d9486[267] = Sg_Intern(sg__rc_cgen9166.d9486[266]); /* bytevector-u16-native-ref */
14478 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[266]), &core_bytevector_u16_native_ref__STUB);
14479 SG_PROCEDURE_NAME(&core_bytevector_u16_native_ref__STUB) = sg__rc_cgen9166.d9486[266];
14480 SG_PROCEDURE_TRANSPARENT(&core_bytevector_u16_native_ref__STUB) = SG_PROC_TRANSPARENT;
14481 SG_PROCEDURE_NAME(&core_bytevector_u16_native_setX__STUB) = sg__rc_cgen9166.d9486[268];
14482 Sg_SetterSet(SG_PROCEDURE(&core_bytevector_u16_native_ref__STUB), SG_PROCEDURE(&core_bytevector_u16_native_setX__STUB), TRUE);
14483 sg__rc_cgen9166.d9486[268] = SG_MAKE_STRING("bytevector-u16-native-set!");
14484 sg__rc_cgen9166.d9486[269] = Sg_Intern(sg__rc_cgen9166.d9486[268]); /* bytevector-u16-native-set! */
14485 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[268]), &core_bytevector_u16_native_setX__STUB);
14486 SG_PROCEDURE_NAME(&core_bytevector_u16_native_setX__STUB) = sg__rc_cgen9166.d9486[268];
14487 sg__rc_cgen9166.d9486[270] = SG_MAKE_STRING("bytevector-u16-ref");
14488 sg__rc_cgen9166.d9486[271] = Sg_Intern(sg__rc_cgen9166.d9486[270]); /* bytevector-u16-ref */
14489 sg__rc_cgen9166.d9486[273] = SG_MAKE_STRING("little");
14490 sg__rc_cgen9166.d9486[272] = Sg_Intern(sg__rc_cgen9166.d9486[273]); /* little */
14491 sg__rc_cgen9166.d9486[275] = SG_MAKE_STRING("big");
14492 sg__rc_cgen9166.d9486[274] = Sg_Intern(sg__rc_cgen9166.d9486[275]); /* big */
14493 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[270]), &core_bytevector_u16_ref__STUB);
14494 SG_PROCEDURE_NAME(&core_bytevector_u16_ref__STUB) = sg__rc_cgen9166.d9486[270];
14495 SG_PROCEDURE_TRANSPARENT(&core_bytevector_u16_ref__STUB) = SG_PROC_TRANSPARENT;
14496 sg__rc_cgen9166.d9486[276] = SG_MAKE_STRING("bytevector-u16-set!");
14497 sg__rc_cgen9166.d9486[277] = Sg_Intern(sg__rc_cgen9166.d9486[276]); /* bytevector-u16-set! */
14498 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[276]), &core_bytevector_u16_setX__STUB);
14499 SG_PROCEDURE_NAME(&core_bytevector_u16_setX__STUB) = sg__rc_cgen9166.d9486[276];
14500 sg__rc_cgen9166.d9486[278] = SG_MAKE_STRING("bytevector-s16-native-ref");
14501 sg__rc_cgen9166.d9486[279] = Sg_Intern(sg__rc_cgen9166.d9486[278]); /* bytevector-s16-native-ref */
14502 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[278]), &core_bytevector_s16_native_ref__STUB);
14503 SG_PROCEDURE_NAME(&core_bytevector_s16_native_ref__STUB) = sg__rc_cgen9166.d9486[278];
14504 SG_PROCEDURE_TRANSPARENT(&core_bytevector_s16_native_ref__STUB) = SG_PROC_TRANSPARENT;
14505 SG_PROCEDURE_NAME(&core_bytevector_s16_native_setX__STUB) = sg__rc_cgen9166.d9486[280];
14506 Sg_SetterSet(SG_PROCEDURE(&core_bytevector_s16_native_ref__STUB), SG_PROCEDURE(&core_bytevector_s16_native_setX__STUB), TRUE);
14507 sg__rc_cgen9166.d9486[280] = SG_MAKE_STRING("bytevector-s16-native-set!");
14508 sg__rc_cgen9166.d9486[281] = Sg_Intern(sg__rc_cgen9166.d9486[280]); /* bytevector-s16-native-set! */
14509 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[280]), &core_bytevector_s16_native_setX__STUB);
14510 SG_PROCEDURE_NAME(&core_bytevector_s16_native_setX__STUB) = sg__rc_cgen9166.d9486[280];
14511 sg__rc_cgen9166.d9486[282] = SG_MAKE_STRING("bytevector-s16-ref");
14512 sg__rc_cgen9166.d9486[283] = Sg_Intern(sg__rc_cgen9166.d9486[282]); /* bytevector-s16-ref */
14513 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[282]), &core_bytevector_s16_ref__STUB);
14514 SG_PROCEDURE_NAME(&core_bytevector_s16_ref__STUB) = sg__rc_cgen9166.d9486[282];
14515 SG_PROCEDURE_TRANSPARENT(&core_bytevector_s16_ref__STUB) = SG_PROC_TRANSPARENT;
14516 sg__rc_cgen9166.d9486[284] = SG_MAKE_STRING("bytevector-s16-set!");
14517 sg__rc_cgen9166.d9486[285] = Sg_Intern(sg__rc_cgen9166.d9486[284]); /* bytevector-s16-set! */
14518 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[284]), &core_bytevector_s16_setX__STUB);
14519 SG_PROCEDURE_NAME(&core_bytevector_s16_setX__STUB) = sg__rc_cgen9166.d9486[284];
14520 sg__rc_cgen9166.d9486[286] = SG_MAKE_STRING("bytevector-u32-native-ref");
14521 sg__rc_cgen9166.d9486[287] = Sg_Intern(sg__rc_cgen9166.d9486[286]); /* bytevector-u32-native-ref */
14522 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[286]), &core_bytevector_u32_native_ref__STUB);
14523 SG_PROCEDURE_NAME(&core_bytevector_u32_native_ref__STUB) = sg__rc_cgen9166.d9486[286];
14524 SG_PROCEDURE_TRANSPARENT(&core_bytevector_u32_native_ref__STUB) = SG_PROC_TRANSPARENT;
14525 SG_PROCEDURE_NAME(&core_bytevector_u32_native_setX__STUB) = sg__rc_cgen9166.d9486[288];
14526 Sg_SetterSet(SG_PROCEDURE(&core_bytevector_u32_native_ref__STUB), SG_PROCEDURE(&core_bytevector_u32_native_setX__STUB), TRUE);
14527 sg__rc_cgen9166.d9486[288] = SG_MAKE_STRING("bytevector-u32-native-set!");
14528 sg__rc_cgen9166.d9486[289] = Sg_Intern(sg__rc_cgen9166.d9486[288]); /* bytevector-u32-native-set! */
14529 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[288]), &core_bytevector_u32_native_setX__STUB);
14530 SG_PROCEDURE_NAME(&core_bytevector_u32_native_setX__STUB) = sg__rc_cgen9166.d9486[288];
14531 sg__rc_cgen9166.d9486[290] = SG_MAKE_STRING("bytevector-u32-ref");
14532 sg__rc_cgen9166.d9486[291] = Sg_Intern(sg__rc_cgen9166.d9486[290]); /* bytevector-u32-ref */
14533 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[290]), &core_bytevector_u32_ref__STUB);
14534 SG_PROCEDURE_NAME(&core_bytevector_u32_ref__STUB) = sg__rc_cgen9166.d9486[290];
14535 SG_PROCEDURE_TRANSPARENT(&core_bytevector_u32_ref__STUB) = SG_PROC_TRANSPARENT;
14536 sg__rc_cgen9166.d9486[292] = SG_MAKE_STRING("bytevector-u32-set!");
14537 sg__rc_cgen9166.d9486[293] = Sg_Intern(sg__rc_cgen9166.d9486[292]); /* bytevector-u32-set! */
14538 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[292]), &core_bytevector_u32_setX__STUB);
14539 SG_PROCEDURE_NAME(&core_bytevector_u32_setX__STUB) = sg__rc_cgen9166.d9486[292];
14540 sg__rc_cgen9166.d9486[294] = SG_MAKE_STRING("bytevector-s32-native-ref");
14541 sg__rc_cgen9166.d9486[295] = Sg_Intern(sg__rc_cgen9166.d9486[294]); /* bytevector-s32-native-ref */
14542 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[294]), &core_bytevector_s32_native_ref__STUB);
14543 SG_PROCEDURE_NAME(&core_bytevector_s32_native_ref__STUB) = sg__rc_cgen9166.d9486[294];
14544 SG_PROCEDURE_TRANSPARENT(&core_bytevector_s32_native_ref__STUB) = SG_PROC_TRANSPARENT;
14545 SG_PROCEDURE_NAME(&core_bytevector_s32_native_setX__STUB) = sg__rc_cgen9166.d9486[296];
14546 Sg_SetterSet(SG_PROCEDURE(&core_bytevector_s32_native_ref__STUB), SG_PROCEDURE(&core_bytevector_s32_native_setX__STUB), TRUE);
14547 sg__rc_cgen9166.d9486[296] = SG_MAKE_STRING("bytevector-s32-native-set!");
14548 sg__rc_cgen9166.d9486[297] = Sg_Intern(sg__rc_cgen9166.d9486[296]); /* bytevector-s32-native-set! */
14549 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[296]), &core_bytevector_s32_native_setX__STUB);
14550 SG_PROCEDURE_NAME(&core_bytevector_s32_native_setX__STUB) = sg__rc_cgen9166.d9486[296];
14551 sg__rc_cgen9166.d9486[298] = SG_MAKE_STRING("bytevector-s32-ref");
14552 sg__rc_cgen9166.d9486[299] = Sg_Intern(sg__rc_cgen9166.d9486[298]); /* bytevector-s32-ref */
14553 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[298]), &core_bytevector_s32_ref__STUB);
14554 SG_PROCEDURE_NAME(&core_bytevector_s32_ref__STUB) = sg__rc_cgen9166.d9486[298];
14555 SG_PROCEDURE_TRANSPARENT(&core_bytevector_s32_ref__STUB) = SG_PROC_TRANSPARENT;
14556 sg__rc_cgen9166.d9486[300] = SG_MAKE_STRING("bytevector-s32-set!");
14557 sg__rc_cgen9166.d9486[301] = Sg_Intern(sg__rc_cgen9166.d9486[300]); /* bytevector-s32-set! */
14558 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[300]), &core_bytevector_s32_setX__STUB);
14559 SG_PROCEDURE_NAME(&core_bytevector_s32_setX__STUB) = sg__rc_cgen9166.d9486[300];
14560 sg__rc_cgen9166.d9486[302] = SG_MAKE_STRING("bytevector-u64-native-ref");
14561 sg__rc_cgen9166.d9486[303] = Sg_Intern(sg__rc_cgen9166.d9486[302]); /* bytevector-u64-native-ref */
14562 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[302]), &core_bytevector_u64_native_ref__STUB);
14563 SG_PROCEDURE_NAME(&core_bytevector_u64_native_ref__STUB) = sg__rc_cgen9166.d9486[302];
14564 SG_PROCEDURE_TRANSPARENT(&core_bytevector_u64_native_ref__STUB) = SG_PROC_TRANSPARENT;
14565 SG_PROCEDURE_NAME(&core_bytevector_u64_native_setX__STUB) = sg__rc_cgen9166.d9486[304];
14566 Sg_SetterSet(SG_PROCEDURE(&core_bytevector_u64_native_ref__STUB), SG_PROCEDURE(&core_bytevector_u64_native_setX__STUB), TRUE);
14567 sg__rc_cgen9166.d9486[304] = SG_MAKE_STRING("bytevector-u64-native-set!");
14568 sg__rc_cgen9166.d9486[305] = Sg_Intern(sg__rc_cgen9166.d9486[304]); /* bytevector-u64-native-set! */
14569 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[304]), &core_bytevector_u64_native_setX__STUB);
14570 SG_PROCEDURE_NAME(&core_bytevector_u64_native_setX__STUB) = sg__rc_cgen9166.d9486[304];
14571 sg__rc_cgen9166.d9486[306] = SG_MAKE_STRING("bytevector-u64-ref");
14572 sg__rc_cgen9166.d9486[307] = Sg_Intern(sg__rc_cgen9166.d9486[306]); /* bytevector-u64-ref */
14573 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[306]), &core_bytevector_u64_ref__STUB);
14574 SG_PROCEDURE_NAME(&core_bytevector_u64_ref__STUB) = sg__rc_cgen9166.d9486[306];
14575 SG_PROCEDURE_TRANSPARENT(&core_bytevector_u64_ref__STUB) = SG_PROC_TRANSPARENT;
14576 sg__rc_cgen9166.d9486[308] = SG_MAKE_STRING("bytevector-u64-set!");
14577 sg__rc_cgen9166.d9486[309] = Sg_Intern(sg__rc_cgen9166.d9486[308]); /* bytevector-u64-set! */
14578 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[308]), &core_bytevector_u64_setX__STUB);
14579 SG_PROCEDURE_NAME(&core_bytevector_u64_setX__STUB) = sg__rc_cgen9166.d9486[308];
14580 sg__rc_cgen9166.d9486[310] = SG_MAKE_STRING("bytevector-s64-native-ref");
14581 sg__rc_cgen9166.d9486[311] = Sg_Intern(sg__rc_cgen9166.d9486[310]); /* bytevector-s64-native-ref */
14582 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[310]), &core_bytevector_s64_native_ref__STUB);
14583 SG_PROCEDURE_NAME(&core_bytevector_s64_native_ref__STUB) = sg__rc_cgen9166.d9486[310];
14584 SG_PROCEDURE_TRANSPARENT(&core_bytevector_s64_native_ref__STUB) = SG_PROC_TRANSPARENT;
14585 SG_PROCEDURE_NAME(&core_bytevector_s64_native_setX__STUB) = sg__rc_cgen9166.d9486[312];
14586 Sg_SetterSet(SG_PROCEDURE(&core_bytevector_s64_native_ref__STUB), SG_PROCEDURE(&core_bytevector_s64_native_setX__STUB), TRUE);
14587 sg__rc_cgen9166.d9486[312] = SG_MAKE_STRING("bytevector-s64-native-set!");
14588 sg__rc_cgen9166.d9486[313] = Sg_Intern(sg__rc_cgen9166.d9486[312]); /* bytevector-s64-native-set! */
14589 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[312]), &core_bytevector_s64_native_setX__STUB);
14590 SG_PROCEDURE_NAME(&core_bytevector_s64_native_setX__STUB) = sg__rc_cgen9166.d9486[312];
14591 sg__rc_cgen9166.d9486[314] = SG_MAKE_STRING("bytevector-s64-ref");
14592 sg__rc_cgen9166.d9486[315] = Sg_Intern(sg__rc_cgen9166.d9486[314]); /* bytevector-s64-ref */
14593 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[314]), &core_bytevector_s64_ref__STUB);
14594 SG_PROCEDURE_NAME(&core_bytevector_s64_ref__STUB) = sg__rc_cgen9166.d9486[314];
14595 SG_PROCEDURE_TRANSPARENT(&core_bytevector_s64_ref__STUB) = SG_PROC_TRANSPARENT;
14596 sg__rc_cgen9166.d9486[316] = SG_MAKE_STRING("bytevector-s64-set!");
14597 sg__rc_cgen9166.d9486[317] = Sg_Intern(sg__rc_cgen9166.d9486[316]); /* bytevector-s64-set! */
14598 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[316]), &core_bytevector_s64_setX__STUB);
14599 SG_PROCEDURE_NAME(&core_bytevector_s64_setX__STUB) = sg__rc_cgen9166.d9486[316];
14600 sg__rc_cgen9166.d9486[318] = SG_MAKE_STRING("bytevector-ieee-single-native-ref");
14601 sg__rc_cgen9166.d9486[319] = Sg_Intern(sg__rc_cgen9166.d9486[318]); /* bytevector-ieee-single-native-ref */
14602 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[318]), &core_bytevector_ieee_single_native_ref__STUB);
14603 SG_PROCEDURE_NAME(&core_bytevector_ieee_single_native_ref__STUB) = sg__rc_cgen9166.d9486[318];
14604 SG_PROCEDURE_TRANSPARENT(&core_bytevector_ieee_single_native_ref__STUB) = SG_PROC_TRANSPARENT;
14605 SG_PROCEDURE_NAME(&core_bytevector_ieee_single_native_setX__STUB) = sg__rc_cgen9166.d9486[322];
14606 Sg_SetterSet(SG_PROCEDURE(&core_bytevector_ieee_single_native_ref__STUB), SG_PROCEDURE(&core_bytevector_ieee_single_native_setX__STUB), TRUE);
14607 sg__rc_cgen9166.d9486[320] = SG_MAKE_STRING("bytevector-ieee-single-ref");
14608 sg__rc_cgen9166.d9486[321] = Sg_Intern(sg__rc_cgen9166.d9486[320]); /* bytevector-ieee-single-ref */
14609 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[320]), &core_bytevector_ieee_single_ref__STUB);
14610 SG_PROCEDURE_NAME(&core_bytevector_ieee_single_ref__STUB) = sg__rc_cgen9166.d9486[320];
14611 SG_PROCEDURE_TRANSPARENT(&core_bytevector_ieee_single_ref__STUB) = SG_PROC_TRANSPARENT;
14612 sg__rc_cgen9166.d9486[322] = SG_MAKE_STRING("bytevector-ieee-single-native-set!");
14613 sg__rc_cgen9166.d9486[323] = Sg_Intern(sg__rc_cgen9166.d9486[322]); /* bytevector-ieee-single-native-set! */
14614 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[322]), &core_bytevector_ieee_single_native_setX__STUB);
14615 SG_PROCEDURE_NAME(&core_bytevector_ieee_single_native_setX__STUB) = sg__rc_cgen9166.d9486[322];
14616 sg__rc_cgen9166.d9486[324] = SG_MAKE_STRING("bytevector-ieee-single-set!");
14617 sg__rc_cgen9166.d9486[325] = Sg_Intern(sg__rc_cgen9166.d9486[324]); /* bytevector-ieee-single-set! */
14618 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[324]), &core_bytevector_ieee_single_setX__STUB);
14619 SG_PROCEDURE_NAME(&core_bytevector_ieee_single_setX__STUB) = sg__rc_cgen9166.d9486[324];
14620 sg__rc_cgen9166.d9486[326] = SG_MAKE_STRING("bytevector-ieee-double-native-ref");
14621 sg__rc_cgen9166.d9486[327] = Sg_Intern(sg__rc_cgen9166.d9486[326]); /* bytevector-ieee-double-native-ref */
14622 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[326]), &core_bytevector_ieee_double_native_ref__STUB);
14623 SG_PROCEDURE_NAME(&core_bytevector_ieee_double_native_ref__STUB) = sg__rc_cgen9166.d9486[326];
14624 SG_PROCEDURE_TRANSPARENT(&core_bytevector_ieee_double_native_ref__STUB) = SG_PROC_TRANSPARENT;
14625 SG_PROCEDURE_NAME(&core_bytevector_ieee_double_native_setX__STUB) = sg__rc_cgen9166.d9486[330];
14626 Sg_SetterSet(SG_PROCEDURE(&core_bytevector_ieee_double_native_ref__STUB), SG_PROCEDURE(&core_bytevector_ieee_double_native_setX__STUB), TRUE);
14627 sg__rc_cgen9166.d9486[328] = SG_MAKE_STRING("bytevector-ieee-double-ref");
14628 sg__rc_cgen9166.d9486[329] = Sg_Intern(sg__rc_cgen9166.d9486[328]); /* bytevector-ieee-double-ref */
14629 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[328]), &core_bytevector_ieee_double_ref__STUB);
14630 SG_PROCEDURE_NAME(&core_bytevector_ieee_double_ref__STUB) = sg__rc_cgen9166.d9486[328];
14631 SG_PROCEDURE_TRANSPARENT(&core_bytevector_ieee_double_ref__STUB) = SG_PROC_TRANSPARENT;
14632 sg__rc_cgen9166.d9486[330] = SG_MAKE_STRING("bytevector-ieee-double-native-set!");
14633 sg__rc_cgen9166.d9486[331] = Sg_Intern(sg__rc_cgen9166.d9486[330]); /* bytevector-ieee-double-native-set! */
14634 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[330]), &core_bytevector_ieee_double_native_setX__STUB);
14635 SG_PROCEDURE_NAME(&core_bytevector_ieee_double_native_setX__STUB) = sg__rc_cgen9166.d9486[330];
14636 sg__rc_cgen9166.d9486[332] = SG_MAKE_STRING("bytevector-ieee-double-set!");
14637 sg__rc_cgen9166.d9486[333] = Sg_Intern(sg__rc_cgen9166.d9486[332]); /* bytevector-ieee-double-set! */
14638 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[332]), &core_bytevector_ieee_double_setX__STUB);
14639 SG_PROCEDURE_NAME(&core_bytevector_ieee_double_setX__STUB) = sg__rc_cgen9166.d9486[332];
14640 sg__rc_cgen9166.d9486[334] = SG_MAKE_STRING("utf8->string");
14641 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[334]), &core_utf8_TOstring__STUB);
14642 SG_PROCEDURE_NAME(&core_utf8_TOstring__STUB) = sg__rc_cgen9166.d9486[334];
14643 SG_PROCEDURE_TRANSPARENT(&core_utf8_TOstring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14644 sg__rc_cgen9166.d9486[335] = SG_MAKE_STRING("string->utf8");
14645 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[335]), &core_string_TOutf8__STUB);
14646 SG_PROCEDURE_NAME(&core_string_TOutf8__STUB) = sg__rc_cgen9166.d9486[335];
14647 SG_PROCEDURE_TRANSPARENT(&core_string_TOutf8__STUB) = SG_PROC_NO_SIDE_EFFECT;
14648 sg__rc_cgen9166.d9486[336] = SG_MAKE_STRING("utf16->string");
14649 sg__rc_cgen9166.d9486[337] = Sg_Intern(sg__rc_cgen9166.d9486[336]); /* utf16->string */
14650 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[336]), &core_utf16_TOstring__STUB);
14651 SG_PROCEDURE_NAME(&core_utf16_TOstring__STUB) = sg__rc_cgen9166.d9486[336];
14652 SG_PROCEDURE_TRANSPARENT(&core_utf16_TOstring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14653 sg__rc_cgen9166.d9486[338] = SG_MAKE_STRING("string->utf16");
14654 sg__rc_cgen9166.d9486[339] = Sg_Intern(sg__rc_cgen9166.d9486[338]); /* string->utf16 */
14655 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[338]), &core_string_TOutf16__STUB);
14656 SG_PROCEDURE_NAME(&core_string_TOutf16__STUB) = sg__rc_cgen9166.d9486[338];
14657 SG_PROCEDURE_TRANSPARENT(&core_string_TOutf16__STUB) = SG_PROC_NO_SIDE_EFFECT;
14658 sg__rc_cgen9166.d9486[340] = SG_MAKE_STRING("string->utf32");
14659 sg__rc_cgen9166.d9486[341] = Sg_Intern(sg__rc_cgen9166.d9486[340]); /* string->utf32 */
14660 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[340]), &core_string_TOutf32__STUB);
14661 SG_PROCEDURE_NAME(&core_string_TOutf32__STUB) = sg__rc_cgen9166.d9486[340];
14662 SG_PROCEDURE_TRANSPARENT(&core_string_TOutf32__STUB) = SG_PROC_NO_SIDE_EFFECT;
14663 sg__rc_cgen9166.d9486[342] = SG_MAKE_STRING("utf32->string");
14664 sg__rc_cgen9166.d9486[343] = Sg_Intern(sg__rc_cgen9166.d9486[342]); /* utf32->string */
14665 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[342]), &core_utf32_TOstring__STUB);
14666 SG_PROCEDURE_NAME(&core_utf32_TOstring__STUB) = sg__rc_cgen9166.d9486[342];
14667 SG_PROCEDURE_TRANSPARENT(&core_utf32_TOstring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14668 sg__rc_cgen9166.d9486[344] = SG_MAKE_STRING("memq");
14669 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[344]), &core_memq__STUB);
14670 SG_PROCEDURE_NAME(&core_memq__STUB) = sg__rc_cgen9166.d9486[344];
14671 SG_PROCEDURE_TRANSPARENT(&core_memq__STUB) = SG_PROC_TRANSPARENT;
14672 sg__rc_cgen9166.d9486[345] = SG_MAKE_STRING("memv");
14673 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[345]), &core_memv__STUB);
14674 SG_PROCEDURE_NAME(&core_memv__STUB) = sg__rc_cgen9166.d9486[345];
14675 SG_PROCEDURE_TRANSPARENT(&core_memv__STUB) = SG_PROC_TRANSPARENT;
14676 sg__rc_cgen9166.d9486[346] = SG_MAKE_STRING("assq");
14677 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[346]), &core_assq__STUB);
14678 SG_PROCEDURE_NAME(&core_assq__STUB) = sg__rc_cgen9166.d9486[346];
14679 SG_PROCEDURE_TRANSPARENT(&core_assq__STUB) = SG_PROC_TRANSPARENT;
14680 sg__rc_cgen9166.d9486[347] = SG_MAKE_STRING("assv");
14681 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[347]), &core_assv__STUB);
14682 SG_PROCEDURE_NAME(&core_assv__STUB) = sg__rc_cgen9166.d9486[347];
14683 SG_PROCEDURE_TRANSPARENT(&core_assv__STUB) = SG_PROC_TRANSPARENT;
14684 sg__rc_cgen9166.d9486[348] = SG_MAKE_STRING("cons*");
14685 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[348]), &core_cons_2a__STUB);
14686 SG_PROCEDURE_NAME(&core_cons_2a__STUB) = sg__rc_cgen9166.d9486[348];
14687 SG_PROCEDURE_TRANSPARENT(&core_cons_2a__STUB) = SG_PROC_NO_SIDE_EFFECT;
14688 sg__rc_cgen9166.d9486[349] = SG_MAKE_STRING("buffer-mode?");
14689 sg__rc_cgen9166.d9486[351] = SG_MAKE_STRING("none");
14690 sg__rc_cgen9166.d9486[350] = Sg_Intern(sg__rc_cgen9166.d9486[351]); /* none */
14691 sg__rc_cgen9166.d9486[353] = SG_MAKE_STRING("line");
14692 sg__rc_cgen9166.d9486[352] = Sg_Intern(sg__rc_cgen9166.d9486[353]); /* line */
14693 sg__rc_cgen9166.d9486[355] = SG_MAKE_STRING("block");
14694 sg__rc_cgen9166.d9486[354] = Sg_Intern(sg__rc_cgen9166.d9486[355]); /* block */
14695 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[349]), &core_buffer_modeP__STUB);
14696 SG_PROCEDURE_NAME(&core_buffer_modeP__STUB) = sg__rc_cgen9166.d9486[349];
14697 SG_PROCEDURE_TRANSPARENT(&core_buffer_modeP__STUB) = SG_PROC_TRANSPARENT;
14698 sg__rc_cgen9166.d9486[356] = SG_MAKE_STRING("latin-1-codec");
14699 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[356]), &core_latin_1_codec__STUB);
14700 SG_PROCEDURE_NAME(&core_latin_1_codec__STUB) = sg__rc_cgen9166.d9486[356];
14701 SG_PROCEDURE_TRANSPARENT(&core_latin_1_codec__STUB) = SG_PROC_NO_SIDE_EFFECT;
14702 sg__rc_cgen9166.d9486[357] = SG_MAKE_STRING("utf-8-codec");
14703 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[357]), &core_utf_8_codec__STUB);
14704 SG_PROCEDURE_NAME(&core_utf_8_codec__STUB) = sg__rc_cgen9166.d9486[357];
14705 SG_PROCEDURE_TRANSPARENT(&core_utf_8_codec__STUB) = SG_PROC_NO_SIDE_EFFECT;
14706 sg__rc_cgen9166.d9486[358] = SG_MAKE_STRING("utf-16-codec");
14707 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[358]), &core_utf_16_codec__STUB);
14708 SG_PROCEDURE_NAME(&core_utf_16_codec__STUB) = sg__rc_cgen9166.d9486[358];
14709 SG_PROCEDURE_TRANSPARENT(&core_utf_16_codec__STUB) = SG_PROC_NO_SIDE_EFFECT;
14710 sg__rc_cgen9166.d9486[359] = SG_MAKE_STRING("native-eol-style");
14711 sg__rc_cgen9166.d9486[360] = Sg_Intern(sg__rc_cgen9166.d9486[359]); /* native-eol-style */
14712 sg__rc_cgen9166.d9486[362] = SG_MAKE_STRING("crlf");
14713 sg__rc_cgen9166.d9486[361] = Sg_Intern(sg__rc_cgen9166.d9486[362]); /* crlf */
14714 sg__rc_cgen9166.d9486[364] = SG_MAKE_STRING("crnel");
14715 sg__rc_cgen9166.d9486[363] = Sg_Intern(sg__rc_cgen9166.d9486[364]); /* crnel */
14716 sg__rc_cgen9166.d9486[366] = SG_MAKE_STRING("nel");
14717 sg__rc_cgen9166.d9486[365] = Sg_Intern(sg__rc_cgen9166.d9486[366]); /* nel */
14718 sg__rc_cgen9166.d9486[368] = SG_MAKE_STRING("ls");
14719 sg__rc_cgen9166.d9486[367] = Sg_Intern(sg__rc_cgen9166.d9486[368]); /* ls */
14720 sg__rc_cgen9166.d9486[370] = SG_MAKE_STRING("cr");
14721 sg__rc_cgen9166.d9486[369] = Sg_Intern(sg__rc_cgen9166.d9486[370]); /* cr */
14722 sg__rc_cgen9166.d9486[372] = SG_MAKE_STRING("lf");
14723 sg__rc_cgen9166.d9486[371] = Sg_Intern(sg__rc_cgen9166.d9486[372]); /* lf */
14724 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[359]), &core_native_eol_style__STUB);
14725 SG_PROCEDURE_NAME(&core_native_eol_style__STUB) = sg__rc_cgen9166.d9486[359];
14726 SG_PROCEDURE_TRANSPARENT(&core_native_eol_style__STUB) = SG_PROC_NO_SIDE_EFFECT;
14727 sg__rc_cgen9166.d9486[373] = SG_MAKE_STRING("make-transcoder");
14728 sg__rc_cgen9166.d9486[374] = Sg_Intern(sg__rc_cgen9166.d9486[373]); /* make-transcoder */
14729 sg__rc_cgen9166.d9486[376] = SG_MAKE_STRING("ignore");
14730 sg__rc_cgen9166.d9486[375] = Sg_Intern(sg__rc_cgen9166.d9486[376]); /* ignore */
14731 sg__rc_cgen9166.d9486[378] = SG_MAKE_STRING("raise");
14732 sg__rc_cgen9166.d9486[377] = Sg_Intern(sg__rc_cgen9166.d9486[378]); /* raise */
14733 sg__rc_cgen9166.d9486[380] = SG_MAKE_STRING("replace");
14734 sg__rc_cgen9166.d9486[379] = Sg_Intern(sg__rc_cgen9166.d9486[380]); /* replace */
14735 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[373]), &core_make_transcoder__STUB);
14736 SG_PROCEDURE_NAME(&core_make_transcoder__STUB) = sg__rc_cgen9166.d9486[373];
14737 SG_PROCEDURE_TRANSPARENT(&core_make_transcoder__STUB) = SG_PROC_NO_SIDE_EFFECT;
14738 sg__rc_cgen9166.d9486[381] = SG_MAKE_STRING("native-transcoder");
14739 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[381]), &core_native_transcoder__STUB);
14740 SG_PROCEDURE_NAME(&core_native_transcoder__STUB) = sg__rc_cgen9166.d9486[381];
14741 SG_PROCEDURE_TRANSPARENT(&core_native_transcoder__STUB) = SG_PROC_NO_SIDE_EFFECT;
14742 sg__rc_cgen9166.d9486[382] = SG_MAKE_STRING("transcoder-codec");
14743 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[382]), &core_transcoder_codec__STUB);
14744 SG_PROCEDURE_NAME(&core_transcoder_codec__STUB) = sg__rc_cgen9166.d9486[382];
14745 SG_PROCEDURE_TRANSPARENT(&core_transcoder_codec__STUB) = SG_PROC_NO_SIDE_EFFECT;
14746 sg__rc_cgen9166.d9486[383] = SG_MAKE_STRING("transcoder-eol-style");
14747 sg__rc_cgen9166.d9486[384] = Sg_Intern(sg__rc_cgen9166.d9486[383]); /* transcoder-eol-style */
14748 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[383]), &core_transcoder_eol_style__STUB);
14749 SG_PROCEDURE_NAME(&core_transcoder_eol_style__STUB) = sg__rc_cgen9166.d9486[383];
14750 SG_PROCEDURE_TRANSPARENT(&core_transcoder_eol_style__STUB) = SG_PROC_NO_SIDE_EFFECT;
14751 sg__rc_cgen9166.d9486[385] = SG_MAKE_STRING("transcoder-error-handling-mode");
14752 sg__rc_cgen9166.d9486[386] = Sg_Intern(sg__rc_cgen9166.d9486[385]); /* transcoder-error-handling-mode */
14753 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[385]), &core_transcoder_error_handling_mode__STUB);
14754 SG_PROCEDURE_NAME(&core_transcoder_error_handling_mode__STUB) = sg__rc_cgen9166.d9486[385];
14755 SG_PROCEDURE_TRANSPARENT(&core_transcoder_error_handling_mode__STUB) = SG_PROC_NO_SIDE_EFFECT;
14756 sg__rc_cgen9166.d9486[387] = SG_MAKE_STRING("bytevector->string");
14757 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[387]), &core_bytevector_TOstring__STUB);
14758 SG_PROCEDURE_NAME(&core_bytevector_TOstring__STUB) = sg__rc_cgen9166.d9486[387];
14759 SG_PROCEDURE_TRANSPARENT(&core_bytevector_TOstring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14760 sg__rc_cgen9166.d9486[388] = SG_MAKE_STRING("string->bytevector");
14761 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[388]), &core_string_TObytevector__STUB);
14762 SG_PROCEDURE_NAME(&core_string_TObytevector__STUB) = sg__rc_cgen9166.d9486[388];
14763 SG_PROCEDURE_TRANSPARENT(&core_string_TObytevector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14764 sg__rc_cgen9166.d9486[389] = SG_MAKE_STRING("eof-object");
14765 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[389]), &core_eof_object__STUB);
14766 SG_PROCEDURE_NAME(&core_eof_object__STUB) = sg__rc_cgen9166.d9486[389];
14767 SG_PROCEDURE_TRANSPARENT(&core_eof_object__STUB) = SG_PROC_NO_SIDE_EFFECT;
14768 sg__rc_cgen9166.d9486[390] = SG_MAKE_STRING("eof-object?");
14769 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[390]), &core_eof_objectP__STUB);
14770 SG_PROCEDURE_NAME(&core_eof_objectP__STUB) = sg__rc_cgen9166.d9486[390];
14771 SG_PROCEDURE_TRANSPARENT(&core_eof_objectP__STUB) = SG_PROC_TRANSPARENT;
14772 sg__rc_cgen9166.d9486[391] = SG_MAKE_STRING("port?");
14773 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[391]), &core_portP__STUB);
14774 SG_PROCEDURE_NAME(&core_portP__STUB) = sg__rc_cgen9166.d9486[391];
14775 SG_PROCEDURE_TRANSPARENT(&core_portP__STUB) = SG_PROC_TRANSPARENT;
14776 sg__rc_cgen9166.d9486[392] = SG_MAKE_STRING("port-transcoder");
14777 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[392]), &core_port_transcoder__STUB);
14778 SG_PROCEDURE_NAME(&core_port_transcoder__STUB) = sg__rc_cgen9166.d9486[392];
14779 SG_PROCEDURE_TRANSPARENT(&core_port_transcoder__STUB) = SG_PROC_NO_SIDE_EFFECT;
14780 sg__rc_cgen9166.d9486[393] = SG_MAKE_STRING("textual-port?");
14781 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[393]), &core_textual_portP__STUB);
14782 SG_PROCEDURE_NAME(&core_textual_portP__STUB) = sg__rc_cgen9166.d9486[393];
14783 SG_PROCEDURE_TRANSPARENT(&core_textual_portP__STUB) = SG_PROC_TRANSPARENT;
14784 sg__rc_cgen9166.d9486[394] = SG_MAKE_STRING("binary-port?");
14785 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[394]), &core_binary_portP__STUB);
14786 SG_PROCEDURE_NAME(&core_binary_portP__STUB) = sg__rc_cgen9166.d9486[394];
14787 SG_PROCEDURE_TRANSPARENT(&core_binary_portP__STUB) = SG_PROC_TRANSPARENT;
14788 sg__rc_cgen9166.d9486[395] = SG_MAKE_STRING("transcoded-port");
14789 sg__rc_cgen9166.d9486[396] = Sg_Intern(sg__rc_cgen9166.d9486[395]); /* transcoded-port */
14790 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[395]), &core_transcoded_port__STUB);
14791 SG_PROCEDURE_NAME(&core_transcoded_port__STUB) = sg__rc_cgen9166.d9486[395];
14792 sg__rc_cgen9166.d9486[397] = SG_MAKE_STRING("port-has-port-position?");
14793 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[397]), &core_port_has_port_positionP__STUB);
14794 SG_PROCEDURE_NAME(&core_port_has_port_positionP__STUB) = sg__rc_cgen9166.d9486[397];
14795 SG_PROCEDURE_TRANSPARENT(&core_port_has_port_positionP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14796 sg__rc_cgen9166.d9486[398] = SG_MAKE_STRING("port-has-set-port-position!?");
14797 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[398]), &core_port_has_set_port_positionXP__STUB);
14798 SG_PROCEDURE_NAME(&core_port_has_set_port_positionXP__STUB) = sg__rc_cgen9166.d9486[398];
14799 SG_PROCEDURE_TRANSPARENT(&core_port_has_set_port_positionXP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14800 sg__rc_cgen9166.d9486[399] = SG_MAKE_STRING("port-position");
14801 sg__rc_cgen9166.d9486[400] = Sg_Intern(sg__rc_cgen9166.d9486[399]); /* port-position */
14802 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[399]), &core_port_position__STUB);
14803 SG_PROCEDURE_NAME(&core_port_position__STUB) = sg__rc_cgen9166.d9486[399];
14804 SG_PROCEDURE_TRANSPARENT(&core_port_position__STUB) = SG_PROC_NO_SIDE_EFFECT;
14805 sg__rc_cgen9166.d9486[401] = SG_MAKE_STRING("set-port-position!");
14806 sg__rc_cgen9166.d9486[402] = Sg_Intern(sg__rc_cgen9166.d9486[401]); /* set-port-position! */
14807 sg__rc_cgen9166.d9486[404] = SG_MAKE_STRING("end");
14808 sg__rc_cgen9166.d9486[403] = Sg_Intern(sg__rc_cgen9166.d9486[404]); /* end */
14809 sg__rc_cgen9166.d9486[406] = SG_MAKE_STRING("current");
14810 sg__rc_cgen9166.d9486[405] = Sg_Intern(sg__rc_cgen9166.d9486[406]); /* current */
14811 sg__rc_cgen9166.d9486[408] = SG_MAKE_STRING("begin");
14812 sg__rc_cgen9166.d9486[407] = Sg_Intern(sg__rc_cgen9166.d9486[408]); /* begin */
14813 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[401]), &core_set_port_positionX__STUB);
14814 SG_PROCEDURE_NAME(&core_set_port_positionX__STUB) = sg__rc_cgen9166.d9486[401];
14815 sg__rc_cgen9166.d9486[409] = SG_MAKE_STRING("close-port");
14816 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[409]), &core_close_port__STUB);
14817 SG_PROCEDURE_NAME(&core_close_port__STUB) = sg__rc_cgen9166.d9486[409];
14818 sg__rc_cgen9166.d9486[410] = SG_MAKE_STRING("input-port?");
14819 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[410]), &core_input_portP__STUB);
14820 SG_PROCEDURE_NAME(&core_input_portP__STUB) = sg__rc_cgen9166.d9486[410];
14821 SG_PROCEDURE_TRANSPARENT(&core_input_portP__STUB) = SG_PROC_TRANSPARENT;
14822 sg__rc_cgen9166.d9486[411] = SG_MAKE_STRING("port-eof?");
14823 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[411]), &core_port_eofP__STUB);
14824 SG_PROCEDURE_NAME(&core_port_eofP__STUB) = sg__rc_cgen9166.d9486[411];
14825 SG_PROCEDURE_TRANSPARENT(&core_port_eofP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14826 sg__rc_cgen9166.d9486[412] = SG_MAKE_STRING("open-file-input-port");
14827 sg__rc_cgen9166.d9486[413] = Sg_Intern(sg__rc_cgen9166.d9486[412]); /* open-file-input-port */
14828 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[412]), &core_open_file_input_port__STUB);
14829 SG_PROCEDURE_NAME(&core_open_file_input_port__STUB) = sg__rc_cgen9166.d9486[412];
14830 sg__rc_cgen9166.d9486[414] = SG_MAKE_STRING("open-bytevector-input-port");
14831 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[414]), &core_open_bytevector_input_port__STUB);
14832 SG_PROCEDURE_NAME(&core_open_bytevector_input_port__STUB) = sg__rc_cgen9166.d9486[414];
14833 sg__rc_cgen9166.d9486[415] = SG_MAKE_STRING("open-string-input-port");
14834 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[415]), &core_open_string_input_port__STUB);
14835 SG_PROCEDURE_NAME(&core_open_string_input_port__STUB) = sg__rc_cgen9166.d9486[415];
14836 sg__rc_cgen9166.d9486[416] = SG_MAKE_STRING("standard-input-port");
14837 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[416]), &core_standard_input_port__STUB);
14838 SG_PROCEDURE_NAME(&core_standard_input_port__STUB) = sg__rc_cgen9166.d9486[416];
14839 sg__rc_cgen9166.d9486[417] = SG_MAKE_STRING("current-input-port");
14840 sg__rc_cgen9166.d9486[418] = Sg_Intern(sg__rc_cgen9166.d9486[417]); /* current-input-port */
14841 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[417]), &core_current_input_port__STUB);
14842 SG_PROCEDURE_NAME(&core_current_input_port__STUB) = sg__rc_cgen9166.d9486[417];
14843 sg__rc_cgen9166.d9486[419] = SG_MAKE_STRING("make-custom-binary-input-port");
14844 sg__rc_cgen9166.d9486[420] = Sg_Intern(sg__rc_cgen9166.d9486[419]); /* make-custom-binary-input-port */
14845 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[419]), &core_make_custom_binary_input_port__STUB);
14846 SG_PROCEDURE_NAME(&core_make_custom_binary_input_port__STUB) = sg__rc_cgen9166.d9486[419];
14847 sg__rc_cgen9166.d9486[421] = SG_MAKE_STRING("make-custom-textual-input-port");
14848 sg__rc_cgen9166.d9486[422] = Sg_Intern(sg__rc_cgen9166.d9486[421]); /* make-custom-textual-input-port */
14849 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[421]), &core_make_custom_textual_input_port__STUB);
14850 SG_PROCEDURE_NAME(&core_make_custom_textual_input_port__STUB) = sg__rc_cgen9166.d9486[421];
14851 sg__rc_cgen9166.d9486[423] = SG_MAKE_STRING("get-u8");
14852 sg__rc_cgen9166.d9486[424] = Sg_Intern(sg__rc_cgen9166.d9486[423]); /* get-u8 */
14853 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[423]), &core_get_u8__STUB);
14854 SG_PROCEDURE_NAME(&core_get_u8__STUB) = sg__rc_cgen9166.d9486[423];
14855 sg__rc_cgen9166.d9486[425] = SG_MAKE_STRING("lookahead-u8");
14856 sg__rc_cgen9166.d9486[426] = Sg_Intern(sg__rc_cgen9166.d9486[425]); /* lookahead-u8 */
14857 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[425]), &core_lookahead_u8__STUB);
14858 SG_PROCEDURE_NAME(&core_lookahead_u8__STUB) = sg__rc_cgen9166.d9486[425];
14859 sg__rc_cgen9166.d9486[427] = SG_MAKE_STRING("get-bytevector-n");
14860 sg__rc_cgen9166.d9486[428] = Sg_Intern(sg__rc_cgen9166.d9486[427]); /* get-bytevector-n */
14861 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[427]), &core_get_bytevector_n__STUB);
14862 SG_PROCEDURE_NAME(&core_get_bytevector_n__STUB) = sg__rc_cgen9166.d9486[427];
14863 sg__rc_cgen9166.d9486[429] = SG_MAKE_STRING("get-bytevector-n!");
14864 sg__rc_cgen9166.d9486[430] = Sg_Intern(sg__rc_cgen9166.d9486[429]); /* get-bytevector-n! */
14865 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[429]), &core_get_bytevector_nX__STUB);
14866 SG_PROCEDURE_NAME(&core_get_bytevector_nX__STUB) = sg__rc_cgen9166.d9486[429];
14867 sg__rc_cgen9166.d9486[431] = SG_MAKE_STRING("get-bytevector-some");
14868 sg__rc_cgen9166.d9486[432] = Sg_Intern(sg__rc_cgen9166.d9486[431]); /* get-bytevector-some */
14869 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[431]), &core_get_bytevector_some__STUB);
14870 SG_PROCEDURE_NAME(&core_get_bytevector_some__STUB) = sg__rc_cgen9166.d9486[431];
14871 sg__rc_cgen9166.d9486[433] = SG_MAKE_STRING("get-bytevector-all");
14872 sg__rc_cgen9166.d9486[434] = Sg_Intern(sg__rc_cgen9166.d9486[433]); /* get-bytevector-all */
14873 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[433]), &core_get_bytevector_all__STUB);
14874 SG_PROCEDURE_NAME(&core_get_bytevector_all__STUB) = sg__rc_cgen9166.d9486[433];
14875 sg__rc_cgen9166.d9486[435] = SG_MAKE_STRING("get-char");
14876 sg__rc_cgen9166.d9486[436] = Sg_Intern(sg__rc_cgen9166.d9486[435]); /* get-char */
14877 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[435]), &core_get_char__STUB);
14878 SG_PROCEDURE_NAME(&core_get_char__STUB) = sg__rc_cgen9166.d9486[435];
14879 sg__rc_cgen9166.d9486[437] = SG_MAKE_STRING("lookahead-char");
14880 sg__rc_cgen9166.d9486[438] = Sg_Intern(sg__rc_cgen9166.d9486[437]); /* lookahead-char */
14881 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[437]), &core_lookahead_char__STUB);
14882 SG_PROCEDURE_NAME(&core_lookahead_char__STUB) = sg__rc_cgen9166.d9486[437];
14883 sg__rc_cgen9166.d9486[439] = SG_MAKE_STRING("get-string-n");
14884 sg__rc_cgen9166.d9486[440] = Sg_Intern(sg__rc_cgen9166.d9486[439]); /* get-string-n */
14885 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[439]), &core_get_string_n__STUB);
14886 SG_PROCEDURE_NAME(&core_get_string_n__STUB) = sg__rc_cgen9166.d9486[439];
14887 sg__rc_cgen9166.d9486[441] = SG_MAKE_STRING("get-string-n!");
14888 sg__rc_cgen9166.d9486[442] = Sg_Intern(sg__rc_cgen9166.d9486[441]); /* get-string-n! */
14889 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[441]), &core_get_string_nX__STUB);
14890 SG_PROCEDURE_NAME(&core_get_string_nX__STUB) = sg__rc_cgen9166.d9486[441];
14891 sg__rc_cgen9166.d9486[443] = SG_MAKE_STRING("get-string-all");
14892 sg__rc_cgen9166.d9486[444] = Sg_Intern(sg__rc_cgen9166.d9486[443]); /* get-string-all */
14893 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[443]), &core_get_string_all__STUB);
14894 SG_PROCEDURE_NAME(&core_get_string_all__STUB) = sg__rc_cgen9166.d9486[443];
14895 sg__rc_cgen9166.d9486[445] = SG_MAKE_STRING("get-line");
14896 sg__rc_cgen9166.d9486[446] = Sg_Intern(sg__rc_cgen9166.d9486[445]); /* get-line */
14897 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[445]), &core_get_line__STUB);
14898 SG_PROCEDURE_NAME(&core_get_line__STUB) = sg__rc_cgen9166.d9486[445];
14899 sg__rc_cgen9166.d9486[447] = SG_MAKE_STRING("get-datum");
14900 sg__rc_cgen9166.d9486[449] = SG_MAKE_STRING("get-dutum");
14901 sg__rc_cgen9166.d9486[448] = Sg_Intern(sg__rc_cgen9166.d9486[449]); /* get-dutum */
14902 sg__rc_cgen9166.d9486[450] = Sg_Intern(sg__rc_cgen9166.d9486[447]); /* get-datum */
14903 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[447]), &core_get_datum__STUB);
14904 SG_PROCEDURE_NAME(&core_get_datum__STUB) = sg__rc_cgen9166.d9486[447];
14905 sg__rc_cgen9166.d9486[451] = SG_MAKE_STRING("output-port?");
14906 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[451]), &core_output_portP__STUB);
14907 SG_PROCEDURE_NAME(&core_output_portP__STUB) = sg__rc_cgen9166.d9486[451];
14908 SG_PROCEDURE_TRANSPARENT(&core_output_portP__STUB) = SG_PROC_TRANSPARENT;
14909 sg__rc_cgen9166.d9486[452] = SG_MAKE_STRING("flush-output-port");
14910 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[452]), &core_flush_output_port__STUB);
14911 SG_PROCEDURE_NAME(&core_flush_output_port__STUB) = sg__rc_cgen9166.d9486[452];
14912 sg__rc_cgen9166.d9486[453] = SG_MAKE_STRING("output-port-buffer-mode");
14913 sg__rc_cgen9166.d9486[454] = Sg_Intern(sg__rc_cgen9166.d9486[453]); /* output-port-buffer-mode */
14914 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[453]), &core_output_port_buffer_mode__STUB);
14915 SG_PROCEDURE_NAME(&core_output_port_buffer_mode__STUB) = sg__rc_cgen9166.d9486[453];
14916 sg__rc_cgen9166.d9486[456] = SG_MAKE_STRING("members");
14917 sg__rc_cgen9166.d9486[455] = Sg_Intern(sg__rc_cgen9166.d9486[456]); /* members */
14918 sg__rc_cgen9166.d9486[458] = SG_MAKE_STRING("open-file-output-port");
14919 sg__rc_cgen9166.d9486[457] = Sg_Intern(sg__rc_cgen9166.d9486[458]); /* open-file-output-port */
14920 sg__rc_cgen9166.d9486[460] = SG_MAKE_STRING("no-create");
14921 sg__rc_cgen9166.d9486[459] = Sg_Intern(sg__rc_cgen9166.d9486[460]); /* no-create */
14922 sg__rc_cgen9166.d9486[462] = SG_MAKE_STRING("no-truncate");
14923 sg__rc_cgen9166.d9486[461] = Sg_Intern(sg__rc_cgen9166.d9486[462]); /* no-truncate */
14924 sg__rc_cgen9166.d9486[464] = SG_MAKE_STRING("no-fail");
14925 sg__rc_cgen9166.d9486[463] = Sg_Intern(sg__rc_cgen9166.d9486[464]); /* no-fail */
14926 sg__rc_cgen9166.d9486[465] = Sg_Intern(sg__rc_cgen9166.d9486[161]); /* append */
14927 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[458]), &core_open_file_output_port__STUB);
14928 SG_PROCEDURE_NAME(&core_open_file_output_port__STUB) = sg__rc_cgen9166.d9486[458];
14929 sg__rc_cgen9166.d9486[466] = SG_MAKE_STRING("standard-output-port");
14930 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[466]), &core_standard_output_port__STUB);
14931 SG_PROCEDURE_NAME(&core_standard_output_port__STUB) = sg__rc_cgen9166.d9486[466];
14932 sg__rc_cgen9166.d9486[467] = SG_MAKE_STRING("standard-error-port");
14933 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[467]), &core_standard_error_port__STUB);
14934 SG_PROCEDURE_NAME(&core_standard_error_port__STUB) = sg__rc_cgen9166.d9486[467];
14935 sg__rc_cgen9166.d9486[468] = SG_MAKE_STRING("current-output-port");
14936 sg__rc_cgen9166.d9486[469] = Sg_Intern(sg__rc_cgen9166.d9486[468]); /* current-output-port */
14937 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[468]), &core_current_output_port__STUB);
14938 SG_PROCEDURE_NAME(&core_current_output_port__STUB) = sg__rc_cgen9166.d9486[468];
14939 sg__rc_cgen9166.d9486[470] = SG_MAKE_STRING("current-error-port");
14940 sg__rc_cgen9166.d9486[471] = Sg_Intern(sg__rc_cgen9166.d9486[470]); /* current-error-port */
14941 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[470]), &core_current_error_port__STUB);
14942 SG_PROCEDURE_NAME(&core_current_error_port__STUB) = sg__rc_cgen9166.d9486[470];
14943 sg__rc_cgen9166.d9486[472] = SG_MAKE_STRING("make-custom-binary-output-port");
14944 sg__rc_cgen9166.d9486[473] = Sg_Intern(sg__rc_cgen9166.d9486[472]); /* make-custom-binary-output-port */
14945 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[472]), &core_make_custom_binary_output_port__STUB);
14946 SG_PROCEDURE_NAME(&core_make_custom_binary_output_port__STUB) = sg__rc_cgen9166.d9486[472];
14947 sg__rc_cgen9166.d9486[474] = SG_MAKE_STRING("make-custom-textual-output-port");
14948 sg__rc_cgen9166.d9486[475] = Sg_Intern(sg__rc_cgen9166.d9486[474]); /* make-custom-textual-output-port */
14949 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[474]), &core_make_custom_textual_output_port__STUB);
14950 SG_PROCEDURE_NAME(&core_make_custom_textual_output_port__STUB) = sg__rc_cgen9166.d9486[474];
14951 sg__rc_cgen9166.d9486[476] = SG_MAKE_STRING("put-u8");
14952 sg__rc_cgen9166.d9486[477] = Sg_Intern(sg__rc_cgen9166.d9486[476]); /* put-u8 */
14953 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[476]), &core_put_u8__STUB);
14954 SG_PROCEDURE_NAME(&core_put_u8__STUB) = sg__rc_cgen9166.d9486[476];
14955 sg__rc_cgen9166.d9486[478] = SG_MAKE_STRING("put-bytevector");
14956 sg__rc_cgen9166.d9486[479] = Sg_Intern(sg__rc_cgen9166.d9486[478]); /* put-bytevector */
14957 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[478]), &core_put_bytevector__STUB);
14958 SG_PROCEDURE_NAME(&core_put_bytevector__STUB) = sg__rc_cgen9166.d9486[478];
14959 sg__rc_cgen9166.d9486[480] = SG_MAKE_STRING("put-char");
14960 sg__rc_cgen9166.d9486[481] = Sg_Intern(sg__rc_cgen9166.d9486[480]); /* put-char */
14961 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[480]), &core_put_char__STUB);
14962 SG_PROCEDURE_NAME(&core_put_char__STUB) = sg__rc_cgen9166.d9486[480];
14963 sg__rc_cgen9166.d9486[482] = SG_MAKE_STRING("put-string");
14964 sg__rc_cgen9166.d9486[483] = Sg_Intern(sg__rc_cgen9166.d9486[482]); /* put-string */
14965 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[482]), &core_put_string__STUB);
14966 SG_PROCEDURE_NAME(&core_put_string__STUB) = sg__rc_cgen9166.d9486[482];
14967 sg__rc_cgen9166.d9486[484] = SG_MAKE_STRING("put-datum");
14968 sg__rc_cgen9166.d9486[485] = Sg_Intern(sg__rc_cgen9166.d9486[484]); /* put-datum */
14969 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[484]), &core_put_datum__STUB);
14970 SG_PROCEDURE_NAME(&core_put_datum__STUB) = sg__rc_cgen9166.d9486[484];
14971 sg__rc_cgen9166.d9486[486] = SG_MAKE_STRING("open-file-input/output-port");
14972 sg__rc_cgen9166.d9486[487] = Sg_Intern(sg__rc_cgen9166.d9486[486]); /* open-file-input/output-port */
14973 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[486]), &core_open_file_input_2foutput_port__STUB);
14974 SG_PROCEDURE_NAME(&core_open_file_input_2foutput_port__STUB) = sg__rc_cgen9166.d9486[486];
14975 sg__rc_cgen9166.d9486[488] = SG_MAKE_STRING("make-custom-binary-input/output-port");
14976 sg__rc_cgen9166.d9486[489] = Sg_Intern(sg__rc_cgen9166.d9486[488]); /* make-custom-binary-input/output-port */
14977 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[488]), &core_make_custom_binary_input_2foutput_port__STUB);
14978 SG_PROCEDURE_NAME(&core_make_custom_binary_input_2foutput_port__STUB) = sg__rc_cgen9166.d9486[488];
14979 sg__rc_cgen9166.d9486[490] = SG_MAKE_STRING("make-custom-textual-input/output-port");
14980 sg__rc_cgen9166.d9486[491] = Sg_Intern(sg__rc_cgen9166.d9486[490]); /* make-custom-textual-input/output-port */
14981 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[490]), &core_make_custom_textual_input_2foutput_port__STUB);
14982 SG_PROCEDURE_NAME(&core_make_custom_textual_input_2foutput_port__STUB) = sg__rc_cgen9166.d9486[490];
14983 sg__rc_cgen9166.d9486[492] = SG_MAKE_STRING("close-input-port");
14984 sg__rc_cgen9166.d9486[493] = Sg_Intern(sg__rc_cgen9166.d9486[492]); /* close-input-port */
14985 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[492]), &core_close_input_port__STUB);
14986 SG_PROCEDURE_NAME(&core_close_input_port__STUB) = sg__rc_cgen9166.d9486[492];
14987 sg__rc_cgen9166.d9486[494] = SG_MAKE_STRING("close-output-port");
14988 sg__rc_cgen9166.d9486[495] = Sg_Intern(sg__rc_cgen9166.d9486[494]); /* close-output-port */
14989 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[494]), &core_close_output_port__STUB);
14990 SG_PROCEDURE_NAME(&core_close_output_port__STUB) = sg__rc_cgen9166.d9486[494];
14991 sg__rc_cgen9166.d9486[496] = SG_MAKE_STRING("read-char");
14992 sg__rc_cgen9166.d9486[497] = Sg_Intern(sg__rc_cgen9166.d9486[496]); /* read-char */
14993 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[496]), &core_read_char__STUB);
14994 SG_PROCEDURE_NAME(&core_read_char__STUB) = sg__rc_cgen9166.d9486[496];
14995 sg__rc_cgen9166.d9486[498] = SG_MAKE_STRING("peek-char");
14996 sg__rc_cgen9166.d9486[499] = Sg_Intern(sg__rc_cgen9166.d9486[498]); /* peek-char */
14997 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[498]), &core_peek_char__STUB);
14998 SG_PROCEDURE_NAME(&core_peek_char__STUB) = sg__rc_cgen9166.d9486[498];
14999 sg__rc_cgen9166.d9486[501] = SG_MAKE_STRING("source-info?");
15000 sg__rc_cgen9166.d9486[500] = Sg_MakeKeyword(SG_STRING(sg__rc_cgen9166.d9486[501])); /* source-info? */
15001 sg__rc_cgen9166.d9486[503] = SG_MAKE_STRING("read-shared?");
15002 sg__rc_cgen9166.d9486[502] = Sg_MakeKeyword(SG_STRING(sg__rc_cgen9166.d9486[503])); /* read-shared? */
15003 sg__rc_cgen9166.d9486[504] = SG_MAKE_STRING("read");
15004 sg__rc_cgen9166.d9486[505] = Sg_Intern(sg__rc_cgen9166.d9486[504]); /* read */
15005 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[504]), &core_read__STUB);
15006 SG_PROCEDURE_NAME(&core_read__STUB) = sg__rc_cgen9166.d9486[504];
15007 sg__rc_cgen9166.d9486[506] = SG_MAKE_STRING("write-char");
15008 sg__rc_cgen9166.d9486[507] = Sg_Intern(sg__rc_cgen9166.d9486[506]); /* write-char */
15009 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[506]), &core_write_char__STUB);
15010 SG_PROCEDURE_NAME(&core_write_char__STUB) = sg__rc_cgen9166.d9486[506];
15011 sg__rc_cgen9166.d9486[508] = SG_MAKE_STRING("newline");
15012 sg__rc_cgen9166.d9486[509] = Sg_Intern(sg__rc_cgen9166.d9486[508]); /* newline */
15013 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[508]), &core_newline__STUB);
15014 SG_PROCEDURE_NAME(&core_newline__STUB) = sg__rc_cgen9166.d9486[508];
15015 sg__rc_cgen9166.d9486[510] = SG_MAKE_STRING("display");
15016 sg__rc_cgen9166.d9486[511] = Sg_Intern(sg__rc_cgen9166.d9486[510]); /* display */
15017 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[510]), &core_display__STUB);
15018 SG_PROCEDURE_NAME(&core_display__STUB) = sg__rc_cgen9166.d9486[510];
15019 sg__rc_cgen9166.d9486[512] = SG_MAKE_STRING("write");
15020 sg__rc_cgen9166.d9486[513] = Sg_Intern(sg__rc_cgen9166.d9486[512]); /* write */
15021 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[512]), &core_write__STUB);
15022 SG_PROCEDURE_NAME(&core_write__STUB) = sg__rc_cgen9166.d9486[512];
15023 sg__rc_cgen9166.d9486[514] = SG_MAKE_STRING("file-exists?");
15024 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[514]), &core_file_existsP__STUB);
15025 SG_PROCEDURE_NAME(&core_file_existsP__STUB) = sg__rc_cgen9166.d9486[514];
15026 SG_PROCEDURE_TRANSPARENT(&core_file_existsP__STUB) = SG_PROC_NO_SIDE_EFFECT;
15027 sg__rc_cgen9166.d9486[515] = SG_MAKE_STRING("delete-file");
15028 sg__rc_cgen9166.d9486[516] = Sg_Intern(sg__rc_cgen9166.d9486[515]); /* delete-file */
15029 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[515]), &core_delete_file__STUB);
15030 SG_PROCEDURE_NAME(&core_delete_file__STUB) = sg__rc_cgen9166.d9486[515];
15031 sg__rc_cgen9166.d9486[517] = SG_MAKE_STRING("exit");
15032 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[517]), &core_exit__STUB);
15033 SG_PROCEDURE_NAME(&core_exit__STUB) = sg__rc_cgen9166.d9486[517];
15034 sg__rc_cgen9166.d9486[518] = SG_MAKE_STRING("bitwise-not");
15035 sg__rc_cgen9166.d9486[519] = Sg_Intern(sg__rc_cgen9166.d9486[518]); /* bitwise-not */
15036 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[518]), &core_bitwise_not__STUB);
15037 SG_PROCEDURE_NAME(&core_bitwise_not__STUB) = sg__rc_cgen9166.d9486[518];
15038 SG_PROCEDURE_TRANSPARENT(&core_bitwise_not__STUB) = SG_PROC_TRANSPARENT;
15039 sg__rc_cgen9166.d9486[520] = SG_MAKE_STRING("bitwise-and");
15040 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[520]), &core_bitwise_and__STUB);
15041 SG_PROCEDURE_NAME(&core_bitwise_and__STUB) = sg__rc_cgen9166.d9486[520];
15042 SG_PROCEDURE_TRANSPARENT(&core_bitwise_and__STUB) = SG_PROC_TRANSPARENT;
15043 sg__rc_cgen9166.d9486[521] = SG_MAKE_STRING("bitwise-ior");
15044 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[521]), &core_bitwise_ior__STUB);
15045 SG_PROCEDURE_NAME(&core_bitwise_ior__STUB) = sg__rc_cgen9166.d9486[521];
15046 SG_PROCEDURE_TRANSPARENT(&core_bitwise_ior__STUB) = SG_PROC_TRANSPARENT;
15047 sg__rc_cgen9166.d9486[522] = SG_MAKE_STRING("bitwise-xor");
15048 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[522]), &core_bitwise_xor__STUB);
15049 SG_PROCEDURE_NAME(&core_bitwise_xor__STUB) = sg__rc_cgen9166.d9486[522];
15050 SG_PROCEDURE_TRANSPARENT(&core_bitwise_xor__STUB) = SG_PROC_TRANSPARENT;
15051 sg__rc_cgen9166.d9486[523] = SG_MAKE_STRING("bitwise-if");
15052 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[523]), &core_bitwise_if__STUB);
15053 SG_PROCEDURE_NAME(&core_bitwise_if__STUB) = sg__rc_cgen9166.d9486[523];
15054 SG_PROCEDURE_TRANSPARENT(&core_bitwise_if__STUB) = SG_PROC_TRANSPARENT;
15055 sg__rc_cgen9166.d9486[524] = SG_MAKE_STRING("bitwise-bit-count");
15056 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[524]), &core_bitwise_bit_count__STUB);
15057 SG_PROCEDURE_NAME(&core_bitwise_bit_count__STUB) = sg__rc_cgen9166.d9486[524];
15058 SG_PROCEDURE_TRANSPARENT(&core_bitwise_bit_count__STUB) = SG_PROC_TRANSPARENT;
15059 sg__rc_cgen9166.d9486[525] = SG_MAKE_STRING("bitwise-length");
15060 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[525]), &core_bitwise_length__STUB);
15061 SG_PROCEDURE_NAME(&core_bitwise_length__STUB) = sg__rc_cgen9166.d9486[525];
15062 SG_PROCEDURE_TRANSPARENT(&core_bitwise_length__STUB) = SG_PROC_TRANSPARENT;
15063 sg__rc_cgen9166.d9486[526] = SG_MAKE_STRING("bitwise-first-bit-set");
15064 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[526]), &core_bitwise_first_bit_set__STUB);
15065 SG_PROCEDURE_NAME(&core_bitwise_first_bit_set__STUB) = sg__rc_cgen9166.d9486[526];
15066 SG_PROCEDURE_TRANSPARENT(&core_bitwise_first_bit_set__STUB) = SG_PROC_TRANSPARENT;
15067 sg__rc_cgen9166.d9486[527] = SG_MAKE_STRING("bitwise-bit-set?");
15068 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[527]), &core_bitwise_bit_setP__STUB);
15069 SG_PROCEDURE_NAME(&core_bitwise_bit_setP__STUB) = sg__rc_cgen9166.d9486[527];
15070 SG_PROCEDURE_TRANSPARENT(&core_bitwise_bit_setP__STUB) = SG_PROC_TRANSPARENT;
15071 sg__rc_cgen9166.d9486[528] = SG_MAKE_STRING("bitwise-copy-bit");
15072 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[528]), &core_bitwise_copy_bit__STUB);
15073 SG_PROCEDURE_NAME(&core_bitwise_copy_bit__STUB) = sg__rc_cgen9166.d9486[528];
15074 SG_PROCEDURE_TRANSPARENT(&core_bitwise_copy_bit__STUB) = SG_PROC_TRANSPARENT;
15075 sg__rc_cgen9166.d9486[529] = SG_MAKE_STRING("bitwise-bit-field");
15076 sg__rc_cgen9166.d9486[530] = Sg_Intern(sg__rc_cgen9166.d9486[529]); /* bitwise-bit-field */
15077 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[529]), &core_bitwise_bit_field__STUB);
15078 SG_PROCEDURE_NAME(&core_bitwise_bit_field__STUB) = sg__rc_cgen9166.d9486[529];
15079 SG_PROCEDURE_TRANSPARENT(&core_bitwise_bit_field__STUB) = SG_PROC_TRANSPARENT;
15080 sg__rc_cgen9166.d9486[531] = SG_MAKE_STRING("bitwise-copy-bit-field");
15081 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[531]), &core_bitwise_copy_bit_field__STUB);
15082 SG_PROCEDURE_NAME(&core_bitwise_copy_bit_field__STUB) = sg__rc_cgen9166.d9486[531];
15083 SG_PROCEDURE_TRANSPARENT(&core_bitwise_copy_bit_field__STUB) = SG_PROC_TRANSPARENT;
15084 sg__rc_cgen9166.d9486[532] = SG_MAKE_STRING("bitwise-arithmetic-shift");
15085 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[532]), &core_bitwise_arithmetic_shift__STUB);
15086 SG_PROCEDURE_NAME(&core_bitwise_arithmetic_shift__STUB) = sg__rc_cgen9166.d9486[532];
15087 SG_PROCEDURE_TRANSPARENT(&core_bitwise_arithmetic_shift__STUB) = SG_PROC_TRANSPARENT;
15088 sg__rc_cgen9166.d9486[533] = SG_MAKE_STRING("bitwise-arithmetic-shift-left");
15089 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[533]), &core_bitwise_arithmetic_shift_left__STUB);
15090 SG_PROCEDURE_NAME(&core_bitwise_arithmetic_shift_left__STUB) = sg__rc_cgen9166.d9486[533];
15091 SG_PROCEDURE_TRANSPARENT(&core_bitwise_arithmetic_shift_left__STUB) = SG_PROC_TRANSPARENT;
15092 sg__rc_cgen9166.d9486[534] = SG_MAKE_STRING("bitwise-arithmetic-shift-right");
15093 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[534]), &core_bitwise_arithmetic_shift_right__STUB);
15094 SG_PROCEDURE_NAME(&core_bitwise_arithmetic_shift_right__STUB) = sg__rc_cgen9166.d9486[534];
15095 SG_PROCEDURE_TRANSPARENT(&core_bitwise_arithmetic_shift_right__STUB) = SG_PROC_TRANSPARENT;
15096 sg__rc_cgen9166.d9486[535] = SG_MAKE_STRING("identifier?");
15097 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[535]), &core_identifierP__STUB);
15098 SG_PROCEDURE_NAME(&core_identifierP__STUB) = sg__rc_cgen9166.d9486[535];
15099 SG_PROCEDURE_TRANSPARENT(&core_identifierP__STUB) = SG_PROC_TRANSPARENT;
15100 sg__rc_cgen9166.d9486[537] = SG_MAKE_STRING("make-hashtable");
15101 sg__rc_cgen9166.d9486[536] = Sg_Intern(sg__rc_cgen9166.d9486[537]); /* make-hashtable */
15102 sg__rc_cgen9166.d9486[539] = SG_MAKE_STRING("both");
15103 sg__rc_cgen9166.d9486[538] = Sg_Intern(sg__rc_cgen9166.d9486[539]); /* both */
15104 sg__rc_cgen9166.d9486[541] = SG_MAKE_STRING("value");
15105 sg__rc_cgen9166.d9486[540] = Sg_Intern(sg__rc_cgen9166.d9486[541]); /* value */
15106 sg__rc_cgen9166.d9486[543] = SG_MAKE_STRING("key");
15107 sg__rc_cgen9166.d9486[542] = Sg_Intern(sg__rc_cgen9166.d9486[543]); /* key */
15108 sg__rc_cgen9166.d9486[544] = SG_MAKE_STRING("make-eq-hashtable");
15109 sg__rc_cgen9166.d9486[545] = Sg_Intern(sg__rc_cgen9166.d9486[544]); /* make-eq-hashtable */
15110 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[544]), &core_make_eq_hashtable__STUB);
15111 SG_PROCEDURE_NAME(&core_make_eq_hashtable__STUB) = sg__rc_cgen9166.d9486[544];
15112 SG_PROCEDURE_TRANSPARENT(&core_make_eq_hashtable__STUB) = SG_PROC_NO_SIDE_EFFECT;
15113 sg__rc_cgen9166.d9486[546] = SG_MAKE_STRING("make-eqv-hashtable");
15114 sg__rc_cgen9166.d9486[547] = Sg_Intern(sg__rc_cgen9166.d9486[546]); /* make-eqv-hashtable */
15115 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[546]), &core_make_eqv_hashtable__STUB);
15116 SG_PROCEDURE_NAME(&core_make_eqv_hashtable__STUB) = sg__rc_cgen9166.d9486[546];
15117 SG_PROCEDURE_TRANSPARENT(&core_make_eqv_hashtable__STUB) = SG_PROC_NO_SIDE_EFFECT;
15118 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[537]), &core_make_hashtable__STUB);
15119 SG_PROCEDURE_NAME(&core_make_hashtable__STUB) = sg__rc_cgen9166.d9486[537];
15120 SG_PROCEDURE_TRANSPARENT(&core_make_hashtable__STUB) = SG_PROC_NO_SIDE_EFFECT;
15121 sg__rc_cgen9166.d9486[548] = SG_MAKE_STRING("hashtable?");
15122 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[548]), &core_hashtableP__STUB);
15123 SG_PROCEDURE_NAME(&core_hashtableP__STUB) = sg__rc_cgen9166.d9486[548];
15124 SG_PROCEDURE_TRANSPARENT(&core_hashtableP__STUB) = SG_PROC_TRANSPARENT;
15125 sg__rc_cgen9166.d9486[549] = SG_MAKE_STRING("hashtable-size");
15126 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[549]), &core_hashtable_size__STUB);
15127 SG_PROCEDURE_NAME(&core_hashtable_size__STUB) = sg__rc_cgen9166.d9486[549];
15128 sg__rc_cgen9166.d9486[550] = SG_MAKE_STRING("hashtable-ref");
15129 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[550]), &core_hashtable_ref__STUB);
15130 SG_PROCEDURE_NAME(&core_hashtable_ref__STUB) = sg__rc_cgen9166.d9486[550];
15131 SG_PROCEDURE_TRANSPARENT(&core_hashtable_ref__STUB) = SG_PROC_NO_SIDE_EFFECT;
15132 SG_PROCEDURE_NAME(&core_hashtable_setX__STUB) = sg__rc_cgen9166.d9486[551];
15133 Sg_SetterSet(SG_PROCEDURE(&core_hashtable_ref__STUB), SG_PROCEDURE(&core_hashtable_setX__STUB), TRUE);
15134 sg__rc_cgen9166.d9486[551] = SG_MAKE_STRING("hashtable-set!");
15135 sg__rc_cgen9166.d9486[552] = Sg_Intern(sg__rc_cgen9166.d9486[551]); /* hashtable-set! */
15136 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[551]), &core_hashtable_setX__STUB);
15137 SG_PROCEDURE_NAME(&core_hashtable_setX__STUB) = sg__rc_cgen9166.d9486[551];
15138 sg__rc_cgen9166.d9486[553] = SG_MAKE_STRING("hashtable-delete!");
15139 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[553]), &core_hashtable_deleteX__STUB);
15140 SG_PROCEDURE_NAME(&core_hashtable_deleteX__STUB) = sg__rc_cgen9166.d9486[553];
15141 sg__rc_cgen9166.d9486[554] = SG_MAKE_STRING("hashtable-contains?");
15142 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[554]), &core_hashtable_containsP__STUB);
15143 SG_PROCEDURE_NAME(&core_hashtable_containsP__STUB) = sg__rc_cgen9166.d9486[554];
15144 SG_PROCEDURE_TRANSPARENT(&core_hashtable_containsP__STUB) = SG_PROC_NO_SIDE_EFFECT;
15145 sg__rc_cgen9166.d9486[555] = SG_MAKE_STRING("hashtable-copy");
15146 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[555]), &core_hashtable_copy__STUB);
15147 SG_PROCEDURE_NAME(&core_hashtable_copy__STUB) = sg__rc_cgen9166.d9486[555];
15148 sg__rc_cgen9166.d9486[556] = SG_MAKE_STRING("hashtable-clear!");
15149 sg__rc_cgen9166.d9486[557] = Sg_Intern(sg__rc_cgen9166.d9486[556]); /* hashtable-clear! */
15150 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[556]), &core_hashtable_clearX__STUB);
15151 SG_PROCEDURE_NAME(&core_hashtable_clearX__STUB) = sg__rc_cgen9166.d9486[556];
15152 sg__rc_cgen9166.d9486[558] = SG_MAKE_STRING("hashtable-keys");
15153 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[558]), &core_hashtable_keys__STUB);
15154 SG_PROCEDURE_NAME(&core_hashtable_keys__STUB) = sg__rc_cgen9166.d9486[558];
15155 SG_PROCEDURE_TRANSPARENT(&core_hashtable_keys__STUB) = SG_PROC_NO_SIDE_EFFECT;
15156 sg__rc_cgen9166.d9486[559] = SG_MAKE_STRING("hashtable-entries");
15157 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[559]), &core_hashtable_entries__STUB);
15158 SG_PROCEDURE_NAME(&core_hashtable_entries__STUB) = sg__rc_cgen9166.d9486[559];
15159 SG_PROCEDURE_TRANSPARENT(&core_hashtable_entries__STUB) = SG_PROC_NO_SIDE_EFFECT;
15160 sg__rc_cgen9166.d9486[560] = SG_MAKE_STRING("hashtable-mutable?");
15161 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[560]), &core_hashtable_mutableP__STUB);
15162 SG_PROCEDURE_NAME(&core_hashtable_mutableP__STUB) = sg__rc_cgen9166.d9486[560];
15163 SG_PROCEDURE_TRANSPARENT(&core_hashtable_mutableP__STUB) = SG_PROC_TRANSPARENT;
15164 sg__rc_cgen9166.d9486[561] = SG_MAKE_STRING("string-hash");
15165 sg__rc_cgen9166.d9486[562] = Sg_Intern(sg__rc_cgen9166.d9486[561]); /* string-hash */
15166 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[561]), &core_string_hash__STUB);
15167 SG_PROCEDURE_NAME(&core_string_hash__STUB) = sg__rc_cgen9166.d9486[561];
15168 SG_PROCEDURE_TRANSPARENT(&core_string_hash__STUB) = SG_PROC_NO_SIDE_EFFECT;
15169 sg__rc_cgen9166.d9486[563] = SG_MAKE_STRING("string-ci-hash");
15170 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[563]), &core_string_ci_hash__STUB);
15171 SG_PROCEDURE_NAME(&core_string_ci_hash__STUB) = sg__rc_cgen9166.d9486[563];
15172 SG_PROCEDURE_TRANSPARENT(&core_string_ci_hash__STUB) = SG_PROC_NO_SIDE_EFFECT;
15173 sg__rc_cgen9166.d9486[564] = SG_MAKE_STRING("symbol-hash");
15174 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[564]), &core_symbol_hash__STUB);
15175 SG_PROCEDURE_NAME(&core_symbol_hash__STUB) = sg__rc_cgen9166.d9486[564];
15176 SG_PROCEDURE_TRANSPARENT(&core_symbol_hash__STUB) = SG_PROC_NO_SIDE_EFFECT;
15177 sg__rc_cgen9166.d9486[565] = SG_MAKE_STRING("eval");
15178 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[565]), &core_eval__STUB);
15179 SG_PROCEDURE_NAME(&core_eval__STUB) = sg__rc_cgen9166.d9486[565];
15180 sg__rc_cgen9166.d9486[566] = SG_MAKE_STRING("environment");
15181 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[566]), &core_environment__STUB);
15182 SG_PROCEDURE_NAME(&core_environment__STUB) = sg__rc_cgen9166.d9486[566];
15183 sg__rc_cgen9166.d9486[567] = SG_MAKE_STRING("set-car!");
15184 sg__rc_cgen9166.d9486[569] = SG_MAKE_STRING("set-car");
15185 sg__rc_cgen9166.d9486[568] = Sg_Intern(sg__rc_cgen9166.d9486[569]); /* set-car */
15186 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[567]), &core_set_carX__STUB);
15187 SG_PROCEDURE_NAME(&core_set_carX__STUB) = sg__rc_cgen9166.d9486[567];
15188 sg__rc_cgen9166.d9486[570] = SG_MAKE_STRING("set-cdr!");
15189 sg__rc_cgen9166.d9486[572] = SG_MAKE_STRING("set-cdr");
15190 sg__rc_cgen9166.d9486[571] = Sg_Intern(sg__rc_cgen9166.d9486[572]); /* set-cdr */
15191 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[570]), &core_set_cdrX__STUB);
15192 SG_PROCEDURE_NAME(&core_set_cdrX__STUB) = sg__rc_cgen9166.d9486[570];
15193 sg__rc_cgen9166.d9486[573] = SG_MAKE_STRING("string-set!");
15194 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[573]), &core_string_setX__STUB);
15195 SG_PROCEDURE_NAME(&core_string_setX__STUB) = sg__rc_cgen9166.d9486[573];
15196 sg__rc_cgen9166.d9486[574] = SG_MAKE_STRING("string-fill!");
15197 sg__rc_cgen9166.d9486[575] = Sg_Intern(sg__rc_cgen9166.d9486[573]); /* string-set! */
15198 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[574]), &core_string_fillX__STUB);
15199 SG_PROCEDURE_NAME(&core_string_fillX__STUB) = sg__rc_cgen9166.d9486[574];
15200 sg__rc_cgen9166.d9486[576] = SG_MAKE_STRING("%record?");
15201 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[576]), &core__25recordP__STUB);
15202 SG_PROCEDURE_NAME(&core__25recordP__STUB) = sg__rc_cgen9166.d9486[576];
15203 SG_PROCEDURE_TRANSPARENT(&core__25recordP__STUB) = SG_PROC_TRANSPARENT;
15204 sg__rc_cgen9166.d9486[577] = SG_MAKE_STRING("condition");
15205 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[577]), &core_condition__STUB);
15206 SG_PROCEDURE_NAME(&core_condition__STUB) = sg__rc_cgen9166.d9486[577];
15207 sg__rc_cgen9166.d9486[578] = SG_MAKE_STRING("simple-conditions");
15208 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[578]), &core_simple_conditions__STUB);
15209 SG_PROCEDURE_NAME(&core_simple_conditions__STUB) = sg__rc_cgen9166.d9486[578];
15210 sg__rc_cgen9166.d9486[579] = SG_MAKE_STRING("compound-condition-component");
15211 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[579]), &core_compound_condition_component__STUB);
15212 SG_PROCEDURE_NAME(&core_compound_condition_component__STUB) = sg__rc_cgen9166.d9486[579];
15213 sg__rc_cgen9166.d9486[580] = SG_MAKE_STRING("compound-condition?");
15214 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[580]), &core_compound_conditionP__STUB);
15215 SG_PROCEDURE_NAME(&core_compound_conditionP__STUB) = sg__rc_cgen9166.d9486[580];
15216 SG_PROCEDURE_TRANSPARENT(&core_compound_conditionP__STUB) = SG_PROC_TRANSPARENT;
15217 sg__rc_cgen9166.d9486[581] = SG_MAKE_STRING("simple-condition?");
15218 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[581]), &core_simple_conditionP__STUB);
15219 SG_PROCEDURE_NAME(&core_simple_conditionP__STUB) = sg__rc_cgen9166.d9486[581];
15220 SG_PROCEDURE_TRANSPARENT(&core_simple_conditionP__STUB) = SG_PROC_TRANSPARENT;
15221 sg__rc_cgen9166.d9486[582] = SG_MAKE_STRING("condition?");
15222 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[582]), &core_conditionP__STUB);
15223 SG_PROCEDURE_NAME(&core_conditionP__STUB) = sg__rc_cgen9166.d9486[582];
15224 SG_PROCEDURE_TRANSPARENT(&core_conditionP__STUB) = SG_PROC_TRANSPARENT;
15225 }
15226