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