1 /* Generated automatically from libmisc.scm.  DO NOT EDIT */
2 #define LIBGAUCHE_BODY
3 #include <gauche.h>
4 #include <gauche/code.h>
5 
6 #line 36 "libmisc.scm"
7 #include <gauche/vminsn.h>
8 
9 
10 static ScmObj libmischas_setterP(ScmObj*, int, void*);
11 static SCM_DEFINE_SUBR(libmischas_setterP__STUB, 1, 0,SCM_FALSE,libmischas_setterP, NULL, NULL);
12 
13 
14 static ScmObj libmiscundefined(ScmObj*, int, void*);
15 static SCM_DEFINE_SUBRX(libmiscundefined__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmiscundefined, SCM_MAKE_INT(SCM_VM_CONSTU), NULL);
16 
17 
18 static ScmObj libmiscundefinedP(ScmObj*, int, void*);
19 static SCM_DEFINE_SUBRX(libmiscundefinedP__STUB, 1, 0,1, SCM_FALSE,0, libmiscundefinedP, NULL, NULL);
20 
21 
22 static ScmObj libmisc_25uninitialized(ScmObj*, int, void*);
23 static SCM_DEFINE_SUBRX(libmisc_25uninitialized__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmisc_25uninitialized, NULL, NULL);
24 
25 
26 static ScmObj libmiscdebug_label(ScmObj*, int, void*);
27 static SCM_DEFINE_SUBR(libmiscdebug_label__STUB, 1, 0,SCM_FALSE,libmiscdebug_label, NULL, NULL);
28 
29 
30 static ScmObj libmiscforeign_pointer_invalidP(ScmObj*, int, void*);
31 static SCM_DEFINE_SUBRX(libmiscforeign_pointer_invalidP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmiscforeign_pointer_invalidP, NULL, NULL);
32 
33 
34 static ScmObj libmiscforeign_pointer_invalidateX(ScmObj*, int, void*);
35 static SCM_DEFINE_SUBRX(libmiscforeign_pointer_invalidateX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmiscforeign_pointer_invalidateX, NULL, NULL);
36 
37 
38 static ScmObj libmiscforeign_pointer_attributes(ScmObj*, int, void*);
39 static SCM_DEFINE_SUBRX(libmiscforeign_pointer_attributes__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmiscforeign_pointer_attributes, NULL, NULL);
40 
41 
42 static ScmObj libmiscforeign_pointer_attribute_get(ScmObj*, int, void*);
43 static SCM_DEFINE_SUBR(libmiscforeign_pointer_attribute_get__STUB, 2, 2,SCM_FALSE,libmiscforeign_pointer_attribute_get, NULL, NULL);
44 
45 
46 static ScmObj libmiscforeign_pointer_attribute_setX(ScmObj*, int, void*);
47 static SCM_DEFINE_SUBR(libmiscforeign_pointer_attribute_setX__STUB, 3, 0,SCM_FALSE,libmiscforeign_pointer_attribute_setX, NULL, NULL);
48 
49 
50 static ScmObj libmisccond_features(ScmObj*, int, void*);
51 static SCM_DEFINE_SUBRX(libmisccond_features__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmisccond_features, NULL, NULL);
52 
53 #if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS)
54 #define SCM_CGEN_CONST /*empty*/
55 #else
56 #define SCM_CGEN_CONST const
57 #endif
58 static SCM_CGEN_CONST struct scm__scRec {
59   ScmString d1561[36];
60 } scm__sc SCM_UNUSED = {
61   {   /* ScmString d1561 */
62       SCM_STRING_CONST_INITIALIZER("has-setter\077", 11, 11),
63       SCM_STRING_CONST_INITIALIZER("proc", 4, 4),
64       SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
65       SCM_STRING_CONST_INITIALIZER("libmisc.scm", 11, 11),
66       SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
67       SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
68       SCM_STRING_CONST_INITIALIZER("undefined", 9, 9),
69       SCM_STRING_CONST_INITIALIZER("undefined\077", 10, 10),
70       SCM_STRING_CONST_INITIALIZER("obj", 3, 3),
71       SCM_STRING_CONST_INITIALIZER("warn", 4, 4),
72       SCM_STRING_CONST_INITIALIZER("GAUCHE_SUPPRESS_WARNING", 23, 23),
73       SCM_STRING_CONST_INITIALIZER("sys-getenv", 10, 10),
74       SCM_STRING_CONST_INITIALIZER("format", 6, 6),
75       SCM_STRING_CONST_INITIALIZER("WARNING: ", 9, 9),
76       SCM_STRING_CONST_INITIALIZER("string-append", 13, 13),
77       SCM_STRING_CONST_INITIALIZER("flush", 5, 5),
78       SCM_STRING_CONST_INITIALIZER("fmt", 3, 3),
79       SCM_STRING_CONST_INITIALIZER("args", 4, 4),
80       SCM_STRING_CONST_INITIALIZER("unused-args", 11, 11),
81       SCM_STRING_CONST_INITIALIZER("%uninitialized", 14, 14),
82       SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
83       SCM_STRING_CONST_INITIALIZER("debug-label", 11, 11),
84       SCM_STRING_CONST_INITIALIZER("foreign-pointer-invalid\077", 24, 24),
85       SCM_STRING_CONST_INITIALIZER("fp", 2, 2),
86       SCM_STRING_CONST_INITIALIZER("foreign-pointer-invalidate!", 27, 27),
87       SCM_STRING_CONST_INITIALIZER("foreign-pointer-attributes", 26, 26),
88       SCM_STRING_CONST_INITIALIZER("foreign-pointer-attribute-get", 29, 29),
89       SCM_STRING_CONST_INITIALIZER("key", 3, 3),
90       SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
91       SCM_STRING_CONST_INITIALIZER("fallback", 8, 8),
92       SCM_STRING_CONST_INITIALIZER("foreign-pointer-attribute-set!", 30, 30),
93       SCM_STRING_CONST_INITIALIZER("value", 5, 5),
94       SCM_STRING_CONST_INITIALIZER("foreign-pointer-attribute-set", 29, 29),
95       SCM_STRING_CONST_INITIALIZER("%toplevel", 9, 9),
96       SCM_STRING_CONST_INITIALIZER("cond-features", 13, 13),
97       SCM_STRING_CONST_INITIALIZER("SLIB_DIR", 8, 8),
98   },
99 };
100 static struct scm__rcRec {
101   ScmCompiledCode d1565[2];
102   ScmWord d1564[33];
103   ScmPair d1563[95] SCM_ALIGN_PAIR;
104   ScmObj d1562[52];
105 } scm__rc SCM_UNUSED = {
106   {   /* ScmCompiledCode d1565 */
107         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* warn */
108             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[0])), 28,
109             20, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[30]),
110             SCM_FALSE, SCM_FALSE),
111         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
112             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[28])), 5,
113             0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
114             SCM_FALSE, SCM_FALSE),
115   },
116   {   /* ScmWord d1564 */
117     /* warn */
118     0x0000100e    /*   0 (PRE-CALL 1) */,
119     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[0]) + 6),
120     0x00000006    /*   2 (CONST-PUSH) */,
121     SCM_WORD(SCM_OBJ(&scm__sc.d1561[10])) /* "GAUCHE_SUPPRESS_WARNING" */,
122     0x0000105f    /*   4 (GREF-CALL 1) */,
123     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#sys-getenv.51e43a40> */,
124     0x0000001e    /*   6 (BF) */,
125     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[0]) + 9),
126     0x0000000c    /*   8 (CONSTU-RET) */,
127     0x0000000e    /*   9 (PRE-CALL 0) */,
128     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[0]) + 24),
129     0x0000005e    /*  11 (GREF-PUSH) */,
130     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#format.51e439c0> */,
131     0x000000e0    /*  13 (CURERR) */,
132     0x0000200f    /*  14 (PUSH-PRE-CALL 2) */,
133     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[0]) + 21),
134     0x00000006    /*  16 (CONST-PUSH) */,
135     SCM_WORD(SCM_OBJ(&scm__sc.d1561[13])) /* "WARNING: " */,
136     0x00000049    /*  18 (LREF1-PUSH) */,
137     0x0000205f    /*  19 (GREF-CALL 2) */,
138     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-append.51e43960> */,
139     0x0000000d    /*  21 (PUSH) */,
140     0x0000003d    /*  22 (LREF0) */,
141     0x00004095    /*  23 (TAIL-APPLY 4) */,
142     0x000000e0    /*  24 (CURERR) */,
143     0x00001063    /*  25 (PUSH-GREF-TAIL-CALL 1) */,
144     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#flush.51e438c0> */,
145     0x00000014    /*  27 (RET) */,
146     /* %toplevel */
147     0x0000005d    /*   0 (GREF) */,
148     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#foreign-pointer-attribute-set!.51934580> */,
149     0x00000015    /*   2 (DEFINE 0) */,
150     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#foreign-pointer-attribute-set.51934600> */,
151     0x00000014    /*   4 (RET) */,
152   },
153   {   /* ScmPair d1563 */
154        { SCM_NIL, SCM_NIL },
155        { SCM_UNDEFINED, SCM_NIL},
156        { SCM_MAKE_INT(44U), SCM_NIL},
157        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[2])},
158        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[3])},
159        { SCM_UNDEFINED, SCM_NIL},
160        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[5])},
161        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[6])},
162        { SCM_OBJ(&scm__rc.d1563[7]), SCM_NIL},
163        { SCM_OBJ(&scm__rc.d1563[4]), SCM_OBJ(&scm__rc.d1563[8])},
164        { SCM_UNDEFINED, SCM_NIL},
165        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[10])},
166        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[11])},
167        { SCM_OBJ(&scm__rc.d1563[12]), SCM_NIL},
168        { SCM_UNDEFINED, SCM_NIL},
169        { SCM_MAKE_INT(47U), SCM_NIL},
170        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[15])},
171        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[16])},
172        { SCM_UNDEFINED, SCM_NIL},
173        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[18])},
174        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[19])},
175        { SCM_OBJ(&scm__rc.d1563[20]), SCM_NIL},
176        { SCM_OBJ(&scm__rc.d1563[17]), SCM_OBJ(&scm__rc.d1563[21])},
177        { SCM_UNDEFINED, SCM_UNDEFINED},
178        { SCM_MAKE_INT(49U), SCM_NIL},
179        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[24])},
180        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[25])},
181        { SCM_UNDEFINED, SCM_NIL},
182        { SCM_OBJ(&scm__rc.d1563[27]), SCM_NIL},
183        { SCM_OBJ(&scm__rc.d1563[26]), SCM_OBJ(&scm__rc.d1563[28])},
184        { SCM_UNDEFINED, SCM_NIL},
185        { SCM_UNDEFINED, SCM_NIL},
186        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[31])},
187        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[32])},
188        { SCM_OBJ(&scm__rc.d1563[33]), SCM_NIL},
189        { SCM_MAKE_INT(61U), SCM_NIL},
190        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[35])},
191        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[36])},
192        { SCM_UNDEFINED, SCM_NIL},
193        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[38])},
194        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[39])},
195        { SCM_OBJ(&scm__rc.d1563[40]), SCM_NIL},
196        { SCM_OBJ(&scm__rc.d1563[37]), SCM_OBJ(&scm__rc.d1563[41])},
197        { SCM_UNDEFINED, SCM_NIL},
198        { SCM_MAKE_INT(67U), SCM_NIL},
199        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[44])},
200        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[45])},
201        { SCM_UNDEFINED, SCM_NIL},
202        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])},
203        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])},
204        { SCM_OBJ(&scm__rc.d1563[49]), SCM_NIL},
205        { SCM_OBJ(&scm__rc.d1563[46]), SCM_OBJ(&scm__rc.d1563[50])},
206        { SCM_MAKE_INT(70U), SCM_NIL},
207        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[52])},
208        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[53])},
209        { SCM_UNDEFINED, SCM_NIL},
210        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[55])},
211        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[56])},
212        { SCM_OBJ(&scm__rc.d1563[57]), SCM_NIL},
213        { SCM_OBJ(&scm__rc.d1563[54]), SCM_OBJ(&scm__rc.d1563[58])},
214        { SCM_MAKE_INT(73U), SCM_NIL},
215        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[60])},
216        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[61])},
217        { SCM_UNDEFINED, SCM_NIL},
218        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[63])},
219        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[64])},
220        { SCM_OBJ(&scm__rc.d1563[65]), SCM_NIL},
221        { SCM_OBJ(&scm__rc.d1563[62]), SCM_OBJ(&scm__rc.d1563[66])},
222        { SCM_UNDEFINED, SCM_NIL},
223        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[68])},
224        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[69])},
225        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[70])},
226        { SCM_MAKE_INT(76U), SCM_NIL},
227        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[72])},
228        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[73])},
229        { SCM_UNDEFINED, SCM_NIL},
230        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[75])},
231        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[76])},
232        { SCM_OBJ(&scm__rc.d1563[77]), SCM_NIL},
233        { SCM_OBJ(&scm__rc.d1563[74]), SCM_OBJ(&scm__rc.d1563[78])},
234        { SCM_UNDEFINED, SCM_NIL},
235        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[80])},
236        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[81])},
237        { SCM_MAKE_INT(80U), SCM_NIL},
238        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[83])},
239        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[84])},
240        { SCM_UNDEFINED, SCM_NIL},
241        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
242        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[87])},
243        { SCM_OBJ(&scm__rc.d1563[88]), SCM_NIL},
244        { SCM_OBJ(&scm__rc.d1563[85]), SCM_OBJ(&scm__rc.d1563[89])},
245        { SCM_UNDEFINED, SCM_NIL},
246        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[91])},
247        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[92])},
248        { SCM_OBJ(&scm__rc.d1563[93]), SCM_NIL},
249   },
250   {   /* ScmObj d1562 */
251     SCM_UNBOUND,
252     SCM_UNBOUND,
253     SCM_UNBOUND,
254     SCM_UNBOUND,
255     SCM_UNBOUND,
256     SCM_UNBOUND,
257     SCM_UNBOUND,
258     SCM_UNBOUND,
259     SCM_UNBOUND,
260     SCM_UNBOUND,
261     SCM_UNBOUND,
262     SCM_UNBOUND,
263     SCM_UNBOUND,
264     SCM_UNBOUND,
265     SCM_UNBOUND,
266     SCM_UNBOUND,
267     SCM_UNBOUND,
268     SCM_UNBOUND,
269     SCM_UNBOUND,
270     SCM_UNBOUND,
271     SCM_UNBOUND,
272     SCM_UNBOUND,
273     SCM_UNBOUND,
274     SCM_UNBOUND,
275     SCM_UNBOUND,
276     SCM_UNBOUND,
277     SCM_UNBOUND,
278     SCM_UNBOUND,
279     SCM_UNBOUND,
280     SCM_UNBOUND,
281     SCM_UNBOUND,
282     SCM_UNBOUND,
283     SCM_UNBOUND,
284     SCM_UNBOUND,
285     SCM_UNBOUND,
286     SCM_UNBOUND,
287     SCM_UNBOUND,
288     SCM_UNBOUND,
289     SCM_UNBOUND,
290     SCM_UNBOUND,
291     SCM_UNBOUND,
292     SCM_UNBOUND,
293     SCM_UNBOUND,
294     SCM_UNBOUND,
295     SCM_UNBOUND,
296     SCM_UNBOUND,
297     SCM_UNBOUND,
298     SCM_UNBOUND,
299     SCM_UNBOUND,
300     SCM_UNBOUND,
301     SCM_UNBOUND,
302     SCM_UNBOUND,
303   },
304 };
libmischas_setterP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)305 static ScmObj libmischas_setterP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
306 {
307   ScmObj proc_scm;
308   ScmObj proc;
309   ScmObj SCM_SUBRARGS[1];
310   SCM_ENTER_SUBR("has-setter?");
311   for (int SCM_i=0; SCM_i<1; SCM_i++) {
312     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
313   }
314   proc_scm = SCM_SUBRARGS[0];
315   proc = (proc_scm);
316   {
317 {
318 int SCM_RESULT;
319 {SCM_RESULT=(Scm_HasSetter(proc));goto SCM_STUB_RETURN;}
320 goto SCM_STUB_RETURN;
321 SCM_STUB_RETURN:
322 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
323 }
324   }
325 }
326 
libmiscundefined(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)327 static ScmObj libmiscundefined(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
328 {
329   SCM_ENTER_SUBR("undefined");
330   {
331 {
332 ScmObj SCM_RESULT;
333 
334 #line 46 "libmisc.scm"
335 {SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}
336 goto SCM_STUB_RETURN;
337 SCM_STUB_RETURN:
338 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
339 }
340   }
341 }
342 
libmiscundefinedP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)343 static ScmObj libmiscundefinedP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
344 {
345   ScmObj obj_scm;
346   ScmObj obj;
347   ScmObj SCM_SUBRARGS[1];
348   SCM_ENTER_SUBR("undefined?");
349   for (int SCM_i=0; SCM_i<1; SCM_i++) {
350     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
351   }
352   obj_scm = SCM_SUBRARGS[0];
353   obj = (obj_scm);
354   {
355 {
356 int SCM_RESULT;
357 {SCM_RESULT=(SCM_UNDEFINEDP(obj));goto SCM_STUB_RETURN;}
358 goto SCM_STUB_RETURN;
359 SCM_STUB_RETURN:
360 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
361 }
362   }
363 }
364 
libmisc_25uninitialized(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)365 static ScmObj libmisc_25uninitialized(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
366 {
367   SCM_ENTER_SUBR("%uninitialized");
368   {
369 {
370 ScmObj SCM_RESULT;
371 
372 #line 57 "libmisc.scm"
373 {SCM_RESULT=(SCM_UNINITIALIZED);goto SCM_STUB_RETURN;}
374 goto SCM_STUB_RETURN;
375 SCM_STUB_RETURN:
376 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
377 }
378   }
379 }
380 
libmiscdebug_label(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)381 static ScmObj libmiscdebug_label(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
382 {
383   ScmObj obj_scm;
384   ScmObj obj;
385   ScmObj SCM_SUBRARGS[1];
386   SCM_ENTER_SUBR("debug-label");
387   for (int SCM_i=0; SCM_i<1; SCM_i++) {
388     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
389   }
390   obj_scm = SCM_SUBRARGS[0];
391   obj = (obj_scm);
392   {
393 {
394 ScmObj SCM_RESULT;
395 
396 #line 61 "libmisc.scm"
397 {SCM_RESULT=(Scm_Sprintf("@%lx",obj));goto SCM_STUB_RETURN;}
398 goto SCM_STUB_RETURN;
399 SCM_STUB_RETURN:
400 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
401 }
402   }
403 }
404 
libmiscforeign_pointer_invalidP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)405 static ScmObj libmiscforeign_pointer_invalidP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
406 {
407   ScmObj fp_scm;
408   ScmForeignPointer* fp;
409   ScmObj SCM_SUBRARGS[1];
410   SCM_ENTER_SUBR("foreign-pointer-invalid?");
411   for (int SCM_i=0; SCM_i<1; SCM_i++) {
412     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
413   }
414   fp_scm = SCM_SUBRARGS[0];
415   if (!SCM_FOREIGN_POINTER_P(fp_scm)) Scm_Error("foreign pointer required, but got %S", fp_scm);
416   fp = SCM_FOREIGN_POINTER(fp_scm);
417   {
418 {
419 int SCM_RESULT;
420 {SCM_RESULT=(Scm_ForeignPointerInvalidP(fp));goto SCM_STUB_RETURN;}
421 goto SCM_STUB_RETURN;
422 SCM_STUB_RETURN:
423 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
424 }
425   }
426 }
427 
libmiscforeign_pointer_invalidateX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)428 static ScmObj libmiscforeign_pointer_invalidateX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
429 {
430   ScmObj fp_scm;
431   ScmForeignPointer* fp;
432   ScmObj SCM_SUBRARGS[1];
433   SCM_ENTER_SUBR("foreign-pointer-invalidate!");
434   for (int SCM_i=0; SCM_i<1; SCM_i++) {
435     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
436   }
437   fp_scm = SCM_SUBRARGS[0];
438   if (!SCM_FOREIGN_POINTER_P(fp_scm)) Scm_Error("foreign pointer required, but got %S", fp_scm);
439   fp = SCM_FOREIGN_POINTER(fp_scm);
440   {
441 Scm_ForeignPointerInvalidate(fp);
442 goto SCM_STUB_RETURN;
443 SCM_STUB_RETURN:
444 SCM_RETURN(SCM_UNDEFINED);
445   }
446 }
447 
libmiscforeign_pointer_attributes(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)448 static ScmObj libmiscforeign_pointer_attributes(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
449 {
450   ScmObj fp_scm;
451   ScmForeignPointer* fp;
452   ScmObj SCM_SUBRARGS[1];
453   SCM_ENTER_SUBR("foreign-pointer-attributes");
454   for (int SCM_i=0; SCM_i<1; SCM_i++) {
455     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
456   }
457   fp_scm = SCM_SUBRARGS[0];
458   if (!SCM_FOREIGN_POINTER_P(fp_scm)) Scm_Error("foreign pointer required, but got %S", fp_scm);
459   fp = SCM_FOREIGN_POINTER(fp_scm);
460   {
461 {
462 ScmObj SCM_RESULT;
463 {SCM_RESULT=(Scm_ForeignPointerAttr(fp));goto SCM_STUB_RETURN;}
464 goto SCM_STUB_RETURN;
465 SCM_STUB_RETURN:
466 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
467 }
468   }
469 }
470 
libmiscforeign_pointer_attribute_get(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)471 static ScmObj libmiscforeign_pointer_attribute_get(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
472 {
473   ScmObj fp_scm;
474   ScmForeignPointer* fp;
475   ScmObj key_scm;
476   ScmObj key;
477   ScmObj fallback_scm;
478   ScmObj fallback;
479   ScmObj SCM_SUBRARGS[4];
480   SCM_ENTER_SUBR("foreign-pointer-attribute-get");
481   if (SCM_ARGCNT >= 4
482       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
483     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
484   for (int SCM_i=0; SCM_i<4; SCM_i++) {
485     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
486   }
487   fp_scm = SCM_SUBRARGS[0];
488   if (!SCM_FOREIGN_POINTER_P(fp_scm)) Scm_Error("foreign pointer required, but got %S", fp_scm);
489   fp = SCM_FOREIGN_POINTER(fp_scm);
490   key_scm = SCM_SUBRARGS[1];
491   key = (key_scm);
492   if (SCM_ARGCNT > 2+1) {
493     fallback_scm = SCM_SUBRARGS[2];
494   } else {
495     fallback_scm = SCM_UNBOUND;
496   }
497   fallback = (fallback_scm);
498   {
499 {
500 ScmObj SCM_RESULT;
501 {SCM_RESULT=(Scm_ForeignPointerAttrGet(fp,key,fallback));goto SCM_STUB_RETURN;}
502 goto SCM_STUB_RETURN;
503 SCM_STUB_RETURN:
504 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
505 }
506   }
507 }
508 
libmiscforeign_pointer_attribute_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)509 static ScmObj libmiscforeign_pointer_attribute_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
510 {
511   ScmObj fp_scm;
512   ScmForeignPointer* fp;
513   ScmObj key_scm;
514   ScmObj key;
515   ScmObj value_scm;
516   ScmObj value;
517   ScmObj SCM_SUBRARGS[3];
518   SCM_ENTER_SUBR("foreign-pointer-attribute-set!");
519   for (int SCM_i=0; SCM_i<3; SCM_i++) {
520     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
521   }
522   fp_scm = SCM_SUBRARGS[0];
523   if (!SCM_FOREIGN_POINTER_P(fp_scm)) Scm_Error("foreign pointer required, but got %S", fp_scm);
524   fp = SCM_FOREIGN_POINTER(fp_scm);
525   key_scm = SCM_SUBRARGS[1];
526   key = (key_scm);
527   value_scm = SCM_SUBRARGS[2];
528   value = (value_scm);
529   {
530 {
531 ScmObj SCM_RESULT;
532 {SCM_RESULT=(Scm_ForeignPointerAttrSet(fp,key,value));goto SCM_STUB_RETURN;}
533 goto SCM_STUB_RETURN;
534 SCM_STUB_RETURN:
535 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
536 }
537   }
538 }
539 
libmisccond_features(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)540 static ScmObj libmisccond_features(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
541 {
542   SCM_ENTER_SUBR("cond-features");
543   {
544 {
545 ScmObj SCM_RESULT;
546 {SCM_RESULT=(Scm_GetFeatures());goto SCM_STUB_RETURN;}
547 goto SCM_STUB_RETURN;
548 SCM_STUB_RETURN:
549 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
550 }
551   }
552 }
553 
554 static ScmCompiledCode *toplevels[] = {
555   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[1])),
556  NULL /*termination*/
557 };
Scm_Init_libmisc()558 void Scm_Init_libmisc() {
559    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
560    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
561    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
562   scm__rc.d1562[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[0])),TRUE); /* has-setter? */
563   scm__rc.d1562[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[1])),TRUE); /* proc */
564   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1]), scm__rc.d1562[1]);
565   scm__rc.d1562[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2])),TRUE); /* source-info */
566   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[4]), scm__rc.d1562[2]);
567   scm__rc.d1562[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[4])),TRUE); /* bind-info */
568   scm__rc.d1562[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[5])),TRUE); /* gauche */
569   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[5]), scm__rc.d1562[0]);
570   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[6]), scm__rc.d1562[4]);
571   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[7]), scm__rc.d1562[3]);
572   scm__rc.d1562[5] = Scm_MakeExtendedPair(scm__rc.d1562[0], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[9]));
573   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("has-setter?")), SCM_OBJ(&libmischas_setterP__STUB), 0);
574   libmischas_setterP__STUB.common.info = scm__rc.d1562[5];
575   scm__rc.d1562[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[6])),TRUE); /* undefined */
576   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[10]), scm__rc.d1562[6]);
577   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[11]), scm__rc.d1562[4]);
578   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[12]), scm__rc.d1562[3]);
579   scm__rc.d1562[7] = Scm_MakeExtendedPair(scm__rc.d1562[6], SCM_NIL, SCM_OBJ(&scm__rc.d1563[13]));
580   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("undefined")), SCM_OBJ(&libmiscundefined__STUB), SCM_BINDING_INLINABLE);
581   libmiscundefined__STUB.common.info = scm__rc.d1562[7];
582   scm__rc.d1562[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[7])),TRUE); /* undefined? */
583   scm__rc.d1562[9] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[8])),TRUE); /* obj */
584   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[14]), scm__rc.d1562[9]);
585   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[17]), scm__rc.d1562[2]);
586   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[18]), scm__rc.d1562[8]);
587   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[19]), scm__rc.d1562[4]);
588   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[20]), scm__rc.d1562[3]);
589   scm__rc.d1562[10] = Scm_MakeExtendedPair(scm__rc.d1562[8], SCM_OBJ(&scm__rc.d1563[14]), SCM_OBJ(&scm__rc.d1563[22]));
590   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("undefined?")), SCM_OBJ(&libmiscundefinedP__STUB), SCM_BINDING_INLINABLE);
591   libmiscundefinedP__STUB.common.info = scm__rc.d1562[10];
592   scm__rc.d1562[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[9])),TRUE); /* warn */
593   scm__rc.d1562[13] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[11])),TRUE); /* sys-getenv */
594   scm__rc.d1562[14] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[4]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */
595   scm__rc.d1562[12] = Scm_MakeIdentifier(scm__rc.d1562[13], SCM_MODULE(scm__rc.d1562[14]), SCM_NIL); /* gauche#sys-getenv */
596   scm__rc.d1562[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[12])),TRUE); /* format */
597   scm__rc.d1562[15] = Scm_MakeIdentifier(scm__rc.d1562[16], SCM_MODULE(scm__rc.d1562[14]), SCM_NIL); /* gauche#format */
598   scm__rc.d1562[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14])),TRUE); /* string-append */
599   scm__rc.d1562[17] = Scm_MakeIdentifier(scm__rc.d1562[18], SCM_MODULE(scm__rc.d1562[14]), SCM_NIL); /* gauche#string-append */
600   scm__rc.d1562[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[15])),TRUE); /* flush */
601   scm__rc.d1562[19] = Scm_MakeIdentifier(scm__rc.d1562[20], SCM_MODULE(scm__rc.d1562[14]), SCM_NIL); /* gauche#flush */
602   scm__rc.d1562[21] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[16])),TRUE); /* fmt */
603   scm__rc.d1562[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[17])),TRUE); /* args */
604   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[23]), scm__rc.d1562[21]);
605   SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[23]), scm__rc.d1562[22]);
606   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[26]), scm__rc.d1562[2]);
607   scm__rc.d1562[23] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[18])),TRUE); /* unused-args */
608   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[27]), scm__rc.d1562[23]);
609   scm__rc.d1562[24] = Scm_MakeExtendedPair(scm__rc.d1562[11], SCM_OBJ(&scm__rc.d1563[23]), SCM_OBJ(&scm__rc.d1563[29]));
610   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[30]), scm__rc.d1562[24]);
611   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[0]))->name = scm__rc.d1562[11];/* warn */
612   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[0]))[5] = SCM_WORD(scm__rc.d1562[12]);
613   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[0]))[12] = SCM_WORD(scm__rc.d1562[15]);
614   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[0]))[20] = SCM_WORD(scm__rc.d1562[17]);
615   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[0]))[26] = SCM_WORD(scm__rc.d1562[19]);
616   ScmObj G1566 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[0]), NULL);
617 
618   Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[11]) /* warn */, G1566,0);
619 
620    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
621   scm__rc.d1562[25] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[19])),TRUE); /* %uninitialized */
622   scm__rc.d1562[26] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[20])),TRUE); /* gauche.internal */
623   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[31]), scm__rc.d1562[25]);
624   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[32]), scm__rc.d1562[26]);
625   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[33]), scm__rc.d1562[3]);
626   scm__rc.d1562[27] = Scm_MakeExtendedPair(scm__rc.d1562[25], SCM_NIL, SCM_OBJ(&scm__rc.d1563[34]));
627   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%uninitialized")), SCM_OBJ(&libmisc_25uninitialized__STUB), 0);
628   libmisc_25uninitialized__STUB.common.info = scm__rc.d1562[27];
629    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
630   scm__rc.d1562[28] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[21])),TRUE); /* debug-label */
631   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[37]), scm__rc.d1562[2]);
632   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[38]), scm__rc.d1562[28]);
633   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[39]), scm__rc.d1562[4]);
634   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[40]), scm__rc.d1562[3]);
635   scm__rc.d1562[29] = Scm_MakeExtendedPair(scm__rc.d1562[28], SCM_OBJ(&scm__rc.d1563[14]), SCM_OBJ(&scm__rc.d1563[42]));
636   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("debug-label")), SCM_OBJ(&libmiscdebug_label__STUB), 0);
637   libmiscdebug_label__STUB.common.info = scm__rc.d1562[29];
638    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
639   scm__rc.d1562[30] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[22])),TRUE); /* foreign-pointer-invalid? */
640   scm__rc.d1562[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[23])),TRUE); /* fp */
641   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[43]), scm__rc.d1562[31]);
642   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[46]), scm__rc.d1562[2]);
643   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[47]), scm__rc.d1562[30]);
644   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[48]), scm__rc.d1562[4]);
645   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[49]), scm__rc.d1562[3]);
646   scm__rc.d1562[32] = Scm_MakeExtendedPair(scm__rc.d1562[30], SCM_OBJ(&scm__rc.d1563[43]), SCM_OBJ(&scm__rc.d1563[51]));
647   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("foreign-pointer-invalid?")), SCM_OBJ(&libmiscforeign_pointer_invalidP__STUB), 0);
648   libmiscforeign_pointer_invalidP__STUB.common.info = scm__rc.d1562[32];
649   scm__rc.d1562[33] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[24])),TRUE); /* foreign-pointer-invalidate! */
650   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[54]), scm__rc.d1562[2]);
651   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[55]), scm__rc.d1562[33]);
652   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[56]), scm__rc.d1562[4]);
653   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[57]), scm__rc.d1562[3]);
654   scm__rc.d1562[34] = Scm_MakeExtendedPair(scm__rc.d1562[33], SCM_OBJ(&scm__rc.d1563[43]), SCM_OBJ(&scm__rc.d1563[59]));
655   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("foreign-pointer-invalidate!")), SCM_OBJ(&libmiscforeign_pointer_invalidateX__STUB), 0);
656   libmiscforeign_pointer_invalidateX__STUB.common.info = scm__rc.d1562[34];
657   scm__rc.d1562[35] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[25])),TRUE); /* foreign-pointer-attributes */
658   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[62]), scm__rc.d1562[2]);
659   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[63]), scm__rc.d1562[35]);
660   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[64]), scm__rc.d1562[4]);
661   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[65]), scm__rc.d1562[3]);
662   scm__rc.d1562[36] = Scm_MakeExtendedPair(scm__rc.d1562[35], SCM_OBJ(&scm__rc.d1563[43]), SCM_OBJ(&scm__rc.d1563[67]));
663   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("foreign-pointer-attributes")), SCM_OBJ(&libmiscforeign_pointer_attributes__STUB), 0);
664   libmiscforeign_pointer_attributes__STUB.common.info = scm__rc.d1562[36];
665   scm__rc.d1562[37] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[26])),TRUE); /* foreign-pointer-attribute-get */
666   scm__rc.d1562[38] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[27])),TRUE); /* key */
667   scm__rc.d1562[39] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28]))); /* :optional */
668   scm__rc.d1562[40] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[29])),TRUE); /* fallback */
669   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[68]), scm__rc.d1562[40]);
670   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[69]), scm__rc.d1562[39]);
671   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[70]), scm__rc.d1562[38]);
672   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[71]), scm__rc.d1562[31]);
673   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[74]), scm__rc.d1562[2]);
674   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[75]), scm__rc.d1562[37]);
675   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[76]), scm__rc.d1562[4]);
676   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[77]), scm__rc.d1562[3]);
677   scm__rc.d1562[41] = Scm_MakeExtendedPair(scm__rc.d1562[37], SCM_OBJ(&scm__rc.d1563[71]), SCM_OBJ(&scm__rc.d1563[79]));
678   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("foreign-pointer-attribute-get")), SCM_OBJ(&libmiscforeign_pointer_attribute_get__STUB), 0);
679   libmiscforeign_pointer_attribute_get__STUB.common.info = scm__rc.d1562[41];
680   scm__rc.d1562[42] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[30])),TRUE); /* foreign-pointer-attribute-set! */
681   scm__rc.d1562[43] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[31])),TRUE); /* value */
682   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[80]), scm__rc.d1562[43]);
683   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[81]), scm__rc.d1562[38]);
684   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[82]), scm__rc.d1562[31]);
685   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[85]), scm__rc.d1562[2]);
686   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[86]), scm__rc.d1562[42]);
687   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[87]), scm__rc.d1562[4]);
688   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[88]), scm__rc.d1562[3]);
689   scm__rc.d1562[44] = Scm_MakeExtendedPair(scm__rc.d1562[42], SCM_OBJ(&scm__rc.d1563[82]), SCM_OBJ(&scm__rc.d1563[90]));
690   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("foreign-pointer-attribute-set!")), SCM_OBJ(&libmiscforeign_pointer_attribute_setX__STUB), 0);
691   libmiscforeign_pointer_attribute_setX__STUB.common.info = scm__rc.d1562[44];
692   scm__rc.d1562[45] = Scm_MakeIdentifier(scm__rc.d1562[42], SCM_MODULE(scm__rc.d1562[14]), SCM_NIL); /* gauche#foreign-pointer-attribute-set! */
693   scm__rc.d1562[47] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[32])),TRUE); /* foreign-pointer-attribute-set */
694   scm__rc.d1562[46] = Scm_MakeIdentifier(scm__rc.d1562[47], SCM_MODULE(scm__rc.d1562[14]), SCM_NIL); /* gauche#foreign-pointer-attribute-set */
695   scm__rc.d1562[48] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[33])),TRUE); /* %toplevel */
696   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[1]))->name = scm__rc.d1562[48];/* %toplevel */
697   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[28]))[1] = SCM_WORD(scm__rc.d1562[45]);
698   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[28]))[3] = SCM_WORD(scm__rc.d1562[46]);
699    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
700   scm__rc.d1562[49] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[34])),TRUE); /* cond-features */
701   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[91]), scm__rc.d1562[49]);
702   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[92]), scm__rc.d1562[26]);
703   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[93]), scm__rc.d1562[3]);
704   scm__rc.d1562[50] = Scm_MakeExtendedPair(scm__rc.d1562[49], SCM_NIL, SCM_OBJ(&scm__rc.d1563[94]));
705   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("cond-features")), SCM_OBJ(&libmisccond_features__STUB), 0);
706   libmisccond_features__STUB.common.info = scm__rc.d1562[50];
707   scm__rc.d1562[51] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[35])),TRUE); /* SLIB_DIR */
708   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(scm__rc.d1562[51]),
709 #line 94 "libmisc.scm"
710 SCM_MAKE_STR_IMMUTABLE(SLIB_DIR), SCM_BINDING_CONST);
711 
712   Scm_VMExecuteToplevels(toplevels);
713 }
714