1 /* Generated automatically from libstr.scm. DO NOT EDIT */
2 #define LIBGAUCHE_BODY
3 #include <gauche.h>
4 #include <gauche/code.h>
5
6 #line 37 "libstr.scm"
7 #include <gauche/bignum.h>
8 #include <gauche/vminsn.h>
9 #include <gauche/priv/stringP.h>
10
11
12 static ScmObj libstrstringP(ScmObj*, int, void*);
13 static SCM_DEFINE_SUBRX(libstrstringP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstringP, SCM_MAKE_INT(SCM_VM_STRINGP), NULL);
14
15
16 static ScmObj libstrstring_incompleteP(ScmObj*, int, void*);
17 static SCM_DEFINE_SUBR(libstrstring_incompleteP__STUB, 1, 0,SCM_FALSE,libstrstring_incompleteP, NULL, NULL);
18
19
20 static ScmObj libstrstring_immutableP(ScmObj*, int, void*);
21 static SCM_DEFINE_SUBR(libstrstring_immutableP__STUB, 1, 0,SCM_FALSE,libstrstring_immutableP, NULL, NULL);
22
23
24 static ScmObj libstrmake_string(ScmObj*, int, void*);
25 static SCM_DEFINE_SUBRX(libstrmake_string__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrmake_string, NULL, NULL);
26
27
28 static ScmObj libstrstring(ScmObj*, int, void*);
29 static SCM_DEFINE_SUBRX(libstrstring__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring, NULL, NULL);
30
31
32 static ScmObj libstrstring_copy(ScmObj*, int, void*);
33 static SCM_DEFINE_SUBR(libstrstring_copy__STUB, 1, 3,SCM_FALSE,libstrstring_copy, NULL, NULL);
34
35
36 static ScmObj libstrstring_append(ScmObj*, int, void*);
37 static SCM_DEFINE_SUBRX(libstrstring_append__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_append, NULL, NULL);
38
39
40 static ScmObj libstrstring_copy_immutable(ScmObj*, int, void*);
41 static SCM_DEFINE_SUBR(libstrstring_copy_immutable__STUB, 1, 3,SCM_FALSE,libstrstring_copy_immutable, NULL, NULL);
42
43
44 static ScmObj libstrstring_join(ScmObj*, int, void*);
45 static SCM_DEFINE_SUBR(libstrstring_join__STUB, 1, 3,SCM_FALSE,libstrstring_join, NULL, NULL);
46
47
48 static ScmObj libstrstring_TOlist(ScmObj*, int, void*);
49 static SCM_DEFINE_SUBR(libstrstring_TOlist__STUB, 1, 3,SCM_FALSE,libstrstring_TOlist, NULL, NULL);
50
51
52 static ScmObj libstrlist_TOstring(ScmObj*, int, void*);
53 static SCM_DEFINE_SUBRX(libstrlist_TOstring__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrlist_TOstring, NULL, NULL);
54
55
56 static ScmObj libstrstring_length(ScmObj*, int, void*);
57 static SCM_DEFINE_SUBRX(libstrstring_length__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_length, NULL, NULL);
58
59
60 static ScmObj libstrstring_ref(ScmObj*, int, void*);
61 static SCM_DEFINE_SUBRX(libstrstring_ref__STUB, 2, 2,1, SCM_FALSE,0, libstrstring_ref, NULL, NULL);
62
63
64 static ScmObj libstrsubstring(ScmObj*, int, void*);
65 static SCM_DEFINE_SUBR(libstrsubstring__STUB, 3, 0,SCM_FALSE,libstrsubstring, NULL, NULL);
66
67
68 static ScmObj libstrstring_size(ScmObj*, int, void*);
69 static SCM_DEFINE_SUBRX(libstrstring_size__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_size, NULL, NULL);
70
71
72 static ScmObj libstr_25maybe_substring(ScmObj*, int, void*);
73 static SCM_DEFINE_SUBR(libstr_25maybe_substring__STUB, 1, 3,SCM_FALSE,libstr_25maybe_substring, NULL, NULL);
74
75
76 static ScmObj libstr_25hash_string(ScmObj*, int, void*);
77 static SCM_DEFINE_SUBR(libstr_25hash_string__STUB, 1, 2,SCM_FALSE,libstr_25hash_string, NULL, NULL);
78
79
80
81 static ScmObj libstrstring_scan(ScmObj*, int, void*);
82 static SCM_DEFINE_SUBR(libstrstring_scan__STUB, 2, 2,SCM_FALSE,libstrstring_scan, NULL, NULL);
83
84
85 static ScmObj libstrstring_scan_right(ScmObj*, int, void*);
86 static SCM_DEFINE_SUBR(libstrstring_scan_right__STUB, 2, 2,SCM_FALSE,libstrstring_scan_right, NULL, NULL);
87
88
89 static ScmObj libstr_25string_split_by_char(ScmObj*, int, void*);
90 static SCM_DEFINE_SUBRX(libstr_25string_split_by_char__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstr_25string_split_by_char, NULL, NULL);
91
92
93 static ScmObj libstr_25string_replace_bodyX(ScmObj*, int, void*);
94 static SCM_DEFINE_SUBRX(libstr_25string_replace_bodyX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstr_25string_replace_bodyX, NULL, NULL);
95
96
97 static ScmObj libstrstring_build_indexX(ScmObj*, int, void*);
98 static SCM_DEFINE_SUBRX(libstrstring_build_indexX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_build_indexX, NULL, NULL);
99
100
101 static ScmObj libstrstring_fast_indexableP(ScmObj*, int, void*);
102 static SCM_DEFINE_SUBRX(libstrstring_fast_indexableP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_fast_indexableP, NULL, NULL);
103
104
105 static ScmObj libstr_25string_index_dump(ScmObj*, int, void*);
106 static SCM_DEFINE_SUBRX(libstr_25string_index_dump__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstr_25string_index_dump, NULL, NULL);
107
108
109 static ScmObj libstrstring_3dP(ScmObj*, int, void*);
110 static SCM_DEFINE_SUBRX(libstrstring_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_3dP, NULL, NULL);
111
112
113 static ScmObj libstrstring_LTP(ScmObj*, int, void*);
114 static SCM_DEFINE_SUBRX(libstrstring_LTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_LTP, NULL, NULL);
115
116
117 static ScmObj libstrstring_GTP(ScmObj*, int, void*);
118 static SCM_DEFINE_SUBRX(libstrstring_GTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_GTP, NULL, NULL);
119
120
121 static ScmObj libstrstring_LT_3dP(ScmObj*, int, void*);
122 static SCM_DEFINE_SUBRX(libstrstring_LT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_LT_3dP, NULL, NULL);
123
124
125 static ScmObj libstrstring_GT_3dP(ScmObj*, int, void*);
126 static SCM_DEFINE_SUBRX(libstrstring_GT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_GT_3dP, NULL, NULL);
127
128
129 static ScmObj libstrstring_ci_3dP(ScmObj*, int, void*);
130 static SCM_DEFINE_SUBRX(libstrstring_ci_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_3dP, NULL, NULL);
131
132
133 static ScmObj libstrstring_ci_LTP(ScmObj*, int, void*);
134 static SCM_DEFINE_SUBRX(libstrstring_ci_LTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_LTP, NULL, NULL);
135
136
137 static ScmObj libstrstring_ci_GTP(ScmObj*, int, void*);
138 static SCM_DEFINE_SUBRX(libstrstring_ci_GTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_GTP, NULL, NULL);
139
140
141 static ScmObj libstrstring_ci_LT_3dP(ScmObj*, int, void*);
142 static SCM_DEFINE_SUBRX(libstrstring_ci_LT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_LT_3dP, NULL, NULL);
143
144
145 static ScmObj libstrstring_ci_GT_3dP(ScmObj*, int, void*);
146 static SCM_DEFINE_SUBRX(libstrstring_ci_GT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_GT_3dP, NULL, NULL);
147
148
149 static ScmObj libstrstring_complete_TOincomplete(ScmObj*, int, void*);
150 static SCM_DEFINE_SUBRX(libstrstring_complete_TOincomplete__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_complete_TOincomplete, NULL, NULL);
151
152
153 static ScmObj libstrstring_incomplete_TOcomplete(ScmObj*, int, void*);
154 static SCM_DEFINE_SUBR(libstrstring_incomplete_TOcomplete__STUB, 1, 3,SCM_FALSE,libstrstring_incomplete_TOcomplete, NULL, NULL);
155
156
157 static ScmObj libstrmake_byte_string(ScmObj*, int, void*);
158 static SCM_DEFINE_SUBRX(libstrmake_byte_string__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrmake_byte_string, NULL, NULL);
159
160
161 static ScmObj libstrstring_byte_ref(ScmObj*, int, void*);
162 static SCM_DEFINE_SUBR(libstrstring_byte_ref__STUB, 2, 2,SCM_FALSE,libstrstring_byte_ref, NULL, NULL);
163
164
165 static ScmObj libstrbyte_substring(ScmObj*, int, void*);
166 static SCM_DEFINE_SUBRX(libstrbyte_substring__STUB, 3, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrbyte_substring, NULL, NULL);
167
168 #if GAUCHE_STRING_POINTER
169
170 static ScmObj libstrmake_string_pointer(ScmObj*, int, void*);
171 static SCM_DEFINE_SUBRX(libstrmake_string_pointer__STUB, 1, 4,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrmake_string_pointer, NULL, NULL);
172
173 #endif /* GAUCHE_STRING_POINTER */
174 #if GAUCHE_STRING_POINTER
175
176 static ScmObj libstrstring_pointerP(ScmObj*, int, void*);
177 static SCM_DEFINE_SUBR(libstrstring_pointerP__STUB, 1, 0,SCM_FALSE,libstrstring_pointerP, NULL, NULL);
178
179 #endif /* GAUCHE_STRING_POINTER */
180 #if GAUCHE_STRING_POINTER
181
182 static ScmObj libstrstring_pointer_ref(ScmObj*, int, void*);
183 static SCM_DEFINE_SUBRX(libstrstring_pointer_ref__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_ref, NULL, NULL);
184
185 #endif /* GAUCHE_STRING_POINTER */
186 #if GAUCHE_STRING_POINTER
187
188 static ScmObj libstrstring_pointer_nextX(ScmObj*, int, void*);
189 static SCM_DEFINE_SUBRX(libstrstring_pointer_nextX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_nextX, NULL, NULL);
190
191 #endif /* GAUCHE_STRING_POINTER */
192 #if GAUCHE_STRING_POINTER
193
194 static ScmObj libstrstring_pointer_prevX(ScmObj*, int, void*);
195 static SCM_DEFINE_SUBRX(libstrstring_pointer_prevX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_prevX, NULL, NULL);
196
197 #endif /* GAUCHE_STRING_POINTER */
198 #if GAUCHE_STRING_POINTER
199
200 static ScmObj libstrstring_pointer_setX(ScmObj*, int, void*);
201 static SCM_DEFINE_SUBRX(libstrstring_pointer_setX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_setX, NULL, NULL);
202
203 #endif /* GAUCHE_STRING_POINTER */
204 #if GAUCHE_STRING_POINTER
205
206 static ScmObj libstrstring_pointer_substring(ScmObj*, int, void*);
207 static SCM_DEFINE_SUBRX(libstrstring_pointer_substring__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_substring, NULL, NULL);
208
209 #endif /* GAUCHE_STRING_POINTER */
210 #if GAUCHE_STRING_POINTER
211
212 static ScmObj libstrstring_pointer_index(ScmObj*, int, void*);
213 static SCM_DEFINE_SUBRX(libstrstring_pointer_index__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_index, NULL, NULL);
214
215 #endif /* GAUCHE_STRING_POINTER */
216 #if GAUCHE_STRING_POINTER
217
218 static ScmObj libstrstring_pointer_copy(ScmObj*, int, void*);
219 static SCM_DEFINE_SUBRX(libstrstring_pointer_copy__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_copy, NULL, NULL);
220
221 #endif /* GAUCHE_STRING_POINTER */
222 #if GAUCHE_STRING_POINTER
223
224 static ScmObj libstrstring_pointer_byte_index(ScmObj*, int, void*);
225 static SCM_DEFINE_SUBRX(libstrstring_pointer_byte_index__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_byte_index, NULL, NULL);
226
227 #endif /* GAUCHE_STRING_POINTER */
228 #if GAUCHE_STRING_POINTER
229
230 static ScmObj libstr_25string_pointer_dump(ScmObj*, int, void*);
231 static SCM_DEFINE_SUBRX(libstr_25string_pointer_dump__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstr_25string_pointer_dump, NULL, NULL);
232
233 #endif /* GAUCHE_STRING_POINTER */
234
235 static ScmObj libstrstring_cursorP(ScmObj*, int, void*);
236 static SCM_DEFINE_SUBR(libstrstring_cursorP__STUB, 1, 0,SCM_FALSE,libstrstring_cursorP, NULL, NULL);
237
238
239 static ScmObj libstrstring_cursor_start(ScmObj*, int, void*);
240 static SCM_DEFINE_SUBRX(libstrstring_cursor_start__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_cursor_start, NULL, NULL);
241
242
243 static ScmObj libstrstring_cursor_end(ScmObj*, int, void*);
244 static SCM_DEFINE_SUBRX(libstrstring_cursor_end__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_cursor_end, NULL, NULL);
245
246
247 static ScmObj libstrstring_cursor_next(ScmObj*, int, void*);
248 static SCM_DEFINE_SUBR(libstrstring_cursor_next__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_next, NULL, NULL);
249
250
251 static ScmObj libstrstring_cursor_prev(ScmObj*, int, void*);
252 static SCM_DEFINE_SUBR(libstrstring_cursor_prev__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_prev, NULL, NULL);
253
254
255 static ScmObj libstrstring_cursor_forward(ScmObj*, int, void*);
256 static SCM_DEFINE_SUBR(libstrstring_cursor_forward__STUB, 3, 0,SCM_FALSE,libstrstring_cursor_forward, NULL, NULL);
257
258
259 static ScmObj libstrstring_cursor_back(ScmObj*, int, void*);
260 static SCM_DEFINE_SUBR(libstrstring_cursor_back__STUB, 3, 0,SCM_FALSE,libstrstring_cursor_back, NULL, NULL);
261
262
263 static ScmObj libstrstring_index_TOcursor(ScmObj*, int, void*);
264 static SCM_DEFINE_SUBR(libstrstring_index_TOcursor__STUB, 2, 0,SCM_FALSE,libstrstring_index_TOcursor, NULL, NULL);
265
266
267 static ScmObj libstrstring_cursor_TOindex(ScmObj*, int, void*);
268 static SCM_DEFINE_SUBR(libstrstring_cursor_TOindex__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_TOindex, NULL, NULL);
269
270
271 static ScmObj libstrstring_cursor_3dP(ScmObj*, int, void*);
272 static SCM_DEFINE_SUBR(libstrstring_cursor_3dP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_3dP, NULL, NULL);
273
274
275 static ScmObj libstrstring_cursor_LTP(ScmObj*, int, void*);
276 static SCM_DEFINE_SUBR(libstrstring_cursor_LTP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_LTP, NULL, NULL);
277
278
279 static ScmObj libstrstring_cursor_GTP(ScmObj*, int, void*);
280 static SCM_DEFINE_SUBR(libstrstring_cursor_GTP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_GTP, NULL, NULL);
281
282
283 static ScmObj libstrstring_cursor_LT_3dP(ScmObj*, int, void*);
284 static SCM_DEFINE_SUBR(libstrstring_cursor_LT_3dP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_LT_3dP, NULL, NULL);
285
286
287 static ScmObj libstrstring_cursor_GT_3dP(ScmObj*, int, void*);
288 static SCM_DEFINE_SUBR(libstrstring_cursor_GT_3dP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_GT_3dP, NULL, NULL);
289
290
291 static ScmObj libstrstring_cursor_diff(ScmObj*, int, void*);
292 static SCM_DEFINE_SUBR(libstrstring_cursor_diff__STUB, 3, 0,SCM_FALSE,libstrstring_cursor_diff, NULL, NULL);
293
294 #if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS)
295 #define SCM_CGEN_CONST /*empty*/
296 #else
297 #define SCM_CGEN_CONST const
298 #endif
299 static SCM_CGEN_CONST struct scm__scRec {
300 #if GAUCHE_STRING_POINTER
301 ScmString d1600[24];
302 #endif /*GAUCHE_STRING_POINTER*/
303 ScmString d1561[195];
304 } scm__sc SCM_UNUSED = {
305 #if GAUCHE_STRING_POINTER
306 { /* ScmString d1600 */
307 SCM_STRING_CONST_INITIALIZER("make-string-pointer", 19, 19),
308 SCM_STRING_CONST_INITIALIZER("str", 3, 3),
309 SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
310 SCM_STRING_CONST_INITIALIZER("index", 5, 5),
311 SCM_STRING_CONST_INITIALIZER("start", 5, 5),
312 SCM_STRING_CONST_INITIALIZER("end", 3, 3),
313 SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
314 SCM_STRING_CONST_INITIALIZER("libstr.scm", 10, 10),
315 SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
316 SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
317 SCM_STRING_CONST_INITIALIZER("string-pointer\077", 15, 15),
318 SCM_STRING_CONST_INITIALIZER("obj", 3, 3),
319 SCM_STRING_CONST_INITIALIZER("string-pointer-ref", 18, 18),
320 SCM_STRING_CONST_INITIALIZER("sp", 2, 2),
321 SCM_STRING_CONST_INITIALIZER("string-pointer-next!", 20, 20),
322 SCM_STRING_CONST_INITIALIZER("string-pointer-prev!", 20, 20),
323 SCM_STRING_CONST_INITIALIZER("string-pointer-set!", 19, 19),
324 SCM_STRING_CONST_INITIALIZER("after", 5, 5),
325 SCM_STRING_CONST_INITIALIZER("string-pointer-substring", 24, 24),
326 SCM_STRING_CONST_INITIALIZER("string-pointer-index", 20, 20),
327 SCM_STRING_CONST_INITIALIZER("string-pointer-copy", 19, 19),
328 SCM_STRING_CONST_INITIALIZER("string-pointer-byte-index", 25, 25),
329 SCM_STRING_CONST_INITIALIZER("%string-pointer-dump", 20, 20),
330 SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
331 },
332 #endif /*GAUCHE_STRING_POINTER*/
333 { /* ScmString d1561 */
334 SCM_STRING_CONST_INITIALIZER("string\077", 7, 7),
335 SCM_STRING_CONST_INITIALIZER("obj", 3, 3),
336 SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
337 SCM_STRING_CONST_INITIALIZER("libstr.scm", 10, 10),
338 SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
339 SCM_STRING_CONST_INITIALIZER("scheme", 6, 6),
340 SCM_STRING_CONST_INITIALIZER("string-incomplete\077", 18, 18),
341 SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
342 SCM_STRING_CONST_INITIALIZER("string-immutable\077", 17, 17),
343 SCM_STRING_CONST_INITIALIZER("make-string", 11, 11),
344 SCM_STRING_CONST_INITIALIZER("len", 3, 3),
345 SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
346 SCM_STRING_CONST_INITIALIZER("c", 1, 1),
347 SCM_STRING_CONST_INITIALIZER("string", 6, 6),
348 SCM_STRING_CONST_INITIALIZER("rest", 4, 4),
349 SCM_STRING_CONST_INITIALIZER("chars", 5, 5),
350 SCM_STRING_CONST_INITIALIZER("string-copy", 11, 11),
351 SCM_STRING_CONST_INITIALIZER("str", 3, 3),
352 SCM_STRING_CONST_INITIALIZER("start", 5, 5),
353 SCM_STRING_CONST_INITIALIZER("end", 3, 3),
354 SCM_STRING_CONST_INITIALIZER("string-append", 13, 13),
355 SCM_STRING_CONST_INITIALIZER("args", 4, 4),
356 SCM_STRING_CONST_INITIALIZER("string-copy-immutable", 21, 21),
357 SCM_STRING_CONST_INITIALIZER(" ", 1, 1),
358 SCM_STRING_CONST_INITIALIZER("infix", 5, 5),
359 SCM_STRING_CONST_INITIALIZER("string-join", 11, 11),
360 SCM_STRING_CONST_INITIALIZER("prefix", 6, 6),
361 SCM_STRING_CONST_INITIALIZER("suffix", 6, 6),
362 SCM_STRING_CONST_INITIALIZER("strict-infix", 12, 12),
363 SCM_STRING_CONST_INITIALIZER("strs", 4, 4),
364 SCM_STRING_CONST_INITIALIZER("delim", 5, 5),
365 SCM_STRING_CONST_INITIALIZER("grammar", 7, 7),
366 SCM_STRING_CONST_INITIALIZER("string-interpolate", 18, 18),
367 SCM_STRING_CONST_INITIALIZER("unused-args", 11, 11),
368 SCM_STRING_CONST_INITIALIZER("define-reader-ctor", 18, 18),
369 SCM_STRING_CONST_INITIALIZER("%toplevel", 9, 9),
370 SCM_STRING_CONST_INITIALIZER("string->list", 12, 12),
371 SCM_STRING_CONST_INITIALIZER("list->string", 12, 12),
372 SCM_STRING_CONST_INITIALIZER("list", 4, 4),
373 SCM_STRING_CONST_INITIALIZER("string-length", 13, 13),
374 SCM_STRING_CONST_INITIALIZER("string-ref", 10, 10),
375 SCM_STRING_CONST_INITIALIZER("k", 1, 1),
376 SCM_STRING_CONST_INITIALIZER("fallback", 8, 8),
377 SCM_STRING_CONST_INITIALIZER("substring", 9, 9),
378 SCM_STRING_CONST_INITIALIZER("string-size", 11, 11),
379 SCM_STRING_CONST_INITIALIZER("%maybe-substring", 16, 16),
380 SCM_STRING_CONST_INITIALIZER("%hash-string", 12, 12),
381 SCM_STRING_CONST_INITIALIZER("bound", 5, 5),
382 SCM_STRING_CONST_INITIALIZER("both", 4, 4),
383 SCM_STRING_CONST_INITIALIZER("after*", 6, 6),
384 SCM_STRING_CONST_INITIALIZER("before*", 7, 7),
385 SCM_STRING_CONST_INITIALIZER("after", 5, 5),
386 SCM_STRING_CONST_INITIALIZER("before", 6, 6),
387 SCM_STRING_CONST_INITIALIZER("cursor", 6, 6),
388 SCM_STRING_CONST_INITIALIZER("index", 5, 5),
389 SCM_STRING_CONST_INITIALIZER("string-scan", 11, 11),
390 SCM_STRING_CONST_INITIALIZER("s1", 2, 2),
391 SCM_STRING_CONST_INITIALIZER("s2", 2, 2),
392 SCM_STRING_CONST_INITIALIZER("mode", 4, 4),
393 SCM_STRING_CONST_INITIALIZER("string-scan-right", 17, 17),
394 SCM_STRING_CONST_INITIALIZER("string-split", 12, 12),
395 SCM_STRING_CONST_INITIALIZER("too many arguments for", 22, 22),
396 SCM_STRING_CONST_INITIALIZER("lambda", 6, 6),
397 SCM_STRING_CONST_INITIALIZER("splitter", 8, 8),
398 SCM_STRING_CONST_INITIALIZER("quote", 5, 5),
399 SCM_STRING_CONST_INITIALIZER("limit", 5, 5),
400 SCM_STRING_CONST_INITIALIZER("if", 2, 2),
401 SCM_STRING_CONST_INITIALIZER("or", 2, 2),
402 SCM_STRING_CONST_INITIALIZER("not", 3, 3),
403 SCM_STRING_CONST_INITIALIZER("integer\077", 8, 8),
404 SCM_STRING_CONST_INITIALIZER("with-module", 11, 11),
405 SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
406 SCM_STRING_CONST_INITIALIZER("%string-split", 13, 13),
407 SCM_STRING_CONST_INITIALIZER("error", 5, 5),
408 SCM_STRING_CONST_INITIALIZER("%string-split-by-char", 21, 21),
409 SCM_STRING_CONST_INITIALIZER("s", 1, 1),
410 SCM_STRING_CONST_INITIALIZER("ch", 2, 2),
411 SCM_STRING_CONST_INITIALIZER("grammar argument must be one of (infix strict-infix prefix suffix), but got", 75, 75),
412 SCM_STRING_CONST_INITIALIZER("limit argument must be a nonnegative integer or #f, but got", 59, 59),
413 SCM_STRING_CONST_INITIALIZER("", 0, 0),
414 SCM_STRING_CONST_INITIALIZER("equal\077", 6, 6),
415 SCM_STRING_CONST_INITIALIZER("string must not be empty with strict-infix grammar", 50, 50),
416 SCM_STRING_CONST_INITIALIZER("%string-split-scanner", 21, 21),
417 SCM_STRING_CONST_INITIALIZER("%string-split-by-scanner", 24, 24),
418 SCM_STRING_CONST_INITIALIZER("last-pair", 9, 9),
419 SCM_STRING_CONST_INITIALIZER("drop-right", 10, 10),
420 SCM_STRING_CONST_INITIALIZER("string=\077", 8, 8),
421 SCM_STRING_CONST_INITIALIZER("char-set\077", 9, 9),
422 SCM_STRING_CONST_INITIALIZER("char-set-contains\077", 18, 18),
423 SCM_STRING_CONST_INITIALIZER("G1574", 5, 5),
424 SCM_STRING_CONST_INITIALIZER("%string-split-scanner-each-char", 31, 31),
425 SCM_STRING_CONST_INITIALIZER("regexp\077", 7, 7),
426 SCM_STRING_CONST_INITIALIZER("rxmatch", 7, 7),
427 SCM_STRING_CONST_INITIALIZER("string-cursor-start", 19, 19),
428 SCM_STRING_CONST_INITIALIZER("string-cursor-end", 17, 17),
429 SCM_STRING_CONST_INITIALIZER("string-cursor=\077", 15, 15),
430 SCM_STRING_CONST_INITIALIZER("string-cursor-next", 18, 18),
431 SCM_STRING_CONST_INITIALIZER("pred", 4, 4),
432 SCM_STRING_CONST_INITIALIZER("reverse!", 8, 8),
433 SCM_STRING_CONST_INITIALIZER("scanner", 7, 7),
434 SCM_STRING_CONST_INITIALIZER("%string-replace-body!", 21, 21),
435 SCM_STRING_CONST_INITIALIZER("target", 6, 6),
436 SCM_STRING_CONST_INITIALIZER("source", 6, 6),
437 SCM_STRING_CONST_INITIALIZER("string-set!", 11, 11),
438 SCM_STRING_CONST_INITIALIZER("bad type of argument for ~s: ~s", 31, 31),
439 SCM_STRING_CONST_INITIALIZER("arg", 3, 3),
440 SCM_STRING_CONST_INITIALIZER("errorf", 6, 6),
441 SCM_STRING_CONST_INITIALIZER("string-index->cursor", 20, 20),
442 SCM_STRING_CONST_INITIALIZER("setter", 6, 6),
443 SCM_STRING_CONST_INITIALIZER("string-byte-set!", 16, 16),
444 SCM_STRING_CONST_INITIALIZER("exact\077", 6, 6),
445 SCM_STRING_CONST_INITIALIZER("private\077", 8, 8),
446 SCM_STRING_CONST_INITIALIZER("open-output-string", 18, 18),
447 SCM_STRING_CONST_INITIALIZER("string index out of range:", 26, 26),
448 SCM_STRING_CONST_INITIALIZER("byte-substring", 14, 14),
449 SCM_STRING_CONST_INITIALIZER("display", 7, 7),
450 SCM_STRING_CONST_INITIALIZER("write-byte", 10, 10),
451 SCM_STRING_CONST_INITIALIZER("get-output-byte-string", 22, 22),
452 SCM_STRING_CONST_INITIALIZER("b", 1, 1),
453 SCM_STRING_CONST_INITIALIZER("string-byte-ref", 15, 15),
454 SCM_STRING_CONST_INITIALIZER("string-fill!", 12, 12),
455 SCM_STRING_CONST_INITIALIZER("let", 3, 3),
456 SCM_STRING_CONST_INITIALIZER("istart", 6, 6),
457 SCM_STRING_CONST_INITIALIZER("string-cursor->index", 20, 20),
458 SCM_STRING_CONST_INITIALIZER("iend", 4, 4),
459 SCM_STRING_CONST_INITIALIZER("when", 4, 4),
460 SCM_STRING_CONST_INITIALIZER("<", 1, 1),
461 SCM_STRING_CONST_INITIALIZER("end index ~s is smaller than start index ~s", 43, 43),
462 SCM_STRING_CONST_INITIALIZER("and", 3, 3),
463 SCM_STRING_CONST_INITIALIZER("=", 1, 1),
464 SCM_STRING_CONST_INITIALIZER("-", 1, 1),
465 SCM_STRING_CONST_INITIALIZER("string-build-index!", 19, 19),
466 SCM_STRING_CONST_INITIALIZER("string-fast-indexable\077", 22, 22),
467 SCM_STRING_CONST_INITIALIZER("%string-index-dump", 18, 18),
468 SCM_STRING_CONST_INITIALIZER("p", 1, 1),
469 SCM_STRING_CONST_INITIALIZER("ss", 2, 2),
470 SCM_STRING_CONST_INITIALIZER("string<\077", 8, 8),
471 SCM_STRING_CONST_INITIALIZER("string>\077", 8, 8),
472 SCM_STRING_CONST_INITIALIZER("string<=\077", 9, 9),
473 SCM_STRING_CONST_INITIALIZER("string>=\077", 9, 9),
474 SCM_STRING_CONST_INITIALIZER("string-ci=\077", 11, 11),
475 SCM_STRING_CONST_INITIALIZER("string-ci<\077", 11, 11),
476 SCM_STRING_CONST_INITIALIZER("string-ci>\077", 11, 11),
477 SCM_STRING_CONST_INITIALIZER("string-ci<=\077", 12, 12),
478 SCM_STRING_CONST_INITIALIZER("string-ci>=\077", 12, 12),
479 SCM_STRING_CONST_INITIALIZER("%string-map-dispatch", 20, 20),
480 SCM_STRING_CONST_INITIALIZER("G1591", 5, 5),
481 SCM_STRING_CONST_INITIALIZER("Too many arguments for srfi-13 style ~a", 39, 39),
482 SCM_STRING_CONST_INITIALIZER("string-cursor\077", 14, 14),
483 SCM_STRING_CONST_INITIALIZER("Integer or string-cursor expected, but got:", 43, 43),
484 SCM_STRING_CONST_INITIALIZER("find", 4, 4),
485 SCM_STRING_CONST_INITIALIZER("string expected, but got:", 25, 25),
486 SCM_STRING_CONST_INITIALIZER("name", 4, 4),
487 SCM_STRING_CONST_INITIALIZER("proc", 4, 4),
488 SCM_STRING_CONST_INITIALIZER("proc-single", 11, 11),
489 SCM_STRING_CONST_INITIALIZER("proc-multi", 10, 10),
490 SCM_STRING_CONST_INITIALIZER("string-cursor-prev", 18, 18),
491 SCM_STRING_CONST_INITIALIZER("string-map", 10, 10),
492 SCM_STRING_CONST_INITIALIZER("string-map-1", 12, 12),
493 SCM_STRING_CONST_INITIALIZER("map", 3, 3),
494 SCM_STRING_CONST_INITIALIZER("any", 3, 3),
495 SCM_STRING_CONST_INITIALIZER("string-map-n", 12, 12),
496 SCM_STRING_CONST_INITIALIZER("string-for-each", 15, 15),
497 SCM_STRING_CONST_INITIALIZER("string-for-each-1", 17, 17),
498 SCM_STRING_CONST_INITIALIZER("string-for-each-n", 17, 17),
499 SCM_STRING_CONST_INITIALIZER("string-incomplete->complete!", 28, 28),
500 SCM_STRING_CONST_INITIALIZER("string-incomplete->complete", 27, 27),
501 SCM_STRING_CONST_INITIALIZER("string-complete->incomplete", 27, 27),
502 SCM_STRING_CONST_INITIALIZER("replace", 7, 7),
503 SCM_STRING_CONST_INITIALIZER("omit", 4, 4),
504 SCM_STRING_CONST_INITIALIZER("escape", 6, 6),
505 SCM_STRING_CONST_INITIALIZER("handling", 8, 8),
506 SCM_STRING_CONST_INITIALIZER("filler", 6, 6),
507 SCM_STRING_CONST_INITIALIZER("make-byte-string", 16, 16),
508 SCM_STRING_CONST_INITIALIZER("size", 4, 4),
509 SCM_STRING_CONST_INITIALIZER("byte", 4, 4),
510 SCM_STRING_CONST_INITIALIZER("complete-sexp\077", 14, 14),
511 SCM_STRING_CONST_INITIALIZER("rec-escaped", 11, 11),
512 SCM_STRING_CONST_INITIALIZER("closer", 6, 6),
513 SCM_STRING_CONST_INITIALIZER("skip-token", 10, 10),
514 SCM_STRING_CONST_INITIALIZER("unreadable sequence #<~a...", 27, 27),
515 SCM_STRING_CONST_INITIALIZER("read-block", 10, 10),
516 SCM_STRING_CONST_INITIALIZER("rec", 3, 3),
517 SCM_STRING_CONST_INITIALIZER("G1597", 5, 5),
518 SCM_STRING_CONST_INITIALIZER("with-input-from-string", 22, 22),
519 SCM_STRING_CONST_INITIALIZER("string-cursor-forward", 21, 21),
520 SCM_STRING_CONST_INITIALIZER("nchars", 6, 6),
521 SCM_STRING_CONST_INITIALIZER("string-cursor-back", 18, 18),
522 SCM_STRING_CONST_INITIALIZER("cursor1", 7, 7),
523 SCM_STRING_CONST_INITIALIZER("cursor2", 7, 7),
524 SCM_STRING_CONST_INITIALIZER("string-cursor<\077", 15, 15),
525 SCM_STRING_CONST_INITIALIZER("string-cursor>\077", 15, 15),
526 SCM_STRING_CONST_INITIALIZER("string-cursor<=\077", 16, 16),
527 SCM_STRING_CONST_INITIALIZER("string-cursor>=\077", 16, 16),
528 SCM_STRING_CONST_INITIALIZER("string-cursor-diff", 18, 18),
529 },
530 };
531 static struct scm__rcRec {
532 #if GAUCHE_STRING_POINTER
533 ScmPair d1602[98] SCM_ALIGN_PAIR;
534 #endif /*GAUCHE_STRING_POINTER*/
535 #if GAUCHE_STRING_POINTER
536 ScmObj d1601[34];
537 #endif /*GAUCHE_STRING_POINTER*/
538 ScmCompiledCode d1565[36];
539 ScmWord d1564[1747];
540 ScmPair d1563[786] SCM_ALIGN_PAIR;
541 ScmObj d1562[340];
542 } scm__rc SCM_UNUSED = {
543 #if GAUCHE_STRING_POINTER
544 { /* ScmPair d1602 */
545 { SCM_NIL, SCM_NIL },
546 { SCM_UNDEFINED, SCM_NIL},
547 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[1])},
548 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[2])},
549 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[3])},
550 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[4])},
551 { SCM_MAKE_INT(660U), SCM_NIL},
552 { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[6])},
553 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[7])},
554 { SCM_UNDEFINED, SCM_NIL},
555 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[9])},
556 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[10])},
557 { SCM_OBJ(&scm__rc.d1602[11]), SCM_NIL},
558 { SCM_OBJ(&scm__rc.d1602[8]), SCM_OBJ(&scm__rc.d1602[12])},
559 { SCM_UNDEFINED, SCM_NIL},
560 { SCM_MAKE_INT(665U), SCM_NIL},
561 { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[15])},
562 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[16])},
563 { SCM_UNDEFINED, SCM_NIL},
564 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[18])},
565 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[19])},
566 { SCM_OBJ(&scm__rc.d1602[20]), SCM_NIL},
567 { SCM_OBJ(&scm__rc.d1602[17]), SCM_OBJ(&scm__rc.d1602[21])},
568 { SCM_UNDEFINED, SCM_NIL},
569 { SCM_MAKE_INT(667U), SCM_NIL},
570 { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[24])},
571 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[25])},
572 { SCM_UNDEFINED, SCM_NIL},
573 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[27])},
574 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[28])},
575 { SCM_OBJ(&scm__rc.d1602[29]), SCM_NIL},
576 { SCM_OBJ(&scm__rc.d1602[26]), SCM_OBJ(&scm__rc.d1602[30])},
577 { SCM_MAKE_INT(669U), SCM_NIL},
578 { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[32])},
579 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[33])},
580 { SCM_UNDEFINED, SCM_NIL},
581 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[35])},
582 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[36])},
583 { SCM_OBJ(&scm__rc.d1602[37]), SCM_NIL},
584 { SCM_OBJ(&scm__rc.d1602[34]), SCM_OBJ(&scm__rc.d1602[38])},
585 { SCM_MAKE_INT(671U), SCM_NIL},
586 { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[40])},
587 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[41])},
588 { SCM_UNDEFINED, SCM_NIL},
589 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[43])},
590 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[44])},
591 { SCM_OBJ(&scm__rc.d1602[45]), SCM_NIL},
592 { SCM_OBJ(&scm__rc.d1602[42]), SCM_OBJ(&scm__rc.d1602[46])},
593 { SCM_UNDEFINED, SCM_NIL},
594 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[48])},
595 { SCM_MAKE_INT(673U), SCM_NIL},
596 { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[50])},
597 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[51])},
598 { SCM_UNDEFINED, SCM_NIL},
599 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[53])},
600 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[54])},
601 { SCM_OBJ(&scm__rc.d1602[55]), SCM_NIL},
602 { SCM_OBJ(&scm__rc.d1602[52]), SCM_OBJ(&scm__rc.d1602[56])},
603 { SCM_MAKE_INT(675U), SCM_NIL},
604 { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[58])},
605 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[59])},
606 { SCM_UNDEFINED, SCM_NIL},
607 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[61])},
608 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[62])},
609 { SCM_OBJ(&scm__rc.d1602[63]), SCM_NIL},
610 { SCM_OBJ(&scm__rc.d1602[60]), SCM_OBJ(&scm__rc.d1602[64])},
611 { SCM_MAKE_INT(677U), SCM_NIL},
612 { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[66])},
613 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[67])},
614 { SCM_UNDEFINED, SCM_NIL},
615 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[69])},
616 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[70])},
617 { SCM_OBJ(&scm__rc.d1602[71]), SCM_NIL},
618 { SCM_OBJ(&scm__rc.d1602[68]), SCM_OBJ(&scm__rc.d1602[72])},
619 { SCM_MAKE_INT(679U), SCM_NIL},
620 { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[74])},
621 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[75])},
622 { SCM_UNDEFINED, SCM_NIL},
623 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[77])},
624 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[78])},
625 { SCM_OBJ(&scm__rc.d1602[79]), SCM_NIL},
626 { SCM_OBJ(&scm__rc.d1602[76]), SCM_OBJ(&scm__rc.d1602[80])},
627 { SCM_MAKE_INT(681U), SCM_NIL},
628 { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[82])},
629 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[83])},
630 { SCM_UNDEFINED, SCM_NIL},
631 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[85])},
632 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[86])},
633 { SCM_OBJ(&scm__rc.d1602[87]), SCM_NIL},
634 { SCM_OBJ(&scm__rc.d1602[84]), SCM_OBJ(&scm__rc.d1602[88])},
635 { SCM_MAKE_INT(687U), SCM_NIL},
636 { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[90])},
637 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[91])},
638 { SCM_UNDEFINED, SCM_NIL},
639 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[93])},
640 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[94])},
641 { SCM_OBJ(&scm__rc.d1602[95]), SCM_NIL},
642 { SCM_OBJ(&scm__rc.d1602[92]), SCM_OBJ(&scm__rc.d1602[96])},
643 },
644 #endif /*GAUCHE_STRING_POINTER*/
645 #if GAUCHE_STRING_POINTER
646 { /* ScmObj d1601 */
647 SCM_UNBOUND,
648 SCM_UNBOUND,
649 SCM_UNBOUND,
650 SCM_UNBOUND,
651 SCM_UNBOUND,
652 SCM_UNBOUND,
653 SCM_UNBOUND,
654 SCM_UNBOUND,
655 SCM_UNBOUND,
656 SCM_UNBOUND,
657 SCM_UNBOUND,
658 SCM_UNBOUND,
659 SCM_UNBOUND,
660 SCM_UNBOUND,
661 SCM_UNBOUND,
662 SCM_UNBOUND,
663 SCM_UNBOUND,
664 SCM_UNBOUND,
665 SCM_UNBOUND,
666 SCM_UNBOUND,
667 SCM_UNBOUND,
668 SCM_UNBOUND,
669 SCM_UNBOUND,
670 SCM_UNBOUND,
671 SCM_UNBOUND,
672 SCM_UNBOUND,
673 SCM_UNBOUND,
674 SCM_UNBOUND,
675 SCM_UNBOUND,
676 SCM_UNBOUND,
677 SCM_UNBOUND,
678 SCM_UNBOUND,
679 SCM_UNBOUND,
680 SCM_UNBOUND,
681 },
682 #endif /*GAUCHE_STRING_POINTER*/
683 { /* ScmCompiledCode d1565 */
684 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
685 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[0])), 5,
686 2, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[95]),
687 SCM_OBJ(&scm__rc.d1565[1]), SCM_FALSE),
688 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
689 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[5])), 7,
690 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
691 SCM_FALSE, SCM_FALSE),
692 SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-split */
693 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[12])), 110,
694 31, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[232]),
695 SCM_FALSE, SCM_FALSE),
696 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split */
697 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[122])), 159,
698 25, 6, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[253]),
699 SCM_FALSE, SCM_FALSE),
700 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (%string-split-scanner %string-split-scanner) */
701 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[281])), 26,
702 12, 1, 0, SCM_OBJ(&scm__rc.d1563[255]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[261]),
703 SCM_OBJ(&scm__rc.d1565[9]), SCM_FALSE),
704 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-scanner */
705 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[307])), 18,
706 12, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[267]),
707 SCM_OBJ(&scm__rc.d1565[8]), SCM_FALSE),
708 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
709 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[325])), 5,
710 5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[274]),
711 SCM_OBJ(&scm__rc.d1565[8]), SCM_FALSE),
712 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-scanner */
713 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[330])), 63,
714 21, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[279]),
715 SCM_OBJ(&scm__rc.d1565[8]), SCM_FALSE),
716 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-scanner */
717 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[393])), 43,
718 11, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[285]),
719 SCM_OBJ(&scm__rc.d1565[9]), SCM_FALSE),
720 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
721 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[436])), 7,
722 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
723 SCM_FALSE, SCM_FALSE),
724 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-scanner-each-char */
725 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[443])), 131,
726 42, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[292]),
727 SCM_OBJ(&scm__rc.d1565[11]), SCM_FALSE),
728 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-scanner-each-char */
729 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[574])), 3,
730 0, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[298]),
731 SCM_FALSE, SCM_FALSE),
732 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-by-scanner */
733 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[577])), 37,
734 23, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[305]),
735 SCM_FALSE, SCM_FALSE),
736 SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-set! */
737 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[614])), 68,
738 27, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[323]),
739 SCM_FALSE, SCM_FALSE),
740 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
741 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[682])), 9,
742 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
743 SCM_FALSE, SCM_FALSE),
744 SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-byte-set! */
745 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[691])), 143,
746 24, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[331]),
747 SCM_FALSE, SCM_FALSE),
748 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
749 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[834])), 9,
750 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
751 SCM_FALSE, SCM_FALSE),
752 SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-fill! */
753 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[843])), 141,
754 37, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[412]),
755 SCM_FALSE, SCM_FALSE),
756 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (%string-map-dispatch G1591) */
757 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[984])), 4,
758 0, 1, 0, SCM_OBJ(&scm__rc.d1563[525]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[530]),
759 SCM_OBJ(&scm__rc.d1565[20]), SCM_FALSE),
760 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-map-dispatch */
761 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[988])), 117,
762 12, 6, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[542]),
763 SCM_OBJ(&scm__rc.d1565[20]), SCM_FALSE),
764 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
765 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1105])), 7,
766 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
767 SCM_FALSE, SCM_FALSE),
768 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (string-map string-map-1) */
769 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1112])), 52,
770 36, 2, 0, SCM_OBJ(&scm__rc.d1563[544]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[546]),
771 SCM_OBJ(&scm__rc.d1565[24]), SCM_FALSE),
772 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (string-map string-map-n) */
773 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1164])), 60,
774 35, 1, 1, SCM_OBJ(&scm__rc.d1563[548]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[550]),
775 SCM_OBJ(&scm__rc.d1565[24]), SCM_FALSE),
776 SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-map */
777 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1224])), 10,
778 9, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[559]),
779 SCM_OBJ(&scm__rc.d1565[24]), SCM_FALSE),
780 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
781 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1234])), 7,
782 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
783 SCM_FALSE, SCM_FALSE),
784 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (string-for-each string-for-each-1) */
785 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1241])), 43,
786 31, 2, 0, SCM_OBJ(&scm__rc.d1563[561]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[562]),
787 SCM_OBJ(&scm__rc.d1565[28]), SCM_FALSE),
788 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (string-for-each string-for-each-n) */
789 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1284])), 52,
790 34, 1, 1, SCM_OBJ(&scm__rc.d1563[564]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[565]),
791 SCM_OBJ(&scm__rc.d1565[28]), SCM_FALSE),
792 SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-for-each */
793 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1336])), 10,
794 9, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[572]),
795 SCM_OBJ(&scm__rc.d1565[28]), SCM_FALSE),
796 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
797 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1346])), 7,
798 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
799 SCM_FALSE, SCM_FALSE),
800 SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-incomplete->complete! */
801 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1353])), 15,
802 15, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[577]),
803 SCM_FALSE, SCM_FALSE),
804 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (complete-sexp? rec-escaped) */
805 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1368])), 26,
806 8, 1, 0, SCM_OBJ(&scm__rc.d1563[629]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[631]),
807 SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE),
808 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (complete-sexp? skip-token) */
809 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1394])), 24,
810 21, 0, 0, SCM_OBJ(&scm__rc.d1563[633]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[634]),
811 SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE),
812 SCM_COMPILED_CODE_CONST_INITIALIZER( /* rec */
813 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1418])), 307,
814 29, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[639]),
815 SCM_OBJ(&scm__rc.d1565[33]), SCM_FALSE),
816 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (complete-sexp? G1597) */
817 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1725])), 10,
818 10, 0, 0, SCM_OBJ(&scm__rc.d1563[636]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[647]),
819 SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE),
820 SCM_COMPILED_CODE_CONST_INITIALIZER( /* complete-sexp? */
821 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1735])), 5,
822 5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[655]),
823 SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE),
824 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
825 (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1740])), 7,
826 6, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
827 SCM_FALSE, SCM_FALSE),
828 },
829 { /* ScmWord d1564 */
830 /* #f */
831 0x0000005e /* 0 (GREF-PUSH) */,
832 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-interpolate.509e0240> */,
833 0x0000003d /* 2 (LREF0) */,
834 0x00002095 /* 3 (TAIL-APPLY 2) */,
835 0x00000014 /* 4 (RET) */,
836 /* %toplevel */
837 0x00000006 /* 0 (CONST-PUSH) */,
838 SCM_WORD(SCM_UNDEFINED) /* string-interpolate */,
839 0x00000016 /* 2 (CLOSURE) */,
840 SCM_WORD(SCM_OBJ(&scm__rc.d1565[0])) /* #<compiled-code #f@0x7fa750ef5240> */,
841 0x00002063 /* 4 (PUSH-GREF-TAIL-CALL 2) */,
842 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-ctor.509e0400> */,
843 0x00000014 /* 6 (RET) */,
844 /* string-split */
845 0x0000003d /* 0 (LREF0) */,
846 0x00000022 /* 1 (BNNULL) */,
847 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 7),
848 0x00000001 /* 3 (CONST) */,
849 SCM_WORD(SCM_UNDEFINED) /* infix */,
850 0x00000013 /* 5 (JUMP) */,
851 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 8),
852 0x0000006a /* 7 (LREF0-CAR) */,
853 0x0000000d /* 8 (PUSH) */,
854 0x0000003d /* 9 (LREF0) */,
855 0x00000022 /* 10 (BNNULL) */,
856 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 15),
857 0x00000003 /* 12 (CONSTN) */,
858 0x00000013 /* 13 (JUMP) */,
859 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 16),
860 0x00000076 /* 15 (LREF0-CDR) */,
861 0x00002018 /* 16 (PUSH-LOCAL-ENV 2) */,
862 0x0000003d /* 17 (LREF0) */,
863 0x00000022 /* 18 (BNNULL) */,
864 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 23),
865 0x00000004 /* 20 (CONSTF) */,
866 0x00000013 /* 21 (JUMP) */,
867 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 24),
868 0x0000006a /* 23 (LREF0-CAR) */,
869 0x0000000d /* 24 (PUSH) */,
870 0x0000003d /* 25 (LREF0) */,
871 0x00000022 /* 26 (BNNULL) */,
872 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 31),
873 0x00000003 /* 28 (CONSTN) */,
874 0x00000013 /* 29 (JUMP) */,
875 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 32),
876 0x00000076 /* 31 (LREF0-CDR) */,
877 0x00002018 /* 32 (PUSH-LOCAL-ENV 2) */,
878 0x0000003d /* 33 (LREF0) */,
879 0x00000022 /* 34 (BNNULL) */,
880 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 39),
881 0x00000005 /* 36 (CONSTU) */,
882 0x00000013 /* 37 (JUMP) */,
883 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 40),
884 0x0000006a /* 39 (LREF0-CAR) */,
885 0x0000000d /* 40 (PUSH) */,
886 0x0000003d /* 41 (LREF0) */,
887 0x00000022 /* 42 (BNNULL) */,
888 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 47),
889 0x00000003 /* 44 (CONSTN) */,
890 0x00000013 /* 45 (JUMP) */,
891 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 48),
892 0x00000076 /* 47 (LREF0-CDR) */,
893 0x00002018 /* 48 (PUSH-LOCAL-ENV 2) */,
894 0x0000003d /* 49 (LREF0) */,
895 0x00000022 /* 50 (BNNULL) */,
896 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 55),
897 0x00000005 /* 52 (CONSTU) */,
898 0x00000013 /* 53 (JUMP) */,
899 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 56),
900 0x0000006a /* 55 (LREF0-CAR) */,
901 0x0000000d /* 56 (PUSH) */,
902 0x0000003d /* 57 (LREF0) */,
903 0x00000022 /* 58 (BNNULL) */,
904 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 63),
905 0x00000003 /* 60 (CONSTN) */,
906 0x00000013 /* 61 (JUMP) */,
907 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 64),
908 0x00000076 /* 63 (LREF0-CDR) */,
909 0x00002018 /* 64 (PUSH-LOCAL-ENV 2) */,
910 0x0000003d /* 65 (LREF0) */,
911 0x00000022 /* 66 (BNNULL) */,
912 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 70),
913 0x00000013 /* 68 (JUMP) */,
914 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 78),
915 0x0000200e /* 70 (PRE-CALL 2) */,
916 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 78),
917 0x00000006 /* 72 (CONST-PUSH) */,
918 SCM_WORD(SCM_OBJ(&scm__sc.d1561[61])) /* "too many arguments for" */,
919 0x00000006 /* 74 (CONST-PUSH) */,
920 SCM_WORD(SCM_OBJ(&scm__rc.d1563[227])) /* (lambda (string splitter :optional (grammar 'infix) (limit #f) start end) (if (or (not grammar) (integer? grammar)) ((with-module gauche.internal %string-split) string splitter 'infix grammar limit start) ((with-module gauche.internal %string-split) string splitter grammar limit start end))) */,
921 0x0000205f /* 76 (GREF-CALL 2) */,
922 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.50d3da20> */,
923 0x0040303c /* 78 (LREF 3 1) */,
924 0x0000001e /* 79 (BF) */,
925 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 88),
926 0x0000100e /* 81 (PRE-CALL 1) */,
927 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 86),
928 0x00403047 /* 83 (LREF-PUSH 3 1) */,
929 0x0000105f /* 84 (GREF-CALL 1) */,
930 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.50d3fc20> */,
931 0x0000001e /* 86 (BF) */,
932 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 98),
933 0x00804047 /* 88 (LREF-PUSH 4 2) */,
934 0x00404047 /* 89 (LREF-PUSH 4 1) */,
935 0x00000006 /* 90 (CONST-PUSH) */,
936 SCM_WORD(SCM_UNDEFINED) /* infix */,
937 0x00403047 /* 92 (LREF-PUSH 3 1) */,
938 0x00000050 /* 93 (LREF21-PUSH) */,
939 0x0000004d /* 94 (LREF11-PUSH) */,
940 0x00006060 /* 95 (GREF-TAIL-CALL 6) */,
941 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%string-split.50d3fba0> */,
942 0x00000014 /* 97 (RET) */,
943 0x00804047 /* 98 (LREF-PUSH 4 2) */,
944 0x00404047 /* 99 (LREF-PUSH 4 1) */,
945 0x00403047 /* 100 (LREF-PUSH 3 1) */,
946 0x00000050 /* 101 (LREF21-PUSH) */,
947 0x0000004d /* 102 (LREF11-PUSH) */,
948 0x00000049 /* 103 (LREF1-PUSH) */,
949 0x00006060 /* 104 (GREF-TAIL-CALL 6) */,
950 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%string-split.50d3fa20> */,
951 0x00000014 /* 106 (RET) */,
952 0x00000013 /* 107 (JUMP) */,
953 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 88),
954 0x00000014 /* 109 (RET) */,
955 /* %string-split */
956 0x0000004b /* 0 (LREF3-PUSH) */,
957 0x00000001 /* 1 (CONST) */,
958 SCM_WORD(SCM_OBJ(&scm__rc.d1563[248])) /* (infix strict-infix prefix suffix) */,
959 0x0000008b /* 3 (MEMQ) */,
960 0x0000001e /* 4 (BF) */,
961 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 8),
962 0x00000013 /* 6 (JUMP) */,
963 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 15),
964 0x0000200e /* 8 (PRE-CALL 2) */,
965 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 15),
966 0x00000006 /* 10 (CONST-PUSH) */,
967 SCM_WORD(SCM_OBJ(&scm__sc.d1561[77])) /* "grammar argument must be one of (infix strict-infix prefix suffix), but got" */,
968 0x0000004b /* 12 (LREF3-PUSH) */,
969 0x0000205f /* 13 (GREF-CALL 2) */,
970 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51eee640> */,
971 0x0000003f /* 15 (LREF2) */,
972 0x0000001e /* 16 (BF) */,
973 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43),
974 0x0000100e /* 18 (PRE-CALL 1) */,
975 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 23),
976 0x0000004a /* 20 (LREF2-PUSH) */,
977 0x0000105f /* 21 (GREF-CALL 1) */,
978 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.51eee4c0> */,
979 0x0000001e /* 23 (BF) */,
980 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 30),
981 0x00000002 /* 25 (CONSTI 0) */,
982 0x0080002c /* 26 (LREF-VAL0-BNGE 0 2) */,
983 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 30),
984 0x00000013 /* 28 (JUMP) */,
985 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43),
986 0x0000200e /* 30 (PRE-CALL 2) */,
987 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43),
988 0x00000006 /* 32 (CONST-PUSH) */,
989 SCM_WORD(SCM_OBJ(&scm__sc.d1561[78])) /* "limit argument must be a nonnegative integer or #f, but got" */,
990 0x0000004a /* 34 (LREF2-PUSH) */,
991 0x0000205f /* 35 (GREF-CALL 2) */,
992 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51eee400> */,
993 0x00000013 /* 37 (JUMP) */,
994 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43),
995 0x00000013 /* 39 (JUMP) */,
996 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 30),
997 0x00000013 /* 41 (JUMP) */,
998 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43),
999 0x0000300e /* 43 (PRE-CALL 3) */,
1000 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 50),
1001 0x01400047 /* 45 (LREF-PUSH 0 5) */,
1002 0x00000049 /* 46 (LREF1-PUSH) */,
1003 0x00000048 /* 47 (LREF0-PUSH) */,
1004 0x0000305f /* 48 (GREF-CALL 3) */,
1005 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%maybe-substring.51eee260> */,
1006 0x00001018 /* 50 (PUSH-LOCAL-ENV 1) */,
1007 0x0000200e /* 51 (PRE-CALL 2) */,
1008 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 58),
1009 0x00000048 /* 53 (LREF0-PUSH) */,
1010 0x00000006 /* 54 (CONST-PUSH) */,
1011 SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */,
1012 0x0000205f /* 56 (GREF-CALL 2) */,
1013 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#equal?.51eee180> */,
1014 0x0000001e /* 58 (BF) */,
1015 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 71),
1016 0x00c0103c /* 60 (LREF 1 3) */,
1017 0x0000002e /* 61 (BNEQC) */,
1018 SCM_WORD(SCM_UNDEFINED) /* strict-infix */,
1019 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 69) /* 69 */,
1020 0x00000006 /* 64 (CONST-PUSH) */,
1021 SCM_WORD(SCM_OBJ(&scm__sc.d1561[81])) /* "string must not be empty with strict-infix grammar" */,
1022 0x00001060 /* 66 (GREF-TAIL-CALL 1) */,
1023 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51ef3fe0> */,
1024 0x00000014 /* 68 (RET) */,
1025 0x00000003 /* 69 (CONSTN) */,
1026 0x00000014 /* 70 (RET) */,
1027 0x0100103c /* 71 (LREF 1 4) */,
1028 0x00000099 /* 72 (CHARP) */,
1029 0x0000001e /* 73 (BF) */,
1030 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 89),
1031 0x0000300e /* 75 (PRE-CALL 3) */,
1032 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 106),
1033 0x00000048 /* 77 (LREF0-PUSH) */,
1034 0x01001047 /* 78 (LREF-PUSH 1 4) */,
1035 0x00000043 /* 79 (LREF12) */,
1036 0x0000001e /* 80 (BF) */,
1037 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 84),
1038 0x00000013 /* 82 (JUMP) */,
1039 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 85),
1040 -0x00000ffe /* 84 (CONSTI -1) */,
1041 0x00003062 /* 85 (PUSH-GREF-CALL 3) */,
1042 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-by-char.51ef3d40> */,
1043 0x00000013 /* 87 (JUMP) */,
1044 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 106),
1045 0x0000300e /* 89 (PRE-CALL 3) */,
1046 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 106),
1047 0x00000048 /* 91 (LREF0-PUSH) */,
1048 0x0000100e /* 92 (PRE-CALL 1) */,
1049 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 97),
1050 0x01001047 /* 94 (LREF-PUSH 1 4) */,
1051 0x0000105f /* 95 (GREF-CALL 1) */,
1052 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-scanner.51ef3b20> */,
1053 0x0000000d /* 97 (PUSH) */,
1054 0x00000043 /* 98 (LREF12) */,
1055 0x0000001e /* 99 (BF) */,
1056 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 103),
1057 0x00000013 /* 101 (JUMP) */,
1058 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 104),
1059 -0x00000ffe /* 103 (CONSTI -1) */,
1060 0x00003062 /* 104 (PUSH-GREF-CALL 3) */,
1061 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-by-scanner.51ef3b80> */,
1062 0x00001018 /* 106 (PUSH-LOCAL-ENV 1) */,
1063 0x00c0203c /* 107 (LREF 2 3) */,
1064 0x0000002e /* 108 (BNEQC) */,
1065 SCM_WORD(SCM_UNDEFINED) /* prefix */,
1066 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 129) /* 129 */,
1067 0x0000003d /* 111 (LREF0) */,
1068 0x00000098 /* 112 (PAIRP) */,
1069 0x0000001e /* 113 (BF) */,
1070 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 128),
1071 0x0000200e /* 115 (PRE-CALL 2) */,
1072 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 123),
1073 0x0000006a /* 117 (LREF0-CAR) */,
1074 0x0000000d /* 118 (PUSH) */,
1075 0x00000006 /* 119 (CONST-PUSH) */,
1076 SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */,
1077 0x0000205f /* 121 (GREF-CALL 2) */,
1078 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#equal?.51ef37c0> */,
1079 0x0000001e /* 123 (BF) */,
1080 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 127),
1081 0x00000076 /* 125 (LREF0-CDR) */,
1082 0x00000014 /* 126 (RET) */,
1083 0x00000053 /* 127 (LREF0-RET) */,
1084 0x00000053 /* 128 (LREF0-RET) */,
1085 0x00c0203c /* 129 (LREF 2 3) */,
1086 0x0000002e /* 130 (BNEQC) */,
1087 SCM_WORD(SCM_UNDEFINED) /* suffix */,
1088 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 158) /* 158 */,
1089 0x0000003d /* 133 (LREF0) */,
1090 0x00000098 /* 134 (PAIRP) */,
1091 0x0000001e /* 135 (BF) */,
1092 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 157),
1093 0x0000200e /* 137 (PRE-CALL 2) */,
1094 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 149),
1095 0x0000100e /* 139 (PRE-CALL 1) */,
1096 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 144),
1097 0x00000048 /* 141 (LREF0-PUSH) */,
1098 0x0000105f /* 142 (GREF-CALL 1) */,
1099 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#last-pair.51ef34a0> */,
1100 0x00000069 /* 144 (CAR-PUSH) */,
1101 0x00000006 /* 145 (CONST-PUSH) */,
1102 SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */,
1103 0x0000205f /* 147 (GREF-CALL 2) */,
1104 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#equal?.51ef3500> */,
1105 0x0000001e /* 149 (BF) */,
1106 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 156),
1107 0x00000048 /* 151 (LREF0-PUSH) */,
1108 0x00001007 /* 152 (CONSTI-PUSH 1) */,
1109 0x00002060 /* 153 (GREF-TAIL-CALL 2) */,
1110 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#drop-right.51ef3420> */,
1111 0x00000014 /* 155 (RET) */,
1112 0x00000053 /* 156 (LREF0-RET) */,
1113 0x00000053 /* 157 (LREF0-RET) */,
1114 0x00000053 /* 158 (LREF0-RET) */,
1115 /* (%string-split-scanner %string-split-scanner) */
1116 0x0000100e /* 0 (PRE-CALL 1) */,
1117 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 5),
1118 0x00000048 /* 2 (LREF0-PUSH) */,
1119 0x0000105f /* 3 (GREF-CALL 1) */,
1120 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-length.51783f60> */,
1121 0x0000000d /* 5 (PUSH) */,
1122 0x00001002 /* 6 (CONSTI 1) */,
1123 0x00000025 /* 7 (BNLE) */,
1124 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 12),
1125 0x00000048 /* 9 (LREF0-PUSH) */,
1126 0x00000004 /* 10 (CONSTF) */,
1127 0x000020a3 /* 11 (VALUES-RET 2) */,
1128 0x0000300e /* 12 (PRE-CALL 3) */,
1129 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 19),
1130 0x00000048 /* 14 (LREF0-PUSH) */,
1131 0x00000007 /* 15 (CONSTI-PUSH 0) */,
1132 0x00001007 /* 16 (CONSTI-PUSH 1) */,
1133 0x0000305f /* 17 (GREF-CALL 3) */,
1134 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.51783e00> */,
1135 0x0000200f /* 19 (PUSH-PRE-CALL 2) */,
1136 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 25),
1137 0x00000048 /* 21 (LREF0-PUSH) */,
1138 0x00001007 /* 22 (CONSTI-PUSH 1) */,
1139 0x0000205f /* 23 (GREF-CALL 2) */,
1140 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.51783d40> */,
1141 0x000020a3 /* 25 (VALUES-RET 2) */,
1142 /* (%string-split-scanner %string-split-scanner) */
1143 0x0000300e /* 0 (PRE-CALL 3) */,
1144 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]) + 8),
1145 0x00000048 /* 2 (LREF0-PUSH) */,
1146 0x0000004c /* 3 (LREF10-PUSH) */,
1147 0x00000006 /* 4 (CONST-PUSH) */,
1148 SCM_WORD(SCM_UNDEFINED) /* both */,
1149 0x0000305f /* 6 (GREF-CALL 3) */,
1150 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-scan.51783a40> */,
1151 0x00002036 /* 8 (TAIL-RECEIVE 2 0) */,
1152 0x0000003e /* 9 (LREF1) */,
1153 0x0000001e /* 10 (BF) */,
1154 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]) + 15),
1155 0x00000049 /* 12 (LREF1-PUSH) */,
1156 0x0000003d /* 13 (LREF0) */,
1157 0x000020a3 /* 14 (VALUES-RET 2) */,
1158 0x0000004c /* 15 (LREF10-PUSH) */,
1159 0x00000004 /* 16 (CONSTF) */,
1160 0x000020a3 /* 17 (VALUES-RET 2) */,
1161 /* (%string-split-scanner #f) */
1162 0x0000004c /* 0 (LREF10-PUSH) */,
1163 0x00000048 /* 1 (LREF0-PUSH) */,
1164 0x00002060 /* 2 (GREF-TAIL-CALL 2) */,
1165 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#char-set-contains?.51784ec0> */,
1166 0x00000014 /* 4 (RET) */,
1167 /* (%string-split-scanner %string-split-scanner) */
1168 0x0000200e /* 0 (PRE-CALL 2) */,
1169 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 6),
1170 0x0000004c /* 2 (LREF10-PUSH) */,
1171 0x00000048 /* 3 (LREF0-PUSH) */,
1172 0x0000205f /* 4 (GREF-CALL 2) */,
1173 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#rxmatch.5178aae0> */,
1174 0x00001018 /* 6 (PUSH-LOCAL-ENV 1) */,
1175 0x0000003d /* 7 (LREF0) */,
1176 0x0000001e /* 8 (BF) */,
1177 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 60),
1178 0x0000100e /* 10 (PRE-CALL 1) */,
1179 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 16),
1180 0x00000006 /* 12 (CONST-PUSH) */,
1181 SCM_WORD(SCM_UNDEFINED) /* before */,
1182 0x0000003d /* 14 (LREF0) */,
1183 0x00001011 /* 15 (CALL 1) */,
1184 0x0000100f /* 16 (PUSH-PRE-CALL 1) */,
1185 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 22),
1186 0x00000006 /* 18 (CONST-PUSH) */,
1187 SCM_WORD(SCM_UNDEFINED) /* after */,
1188 0x0000003d /* 20 (LREF0) */,
1189 0x00001011 /* 21 (CALL 1) */,
1190 0x00002018 /* 22 (PUSH-LOCAL-ENV 2) */,
1191 0x0000200e /* 23 (PRE-CALL 2) */,
1192 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 29),
1193 0x0000004f /* 25 (LREF20-PUSH) */,
1194 0x00000048 /* 26 (LREF0-PUSH) */,
1195 0x0000205f /* 27 (GREF-CALL 2) */,
1196 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string=?.5178a3a0> */,
1197 0x0000001e /* 29 (BF) */,
1198 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 57),
1199 0x0000100e /* 31 (PRE-CALL 1) */,
1200 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 36),
1201 0x0000004f /* 33 (LREF20-PUSH) */,
1202 0x0000105f /* 34 (GREF-CALL 1) */,
1203 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-length.5178a2e0> */,
1204 0x0000000d /* 36 (PUSH) */,
1205 0x00001002 /* 37 (CONSTI 1) */,
1206 0x00000025 /* 38 (BNLE) */,
1207 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 43),
1208 0x0000004f /* 40 (LREF20-PUSH) */,
1209 0x00000004 /* 41 (CONSTF) */,
1210 0x000020a3 /* 42 (VALUES-RET 2) */,
1211 0x0000300e /* 43 (PRE-CALL 3) */,
1212 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 50),
1213 0x0000004f /* 45 (LREF20-PUSH) */,
1214 0x00000007 /* 46 (CONSTI-PUSH 0) */,
1215 0x00001007 /* 47 (CONSTI-PUSH 1) */,
1216 0x0000305f /* 48 (GREF-CALL 3) */,
1217 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.5178d960> */,
1218 0x0000200f /* 50 (PUSH-PRE-CALL 2) */,
1219 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 56),
1220 0x0000004f /* 52 (LREF20-PUSH) */,
1221 0x00001007 /* 53 (CONSTI-PUSH 1) */,
1222 0x0000205f /* 54 (GREF-CALL 2) */,
1223 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.5178d840> */,
1224 0x000020a3 /* 56 (VALUES-RET 2) */,
1225 0x00000049 /* 57 (LREF1-PUSH) */,
1226 0x0000003d /* 58 (LREF0) */,
1227 0x000020a3 /* 59 (VALUES-RET 2) */,
1228 0x0000004c /* 60 (LREF10-PUSH) */,
1229 0x00000004 /* 61 (CONSTF) */,
1230 0x000020a3 /* 62 (VALUES-RET 2) */,
1231 /* %string-split-scanner */
1232 0x0000003d /* 0 (LREF0) */,
1233 0x0000009b /* 1 (STRINGP) */,
1234 0x0000001e /* 2 (BF) */,
1235 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 17),
1236 0x0000200e /* 4 (PRE-CALL 2) */,
1237 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 11),
1238 0x00000048 /* 6 (LREF0-PUSH) */,
1239 0x00000006 /* 7 (CONST-PUSH) */,
1240 SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */,
1241 0x0000205f /* 9 (GREF-CALL 2) */,
1242 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string=?.51782180> */,
1243 0x0000001e /* 11 (BF) */,
1244 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 14),
1245 0x00000057 /* 13 (LREF10-RET) */,
1246 0x00000016 /* 14 (CLOSURE) */,
1247 SCM_WORD(SCM_OBJ(&scm__rc.d1565[5])) /* #<compiled-code (%string-split-scanner %string-split-scanner)@0x7fa753f3d0c0> */,
1248 0x00000014 /* 16 (RET) */,
1249 0x0000100e /* 17 (PRE-CALL 1) */,
1250 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 22),
1251 0x00000048 /* 19 (LREF0-PUSH) */,
1252 0x0000105f /* 20 (GREF-CALL 1) */,
1253 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#char-set?.517836e0> */,
1254 0x0000001e /* 22 (BF) */,
1255 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 29),
1256 0x00000016 /* 24 (CLOSURE) */,
1257 SCM_WORD(SCM_OBJ(&scm__rc.d1565[6])) /* #<compiled-code (%string-split-scanner #f)@0x7fa75272ef60> */,
1258 0x00001063 /* 26 (PUSH-GREF-TAIL-CALL 1) */,
1259 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-scanner-each-char.51783660> */,
1260 0x00000014 /* 28 (RET) */,
1261 0x0000100e /* 29 (PRE-CALL 1) */,
1262 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 34),
1263 0x00000048 /* 31 (LREF0-PUSH) */,
1264 0x0000105f /* 32 (GREF-CALL 1) */,
1265 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#regexp?.51784e20> */,
1266 0x0000001e /* 34 (BF) */,
1267 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 39),
1268 0x00000016 /* 36 (CLOSURE) */,
1269 SCM_WORD(SCM_OBJ(&scm__rc.d1565[7])) /* #<compiled-code (%string-split-scanner %string-split-scanner)@0x7fa75272e9c0> */,
1270 0x00000014 /* 38 (RET) */,
1271 0x00000048 /* 39 (LREF0-PUSH) */,
1272 0x00001060 /* 40 (GREF-TAIL-CALL 1) */,
1273 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-scanner-each-char.5178d340> */,
1274 0x00000014 /* 42 (RET) */,
1275 /* %toplevel */
1276 0x00001019 /* 0 (LOCAL-ENV-CLOSURES 1) */,
1277 SCM_WORD(SCM_OBJ(&scm__rc.d1563[262])) /* (#<compiled-code (%string-split-scanner %string-split-scanner)@0x7fa753f3d360>) */,
1278 0x00000016 /* 2 (CLOSURE) */,
1279 SCM_WORD(SCM_OBJ(&scm__rc.d1565[8])) /* #<compiled-code %string-split-scanner@0x7fa753f3d240> */,
1280 0x00000015 /* 4 (DEFINE 0) */,
1281 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-scanner.51782400> */,
1282 0x00000014 /* 6 (RET) */,
1283 /* (%string-split-scanner-each-char %string-split-scanner-each-char) */
1284 0x00000048 /* 0 (LREF0-PUSH) */,
1285 0x0000100e /* 1 (PRE-CALL 1) */,
1286 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 6),
1287 0x00000048 /* 3 (LREF0-PUSH) */,
1288 0x0000105f /* 4 (GREF-CALL 1) */,
1289 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.50efefe0> */,
1290 0x0000100f /* 6 (PUSH-PRE-CALL 1) */,
1291 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 11),
1292 0x00000048 /* 8 (LREF0-PUSH) */,
1293 0x0000105f /* 9 (GREF-CALL 1) */,
1294 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-end.50efef80> */,
1295 0x00003018 /* 11 (PUSH-LOCAL-ENV 3) */,
1296 0x0000200e /* 12 (PRE-CALL 2) */,
1297 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 18),
1298 0x00000049 /* 14 (LREF1-PUSH) */,
1299 0x00000048 /* 15 (LREF0-PUSH) */,
1300 0x0000205f /* 16 (GREF-CALL 2) */,
1301 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.50eef940> */,
1302 0x0000001e /* 18 (BF) */,
1303 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 35),
1304 0x0000300e /* 20 (PRE-CALL 3) */,
1305 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 32),
1306 0x0000004a /* 22 (LREF2-PUSH) */,
1307 0x0000100e /* 23 (PRE-CALL 1) */,
1308 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 28),
1309 0x0000004a /* 25 (LREF2-PUSH) */,
1310 0x0000105f /* 26 (GREF-CALL 1) */,
1311 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.50eefaa0> */,
1312 0x0000000d /* 28 (PUSH) */,
1313 0x00000049 /* 29 (LREF1-PUSH) */,
1314 0x0000305f /* 30 (GREF-CALL 3) */,
1315 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#substring.50eefb00> */,
1316 0x0000000d /* 32 (PUSH) */,
1317 0x00000004 /* 33 (CONSTF) */,
1318 0x000020a3 /* 34 (VALUES-RET 2) */,
1319 0x0000100e /* 35 (PRE-CALL 1) */,
1320 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 46),
1321 0x0000200e /* 37 (PRE-CALL 2) */,
1322 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 43),
1323 0x0000004a /* 39 (LREF2-PUSH) */,
1324 0x00000049 /* 40 (LREF1-PUSH) */,
1325 0x0000205f /* 41 (GREF-CALL 2) */,
1326 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.50eef7e0> */,
1327 0x0000000d /* 43 (PUSH) */,
1328 0x00000044 /* 44 (LREF20) */,
1329 0x00001011 /* 45 (CALL 1) */,
1330 0x0000001e /* 46 (BF) */,
1331 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 118),
1332 0x0000004a /* 48 (LREF2-PUSH) */,
1333 0x0000200e /* 49 (PRE-CALL 2) */,
1334 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 55),
1335 0x0000004a /* 51 (LREF2-PUSH) */,
1336 0x00000049 /* 52 (LREF1-PUSH) */,
1337 0x0000205f /* 53 (GREF-CALL 2) */,
1338 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.50eef720> */,
1339 0x0000000d /* 55 (PUSH) */,
1340 0x00000048 /* 56 (LREF0-PUSH) */,
1341 0x0000300e /* 57 (PRE-CALL 3) */,
1342 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 69),
1343 0x0000004a /* 59 (LREF2-PUSH) */,
1344 0x0000100e /* 60 (PRE-CALL 1) */,
1345 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 65),
1346 0x0000004a /* 62 (LREF2-PUSH) */,
1347 0x0000105f /* 63 (GREF-CALL 1) */,
1348 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.50eefaa0> */,
1349 0x0000000d /* 65 (PUSH) */,
1350 0x00000049 /* 66 (LREF1-PUSH) */,
1351 0x0000305f /* 67 (GREF-CALL 3) */,
1352 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#substring.50eefb00> */,
1353 0x00004018 /* 69 (PUSH-LOCAL-ENV 4) */,
1354 0x0000200e /* 70 (PRE-CALL 2) */,
1355 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 76),
1356 0x0000004a /* 72 (LREF2-PUSH) */,
1357 0x00000049 /* 73 (LREF1-PUSH) */,
1358 0x0000205f /* 74 (GREF-CALL 2) */,
1359 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.50eef420> */,
1360 0x0000001e /* 76 (BF) */,
1361 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 82),
1362 0x00000048 /* 78 (LREF0-PUSH) */,
1363 0x00000001 /* 79 (CONST) */,
1364 SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */,
1365 0x000020a3 /* 81 (VALUES-RET 2) */,
1366 0x0000100e /* 82 (PRE-CALL 1) */,
1367 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 93),
1368 0x0000200e /* 84 (PRE-CALL 2) */,
1369 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 90),
1370 0x0000004b /* 86 (LREF3-PUSH) */,
1371 0x0000004a /* 87 (LREF2-PUSH) */,
1372 0x0000205f /* 88 (GREF-CALL 2) */,
1373 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.50eef300> */,
1374 0x0000000d /* 90 (PUSH) */,
1375 0x00000046 /* 91 (LREF30) */,
1376 0x00001011 /* 92 (CALL 1) */,
1377 0x0000001e /* 93 (BF) */,
1378 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 108),
1379 0x0000004b /* 95 (LREF3-PUSH) */,
1380 0x0000200e /* 96 (PRE-CALL 2) */,
1381 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 102),
1382 0x0000004b /* 98 (LREF3-PUSH) */,
1383 0x0000004a /* 99 (LREF2-PUSH) */,
1384 0x0000205f /* 100 (GREF-CALL 2) */,
1385 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.50eef240> */,
1386 0x0000000d /* 102 (PUSH) */,
1387 0x00000049 /* 103 (LREF1-PUSH) */,
1388 0x00000048 /* 104 (LREF0-PUSH) */,
1389 0x0000101b /* 105 (LOCAL-ENV-JUMP 1) */,
1390 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 70),
1391 0x00000014 /* 107 (RET) */,
1392 0x00000048 /* 108 (LREF0-PUSH) */,
1393 0x0000300e /* 109 (PRE-CALL 3) */,
1394 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 116),
1395 0x0000004b /* 111 (LREF3-PUSH) */,
1396 0x0000004a /* 112 (LREF2-PUSH) */,
1397 0x00000049 /* 113 (LREF1-PUSH) */,
1398 0x0000305f /* 114 (GREF-CALL 3) */,
1399 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#substring.50eef100> */,
1400 0x000020a3 /* 116 (VALUES-RET 2) */,
1401 0x00000014 /* 117 (RET) */,
1402 0x0000004a /* 118 (LREF2-PUSH) */,
1403 0x0000200e /* 119 (PRE-CALL 2) */,
1404 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 125),
1405 0x0000004a /* 121 (LREF2-PUSH) */,
1406 0x00000049 /* 122 (LREF1-PUSH) */,
1407 0x0000205f /* 123 (GREF-CALL 2) */,
1408 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.50eef5a0> */,
1409 0x0000000d /* 125 (PUSH) */,
1410 0x00000048 /* 126 (LREF0-PUSH) */,
1411 0x0000101b /* 127 (LOCAL-ENV-JUMP 1) */,
1412 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 12),
1413 0x00000014 /* 129 (RET) */,
1414 0x00000014 /* 130 (RET) */,
1415 /* %string-split-scanner-each-char */
1416 0x00000016 /* 0 (CLOSURE) */,
1417 SCM_WORD(SCM_OBJ(&scm__rc.d1565[10])) /* #<compiled-code (%string-split-scanner-each-char %string-split-scanner-each-char)@0x7fa752001360> */,
1418 0x00000014 /* 2 (RET) */,
1419 /* %string-split-by-scanner */
1420 0x0000004a /* 0 (LREF2-PUSH) */,
1421 0x00000008 /* 1 (CONSTN-PUSH) */,
1422 0x00000048 /* 2 (LREF0-PUSH) */,
1423 0x00003017 /* 3 (LOCAL-ENV 3) */,
1424 0x0000003d /* 4 (LREF0) */,
1425 0x0000002d /* 5 (BNUMNEI 0) */,
1426 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 13),
1427 0x0000004a /* 7 (LREF2-PUSH) */,
1428 0x0000003e /* 8 (LREF1) */,
1429 0x00000067 /* 9 (CONS-PUSH) */,
1430 0x00001060 /* 10 (GREF-TAIL-CALL 1) */,
1431 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#reverse!.51ec5ca0> */,
1432 0x00000014 /* 12 (RET) */,
1433 0x0000100e /* 13 (PRE-CALL 1) */,
1434 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 18),
1435 0x0000004a /* 15 (LREF2-PUSH) */,
1436 0x00000042 /* 16 (LREF11) */,
1437 0x00001011 /* 17 (CALL 1) */,
1438 0x00002036 /* 18 (TAIL-RECEIVE 2 0) */,
1439 0x0000003d /* 19 (LREF0) */,
1440 0x0000001e /* 20 (BF) */,
1441 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 30),
1442 0x00000048 /* 22 (LREF0-PUSH) */,
1443 0x00000049 /* 23 (LREF1-PUSH) */,
1444 0x00000042 /* 24 (LREF11) */,
1445 0x00000067 /* 25 (CONS-PUSH) */,
1446 -0x00000f35 /* 26 (LREF10-NUMADDI-PUSH -1) */,
1447 0x0000201b /* 27 (LOCAL-ENV-JUMP 2) */,
1448 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 4),
1449 0x00000014 /* 29 (RET) */,
1450 0x00000049 /* 30 (LREF1-PUSH) */,
1451 0x00000042 /* 31 (LREF11) */,
1452 0x00000067 /* 32 (CONS-PUSH) */,
1453 0x00001060 /* 33 (GREF-TAIL-CALL 1) */,
1454 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#reverse!.51ec59c0> */,
1455 0x00000014 /* 35 (RET) */,
1456 0x00000014 /* 36 (RET) */,
1457 /* string-set! */
1458 0x0000003f /* 0 (LREF2) */,
1459 0x0000009b /* 1 (STRINGP) */,
1460 0x0000001e /* 2 (BF) */,
1461 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 6),
1462 0x00000013 /* 4 (JUMP) */,
1463 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 15),
1464 0x0000300e /* 6 (PRE-CALL 3) */,
1465 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 15),
1466 0x00000006 /* 8 (CONST-PUSH) */,
1467 SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1468 0x00000006 /* 10 (CONST-PUSH) */,
1469 SCM_WORD(SCM_UNDEFINED) /* arg */,
1470 0x0000004a /* 12 (LREF2-PUSH) */,
1471 0x0000305f /* 13 (GREF-CALL 3) */,
1472 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5140f4a0> */,
1473 0x0000003d /* 15 (LREF0) */,
1474 0x00000099 /* 16 (CHARP) */,
1475 0x0000001e /* 17 (BF) */,
1476 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 21),
1477 0x00000013 /* 19 (JUMP) */,
1478 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 30),
1479 0x0000300e /* 21 (PRE-CALL 3) */,
1480 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 30),
1481 0x00000006 /* 23 (CONST-PUSH) */,
1482 SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1483 0x00000006 /* 25 (CONST-PUSH) */,
1484 SCM_WORD(SCM_UNDEFINED) /* arg */,
1485 0x00000048 /* 27 (LREF0-PUSH) */,
1486 0x0000305f /* 28 (GREF-CALL 3) */,
1487 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5140f0e0> */,
1488 0x0000200e /* 30 (PRE-CALL 2) */,
1489 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 36),
1490 0x0000004a /* 32 (LREF2-PUSH) */,
1491 0x00000049 /* 33 (LREF1-PUSH) */,
1492 0x0000205f /* 34 (GREF-CALL 2) */,
1493 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-index->cursor.514168c0> */,
1494 0x00001018 /* 36 (PUSH-LOCAL-ENV 1) */,
1495 0x0000004e /* 37 (LREF12-PUSH) */,
1496 0x0000300e /* 38 (PRE-CALL 3) */,
1497 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 65),
1498 0x0000300e /* 40 (PRE-CALL 3) */,
1499 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 47),
1500 0x0000004e /* 42 (LREF12-PUSH) */,
1501 0x00000007 /* 43 (CONSTI-PUSH 0) */,
1502 0x00000048 /* 44 (LREF0-PUSH) */,
1503 0x0000305f /* 45 (GREF-CALL 3) */,
1504 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#substring.514165a0> */,
1505 0x0000100f /* 47 (PUSH-PRE-CALL 1) */,
1506 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 52),
1507 0x0000004c /* 49 (LREF10-PUSH) */,
1508 0x0000105f /* 50 (GREF-CALL 1) */,
1509 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string.514164a0> */,
1510 0x0000200f /* 52 (PUSH-PRE-CALL 2) */,
1511 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 63),
1512 0x0000004e /* 54 (LREF12-PUSH) */,
1513 0x0000200e /* 55 (PRE-CALL 2) */,
1514 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 61),
1515 0x0000004e /* 57 (LREF12-PUSH) */,
1516 0x0000004d /* 58 (LREF11-PUSH) */,
1517 0x0000205f /* 59 (GREF-CALL 2) */,
1518 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.514163c0> */,
1519 0x00002062 /* 61 (PUSH-GREF-CALL 2) */,
1520 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.51416440> */,
1521 0x00003062 /* 63 (PUSH-GREF-CALL 3) */,
1522 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-append.514165e0> */,
1523 0x00002063 /* 65 (PUSH-GREF-TAIL-CALL 2) */,
1524 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-replace-body!.51416640> */,
1525 0x00000014 /* 67 (RET) */,
1526 /* %toplevel */
1527 0x0000005e /* 0 (GREF-PUSH) */,
1528 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.516c1520> */,
1529 0x0000005e /* 2 (GREF-PUSH) */,
1530 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-set!.516c14e0> */,
1531 0x0000005d /* 4 (GREF) */,
1532 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#setter.516c1560> */,
1533 0x000000a1 /* 6 (SETTER) */,
1534 0x00002012 /* 7 (TAIL-CALL 2) */,
1535 0x00000014 /* 8 (RET) */,
1536 /* string-byte-set! */
1537 0x0000003f /* 0 (LREF2) */,
1538 0x0000009b /* 1 (STRINGP) */,
1539 0x0000001e /* 2 (BF) */,
1540 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 6),
1541 0x00000013 /* 4 (JUMP) */,
1542 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 15),
1543 0x0000300e /* 6 (PRE-CALL 3) */,
1544 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 15),
1545 0x00000006 /* 8 (CONST-PUSH) */,
1546 SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1547 0x00000006 /* 10 (CONST-PUSH) */,
1548 SCM_WORD(SCM_UNDEFINED) /* arg */,
1549 0x0000004a /* 12 (LREF2-PUSH) */,
1550 0x0000305f /* 13 (GREF-CALL 3) */,
1551 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5171bb00> */,
1552 0x0000100e /* 15 (PRE-CALL 1) */,
1553 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 20),
1554 0x00000049 /* 17 (LREF1-PUSH) */,
1555 0x0000105f /* 18 (GREF-CALL 1) */,
1556 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.5171b560> */,
1557 0x0000001e /* 20 (BF) */,
1558 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 24),
1559 0x00000013 /* 22 (JUMP) */,
1560 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 33),
1561 0x0000300e /* 24 (PRE-CALL 3) */,
1562 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 33),
1563 0x00000006 /* 26 (CONST-PUSH) */,
1564 SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1565 0x00000006 /* 28 (CONST-PUSH) */,
1566 SCM_WORD(SCM_UNDEFINED) /* arg */,
1567 0x00000049 /* 30 (LREF1-PUSH) */,
1568 0x0000305f /* 31 (GREF-CALL 3) */,
1569 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5171b7a0> */,
1570 0x0000100e /* 33 (PRE-CALL 1) */,
1571 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 38),
1572 0x00000049 /* 35 (LREF1-PUSH) */,
1573 0x0000105f /* 36 (GREF-CALL 1) */,
1574 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.5171b240> */,
1575 0x0000001e /* 38 (BF) */,
1576 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 42),
1577 0x00000013 /* 40 (JUMP) */,
1578 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 51),
1579 0x0000300e /* 42 (PRE-CALL 3) */,
1580 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 51),
1581 0x00000006 /* 44 (CONST-PUSH) */,
1582 SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1583 0x00000006 /* 46 (CONST-PUSH) */,
1584 SCM_WORD(SCM_UNDEFINED) /* arg */,
1585 0x00000049 /* 48 (LREF1-PUSH) */,
1586 0x0000305f /* 49 (GREF-CALL 3) */,
1587 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5171b360> */,
1588 0x0000100e /* 51 (PRE-CALL 1) */,
1589 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 56),
1590 0x00000048 /* 53 (LREF0-PUSH) */,
1591 0x0000105f /* 54 (GREF-CALL 1) */,
1592 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.5171fe20> */,
1593 0x0000001e /* 56 (BF) */,
1594 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 60),
1595 0x00000013 /* 58 (JUMP) */,
1596 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 69),
1597 0x0000300e /* 60 (PRE-CALL 3) */,
1598 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 69),
1599 0x00000006 /* 62 (CONST-PUSH) */,
1600 SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1601 0x00000006 /* 64 (CONST-PUSH) */,
1602 SCM_WORD(SCM_UNDEFINED) /* arg */,
1603 0x00000048 /* 66 (LREF0-PUSH) */,
1604 0x0000305f /* 67 (GREF-CALL 3) */,
1605 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5171ffe0> */,
1606 0x0000100e /* 69 (PRE-CALL 1) */,
1607 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 74),
1608 0x0000004a /* 71 (LREF2-PUSH) */,
1609 0x0000105f /* 72 (GREF-CALL 1) */,
1610 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-size.5171fc00> */,
1611 0x0000200f /* 74 (PUSH-PRE-CALL 2) */,
1612 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 82),
1613 0x00000006 /* 76 (CONST-PUSH) */,
1614 SCM_WORD(SCM_UNDEFINED) /* :private? */,
1615 0x00000006 /* 78 (CONST-PUSH) */,
1616 SCM_WORD(SCM_TRUE) /* #t */,
1617 0x0000205f /* 80 (GREF-CALL 2) */,
1618 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.5171fb80> */,
1619 0x00002018 /* 82 (PUSH-LOCAL-ENV 2) */,
1620 0x00000002 /* 83 (CONSTI 0) */,
1621 0x00401029 /* 84 (LREF-VAL0-BNLT 1 1) */,
1622 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 95),
1623 0x0000200e /* 86 (PRE-CALL 2) */,
1624 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102),
1625 0x00000006 /* 88 (CONST-PUSH) */,
1626 SCM_WORD(SCM_OBJ(&scm__sc.d1561[113])) /* "string index out of range:" */,
1627 0x0000004d /* 90 (LREF11-PUSH) */,
1628 0x0000205f /* 91 (GREF-CALL 2) */,
1629 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.5171f860> */,
1630 0x00000013 /* 93 (JUMP) */,
1631 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102),
1632 0x00000042 /* 95 (LREF11) */,
1633 0x0040002a /* 96 (LREF-VAL0-BNLE 0 1) */,
1634 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102),
1635 0x00000013 /* 98 (JUMP) */,
1636 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 86),
1637 0x00000013 /* 100 (JUMP) */,
1638 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102),
1639 0x0000200e /* 102 (PRE-CALL 2) */,
1640 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 115),
1641 0x0000300e /* 104 (PRE-CALL 3) */,
1642 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 111),
1643 0x0000004e /* 106 (LREF12-PUSH) */,
1644 0x00000007 /* 107 (CONSTI-PUSH 0) */,
1645 0x0000004d /* 108 (LREF11-PUSH) */,
1646 0x0000305f /* 109 (GREF-CALL 3) */,
1647 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-substring.5171f700> */,
1648 0x0000000d /* 111 (PUSH) */,
1649 0x00000048 /* 112 (LREF0-PUSH) */,
1650 0x0000205f /* 113 (GREF-CALL 2) */,
1651 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.5171f7e0> */,
1652 0x0000200e /* 115 (PRE-CALL 2) */,
1653 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 121),
1654 0x0000004c /* 117 (LREF10-PUSH) */,
1655 0x00000048 /* 118 (LREF0-PUSH) */,
1656 0x0000205f /* 119 (GREF-CALL 2) */,
1657 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-byte.5171f640> */,
1658 0x0000200e /* 121 (PRE-CALL 2) */,
1659 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 134),
1660 0x0000300e /* 123 (PRE-CALL 3) */,
1661 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 130),
1662 0x0000004e /* 125 (LREF12-PUSH) */,
1663 0x000010cc /* 126 (LREF11-NUMADDI-PUSH 1) */,
1664 0x00000049 /* 127 (LREF1-PUSH) */,
1665 0x0000305f /* 128 (GREF-CALL 3) */,
1666 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-substring.5171f500> */,
1667 0x0000000d /* 130 (PUSH) */,
1668 0x00000048 /* 131 (LREF0-PUSH) */,
1669 0x0000205f /* 132 (GREF-CALL 2) */,
1670 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.5171f5a0> */,
1671 0x0000004e /* 134 (LREF12-PUSH) */,
1672 0x0000100e /* 135 (PRE-CALL 1) */,
1673 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 140),
1674 0x00000048 /* 137 (LREF0-PUSH) */,
1675 0x0000105f /* 138 (GREF-CALL 1) */,
1676 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-byte-string.5171f2e0> */,
1677 0x00002063 /* 140 (PUSH-GREF-TAIL-CALL 2) */,
1678 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-replace-body!.5171f360> */,
1679 0x00000014 /* 142 (RET) */,
1680 /* %toplevel */
1681 0x0000005e /* 0 (GREF-PUSH) */,
1682 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-byte-ref.512f7500> */,
1683 0x0000005e /* 2 (GREF-PUSH) */,
1684 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-byte-set!.512f74c0> */,
1685 0x0000005d /* 4 (GREF) */,
1686 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#setter.512f7540> */,
1687 0x000000a1 /* 6 (SETTER) */,
1688 0x00002012 /* 7 (TAIL-CALL 2) */,
1689 0x00000014 /* 8 (RET) */,
1690 /* string-fill! */
1691 0x0000003d /* 0 (LREF0) */,
1692 0x00000022 /* 1 (BNNULL) */,
1693 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 6),
1694 0x00000002 /* 3 (CONSTI 0) */,
1695 0x00000013 /* 4 (JUMP) */,
1696 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 7),
1697 0x0000006a /* 6 (LREF0-CAR) */,
1698 0x0000000d /* 7 (PUSH) */,
1699 0x0000003d /* 8 (LREF0) */,
1700 0x00000022 /* 9 (BNNULL) */,
1701 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 14),
1702 0x00000003 /* 11 (CONSTN) */,
1703 0x00000013 /* 12 (JUMP) */,
1704 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 15),
1705 0x00000076 /* 14 (LREF0-CDR) */,
1706 0x00002018 /* 15 (PUSH-LOCAL-ENV 2) */,
1707 0x0000003d /* 16 (LREF0) */,
1708 0x00000022 /* 17 (BNNULL) */,
1709 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 26),
1710 0x0000100e /* 19 (PRE-CALL 1) */,
1711 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 27),
1712 0x0000004e /* 21 (LREF12-PUSH) */,
1713 0x0000105f /* 22 (GREF-CALL 1) */,
1714 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-length.513e5680> */,
1715 0x00000013 /* 24 (JUMP) */,
1716 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 27),
1717 0x0000006a /* 26 (LREF0-CAR) */,
1718 0x0000000d /* 27 (PUSH) */,
1719 0x0000003d /* 28 (LREF0) */,
1720 0x00000022 /* 29 (BNNULL) */,
1721 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 34),
1722 0x00000003 /* 31 (CONSTN) */,
1723 0x00000013 /* 32 (JUMP) */,
1724 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 35),
1725 0x00000076 /* 34 (LREF0-CDR) */,
1726 0x00002018 /* 35 (PUSH-LOCAL-ENV 2) */,
1727 0x0000003d /* 36 (LREF0) */,
1728 0x00000022 /* 37 (BNNULL) */,
1729 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 41),
1730 0x00000013 /* 39 (JUMP) */,
1731 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 49),
1732 0x0000200e /* 41 (PRE-CALL 2) */,
1733 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 49),
1734 0x00000006 /* 43 (CONST-PUSH) */,
1735 SCM_WORD(SCM_OBJ(&scm__sc.d1561[61])) /* "too many arguments for" */,
1736 0x00000006 /* 45 (CONST-PUSH) */,
1737 SCM_WORD(SCM_OBJ(&scm__rc.d1563[407])) /* (lambda (str c :optional (start 0) (end (string-length str))) (let ((start (string-index->cursor str start)) (end (string-index->cursor str end)) (istart (string-cursor->index str start)) (iend (string-cursor->index str end)) (len (string-length str))) (when (< iend istart) (errorf "end index ~s is smaller than start index ~s" iend istart)) (if (and (= istart 0) (= iend len)) (%string-replace-body! str (make-string len c)) (%string-replace-body! str (string-append (substring str 0 start) (make-string (- iend istart) c) (string-copy str end)))))) */,
1738 0x0000205f /* 47 (GREF-CALL 2) */,
1739 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.513e53e0> */,
1740 0x0000200e /* 49 (PRE-CALL 2) */,
1741 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 55),
1742 0x00802047 /* 51 (LREF-PUSH 2 2) */,
1743 0x0000004d /* 52 (LREF11-PUSH) */,
1744 0x0000205f /* 53 (GREF-CALL 2) */,
1745 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-index->cursor.513fc080> */,
1746 0x0000200f /* 55 (PUSH-PRE-CALL 2) */,
1747 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 61),
1748 0x00802047 /* 57 (LREF-PUSH 2 2) */,
1749 0x00000049 /* 58 (LREF1-PUSH) */,
1750 0x0000205f /* 59 (GREF-CALL 2) */,
1751 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-index->cursor.513fc000> */,
1752 0x0000200f /* 61 (PUSH-PRE-CALL 2) */,
1753 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 67),
1754 0x00802047 /* 63 (LREF-PUSH 2 2) */,
1755 0x0000004d /* 64 (LREF11-PUSH) */,
1756 0x0000205f /* 65 (GREF-CALL 2) */,
1757 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor->index.513fef60> */,
1758 0x0000200f /* 67 (PUSH-PRE-CALL 2) */,
1759 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 73),
1760 0x00802047 /* 69 (LREF-PUSH 2 2) */,
1761 0x00000049 /* 70 (LREF1-PUSH) */,
1762 0x0000205f /* 71 (GREF-CALL 2) */,
1763 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor->index.513feec0> */,
1764 0x0000100f /* 73 (PUSH-PRE-CALL 1) */,
1765 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 78),
1766 0x00802047 /* 75 (LREF-PUSH 2 2) */,
1767 0x0000105f /* 76 (GREF-CALL 1) */,
1768 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-length.513fee00> */,
1769 0x00005018 /* 78 (PUSH-LOCAL-ENV 5) */,
1770 0x0000003f /* 79 (LREF2) */,
1771 0x00400029 /* 80 (LREF-VAL0-BNLT 0 1) */,
1772 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 92),
1773 0x0000300e /* 82 (PRE-CALL 3) */,
1774 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 92),
1775 0x00000006 /* 84 (CONST-PUSH) */,
1776 SCM_WORD(SCM_OBJ(&scm__sc.d1561[127])) /* "end index ~s is smaller than start index ~s" */,
1777 0x00000049 /* 86 (LREF1-PUSH) */,
1778 0x0000004a /* 87 (LREF2-PUSH) */,
1779 0x0000305f /* 88 (GREF-CALL 3) */,
1780 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#errorf.513fed00> */,
1781 0x00000013 /* 90 (JUMP) */,
1782 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 92),
1783 0x0000003f /* 92 (LREF2) */,
1784 0x0000002d /* 93 (BNUMNEI 0) */,
1785 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 108),
1786 0x0000003d /* 95 (LREF0) */,
1787 0x00400028 /* 96 (LREF-VAL0-BNUMNE 0 1) */,
1788 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 108),
1789 0x00803047 /* 98 (LREF-PUSH 3 2) */,
1790 0x0000200e /* 99 (PRE-CALL 2) */,
1791 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 105),
1792 0x00000048 /* 101 (LREF0-PUSH) */,
1793 0x00403047 /* 102 (LREF-PUSH 3 1) */,
1794 0x0000205f /* 103 (GREF-CALL 2) */,
1795 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-string.513fea40> */,
1796 0x00002063 /* 105 (PUSH-GREF-TAIL-CALL 2) */,
1797 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-replace-body!.513feac0> */,
1798 0x00000014 /* 107 (RET) */,
1799 0x00803047 /* 108 (LREF-PUSH 3 2) */,
1800 0x0000300e /* 109 (PRE-CALL 3) */,
1801 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 135),
1802 0x0000300e /* 111 (PRE-CALL 3) */,
1803 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 118),
1804 0x00803047 /* 113 (LREF-PUSH 3 2) */,
1805 0x00000007 /* 114 (CONSTI-PUSH 0) */,
1806 0x01000047 /* 115 (LREF-PUSH 0 4) */,
1807 0x0000305f /* 116 (GREF-CALL 3) */,
1808 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#substring.513fe8e0> */,
1809 0x0000200f /* 118 (PUSH-PRE-CALL 2) */,
1810 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 127),
1811 0x00000049 /* 120 (LREF1-PUSH) */,
1812 0x0000003f /* 121 (LREF2) */,
1813 0x000000b3 /* 122 (NUMSUB2) */,
1814 0x0000000d /* 123 (PUSH) */,
1815 0x00403047 /* 124 (LREF-PUSH 3 1) */,
1816 0x0000205f /* 125 (GREF-CALL 2) */,
1817 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-string.513fe840> */,
1818 0x0000200f /* 127 (PUSH-PRE-CALL 2) */,
1819 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 133),
1820 0x00803047 /* 129 (LREF-PUSH 3 2) */,
1821 0x0000004b /* 130 (LREF3-PUSH) */,
1822 0x0000205f /* 131 (GREF-CALL 2) */,
1823 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.513fe720> */,
1824 0x00003062 /* 133 (PUSH-GREF-CALL 3) */,
1825 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-append.513fe920> */,
1826 0x00002063 /* 135 (PUSH-GREF-TAIL-CALL 2) */,
1827 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-replace-body!.513fe980> */,
1828 0x00000014 /* 137 (RET) */,
1829 0x00000013 /* 138 (JUMP) */,
1830 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 108),
1831 0x00000014 /* 140 (RET) */,
1832 /* (%string-map-dispatch G1591) */
1833 0x0000003d /* 0 (LREF0) */,
1834 0x0000009b /* 1 (STRINGP) */,
1835 0x00000092 /* 2 (NOT) */,
1836 0x00000014 /* 3 (RET) */,
1837 /* %string-map-dispatch */
1838 0x0000003f /* 0 (LREF2) */,
1839 0x00000022 /* 1 (BNNULL) */,
1840 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 8),
1841 0x01000047 /* 3 (LREF-PUSH 0 4) */,
1842 0x0000004b /* 4 (LREF3-PUSH) */,
1843 0x0000003e /* 5 (LREF1) */,
1844 0x00002012 /* 6 (TAIL-CALL 2) */,
1845 0x00000014 /* 7 (RET) */,
1846 0x0000100e /* 8 (PRE-CALL 1) */,
1847 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 13),
1848 0x0000006c /* 10 (LREF2-CAR) */,
1849 0x00001062 /* 11 (PUSH-GREF-CALL 1) */,
1850 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.51183d20> */,
1851 0x0000001e /* 13 (BF) */,
1852 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 78),
1853 0x00000078 /* 15 (LREF2-CDR) */,
1854 0x00000022 /* 16 (BNNULL) */,
1855 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 31),
1856 0x01000047 /* 18 (LREF-PUSH 0 4) */,
1857 0x0000300e /* 19 (PRE-CALL 3) */,
1858 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 27),
1859 0x0000004b /* 21 (LREF3-PUSH) */,
1860 0x0000006c /* 22 (LREF2-CAR) */,
1861 0x0000000d /* 23 (PUSH) */,
1862 0x00000005 /* 24 (CONSTU) */,
1863 0x00003062 /* 25 (PUSH-GREF-CALL 3) */,
1864 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%maybe-substring.51183b00> */,
1865 0x0000000d /* 27 (PUSH) */,
1866 0x0000003e /* 28 (LREF1) */,
1867 0x00002012 /* 29 (TAIL-CALL 2) */,
1868 0x00000014 /* 30 (RET) */,
1869 0x0000100e /* 31 (PRE-CALL 1) */,
1870 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 37),
1871 0x0000003f /* 33 (LREF2) */,
1872 0x00000083 /* 34 (CADR-PUSH) */,
1873 0x0000105f /* 35 (GREF-CALL 1) */,
1874 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.511839e0> */,
1875 0x0000001e /* 37 (BF) */,
1876 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 63),
1877 0x0000003f /* 39 (LREF2) */,
1878 0x00000086 /* 40 (CDDR) */,
1879 0x00000022 /* 41 (BNNULL) */,
1880 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 57),
1881 0x01000047 /* 43 (LREF-PUSH 0 4) */,
1882 0x0000300e /* 44 (PRE-CALL 3) */,
1883 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 53),
1884 0x0000004b /* 46 (LREF3-PUSH) */,
1885 0x0000006c /* 47 (LREF2-CAR) */,
1886 0x0000000d /* 48 (PUSH) */,
1887 0x0000003f /* 49 (LREF2) */,
1888 0x00000083 /* 50 (CADR-PUSH) */,
1889 0x0000305f /* 51 (GREF-CALL 3) */,
1890 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%maybe-substring.511837a0> */,
1891 0x0000000d /* 53 (PUSH) */,
1892 0x0000003e /* 54 (LREF1) */,
1893 0x00002012 /* 55 (TAIL-CALL 2) */,
1894 0x00000014 /* 56 (RET) */,
1895 0x00000006 /* 57 (CONST-PUSH) */,
1896 SCM_WORD(SCM_OBJ(&scm__sc.d1561[147])) /* "Too many arguments for srfi-13 style ~a" */,
1897 0x01400047 /* 59 (LREF-PUSH 0 5) */,
1898 0x00002060 /* 60 (GREF-TAIL-CALL 2) */,
1899 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#errorf.511835e0> */,
1900 0x00000014 /* 62 (RET) */,
1901 0x0000100e /* 63 (PRE-CALL 1) */,
1902 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 69),
1903 0x0000003f /* 65 (LREF2) */,
1904 0x00000083 /* 66 (CADR-PUSH) */,
1905 0x0000105f /* 67 (GREF-CALL 1) */,
1906 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor?.51183960> */,
1907 0x0000001f /* 69 (BT) */,
1908 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 39),
1909 0x00000006 /* 71 (CONST-PUSH) */,
1910 SCM_WORD(SCM_OBJ(&scm__sc.d1561[149])) /* "Integer or string-cursor expected, but got:" */,
1911 0x0000003f /* 73 (LREF2) */,
1912 0x00000083 /* 74 (CADR-PUSH) */,
1913 0x00002060 /* 75 (GREF-TAIL-CALL 2) */,
1914 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51183560> */,
1915 0x00000014 /* 77 (RET) */,
1916 0x0000100e /* 78 (PRE-CALL 1) */,
1917 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 83),
1918 0x0000006c /* 80 (LREF2-CAR) */,
1919 0x00001062 /* 81 (PUSH-GREF-CALL 1) */,
1920 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor?.51183ca0> */,
1921 0x0000001f /* 83 (BT) */,
1922 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 15),
1923 0x0000006c /* 85 (LREF2-CAR) */,
1924 0x0000009b /* 86 (STRINGP) */,
1925 0x0000001e /* 87 (BF) */,
1926 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 111),
1927 0x0000200e /* 89 (PRE-CALL 2) */,
1928 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 95),
1929 0x0000004c /* 91 (LREF10-PUSH) */,
1930 0x00000078 /* 92 (LREF2-CDR) */,
1931 0x00002062 /* 93 (PUSH-GREF-CALL 2) */,
1932 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#find.51183340> */,
1933 0x00001018 /* 95 (PUSH-LOCAL-ENV 1) */,
1934 0x0000003d /* 96 (LREF0) */,
1935 0x0000001e /* 97 (BF) */,
1936 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 105),
1937 0x00000006 /* 99 (CONST-PUSH) */,
1938 SCM_WORD(SCM_OBJ(&scm__sc.d1561[151])) /* "string expected, but got:" */,
1939 0x00000048 /* 101 (LREF0-PUSH) */,
1940 0x00002060 /* 102 (GREF-TAIL-CALL 2) */,
1941 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51183160> */,
1942 0x00000014 /* 104 (RET) */,
1943 0x0000004c /* 105 (LREF10-PUSH) */,
1944 0x01001047 /* 106 (LREF-PUSH 1 4) */,
1945 0x00c01047 /* 107 (LREF-PUSH 1 3) */,
1946 0x00000043 /* 108 (LREF12) */,
1947 0x00004095 /* 109 (TAIL-APPLY 4) */,
1948 0x00000014 /* 110 (RET) */,
1949 0x00000006 /* 111 (CONST-PUSH) */,
1950 SCM_WORD(SCM_OBJ(&scm__sc.d1561[151])) /* "string expected, but got:" */,
1951 0x0000006c /* 113 (LREF2-CAR) */,
1952 0x00002063 /* 114 (PUSH-GREF-TAIL-CALL 2) */,
1953 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51183000> */,
1954 0x00000014 /* 116 (RET) */,
1955 /* %toplevel */
1956 0x00001019 /* 0 (LOCAL-ENV-CLOSURES 1) */,
1957 SCM_WORD(SCM_OBJ(&scm__rc.d1563[531])) /* (#<compiled-code (%string-map-dispatch #:G1591)@0x7fa7518ac3c0>) */,
1958 0x00000016 /* 2 (CLOSURE) */,
1959 SCM_WORD(SCM_OBJ(&scm__rc.d1565[19])) /* #<compiled-code %string-map-dispatch@0x7fa7518ac360> */,
1960 0x00000015 /* 4 (DEFINE 0) */,
1961 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-map-dispatch.5117b4c0> */,
1962 0x00000014 /* 6 (RET) */,
1963 /* (string-map string-map-1) */
1964 0x0000100e /* 0 (PRE-CALL 1) */,
1965 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 5),
1966 0x00000048 /* 2 (LREF0-PUSH) */,
1967 0x0000105f /* 3 (GREF-CALL 1) */,
1968 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.50909460> */,
1969 0x00001018 /* 5 (PUSH-LOCAL-ENV 1) */,
1970 0x0000100e /* 6 (PRE-CALL 1) */,
1971 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 11),
1972 0x0000004c /* 8 (LREF10-PUSH) */,
1973 0x0000105f /* 9 (GREF-CALL 1) */,
1974 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-end.50910fa0> */,
1975 0x0000000d /* 11 (PUSH) */,
1976 0x00000008 /* 12 (CONSTN-PUSH) */,
1977 0x00002017 /* 13 (LOCAL-ENV 2) */,
1978 0x0000200e /* 14 (PRE-CALL 2) */,
1979 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 20),
1980 0x00000049 /* 16 (LREF1-PUSH) */,
1981 0x0000004c /* 17 (LREF10-PUSH) */,
1982 0x0000205f /* 18 (GREF-CALL 2) */,
1983 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.50909380> */,
1984 0x0000001e /* 20 (BF) */,
1985 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 26),
1986 0x00000048 /* 22 (LREF0-PUSH) */,
1987 0x00001060 /* 23 (GREF-TAIL-CALL 1) */,
1988 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#list->string.50909300> */,
1989 0x00000014 /* 25 (RET) */,
1990 0x0000200e /* 26 (PRE-CALL 2) */,
1991 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 32),
1992 0x0000004f /* 28 (LREF20-PUSH) */,
1993 0x00000049 /* 29 (LREF1-PUSH) */,
1994 0x0000205f /* 30 (GREF-CALL 2) */,
1995 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-prev.50909160> */,
1996 0x00001018 /* 32 (PUSH-LOCAL-ENV 1) */,
1997 0x00000048 /* 33 (LREF0-PUSH) */,
1998 0x0000100e /* 34 (PRE-CALL 1) */,
1999 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 45),
2000 0x0000200e /* 36 (PRE-CALL 2) */,
2001 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 42),
2002 0x00000051 /* 38 (LREF30-PUSH) */,
2003 0x00000048 /* 39 (LREF0-PUSH) */,
2004 0x0000205f /* 40 (GREF-CALL 2) */,
2005 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.50909060> */,
2006 0x0000000d /* 42 (PUSH) */,
2007 0x0040303c /* 43 (LREF 3 1) */,
2008 0x00001011 /* 44 (CALL 1) */,
2009 0x0000000d /* 45 (PUSH) */,
2010 0x00000041 /* 46 (LREF10) */,
2011 0x00000067 /* 47 (CONS-PUSH) */,
2012 0x0000201b /* 48 (LOCAL-ENV-JUMP 2) */,
2013 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 14),
2014 0x00000014 /* 50 (RET) */,
2015 0x00000014 /* 51 (RET) */,
2016 /* (string-map string-map-n) */
2017 0x0000200e /* 0 (PRE-CALL 2) */,
2018 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 7),
2019 0x0000005e /* 2 (GREF-PUSH) */,
2020 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-end.50910ce0> */,
2021 0x00000048 /* 4 (LREF0-PUSH) */,
2022 0x0000205f /* 5 (GREF-CALL 2) */,
2023 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.50910d20> */,
2024 0x00001018 /* 7 (PUSH-LOCAL-ENV 1) */,
2025 0x0000200e /* 8 (PRE-CALL 2) */,
2026 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 15),
2027 0x0000005e /* 10 (GREF-PUSH) */,
2028 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.509107e0> */,
2029 0x0000004c /* 12 (LREF10-PUSH) */,
2030 0x0000205f /* 13 (GREF-CALL 2) */,
2031 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.50910820> */,
2032 0x0000000d /* 15 (PUSH) */,
2033 0x00000008 /* 16 (CONSTN-PUSH) */,
2034 0x00002017 /* 17 (LOCAL-ENV 2) */,
2035 0x0000300e /* 18 (PRE-CALL 3) */,
2036 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 26),
2037 0x0000005e /* 20 (GREF-PUSH) */,
2038 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.50910bc0> */,
2039 0x00000049 /* 22 (LREF1-PUSH) */,
2040 0x0000004c /* 23 (LREF10-PUSH) */,
2041 0x0000305f /* 24 (GREF-CALL 3) */,
2042 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#any.50910c00> */,
2043 0x0000001e /* 26 (BF) */,
2044 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 33),
2045 0x0000003d /* 28 (LREF0) */,
2046 0x00000093 /* 29 (REVERSE) */,
2047 0x00001063 /* 30 (PUSH-GREF-TAIL-CALL 1) */,
2048 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#list->string.50910b40> */,
2049 0x00000014 /* 32 (RET) */,
2050 0x0000300e /* 33 (PRE-CALL 3) */,
2051 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 41),
2052 0x0000005e /* 35 (GREF-PUSH) */,
2053 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.50910a00> */,
2054 0x0000004f /* 37 (LREF20-PUSH) */,
2055 0x00000049 /* 38 (LREF1-PUSH) */,
2056 0x0000305f /* 39 (GREF-CALL 3) */,
2057 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.50910aa0> */,
2058 0x0000000f /* 41 (PUSH-PRE-CALL 0) */,
2059 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 53),
2060 0x00000050 /* 43 (LREF21-PUSH) */,
2061 0x0000300e /* 44 (PRE-CALL 3) */,
2062 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 52),
2063 0x0000005e /* 46 (GREF-PUSH) */,
2064 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.509108e0> */,
2065 0x0000004f /* 48 (LREF20-PUSH) */,
2066 0x00000049 /* 49 (LREF1-PUSH) */,
2067 0x0000305f /* 50 (GREF-CALL 3) */,
2068 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.50910920> */,
2069 0x00002095 /* 52 (TAIL-APPLY 2) */,
2070 0x0000000d /* 53 (PUSH) */,
2071 0x0000003d /* 54 (LREF0) */,
2072 0x00000067 /* 55 (CONS-PUSH) */,
2073 0x0000101b /* 56 (LOCAL-ENV-JUMP 1) */,
2074 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 18),
2075 0x00000014 /* 58 (RET) */,
2076 0x00000014 /* 59 (RET) */,
2077 /* string-map */
2078 0x00000006 /* 0 (CONST-PUSH) */,
2079 SCM_WORD(SCM_UNDEFINED) /* string-map */,
2080 0x0000004a /* 2 (LREF2-PUSH) */,
2081 0x00000049 /* 3 (LREF1-PUSH) */,
2082 0x00000048 /* 4 (LREF0-PUSH) */,
2083 0x0000004d /* 5 (LREF11-PUSH) */,
2084 0x0000004c /* 6 (LREF10-PUSH) */,
2085 0x00006060 /* 7 (GREF-TAIL-CALL 6) */,
2086 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%string-map-dispatch.509106e0> */,
2087 0x00000014 /* 9 (RET) */,
2088 /* %toplevel */
2089 0x00002019 /* 0 (LOCAL-ENV-CLOSURES 2) */,
2090 SCM_WORD(SCM_OBJ(&scm__rc.d1563[552])) /* (#<compiled-code (string-map string-map-1)@0x7fa7518b7180> #<compiled-code (string-map string-map-n)@0x7fa7518b7000>) */,
2091 0x00000016 /* 2 (CLOSURE) */,
2092 SCM_WORD(SCM_OBJ(&scm__rc.d1565[23])) /* #<compiled-code string-map@0x7fa7518fcde0> */,
2093 0x00000015 /* 4 (DEFINE 0) */,
2094 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-map.509096a0> */,
2095 0x00000014 /* 6 (RET) */,
2096 /* (string-for-each string-for-each-1) */
2097 0x0000100e /* 0 (PRE-CALL 1) */,
2098 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 5),
2099 0x00000048 /* 2 (LREF0-PUSH) */,
2100 0x0000105f /* 3 (GREF-CALL 1) */,
2101 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-end.52869d80> */,
2102 0x00001018 /* 5 (PUSH-LOCAL-ENV 1) */,
2103 0x0000100e /* 6 (PRE-CALL 1) */,
2104 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 11),
2105 0x0000004c /* 8 (LREF10-PUSH) */,
2106 0x0000105f /* 9 (GREF-CALL 1) */,
2107 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.528694c0> */,
2108 0x00001018 /* 11 (PUSH-LOCAL-ENV 1) */,
2109 0x0000200e /* 12 (PRE-CALL 2) */,
2110 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 18),
2111 0x00000048 /* 14 (LREF0-PUSH) */,
2112 0x0000004c /* 15 (LREF10-PUSH) */,
2113 0x0000205f /* 16 (GREF-CALL 2) */,
2114 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.52869bc0> */,
2115 0x0000001e /* 18 (BF) */,
2116 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 21),
2117 0x0000000c /* 20 (CONSTU-RET) */,
2118 0x0000100e /* 21 (PRE-CALL 1) */,
2119 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 32),
2120 0x0000200e /* 23 (PRE-CALL 2) */,
2121 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 29),
2122 0x0000004f /* 25 (LREF20-PUSH) */,
2123 0x00000048 /* 26 (LREF0-PUSH) */,
2124 0x0000205f /* 27 (GREF-CALL 2) */,
2125 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.52869a00> */,
2126 0x0000000d /* 29 (PUSH) */,
2127 0x00000045 /* 30 (LREF21) */,
2128 0x00001011 /* 31 (CALL 1) */,
2129 0x0000200e /* 32 (PRE-CALL 2) */,
2130 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 38),
2131 0x0000004f /* 34 (LREF20-PUSH) */,
2132 0x00000048 /* 35 (LREF0-PUSH) */,
2133 0x0000205f /* 36 (GREF-CALL 2) */,
2134 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.52869860> */,
2135 0x0000000d /* 38 (PUSH) */,
2136 0x0000101b /* 39 (LOCAL-ENV-JUMP 1) */,
2137 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 12),
2138 0x00000014 /* 41 (RET) */,
2139 0x00000014 /* 42 (RET) */,
2140 /* (string-for-each string-for-each-n) */
2141 0x0000200e /* 0 (PRE-CALL 2) */,
2142 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 7),
2143 0x0000005e /* 2 (GREF-PUSH) */,
2144 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-end.5286afe0> */,
2145 0x00000048 /* 4 (LREF0-PUSH) */,
2146 0x0000205f /* 5 (GREF-CALL 2) */,
2147 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.52869040> */,
2148 0x00001018 /* 7 (PUSH-LOCAL-ENV 1) */,
2149 0x0000200e /* 8 (PRE-CALL 2) */,
2150 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 15),
2151 0x0000005e /* 10 (GREF-PUSH) */,
2152 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.5286a8a0> */,
2153 0x0000004c /* 12 (LREF10-PUSH) */,
2154 0x0000205f /* 13 (GREF-CALL 2) */,
2155 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.5286a8e0> */,
2156 0x00001018 /* 15 (PUSH-LOCAL-ENV 1) */,
2157 0x0000300e /* 16 (PRE-CALL 3) */,
2158 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 24),
2159 0x0000005e /* 18 (GREF-PUSH) */,
2160 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.5286aca0> */,
2161 0x00000048 /* 20 (LREF0-PUSH) */,
2162 0x0000004c /* 21 (LREF10-PUSH) */,
2163 0x0000305f /* 22 (GREF-CALL 3) */,
2164 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#any.5286ace0> */,
2165 0x0000001e /* 24 (BF) */,
2166 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 27),
2167 0x0000000c /* 26 (CONSTU-RET) */,
2168 0x0000000e /* 27 (PRE-CALL 0) */,
2169 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 39),
2170 0x00000050 /* 29 (LREF21-PUSH) */,
2171 0x0000300e /* 30 (PRE-CALL 3) */,
2172 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 38),
2173 0x0000005e /* 32 (GREF-PUSH) */,
2174 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.5286aa80> */,
2175 0x0000004f /* 34 (LREF20-PUSH) */,
2176 0x00000048 /* 35 (LREF0-PUSH) */,
2177 0x0000305f /* 36 (GREF-CALL 3) */,
2178 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.5286aac0> */,
2179 0x00002095 /* 38 (TAIL-APPLY 2) */,
2180 0x0000300e /* 39 (PRE-CALL 3) */,
2181 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 47),
2182 0x0000005e /* 41 (GREF-PUSH) */,
2183 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.5286a9a0> */,
2184 0x0000004f /* 43 (LREF20-PUSH) */,
2185 0x00000048 /* 44 (LREF0-PUSH) */,
2186 0x0000305f /* 45 (GREF-CALL 3) */,
2187 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.5286a9e0> */,
2188 0x0000000d /* 47 (PUSH) */,
2189 0x0000101b /* 48 (LOCAL-ENV-JUMP 1) */,
2190 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 16),
2191 0x00000014 /* 50 (RET) */,
2192 0x00000014 /* 51 (RET) */,
2193 /* string-for-each */
2194 0x00000006 /* 0 (CONST-PUSH) */,
2195 SCM_WORD(SCM_UNDEFINED) /* string-for-each */,
2196 0x0000004a /* 2 (LREF2-PUSH) */,
2197 0x00000049 /* 3 (LREF1-PUSH) */,
2198 0x00000048 /* 4 (LREF0-PUSH) */,
2199 0x0000004d /* 5 (LREF11-PUSH) */,
2200 0x0000004c /* 6 (LREF10-PUSH) */,
2201 0x00006060 /* 7 (GREF-TAIL-CALL 6) */,
2202 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%string-map-dispatch.5286a820> */,
2203 0x00000014 /* 9 (RET) */,
2204 /* %toplevel */
2205 0x00002019 /* 0 (LOCAL-ENV-CLOSURES 2) */,
2206 SCM_WORD(SCM_OBJ(&scm__rc.d1563[567])) /* (#<compiled-code (string-for-each string-for-each-1)@0x7fa7518fcae0> #<compiled-code (string-for-each string-for-each-n)@0x7fa7518fc720>) */,
2207 0x00000016 /* 2 (CLOSURE) */,
2208 SCM_WORD(SCM_OBJ(&scm__rc.d1565[27])) /* #<compiled-code string-for-each@0x7fa7518fc5a0> */,
2209 0x00000015 /* 4 (DEFINE 0) */,
2210 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-for-each.52865620> */,
2211 0x00000014 /* 6 (RET) */,
2212 /* string-incomplete->complete! */
2213 0x0000100e /* 0 (PRE-CALL 1) */,
2214 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]) + 5),
2215 0x00000048 /* 2 (LREF0-PUSH) */,
2216 0x0000105f /* 3 (GREF-CALL 1) */,
2217 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-incomplete->complete.51515f40> */,
2218 0x00001018 /* 5 (PUSH-LOCAL-ENV 1) */,
2219 0x0000003d /* 6 (LREF0) */,
2220 0x00000030 /* 7 (RF) */,
2221 0x0000200e /* 8 (PRE-CALL 2) */,
2222 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]) + 14),
2223 0x0000004c /* 10 (LREF10-PUSH) */,
2224 0x00000048 /* 11 (LREF0-PUSH) */,
2225 0x0000205f /* 12 (GREF-CALL 2) */,
2226 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%string-replace-body!.51515e60> */,
2227 0x00000053 /* 14 (LREF0-RET) */,
2228 /* (complete-sexp? rec-escaped) */
2229 0x000000db /* 0 (READ-CHAR 0) */,
2230 0x00001018 /* 1 (PUSH-LOCAL-ENV 1) */,
2231 0x0000003d /* 2 (LREF0) */,
2232 0x0000009a /* 3 (EOFP) */,
2233 0x0000001e /* 4 (BF) */,
2234 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1368]) + 7),
2235 0x0000000b /* 6 (CONSTF-RET) */,
2236 0x0000004c /* 7 (LREF10-PUSH) */,
2237 0x0000003d /* 8 (LREF0) */,
2238 0x00000021 /* 9 (BNEQV) */,
2239 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1368]) + 13),
2240 0x0000000a /* 11 (CONST-RET) */,
2241 SCM_WORD(SCM_TRUE) /* #t */,
2242 0x0000003d /* 13 (LREF0) */,
2243 0x0000002f /* 14 (BNEQVC) */,
2244 SCM_WORD(SCM_MAKE_CHAR(92)) /* #\\ */,
2245 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1368]) + 22) /* 22 */,
2246 0x000000db /* 17 (READ-CHAR 0) */,
2247 0x0000004c /* 18 (LREF10-PUSH) */,
2248 0x0080203c /* 19 (LREF 2 2) */,
2249 0x0000101d /* 20 (LOCAL-ENV-TAIL-CALL 1) */,
2250 0x00000014 /* 21 (RET) */,
2251 0x0000004c /* 22 (LREF10-PUSH) */,
2252 0x0080203c /* 23 (LREF 2 2) */,
2253 0x0000101d /* 24 (LOCAL-ENV-TAIL-CALL 1) */,
2254 0x00000014 /* 25 (RET) */,
2255 /* (complete-sexp? skip-token) */
2256 0x000000dc /* 0 (PEEK-CHAR 0) */,
2257 0x00001018 /* 1 (PUSH-LOCAL-ENV 1) */,
2258 0x0000003d /* 2 (LREF0) */,
2259 0x0000009a /* 3 (EOFP) */,
2260 0x0000001e /* 4 (BF) */,
2261 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 7),
2262 0x0000000c /* 6 (CONSTU-RET) */,
2263 0x0000200e /* 7 (PRE-CALL 2) */,
2264 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 14),
2265 0x00000006 /* 9 (CONST-PUSH) */,
2266 SCM_WORD(SCM_UNDEFINED) /* #[\u0000- "'-),;\[-\]`{-}\u007f] */,
2267 0x00000048 /* 11 (LREF0-PUSH) */,
2268 0x0000205f /* 12 (GREF-CALL 2) */,
2269 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#char-set-contains?.5125eae0> */,
2270 0x0000001e /* 14 (BF) */,
2271 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 17),
2272 0x0000000c /* 16 (CONSTU-RET) */,
2273 0x000000db /* 17 (READ-CHAR 0) */,
2274 0x000000dc /* 18 (PEEK-CHAR 0) */,
2275 0x0000000d /* 19 (PUSH) */,
2276 0x0000101b /* 20 (LOCAL-ENV-JUMP 1) */,
2277 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 2),
2278 0x00000014 /* 22 (RET) */,
2279 0x00000014 /* 23 (RET) */,
2280 /* ((complete-sexp? G1597) rec) */
2281 0x000000db /* 0 (READ-CHAR 0) */,
2282 0x00001018 /* 1 (PUSH-LOCAL-ENV 1) */,
2283 0x0000003d /* 2 (LREF0) */,
2284 0x0000009a /* 3 (EOFP) */,
2285 0x0000001e /* 4 (BF) */,
2286 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 12),
2287 0x00000041 /* 6 (LREF10) */,
2288 0x0000001e /* 7 (BF) */,
2289 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 10),
2290 0x0000000b /* 9 (CONSTF-RET) */,
2291 0x0000000a /* 10 (CONST-RET) */,
2292 SCM_WORD(SCM_TRUE) /* #t */,
2293 0x0000004c /* 12 (LREF10-PUSH) */,
2294 0x0000003d /* 13 (LREF0) */,
2295 0x00000021 /* 14 (BNEQV) */,
2296 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 18),
2297 0x0000000a /* 16 (CONST-RET) */,
2298 SCM_WORD(SCM_TRUE) /* #t */,
2299 0x0000003d /* 18 (LREF0) */,
2300 0x0000002f /* 19 (BNEQVC) */,
2301 SCM_WORD(SCM_MAKE_CHAR(40)) /* #\( */,
2302 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 33) /* 33 */,
2303 0x0000100e /* 22 (PRE-CALL 1) */,
2304 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 28),
2305 0x00000006 /* 24 (CONST-PUSH) */,
2306 SCM_WORD(SCM_MAKE_CHAR(41)) /* #\) */,
2307 0x0080203c /* 26 (LREF 2 2) */,
2308 0x0000101c /* 27 (LOCAL-ENV-CALL 1) */,
2309 0x00000030 /* 28 (RF) */,
2310 0x0000004c /* 29 (LREF10-PUSH) */,
2311 0x0080203c /* 30 (LREF 2 2) */,
2312 0x0000101d /* 31 (LOCAL-ENV-TAIL-CALL 1) */,
2313 0x00000014 /* 32 (RET) */,
2314 0x0000003d /* 33 (LREF0) */,
2315 0x0000002f /* 34 (BNEQVC) */,
2316 SCM_WORD(SCM_MAKE_CHAR(91)) /* #\[ */,
2317 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 48) /* 48 */,
2318 0x0000100e /* 37 (PRE-CALL 1) */,
2319 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 43),
2320 0x00000006 /* 39 (CONST-PUSH) */,
2321 SCM_WORD(SCM_MAKE_CHAR(93)) /* #\] */,
2322 0x0080203c /* 41 (LREF 2 2) */,
2323 0x0000101c /* 42 (LOCAL-ENV-CALL 1) */,
2324 0x00000030 /* 43 (RF) */,
2325 0x0000004c /* 44 (LREF10-PUSH) */,
2326 0x0080203c /* 45 (LREF 2 2) */,
2327 0x0000101d /* 46 (LOCAL-ENV-TAIL-CALL 1) */,
2328 0x00000014 /* 47 (RET) */,
2329 0x0000003d /* 48 (LREF0) */,
2330 0x0000002f /* 49 (BNEQVC) */,
2331 SCM_WORD(SCM_MAKE_CHAR(123)) /* #\{ */,
2332 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 63) /* 63 */,
2333 0x0000100e /* 52 (PRE-CALL 1) */,
2334 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 58),
2335 0x00000006 /* 54 (CONST-PUSH) */,
2336 SCM_WORD(SCM_MAKE_CHAR(125)) /* #\} */,
2337 0x0080203c /* 56 (LREF 2 2) */,
2338 0x0000101c /* 57 (LOCAL-ENV-CALL 1) */,
2339 0x00000030 /* 58 (RF) */,
2340 0x0000004c /* 59 (LREF10-PUSH) */,
2341 0x0080203c /* 60 (LREF 2 2) */,
2342 0x0000101d /* 61 (LOCAL-ENV-TAIL-CALL 1) */,
2343 0x00000014 /* 62 (RET) */,
2344 0x0000003d /* 63 (LREF0) */,
2345 0x0000002f /* 64 (BNEQVC) */,
2346 SCM_WORD(SCM_MAKE_CHAR(34)) /* #\" */,
2347 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 78) /* 78 */,
2348 0x0000100e /* 67 (PRE-CALL 1) */,
2349 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 73),
2350 0x00000006 /* 69 (CONST-PUSH) */,
2351 SCM_WORD(SCM_MAKE_CHAR(34)) /* #\" */,
2352 0x0080303c /* 71 (LREF 3 2) */,
2353 0x0000101c /* 72 (LOCAL-ENV-CALL 1) */,
2354 0x00000030 /* 73 (RF) */,
2355 0x0000004c /* 74 (LREF10-PUSH) */,
2356 0x0080203c /* 75 (LREF 2 2) */,
2357 0x0000101d /* 76 (LOCAL-ENV-TAIL-CALL 1) */,
2358 0x00000014 /* 77 (RET) */,
2359 0x0000003d /* 78 (LREF0) */,
2360 0x0000002f /* 79 (BNEQVC) */,
2361 SCM_WORD(SCM_MAKE_CHAR(124)) /* #\| */,
2362 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 93) /* 93 */,
2363 0x0000100e /* 82 (PRE-CALL 1) */,
2364 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 88),
2365 0x00000006 /* 84 (CONST-PUSH) */,
2366 SCM_WORD(SCM_MAKE_CHAR(124)) /* #\| */,
2367 0x0080303c /* 86 (LREF 3 2) */,
2368 0x0000101c /* 87 (LOCAL-ENV-CALL 1) */,
2369 0x00000030 /* 88 (RF) */,
2370 0x0000004c /* 89 (LREF10-PUSH) */,
2371 0x0080203c /* 90 (LREF 2 2) */,
2372 0x0000101d /* 91 (LOCAL-ENV-TAIL-CALL 1) */,
2373 0x00000014 /* 92 (RET) */,
2374 0x0000003d /* 93 (LREF0) */,
2375 0x0000002f /* 94 (BNEQVC) */,
2376 SCM_WORD(SCM_MAKE_CHAR(59)) /* #\; */,
2377 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 120) /* 120 */,
2378 0x0000100e /* 97 (PRE-CALL 1) */,
2379 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 116),
2380 0x000000db /* 99 (READ-CHAR 0) */,
2381 0x00001018 /* 100 (PUSH-LOCAL-ENV 1) */,
2382 0x0000003d /* 101 (LREF0) */,
2383 0x0000009a /* 102 (EOFP) */,
2384 0x0000001e /* 103 (BF) */,
2385 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 106),
2386 0x0000000c /* 105 (CONSTU-RET) */,
2387 0x0000003d /* 106 (LREF0) */,
2388 0x0000002f /* 107 (BNEQVC) */,
2389 SCM_WORD(SCM_MAKE_CHAR(10)) /* #\newline */,
2390 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 111) /* 111 */,
2391 0x0000000c /* 110 (CONSTU-RET) */,
2392 0x000000db /* 111 (READ-CHAR 0) */,
2393 0x0000000d /* 112 (PUSH) */,
2394 0x0000101b /* 113 (LOCAL-ENV-JUMP 1) */,
2395 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 101),
2396 0x00000014 /* 115 (RET) */,
2397 0x0000004c /* 116 (LREF10-PUSH) */,
2398 0x0080203c /* 117 (LREF 2 2) */,
2399 0x0000101d /* 118 (LOCAL-ENV-TAIL-CALL 1) */,
2400 0x00000014 /* 119 (RET) */,
2401 0x0000003d /* 120 (LREF0) */,
2402 0x0000002f /* 121 (BNEQVC) */,
2403 SCM_WORD(SCM_MAKE_CHAR(35)) /* #\# */,
2404 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 303) /* 303 */,
2405 0x000000db /* 124 (READ-CHAR 0) */,
2406 0x00001018 /* 125 (PUSH-LOCAL-ENV 1) */,
2407 0x0000003d /* 126 (LREF0) */,
2408 0x0000009a /* 127 (EOFP) */,
2409 0x0000001e /* 128 (BF) */,
2410 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 131),
2411 0x0000000b /* 130 (CONSTF-RET) */,
2412 0x0000003d /* 131 (LREF0) */,
2413 0x0000002f /* 132 (BNEQVC) */,
2414 SCM_WORD(SCM_MAKE_CHAR(92)) /* #\\ */,
2415 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 147) /* 147 */,
2416 0x000000db /* 135 (READ-CHAR 0) */,
2417 0x0000009a /* 136 (EOFP) */,
2418 0x00000092 /* 137 (NOT) */,
2419 0x00000030 /* 138 (RF) */,
2420 0x0000000e /* 139 (PRE-CALL 0) */,
2421 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 143),
2422 0x0040403c /* 141 (LREF 4 1) */,
2423 0x0000001c /* 142 (LOCAL-ENV-CALL 0) */,
2424 0x0000004f /* 143 (LREF20-PUSH) */,
2425 0x0080303c /* 144 (LREF 3 2) */,
2426 0x0000101d /* 145 (LOCAL-ENV-TAIL-CALL 1) */,
2427 0x00000014 /* 146 (RET) */,
2428 0x0000003d /* 147 (LREF0) */,
2429 0x0000002f /* 148 (BNEQVC) */,
2430 SCM_WORD(SCM_MAKE_CHAR(47)) /* #\/ */,
2431 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 162) /* 162 */,
2432 0x0000100e /* 151 (PRE-CALL 1) */,
2433 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 157),
2434 0x00000006 /* 153 (CONST-PUSH) */,
2435 SCM_WORD(SCM_MAKE_CHAR(47)) /* #\/ */,
2436 0x0080403c /* 155 (LREF 4 2) */,
2437 0x0000101c /* 156 (LOCAL-ENV-CALL 1) */,
2438 0x00000030 /* 157 (RF) */,
2439 0x0000004f /* 158 (LREF20-PUSH) */,
2440 0x0080303c /* 159 (LREF 3 2) */,
2441 0x0000101d /* 160 (LOCAL-ENV-TAIL-CALL 1) */,
2442 0x00000014 /* 161 (RET) */,
2443 0x0000003d /* 162 (LREF0) */,
2444 0x0000002f /* 163 (BNEQVC) */,
2445 SCM_WORD(SCM_MAKE_CHAR(91)) /* #\[ */,
2446 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 177) /* 177 */,
2447 0x0000100e /* 166 (PRE-CALL 1) */,
2448 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 172),
2449 0x00000006 /* 168 (CONST-PUSH) */,
2450 SCM_WORD(SCM_MAKE_CHAR(93)) /* #\] */,
2451 0x0080403c /* 170 (LREF 4 2) */,
2452 0x0000101c /* 171 (LOCAL-ENV-CALL 1) */,
2453 0x00000030 /* 172 (RF) */,
2454 0x0000004f /* 173 (LREF20-PUSH) */,
2455 0x0080303c /* 174 (LREF 3 2) */,
2456 0x0000101d /* 175 (LOCAL-ENV-TAIL-CALL 1) */,
2457 0x00000014 /* 176 (RET) */,
2458 0x0000003d /* 177 (LREF0) */,
2459 0x0000002f /* 178 (BNEQVC) */,
2460 SCM_WORD(SCM_MAKE_CHAR(44)) /* #\, */,
2461 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 264) /* 264 */,
2462 0x0000100e /* 181 (PRE-CALL 1) */,
2463 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 205),
2464 0x000000db /* 183 (READ-CHAR 0) */,
2465 0x00001018 /* 184 (PUSH-LOCAL-ENV 1) */,
2466 0x0000003d /* 185 (LREF0) */,
2467 0x0000009a /* 186 (EOFP) */,
2468 0x0000001e /* 187 (BF) */,
2469 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 190),
2470 0x00000053 /* 189 (LREF0-RET) */,
2471 0x0000200e /* 190 (PRE-CALL 2) */,
2472 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 197),
2473 0x00000006 /* 192 (CONST-PUSH) */,
2474 SCM_WORD(SCM_UNDEFINED) /* #[\u0000-\u0008\u000e-\u001f!-\u007f\u0080-\U00ffffff] */,
2475 0x00000048 /* 194 (LREF0-PUSH) */,
2476 0x0000205f /* 195 (GREF-CALL 2) */,
2477 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#char-set-contains?.5125e780> */,
2478 0x0000001e /* 197 (BF) */,
2479 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 200),
2480 0x00000053 /* 199 (LREF0-RET) */,
2481 0x000000db /* 200 (READ-CHAR 0) */,
2482 0x0000000d /* 201 (PUSH) */,
2483 0x0000101b /* 202 (LOCAL-ENV-JUMP 1) */,
2484 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 185),
2485 0x00000014 /* 204 (RET) */,
2486 0x00001018 /* 205 (PUSH-LOCAL-ENV 1) */,
2487 0x0000003d /* 206 (LREF0) */,
2488 0x0000009a /* 207 (EOFP) */,
2489 0x0000001e /* 208 (BF) */,
2490 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 211),
2491 0x0000000b /* 210 (CONSTF-RET) */,
2492 0x0000003d /* 211 (LREF0) */,
2493 0x0000002f /* 212 (BNEQVC) */,
2494 SCM_WORD(SCM_MAKE_CHAR(40)) /* #\( */,
2495 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 226) /* 226 */,
2496 0x0000100e /* 215 (PRE-CALL 1) */,
2497 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 221),
2498 0x00000006 /* 217 (CONST-PUSH) */,
2499 SCM_WORD(SCM_MAKE_CHAR(41)) /* #\) */,
2500 0x0080403c /* 219 (LREF 4 2) */,
2501 0x0000101c /* 220 (LOCAL-ENV-CALL 1) */,
2502 0x00000030 /* 221 (RF) */,
2503 0x00000051 /* 222 (LREF30-PUSH) */,
2504 0x0080403c /* 223 (LREF 4 2) */,
2505 0x0000101d /* 224 (LOCAL-ENV-TAIL-CALL 1) */,
2506 0x00000014 /* 225 (RET) */,
2507 0x0000003d /* 226 (LREF0) */,
2508 0x0000002f /* 227 (BNEQVC) */,
2509 SCM_WORD(SCM_MAKE_CHAR(91)) /* #\[ */,
2510 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 241) /* 241 */,
2511 0x0000100e /* 230 (PRE-CALL 1) */,
2512 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 236),
2513 0x00000006 /* 232 (CONST-PUSH) */,
2514 SCM_WORD(SCM_MAKE_CHAR(93)) /* #\] */,
2515 0x0080403c /* 234 (LREF 4 2) */,
2516 0x0000101c /* 235 (LOCAL-ENV-CALL 1) */,
2517 0x00000030 /* 236 (RF) */,
2518 0x00000051 /* 237 (LREF30-PUSH) */,
2519 0x0080403c /* 238 (LREF 4 2) */,
2520 0x0000101d /* 239 (LOCAL-ENV-TAIL-CALL 1) */,
2521 0x00000014 /* 240 (RET) */,
2522 0x0000003d /* 241 (LREF0) */,
2523 0x0000002f /* 242 (BNEQVC) */,
2524 SCM_WORD(SCM_MAKE_CHAR(123)) /* #\{ */,
2525 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 256) /* 256 */,
2526 0x0000100e /* 245 (PRE-CALL 1) */,
2527 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 251),
2528 0x00000006 /* 247 (CONST-PUSH) */,
2529 SCM_WORD(SCM_MAKE_CHAR(125)) /* #\} */,
2530 0x0080403c /* 249 (LREF 4 2) */,
2531 0x0000101c /* 250 (LOCAL-ENV-CALL 1) */,
2532 0x00000030 /* 251 (RF) */,
2533 0x00000051 /* 252 (LREF30-PUSH) */,
2534 0x0080403c /* 253 (LREF 4 2) */,
2535 0x0000101d /* 254 (LOCAL-ENV-TAIL-CALL 1) */,
2536 0x00000014 /* 255 (RET) */,
2537 0x0000000e /* 256 (PRE-CALL 0) */,
2538 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 260),
2539 0x0040503c /* 258 (LREF 5 1) */,
2540 0x0000001c /* 259 (LOCAL-ENV-CALL 0) */,
2541 0x00000051 /* 260 (LREF30-PUSH) */,
2542 0x0080403c /* 261 (LREF 4 2) */,
2543 0x0000101d /* 262 (LOCAL-ENV-TAIL-CALL 1) */,
2544 0x00000014 /* 263 (RET) */,
2545 0x0000003d /* 264 (LREF0) */,
2546 0x0000002f /* 265 (BNEQVC) */,
2547 SCM_WORD(SCM_MAKE_CHAR(40)) /* #\( */,
2548 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 279) /* 279 */,
2549 0x0000100e /* 268 (PRE-CALL 1) */,
2550 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 274),
2551 0x00000006 /* 270 (CONST-PUSH) */,
2552 SCM_WORD(SCM_MAKE_CHAR(41)) /* #\) */,
2553 0x0080303c /* 272 (LREF 3 2) */,
2554 0x0000101c /* 273 (LOCAL-ENV-CALL 1) */,
2555 0x00000030 /* 274 (RF) */,
2556 0x0000004f /* 275 (LREF20-PUSH) */,
2557 0x0080303c /* 276 (LREF 3 2) */,
2558 0x0000101d /* 277 (LOCAL-ENV-TAIL-CALL 1) */,
2559 0x00000014 /* 278 (RET) */,
2560 0x0000003d /* 279 (LREF0) */,
2561 0x0000002f /* 280 (BNEQVC) */,
2562 SCM_WORD(SCM_MAKE_CHAR(60)) /* #\< */,
2563 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 293) /* 293 */,
2564 0x00000006 /* 283 (CONST-PUSH) */,
2565 SCM_WORD(SCM_OBJ(&scm__sc.d1561[180])) /* "unreadable sequence #<~a..." */,
2566 0x0000100e /* 285 (PRE-CALL 1) */,
2567 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 290),
2568 0x0000a007 /* 287 (CONSTI-PUSH 10) */,
2569 0x0000105f /* 288 (GREF-CALL 1) */,
2570 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-block.51255be0> */,
2571 0x00002063 /* 290 (PUSH-GREF-TAIL-CALL 2) */,
2572 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#errorf.51255c40> */,
2573 0x00000014 /* 292 (RET) */,
2574 0x00000048 /* 293 (LREF0-PUSH) */,
2575 0x00000044 /* 294 (LREF20) */,
2576 0x00000021 /* 295 (BNEQV) */,
2577 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 299),
2578 0x0000000a /* 297 (CONST-RET) */,
2579 SCM_WORD(SCM_TRUE) /* #t */,
2580 0x0000004f /* 299 (LREF20-PUSH) */,
2581 0x0080303c /* 300 (LREF 3 2) */,
2582 0x0000101d /* 301 (LOCAL-ENV-TAIL-CALL 1) */,
2583 0x00000014 /* 302 (RET) */,
2584 0x0000004c /* 303 (LREF10-PUSH) */,
2585 0x0080203c /* 304 (LREF 2 2) */,
2586 0x0000101d /* 305 (LOCAL-ENV-TAIL-CALL 1) */,
2587 0x00000014 /* 306 (RET) */,
2588 /* (complete-sexp? G1597) */
2589 0x00003019 /* 0 (LOCAL-ENV-CLOSURES 3) */,
2590 SCM_WORD(SCM_OBJ(&scm__rc.d1563[642])) /* (#<compiled-code ((complete-sexp? #:G1597) rec)@0x7fa7518ac600> #<undef> #<undef>) */,
2591 0x00000043 /* 2 (LREF12) */,
2592 0x000010e8 /* 3 (ENV-SET 1) */,
2593 0x00000042 /* 4 (LREF11) */,
2594 0x000000e8 /* 5 (ENV-SET 0) */,
2595 0x00000009 /* 6 (CONSTF-PUSH) */,
2596 0x0000003f /* 7 (LREF2) */,
2597 0x0000101d /* 8 (LOCAL-ENV-TAIL-CALL 1) */,
2598 0x00000014 /* 9 (RET) */,
2599 /* complete-sexp? */
2600 0x00000048 /* 0 (LREF0-PUSH) */,
2601 0x0000004c /* 1 (LREF10-PUSH) */,
2602 0x00002060 /* 2 (GREF-TAIL-CALL 2) */,
2603 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-string.51240320> */,
2604 0x00000014 /* 4 (RET) */,
2605 /* %toplevel */
2606 0x00003019 /* 0 (LOCAL-ENV-CLOSURES 3) */,
2607 SCM_WORD(SCM_OBJ(&scm__rc.d1563[650])) /* (#<compiled-code (complete-sexp? rec-escaped)@0x7fa7518ac9c0> #<compiled-code (complete-sexp? skip-token)@0x7fa7518ac840> #<compiled-code (complete-sexp? #:G1597)@0x7fa7518ac7e0>) */,
2608 0x00000016 /* 2 (CLOSURE) */,
2609 SCM_WORD(SCM_OBJ(&scm__rc.d1565[34])) /* #<compiled-code complete-sexp?@0x7fa751994f00> */,
2610 0x00000015 /* 4 (DEFINE 0) */,
2611 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#complete-sexp?.51240420> */,
2612 0x00000014 /* 6 (RET) */,
2613 },
2614 { /* ScmPair d1563 */
2615 { SCM_NIL, SCM_NIL },
2616 { SCM_UNDEFINED, SCM_NIL},
2617 { SCM_MAKE_INT(46U), SCM_NIL},
2618 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[2])},
2619 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[3])},
2620 { SCM_UNDEFINED, SCM_NIL},
2621 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[5])},
2622 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[6])},
2623 { SCM_OBJ(&scm__rc.d1563[7]), SCM_NIL},
2624 { SCM_OBJ(&scm__rc.d1563[4]), SCM_OBJ(&scm__rc.d1563[8])},
2625 { SCM_MAKE_INT(50U), SCM_NIL},
2626 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[10])},
2627 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[11])},
2628 { SCM_UNDEFINED, SCM_NIL},
2629 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[13])},
2630 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[14])},
2631 { SCM_OBJ(&scm__rc.d1563[15]), SCM_NIL},
2632 { SCM_OBJ(&scm__rc.d1563[12]), SCM_OBJ(&scm__rc.d1563[16])},
2633 { SCM_MAKE_INT(52U), SCM_NIL},
2634 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[18])},
2635 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[19])},
2636 { SCM_UNDEFINED, SCM_NIL},
2637 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[21])},
2638 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[22])},
2639 { SCM_OBJ(&scm__rc.d1563[23]), SCM_NIL},
2640 { SCM_OBJ(&scm__rc.d1563[20]), SCM_OBJ(&scm__rc.d1563[24])},
2641 { SCM_UNDEFINED, SCM_NIL},
2642 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[26])},
2643 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[27])},
2644 { SCM_MAKE_INT(60U), SCM_NIL},
2645 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[29])},
2646 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[30])},
2647 { SCM_UNDEFINED, SCM_NIL},
2648 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[32])},
2649 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[33])},
2650 { SCM_OBJ(&scm__rc.d1563[34]), SCM_NIL},
2651 { SCM_OBJ(&scm__rc.d1563[31]), SCM_OBJ(&scm__rc.d1563[35])},
2652 { SCM_UNDEFINED, SCM_NIL},
2653 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[37])},
2654 { SCM_MAKE_INT(62U), SCM_NIL},
2655 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[39])},
2656 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[40])},
2657 { SCM_UNDEFINED, SCM_NIL},
2658 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[42])},
2659 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[43])},
2660 { SCM_OBJ(&scm__rc.d1563[44]), SCM_NIL},
2661 { SCM_OBJ(&scm__rc.d1563[41]), SCM_OBJ(&scm__rc.d1563[45])},
2662 { SCM_UNDEFINED, SCM_NIL},
2663 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])},
2664 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])},
2665 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[49])},
2666 { SCM_MAKE_INT(63U), SCM_NIL},
2667 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[51])},
2668 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[52])},
2669 { SCM_UNDEFINED, SCM_NIL},
2670 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[54])},
2671 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[55])},
2672 { SCM_OBJ(&scm__rc.d1563[56]), SCM_NIL},
2673 { SCM_OBJ(&scm__rc.d1563[53]), SCM_OBJ(&scm__rc.d1563[57])},
2674 { SCM_UNDEFINED, SCM_NIL},
2675 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[59])},
2676 { SCM_MAKE_INT(66U), SCM_NIL},
2677 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[61])},
2678 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[62])},
2679 { SCM_UNDEFINED, SCM_NIL},
2680 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[64])},
2681 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[65])},
2682 { SCM_OBJ(&scm__rc.d1563[66]), SCM_NIL},
2683 { SCM_OBJ(&scm__rc.d1563[63]), SCM_OBJ(&scm__rc.d1563[67])},
2684 { SCM_MAKE_INT(69U), SCM_NIL},
2685 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[69])},
2686 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[70])},
2687 { SCM_UNDEFINED, SCM_NIL},
2688 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[72])},
2689 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[73])},
2690 { SCM_OBJ(&scm__rc.d1563[74]), SCM_NIL},
2691 { SCM_OBJ(&scm__rc.d1563[71]), SCM_OBJ(&scm__rc.d1563[75])},
2692 { SCM_UNDEFINED, SCM_NIL},
2693 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[77])},
2694 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[78])},
2695 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[79])},
2696 { SCM_MAKE_INT(77U), SCM_NIL},
2697 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[81])},
2698 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[82])},
2699 { SCM_UNDEFINED, SCM_NIL},
2700 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[84])},
2701 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[85])},
2702 { SCM_OBJ(&scm__rc.d1563[86]), SCM_NIL},
2703 { SCM_OBJ(&scm__rc.d1563[83]), SCM_OBJ(&scm__rc.d1563[87])},
2704 { SCM_MAKE_INT(90U), SCM_NIL},
2705 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[89])},
2706 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[90])},
2707 { SCM_UNDEFINED, SCM_NIL},
2708 { SCM_OBJ(&scm__rc.d1563[92]), SCM_NIL},
2709 { SCM_OBJ(&scm__rc.d1563[91]), SCM_OBJ(&scm__rc.d1563[93])},
2710 { SCM_UNDEFINED, SCM_NIL},
2711 { SCM_MAKE_INT(98U), SCM_NIL},
2712 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[96])},
2713 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[97])},
2714 { SCM_UNDEFINED, SCM_NIL},
2715 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[99])},
2716 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[100])},
2717 { SCM_OBJ(&scm__rc.d1563[101]), SCM_NIL},
2718 { SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[102])},
2719 { SCM_UNDEFINED, SCM_NIL},
2720 { SCM_MAKE_INT(100U), SCM_NIL},
2721 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[105])},
2722 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[106])},
2723 { SCM_UNDEFINED, SCM_NIL},
2724 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[108])},
2725 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[109])},
2726 { SCM_OBJ(&scm__rc.d1563[110]), SCM_NIL},
2727 { SCM_OBJ(&scm__rc.d1563[107]), SCM_OBJ(&scm__rc.d1563[111])},
2728 { SCM_UNDEFINED, SCM_NIL},
2729 { SCM_MAKE_INT(107U), SCM_NIL},
2730 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[114])},
2731 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[115])},
2732 { SCM_UNDEFINED, SCM_NIL},
2733 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[117])},
2734 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[118])},
2735 { SCM_OBJ(&scm__rc.d1563[119]), SCM_NIL},
2736 { SCM_OBJ(&scm__rc.d1563[116]), SCM_OBJ(&scm__rc.d1563[120])},
2737 { SCM_UNDEFINED, SCM_NIL},
2738 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[122])},
2739 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[123])},
2740 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[124])},
2741 { SCM_MAKE_INT(109U), SCM_NIL},
2742 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[126])},
2743 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[127])},
2744 { SCM_UNDEFINED, SCM_NIL},
2745 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[129])},
2746 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[130])},
2747 { SCM_OBJ(&scm__rc.d1563[131]), SCM_NIL},
2748 { SCM_OBJ(&scm__rc.d1563[128]), SCM_OBJ(&scm__rc.d1563[132])},
2749 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])},
2750 { SCM_MAKE_INT(113U), SCM_NIL},
2751 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[135])},
2752 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[136])},
2753 { SCM_UNDEFINED, SCM_NIL},
2754 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[138])},
2755 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[139])},
2756 { SCM_OBJ(&scm__rc.d1563[140]), SCM_NIL},
2757 { SCM_OBJ(&scm__rc.d1563[137]), SCM_OBJ(&scm__rc.d1563[141])},
2758 { SCM_MAKE_INT(117U), SCM_NIL},
2759 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[143])},
2760 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[144])},
2761 { SCM_UNDEFINED, SCM_NIL},
2762 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[146])},
2763 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[147])},
2764 { SCM_OBJ(&scm__rc.d1563[148]), SCM_NIL},
2765 { SCM_OBJ(&scm__rc.d1563[145]), SCM_OBJ(&scm__rc.d1563[149])},
2766 { SCM_MAKE_INT(120U), SCM_NIL},
2767 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[151])},
2768 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[152])},
2769 { SCM_UNDEFINED, SCM_NIL},
2770 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[154])},
2771 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[155])},
2772 { SCM_OBJ(&scm__rc.d1563[156]), SCM_NIL},
2773 { SCM_OBJ(&scm__rc.d1563[153]), SCM_OBJ(&scm__rc.d1563[157])},
2774 { SCM_UNDEFINED, SCM_NIL},
2775 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[159])},
2776 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[160])},
2777 { SCM_MAKE_INT(124U), SCM_NIL},
2778 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[162])},
2779 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[163])},
2780 { SCM_UNDEFINED, SCM_NIL},
2781 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[165])},
2782 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[166])},
2783 { SCM_OBJ(&scm__rc.d1563[167]), SCM_NIL},
2784 { SCM_OBJ(&scm__rc.d1563[164]), SCM_OBJ(&scm__rc.d1563[168])},
2785 { SCM_UNDEFINED, SCM_NIL},
2786 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[170])},
2787 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[171])},
2788 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[172])},
2789 { SCM_MAKE_INT(152U), SCM_NIL},
2790 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[174])},
2791 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[175])},
2792 { SCM_UNDEFINED, SCM_NIL},
2793 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[177])},
2794 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[178])},
2795 { SCM_OBJ(&scm__rc.d1563[179]), SCM_NIL},
2796 { SCM_OBJ(&scm__rc.d1563[176]), SCM_OBJ(&scm__rc.d1563[180])},
2797 { SCM_MAKE_INT(162U), SCM_NIL},
2798 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[182])},
2799 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[183])},
2800 { SCM_UNDEFINED, SCM_NIL},
2801 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[185])},
2802 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[186])},
2803 { SCM_OBJ(&scm__rc.d1563[187]), SCM_NIL},
2804 { SCM_OBJ(&scm__rc.d1563[184]), SCM_OBJ(&scm__rc.d1563[188])},
2805 { SCM_UNDEFINED, SCM_NIL},
2806 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[190])},
2807 { SCM_OBJ(&scm__rc.d1563[191]), SCM_NIL},
2808 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[192])},
2809 { SCM_FALSE, SCM_NIL},
2810 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[194])},
2811 { SCM_OBJ(&scm__rc.d1563[195]), SCM_OBJ(&scm__rc.d1563[48])},
2812 { SCM_OBJ(&scm__rc.d1563[193]), SCM_OBJ(&scm__rc.d1563[196])},
2813 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[197])},
2814 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[198])},
2815 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[199])},
2816 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[77])},
2817 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[77])},
2818 { SCM_OBJ(&scm__rc.d1563[202]), SCM_NIL},
2819 { SCM_OBJ(&scm__rc.d1563[201]), SCM_OBJ(&scm__rc.d1563[203])},
2820 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[204])},
2821 { SCM_UNDEFINED, SCM_NIL},
2822 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[206])},
2823 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[207])},
2824 { SCM_UNDEFINED, SCM_NIL},
2825 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[209])},
2826 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[210])},
2827 { SCM_OBJ(&scm__rc.d1563[191]), SCM_OBJ(&scm__rc.d1563[211])},
2828 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[212])},
2829 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[213])},
2830 { SCM_OBJ(&scm__rc.d1563[208]), SCM_OBJ(&scm__rc.d1563[214])},
2831 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])},
2832 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[216])},
2833 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[217])},
2834 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[218])},
2835 { SCM_OBJ(&scm__rc.d1563[208]), SCM_OBJ(&scm__rc.d1563[219])},
2836 { SCM_OBJ(&scm__rc.d1563[220]), SCM_NIL},
2837 { SCM_OBJ(&scm__rc.d1563[215]), SCM_OBJ(&scm__rc.d1563[221])},
2838 { SCM_OBJ(&scm__rc.d1563[205]), SCM_OBJ(&scm__rc.d1563[222])},
2839 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[223])},
2840 { SCM_OBJ(&scm__rc.d1563[224]), SCM_NIL},
2841 { SCM_OBJ(&scm__rc.d1563[200]), SCM_OBJ(&scm__rc.d1563[225])},
2842 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[226])},
2843 { SCM_MAKE_INT(178U), SCM_NIL},
2844 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[228])},
2845 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[229])},
2846 { SCM_OBJ(&scm__rc.d1563[230]), SCM_OBJ(&scm__rc.d1563[93])},
2847 { SCM_UNDEFINED, SCM_NIL},
2848 { SCM_UNDEFINED, SCM_NIL},
2849 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[233])},
2850 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[234])},
2851 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[235])},
2852 { SCM_MAKE_INT(187U), SCM_NIL},
2853 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[237])},
2854 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[238])},
2855 { SCM_UNDEFINED, SCM_NIL},
2856 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[240])},
2857 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[241])},
2858 { SCM_OBJ(&scm__rc.d1563[242]), SCM_NIL},
2859 { SCM_OBJ(&scm__rc.d1563[239]), SCM_OBJ(&scm__rc.d1563[243])},
2860 { SCM_UNDEFINED, SCM_NIL},
2861 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[245])},
2862 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[246])},
2863 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[247])},
2864 { SCM_MAKE_INT(191U), SCM_NIL},
2865 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[249])},
2866 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[250])},
2867 { SCM_OBJ(&scm__rc.d1563[251]), SCM_OBJ(&scm__rc.d1563[93])},
2868 { SCM_UNDEFINED, SCM_NIL},
2869 { SCM_UNDEFINED, SCM_NIL},
2870 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[254])},
2871 { SCM_UNDEFINED, SCM_NIL},
2872 { SCM_MAKE_INT(218U), SCM_NIL},
2873 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[257])},
2874 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[258])},
2875 { SCM_OBJ(&scm__rc.d1563[259]), SCM_OBJ(&scm__rc.d1563[93])},
2876 { SCM_UNDEFINED, SCM_NIL},
2877 { SCM_OBJ(&scm__rc.d1565[4]), SCM_NIL},
2878 { SCM_MAKE_INT(221U), SCM_NIL},
2879 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[263])},
2880 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[264])},
2881 { SCM_OBJ(&scm__rc.d1563[265]), SCM_OBJ(&scm__rc.d1563[93])},
2882 { SCM_UNDEFINED, SCM_NIL},
2883 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[194])},
2884 { SCM_UNDEFINED, SCM_NIL},
2885 { SCM_MAKE_INT(225U), SCM_NIL},
2886 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[270])},
2887 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[271])},
2888 { SCM_OBJ(&scm__rc.d1563[272]), SCM_OBJ(&scm__rc.d1563[93])},
2889 { SCM_UNDEFINED, SCM_NIL},
2890 { SCM_MAKE_INT(227U), SCM_NIL},
2891 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[275])},
2892 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[276])},
2893 { SCM_OBJ(&scm__rc.d1563[277]), SCM_OBJ(&scm__rc.d1563[93])},
2894 { SCM_UNDEFINED, SCM_NIL},
2895 { SCM_UNDEFINED, SCM_NIL},
2896 { SCM_MAKE_INT(215U), SCM_NIL},
2897 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[281])},
2898 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[282])},
2899 { SCM_OBJ(&scm__rc.d1563[283]), SCM_OBJ(&scm__rc.d1563[93])},
2900 { SCM_UNDEFINED, SCM_NIL},
2901 { SCM_UNDEFINED, SCM_NIL},
2902 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[286])},
2903 { SCM_MAKE_INT(260U), SCM_NIL},
2904 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[288])},
2905 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[289])},
2906 { SCM_OBJ(&scm__rc.d1563[290]), SCM_OBJ(&scm__rc.d1563[93])},
2907 { SCM_UNDEFINED, SCM_NIL},
2908 { SCM_UNDEFINED, SCM_NIL},
2909 { SCM_MAKE_INT(240U), SCM_NIL},
2910 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[294])},
2911 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[295])},
2912 { SCM_OBJ(&scm__rc.d1563[296]), SCM_OBJ(&scm__rc.d1563[93])},
2913 { SCM_UNDEFINED, SCM_NIL},
2914 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[233])},
2915 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[299])},
2916 { SCM_MAKE_INT(262U), SCM_NIL},
2917 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[301])},
2918 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[302])},
2919 { SCM_OBJ(&scm__rc.d1563[303]), SCM_OBJ(&scm__rc.d1563[93])},
2920 { SCM_UNDEFINED, SCM_NIL},
2921 { SCM_UNDEFINED, SCM_NIL},
2922 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[306])},
2923 { SCM_MAKE_INT(278U), SCM_NIL},
2924 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[308])},
2925 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[309])},
2926 { SCM_UNDEFINED, SCM_NIL},
2927 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[311])},
2928 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[312])},
2929 { SCM_OBJ(&scm__rc.d1563[313]), SCM_NIL},
2930 { SCM_OBJ(&scm__rc.d1563[310]), SCM_OBJ(&scm__rc.d1563[314])},
2931 { SCM_UNDEFINED, SCM_NIL},
2932 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[316])},
2933 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[317])},
2934 { SCM_MAKE_INT(281U), SCM_NIL},
2935 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[319])},
2936 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[320])},
2937 { SCM_OBJ(&scm__rc.d1563[321]), SCM_OBJ(&scm__rc.d1563[93])},
2938 { SCM_UNDEFINED, SCM_NIL},
2939 { SCM_UNDEFINED, SCM_NIL},
2940 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[324])},
2941 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[325])},
2942 { SCM_MAKE_INT(292U), SCM_NIL},
2943 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[327])},
2944 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[328])},
2945 { SCM_OBJ(&scm__rc.d1563[329]), SCM_OBJ(&scm__rc.d1563[93])},
2946 { SCM_UNDEFINED, SCM_NIL},
2947 { SCM_MAKE_INT(0), SCM_NIL},
2948 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[332])},
2949 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[113])},
2950 { SCM_OBJ(&scm__rc.d1563[334]), SCM_NIL},
2951 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[335])},
2952 { SCM_OBJ(&scm__rc.d1563[336]), SCM_NIL},
2953 { SCM_OBJ(&scm__rc.d1563[333]), SCM_OBJ(&scm__rc.d1563[337])},
2954 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[338])},
2955 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[339])},
2956 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[340])},
2957 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[209])},
2958 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[342])},
2959 { SCM_OBJ(&scm__rc.d1563[343]), SCM_NIL},
2960 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[344])},
2961 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])},
2962 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[346])},
2963 { SCM_OBJ(&scm__rc.d1563[347]), SCM_NIL},
2964 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[348])},
2965 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[342])},
2966 { SCM_OBJ(&scm__rc.d1563[350]), SCM_NIL},
2967 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[351])},
2968 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[346])},
2969 { SCM_OBJ(&scm__rc.d1563[353]), SCM_NIL},
2970 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[354])},
2971 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[335])},
2972 { SCM_OBJ(&scm__rc.d1563[356]), SCM_NIL},
2973 { SCM_OBJ(&scm__rc.d1563[355]), SCM_OBJ(&scm__rc.d1563[357])},
2974 { SCM_OBJ(&scm__rc.d1563[352]), SCM_OBJ(&scm__rc.d1563[358])},
2975 { SCM_OBJ(&scm__rc.d1563[349]), SCM_OBJ(&scm__rc.d1563[359])},
2976 { SCM_OBJ(&scm__rc.d1563[345]), SCM_OBJ(&scm__rc.d1563[360])},
2977 { SCM_UNDEFINED, SCM_NIL},
2978 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[362])},
2979 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[363])},
2980 { SCM_OBJ(&scm__sc.d1561[127]), SCM_OBJ(&scm__rc.d1563[363])},
2981 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[365])},
2982 { SCM_OBJ(&scm__rc.d1563[366]), SCM_NIL},
2983 { SCM_OBJ(&scm__rc.d1563[364]), SCM_OBJ(&scm__rc.d1563[367])},
2984 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[368])},
2985 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[332])},
2986 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[370])},
2987 { SCM_UNDEFINED, SCM_NIL},
2988 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[372])},
2989 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[373])},
2990 { SCM_OBJ(&scm__rc.d1563[374]), SCM_NIL},
2991 { SCM_OBJ(&scm__rc.d1563[371]), SCM_OBJ(&scm__rc.d1563[375])},
2992 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[376])},
2993 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[26])},
2994 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[378])},
2995 { SCM_OBJ(&scm__rc.d1563[379]), SCM_NIL},
2996 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[380])},
2997 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[381])},
2998 { SCM_MAKE_INT(0), SCM_OBJ(&scm__rc.d1563[209])},
2999 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[383])},
3000 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[384])},
3001 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[363])},
3002 { SCM_OBJ(&scm__rc.d1563[386]), SCM_OBJ(&scm__rc.d1563[26])},
3003 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[387])},
3004 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[346])},
3005 { SCM_OBJ(&scm__rc.d1563[389]), SCM_NIL},
3006 { SCM_OBJ(&scm__rc.d1563[388]), SCM_OBJ(&scm__rc.d1563[390])},
3007 { SCM_OBJ(&scm__rc.d1563[385]), SCM_OBJ(&scm__rc.d1563[391])},
3008 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[392])},
3009 { SCM_OBJ(&scm__rc.d1563[393]), SCM_NIL},
3010 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[394])},
3011 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[395])},
3012 { SCM_OBJ(&scm__rc.d1563[396]), SCM_NIL},
3013 { SCM_OBJ(&scm__rc.d1563[382]), SCM_OBJ(&scm__rc.d1563[397])},
3014 { SCM_OBJ(&scm__rc.d1563[377]), SCM_OBJ(&scm__rc.d1563[398])},
3015 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[399])},
3016 { SCM_OBJ(&scm__rc.d1563[400]), SCM_NIL},
3017 { SCM_OBJ(&scm__rc.d1563[369]), SCM_OBJ(&scm__rc.d1563[401])},
3018 { SCM_OBJ(&scm__rc.d1563[361]), SCM_OBJ(&scm__rc.d1563[402])},
3019 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[403])},
3020 { SCM_OBJ(&scm__rc.d1563[404]), SCM_NIL},
3021 { SCM_OBJ(&scm__rc.d1563[341]), SCM_OBJ(&scm__rc.d1563[405])},
3022 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[406])},
3023 { SCM_MAKE_INT(308U), SCM_NIL},
3024 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[408])},
3025 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[409])},
3026 { SCM_OBJ(&scm__rc.d1563[410]), SCM_OBJ(&scm__rc.d1563[93])},
3027 { SCM_UNDEFINED, SCM_NIL},
3028 { SCM_MAKE_INT(329U), SCM_NIL},
3029 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[413])},
3030 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[414])},
3031 { SCM_UNDEFINED, SCM_NIL},
3032 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[416])},
3033 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[417])},
3034 { SCM_OBJ(&scm__rc.d1563[418]), SCM_NIL},
3035 { SCM_OBJ(&scm__rc.d1563[415]), SCM_OBJ(&scm__rc.d1563[419])},
3036 { SCM_MAKE_INT(333U), SCM_NIL},
3037 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[421])},
3038 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[422])},
3039 { SCM_UNDEFINED, SCM_NIL},
3040 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[424])},
3041 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[425])},
3042 { SCM_OBJ(&scm__rc.d1563[426]), SCM_NIL},
3043 { SCM_OBJ(&scm__rc.d1563[423]), SCM_OBJ(&scm__rc.d1563[427])},
3044 { SCM_UNDEFINED, SCM_NIL},
3045 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[429])},
3046 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
3047 { SCM_MAKE_INT(337U), SCM_NIL},
3048 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[432])},
3049 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[433])},
3050 { SCM_UNDEFINED, SCM_NIL},
3051 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[435])},
3052 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[436])},
3053 { SCM_OBJ(&scm__rc.d1563[437]), SCM_NIL},
3054 { SCM_OBJ(&scm__rc.d1563[434]), SCM_OBJ(&scm__rc.d1563[438])},
3055 { SCM_UNDEFINED, SCM_NIL},
3056 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[440])},
3057 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[441])},
3058 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[442])},
3059 { SCM_MAKE_INT(361U), SCM_NIL},
3060 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[444])},
3061 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[445])},
3062 { SCM_UNDEFINED, SCM_NIL},
3063 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[447])},
3064 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[448])},
3065 { SCM_OBJ(&scm__rc.d1563[449]), SCM_NIL},
3066 { SCM_OBJ(&scm__rc.d1563[446]), SCM_OBJ(&scm__rc.d1563[450])},
3067 { SCM_MAKE_INT(364U), SCM_NIL},
3068 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[452])},
3069 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[453])},
3070 { SCM_UNDEFINED, SCM_NIL},
3071 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[455])},
3072 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
3073 { SCM_OBJ(&scm__rc.d1563[457]), SCM_NIL},
3074 { SCM_OBJ(&scm__rc.d1563[454]), SCM_OBJ(&scm__rc.d1563[458])},
3075 { SCM_MAKE_INT(367U), SCM_NIL},
3076 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[460])},
3077 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[461])},
3078 { SCM_UNDEFINED, SCM_NIL},
3079 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[463])},
3080 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[464])},
3081 { SCM_OBJ(&scm__rc.d1563[465]), SCM_NIL},
3082 { SCM_OBJ(&scm__rc.d1563[462]), SCM_OBJ(&scm__rc.d1563[466])},
3083 { SCM_MAKE_INT(370U), SCM_NIL},
3084 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[468])},
3085 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[469])},
3086 { SCM_UNDEFINED, SCM_NIL},
3087 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[471])},
3088 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[472])},
3089 { SCM_OBJ(&scm__rc.d1563[473]), SCM_NIL},
3090 { SCM_OBJ(&scm__rc.d1563[470]), SCM_OBJ(&scm__rc.d1563[474])},
3091 { SCM_MAKE_INT(373U), SCM_NIL},
3092 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[476])},
3093 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[477])},
3094 { SCM_UNDEFINED, SCM_NIL},
3095 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[479])},
3096 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[480])},
3097 { SCM_OBJ(&scm__rc.d1563[481]), SCM_NIL},
3098 { SCM_OBJ(&scm__rc.d1563[478]), SCM_OBJ(&scm__rc.d1563[482])},
3099 { SCM_MAKE_INT(377U), SCM_NIL},
3100 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[484])},
3101 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[485])},
3102 { SCM_UNDEFINED, SCM_NIL},
3103 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[487])},
3104 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[488])},
3105 { SCM_OBJ(&scm__rc.d1563[489]), SCM_NIL},
3106 { SCM_OBJ(&scm__rc.d1563[486]), SCM_OBJ(&scm__rc.d1563[490])},
3107 { SCM_MAKE_INT(380U), SCM_NIL},
3108 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[492])},
3109 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[493])},
3110 { SCM_UNDEFINED, SCM_NIL},
3111 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[495])},
3112 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[496])},
3113 { SCM_OBJ(&scm__rc.d1563[497]), SCM_NIL},
3114 { SCM_OBJ(&scm__rc.d1563[494]), SCM_OBJ(&scm__rc.d1563[498])},
3115 { SCM_MAKE_INT(383U), SCM_NIL},
3116 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[500])},
3117 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[501])},
3118 { SCM_UNDEFINED, SCM_NIL},
3119 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[503])},
3120 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[504])},
3121 { SCM_OBJ(&scm__rc.d1563[505]), SCM_NIL},
3122 { SCM_OBJ(&scm__rc.d1563[502]), SCM_OBJ(&scm__rc.d1563[506])},
3123 { SCM_MAKE_INT(386U), SCM_NIL},
3124 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[508])},
3125 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[509])},
3126 { SCM_UNDEFINED, SCM_NIL},
3127 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[511])},
3128 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[512])},
3129 { SCM_OBJ(&scm__rc.d1563[513]), SCM_NIL},
3130 { SCM_OBJ(&scm__rc.d1563[510]), SCM_OBJ(&scm__rc.d1563[514])},
3131 { SCM_MAKE_INT(389U), SCM_NIL},
3132 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[516])},
3133 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[517])},
3134 { SCM_UNDEFINED, SCM_NIL},
3135 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[519])},
3136 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[520])},
3137 { SCM_OBJ(&scm__rc.d1563[521]), SCM_NIL},
3138 { SCM_OBJ(&scm__rc.d1563[518]), SCM_OBJ(&scm__rc.d1563[522])},
3139 { SCM_UNDEFINED, SCM_NIL},
3140 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[524])},
3141 { SCM_MAKE_INT(419U), SCM_NIL},
3142 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[526])},
3143 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[527])},
3144 { SCM_OBJ(&scm__rc.d1563[528]), SCM_OBJ(&scm__rc.d1563[93])},
3145 { SCM_UNDEFINED, SCM_NIL},
3146 { SCM_OBJ(&scm__rc.d1565[18]), SCM_NIL},
3147 { SCM_UNDEFINED, SCM_NIL},
3148 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[532])},
3149 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[533])},
3150 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[534])},
3151 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[535])},
3152 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[536])},
3153 { SCM_MAKE_INT(404U), SCM_NIL},
3154 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[538])},
3155 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[539])},
3156 { SCM_OBJ(&scm__rc.d1563[540]), SCM_OBJ(&scm__rc.d1563[93])},
3157 { SCM_UNDEFINED, SCM_NIL},
3158 { SCM_UNDEFINED, SCM_NIL},
3159 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[543])},
3160 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[113])},
3161 { SCM_UNDEFINED, SCM_NIL},
3162 { SCM_UNDEFINED, SCM_NIL},
3163 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[547])},
3164 { SCM_UNDEFINED, SCM_UNDEFINED},
3165 { SCM_UNDEFINED, SCM_NIL},
3166 { SCM_OBJ(&scm__rc.d1565[22]), SCM_NIL},
3167 { SCM_OBJ(&scm__rc.d1565[21]), SCM_OBJ(&scm__rc.d1563[551])},
3168 { SCM_UNDEFINED, SCM_UNDEFINED},
3169 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[553])},
3170 { SCM_MAKE_INT(425U), SCM_NIL},
3171 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[555])},
3172 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[556])},
3173 { SCM_OBJ(&scm__rc.d1563[557]), SCM_OBJ(&scm__rc.d1563[93])},
3174 { SCM_UNDEFINED, SCM_NIL},
3175 { SCM_UNDEFINED, SCM_NIL},
3176 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[560])},
3177 { SCM_UNDEFINED, SCM_NIL},
3178 { SCM_UNDEFINED, SCM_NIL},
3179 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[563])},
3180 { SCM_UNDEFINED, SCM_NIL},
3181 { SCM_OBJ(&scm__rc.d1565[26]), SCM_NIL},
3182 { SCM_OBJ(&scm__rc.d1565[25]), SCM_OBJ(&scm__rc.d1563[566])},
3183 { SCM_MAKE_INT(450U), SCM_NIL},
3184 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[568])},
3185 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[569])},
3186 { SCM_OBJ(&scm__rc.d1563[570]), SCM_OBJ(&scm__rc.d1563[93])},
3187 { SCM_UNDEFINED, SCM_NIL},
3188 { SCM_MAKE_INT(477U), SCM_NIL},
3189 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[573])},
3190 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[574])},
3191 { SCM_OBJ(&scm__rc.d1563[575]), SCM_OBJ(&scm__rc.d1563[93])},
3192 { SCM_UNDEFINED, SCM_NIL},
3193 { SCM_MAKE_INT(482U), SCM_NIL},
3194 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[578])},
3195 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[579])},
3196 { SCM_UNDEFINED, SCM_NIL},
3197 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[581])},
3198 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[582])},
3199 { SCM_OBJ(&scm__rc.d1563[583]), SCM_NIL},
3200 { SCM_OBJ(&scm__rc.d1563[580]), SCM_OBJ(&scm__rc.d1563[584])},
3201 { SCM_UNDEFINED, SCM_NIL},
3202 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[586])},
3203 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[587])},
3204 { SCM_UNDEFINED, SCM_NIL},
3205 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[589])},
3206 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[590])},
3207 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[591])},
3208 { SCM_MAKE_INT(489U), SCM_NIL},
3209 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[593])},
3210 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[594])},
3211 { SCM_UNDEFINED, SCM_NIL},
3212 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[596])},
3213 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[597])},
3214 { SCM_OBJ(&scm__rc.d1563[598]), SCM_NIL},
3215 { SCM_OBJ(&scm__rc.d1563[595]), SCM_OBJ(&scm__rc.d1563[599])},
3216 { SCM_UNDEFINED, SCM_NIL},
3217 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[601])},
3218 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[602])},
3219 { SCM_MAKE_INT(548U), SCM_NIL},
3220 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[604])},
3221 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[605])},
3222 { SCM_UNDEFINED, SCM_NIL},
3223 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[607])},
3224 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[608])},
3225 { SCM_OBJ(&scm__rc.d1563[609]), SCM_NIL},
3226 { SCM_OBJ(&scm__rc.d1563[606]), SCM_OBJ(&scm__rc.d1563[610])},
3227 { SCM_MAKE_INT(555U), SCM_NIL},
3228 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[612])},
3229 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[613])},
3230 { SCM_UNDEFINED, SCM_NIL},
3231 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[615])},
3232 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[616])},
3233 { SCM_OBJ(&scm__rc.d1563[617]), SCM_NIL},
3234 { SCM_OBJ(&scm__rc.d1563[614]), SCM_OBJ(&scm__rc.d1563[618])},
3235 { SCM_MAKE_INT(559U), SCM_NIL},
3236 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[620])},
3237 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[621])},
3238 { SCM_UNDEFINED, SCM_NIL},
3239 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[623])},
3240 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[624])},
3241 { SCM_OBJ(&scm__rc.d1563[625]), SCM_NIL},
3242 { SCM_OBJ(&scm__rc.d1563[622]), SCM_OBJ(&scm__rc.d1563[626])},
3243 { SCM_UNDEFINED, SCM_NIL},
3244 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[628])},
3245 { SCM_UNDEFINED, SCM_NIL},
3246 { SCM_UNDEFINED, SCM_NIL},
3247 { SCM_UNDEFINED, SCM_NIL},
3248 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[632])},
3249 { SCM_UNDEFINED, SCM_NIL},
3250 { SCM_UNDEFINED, SCM_NIL},
3251 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[635])},
3252 { SCM_UNDEFINED, SCM_NIL},
3253 { SCM_OBJ(&scm__rc.d1563[636]), SCM_OBJ(&scm__rc.d1563[637])},
3254 { SCM_UNDEFINED, SCM_NIL},
3255 { SCM_UNDEFINED, SCM_NIL},
3256 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[640])},
3257 { SCM_OBJ(&scm__rc.d1565[32]), SCM_OBJ(&scm__rc.d1563[641])},
3258 { SCM_MAKE_INT(578U), SCM_NIL},
3259 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[643])},
3260 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[644])},
3261 { SCM_OBJ(&scm__rc.d1563[645]), SCM_OBJ(&scm__rc.d1563[93])},
3262 { SCM_UNDEFINED, SCM_NIL},
3263 { SCM_OBJ(&scm__rc.d1565[33]), SCM_NIL},
3264 { SCM_OBJ(&scm__rc.d1565[31]), SCM_OBJ(&scm__rc.d1563[648])},
3265 { SCM_OBJ(&scm__rc.d1565[30]), SCM_OBJ(&scm__rc.d1563[649])},
3266 { SCM_MAKE_INT(576U), SCM_NIL},
3267 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[651])},
3268 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[652])},
3269 { SCM_OBJ(&scm__rc.d1563[653]), SCM_OBJ(&scm__rc.d1563[93])},
3270 { SCM_UNDEFINED, SCM_NIL},
3271 { SCM_MAKE_INT(697U), SCM_NIL},
3272 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[656])},
3273 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[657])},
3274 { SCM_UNDEFINED, SCM_NIL},
3275 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[659])},
3276 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[660])},
3277 { SCM_OBJ(&scm__rc.d1563[661]), SCM_NIL},
3278 { SCM_OBJ(&scm__rc.d1563[658]), SCM_OBJ(&scm__rc.d1563[662])},
3279 { SCM_MAKE_INT(699U), SCM_NIL},
3280 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[664])},
3281 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[665])},
3282 { SCM_UNDEFINED, SCM_NIL},
3283 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[667])},
3284 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[668])},
3285 { SCM_OBJ(&scm__rc.d1563[669]), SCM_NIL},
3286 { SCM_OBJ(&scm__rc.d1563[666]), SCM_OBJ(&scm__rc.d1563[670])},
3287 { SCM_MAKE_INT(701U), SCM_NIL},
3288 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[672])},
3289 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[673])},
3290 { SCM_UNDEFINED, SCM_NIL},
3291 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[675])},
3292 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[676])},
3293 { SCM_OBJ(&scm__rc.d1563[677]), SCM_NIL},
3294 { SCM_OBJ(&scm__rc.d1563[674]), SCM_OBJ(&scm__rc.d1563[678])},
3295 { SCM_UNDEFINED, SCM_NIL},
3296 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[680])},
3297 { SCM_MAKE_INT(703U), SCM_NIL},
3298 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[682])},
3299 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[683])},
3300 { SCM_UNDEFINED, SCM_NIL},
3301 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[685])},
3302 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[686])},
3303 { SCM_OBJ(&scm__rc.d1563[687]), SCM_NIL},
3304 { SCM_OBJ(&scm__rc.d1563[684]), SCM_OBJ(&scm__rc.d1563[688])},
3305 { SCM_MAKE_INT(705U), SCM_NIL},
3306 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[690])},
3307 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[691])},
3308 { SCM_UNDEFINED, SCM_NIL},
3309 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[693])},
3310 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[694])},
3311 { SCM_OBJ(&scm__rc.d1563[695]), SCM_NIL},
3312 { SCM_OBJ(&scm__rc.d1563[692]), SCM_OBJ(&scm__rc.d1563[696])},
3313 { SCM_UNDEFINED, SCM_NIL},
3314 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[698])},
3315 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[699])},
3316 { SCM_MAKE_INT(707U), SCM_NIL},
3317 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[701])},
3318 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[702])},
3319 { SCM_UNDEFINED, SCM_NIL},
3320 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[704])},
3321 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[705])},
3322 { SCM_OBJ(&scm__rc.d1563[706]), SCM_NIL},
3323 { SCM_OBJ(&scm__rc.d1563[703]), SCM_OBJ(&scm__rc.d1563[707])},
3324 { SCM_MAKE_INT(709U), SCM_NIL},
3325 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[709])},
3326 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[710])},
3327 { SCM_UNDEFINED, SCM_NIL},
3328 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[712])},
3329 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[713])},
3330 { SCM_OBJ(&scm__rc.d1563[714]), SCM_NIL},
3331 { SCM_OBJ(&scm__rc.d1563[711]), SCM_OBJ(&scm__rc.d1563[715])},
3332 { SCM_UNDEFINED, SCM_NIL},
3333 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[717])},
3334 { SCM_MAKE_INT(711U), SCM_NIL},
3335 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[719])},
3336 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[720])},
3337 { SCM_UNDEFINED, SCM_NIL},
3338 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[722])},
3339 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[723])},
3340 { SCM_OBJ(&scm__rc.d1563[724]), SCM_NIL},
3341 { SCM_OBJ(&scm__rc.d1563[721]), SCM_OBJ(&scm__rc.d1563[725])},
3342 { SCM_MAKE_INT(715U), SCM_NIL},
3343 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[727])},
3344 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[728])},
3345 { SCM_UNDEFINED, SCM_NIL},
3346 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[730])},
3347 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[731])},
3348 { SCM_OBJ(&scm__rc.d1563[732]), SCM_NIL},
3349 { SCM_OBJ(&scm__rc.d1563[729]), SCM_OBJ(&scm__rc.d1563[733])},
3350 { SCM_UNDEFINED, SCM_NIL},
3351 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[735])},
3352 { SCM_MAKE_INT(718U), SCM_NIL},
3353 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[737])},
3354 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[738])},
3355 { SCM_UNDEFINED, SCM_NIL},
3356 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[740])},
3357 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[741])},
3358 { SCM_OBJ(&scm__rc.d1563[742]), SCM_NIL},
3359 { SCM_OBJ(&scm__rc.d1563[739]), SCM_OBJ(&scm__rc.d1563[743])},
3360 { SCM_MAKE_INT(721U), SCM_NIL},
3361 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[745])},
3362 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[746])},
3363 { SCM_UNDEFINED, SCM_NIL},
3364 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[748])},
3365 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[749])},
3366 { SCM_OBJ(&scm__rc.d1563[750]), SCM_NIL},
3367 { SCM_OBJ(&scm__rc.d1563[747]), SCM_OBJ(&scm__rc.d1563[751])},
3368 { SCM_MAKE_INT(724U), SCM_NIL},
3369 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[753])},
3370 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[754])},
3371 { SCM_UNDEFINED, SCM_NIL},
3372 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[756])},
3373 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[757])},
3374 { SCM_OBJ(&scm__rc.d1563[758]), SCM_NIL},
3375 { SCM_OBJ(&scm__rc.d1563[755]), SCM_OBJ(&scm__rc.d1563[759])},
3376 { SCM_MAKE_INT(727U), SCM_NIL},
3377 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[761])},
3378 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[762])},
3379 { SCM_UNDEFINED, SCM_NIL},
3380 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[764])},
3381 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[765])},
3382 { SCM_OBJ(&scm__rc.d1563[766]), SCM_NIL},
3383 { SCM_OBJ(&scm__rc.d1563[763]), SCM_OBJ(&scm__rc.d1563[767])},
3384 { SCM_MAKE_INT(730U), SCM_NIL},
3385 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[769])},
3386 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[770])},
3387 { SCM_UNDEFINED, SCM_NIL},
3388 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[772])},
3389 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[773])},
3390 { SCM_OBJ(&scm__rc.d1563[774]), SCM_NIL},
3391 { SCM_OBJ(&scm__rc.d1563[771]), SCM_OBJ(&scm__rc.d1563[775])},
3392 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])},
3393 { SCM_MAKE_INT(733U), SCM_NIL},
3394 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[778])},
3395 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[779])},
3396 { SCM_UNDEFINED, SCM_NIL},
3397 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[781])},
3398 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[782])},
3399 { SCM_OBJ(&scm__rc.d1563[783]), SCM_NIL},
3400 { SCM_OBJ(&scm__rc.d1563[780]), SCM_OBJ(&scm__rc.d1563[784])},
3401 },
3402 { /* ScmObj d1562 */
3403 SCM_UNBOUND,
3404 SCM_UNBOUND,
3405 SCM_UNBOUND,
3406 SCM_UNBOUND,
3407 SCM_UNBOUND,
3408 SCM_UNBOUND,
3409 SCM_UNBOUND,
3410 SCM_UNBOUND,
3411 SCM_UNBOUND,
3412 SCM_UNBOUND,
3413 SCM_UNBOUND,
3414 SCM_UNBOUND,
3415 SCM_UNBOUND,
3416 SCM_UNBOUND,
3417 SCM_UNBOUND,
3418 SCM_UNBOUND,
3419 SCM_UNBOUND,
3420 SCM_UNBOUND,
3421 SCM_UNBOUND,
3422 SCM_UNBOUND,
3423 SCM_UNBOUND,
3424 SCM_UNBOUND,
3425 SCM_UNBOUND,
3426 SCM_UNBOUND,
3427 SCM_UNBOUND,
3428 SCM_UNBOUND,
3429 SCM_UNBOUND,
3430 SCM_UNBOUND,
3431 SCM_UNBOUND,
3432 SCM_UNBOUND,
3433 SCM_UNBOUND,
3434 SCM_UNBOUND,
3435 SCM_UNBOUND,
3436 SCM_UNBOUND,
3437 SCM_UNBOUND,
3438 SCM_UNBOUND,
3439 SCM_UNBOUND,
3440 SCM_UNBOUND,
3441 SCM_UNBOUND,
3442 SCM_UNBOUND,
3443 SCM_UNBOUND,
3444 SCM_UNBOUND,
3445 SCM_UNBOUND,
3446 SCM_UNBOUND,
3447 SCM_UNBOUND,
3448 SCM_UNBOUND,
3449 SCM_UNBOUND,
3450 SCM_UNBOUND,
3451 SCM_UNBOUND,
3452 SCM_UNBOUND,
3453 SCM_UNBOUND,
3454 SCM_UNBOUND,
3455 SCM_UNBOUND,
3456 SCM_UNBOUND,
3457 SCM_UNBOUND,
3458 SCM_UNBOUND,
3459 SCM_UNBOUND,
3460 SCM_UNBOUND,
3461 SCM_UNBOUND,
3462 SCM_UNBOUND,
3463 SCM_UNBOUND,
3464 SCM_UNBOUND,
3465 SCM_UNBOUND,
3466 SCM_UNBOUND,
3467 SCM_UNBOUND,
3468 SCM_UNBOUND,
3469 SCM_UNBOUND,
3470 SCM_UNBOUND,
3471 SCM_UNBOUND,
3472 SCM_UNBOUND,
3473 SCM_UNBOUND,
3474 SCM_UNBOUND,
3475 SCM_UNBOUND,
3476 SCM_UNBOUND,
3477 SCM_UNBOUND,
3478 SCM_UNBOUND,
3479 SCM_UNBOUND,
3480 SCM_UNBOUND,
3481 SCM_UNBOUND,
3482 SCM_UNBOUND,
3483 SCM_UNBOUND,
3484 SCM_UNBOUND,
3485 SCM_UNBOUND,
3486 SCM_UNBOUND,
3487 SCM_UNBOUND,
3488 SCM_UNBOUND,
3489 SCM_UNBOUND,
3490 SCM_UNBOUND,
3491 SCM_UNBOUND,
3492 SCM_UNBOUND,
3493 SCM_UNBOUND,
3494 SCM_UNBOUND,
3495 SCM_UNBOUND,
3496 SCM_UNBOUND,
3497 SCM_UNBOUND,
3498 SCM_UNBOUND,
3499 SCM_UNBOUND,
3500 SCM_UNBOUND,
3501 SCM_UNBOUND,
3502 SCM_UNBOUND,
3503 SCM_UNBOUND,
3504 SCM_UNBOUND,
3505 SCM_UNBOUND,
3506 SCM_UNBOUND,
3507 SCM_UNBOUND,
3508 SCM_UNBOUND,
3509 SCM_UNBOUND,
3510 SCM_UNBOUND,
3511 SCM_UNBOUND,
3512 SCM_UNBOUND,
3513 SCM_UNBOUND,
3514 SCM_UNBOUND,
3515 SCM_UNBOUND,
3516 SCM_UNBOUND,
3517 SCM_UNBOUND,
3518 SCM_UNBOUND,
3519 SCM_UNBOUND,
3520 SCM_UNBOUND,
3521 SCM_UNBOUND,
3522 SCM_UNBOUND,
3523 SCM_UNBOUND,
3524 SCM_UNBOUND,
3525 SCM_UNBOUND,
3526 SCM_UNBOUND,
3527 SCM_UNBOUND,
3528 SCM_UNBOUND,
3529 SCM_UNBOUND,
3530 SCM_UNBOUND,
3531 SCM_UNBOUND,
3532 SCM_UNBOUND,
3533 SCM_UNBOUND,
3534 SCM_UNBOUND,
3535 SCM_UNBOUND,
3536 SCM_UNBOUND,
3537 SCM_UNBOUND,
3538 SCM_UNBOUND,
3539 SCM_UNBOUND,
3540 SCM_UNBOUND,
3541 SCM_UNBOUND,
3542 SCM_UNBOUND,
3543 SCM_UNBOUND,
3544 SCM_UNBOUND,
3545 SCM_UNBOUND,
3546 SCM_UNBOUND,
3547 SCM_UNBOUND,
3548 SCM_UNBOUND,
3549 SCM_UNBOUND,
3550 SCM_UNBOUND,
3551 SCM_UNBOUND,
3552 SCM_UNBOUND,
3553 SCM_UNBOUND,
3554 SCM_UNBOUND,
3555 SCM_UNBOUND,
3556 SCM_UNBOUND,
3557 SCM_UNBOUND,
3558 SCM_UNBOUND,
3559 SCM_UNBOUND,
3560 SCM_UNBOUND,
3561 SCM_UNBOUND,
3562 SCM_UNBOUND,
3563 SCM_UNBOUND,
3564 SCM_UNBOUND,
3565 SCM_UNBOUND,
3566 SCM_UNBOUND,
3567 SCM_UNBOUND,
3568 SCM_UNBOUND,
3569 SCM_UNBOUND,
3570 SCM_UNBOUND,
3571 SCM_UNBOUND,
3572 SCM_UNBOUND,
3573 SCM_UNBOUND,
3574 SCM_UNBOUND,
3575 SCM_UNBOUND,
3576 SCM_UNBOUND,
3577 SCM_UNBOUND,
3578 SCM_UNBOUND,
3579 SCM_UNBOUND,
3580 SCM_UNBOUND,
3581 SCM_UNBOUND,
3582 SCM_UNBOUND,
3583 SCM_UNBOUND,
3584 SCM_UNBOUND,
3585 SCM_UNBOUND,
3586 SCM_UNBOUND,
3587 SCM_UNBOUND,
3588 SCM_UNBOUND,
3589 SCM_UNBOUND,
3590 SCM_UNBOUND,
3591 SCM_UNBOUND,
3592 SCM_UNBOUND,
3593 SCM_UNBOUND,
3594 SCM_UNBOUND,
3595 SCM_UNBOUND,
3596 SCM_UNBOUND,
3597 SCM_UNBOUND,
3598 SCM_UNBOUND,
3599 SCM_UNBOUND,
3600 SCM_UNBOUND,
3601 SCM_UNBOUND,
3602 SCM_UNBOUND,
3603 SCM_UNBOUND,
3604 SCM_UNBOUND,
3605 SCM_UNBOUND,
3606 SCM_UNBOUND,
3607 SCM_UNBOUND,
3608 SCM_UNBOUND,
3609 SCM_UNBOUND,
3610 SCM_UNBOUND,
3611 SCM_UNBOUND,
3612 SCM_UNBOUND,
3613 SCM_UNBOUND,
3614 SCM_UNBOUND,
3615 SCM_UNBOUND,
3616 SCM_UNBOUND,
3617 SCM_UNBOUND,
3618 SCM_UNBOUND,
3619 SCM_UNBOUND,
3620 SCM_UNBOUND,
3621 SCM_UNBOUND,
3622 SCM_UNBOUND,
3623 SCM_UNBOUND,
3624 SCM_UNBOUND,
3625 SCM_UNBOUND,
3626 SCM_UNBOUND,
3627 SCM_UNBOUND,
3628 SCM_UNBOUND,
3629 SCM_UNBOUND,
3630 SCM_UNBOUND,
3631 SCM_UNBOUND,
3632 SCM_UNBOUND,
3633 SCM_UNBOUND,
3634 SCM_UNBOUND,
3635 SCM_UNBOUND,
3636 SCM_UNBOUND,
3637 SCM_UNBOUND,
3638 SCM_UNBOUND,
3639 SCM_UNBOUND,
3640 SCM_UNBOUND,
3641 SCM_UNBOUND,
3642 SCM_UNBOUND,
3643 SCM_UNBOUND,
3644 SCM_UNBOUND,
3645 SCM_UNBOUND,
3646 SCM_UNBOUND,
3647 SCM_UNBOUND,
3648 SCM_UNBOUND,
3649 SCM_UNBOUND,
3650 SCM_UNBOUND,
3651 SCM_UNBOUND,
3652 SCM_UNBOUND,
3653 SCM_UNBOUND,
3654 SCM_UNBOUND,
3655 SCM_UNBOUND,
3656 SCM_UNBOUND,
3657 SCM_UNBOUND,
3658 SCM_UNBOUND,
3659 SCM_UNBOUND,
3660 SCM_UNBOUND,
3661 SCM_UNBOUND,
3662 SCM_UNBOUND,
3663 SCM_UNBOUND,
3664 SCM_UNBOUND,
3665 SCM_UNBOUND,
3666 SCM_UNBOUND,
3667 SCM_UNBOUND,
3668 SCM_UNBOUND,
3669 SCM_UNBOUND,
3670 SCM_UNBOUND,
3671 SCM_UNBOUND,
3672 SCM_UNBOUND,
3673 SCM_UNBOUND,
3674 SCM_UNBOUND,
3675 SCM_UNBOUND,
3676 SCM_UNBOUND,
3677 SCM_UNBOUND,
3678 SCM_UNBOUND,
3679 SCM_UNBOUND,
3680 SCM_UNBOUND,
3681 SCM_UNBOUND,
3682 SCM_UNBOUND,
3683 SCM_UNBOUND,
3684 SCM_UNBOUND,
3685 SCM_UNBOUND,
3686 SCM_UNBOUND,
3687 SCM_UNBOUND,
3688 SCM_UNBOUND,
3689 SCM_UNBOUND,
3690 SCM_UNBOUND,
3691 SCM_UNBOUND,
3692 SCM_UNBOUND,
3693 SCM_UNBOUND,
3694 SCM_UNBOUND,
3695 SCM_UNBOUND,
3696 SCM_UNBOUND,
3697 SCM_UNBOUND,
3698 SCM_UNBOUND,
3699 SCM_UNBOUND,
3700 SCM_UNBOUND,
3701 SCM_UNBOUND,
3702 SCM_UNBOUND,
3703 SCM_UNBOUND,
3704 SCM_UNBOUND,
3705 SCM_UNBOUND,
3706 SCM_UNBOUND,
3707 SCM_UNBOUND,
3708 SCM_UNBOUND,
3709 SCM_UNBOUND,
3710 SCM_UNBOUND,
3711 SCM_UNBOUND,
3712 SCM_UNBOUND,
3713 SCM_UNBOUND,
3714 SCM_UNBOUND,
3715 SCM_UNBOUND,
3716 SCM_UNBOUND,
3717 SCM_UNBOUND,
3718 SCM_UNBOUND,
3719 SCM_UNBOUND,
3720 SCM_UNBOUND,
3721 SCM_UNBOUND,
3722 SCM_UNBOUND,
3723 SCM_UNBOUND,
3724 SCM_UNBOUND,
3725 SCM_UNBOUND,
3726 SCM_UNBOUND,
3727 SCM_UNBOUND,
3728 SCM_UNBOUND,
3729 SCM_UNBOUND,
3730 SCM_UNBOUND,
3731 SCM_UNBOUND,
3732 SCM_UNBOUND,
3733 SCM_UNBOUND,
3734 SCM_UNBOUND,
3735 SCM_UNBOUND,
3736 SCM_UNBOUND,
3737 SCM_UNBOUND,
3738 SCM_UNBOUND,
3739 SCM_UNBOUND,
3740 SCM_UNBOUND,
3741 SCM_UNBOUND,
3742 SCM_UNBOUND,
3743 },
3744 };
libstrstringP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3745 static ScmObj libstrstringP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3746 {
3747 ScmObj obj_scm;
3748 ScmObj obj;
3749 ScmObj SCM_SUBRARGS[1];
3750 SCM_ENTER_SUBR("string?");
3751 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3752 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3753 }
3754 obj_scm = SCM_SUBRARGS[0];
3755 obj = (obj_scm);
3756 {
3757 {
3758 int SCM_RESULT;
3759 {SCM_RESULT=(SCM_STRINGP(obj));goto SCM_STUB_RETURN;}
3760 goto SCM_STUB_RETURN;
3761 SCM_STUB_RETURN:
3762 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3763 }
3764 }
3765 }
3766
libstrstring_incompleteP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3767 static ScmObj libstrstring_incompleteP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3768 {
3769 ScmObj obj_scm;
3770 ScmObj obj;
3771 ScmObj SCM_SUBRARGS[1];
3772 SCM_ENTER_SUBR("string-incomplete?");
3773 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3774 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3775 }
3776 obj_scm = SCM_SUBRARGS[0];
3777 obj = (obj_scm);
3778 {
3779 {
3780 int SCM_RESULT;
3781
3782 #line 51 "libstr.scm"
3783 {SCM_RESULT=((SCM_STRINGP(obj))&&(SCM_STRING_INCOMPLETE_P(obj)));goto SCM_STUB_RETURN;}
3784 goto SCM_STUB_RETURN;
3785 SCM_STUB_RETURN:
3786 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3787 }
3788 }
3789 }
3790
libstrstring_immutableP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3791 static ScmObj libstrstring_immutableP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3792 {
3793 ScmObj obj_scm;
3794 ScmObj obj;
3795 ScmObj SCM_SUBRARGS[1];
3796 SCM_ENTER_SUBR("string-immutable?");
3797 for (int SCM_i=0; SCM_i<1; SCM_i++) {
3798 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3799 }
3800 obj_scm = SCM_SUBRARGS[0];
3801 obj = (obj_scm);
3802 {
3803 {
3804 int SCM_RESULT;
3805
3806 #line 53 "libstr.scm"
3807 {SCM_RESULT=((SCM_STRINGP(obj))&&(SCM_STRING_IMMUTABLE_P(obj)));goto SCM_STUB_RETURN;}
3808 goto SCM_STUB_RETURN;
3809 SCM_STUB_RETURN:
3810 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3811 }
3812 }
3813 }
3814
libstrmake_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3815 static ScmObj libstrmake_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3816 {
3817 ScmObj len_scm;
3818 ScmSmallInt len;
3819 ScmObj c_scm;
3820 ScmChar c;
3821 ScmObj SCM_SUBRARGS[3];
3822 SCM_ENTER_SUBR("make-string");
3823 if (SCM_ARGCNT >= 3
3824 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3825 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3826 for (int SCM_i=0; SCM_i<3; SCM_i++) {
3827 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3828 }
3829 len_scm = SCM_SUBRARGS[0];
3830 if (!SCM_INTP(len_scm)) Scm_Error("small integer required, but got %S", len_scm);
3831 len = SCM_INT_VALUE(len_scm);
3832 if (SCM_ARGCNT > 1+1) {
3833 c_scm = SCM_SUBRARGS[1];
3834 } else {
3835 c_scm = SCM_MAKE_CHAR(32);
3836 }
3837 if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
3838 c = SCM_CHAR_VALUE(c_scm);
3839 {
3840 {
3841 ScmObj SCM_RESULT;
3842 {SCM_RESULT=(Scm_MakeFillString(len,c));goto SCM_STUB_RETURN;}
3843 goto SCM_STUB_RETURN;
3844 SCM_STUB_RETURN:
3845 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3846 }
3847 }
3848 }
3849
libstrstring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3850 static ScmObj libstrstring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3851 {
3852 ScmObj chars_scm;
3853 ScmObj chars;
3854 ScmObj SCM_SUBRARGS[2];
3855 SCM_ENTER_SUBR("string");
3856 for (int SCM_i=0; SCM_i<2; SCM_i++) {
3857 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3858 }
3859 chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
3860 chars = (chars_scm);
3861 {
3862 {
3863 ScmObj SCM_RESULT;
3864 {SCM_RESULT=(Scm_ListToString(chars));goto SCM_STUB_RETURN;}
3865 goto SCM_STUB_RETURN;
3866 SCM_STUB_RETURN:
3867 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3868 }
3869 }
3870 }
3871
libstrstring_copy(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3872 static ScmObj libstrstring_copy(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3873 {
3874 ScmObj str_scm;
3875 ScmString* str;
3876 ScmObj start_scm;
3877 ScmObj start;
3878 ScmObj end_scm;
3879 ScmObj end;
3880 ScmObj SCM_SUBRARGS[5];
3881 SCM_ENTER_SUBR("string-copy");
3882 if (SCM_ARGCNT >= 4
3883 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3884 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3885 for (int SCM_i=0; SCM_i<5; SCM_i++) {
3886 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3887 }
3888 str_scm = SCM_SUBRARGS[0];
3889 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
3890 str = SCM_STRING(str_scm);
3891 if (SCM_ARGCNT > 1+1) {
3892 start_scm = SCM_SUBRARGS[1];
3893 } else {
3894 start_scm = SCM_UNBOUND;
3895 }
3896 start = (start_scm);
3897 if (SCM_ARGCNT > 2+1) {
3898 end_scm = SCM_SUBRARGS[2];
3899 } else {
3900 end_scm = SCM_UNBOUND;
3901 }
3902 end = (end_scm);
3903 {
3904 {
3905 ScmObj SCM_RESULT;
3906
3907 #line 64 "libstr.scm"
3908 {SCM_RESULT=(Scm_CopyString(SCM_STRING(Scm_MaybeSubstring(str,start,end))));goto SCM_STUB_RETURN;}
3909 goto SCM_STUB_RETURN;
3910 SCM_STUB_RETURN:
3911 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3912 }
3913 }
3914 }
3915
libstrstring_append(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3916 static ScmObj libstrstring_append(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3917 {
3918 ScmObj args_scm;
3919 ScmObj args;
3920 ScmObj SCM_SUBRARGS[2];
3921 SCM_ENTER_SUBR("string-append");
3922 for (int SCM_i=0; SCM_i<2; SCM_i++) {
3923 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3924 }
3925 args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
3926 args = (args_scm);
3927 {
3928 {
3929 ScmObj SCM_RESULT;
3930 {SCM_RESULT=(Scm_StringAppend(args));goto SCM_STUB_RETURN;}
3931 goto SCM_STUB_RETURN;
3932 SCM_STUB_RETURN:
3933 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3934 }
3935 }
3936 }
3937
libstrstring_copy_immutable(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3938 static ScmObj libstrstring_copy_immutable(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3939 {
3940 ScmObj str_scm;
3941 ScmString* str;
3942 ScmObj start_scm;
3943 ScmObj start;
3944 ScmObj end_scm;
3945 ScmObj end;
3946 ScmObj SCM_SUBRARGS[5];
3947 SCM_ENTER_SUBR("string-copy-immutable");
3948 if (SCM_ARGCNT >= 4
3949 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3950 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3951 for (int SCM_i=0; SCM_i<5; SCM_i++) {
3952 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3953 }
3954 str_scm = SCM_SUBRARGS[0];
3955 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
3956 str = SCM_STRING(str_scm);
3957 if (SCM_ARGCNT > 1+1) {
3958 start_scm = SCM_SUBRARGS[1];
3959 } else {
3960 start_scm = SCM_UNBOUND;
3961 }
3962 start = (start_scm);
3963 if (SCM_ARGCNT > 2+1) {
3964 end_scm = SCM_SUBRARGS[2];
3965 } else {
3966 end_scm = SCM_UNBOUND;
3967 }
3968 end = (end_scm);
3969 {
3970 {
3971 ScmObj SCM_RESULT;
3972
3973 #line 70 "libstr.scm"
3974 {ScmObj s=Scm_MaybeSubstring(str,start,end);
3975 if (SCM_STRING_IMMUTABLE_P(s)){
3976 {SCM_RESULT=(s);goto SCM_STUB_RETURN;}} else {
3977 {SCM_RESULT=(Scm_CopyStringWithFlags(SCM_STRING(s),SCM_STRING_IMMUTABLE,SCM_STRING_IMMUTABLE));goto SCM_STUB_RETURN;}}}
3978 goto SCM_STUB_RETURN;
3979 SCM_STUB_RETURN:
3980 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3981 }
3982 }
3983 }
3984
libstrstring_join(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3985 static ScmObj libstrstring_join(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3986 {
3987 ScmObj strs_scm;
3988 ScmObj strs;
3989 ScmObj delim_scm;
3990 ScmString* delim;
3991 ScmObj grammar_scm;
3992 ScmObj grammar;
3993 ScmObj SCM_SUBRARGS[5];
3994 SCM_ENTER_SUBR("string-join");
3995 if (SCM_ARGCNT >= 4
3996 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3997 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3998 for (int SCM_i=0; SCM_i<5; SCM_i++) {
3999 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4000 }
4001 strs_scm = SCM_SUBRARGS[0];
4002 if (!SCM_LISTP(strs_scm)) Scm_Error("list required, but got %S", strs_scm);
4003 strs = (strs_scm);
4004 if (SCM_ARGCNT > 1+1) {
4005 delim_scm = SCM_SUBRARGS[1];
4006 } else {
4007 delim_scm = SCM_OBJ(&scm__sc.d1561[23]);
4008 }
4009 if (!SCM_STRINGP(delim_scm)) Scm_Error("string required, but got %S", delim_scm);
4010 delim = SCM_STRING(delim_scm);
4011 if (SCM_ARGCNT > 2+1) {
4012 grammar_scm = SCM_SUBRARGS[2];
4013 } else {
4014 grammar_scm = scm__rc.d1562[30];
4015 }
4016 grammar = (grammar_scm);
4017 {
4018 {
4019 ScmObj SCM_RESULT;
4020
4021 #line 79 "libstr.scm"
4022 {int gm=0;
4023 if (
4024 SCM_EQ(grammar,scm__rc.d1562[30])){gm=(SCM_STRING_JOIN_INFIX);}else if(
4025 SCM_EQ(grammar,scm__rc.d1562[33])){gm=(SCM_STRING_JOIN_STRICT_INFIX);}else if(
4026 SCM_EQ(grammar,scm__rc.d1562[32])){gm=(SCM_STRING_JOIN_SUFFIX);}else if(
4027 SCM_EQ(grammar,scm__rc.d1562[31])){gm=(SCM_STRING_JOIN_PREFIX);} else {
4028 SCM_TYPE_ERROR(grammar,"one of the symbols infix, strict-infix, suffix, or prefix");}
4029 #line 87 "libstr.scm"
4030 {SCM_RESULT=(Scm_StringJoin(strs,delim,gm));goto SCM_STUB_RETURN;}}
4031 goto SCM_STUB_RETURN;
4032 SCM_STUB_RETURN:
4033 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4034 }
4035 }
4036 }
4037
libstrstring_TOlist(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4038 static ScmObj libstrstring_TOlist(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4039 {
4040 ScmObj str_scm;
4041 ScmString* str;
4042 ScmObj start_scm;
4043 ScmObj start;
4044 ScmObj end_scm;
4045 ScmObj end;
4046 ScmObj SCM_SUBRARGS[5];
4047 SCM_ENTER_SUBR("string->list");
4048 if (SCM_ARGCNT >= 4
4049 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4050 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4051 for (int SCM_i=0; SCM_i<5; SCM_i++) {
4052 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4053 }
4054 str_scm = SCM_SUBRARGS[0];
4055 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4056 str = SCM_STRING(str_scm);
4057 if (SCM_ARGCNT > 1+1) {
4058 start_scm = SCM_SUBRARGS[1];
4059 } else {
4060 start_scm = SCM_UNBOUND;
4061 }
4062 start = (start_scm);
4063 if (SCM_ARGCNT > 2+1) {
4064 end_scm = SCM_SUBRARGS[2];
4065 } else {
4066 end_scm = SCM_UNBOUND;
4067 }
4068 end = (end_scm);
4069 {
4070 {
4071 ScmObj SCM_RESULT;
4072
4073 #line 99 "libstr.scm"
4074 {SCM_RESULT=(Scm_StringToList(SCM_STRING(Scm_MaybeSubstring(str,start,end))));goto SCM_STUB_RETURN;}
4075 goto SCM_STUB_RETURN;
4076 SCM_STUB_RETURN:
4077 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4078 }
4079 }
4080 }
4081
libstrlist_TOstring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4082 static ScmObj libstrlist_TOstring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4083 {
4084 ScmObj list_scm;
4085 ScmObj list;
4086 ScmObj SCM_SUBRARGS[1];
4087 SCM_ENTER_SUBR("list->string");
4088 for (int SCM_i=0; SCM_i<1; SCM_i++) {
4089 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4090 }
4091 list_scm = SCM_SUBRARGS[0];
4092 if (!SCM_LISTP(list_scm)) Scm_Error("list required, but got %S", list_scm);
4093 list = (list_scm);
4094 {
4095 {
4096 ScmObj SCM_RESULT;
4097 {SCM_RESULT=(Scm_ListToString(list));goto SCM_STUB_RETURN;}
4098 goto SCM_STUB_RETURN;
4099 SCM_STUB_RETURN:
4100 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4101 }
4102 }
4103 }
4104
libstrstring_length(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4105 static ScmObj libstrstring_length(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4106 {
4107 ScmObj str_scm;
4108 ScmString* str;
4109 ScmObj SCM_SUBRARGS[1];
4110 SCM_ENTER_SUBR("string-length");
4111 for (int SCM_i=0; SCM_i<1; SCM_i++) {
4112 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4113 }
4114 str_scm = SCM_SUBRARGS[0];
4115 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4116 str = SCM_STRING(str_scm);
4117 {
4118 {
4119 ScmSmallInt SCM_RESULT;
4120
4121 #line 108 "libstr.scm"
4122 {SCM_RESULT=(SCM_STRING_BODY_LENGTH(SCM_STRING_BODY(str)));goto SCM_STUB_RETURN;}
4123 goto SCM_STUB_RETURN;
4124 SCM_STUB_RETURN:
4125 SCM_RETURN(SCM_MAKE_INT(SCM_RESULT));
4126 }
4127 }
4128 }
4129
libstrstring_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4130 static ScmObj libstrstring_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4131 {
4132 ScmObj str_scm;
4133 ScmString* str;
4134 ScmObj k_scm;
4135 ScmObj k;
4136 ScmObj fallback_scm;
4137 ScmObj fallback;
4138 ScmObj SCM_SUBRARGS[4];
4139 SCM_ENTER_SUBR("string-ref");
4140 if (SCM_ARGCNT >= 4
4141 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4142 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4143 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4144 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4145 }
4146 str_scm = SCM_SUBRARGS[0];
4147 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4148 str = SCM_STRING(str_scm);
4149 k_scm = SCM_SUBRARGS[1];
4150 k = (k_scm);
4151 if (SCM_ARGCNT > 2+1) {
4152 fallback_scm = SCM_SUBRARGS[2];
4153 } else {
4154 fallback_scm = SCM_UNBOUND;
4155 }
4156 fallback = (fallback_scm);
4157 {
4158 {
4159 ScmObj SCM_RESULT;
4160
4161 #line 111 "libstr.scm"
4162 {ScmChar r=Scm_StringRefCursor(str,k,SCM_UNBOUNDP(fallback));
4163 {SCM_RESULT=((((r)==(SCM_CHAR_INVALID))?(fallback):(SCM_MAKE_CHAR(r))));goto SCM_STUB_RETURN;}}
4164 goto SCM_STUB_RETURN;
4165 SCM_STUB_RETURN:
4166 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4167 }
4168 }
4169 }
4170
libstrsubstring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4171 static ScmObj libstrsubstring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4172 {
4173 ScmObj str_scm;
4174 ScmString* str;
4175 ScmObj start_scm;
4176 ScmObj start;
4177 ScmObj end_scm;
4178 ScmObj end;
4179 ScmObj SCM_SUBRARGS[3];
4180 SCM_ENTER_SUBR("substring");
4181 for (int SCM_i=0; SCM_i<3; SCM_i++) {
4182 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4183 }
4184 str_scm = SCM_SUBRARGS[0];
4185 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4186 str = SCM_STRING(str_scm);
4187 start_scm = SCM_SUBRARGS[1];
4188 start = (start_scm);
4189 end_scm = SCM_SUBRARGS[2];
4190 end = (end_scm);
4191 {
4192 {
4193 ScmObj SCM_RESULT;
4194
4195 #line 114 "libstr.scm"
4196 {SCM_RESULT=(Scm_SubstringCursor(str,start,end));goto SCM_STUB_RETURN;}
4197 goto SCM_STUB_RETURN;
4198 SCM_STUB_RETURN:
4199 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4200 }
4201 }
4202 }
4203
libstrstring_size(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4204 static ScmObj libstrstring_size(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4205 {
4206 ScmObj str_scm;
4207 ScmString* str;
4208 ScmObj SCM_SUBRARGS[1];
4209 SCM_ENTER_SUBR("string-size");
4210 for (int SCM_i=0; SCM_i<1; SCM_i++) {
4211 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4212 }
4213 str_scm = SCM_SUBRARGS[0];
4214 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4215 str = SCM_STRING(str_scm);
4216 {
4217 {
4218 ScmSmallInt SCM_RESULT;
4219
4220 #line 118 "libstr.scm"
4221 {SCM_RESULT=(SCM_STRING_BODY_SIZE(SCM_STRING_BODY(str)));goto SCM_STUB_RETURN;}
4222 goto SCM_STUB_RETURN;
4223 SCM_STUB_RETURN:
4224 SCM_RETURN(SCM_MAKE_INT(SCM_RESULT));
4225 }
4226 }
4227 }
4228
libstr_25maybe_substring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4229 static ScmObj libstr_25maybe_substring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4230 {
4231 ScmObj str_scm;
4232 ScmString* str;
4233 ScmObj start_scm;
4234 ScmObj start;
4235 ScmObj end_scm;
4236 ScmObj end;
4237 ScmObj SCM_SUBRARGS[5];
4238 SCM_ENTER_SUBR("%maybe-substring");
4239 if (SCM_ARGCNT >= 4
4240 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4241 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4242 for (int SCM_i=0; SCM_i<5; SCM_i++) {
4243 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4244 }
4245 str_scm = SCM_SUBRARGS[0];
4246 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4247 str = SCM_STRING(str_scm);
4248 if (SCM_ARGCNT > 1+1) {
4249 start_scm = SCM_SUBRARGS[1];
4250 } else {
4251 start_scm = SCM_UNBOUND;
4252 }
4253 start = (start_scm);
4254 if (SCM_ARGCNT > 2+1) {
4255 end_scm = SCM_SUBRARGS[2];
4256 } else {
4257 end_scm = SCM_UNBOUND;
4258 }
4259 end = (end_scm);
4260 {
4261 {
4262 ScmObj SCM_RESULT;
4263 {SCM_RESULT=(Scm_MaybeSubstring(str,start,end));goto SCM_STUB_RETURN;}
4264 goto SCM_STUB_RETURN;
4265 SCM_STUB_RETURN:
4266 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4267 }
4268 }
4269 }
4270
libstr_25hash_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4271 static ScmObj libstr_25hash_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4272 {
4273 ScmObj str_scm;
4274 ScmString* str;
4275 ScmObj bound_scm;
4276 ScmObj bound;
4277 ScmObj SCM_SUBRARGS[3];
4278 SCM_ENTER_SUBR("%hash-string");
4279 if (SCM_ARGCNT >= 3
4280 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4281 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4282 for (int SCM_i=0; SCM_i<3; SCM_i++) {
4283 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4284 }
4285 str_scm = SCM_SUBRARGS[0];
4286 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4287 str = SCM_STRING(str_scm);
4288 if (SCM_ARGCNT > 1+1) {
4289 bound_scm = SCM_SUBRARGS[1];
4290 } else {
4291 bound_scm = SCM_UNBOUND;
4292 }
4293 bound = (bound_scm);
4294 {
4295 {
4296 u_long SCM_RESULT;
4297
4298 #line 125 "libstr.scm"
4299 {u_long modulo=0;
4300 if ((SCM_UNBOUNDP(bound))||(SCM_UNDEFINEDP(bound))){
4301 modulo=(0);}else if(
4302 SCM_INTP(bound)){modulo=(SCM_INT_VALUE(bound));}else if(
4303 SCM_BIGNUMP(bound)){
4304 modulo=(
4305 Scm_BignumToUI(SCM_BIGNUM(bound),SCM_CLAMP_BOTH,NULL));} else {
4306 Scm_Error("argument out of domain: %S",bound);}
4307 {SCM_RESULT=(Scm_HashString(str,modulo));goto SCM_STUB_RETURN;}}
4308 goto SCM_STUB_RETURN;
4309 SCM_STUB_RETURN:
4310 SCM_RETURN(Scm_MakeIntegerFromUI(SCM_RESULT));
4311 }
4312 }
4313 }
4314
string_scan_mode(ScmObj mode)4315 int string_scan_mode(ScmObj mode){{
4316 #line 138 "libstr.scm"
4317 {int rmode=0;
4318 if (
4319 SCM_EQ(mode,scm__rc.d1562[73])){rmode=(SCM_STRING_SCAN_INDEX);}else if(
4320 SCM_EQ(mode,scm__rc.d1562[72])){rmode=(SCM_STRING_SCAN_CURSOR);}else if(
4321 SCM_EQ(mode,scm__rc.d1562[71])){rmode=(SCM_STRING_SCAN_BEFORE);}else if(
4322 SCM_EQ(mode,scm__rc.d1562[70])){rmode=(SCM_STRING_SCAN_AFTER);}else if(
4323 SCM_EQ(mode,scm__rc.d1562[69])){rmode=(SCM_STRING_SCAN_BEFORE2);}else if(
4324 SCM_EQ(mode,scm__rc.d1562[68])){rmode=(SCM_STRING_SCAN_AFTER2);}else if(
4325 SCM_EQ(mode,scm__rc.d1562[67])){rmode=(SCM_STRING_SCAN_BOTH);} else {
4326 Scm_Error("bad value in mode argumet: %S, must be one of 'index, 'before, 'after, 'before*, 'after* or 'both.",mode);}
4327 #line 149 "libstr.scm"
4328 return (rmode);}}}
libstrstring_scan(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4329 static ScmObj libstrstring_scan(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4330 {
4331 ScmObj s1_scm;
4332 ScmString* s1;
4333 ScmObj s2_scm;
4334 ScmObj s2;
4335 ScmObj mode_scm;
4336 ScmObj mode;
4337 ScmObj SCM_SUBRARGS[4];
4338 SCM_ENTER_SUBR("string-scan");
4339 if (SCM_ARGCNT >= 4
4340 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4341 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4342 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4343 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4344 }
4345 s1_scm = SCM_SUBRARGS[0];
4346 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4347 s1 = SCM_STRING(s1_scm);
4348 s2_scm = SCM_SUBRARGS[1];
4349 s2 = (s2_scm);
4350 if (SCM_ARGCNT > 2+1) {
4351 mode_scm = SCM_SUBRARGS[2];
4352 } else {
4353 mode_scm = scm__rc.d1562[73];
4354 }
4355 mode = (mode_scm);
4356 {
4357 {
4358 ScmObj SCM_RESULT;
4359
4360 #line 153 "libstr.scm"
4361 {int rmode=string_scan_mode(mode);
4362 if (
4363 SCM_STRINGP(s2)){{SCM_RESULT=(Scm_StringScan(s1,SCM_STRING(s2),rmode));goto SCM_STUB_RETURN;}}else if(
4364 SCM_CHARP(s2)){
4365 {SCM_RESULT=(Scm_StringScanChar(s1,SCM_CHAR_VALUE(s2),rmode));goto SCM_STUB_RETURN;}} else {
4366 Scm_Error("bad type of argument for s2: %S, must be either string or character",s2);
4367 #line 160 "libstr.scm"
4368 {SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}}}
4369 goto SCM_STUB_RETURN;
4370 SCM_STUB_RETURN:
4371 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4372 }
4373 }
4374 }
4375
libstrstring_scan_right(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4376 static ScmObj libstrstring_scan_right(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4377 {
4378 ScmObj s1_scm;
4379 ScmString* s1;
4380 ScmObj s2_scm;
4381 ScmObj s2;
4382 ScmObj mode_scm;
4383 ScmObj mode;
4384 ScmObj SCM_SUBRARGS[4];
4385 SCM_ENTER_SUBR("string-scan-right");
4386 if (SCM_ARGCNT >= 4
4387 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4388 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4389 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4390 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4391 }
4392 s1_scm = SCM_SUBRARGS[0];
4393 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4394 s1 = SCM_STRING(s1_scm);
4395 s2_scm = SCM_SUBRARGS[1];
4396 s2 = (s2_scm);
4397 if (SCM_ARGCNT > 2+1) {
4398 mode_scm = SCM_SUBRARGS[2];
4399 } else {
4400 mode_scm = scm__rc.d1562[73];
4401 }
4402 mode = (mode_scm);
4403 {
4404 {
4405 ScmObj SCM_RESULT;
4406
4407 #line 163 "libstr.scm"
4408 {int rmode=string_scan_mode(mode);
4409 if (
4410 SCM_STRINGP(s2)){{SCM_RESULT=(Scm_StringScanRight(s1,SCM_STRING(s2),rmode));goto SCM_STUB_RETURN;}}else if(
4411 SCM_CHARP(s2)){
4412 {SCM_RESULT=(Scm_StringScanCharRight(s1,SCM_CHAR_VALUE(s2),rmode));goto SCM_STUB_RETURN;}} else {
4413 Scm_Error("bad type of argument for s2: %S, must be either string or character",s2);
4414 #line 170 "libstr.scm"
4415 {SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}}}
4416 goto SCM_STUB_RETURN;
4417 SCM_STUB_RETURN:
4418 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4419 }
4420 }
4421 }
4422
libstr_25string_split_by_char(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4423 static ScmObj libstr_25string_split_by_char(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4424 {
4425 ScmObj s_scm;
4426 ScmString* s;
4427 ScmObj ch_scm;
4428 ScmChar ch;
4429 ScmObj limit_scm;
4430 int limit;
4431 ScmObj SCM_SUBRARGS[4];
4432 SCM_ENTER_SUBR("%string-split-by-char");
4433 if (SCM_ARGCNT >= 4
4434 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4435 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4436 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4437 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4438 }
4439 s_scm = SCM_SUBRARGS[0];
4440 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
4441 s = SCM_STRING(s_scm);
4442 ch_scm = SCM_SUBRARGS[1];
4443 if (!SCM_CHARP(ch_scm)) Scm_Error("character required, but got %S", ch_scm);
4444 ch = SCM_CHAR_VALUE(ch_scm);
4445 if (SCM_ARGCNT > 2+1) {
4446 limit_scm = SCM_SUBRARGS[2];
4447 } else {
4448 limit_scm = SCM_MAKE_INT(-1);
4449 }
4450 if (!SCM_INTEGERP(limit_scm)) Scm_Error("C integer required, but got %S", limit_scm);
4451 limit = Scm_GetInteger(limit_scm);
4452 {
4453 {
4454 ScmObj SCM_RESULT;
4455 {SCM_RESULT=(Scm_StringSplitByCharWithLimit(s,ch,limit));goto SCM_STUB_RETURN;}
4456 goto SCM_STUB_RETURN;
4457 SCM_STUB_RETURN:
4458 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4459 }
4460 }
4461 }
4462
libstr_25string_replace_bodyX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4463 static ScmObj libstr_25string_replace_bodyX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4464 {
4465 ScmObj target_scm;
4466 ScmString* target;
4467 ScmObj source_scm;
4468 ScmString* source;
4469 ScmObj SCM_SUBRARGS[2];
4470 SCM_ENTER_SUBR("%string-replace-body!");
4471 for (int SCM_i=0; SCM_i<2; SCM_i++) {
4472 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4473 }
4474 target_scm = SCM_SUBRARGS[0];
4475 if (!SCM_STRINGP(target_scm)) Scm_Error("string required, but got %S", target_scm);
4476 target = SCM_STRING(target_scm);
4477 source_scm = SCM_SUBRARGS[1];
4478 if (!SCM_STRINGP(source_scm)) Scm_Error("string required, but got %S", source_scm);
4479 source = SCM_STRING(source_scm);
4480 {
4481 {
4482 ScmObj SCM_RESULT;
4483
4484 #line 279 "libstr.scm"
4485 {SCM_RESULT=(Scm_StringReplaceBody(target,SCM_STRING_BODY(source)));goto SCM_STUB_RETURN;}
4486 goto SCM_STUB_RETURN;
4487 SCM_STUB_RETURN:
4488 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4489 }
4490 }
4491 }
4492
libstrstring_build_indexX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4493 static ScmObj libstrstring_build_indexX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4494 {
4495 ScmObj s_scm;
4496 ScmString* s;
4497 ScmObj SCM_SUBRARGS[1];
4498 SCM_ENTER_SUBR("string-build-index!");
4499 for (int SCM_i=0; SCM_i<1; SCM_i++) {
4500 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4501 }
4502 s_scm = SCM_SUBRARGS[0];
4503 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
4504 s = SCM_STRING(s_scm);
4505 {
4506 {
4507 ScmString* SCM_RESULT;
4508
4509 #line 330 "libstr.scm"
4510 Scm_StringBodyBuildIndex(((ScmStringBody* )(SCM_STRING_BODY(s))));
4511
4512 #line 331 "libstr.scm"
4513 {SCM_RESULT=(s);goto SCM_STUB_RETURN;}
4514 goto SCM_STUB_RETURN;
4515 SCM_STUB_RETURN:
4516 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4517 }
4518 }
4519 }
4520
libstrstring_fast_indexableP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4521 static ScmObj libstrstring_fast_indexableP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4522 {
4523 ScmObj s_scm;
4524 ScmString* s;
4525 ScmObj SCM_SUBRARGS[1];
4526 SCM_ENTER_SUBR("string-fast-indexable?");
4527 for (int SCM_i=0; SCM_i<1; SCM_i++) {
4528 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4529 }
4530 s_scm = SCM_SUBRARGS[0];
4531 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
4532 s = SCM_STRING(s_scm);
4533 {
4534 {
4535 int SCM_RESULT;
4536
4537 #line 334 "libstr.scm"
4538 {SCM_RESULT=(Scm_StringBodyFastIndexableP(SCM_STRING_BODY(s)));goto SCM_STUB_RETURN;}
4539 goto SCM_STUB_RETURN;
4540 SCM_STUB_RETURN:
4541 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4542 }
4543 }
4544 }
4545
libstr_25string_index_dump(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4546 static ScmObj libstr_25string_index_dump(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4547 {
4548 ScmObj s_scm;
4549 ScmString* s;
4550 ScmObj p_scm;
4551 ScmPort* p;
4552 ScmObj SCM_SUBRARGS[3];
4553 SCM_ENTER_SUBR("%string-index-dump");
4554 if (SCM_ARGCNT >= 3
4555 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4556 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4557 for (int SCM_i=0; SCM_i<3; SCM_i++) {
4558 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4559 }
4560 s_scm = SCM_SUBRARGS[0];
4561 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
4562 s = SCM_STRING(s_scm);
4563 if (SCM_ARGCNT > 1+1) {
4564 p_scm = SCM_SUBRARGS[1];
4565 } else {
4566 p_scm = SCM_OBJ(SCM_CUROUT);
4567 }
4568 if (!SCM_PORTP(p_scm)) Scm_Error("port required, but got %S", p_scm);
4569 p = SCM_PORT(p_scm);
4570 {
4571
4572 #line 338 "libstr.scm"
4573 Scm_StringBodyIndexDump(SCM_STRING_BODY(s),p);
4574 goto SCM_STUB_RETURN;
4575 SCM_STUB_RETURN:
4576 SCM_RETURN(SCM_UNDEFINED);
4577 }
4578 }
4579
libstrstring_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4580 static ScmObj libstrstring_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4581 {
4582 ScmObj s1_scm;
4583 ScmString* s1;
4584 ScmObj s2_scm;
4585 ScmString* s2;
4586 ScmObj ss_scm;
4587 ScmObj ss;
4588 ScmObj SCM_SUBRARGS[4];
4589 SCM_ENTER_SUBR("string=?");
4590 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4591 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4592 }
4593 s1_scm = SCM_SUBRARGS[0];
4594 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4595 s1 = SCM_STRING(s1_scm);
4596 s2_scm = SCM_SUBRARGS[1];
4597 if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4598 s2 = SCM_STRING(s2_scm);
4599 ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4600 ss = (ss_scm);
4601 {
4602 {
4603 int SCM_RESULT;
4604
4605 #line 363 "libstr.scm"
4606 while(TRUE){if (Scm_StringEqual(s1,s2)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4607 goto SCM_STUB_RETURN;
4608 SCM_STUB_RETURN:
4609 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4610 }
4611 }
4612 }
4613
libstrstring_LTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4614 static ScmObj libstrstring_LTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4615 {
4616 ScmObj s1_scm;
4617 ScmString* s1;
4618 ScmObj s2_scm;
4619 ScmString* s2;
4620 ScmObj ss_scm;
4621 ScmObj ss;
4622 ScmObj SCM_SUBRARGS[4];
4623 SCM_ENTER_SUBR("string<?");
4624 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4625 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4626 }
4627 s1_scm = SCM_SUBRARGS[0];
4628 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4629 s1 = SCM_STRING(s1_scm);
4630 s2_scm = SCM_SUBRARGS[1];
4631 if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4632 s2 = SCM_STRING(s2_scm);
4633 ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4634 ss = (ss_scm);
4635 {
4636 {
4637 int SCM_RESULT;
4638
4639 #line 366 "libstr.scm"
4640 while(TRUE){if ((Scm_StringCmp(s1,s2))<(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4641 goto SCM_STUB_RETURN;
4642 SCM_STUB_RETURN:
4643 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4644 }
4645 }
4646 }
4647
libstrstring_GTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4648 static ScmObj libstrstring_GTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4649 {
4650 ScmObj s1_scm;
4651 ScmString* s1;
4652 ScmObj s2_scm;
4653 ScmString* s2;
4654 ScmObj ss_scm;
4655 ScmObj ss;
4656 ScmObj SCM_SUBRARGS[4];
4657 SCM_ENTER_SUBR("string>?");
4658 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4659 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4660 }
4661 s1_scm = SCM_SUBRARGS[0];
4662 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4663 s1 = SCM_STRING(s1_scm);
4664 s2_scm = SCM_SUBRARGS[1];
4665 if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4666 s2 = SCM_STRING(s2_scm);
4667 ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4668 ss = (ss_scm);
4669 {
4670 {
4671 int SCM_RESULT;
4672
4673 #line 369 "libstr.scm"
4674 while(TRUE){if ((Scm_StringCmp(s1,s2))>(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4675 goto SCM_STUB_RETURN;
4676 SCM_STUB_RETURN:
4677 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4678 }
4679 }
4680 }
4681
libstrstring_LT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4682 static ScmObj libstrstring_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4683 {
4684 ScmObj s1_scm;
4685 ScmString* s1;
4686 ScmObj s2_scm;
4687 ScmString* s2;
4688 ScmObj ss_scm;
4689 ScmObj ss;
4690 ScmObj SCM_SUBRARGS[4];
4691 SCM_ENTER_SUBR("string<=?");
4692 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4693 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4694 }
4695 s1_scm = SCM_SUBRARGS[0];
4696 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4697 s1 = SCM_STRING(s1_scm);
4698 s2_scm = SCM_SUBRARGS[1];
4699 if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4700 s2 = SCM_STRING(s2_scm);
4701 ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4702 ss = (ss_scm);
4703 {
4704 {
4705 int SCM_RESULT;
4706
4707 #line 372 "libstr.scm"
4708 while(TRUE){if ((Scm_StringCmp(s1,s2))<=(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4709 goto SCM_STUB_RETURN;
4710 SCM_STUB_RETURN:
4711 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4712 }
4713 }
4714 }
4715
libstrstring_GT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4716 static ScmObj libstrstring_GT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4717 {
4718 ScmObj s1_scm;
4719 ScmString* s1;
4720 ScmObj s2_scm;
4721 ScmString* s2;
4722 ScmObj ss_scm;
4723 ScmObj ss;
4724 ScmObj SCM_SUBRARGS[4];
4725 SCM_ENTER_SUBR("string>=?");
4726 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4727 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4728 }
4729 s1_scm = SCM_SUBRARGS[0];
4730 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4731 s1 = SCM_STRING(s1_scm);
4732 s2_scm = SCM_SUBRARGS[1];
4733 if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4734 s2 = SCM_STRING(s2_scm);
4735 ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4736 ss = (ss_scm);
4737 {
4738 {
4739 int SCM_RESULT;
4740
4741 #line 375 "libstr.scm"
4742 while(TRUE){if ((Scm_StringCmp(s1,s2))>=(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4743 goto SCM_STUB_RETURN;
4744 SCM_STUB_RETURN:
4745 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4746 }
4747 }
4748 }
4749
libstrstring_ci_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4750 static ScmObj libstrstring_ci_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4751 {
4752 ScmObj s1_scm;
4753 ScmString* s1;
4754 ScmObj s2_scm;
4755 ScmString* s2;
4756 ScmObj ss_scm;
4757 ScmObj ss;
4758 ScmObj SCM_SUBRARGS[4];
4759 SCM_ENTER_SUBR("string-ci=?");
4760 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4761 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4762 }
4763 s1_scm = SCM_SUBRARGS[0];
4764 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4765 s1 = SCM_STRING(s1_scm);
4766 s2_scm = SCM_SUBRARGS[1];
4767 if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4768 s2 = SCM_STRING(s2_scm);
4769 ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4770 ss = (ss_scm);
4771 {
4772 {
4773 int SCM_RESULT;
4774
4775 #line 379 "libstr.scm"
4776 while(TRUE){if ((Scm_StringCiCmp(s1,s2))==(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4777 goto SCM_STUB_RETURN;
4778 SCM_STUB_RETURN:
4779 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4780 }
4781 }
4782 }
4783
libstrstring_ci_LTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4784 static ScmObj libstrstring_ci_LTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4785 {
4786 ScmObj s1_scm;
4787 ScmString* s1;
4788 ScmObj s2_scm;
4789 ScmString* s2;
4790 ScmObj ss_scm;
4791 ScmObj ss;
4792 ScmObj SCM_SUBRARGS[4];
4793 SCM_ENTER_SUBR("string-ci<?");
4794 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4795 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4796 }
4797 s1_scm = SCM_SUBRARGS[0];
4798 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4799 s1 = SCM_STRING(s1_scm);
4800 s2_scm = SCM_SUBRARGS[1];
4801 if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4802 s2 = SCM_STRING(s2_scm);
4803 ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4804 ss = (ss_scm);
4805 {
4806 {
4807 int SCM_RESULT;
4808
4809 #line 382 "libstr.scm"
4810 while(TRUE){if ((Scm_StringCiCmp(s1,s2))<(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4811 goto SCM_STUB_RETURN;
4812 SCM_STUB_RETURN:
4813 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4814 }
4815 }
4816 }
4817
libstrstring_ci_GTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4818 static ScmObj libstrstring_ci_GTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4819 {
4820 ScmObj s1_scm;
4821 ScmString* s1;
4822 ScmObj s2_scm;
4823 ScmString* s2;
4824 ScmObj ss_scm;
4825 ScmObj ss;
4826 ScmObj SCM_SUBRARGS[4];
4827 SCM_ENTER_SUBR("string-ci>?");
4828 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4829 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4830 }
4831 s1_scm = SCM_SUBRARGS[0];
4832 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4833 s1 = SCM_STRING(s1_scm);
4834 s2_scm = SCM_SUBRARGS[1];
4835 if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4836 s2 = SCM_STRING(s2_scm);
4837 ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4838 ss = (ss_scm);
4839 {
4840 {
4841 int SCM_RESULT;
4842
4843 #line 385 "libstr.scm"
4844 while(TRUE){if ((Scm_StringCiCmp(s1,s2))>(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4845 goto SCM_STUB_RETURN;
4846 SCM_STUB_RETURN:
4847 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4848 }
4849 }
4850 }
4851
libstrstring_ci_LT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4852 static ScmObj libstrstring_ci_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4853 {
4854 ScmObj s1_scm;
4855 ScmString* s1;
4856 ScmObj s2_scm;
4857 ScmString* s2;
4858 ScmObj ss_scm;
4859 ScmObj ss;
4860 ScmObj SCM_SUBRARGS[4];
4861 SCM_ENTER_SUBR("string-ci<=?");
4862 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4863 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4864 }
4865 s1_scm = SCM_SUBRARGS[0];
4866 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4867 s1 = SCM_STRING(s1_scm);
4868 s2_scm = SCM_SUBRARGS[1];
4869 if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4870 s2 = SCM_STRING(s2_scm);
4871 ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4872 ss = (ss_scm);
4873 {
4874 {
4875 int SCM_RESULT;
4876
4877 #line 388 "libstr.scm"
4878 while(TRUE){if ((Scm_StringCiCmp(s1,s2))<=(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4879 goto SCM_STUB_RETURN;
4880 SCM_STUB_RETURN:
4881 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4882 }
4883 }
4884 }
4885
libstrstring_ci_GT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4886 static ScmObj libstrstring_ci_GT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4887 {
4888 ScmObj s1_scm;
4889 ScmString* s1;
4890 ScmObj s2_scm;
4891 ScmString* s2;
4892 ScmObj ss_scm;
4893 ScmObj ss;
4894 ScmObj SCM_SUBRARGS[4];
4895 SCM_ENTER_SUBR("string-ci>=?");
4896 for (int SCM_i=0; SCM_i<4; SCM_i++) {
4897 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4898 }
4899 s1_scm = SCM_SUBRARGS[0];
4900 if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4901 s1 = SCM_STRING(s1_scm);
4902 s2_scm = SCM_SUBRARGS[1];
4903 if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4904 s2 = SCM_STRING(s2_scm);
4905 ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4906 ss = (ss_scm);
4907 {
4908 {
4909 int SCM_RESULT;
4910
4911 #line 391 "libstr.scm"
4912 while(TRUE){if ((Scm_StringCiCmp(s1,s2))>=(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4913 goto SCM_STUB_RETURN;
4914 SCM_STUB_RETURN:
4915 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4916 }
4917 }
4918 }
4919
libstrstring_complete_TOincomplete(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4920 static ScmObj libstrstring_complete_TOincomplete(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4921 {
4922 ScmObj str_scm;
4923 ScmString* str;
4924 ScmObj SCM_SUBRARGS[1];
4925 SCM_ENTER_SUBR("string-complete->incomplete");
4926 for (int SCM_i=0; SCM_i<1; SCM_i++) {
4927 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4928 }
4929 str_scm = SCM_SUBRARGS[0];
4930 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4931 str = SCM_STRING(str_scm);
4932 {
4933 {
4934 ScmObj SCM_RESULT;
4935
4936 #line 483 "libstr.scm"
4937 {SCM_RESULT=(Scm_CopyStringWithFlags(str,SCM_STRING_INCOMPLETE,SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;}
4938 goto SCM_STUB_RETURN;
4939 SCM_STUB_RETURN:
4940 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4941 }
4942 }
4943 }
4944
libstrstring_incomplete_TOcomplete(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4945 static ScmObj libstrstring_incomplete_TOcomplete(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4946 {
4947 ScmObj str_scm;
4948 ScmString* str;
4949 ScmObj handling_scm;
4950 ScmObj handling;
4951 ScmObj filler_scm;
4952 ScmObj filler;
4953 ScmObj SCM_SUBRARGS[5];
4954 SCM_ENTER_SUBR("string-incomplete->complete");
4955 if (SCM_ARGCNT >= 4
4956 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4957 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4958 for (int SCM_i=0; SCM_i<5; SCM_i++) {
4959 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4960 }
4961 str_scm = SCM_SUBRARGS[0];
4962 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4963 str = SCM_STRING(str_scm);
4964 if (SCM_ARGCNT > 1+1) {
4965 handling_scm = SCM_SUBRARGS[1];
4966 } else {
4967 handling_scm = SCM_FALSE;
4968 }
4969 handling = (handling_scm);
4970 if (SCM_ARGCNT > 2+1) {
4971 filler_scm = SCM_SUBRARGS[2];
4972 } else {
4973 filler_scm = SCM_FALSE;
4974 }
4975 filler = (filler_scm);
4976 {
4977 {
4978 ScmObj SCM_RESULT;
4979
4980 #line 493 "libstr.scm"
4981 if (SCM_CHARP(handling)){{
4982 filler=(handling),handling=(
4983 scm__rc.d1562[283]);}}
4984
4985 #line 497 "libstr.scm"
4986 if (!((SCM_FALSEP(handling))||(
4987 Scm_Memq(handling,SCM_OBJ(&scm__rc.d1563[588]))))){{
4988 Scm_Error("Either #f, :omit, :replace or :escape required, but got:",handling);}}
4989
4990 #line 501 "libstr.scm"
4991 if (!((SCM_FALSEP(filler))||(SCM_CHARP(filler)))){{
4992 Scm_Error("Either a character or #f required, but got:",filler);}}
4993
4994 #line 503 "libstr.scm"
4995 {const ScmStringBody* b=SCM_STRING_BODY(str);
4996 if (!(SCM_STRING_BODY_INCOMPLETE_P(b))){{
4997 #line 506 "libstr.scm"
4998 {SCM_RESULT=(Scm_CopyString(str));goto SCM_STUB_RETURN;}}}
4999 {const char* s=SCM_STRING_BODY_START(b);ScmSmallInt siz=
5000 SCM_STRING_BODY_SIZE(b);ScmSmallInt len=
5001 Scm_MBLen(s,(s)+(siz));
5002 if ((len)>=(0)){{
5003 #line 512 "libstr.scm"
5004 {SCM_RESULT=(Scm_MakeString(s,siz,len,0));goto SCM_STUB_RETURN;}}}
5005 if (SCM_FALSEP(handling)){{
5006 #line 515 "libstr.scm"
5007 {SCM_RESULT=(SCM_FALSE);goto SCM_STUB_RETURN;}}}
5008 {const char* p=s;ScmDString ds;ScmChar echar=
5009 #line 518 "libstr.scm"
5010 ((SCM_CHARP(filler))?(
5011 SCM_CHAR_VALUE(filler)):('\x3f'));
5012 #line 521 "libstr.scm"
5013 Scm_DStringInit(&(ds));
5014 while((p)<((s)+(siz))){
5015 {ScmChar ch;
5016 if (((p)+(SCM_CHAR_NFOLLOWS(*(p))))>=((s)+(siz))){
5017 ch=(SCM_CHAR_INVALID);} else {
5018 SCM_CHAR_GET(p,ch);}
5019 if (
5020 (SCM_EQ(handling,scm__rc.d1562[285]))&&(
5021 (ch)==(echar))){
5022 Scm_DStringPutc(&(ds),ch);
5023 Scm_DStringPutc(&(ds),ch);
5024 (p)+=(SCM_CHAR_NBYTES(ch));}else if(
5025 (ch)!=(SCM_CHAR_INVALID)){
5026 Scm_DStringPutc(&(ds),ch);
5027 (p)+=(SCM_CHAR_NBYTES(ch));}else if(
5028 SCM_EQ(handling,scm__rc.d1562[284])){++(p);}else if(
5029 SCM_EQ(handling,scm__rc.d1562[283])){
5030 Scm_DStringPutc(&(ds),echar);
5031 ++(p);}else if(
5032 SCM_EQ(handling,scm__rc.d1562[285])){
5033 {u_char octet=*(p);
5034 Scm_DStringPutc(&(ds),echar);
5035 Scm_DStringPutc(&(ds),Scm_IntToDigit((octet)>>(4),16,0,0));
5036 Scm_DStringPutc(&(ds),Scm_IntToDigit((octet)&(15),16,0,0));
5037 ++(p);}}}}
5038 {SCM_RESULT=(Scm_DStringGet(&(ds),0));goto SCM_STUB_RETURN;}}}}
5039 goto SCM_STUB_RETURN;
5040 SCM_STUB_RETURN:
5041 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5042 }
5043 }
5044 }
5045
libstrmake_byte_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5046 static ScmObj libstrmake_byte_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5047 {
5048 ScmObj size_scm;
5049 int size;
5050 ScmObj byte_scm;
5051 u_int byte;
5052 ScmObj SCM_SUBRARGS[3];
5053 SCM_ENTER_SUBR("make-byte-string");
5054 if (SCM_ARGCNT >= 3
5055 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5056 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5057 for (int SCM_i=0; SCM_i<3; SCM_i++) {
5058 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5059 }
5060 size_scm = SCM_SUBRARGS[0];
5061 if (!SCM_INTEGERP(size_scm)) Scm_Error("32bit signed integer required, but got %S", size_scm);
5062 size = Scm_GetInteger32(size_scm);
5063 if (SCM_ARGCNT > 1+1) {
5064 byte_scm = SCM_SUBRARGS[1];
5065 } else {
5066 byte_scm = SCM_MAKE_INT(0);
5067 }
5068 if (!SCM_UINTP(byte_scm)) Scm_Error("8bit unsigned integer required, but got %S", byte_scm);
5069 byte = Scm_GetIntegerU8(byte_scm);
5070 {
5071 {
5072 ScmObj SCM_RESULT;
5073
5074 #line 549 "libstr.scm"
5075 {char* s;
5076 if ((size)<(0)){{Scm_Error("size out of bound: %d",size);}}
5077 s=(SCM_NEW_ATOMIC2(char*,size));
5078 memset(s,byte,size);
5079 {SCM_RESULT=(Scm_MakeString(s,size,size,SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;}}
5080 goto SCM_STUB_RETURN;
5081 SCM_STUB_RETURN:
5082 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5083 }
5084 }
5085 }
5086
libstrstring_byte_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5087 static ScmObj libstrstring_byte_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5088 {
5089 ScmObj str_scm;
5090 ScmString* str;
5091 ScmObj k_scm;
5092 ScmSmallInt k;
5093 ScmObj fallback_scm;
5094 ScmObj fallback;
5095 ScmObj SCM_SUBRARGS[4];
5096 SCM_ENTER_SUBR("string-byte-ref");
5097 if (SCM_ARGCNT >= 4
5098 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5099 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5100 for (int SCM_i=0; SCM_i<4; SCM_i++) {
5101 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5102 }
5103 str_scm = SCM_SUBRARGS[0];
5104 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
5105 str = SCM_STRING(str_scm);
5106 k_scm = SCM_SUBRARGS[1];
5107 if (!SCM_INTP(k_scm)) Scm_Error("small integer required, but got %S", k_scm);
5108 k = SCM_INT_VALUE(k_scm);
5109 if (SCM_ARGCNT > 2+1) {
5110 fallback_scm = SCM_SUBRARGS[2];
5111 } else {
5112 fallback_scm = SCM_UNBOUND;
5113 }
5114 fallback = (fallback_scm);
5115 {
5116 {
5117 ScmObj SCM_RESULT;
5118
5119 #line 556 "libstr.scm"
5120 {int r=Scm_StringByteRef(str,k,SCM_UNBOUNDP(fallback));
5121 {SCM_RESULT=((((r)<(0))?(fallback):(SCM_MAKE_INT(r))));goto SCM_STUB_RETURN;}}
5122 goto SCM_STUB_RETURN;
5123 SCM_STUB_RETURN:
5124 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5125 }
5126 }
5127 }
5128
libstrbyte_substring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5129 static ScmObj libstrbyte_substring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5130 {
5131 ScmObj str_scm;
5132 ScmString* str;
5133 ScmObj start_scm;
5134 ScmSmallInt start;
5135 ScmObj end_scm;
5136 ScmSmallInt end;
5137 ScmObj SCM_SUBRARGS[3];
5138 SCM_ENTER_SUBR("byte-substring");
5139 for (int SCM_i=0; SCM_i<3; SCM_i++) {
5140 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5141 }
5142 str_scm = SCM_SUBRARGS[0];
5143 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
5144 str = SCM_STRING(str_scm);
5145 start_scm = SCM_SUBRARGS[1];
5146 if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm);
5147 start = SCM_INT_VALUE(start_scm);
5148 end_scm = SCM_SUBRARGS[2];
5149 if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm);
5150 end = SCM_INT_VALUE(end_scm);
5151 {
5152 {
5153 ScmObj SCM_RESULT;
5154
5155 #line 560 "libstr.scm"
5156 {SCM_RESULT=(Scm_Substring(str,start,end,TRUE));goto SCM_STUB_RETURN;}
5157 goto SCM_STUB_RETURN;
5158 SCM_STUB_RETURN:
5159 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5160 }
5161 }
5162 }
5163
5164 #if GAUCHE_STRING_POINTER
libstrmake_string_pointer(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5165 static ScmObj libstrmake_string_pointer(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5166 {
5167 ScmObj str_scm;
5168 ScmString* str;
5169 ScmObj index_scm;
5170 ScmSmallInt index;
5171 ScmObj start_scm;
5172 ScmSmallInt start;
5173 ScmObj end_scm;
5174 ScmSmallInt end;
5175 ScmObj SCM_SUBRARGS[7];
5176 SCM_ENTER_SUBR("make-string-pointer");
5177 if (SCM_ARGCNT >= 5
5178 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5179 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5180 for (int SCM_i=0; SCM_i<7; SCM_i++) {
5181 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5182 }
5183 str_scm = SCM_SUBRARGS[0];
5184 if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
5185 str = SCM_STRING(str_scm);
5186 if (SCM_ARGCNT > 1+1) {
5187 index_scm = SCM_SUBRARGS[1];
5188 } else {
5189 index_scm = SCM_MAKE_INT(0);
5190 }
5191 if (!SCM_INTP(index_scm)) Scm_Error("small integer required, but got %S", index_scm);
5192 index = SCM_INT_VALUE(index_scm);
5193 if (SCM_ARGCNT > 2+1) {
5194 start_scm = SCM_SUBRARGS[2];
5195 } else {
5196 start_scm = SCM_MAKE_INT(0);
5197 }
5198 if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm);
5199 start = SCM_INT_VALUE(start_scm);
5200 if (SCM_ARGCNT > 3+1) {
5201 end_scm = SCM_SUBRARGS[3];
5202 } else {
5203 end_scm = SCM_MAKE_INT(-1);
5204 }
5205 if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm);
5206 end = SCM_INT_VALUE(end_scm);
5207 {
5208 {
5209 ScmObj SCM_RESULT;
5210 {SCM_RESULT=(Scm_MakeStringPointer(str,index,start,end));goto SCM_STUB_RETURN;}
5211 goto SCM_STUB_RETURN;
5212 SCM_STUB_RETURN:
5213 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5214 }
5215 }
5216 }
5217
5218 #endif /* GAUCHE_STRING_POINTER */
5219 #if GAUCHE_STRING_POINTER
libstrstring_pointerP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5220 static ScmObj libstrstring_pointerP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5221 {
5222 ScmObj obj_scm;
5223 ScmObj obj;
5224 ScmObj SCM_SUBRARGS[1];
5225 SCM_ENTER_SUBR("string-pointer?");
5226 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5227 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5228 }
5229 obj_scm = SCM_SUBRARGS[0];
5230 obj = (obj_scm);
5231 {
5232 {
5233 int SCM_RESULT;
5234 {SCM_RESULT=(SCM_STRING_POINTERP(obj));goto SCM_STUB_RETURN;}
5235 goto SCM_STUB_RETURN;
5236 SCM_STUB_RETURN:
5237 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5238 }
5239 }
5240 }
5241
5242 #endif /* GAUCHE_STRING_POINTER */
5243 #if GAUCHE_STRING_POINTER
libstrstring_pointer_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5244 static ScmObj libstrstring_pointer_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5245 {
5246 ScmObj sp_scm;
5247 ScmStringPointer* sp;
5248 ScmObj SCM_SUBRARGS[1];
5249 SCM_ENTER_SUBR("string-pointer-ref");
5250 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5251 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5252 }
5253 sp_scm = SCM_SUBRARGS[0];
5254 if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5255 sp = SCM_STRING_POINTER(sp_scm);
5256 {
5257 {
5258 ScmObj SCM_RESULT;
5259 {SCM_RESULT=(Scm_StringPointerRef(sp));goto SCM_STUB_RETURN;}
5260 goto SCM_STUB_RETURN;
5261 SCM_STUB_RETURN:
5262 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5263 }
5264 }
5265 }
5266
5267 #endif /* GAUCHE_STRING_POINTER */
5268 #if GAUCHE_STRING_POINTER
libstrstring_pointer_nextX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5269 static ScmObj libstrstring_pointer_nextX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5270 {
5271 ScmObj sp_scm;
5272 ScmStringPointer* sp;
5273 ScmObj SCM_SUBRARGS[1];
5274 SCM_ENTER_SUBR("string-pointer-next!");
5275 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5276 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5277 }
5278 sp_scm = SCM_SUBRARGS[0];
5279 if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5280 sp = SCM_STRING_POINTER(sp_scm);
5281 {
5282 {
5283 ScmObj SCM_RESULT;
5284 {SCM_RESULT=(Scm_StringPointerNext(sp));goto SCM_STUB_RETURN;}
5285 goto SCM_STUB_RETURN;
5286 SCM_STUB_RETURN:
5287 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5288 }
5289 }
5290 }
5291
5292 #endif /* GAUCHE_STRING_POINTER */
5293 #if GAUCHE_STRING_POINTER
libstrstring_pointer_prevX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5294 static ScmObj libstrstring_pointer_prevX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5295 {
5296 ScmObj sp_scm;
5297 ScmStringPointer* sp;
5298 ScmObj SCM_SUBRARGS[1];
5299 SCM_ENTER_SUBR("string-pointer-prev!");
5300 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5301 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5302 }
5303 sp_scm = SCM_SUBRARGS[0];
5304 if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5305 sp = SCM_STRING_POINTER(sp_scm);
5306 {
5307 {
5308 ScmObj SCM_RESULT;
5309 {SCM_RESULT=(Scm_StringPointerPrev(sp));goto SCM_STUB_RETURN;}
5310 goto SCM_STUB_RETURN;
5311 SCM_STUB_RETURN:
5312 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5313 }
5314 }
5315 }
5316
5317 #endif /* GAUCHE_STRING_POINTER */
5318 #if GAUCHE_STRING_POINTER
libstrstring_pointer_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5319 static ScmObj libstrstring_pointer_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5320 {
5321 ScmObj sp_scm;
5322 ScmStringPointer* sp;
5323 ScmObj index_scm;
5324 ScmSmallInt index;
5325 ScmObj SCM_SUBRARGS[2];
5326 SCM_ENTER_SUBR("string-pointer-set!");
5327 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5328 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5329 }
5330 sp_scm = SCM_SUBRARGS[0];
5331 if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5332 sp = SCM_STRING_POINTER(sp_scm);
5333 index_scm = SCM_SUBRARGS[1];
5334 if (!SCM_INTP(index_scm)) Scm_Error("small integer required, but got %S", index_scm);
5335 index = SCM_INT_VALUE(index_scm);
5336 {
5337 {
5338 ScmObj SCM_RESULT;
5339 {SCM_RESULT=(Scm_StringPointerSet(sp,index));goto SCM_STUB_RETURN;}
5340 goto SCM_STUB_RETURN;
5341 SCM_STUB_RETURN:
5342 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5343 }
5344 }
5345 }
5346
5347 #endif /* GAUCHE_STRING_POINTER */
5348 #if GAUCHE_STRING_POINTER
libstrstring_pointer_substring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5349 static ScmObj libstrstring_pointer_substring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5350 {
5351 ScmObj sp_scm;
5352 ScmStringPointer* sp;
5353 ScmObj after_scm = SCM_FALSE;
5354 ScmObj after;
5355 ScmObj SCM_SUBRARGS[1];
5356 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
5357 SCM_ENTER_SUBR("string-pointer-substring");
5358 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5359 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5360 }
5361 sp_scm = SCM_SUBRARGS[0];
5362 if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5363 sp = SCM_STRING_POINTER(sp_scm);
5364 if (Scm_Length(SCM_OPTARGS) % 2)
5365 Scm_Error("keyword list not even: %S", SCM_OPTARGS);
5366 while (!SCM_NULLP(SCM_OPTARGS)) {
5367 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1601[22])) {
5368 after_scm = SCM_CADR(SCM_OPTARGS);
5369 }
5370 else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
5371 SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
5372 }
5373 after = (after_scm);
5374 {
5375 {
5376 ScmObj SCM_RESULT;
5377
5378 #line 676 "libstr.scm"
5379 {SCM_RESULT=(Scm_StringPointerSubstring(sp,!(SCM_FALSEP(after))));goto SCM_STUB_RETURN;}
5380 goto SCM_STUB_RETURN;
5381 SCM_STUB_RETURN:
5382 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5383 }
5384 }
5385 }
5386
5387 #endif /* GAUCHE_STRING_POINTER */
5388 #if GAUCHE_STRING_POINTER
libstrstring_pointer_index(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5389 static ScmObj libstrstring_pointer_index(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5390 {
5391 ScmObj sp_scm;
5392 ScmStringPointer* sp;
5393 ScmObj SCM_SUBRARGS[1];
5394 SCM_ENTER_SUBR("string-pointer-index");
5395 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5396 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5397 }
5398 sp_scm = SCM_SUBRARGS[0];
5399 if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5400 sp = SCM_STRING_POINTER(sp_scm);
5401 {
5402 {
5403 int SCM_RESULT;
5404
5405 #line 678 "libstr.scm"
5406 {SCM_RESULT=((sp)->index);goto SCM_STUB_RETURN;}
5407 goto SCM_STUB_RETURN;
5408 SCM_STUB_RETURN:
5409 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
5410 }
5411 }
5412 }
5413
5414 #endif /* GAUCHE_STRING_POINTER */
5415 #if GAUCHE_STRING_POINTER
libstrstring_pointer_copy(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5416 static ScmObj libstrstring_pointer_copy(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5417 {
5418 ScmObj sp_scm;
5419 ScmStringPointer* sp;
5420 ScmObj SCM_SUBRARGS[1];
5421 SCM_ENTER_SUBR("string-pointer-copy");
5422 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5423 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5424 }
5425 sp_scm = SCM_SUBRARGS[0];
5426 if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5427 sp = SCM_STRING_POINTER(sp_scm);
5428 {
5429 {
5430 ScmObj SCM_RESULT;
5431 {SCM_RESULT=(Scm_StringPointerCopy(sp));goto SCM_STUB_RETURN;}
5432 goto SCM_STUB_RETURN;
5433 SCM_STUB_RETURN:
5434 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5435 }
5436 }
5437 }
5438
5439 #endif /* GAUCHE_STRING_POINTER */
5440 #if GAUCHE_STRING_POINTER
libstrstring_pointer_byte_index(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5441 static ScmObj libstrstring_pointer_byte_index(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5442 {
5443 ScmObj sp_scm;
5444 ScmStringPointer* sp;
5445 ScmObj SCM_SUBRARGS[1];
5446 SCM_ENTER_SUBR("string-pointer-byte-index");
5447 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5448 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5449 }
5450 sp_scm = SCM_SUBRARGS[0];
5451 if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5452 sp = SCM_STRING_POINTER(sp_scm);
5453 {
5454 {
5455 int SCM_RESULT;
5456
5457 #line 682 "libstr.scm"
5458 {SCM_RESULT=(((int )(((sp)->current)-((sp)->start))));goto SCM_STUB_RETURN;}
5459 goto SCM_STUB_RETURN;
5460 SCM_STUB_RETURN:
5461 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
5462 }
5463 }
5464 }
5465
5466 #endif /* GAUCHE_STRING_POINTER */
5467 #if GAUCHE_STRING_POINTER
libstr_25string_pointer_dump(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5468 static ScmObj libstr_25string_pointer_dump(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5469 {
5470 ScmObj sp_scm;
5471 ScmStringPointer* sp;
5472 ScmObj SCM_SUBRARGS[1];
5473 SCM_ENTER_SUBR("%string-pointer-dump");
5474 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5475 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5476 }
5477 sp_scm = SCM_SUBRARGS[0];
5478 if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5479 sp = SCM_STRING_POINTER(sp_scm);
5480 {
5481 Scm_StringPointerDump(sp);
5482 goto SCM_STUB_RETURN;
5483 SCM_STUB_RETURN:
5484 SCM_RETURN(SCM_UNDEFINED);
5485 }
5486 }
5487
5488 #endif /* GAUCHE_STRING_POINTER */
libstrstring_cursorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5489 static ScmObj libstrstring_cursorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5490 {
5491 ScmObj obj_scm;
5492 ScmObj obj;
5493 ScmObj SCM_SUBRARGS[1];
5494 SCM_ENTER_SUBR("string-cursor?");
5495 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5496 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5497 }
5498 obj_scm = SCM_SUBRARGS[0];
5499 obj = (obj_scm);
5500 {
5501 {
5502 int SCM_RESULT;
5503 {SCM_RESULT=(SCM_STRING_CURSOR_P(obj));goto SCM_STUB_RETURN;}
5504 goto SCM_STUB_RETURN;
5505 SCM_STUB_RETURN:
5506 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5507 }
5508 }
5509 }
5510
libstrstring_cursor_start(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5511 static ScmObj libstrstring_cursor_start(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5512 {
5513 ScmObj s_scm;
5514 ScmString* s;
5515 ScmObj SCM_SUBRARGS[1];
5516 SCM_ENTER_SUBR("string-cursor-start");
5517 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5518 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5519 }
5520 s_scm = SCM_SUBRARGS[0];
5521 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5522 s = SCM_STRING(s_scm);
5523 {
5524 {
5525 ScmObj SCM_RESULT;
5526
5527 #line 700 "libstr.scm"
5528 {SCM_RESULT=(Scm_MakeStringCursorFromIndex(s,0));goto SCM_STUB_RETURN;}
5529 goto SCM_STUB_RETURN;
5530 SCM_STUB_RETURN:
5531 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5532 }
5533 }
5534 }
5535
libstrstring_cursor_end(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5536 static ScmObj libstrstring_cursor_end(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5537 {
5538 ScmObj s_scm;
5539 ScmString* s;
5540 ScmObj SCM_SUBRARGS[1];
5541 SCM_ENTER_SUBR("string-cursor-end");
5542 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5543 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5544 }
5545 s_scm = SCM_SUBRARGS[0];
5546 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5547 s = SCM_STRING(s_scm);
5548 {
5549 {
5550 ScmObj SCM_RESULT;
5551 {SCM_RESULT=(Scm_MakeStringCursorEnd(s));goto SCM_STUB_RETURN;}
5552 goto SCM_STUB_RETURN;
5553 SCM_STUB_RETURN:
5554 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5555 }
5556 }
5557 }
5558
libstrstring_cursor_next(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5559 static ScmObj libstrstring_cursor_next(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5560 {
5561 ScmObj s_scm;
5562 ScmString* s;
5563 ScmObj cursor_scm;
5564 ScmObj cursor;
5565 ScmObj SCM_SUBRARGS[2];
5566 SCM_ENTER_SUBR("string-cursor-next");
5567 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5568 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5569 }
5570 s_scm = SCM_SUBRARGS[0];
5571 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5572 s = SCM_STRING(s_scm);
5573 cursor_scm = SCM_SUBRARGS[1];
5574 cursor = (cursor_scm);
5575 {
5576 {
5577 ScmObj SCM_RESULT;
5578
5579 #line 704 "libstr.scm"
5580 {SCM_RESULT=(Scm_StringCursorForward(s,cursor,1));goto SCM_STUB_RETURN;}
5581 goto SCM_STUB_RETURN;
5582 SCM_STUB_RETURN:
5583 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5584 }
5585 }
5586 }
5587
libstrstring_cursor_prev(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5588 static ScmObj libstrstring_cursor_prev(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5589 {
5590 ScmObj s_scm;
5591 ScmString* s;
5592 ScmObj cursor_scm;
5593 ScmObj cursor;
5594 ScmObj SCM_SUBRARGS[2];
5595 SCM_ENTER_SUBR("string-cursor-prev");
5596 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5597 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5598 }
5599 s_scm = SCM_SUBRARGS[0];
5600 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5601 s = SCM_STRING(s_scm);
5602 cursor_scm = SCM_SUBRARGS[1];
5603 cursor = (cursor_scm);
5604 {
5605 {
5606 ScmObj SCM_RESULT;
5607
5608 #line 706 "libstr.scm"
5609 {SCM_RESULT=(Scm_StringCursorBack(s,cursor,1));goto SCM_STUB_RETURN;}
5610 goto SCM_STUB_RETURN;
5611 SCM_STUB_RETURN:
5612 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5613 }
5614 }
5615 }
5616
libstrstring_cursor_forward(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5617 static ScmObj libstrstring_cursor_forward(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5618 {
5619 ScmObj s_scm;
5620 ScmString* s;
5621 ScmObj cursor_scm;
5622 ScmObj cursor;
5623 ScmObj nchars_scm;
5624 ScmSmallInt nchars;
5625 ScmObj SCM_SUBRARGS[3];
5626 SCM_ENTER_SUBR("string-cursor-forward");
5627 for (int SCM_i=0; SCM_i<3; SCM_i++) {
5628 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5629 }
5630 s_scm = SCM_SUBRARGS[0];
5631 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5632 s = SCM_STRING(s_scm);
5633 cursor_scm = SCM_SUBRARGS[1];
5634 cursor = (cursor_scm);
5635 nchars_scm = SCM_SUBRARGS[2];
5636 if (!SCM_INTP(nchars_scm)) Scm_Error("small integer required, but got %S", nchars_scm);
5637 nchars = SCM_INT_VALUE(nchars_scm);
5638 {
5639 {
5640 ScmObj SCM_RESULT;
5641 {SCM_RESULT=(Scm_StringCursorForward(s,cursor,nchars));goto SCM_STUB_RETURN;}
5642 goto SCM_STUB_RETURN;
5643 SCM_STUB_RETURN:
5644 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5645 }
5646 }
5647 }
5648
libstrstring_cursor_back(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5649 static ScmObj libstrstring_cursor_back(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5650 {
5651 ScmObj s_scm;
5652 ScmString* s;
5653 ScmObj cursor_scm;
5654 ScmObj cursor;
5655 ScmObj nchars_scm;
5656 ScmSmallInt nchars;
5657 ScmObj SCM_SUBRARGS[3];
5658 SCM_ENTER_SUBR("string-cursor-back");
5659 for (int SCM_i=0; SCM_i<3; SCM_i++) {
5660 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5661 }
5662 s_scm = SCM_SUBRARGS[0];
5663 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5664 s = SCM_STRING(s_scm);
5665 cursor_scm = SCM_SUBRARGS[1];
5666 cursor = (cursor_scm);
5667 nchars_scm = SCM_SUBRARGS[2];
5668 if (!SCM_INTP(nchars_scm)) Scm_Error("small integer required, but got %S", nchars_scm);
5669 nchars = SCM_INT_VALUE(nchars_scm);
5670 {
5671 {
5672 ScmObj SCM_RESULT;
5673 {SCM_RESULT=(Scm_StringCursorBack(s,cursor,nchars));goto SCM_STUB_RETURN;}
5674 goto SCM_STUB_RETURN;
5675 SCM_STUB_RETURN:
5676 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5677 }
5678 }
5679 }
5680
libstrstring_index_TOcursor(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5681 static ScmObj libstrstring_index_TOcursor(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5682 {
5683 ScmObj s_scm;
5684 ScmString* s;
5685 ScmObj index_scm;
5686 ScmObj index;
5687 ScmObj SCM_SUBRARGS[2];
5688 SCM_ENTER_SUBR("string-index->cursor");
5689 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5690 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5691 }
5692 s_scm = SCM_SUBRARGS[0];
5693 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5694 s = SCM_STRING(s_scm);
5695 index_scm = SCM_SUBRARGS[1];
5696 index = (index_scm);
5697 {
5698 {
5699 ScmObj SCM_RESULT;
5700
5701 #line 712 "libstr.scm"
5702 if (SCM_STRING_CURSOR_P(index)){
5703 {SCM_RESULT=(index);goto SCM_STUB_RETURN;}} else {
5704 {SCM_RESULT=(Scm_MakeStringCursorFromIndex(s,Scm_GetInteger(index)));goto SCM_STUB_RETURN;}}
5705 goto SCM_STUB_RETURN;
5706 SCM_STUB_RETURN:
5707 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5708 }
5709 }
5710 }
5711
libstrstring_cursor_TOindex(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5712 static ScmObj libstrstring_cursor_TOindex(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5713 {
5714 ScmObj s_scm;
5715 ScmString* s;
5716 ScmObj cursor_scm;
5717 ScmObj cursor;
5718 ScmObj SCM_SUBRARGS[2];
5719 SCM_ENTER_SUBR("string-cursor->index");
5720 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5721 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5722 }
5723 s_scm = SCM_SUBRARGS[0];
5724 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5725 s = SCM_STRING(s_scm);
5726 cursor_scm = SCM_SUBRARGS[1];
5727 cursor = (cursor_scm);
5728 {
5729 {
5730 ScmObj SCM_RESULT;
5731 {SCM_RESULT=(Scm_StringCursorIndex(s,cursor));goto SCM_STUB_RETURN;}
5732 goto SCM_STUB_RETURN;
5733 SCM_STUB_RETURN:
5734 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5735 }
5736 }
5737 }
5738
libstrstring_cursor_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5739 static ScmObj libstrstring_cursor_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5740 {
5741 ScmObj cursor1_scm;
5742 ScmObj cursor1;
5743 ScmObj cursor2_scm;
5744 ScmObj cursor2;
5745 ScmObj SCM_SUBRARGS[2];
5746 SCM_ENTER_SUBR("string-cursor=?");
5747 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5748 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5749 }
5750 cursor1_scm = SCM_SUBRARGS[0];
5751 cursor1 = (cursor1_scm);
5752 cursor2_scm = SCM_SUBRARGS[1];
5753 cursor2 = (cursor2_scm);
5754 {
5755 {
5756 int SCM_RESULT;
5757
5758 #line 719 "libstr.scm"
5759 {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumEq));goto SCM_STUB_RETURN;}
5760 goto SCM_STUB_RETURN;
5761 SCM_STUB_RETURN:
5762 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5763 }
5764 }
5765 }
5766
libstrstring_cursor_LTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5767 static ScmObj libstrstring_cursor_LTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5768 {
5769 ScmObj cursor1_scm;
5770 ScmObj cursor1;
5771 ScmObj cursor2_scm;
5772 ScmObj cursor2;
5773 ScmObj SCM_SUBRARGS[2];
5774 SCM_ENTER_SUBR("string-cursor<?");
5775 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5776 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5777 }
5778 cursor1_scm = SCM_SUBRARGS[0];
5779 cursor1 = (cursor1_scm);
5780 cursor2_scm = SCM_SUBRARGS[1];
5781 cursor2 = (cursor2_scm);
5782 {
5783 {
5784 int SCM_RESULT;
5785
5786 #line 722 "libstr.scm"
5787 {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumLT));goto SCM_STUB_RETURN;}
5788 goto SCM_STUB_RETURN;
5789 SCM_STUB_RETURN:
5790 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5791 }
5792 }
5793 }
5794
libstrstring_cursor_GTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5795 static ScmObj libstrstring_cursor_GTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5796 {
5797 ScmObj cursor1_scm;
5798 ScmObj cursor1;
5799 ScmObj cursor2_scm;
5800 ScmObj cursor2;
5801 ScmObj SCM_SUBRARGS[2];
5802 SCM_ENTER_SUBR("string-cursor>?");
5803 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5804 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5805 }
5806 cursor1_scm = SCM_SUBRARGS[0];
5807 cursor1 = (cursor1_scm);
5808 cursor2_scm = SCM_SUBRARGS[1];
5809 cursor2 = (cursor2_scm);
5810 {
5811 {
5812 int SCM_RESULT;
5813
5814 #line 725 "libstr.scm"
5815 {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumGT));goto SCM_STUB_RETURN;}
5816 goto SCM_STUB_RETURN;
5817 SCM_STUB_RETURN:
5818 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5819 }
5820 }
5821 }
5822
libstrstring_cursor_LT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5823 static ScmObj libstrstring_cursor_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5824 {
5825 ScmObj cursor1_scm;
5826 ScmObj cursor1;
5827 ScmObj cursor2_scm;
5828 ScmObj cursor2;
5829 ScmObj SCM_SUBRARGS[2];
5830 SCM_ENTER_SUBR("string-cursor<=?");
5831 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5832 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5833 }
5834 cursor1_scm = SCM_SUBRARGS[0];
5835 cursor1 = (cursor1_scm);
5836 cursor2_scm = SCM_SUBRARGS[1];
5837 cursor2 = (cursor2_scm);
5838 {
5839 {
5840 int SCM_RESULT;
5841
5842 #line 728 "libstr.scm"
5843 {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumLE));goto SCM_STUB_RETURN;}
5844 goto SCM_STUB_RETURN;
5845 SCM_STUB_RETURN:
5846 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5847 }
5848 }
5849 }
5850
libstrstring_cursor_GT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5851 static ScmObj libstrstring_cursor_GT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5852 {
5853 ScmObj cursor1_scm;
5854 ScmObj cursor1;
5855 ScmObj cursor2_scm;
5856 ScmObj cursor2;
5857 ScmObj SCM_SUBRARGS[2];
5858 SCM_ENTER_SUBR("string-cursor>=?");
5859 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5860 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5861 }
5862 cursor1_scm = SCM_SUBRARGS[0];
5863 cursor1 = (cursor1_scm);
5864 cursor2_scm = SCM_SUBRARGS[1];
5865 cursor2 = (cursor2_scm);
5866 {
5867 {
5868 int SCM_RESULT;
5869
5870 #line 731 "libstr.scm"
5871 {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumGE));goto SCM_STUB_RETURN;}
5872 goto SCM_STUB_RETURN;
5873 SCM_STUB_RETURN:
5874 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5875 }
5876 }
5877 }
5878
libstrstring_cursor_diff(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5879 static ScmObj libstrstring_cursor_diff(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5880 {
5881 ScmObj s_scm;
5882 ScmString* s;
5883 ScmObj start_scm;
5884 ScmObj start;
5885 ScmObj end_scm;
5886 ScmObj end;
5887 ScmObj SCM_SUBRARGS[3];
5888 SCM_ENTER_SUBR("string-cursor-diff");
5889 for (int SCM_i=0; SCM_i<3; SCM_i++) {
5890 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5891 }
5892 s_scm = SCM_SUBRARGS[0];
5893 if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5894 s = SCM_STRING(s_scm);
5895 start_scm = SCM_SUBRARGS[1];
5896 start = (start_scm);
5897 end_scm = SCM_SUBRARGS[2];
5898 end = (end_scm);
5899 {
5900 {
5901 ScmObj SCM_RESULT;
5902
5903 #line 734 "libstr.scm"
5904 {SCM_RESULT=(Scm_Sub(Scm_StringCursorIndex(s,end),
5905 Scm_StringCursorIndex(s,start)));goto SCM_STUB_RETURN;}
5906 goto SCM_STUB_RETURN;
5907 SCM_STUB_RETURN:
5908 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5909 }
5910 }
5911 }
5912
5913 static ScmCompiledCode *toplevels[] = {
5914 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[1])),
5915 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[9])),
5916 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[14])),
5917 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[16])),
5918 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[20])),
5919 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[24])),
5920 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[28])),
5921 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[35])),
5922 NULL /*termination*/
5923 };
Scm_Init_libstr()5924 void Scm_Init_libstr() {
5925 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
5926 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
5927 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
5928 scm__rc.d1562[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[0])),TRUE); /* string? */
5929 scm__rc.d1562[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[1])),TRUE); /* obj */
5930 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1]), scm__rc.d1562[1]);
5931 scm__rc.d1562[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2])),TRUE); /* source-info */
5932 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[4]), scm__rc.d1562[2]);
5933 scm__rc.d1562[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[4])),TRUE); /* bind-info */
5934 scm__rc.d1562[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[5])),TRUE); /* scheme */
5935 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[5]), scm__rc.d1562[0]);
5936 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[6]), scm__rc.d1562[4]);
5937 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[7]), scm__rc.d1562[3]);
5938 scm__rc.d1562[5] = Scm_MakeExtendedPair(scm__rc.d1562[0], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[9]));
5939 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string?")), SCM_OBJ(&libstrstringP__STUB), SCM_BINDING_INLINABLE);
5940 libstrstringP__STUB.common.info = scm__rc.d1562[5];
5941 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
5942 scm__rc.d1562[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[6])),TRUE); /* string-incomplete? */
5943 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[12]), scm__rc.d1562[2]);
5944 scm__rc.d1562[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[7])),TRUE); /* gauche */
5945 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[13]), scm__rc.d1562[6]);
5946 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[14]), scm__rc.d1562[7]);
5947 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[15]), scm__rc.d1562[3]);
5948 scm__rc.d1562[8] = Scm_MakeExtendedPair(scm__rc.d1562[6], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[17]));
5949 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-incomplete?")), SCM_OBJ(&libstrstring_incompleteP__STUB), 0);
5950 libstrstring_incompleteP__STUB.common.info = scm__rc.d1562[8];
5951 scm__rc.d1562[9] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[8])),TRUE); /* string-immutable? */
5952 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[20]), scm__rc.d1562[2]);
5953 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[21]), scm__rc.d1562[9]);
5954 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[22]), scm__rc.d1562[7]);
5955 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[23]), scm__rc.d1562[3]);
5956 scm__rc.d1562[10] = Scm_MakeExtendedPair(scm__rc.d1562[9], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[25]));
5957 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-immutable?")), SCM_OBJ(&libstrstring_immutableP__STUB), 0);
5958 libstrstring_immutableP__STUB.common.info = scm__rc.d1562[10];
5959 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
5960 scm__rc.d1562[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[9])),TRUE); /* make-string */
5961 scm__rc.d1562[12] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[10])),TRUE); /* len */
5962 scm__rc.d1562[13] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[11]))); /* :optional */
5963 scm__rc.d1562[14] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[12])),TRUE); /* c */
5964 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[26]), scm__rc.d1562[14]);
5965 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[27]), scm__rc.d1562[13]);
5966 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[28]), scm__rc.d1562[12]);
5967 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[31]), scm__rc.d1562[2]);
5968 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[32]), scm__rc.d1562[11]);
5969 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[33]), scm__rc.d1562[4]);
5970 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[34]), scm__rc.d1562[3]);
5971 scm__rc.d1562[15] = Scm_MakeExtendedPair(scm__rc.d1562[11], SCM_OBJ(&scm__rc.d1563[28]), SCM_OBJ(&scm__rc.d1563[36]));
5972 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("make-string")), SCM_OBJ(&libstrmake_string__STUB), 0);
5973 libstrmake_string__STUB.common.info = scm__rc.d1562[15];
5974 scm__rc.d1562[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[13])),TRUE); /* string */
5975 scm__rc.d1562[17] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14]))); /* :rest */
5976 scm__rc.d1562[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[15])),TRUE); /* chars */
5977 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[37]), scm__rc.d1562[18]);
5978 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[38]), scm__rc.d1562[17]);
5979 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[41]), scm__rc.d1562[2]);
5980 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[42]), scm__rc.d1562[16]);
5981 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[43]), scm__rc.d1562[4]);
5982 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[44]), scm__rc.d1562[3]);
5983 scm__rc.d1562[19] = Scm_MakeExtendedPair(scm__rc.d1562[16], SCM_OBJ(&scm__rc.d1563[38]), SCM_OBJ(&scm__rc.d1563[46]));
5984 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string")), SCM_OBJ(&libstrstring__STUB), 0);
5985 libstrstring__STUB.common.info = scm__rc.d1562[19];
5986 scm__rc.d1562[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[16])),TRUE); /* string-copy */
5987 scm__rc.d1562[21] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[17])),TRUE); /* str */
5988 scm__rc.d1562[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[18])),TRUE); /* start */
5989 scm__rc.d1562[23] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[19])),TRUE); /* end */
5990 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[47]), scm__rc.d1562[23]);
5991 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[48]), scm__rc.d1562[22]);
5992 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[49]), scm__rc.d1562[13]);
5993 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[50]), scm__rc.d1562[21]);
5994 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[53]), scm__rc.d1562[2]);
5995 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[54]), scm__rc.d1562[20]);
5996 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[55]), scm__rc.d1562[4]);
5997 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[56]), scm__rc.d1562[3]);
5998 scm__rc.d1562[24] = Scm_MakeExtendedPair(scm__rc.d1562[20], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[58]));
5999 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-copy")), SCM_OBJ(&libstrstring_copy__STUB), 0);
6000 libstrstring_copy__STUB.common.info = scm__rc.d1562[24];
6001 scm__rc.d1562[25] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[20])),TRUE); /* string-append */
6002 scm__rc.d1562[26] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[21])),TRUE); /* args */
6003 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[59]), scm__rc.d1562[26]);
6004 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[60]), scm__rc.d1562[17]);
6005 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[63]), scm__rc.d1562[2]);
6006 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[64]), scm__rc.d1562[25]);
6007 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[65]), scm__rc.d1562[4]);
6008 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[66]), scm__rc.d1562[3]);
6009 scm__rc.d1562[27] = Scm_MakeExtendedPair(scm__rc.d1562[25], SCM_OBJ(&scm__rc.d1563[60]), SCM_OBJ(&scm__rc.d1563[68]));
6010 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-append")), SCM_OBJ(&libstrstring_append__STUB), 0);
6011 libstrstring_append__STUB.common.info = scm__rc.d1562[27];
6012 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6013 scm__rc.d1562[28] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[22])),TRUE); /* string-copy-immutable */
6014 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[71]), scm__rc.d1562[2]);
6015 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[72]), scm__rc.d1562[28]);
6016 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[73]), scm__rc.d1562[7]);
6017 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[74]), scm__rc.d1562[3]);
6018 scm__rc.d1562[29] = Scm_MakeExtendedPair(scm__rc.d1562[28], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[76]));
6019 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-copy-immutable")), SCM_OBJ(&libstrstring_copy_immutable__STUB), 0);
6020 libstrstring_copy_immutable__STUB.common.info = scm__rc.d1562[29];
6021 scm__rc.d1562[30] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[24])),TRUE); /* infix */
6022 scm__rc.d1562[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[26])),TRUE); /* prefix */
6023 scm__rc.d1562[32] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[27])),TRUE); /* suffix */
6024 scm__rc.d1562[33] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28])),TRUE); /* strict-infix */
6025 scm__rc.d1562[34] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[25])),TRUE); /* string-join */
6026 scm__rc.d1562[35] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[29])),TRUE); /* strs */
6027 scm__rc.d1562[36] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[30])),TRUE); /* delim */
6028 scm__rc.d1562[37] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[31])),TRUE); /* grammar */
6029 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[77]), scm__rc.d1562[37]);
6030 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[78]), scm__rc.d1562[36]);
6031 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[79]), scm__rc.d1562[13]);
6032 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[80]), scm__rc.d1562[35]);
6033 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[83]), scm__rc.d1562[2]);
6034 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[84]), scm__rc.d1562[34]);
6035 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[85]), scm__rc.d1562[7]);
6036 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[86]), scm__rc.d1562[3]);
6037 scm__rc.d1562[38] = Scm_MakeExtendedPair(scm__rc.d1562[34], SCM_OBJ(&scm__rc.d1563[80]), SCM_OBJ(&scm__rc.d1563[88]));
6038 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-join")), SCM_OBJ(&libstrstring_join__STUB), 0);
6039 libstrstring_join__STUB.common.info = scm__rc.d1562[38];
6040 scm__rc.d1562[39] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[32])),TRUE); /* string-interpolate */
6041 scm__rc.d1562[41] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[7]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */
6042 scm__rc.d1562[40] = Scm_MakeIdentifier(scm__rc.d1562[39], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-interpolate */
6043 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[91]), scm__rc.d1562[2]);
6044 scm__rc.d1562[42] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[33])),TRUE); /* unused-args */
6045 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[92]), scm__rc.d1562[42]);
6046 scm__rc.d1562[43] = Scm_MakeExtendedPair(SCM_FALSE, scm__rc.d1562[26], SCM_OBJ(&scm__rc.d1563[94]));
6047 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[95]), scm__rc.d1562[43]);
6048 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[0]))[1] = SCM_WORD(scm__rc.d1562[40]);
6049 scm__rc.d1562[45] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[34])),TRUE); /* define-reader-ctor */
6050 scm__rc.d1562[44] = Scm_MakeIdentifier(scm__rc.d1562[45], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#define-reader-ctor */
6051 scm__rc.d1562[46] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[35])),TRUE); /* %toplevel */
6052 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[1]))->name = scm__rc.d1562[46];/* %toplevel */
6053 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[5]))[1] = SCM_WORD(scm__rc.d1562[39]);
6054 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[5]))[5] = SCM_WORD(scm__rc.d1562[44]);
6055 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
6056 scm__rc.d1562[47] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[36])),TRUE); /* string->list */
6057 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[98]), scm__rc.d1562[2]);
6058 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[99]), scm__rc.d1562[47]);
6059 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[100]), scm__rc.d1562[4]);
6060 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[101]), scm__rc.d1562[3]);
6061 scm__rc.d1562[48] = Scm_MakeExtendedPair(scm__rc.d1562[47], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[103]));
6062 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string->list")), SCM_OBJ(&libstrstring_TOlist__STUB), 0);
6063 libstrstring_TOlist__STUB.common.info = scm__rc.d1562[48];
6064 scm__rc.d1562[49] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[37])),TRUE); /* list->string */
6065 scm__rc.d1562[50] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[38])),TRUE); /* list */
6066 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[104]), scm__rc.d1562[50]);
6067 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[107]), scm__rc.d1562[2]);
6068 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[108]), scm__rc.d1562[49]);
6069 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[109]), scm__rc.d1562[4]);
6070 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[110]), scm__rc.d1562[3]);
6071 scm__rc.d1562[51] = Scm_MakeExtendedPair(scm__rc.d1562[49], SCM_OBJ(&scm__rc.d1563[104]), SCM_OBJ(&scm__rc.d1563[112]));
6072 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("list->string")), SCM_OBJ(&libstrlist_TOstring__STUB), 0);
6073 libstrlist_TOstring__STUB.common.info = scm__rc.d1562[51];
6074 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
6075 scm__rc.d1562[52] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[39])),TRUE); /* string-length */
6076 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[113]), scm__rc.d1562[21]);
6077 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[116]), scm__rc.d1562[2]);
6078 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[117]), scm__rc.d1562[52]);
6079 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[118]), scm__rc.d1562[4]);
6080 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[119]), scm__rc.d1562[3]);
6081 scm__rc.d1562[53] = Scm_MakeExtendedPair(scm__rc.d1562[52], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[121]));
6082 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-length")), SCM_OBJ(&libstrstring_length__STUB), SCM_BINDING_INLINABLE);
6083 libstrstring_length__STUB.common.info = scm__rc.d1562[53];
6084 scm__rc.d1562[54] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[40])),TRUE); /* string-ref */
6085 scm__rc.d1562[55] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[41])),TRUE); /* k */
6086 scm__rc.d1562[56] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[42])),TRUE); /* fallback */
6087 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[122]), scm__rc.d1562[56]);
6088 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[123]), scm__rc.d1562[13]);
6089 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[124]), scm__rc.d1562[55]);
6090 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[125]), scm__rc.d1562[21]);
6091 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[128]), scm__rc.d1562[2]);
6092 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[129]), scm__rc.d1562[54]);
6093 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[130]), scm__rc.d1562[4]);
6094 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[131]), scm__rc.d1562[3]);
6095 scm__rc.d1562[57] = Scm_MakeExtendedPair(scm__rc.d1562[54], SCM_OBJ(&scm__rc.d1563[125]), SCM_OBJ(&scm__rc.d1563[133]));
6096 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ref")), SCM_OBJ(&libstrstring_ref__STUB), SCM_BINDING_INLINABLE);
6097 libstrstring_ref__STUB.common.info = scm__rc.d1562[57];
6098 scm__rc.d1562[58] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[43])),TRUE); /* substring */
6099 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[134]), scm__rc.d1562[21]);
6100 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[137]), scm__rc.d1562[2]);
6101 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[138]), scm__rc.d1562[58]);
6102 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[139]), scm__rc.d1562[4]);
6103 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[140]), scm__rc.d1562[3]);
6104 scm__rc.d1562[59] = Scm_MakeExtendedPair(scm__rc.d1562[58], SCM_OBJ(&scm__rc.d1563[134]), SCM_OBJ(&scm__rc.d1563[142]));
6105 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("substring")), SCM_OBJ(&libstrsubstring__STUB), 0);
6106 libstrsubstring__STUB.common.info = scm__rc.d1562[59];
6107 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6108 scm__rc.d1562[60] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[44])),TRUE); /* string-size */
6109 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[145]), scm__rc.d1562[2]);
6110 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[146]), scm__rc.d1562[60]);
6111 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[147]), scm__rc.d1562[7]);
6112 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[148]), scm__rc.d1562[3]);
6113 scm__rc.d1562[61] = Scm_MakeExtendedPair(scm__rc.d1562[60], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[150]));
6114 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-size")), SCM_OBJ(&libstrstring_size__STUB), SCM_BINDING_INLINABLE);
6115 libstrstring_size__STUB.common.info = scm__rc.d1562[61];
6116 scm__rc.d1562[62] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[45])),TRUE); /* %maybe-substring */
6117 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[153]), scm__rc.d1562[2]);
6118 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[154]), scm__rc.d1562[62]);
6119 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[155]), scm__rc.d1562[7]);
6120 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[156]), scm__rc.d1562[3]);
6121 scm__rc.d1562[63] = Scm_MakeExtendedPair(scm__rc.d1562[62], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[158]));
6122 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%maybe-substring")), SCM_OBJ(&libstr_25maybe_substring__STUB), 0);
6123 libstr_25maybe_substring__STUB.common.info = scm__rc.d1562[63];
6124 scm__rc.d1562[64] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[46])),TRUE); /* %hash-string */
6125 scm__rc.d1562[65] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[47])),TRUE); /* bound */
6126 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[159]), scm__rc.d1562[65]);
6127 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[160]), scm__rc.d1562[13]);
6128 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[161]), scm__rc.d1562[21]);
6129 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[164]), scm__rc.d1562[2]);
6130 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[165]), scm__rc.d1562[64]);
6131 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[166]), scm__rc.d1562[7]);
6132 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[167]), scm__rc.d1562[3]);
6133 scm__rc.d1562[66] = Scm_MakeExtendedPair(scm__rc.d1562[64], SCM_OBJ(&scm__rc.d1563[161]), SCM_OBJ(&scm__rc.d1563[169]));
6134 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%hash-string")), SCM_OBJ(&libstr_25hash_string__STUB), 0);
6135 libstr_25hash_string__STUB.common.info = scm__rc.d1562[66];
6136 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6137 scm__rc.d1562[67] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[48])),TRUE); /* both */
6138 scm__rc.d1562[68] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[49])),TRUE); /* after* */
6139 scm__rc.d1562[69] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[50])),TRUE); /* before* */
6140 scm__rc.d1562[70] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[51])),TRUE); /* after */
6141 scm__rc.d1562[71] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[52])),TRUE); /* before */
6142 scm__rc.d1562[72] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[53])),TRUE); /* cursor */
6143 scm__rc.d1562[73] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[54])),TRUE); /* index */
6144 scm__rc.d1562[74] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[55])),TRUE); /* string-scan */
6145 scm__rc.d1562[75] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[56])),TRUE); /* s1 */
6146 scm__rc.d1562[76] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[57])),TRUE); /* s2 */
6147 scm__rc.d1562[77] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[58])),TRUE); /* mode */
6148 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[170]), scm__rc.d1562[77]);
6149 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[171]), scm__rc.d1562[13]);
6150 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[172]), scm__rc.d1562[76]);
6151 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[173]), scm__rc.d1562[75]);
6152 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[176]), scm__rc.d1562[2]);
6153 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[177]), scm__rc.d1562[74]);
6154 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[178]), scm__rc.d1562[7]);
6155 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[179]), scm__rc.d1562[3]);
6156 scm__rc.d1562[78] = Scm_MakeExtendedPair(scm__rc.d1562[74], SCM_OBJ(&scm__rc.d1563[173]), SCM_OBJ(&scm__rc.d1563[181]));
6157 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-scan")), SCM_OBJ(&libstrstring_scan__STUB), 0);
6158 libstrstring_scan__STUB.common.info = scm__rc.d1562[78];
6159 scm__rc.d1562[79] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[59])),TRUE); /* string-scan-right */
6160 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[184]), scm__rc.d1562[2]);
6161 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[185]), scm__rc.d1562[79]);
6162 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[186]), scm__rc.d1562[7]);
6163 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[187]), scm__rc.d1562[3]);
6164 scm__rc.d1562[80] = Scm_MakeExtendedPair(scm__rc.d1562[79], SCM_OBJ(&scm__rc.d1563[173]), SCM_OBJ(&scm__rc.d1563[189]));
6165 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-scan-right")), SCM_OBJ(&libstrstring_scan_right__STUB), 0);
6166 libstrstring_scan_right__STUB.common.info = scm__rc.d1562[80];
6167 scm__rc.d1562[81] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[60])),TRUE); /* string-split */
6168 scm__rc.d1562[82] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[62])),TRUE); /* lambda */
6169 scm__rc.d1562[83] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[63])),TRUE); /* splitter */
6170 scm__rc.d1562[84] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[64])),TRUE); /* quote */
6171 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[190]), scm__rc.d1562[30]);
6172 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[191]), scm__rc.d1562[84]);
6173 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[193]), scm__rc.d1562[37]);
6174 scm__rc.d1562[85] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[65])),TRUE); /* limit */
6175 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[195]), scm__rc.d1562[85]);
6176 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[198]), scm__rc.d1562[13]);
6177 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[199]), scm__rc.d1562[83]);
6178 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[200]), scm__rc.d1562[16]);
6179 scm__rc.d1562[86] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[66])),TRUE); /* if */
6180 scm__rc.d1562[87] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[67])),TRUE); /* or */
6181 scm__rc.d1562[88] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[68])),TRUE); /* not */
6182 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[201]), scm__rc.d1562[88]);
6183 scm__rc.d1562[89] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[69])),TRUE); /* integer? */
6184 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[202]), scm__rc.d1562[89]);
6185 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[205]), scm__rc.d1562[87]);
6186 scm__rc.d1562[90] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[70])),TRUE); /* with-module */
6187 scm__rc.d1562[91] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[71])),TRUE); /* gauche.internal */
6188 scm__rc.d1562[92] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[72])),TRUE); /* %string-split */
6189 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[206]), scm__rc.d1562[92]);
6190 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[207]), scm__rc.d1562[91]);
6191 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[208]), scm__rc.d1562[90]);
6192 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[209]), scm__rc.d1562[22]);
6193 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[210]), scm__rc.d1562[85]);
6194 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[211]), scm__rc.d1562[37]);
6195 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[213]), scm__rc.d1562[83]);
6196 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[214]), scm__rc.d1562[16]);
6197 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[216]), scm__rc.d1562[85]);
6198 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[217]), scm__rc.d1562[37]);
6199 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[218]), scm__rc.d1562[83]);
6200 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[219]), scm__rc.d1562[16]);
6201 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[224]), scm__rc.d1562[86]);
6202 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[227]), scm__rc.d1562[82]);
6203 scm__rc.d1562[94] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[73])),TRUE); /* error */
6204 scm__rc.d1562[93] = Scm_MakeIdentifier(scm__rc.d1562[94], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#error */
6205 scm__rc.d1562[95] = Scm_MakeIdentifier(scm__rc.d1562[89], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#integer? */
6206 scm__rc.d1562[96] = Scm_MakeIdentifier(scm__rc.d1562[92], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%string-split */
6207 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[230]), scm__rc.d1562[2]);
6208 scm__rc.d1562[97] = Scm_MakeExtendedPair(scm__rc.d1562[81], SCM_OBJ(&scm__rc.d1563[200]), SCM_OBJ(&scm__rc.d1563[231]));
6209 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[232]), scm__rc.d1562[97]);
6210 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[2]))->name = scm__rc.d1562[81];/* string-split */
6211 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[4] = SCM_WORD(scm__rc.d1562[30]);
6212 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[77] = SCM_WORD(scm__rc.d1562[93]);
6213 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[85] = SCM_WORD(scm__rc.d1562[95]);
6214 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[91] = SCM_WORD(scm__rc.d1562[30]);
6215 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[96] = SCM_WORD(scm__rc.d1562[96]);
6216 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[105] = SCM_WORD(scm__rc.d1562[96]);
6217 ScmObj G1572 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[2]), NULL);
6218
6219 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[81]) /* string-split */, G1572,0);
6220
6221 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
6222 scm__rc.d1562[98] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[74])),TRUE); /* %string-split-by-char */
6223 scm__rc.d1562[99] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[75])),TRUE); /* s */
6224 scm__rc.d1562[100] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[76])),TRUE); /* ch */
6225 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[233]), scm__rc.d1562[85]);
6226 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[234]), scm__rc.d1562[13]);
6227 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[235]), scm__rc.d1562[100]);
6228 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[236]), scm__rc.d1562[99]);
6229 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[239]), scm__rc.d1562[2]);
6230 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[240]), scm__rc.d1562[98]);
6231 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[241]), scm__rc.d1562[91]);
6232 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[242]), scm__rc.d1562[3]);
6233 scm__rc.d1562[101] = Scm_MakeExtendedPair(scm__rc.d1562[98], SCM_OBJ(&scm__rc.d1563[236]), SCM_OBJ(&scm__rc.d1563[244]));
6234 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%string-split-by-char")), SCM_OBJ(&libstr_25string_split_by_char__STUB), 0);
6235 libstr_25string_split_by_char__STUB.common.info = scm__rc.d1562[101];
6236 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[245]), scm__rc.d1562[32]);
6237 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[246]), scm__rc.d1562[31]);
6238 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[247]), scm__rc.d1562[33]);
6239 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[248]), scm__rc.d1562[30]);
6240 scm__rc.d1562[103] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[91]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche.internal */
6241 scm__rc.d1562[102] = Scm_MakeIdentifier(scm__rc.d1562[94], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#error */
6242 scm__rc.d1562[104] = Scm_MakeIdentifier(scm__rc.d1562[89], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#integer? */
6243 scm__rc.d1562[105] = Scm_MakeIdentifier(scm__rc.d1562[62], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%maybe-substring */
6244 scm__rc.d1562[107] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[80])),TRUE); /* equal? */
6245 scm__rc.d1562[106] = Scm_MakeIdentifier(scm__rc.d1562[107], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#equal? */
6246 scm__rc.d1562[108] = Scm_MakeIdentifier(scm__rc.d1562[98], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-split-by-char */
6247 scm__rc.d1562[110] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[82])),TRUE); /* %string-split-scanner */
6248 scm__rc.d1562[109] = Scm_MakeIdentifier(scm__rc.d1562[110], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-split-scanner */
6249 scm__rc.d1562[112] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[83])),TRUE); /* %string-split-by-scanner */
6250 scm__rc.d1562[111] = Scm_MakeIdentifier(scm__rc.d1562[112], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-split-by-scanner */
6251 scm__rc.d1562[114] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[84])),TRUE); /* last-pair */
6252 scm__rc.d1562[113] = Scm_MakeIdentifier(scm__rc.d1562[114], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#last-pair */
6253 scm__rc.d1562[116] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[85])),TRUE); /* drop-right */
6254 scm__rc.d1562[115] = Scm_MakeIdentifier(scm__rc.d1562[116], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#drop-right */
6255 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[251]), scm__rc.d1562[2]);
6256 scm__rc.d1562[117] = Scm_MakeExtendedPair(scm__rc.d1562[92], SCM_OBJ(&scm__rc.d1563[219]), SCM_OBJ(&scm__rc.d1563[252]));
6257 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[253]), scm__rc.d1562[117]);
6258 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[3]))->name = scm__rc.d1562[92];/* %string-split */
6259 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[14] = SCM_WORD(scm__rc.d1562[102]);
6260 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[22] = SCM_WORD(scm__rc.d1562[104]);
6261 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[36] = SCM_WORD(scm__rc.d1562[102]);
6262 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[49] = SCM_WORD(scm__rc.d1562[105]);
6263 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[57] = SCM_WORD(scm__rc.d1562[106]);
6264 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[62] = SCM_WORD(scm__rc.d1562[33]);
6265 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[67] = SCM_WORD(scm__rc.d1562[102]);
6266 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[86] = SCM_WORD(scm__rc.d1562[108]);
6267 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[96] = SCM_WORD(scm__rc.d1562[109]);
6268 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[105] = SCM_WORD(scm__rc.d1562[111]);
6269 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[109] = SCM_WORD(scm__rc.d1562[31]);
6270 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[122] = SCM_WORD(scm__rc.d1562[106]);
6271 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[131] = SCM_WORD(scm__rc.d1562[32]);
6272 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[143] = SCM_WORD(scm__rc.d1562[113]);
6273 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[148] = SCM_WORD(scm__rc.d1562[106]);
6274 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[154] = SCM_WORD(scm__rc.d1562[115]);
6275 ScmObj G1573 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[3]), NULL);
6276
6277 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[92]) /* %string-split */, G1573,0);
6278
6279 scm__rc.d1562[118] = Scm_MakeIdentifier(scm__rc.d1562[52], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-length */
6280 scm__rc.d1562[119] = Scm_MakeIdentifier(scm__rc.d1562[20], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-copy */
6281 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[254]), scm__rc.d1562[110]);
6282 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[255]), scm__rc.d1562[110]);
6283 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[256]), scm__rc.d1562[99]);
6284 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[259]), scm__rc.d1562[2]);
6285 scm__rc.d1562[120] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[255]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[260]));
6286 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[261]), scm__rc.d1562[120]);
6287 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]))[4] = SCM_WORD(scm__rc.d1562[118]);
6288 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]))[18] = SCM_WORD(scm__rc.d1562[119]);
6289 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]))[24] = SCM_WORD(scm__rc.d1562[119]);
6290 scm__rc.d1562[122] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[86])),TRUE); /* string=? */
6291 scm__rc.d1562[121] = Scm_MakeIdentifier(scm__rc.d1562[122], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string=? */
6292 scm__rc.d1562[123] = Scm_MakeIdentifier(scm__rc.d1562[74], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-scan */
6293 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[265]), scm__rc.d1562[2]);
6294 scm__rc.d1562[124] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[255]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[266]));
6295 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[267]), scm__rc.d1562[124]);
6296 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[5]))->name = scm__rc.d1562[110];/* (%string-split-scanner %string-split-scanner) */
6297 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]))[5] = SCM_WORD(scm__rc.d1562[67]);
6298 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]))[7] = SCM_WORD(scm__rc.d1562[123]);
6299 scm__rc.d1562[126] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[87])),TRUE); /* char-set? */
6300 scm__rc.d1562[125] = Scm_MakeIdentifier(scm__rc.d1562[126], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#char-set? */
6301 scm__rc.d1562[128] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[88])),TRUE); /* char-set-contains? */
6302 scm__rc.d1562[127] = Scm_MakeIdentifier(scm__rc.d1562[128], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#char-set-contains? */
6303 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[268]), scm__rc.d1562[110]);
6304 scm__rc.d1562[129] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[89])),FALSE); /* G1574 */
6305 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[269]), scm__rc.d1562[129]);
6306 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[272]), scm__rc.d1562[2]);
6307 scm__rc.d1562[130] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[268]), SCM_OBJ(&scm__rc.d1563[269]), SCM_OBJ(&scm__rc.d1563[273]));
6308 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[274]), scm__rc.d1562[130]);
6309 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[325]))[3] = SCM_WORD(scm__rc.d1562[127]);
6310 scm__rc.d1562[132] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[90])),TRUE); /* %string-split-scanner-each-char */
6311 scm__rc.d1562[131] = Scm_MakeIdentifier(scm__rc.d1562[132], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-split-scanner-each-char */
6312 scm__rc.d1562[134] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[91])),TRUE); /* regexp? */
6313 scm__rc.d1562[133] = Scm_MakeIdentifier(scm__rc.d1562[134], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#regexp? */
6314 scm__rc.d1562[136] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[92])),TRUE); /* rxmatch */
6315 scm__rc.d1562[135] = Scm_MakeIdentifier(scm__rc.d1562[136], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#rxmatch */
6316 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[277]), scm__rc.d1562[2]);
6317 scm__rc.d1562[137] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[255]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[278]));
6318 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[279]), scm__rc.d1562[137]);
6319 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[7]))->name = scm__rc.d1562[110];/* (%string-split-scanner %string-split-scanner) */
6320 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[5] = SCM_WORD(scm__rc.d1562[135]);
6321 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[13] = SCM_WORD(scm__rc.d1562[71]);
6322 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[19] = SCM_WORD(scm__rc.d1562[70]);
6323 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[28] = SCM_WORD(scm__rc.d1562[121]);
6324 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[35] = SCM_WORD(scm__rc.d1562[118]);
6325 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[49] = SCM_WORD(scm__rc.d1562[119]);
6326 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[55] = SCM_WORD(scm__rc.d1562[119]);
6327 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[280]), scm__rc.d1562[83]);
6328 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[283]), scm__rc.d1562[2]);
6329 scm__rc.d1562[138] = Scm_MakeExtendedPair(scm__rc.d1562[110], SCM_OBJ(&scm__rc.d1563[280]), SCM_OBJ(&scm__rc.d1563[284]));
6330 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[285]), scm__rc.d1562[138]);
6331 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[8]))->name = scm__rc.d1562[110];/* %string-split-scanner */
6332 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[10] = SCM_WORD(scm__rc.d1562[121]);
6333 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[21] = SCM_WORD(scm__rc.d1562[125]);
6334 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[27] = SCM_WORD(scm__rc.d1562[131]);
6335 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[33] = SCM_WORD(scm__rc.d1562[133]);
6336 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[41] = SCM_WORD(scm__rc.d1562[131]);
6337 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[9]))->name = scm__rc.d1562[46];/* %toplevel */
6338 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[436]))[5] = SCM_WORD(scm__rc.d1562[109]);
6339 scm__rc.d1562[140] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[93])),TRUE); /* string-cursor-start */
6340 scm__rc.d1562[139] = Scm_MakeIdentifier(scm__rc.d1562[140], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor-start */
6341 scm__rc.d1562[142] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[94])),TRUE); /* string-cursor-end */
6342 scm__rc.d1562[141] = Scm_MakeIdentifier(scm__rc.d1562[142], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor-end */
6343 scm__rc.d1562[144] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[95])),TRUE); /* string-cursor=? */
6344 scm__rc.d1562[143] = Scm_MakeIdentifier(scm__rc.d1562[144], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor=? */
6345 scm__rc.d1562[145] = Scm_MakeIdentifier(scm__rc.d1562[58], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#substring */
6346 scm__rc.d1562[146] = Scm_MakeIdentifier(scm__rc.d1562[54], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-ref */
6347 scm__rc.d1562[148] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[96])),TRUE); /* string-cursor-next */
6348 scm__rc.d1562[147] = Scm_MakeIdentifier(scm__rc.d1562[148], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor-next */
6349 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[286]), scm__rc.d1562[132]);
6350 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[287]), scm__rc.d1562[132]);
6351 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[290]), scm__rc.d1562[2]);
6352 scm__rc.d1562[149] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[287]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[291]));
6353 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[292]), scm__rc.d1562[149]);
6354 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[10]))->name = scm__rc.d1562[132];/* (%string-split-scanner-each-char %string-split-scanner-each-char) */
6355 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[5] = SCM_WORD(scm__rc.d1562[139]);
6356 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[10] = SCM_WORD(scm__rc.d1562[141]);
6357 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[17] = SCM_WORD(scm__rc.d1562[143]);
6358 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[27] = SCM_WORD(scm__rc.d1562[139]);
6359 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[31] = SCM_WORD(scm__rc.d1562[145]);
6360 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[42] = SCM_WORD(scm__rc.d1562[146]);
6361 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[54] = SCM_WORD(scm__rc.d1562[147]);
6362 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[64] = SCM_WORD(scm__rc.d1562[139]);
6363 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[68] = SCM_WORD(scm__rc.d1562[145]);
6364 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[75] = SCM_WORD(scm__rc.d1562[143]);
6365 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[89] = SCM_WORD(scm__rc.d1562[146]);
6366 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[101] = SCM_WORD(scm__rc.d1562[147]);
6367 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[115] = SCM_WORD(scm__rc.d1562[145]);
6368 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[124] = SCM_WORD(scm__rc.d1562[147]);
6369 scm__rc.d1562[150] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[97])),TRUE); /* pred */
6370 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[293]), scm__rc.d1562[150]);
6371 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[296]), scm__rc.d1562[2]);
6372 scm__rc.d1562[151] = Scm_MakeExtendedPair(scm__rc.d1562[132], SCM_OBJ(&scm__rc.d1563[293]), SCM_OBJ(&scm__rc.d1563[297]));
6373 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[298]), scm__rc.d1562[151]);
6374 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[11]))->name = scm__rc.d1562[132];/* %string-split-scanner-each-char */
6375 ScmObj G1576 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[11]), NULL);
6376
6377 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[132]) /* %string-split-scanner-each-char */, G1576,0);
6378
6379 scm__rc.d1562[153] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[98])),TRUE); /* reverse! */
6380 scm__rc.d1562[152] = Scm_MakeIdentifier(scm__rc.d1562[153], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#reverse! */
6381 scm__rc.d1562[154] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[99])),TRUE); /* scanner */
6382 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[299]), scm__rc.d1562[154]);
6383 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[300]), scm__rc.d1562[16]);
6384 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[303]), scm__rc.d1562[2]);
6385 scm__rc.d1562[155] = Scm_MakeExtendedPair(scm__rc.d1562[112], SCM_OBJ(&scm__rc.d1563[300]), SCM_OBJ(&scm__rc.d1563[304]));
6386 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[305]), scm__rc.d1562[155]);
6387 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[12]))->name = scm__rc.d1562[112];/* %string-split-by-scanner */
6388 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]))[11] = SCM_WORD(scm__rc.d1562[152]);
6389 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]))[34] = SCM_WORD(scm__rc.d1562[152]);
6390 ScmObj G1577 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[12]), NULL);
6391
6392 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[112]) /* %string-split-by-scanner */, G1577,0);
6393
6394 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
6395 scm__rc.d1562[156] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[100])),TRUE); /* %string-replace-body! */
6396 scm__rc.d1562[157] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[101])),TRUE); /* target */
6397 scm__rc.d1562[158] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[102])),TRUE); /* source */
6398 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[306]), scm__rc.d1562[158]);
6399 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[307]), scm__rc.d1562[157]);
6400 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[310]), scm__rc.d1562[2]);
6401 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[311]), scm__rc.d1562[156]);
6402 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[312]), scm__rc.d1562[91]);
6403 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[313]), scm__rc.d1562[3]);
6404 scm__rc.d1562[159] = Scm_MakeExtendedPair(scm__rc.d1562[156], SCM_OBJ(&scm__rc.d1563[307]), SCM_OBJ(&scm__rc.d1563[315]));
6405 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%string-replace-body!")), SCM_OBJ(&libstr_25string_replace_bodyX__STUB), 0);
6406 libstr_25string_replace_bodyX__STUB.common.info = scm__rc.d1562[159];
6407 scm__rc.d1562[160] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[103])),TRUE); /* string-set! */
6408 scm__rc.d1562[161] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[105])),TRUE); /* arg */
6409 scm__rc.d1562[163] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[106])),TRUE); /* errorf */
6410 scm__rc.d1562[162] = Scm_MakeIdentifier(scm__rc.d1562[163], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#errorf */
6411 scm__rc.d1562[165] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[107])),TRUE); /* string-index->cursor */
6412 scm__rc.d1562[164] = Scm_MakeIdentifier(scm__rc.d1562[165], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-index->cursor */
6413 scm__rc.d1562[166] = Scm_MakeIdentifier(scm__rc.d1562[16], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string */
6414 scm__rc.d1562[167] = Scm_MakeIdentifier(scm__rc.d1562[25], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-append */
6415 scm__rc.d1562[168] = Scm_MakeIdentifier(scm__rc.d1562[156], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-replace-body! */
6416 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[316]), scm__rc.d1562[100]);
6417 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[317]), scm__rc.d1562[55]);
6418 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[318]), scm__rc.d1562[21]);
6419 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[321]), scm__rc.d1562[2]);
6420 scm__rc.d1562[169] = Scm_MakeExtendedPair(scm__rc.d1562[160], SCM_OBJ(&scm__rc.d1563[318]), SCM_OBJ(&scm__rc.d1563[322]));
6421 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[323]), scm__rc.d1562[169]);
6422 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[13]))->name = scm__rc.d1562[160];/* string-set! */
6423 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[11] = SCM_WORD(scm__rc.d1562[161]);
6424 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[14] = SCM_WORD(scm__rc.d1562[162]);
6425 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[26] = SCM_WORD(scm__rc.d1562[161]);
6426 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[29] = SCM_WORD(scm__rc.d1562[162]);
6427 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[35] = SCM_WORD(scm__rc.d1562[164]);
6428 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[46] = SCM_WORD(scm__rc.d1562[145]);
6429 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[51] = SCM_WORD(scm__rc.d1562[166]);
6430 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[60] = SCM_WORD(scm__rc.d1562[147]);
6431 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[62] = SCM_WORD(scm__rc.d1562[119]);
6432 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[64] = SCM_WORD(scm__rc.d1562[167]);
6433 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[66] = SCM_WORD(scm__rc.d1562[168]);
6434 ScmObj G1578 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[13]), NULL);
6435
6436 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[160]) /* string-set! */, G1578,0);
6437
6438 scm__rc.d1562[170] = Scm_MakeIdentifier(scm__rc.d1562[160], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-set! */
6439 scm__rc.d1562[172] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[108])),TRUE); /* setter */
6440 scm__rc.d1562[171] = Scm_MakeIdentifier(scm__rc.d1562[172], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#setter */
6441 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[14]))->name = scm__rc.d1562[46];/* %toplevel */
6442 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[682]))[1] = SCM_WORD(scm__rc.d1562[146]);
6443 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[682]))[3] = SCM_WORD(scm__rc.d1562[170]);
6444 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[682]))[5] = SCM_WORD(scm__rc.d1562[171]);
6445 scm__rc.d1562[173] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[109])),TRUE); /* string-byte-set! */
6446 scm__rc.d1562[175] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[110])),TRUE); /* exact? */
6447 scm__rc.d1562[174] = Scm_MakeIdentifier(scm__rc.d1562[175], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#exact? */
6448 scm__rc.d1562[176] = Scm_MakeIdentifier(scm__rc.d1562[60], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-size */
6449 scm__rc.d1562[177] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[111]))); /* :private? */
6450 scm__rc.d1562[179] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[112])),TRUE); /* open-output-string */
6451 scm__rc.d1562[178] = Scm_MakeIdentifier(scm__rc.d1562[179], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#open-output-string */
6452 scm__rc.d1562[181] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[114])),TRUE); /* byte-substring */
6453 scm__rc.d1562[180] = Scm_MakeIdentifier(scm__rc.d1562[181], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#byte-substring */
6454 scm__rc.d1562[183] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[115])),TRUE); /* display */
6455 scm__rc.d1562[182] = Scm_MakeIdentifier(scm__rc.d1562[183], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#display */
6456 scm__rc.d1562[185] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[116])),TRUE); /* write-byte */
6457 scm__rc.d1562[184] = Scm_MakeIdentifier(scm__rc.d1562[185], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#write-byte */
6458 scm__rc.d1562[187] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[117])),TRUE); /* get-output-byte-string */
6459 scm__rc.d1562[186] = Scm_MakeIdentifier(scm__rc.d1562[187], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#get-output-byte-string */
6460 scm__rc.d1562[188] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[118])),TRUE); /* b */
6461 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[324]), scm__rc.d1562[188]);
6462 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[325]), scm__rc.d1562[55]);
6463 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[326]), scm__rc.d1562[21]);
6464 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[329]), scm__rc.d1562[2]);
6465 scm__rc.d1562[189] = Scm_MakeExtendedPair(scm__rc.d1562[173], SCM_OBJ(&scm__rc.d1563[326]), SCM_OBJ(&scm__rc.d1563[330]));
6466 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[331]), scm__rc.d1562[189]);
6467 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[15]))->name = scm__rc.d1562[173];/* string-byte-set! */
6468 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[11] = SCM_WORD(scm__rc.d1562[161]);
6469 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[14] = SCM_WORD(scm__rc.d1562[162]);
6470 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[19] = SCM_WORD(scm__rc.d1562[104]);
6471 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[29] = SCM_WORD(scm__rc.d1562[161]);
6472 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[32] = SCM_WORD(scm__rc.d1562[162]);
6473 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[37] = SCM_WORD(scm__rc.d1562[174]);
6474 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[47] = SCM_WORD(scm__rc.d1562[161]);
6475 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[50] = SCM_WORD(scm__rc.d1562[162]);
6476 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[55] = SCM_WORD(scm__rc.d1562[104]);
6477 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[65] = SCM_WORD(scm__rc.d1562[161]);
6478 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[68] = SCM_WORD(scm__rc.d1562[162]);
6479 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[73] = SCM_WORD(scm__rc.d1562[176]);
6480 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[77] = SCM_WORD(scm__rc.d1562[177]);
6481 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[81] = SCM_WORD(scm__rc.d1562[178]);
6482 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[92] = SCM_WORD(scm__rc.d1562[102]);
6483 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[110] = SCM_WORD(scm__rc.d1562[180]);
6484 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[114] = SCM_WORD(scm__rc.d1562[182]);
6485 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[120] = SCM_WORD(scm__rc.d1562[184]);
6486 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[129] = SCM_WORD(scm__rc.d1562[180]);
6487 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[133] = SCM_WORD(scm__rc.d1562[182]);
6488 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[139] = SCM_WORD(scm__rc.d1562[186]);
6489 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[141] = SCM_WORD(scm__rc.d1562[168]);
6490 ScmObj G1579 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[15]), NULL);
6491
6492 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[173]) /* string-byte-set! */, G1579,0);
6493
6494 scm__rc.d1562[191] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[119])),TRUE); /* string-byte-ref */
6495 scm__rc.d1562[190] = Scm_MakeIdentifier(scm__rc.d1562[191], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-byte-ref */
6496 scm__rc.d1562[192] = Scm_MakeIdentifier(scm__rc.d1562[173], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-byte-set! */
6497 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[16]))->name = scm__rc.d1562[46];/* %toplevel */
6498 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[834]))[1] = SCM_WORD(scm__rc.d1562[190]);
6499 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[834]))[3] = SCM_WORD(scm__rc.d1562[192]);
6500 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[834]))[5] = SCM_WORD(scm__rc.d1562[171]);
6501 scm__rc.d1562[193] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[120])),TRUE); /* string-fill! */
6502 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[333]), scm__rc.d1562[22]);
6503 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[334]), scm__rc.d1562[52]);
6504 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[336]), scm__rc.d1562[23]);
6505 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[339]), scm__rc.d1562[13]);
6506 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[340]), scm__rc.d1562[14]);
6507 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[341]), scm__rc.d1562[21]);
6508 scm__rc.d1562[194] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[121])),TRUE); /* let */
6509 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[342]), scm__rc.d1562[21]);
6510 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[343]), scm__rc.d1562[165]);
6511 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[345]), scm__rc.d1562[22]);
6512 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[346]), scm__rc.d1562[21]);
6513 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[347]), scm__rc.d1562[165]);
6514 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[349]), scm__rc.d1562[23]);
6515 scm__rc.d1562[195] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[122])),TRUE); /* istart */
6516 scm__rc.d1562[196] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[123])),TRUE); /* string-cursor->index */
6517 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[350]), scm__rc.d1562[196]);
6518 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[352]), scm__rc.d1562[195]);
6519 scm__rc.d1562[197] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[124])),TRUE); /* iend */
6520 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[353]), scm__rc.d1562[196]);
6521 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[355]), scm__rc.d1562[197]);
6522 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[356]), scm__rc.d1562[12]);
6523 scm__rc.d1562[198] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[125])),TRUE); /* when */
6524 scm__rc.d1562[199] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[126])),TRUE); /* < */
6525 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[362]), scm__rc.d1562[195]);
6526 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[363]), scm__rc.d1562[197]);
6527 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[364]), scm__rc.d1562[199]);
6528 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[366]), scm__rc.d1562[163]);
6529 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[369]), scm__rc.d1562[198]);
6530 scm__rc.d1562[200] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[128])),TRUE); /* and */
6531 scm__rc.d1562[201] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[129])),TRUE); /* = */
6532 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[370]), scm__rc.d1562[195]);
6533 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[371]), scm__rc.d1562[201]);
6534 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[372]), scm__rc.d1562[12]);
6535 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[373]), scm__rc.d1562[197]);
6536 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[374]), scm__rc.d1562[201]);
6537 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[377]), scm__rc.d1562[200]);
6538 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[378]), scm__rc.d1562[12]);
6539 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[379]), scm__rc.d1562[11]);
6540 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[381]), scm__rc.d1562[21]);
6541 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[382]), scm__rc.d1562[156]);
6542 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[384]), scm__rc.d1562[21]);
6543 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[385]), scm__rc.d1562[58]);
6544 scm__rc.d1562[202] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[130])),TRUE); /* - */
6545 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[386]), scm__rc.d1562[202]);
6546 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[388]), scm__rc.d1562[11]);
6547 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[389]), scm__rc.d1562[20]);
6548 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[393]), scm__rc.d1562[25]);
6549 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[395]), scm__rc.d1562[21]);
6550 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[396]), scm__rc.d1562[156]);
6551 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[400]), scm__rc.d1562[86]);
6552 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[404]), scm__rc.d1562[194]);
6553 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[407]), scm__rc.d1562[82]);
6554 scm__rc.d1562[203] = Scm_MakeIdentifier(scm__rc.d1562[196], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor->index */
6555 scm__rc.d1562[204] = Scm_MakeIdentifier(scm__rc.d1562[163], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#errorf */
6556 scm__rc.d1562[205] = Scm_MakeIdentifier(scm__rc.d1562[11], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#make-string */
6557 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[410]), scm__rc.d1562[2]);
6558 scm__rc.d1562[206] = Scm_MakeExtendedPair(scm__rc.d1562[193], SCM_OBJ(&scm__rc.d1563[341]), SCM_OBJ(&scm__rc.d1563[411]));
6559 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[412]), scm__rc.d1562[206]);
6560 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[17]))->name = scm__rc.d1562[193];/* string-fill! */
6561 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[23] = SCM_WORD(scm__rc.d1562[118]);
6562 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[48] = SCM_WORD(scm__rc.d1562[102]);
6563 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[54] = SCM_WORD(scm__rc.d1562[164]);
6564 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[60] = SCM_WORD(scm__rc.d1562[164]);
6565 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[66] = SCM_WORD(scm__rc.d1562[203]);
6566 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[72] = SCM_WORD(scm__rc.d1562[203]);
6567 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[77] = SCM_WORD(scm__rc.d1562[118]);
6568 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[89] = SCM_WORD(scm__rc.d1562[204]);
6569 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[104] = SCM_WORD(scm__rc.d1562[205]);
6570 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[106] = SCM_WORD(scm__rc.d1562[168]);
6571 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[117] = SCM_WORD(scm__rc.d1562[145]);
6572 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[126] = SCM_WORD(scm__rc.d1562[205]);
6573 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[132] = SCM_WORD(scm__rc.d1562[119]);
6574 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[134] = SCM_WORD(scm__rc.d1562[167]);
6575 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[136] = SCM_WORD(scm__rc.d1562[168]);
6576 ScmObj G1584 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[17]), NULL);
6577
6578 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[193]) /* string-fill! */, G1584,0);
6579
6580 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6581 scm__rc.d1562[207] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[131])),TRUE); /* string-build-index! */
6582 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[415]), scm__rc.d1562[2]);
6583 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[416]), scm__rc.d1562[207]);
6584 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[417]), scm__rc.d1562[7]);
6585 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[418]), scm__rc.d1562[3]);
6586 scm__rc.d1562[208] = Scm_MakeExtendedPair(scm__rc.d1562[207], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[420]));
6587 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-build-index!")), SCM_OBJ(&libstrstring_build_indexX__STUB), 0);
6588 libstrstring_build_indexX__STUB.common.info = scm__rc.d1562[208];
6589 scm__rc.d1562[209] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[132])),TRUE); /* string-fast-indexable? */
6590 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[423]), scm__rc.d1562[2]);
6591 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[424]), scm__rc.d1562[209]);
6592 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[425]), scm__rc.d1562[7]);
6593 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[426]), scm__rc.d1562[3]);
6594 scm__rc.d1562[210] = Scm_MakeExtendedPair(scm__rc.d1562[209], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[428]));
6595 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-fast-indexable?")), SCM_OBJ(&libstrstring_fast_indexableP__STUB), 0);
6596 libstrstring_fast_indexableP__STUB.common.info = scm__rc.d1562[210];
6597 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
6598 scm__rc.d1562[211] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[133])),TRUE); /* %string-index-dump */
6599 scm__rc.d1562[212] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[134])),TRUE); /* p */
6600 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[429]), scm__rc.d1562[212]);
6601 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[430]), scm__rc.d1562[13]);
6602 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[431]), scm__rc.d1562[99]);
6603 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[434]), scm__rc.d1562[2]);
6604 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[435]), scm__rc.d1562[211]);
6605 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[436]), scm__rc.d1562[91]);
6606 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[437]), scm__rc.d1562[3]);
6607 scm__rc.d1562[213] = Scm_MakeExtendedPair(scm__rc.d1562[211], SCM_OBJ(&scm__rc.d1563[431]), SCM_OBJ(&scm__rc.d1563[439]));
6608 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%string-index-dump")), SCM_OBJ(&libstr_25string_index_dump__STUB), 0);
6609 libstr_25string_index_dump__STUB.common.info = scm__rc.d1562[213];
6610 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
6611 scm__rc.d1562[214] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[135])),TRUE); /* ss */
6612 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[440]), scm__rc.d1562[214]);
6613 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[441]), scm__rc.d1562[17]);
6614 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[442]), scm__rc.d1562[76]);
6615 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[443]), scm__rc.d1562[75]);
6616 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[446]), scm__rc.d1562[2]);
6617 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[447]), scm__rc.d1562[122]);
6618 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[448]), scm__rc.d1562[4]);
6619 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[449]), scm__rc.d1562[3]);
6620 scm__rc.d1562[215] = Scm_MakeExtendedPair(scm__rc.d1562[122], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[451]));
6621 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string=?")), SCM_OBJ(&libstrstring_3dP__STUB), SCM_BINDING_INLINABLE);
6622 libstrstring_3dP__STUB.common.info = scm__rc.d1562[215];
6623 scm__rc.d1562[216] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[136])),TRUE); /* string<? */
6624 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[454]), scm__rc.d1562[2]);
6625 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[455]), scm__rc.d1562[216]);
6626 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[456]), scm__rc.d1562[4]);
6627 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[457]), scm__rc.d1562[3]);
6628 scm__rc.d1562[217] = Scm_MakeExtendedPair(scm__rc.d1562[216], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[459]));
6629 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string<?")), SCM_OBJ(&libstrstring_LTP__STUB), SCM_BINDING_INLINABLE);
6630 libstrstring_LTP__STUB.common.info = scm__rc.d1562[217];
6631 scm__rc.d1562[218] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[137])),TRUE); /* string>? */
6632 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[462]), scm__rc.d1562[2]);
6633 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[463]), scm__rc.d1562[218]);
6634 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[464]), scm__rc.d1562[4]);
6635 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[465]), scm__rc.d1562[3]);
6636 scm__rc.d1562[219] = Scm_MakeExtendedPair(scm__rc.d1562[218], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[467]));
6637 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string>?")), SCM_OBJ(&libstrstring_GTP__STUB), SCM_BINDING_INLINABLE);
6638 libstrstring_GTP__STUB.common.info = scm__rc.d1562[219];
6639 scm__rc.d1562[220] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[138])),TRUE); /* string<=? */
6640 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[470]), scm__rc.d1562[2]);
6641 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[471]), scm__rc.d1562[220]);
6642 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[472]), scm__rc.d1562[4]);
6643 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[473]), scm__rc.d1562[3]);
6644 scm__rc.d1562[221] = Scm_MakeExtendedPair(scm__rc.d1562[220], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[475]));
6645 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string<=?")), SCM_OBJ(&libstrstring_LT_3dP__STUB), SCM_BINDING_INLINABLE);
6646 libstrstring_LT_3dP__STUB.common.info = scm__rc.d1562[221];
6647 scm__rc.d1562[222] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[139])),TRUE); /* string>=? */
6648 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[478]), scm__rc.d1562[2]);
6649 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[479]), scm__rc.d1562[222]);
6650 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[480]), scm__rc.d1562[4]);
6651 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[481]), scm__rc.d1562[3]);
6652 scm__rc.d1562[223] = Scm_MakeExtendedPair(scm__rc.d1562[222], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[483]));
6653 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string>=?")), SCM_OBJ(&libstrstring_GT_3dP__STUB), SCM_BINDING_INLINABLE);
6654 libstrstring_GT_3dP__STUB.common.info = scm__rc.d1562[223];
6655 scm__rc.d1562[224] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[140])),TRUE); /* string-ci=? */
6656 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[486]), scm__rc.d1562[2]);
6657 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[487]), scm__rc.d1562[224]);
6658 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[488]), scm__rc.d1562[4]);
6659 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[489]), scm__rc.d1562[3]);
6660 scm__rc.d1562[225] = Scm_MakeExtendedPair(scm__rc.d1562[224], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[491]));
6661 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci=?")), SCM_OBJ(&libstrstring_ci_3dP__STUB), SCM_BINDING_INLINABLE);
6662 libstrstring_ci_3dP__STUB.common.info = scm__rc.d1562[225];
6663 scm__rc.d1562[226] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[141])),TRUE); /* string-ci<? */
6664 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[494]), scm__rc.d1562[2]);
6665 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[495]), scm__rc.d1562[226]);
6666 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[496]), scm__rc.d1562[4]);
6667 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[497]), scm__rc.d1562[3]);
6668 scm__rc.d1562[227] = Scm_MakeExtendedPair(scm__rc.d1562[226], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[499]));
6669 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci<?")), SCM_OBJ(&libstrstring_ci_LTP__STUB), SCM_BINDING_INLINABLE);
6670 libstrstring_ci_LTP__STUB.common.info = scm__rc.d1562[227];
6671 scm__rc.d1562[228] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[142])),TRUE); /* string-ci>? */
6672 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[502]), scm__rc.d1562[2]);
6673 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[503]), scm__rc.d1562[228]);
6674 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[504]), scm__rc.d1562[4]);
6675 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[505]), scm__rc.d1562[3]);
6676 scm__rc.d1562[229] = Scm_MakeExtendedPair(scm__rc.d1562[228], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[507]));
6677 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci>?")), SCM_OBJ(&libstrstring_ci_GTP__STUB), SCM_BINDING_INLINABLE);
6678 libstrstring_ci_GTP__STUB.common.info = scm__rc.d1562[229];
6679 scm__rc.d1562[230] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[143])),TRUE); /* string-ci<=? */
6680 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[510]), scm__rc.d1562[2]);
6681 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[511]), scm__rc.d1562[230]);
6682 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[512]), scm__rc.d1562[4]);
6683 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[513]), scm__rc.d1562[3]);
6684 scm__rc.d1562[231] = Scm_MakeExtendedPair(scm__rc.d1562[230], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[515]));
6685 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci<=?")), SCM_OBJ(&libstrstring_ci_LT_3dP__STUB), SCM_BINDING_INLINABLE);
6686 libstrstring_ci_LT_3dP__STUB.common.info = scm__rc.d1562[231];
6687 scm__rc.d1562[232] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[144])),TRUE); /* string-ci>=? */
6688 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[518]), scm__rc.d1562[2]);
6689 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[519]), scm__rc.d1562[232]);
6690 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[520]), scm__rc.d1562[4]);
6691 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[521]), scm__rc.d1562[3]);
6692 scm__rc.d1562[233] = Scm_MakeExtendedPair(scm__rc.d1562[232], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[523]));
6693 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci>=?")), SCM_OBJ(&libstrstring_ci_GT_3dP__STUB), SCM_BINDING_INLINABLE);
6694 libstrstring_ci_GT_3dP__STUB.common.info = scm__rc.d1562[233];
6695 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
6696 scm__rc.d1562[234] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[145])),TRUE); /* %string-map-dispatch */
6697 scm__rc.d1562[235] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[146])),FALSE); /* G1591 */
6698 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[524]), scm__rc.d1562[235]);
6699 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[525]), scm__rc.d1562[234]);
6700 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[528]), scm__rc.d1562[2]);
6701 scm__rc.d1562[236] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[525]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[529]));
6702 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[530]), scm__rc.d1562[236]);
6703 scm__rc.d1562[237] = Scm_MakeIdentifier(scm__rc.d1562[62], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%maybe-substring */
6704 scm__rc.d1562[239] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[148])),TRUE); /* string-cursor? */
6705 scm__rc.d1562[238] = Scm_MakeIdentifier(scm__rc.d1562[239], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor? */
6706 scm__rc.d1562[241] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[150])),TRUE); /* find */
6707 scm__rc.d1562[240] = Scm_MakeIdentifier(scm__rc.d1562[241], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#find */
6708 scm__rc.d1562[242] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[152])),TRUE); /* name */
6709 scm__rc.d1562[243] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[153])),TRUE); /* proc */
6710 scm__rc.d1562[244] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14])),TRUE); /* rest */
6711 scm__rc.d1562[245] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[154])),TRUE); /* proc-single */
6712 scm__rc.d1562[246] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[155])),TRUE); /* proc-multi */
6713 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[532]), scm__rc.d1562[246]);
6714 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[533]), scm__rc.d1562[245]);
6715 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[534]), scm__rc.d1562[244]);
6716 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[535]), scm__rc.d1562[21]);
6717 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[536]), scm__rc.d1562[243]);
6718 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[537]), scm__rc.d1562[242]);
6719 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[540]), scm__rc.d1562[2]);
6720 scm__rc.d1562[247] = Scm_MakeExtendedPair(scm__rc.d1562[234], SCM_OBJ(&scm__rc.d1563[537]), SCM_OBJ(&scm__rc.d1563[541]));
6721 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[542]), scm__rc.d1562[247]);
6722 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[19]))->name = scm__rc.d1562[234];/* %string-map-dispatch */
6723 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[12] = SCM_WORD(scm__rc.d1562[104]);
6724 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[26] = SCM_WORD(scm__rc.d1562[237]);
6725 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[36] = SCM_WORD(scm__rc.d1562[104]);
6726 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[52] = SCM_WORD(scm__rc.d1562[237]);
6727 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[61] = SCM_WORD(scm__rc.d1562[204]);
6728 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[68] = SCM_WORD(scm__rc.d1562[238]);
6729 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[76] = SCM_WORD(scm__rc.d1562[102]);
6730 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[82] = SCM_WORD(scm__rc.d1562[238]);
6731 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[94] = SCM_WORD(scm__rc.d1562[240]);
6732 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[103] = SCM_WORD(scm__rc.d1562[102]);
6733 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[115] = SCM_WORD(scm__rc.d1562[102]);
6734 scm__rc.d1562[248] = Scm_MakeIdentifier(scm__rc.d1562[234], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-map-dispatch */
6735 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[20]))->name = scm__rc.d1562[46];/* %toplevel */
6736 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1105]))[5] = SCM_WORD(scm__rc.d1562[248]);
6737 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6738 scm__rc.d1562[249] = Scm_MakeIdentifier(scm__rc.d1562[140], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-start */
6739 scm__rc.d1562[250] = Scm_MakeIdentifier(scm__rc.d1562[142], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-end */
6740 scm__rc.d1562[251] = Scm_MakeIdentifier(scm__rc.d1562[144], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor=? */
6741 scm__rc.d1562[252] = Scm_MakeIdentifier(scm__rc.d1562[49], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#list->string */
6742 scm__rc.d1562[254] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[156])),TRUE); /* string-cursor-prev */
6743 scm__rc.d1562[253] = Scm_MakeIdentifier(scm__rc.d1562[254], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-prev */
6744 scm__rc.d1562[255] = Scm_MakeIdentifier(scm__rc.d1562[54], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-ref */
6745 scm__rc.d1562[256] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[157])),TRUE); /* string-map */
6746 scm__rc.d1562[257] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[158])),TRUE); /* string-map-1 */
6747 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[543]), scm__rc.d1562[257]);
6748 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[544]), scm__rc.d1562[256]);
6749 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[545]), scm__rc.d1562[243]);
6750 scm__rc.d1562[258] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[544]), SCM_OBJ(&scm__rc.d1563[545]), SCM_OBJ(&scm__rc.d1563[93]));
6751 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[546]), scm__rc.d1562[258]);
6752 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[4] = SCM_WORD(scm__rc.d1562[249]);
6753 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[10] = SCM_WORD(scm__rc.d1562[250]);
6754 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[19] = SCM_WORD(scm__rc.d1562[251]);
6755 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[24] = SCM_WORD(scm__rc.d1562[252]);
6756 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[31] = SCM_WORD(scm__rc.d1562[253]);
6757 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[41] = SCM_WORD(scm__rc.d1562[255]);
6758 scm__rc.d1562[260] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[159])),TRUE); /* map */
6759 scm__rc.d1562[259] = Scm_MakeIdentifier(scm__rc.d1562[260], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#map */
6760 scm__rc.d1562[262] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[160])),TRUE); /* any */
6761 scm__rc.d1562[261] = Scm_MakeIdentifier(scm__rc.d1562[262], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#any */
6762 scm__rc.d1562[263] = Scm_MakeIdentifier(scm__rc.d1562[148], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-next */
6763 scm__rc.d1562[264] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[161])),TRUE); /* string-map-n */
6764 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[547]), scm__rc.d1562[264]);
6765 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[548]), scm__rc.d1562[256]);
6766 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[549]), scm__rc.d1562[243]);
6767 SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[549]), scm__rc.d1562[35]);
6768 scm__rc.d1562[265] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[548]), SCM_OBJ(&scm__rc.d1563[549]), SCM_OBJ(&scm__rc.d1563[93]));
6769 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[550]), scm__rc.d1562[265]);
6770 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[3] = SCM_WORD(scm__rc.d1562[250]);
6771 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[6] = SCM_WORD(scm__rc.d1562[259]);
6772 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[11] = SCM_WORD(scm__rc.d1562[249]);
6773 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[14] = SCM_WORD(scm__rc.d1562[259]);
6774 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[21] = SCM_WORD(scm__rc.d1562[251]);
6775 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[25] = SCM_WORD(scm__rc.d1562[261]);
6776 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[31] = SCM_WORD(scm__rc.d1562[252]);
6777 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[36] = SCM_WORD(scm__rc.d1562[263]);
6778 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[40] = SCM_WORD(scm__rc.d1562[259]);
6779 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[47] = SCM_WORD(scm__rc.d1562[255]);
6780 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[51] = SCM_WORD(scm__rc.d1562[259]);
6781 scm__rc.d1562[266] = Scm_MakeIdentifier(scm__rc.d1562[234], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%string-map-dispatch */
6782 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[553]), scm__rc.d1562[21]);
6783 SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[553]), scm__rc.d1562[244]);
6784 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[554]), scm__rc.d1562[243]);
6785 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[557]), scm__rc.d1562[2]);
6786 scm__rc.d1562[267] = Scm_MakeExtendedPair(scm__rc.d1562[256], SCM_OBJ(&scm__rc.d1563[554]), SCM_OBJ(&scm__rc.d1563[558]));
6787 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[559]), scm__rc.d1562[267]);
6788 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[23]))->name = scm__rc.d1562[256];/* string-map */
6789 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1224]))[1] = SCM_WORD(scm__rc.d1562[256]);
6790 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1224]))[8] = SCM_WORD(scm__rc.d1562[266]);
6791 scm__rc.d1562[268] = Scm_MakeIdentifier(scm__rc.d1562[256], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-map */
6792 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[24]))->name = scm__rc.d1562[46];/* %toplevel */
6793 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1234]))[5] = SCM_WORD(scm__rc.d1562[268]);
6794 scm__rc.d1562[269] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[162])),TRUE); /* string-for-each */
6795 scm__rc.d1562[270] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[163])),TRUE); /* string-for-each-1 */
6796 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[560]), scm__rc.d1562[270]);
6797 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[561]), scm__rc.d1562[269]);
6798 scm__rc.d1562[271] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[561]), SCM_OBJ(&scm__rc.d1563[545]), SCM_OBJ(&scm__rc.d1563[93]));
6799 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[562]), scm__rc.d1562[271]);
6800 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[4] = SCM_WORD(scm__rc.d1562[250]);
6801 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[10] = SCM_WORD(scm__rc.d1562[249]);
6802 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[17] = SCM_WORD(scm__rc.d1562[251]);
6803 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[28] = SCM_WORD(scm__rc.d1562[255]);
6804 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[37] = SCM_WORD(scm__rc.d1562[263]);
6805 scm__rc.d1562[272] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[164])),TRUE); /* string-for-each-n */
6806 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[563]), scm__rc.d1562[272]);
6807 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[564]), scm__rc.d1562[269]);
6808 scm__rc.d1562[273] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[564]), SCM_OBJ(&scm__rc.d1563[549]), SCM_OBJ(&scm__rc.d1563[93]));
6809 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[565]), scm__rc.d1562[273]);
6810 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[3] = SCM_WORD(scm__rc.d1562[250]);
6811 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[6] = SCM_WORD(scm__rc.d1562[259]);
6812 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[11] = SCM_WORD(scm__rc.d1562[249]);
6813 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[14] = SCM_WORD(scm__rc.d1562[259]);
6814 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[19] = SCM_WORD(scm__rc.d1562[251]);
6815 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[23] = SCM_WORD(scm__rc.d1562[261]);
6816 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[33] = SCM_WORD(scm__rc.d1562[255]);
6817 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[37] = SCM_WORD(scm__rc.d1562[259]);
6818 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[42] = SCM_WORD(scm__rc.d1562[263]);
6819 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[46] = SCM_WORD(scm__rc.d1562[259]);
6820 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[570]), scm__rc.d1562[2]);
6821 scm__rc.d1562[274] = Scm_MakeExtendedPair(scm__rc.d1562[269], SCM_OBJ(&scm__rc.d1563[554]), SCM_OBJ(&scm__rc.d1563[571]));
6822 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[572]), scm__rc.d1562[274]);
6823 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[27]))->name = scm__rc.d1562[269];/* string-for-each */
6824 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1336]))[1] = SCM_WORD(scm__rc.d1562[269]);
6825 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1336]))[8] = SCM_WORD(scm__rc.d1562[266]);
6826 scm__rc.d1562[275] = Scm_MakeIdentifier(scm__rc.d1562[269], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-for-each */
6827 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[28]))->name = scm__rc.d1562[46];/* %toplevel */
6828 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1346]))[5] = SCM_WORD(scm__rc.d1562[275]);
6829 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6830 scm__rc.d1562[276] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[165])),TRUE); /* string-incomplete->complete! */
6831 scm__rc.d1562[278] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[166])),TRUE); /* string-incomplete->complete */
6832 scm__rc.d1562[277] = Scm_MakeIdentifier(scm__rc.d1562[278], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-incomplete->complete */
6833 scm__rc.d1562[279] = Scm_MakeIdentifier(scm__rc.d1562[156], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%string-replace-body! */
6834 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[575]), scm__rc.d1562[2]);
6835 scm__rc.d1562[280] = Scm_MakeExtendedPair(scm__rc.d1562[276], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[576]));
6836 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[577]), scm__rc.d1562[280]);
6837 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[29]))->name = scm__rc.d1562[276];/* string-incomplete->complete! */
6838 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]))[4] = SCM_WORD(scm__rc.d1562[277]);
6839 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]))[13] = SCM_WORD(scm__rc.d1562[279]);
6840 ScmObj G1596 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[29]), NULL);
6841
6842 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[276]) /* string-incomplete->complete! */, G1596,0);
6843
6844 scm__rc.d1562[281] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[167])),TRUE); /* string-complete->incomplete */
6845 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[580]), scm__rc.d1562[2]);
6846 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[581]), scm__rc.d1562[281]);
6847 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[582]), scm__rc.d1562[7]);
6848 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[583]), scm__rc.d1562[3]);
6849 scm__rc.d1562[282] = Scm_MakeExtendedPair(scm__rc.d1562[281], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[585]));
6850 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-complete->incomplete")), SCM_OBJ(&libstrstring_complete_TOincomplete__STUB), 0);
6851 libstrstring_complete_TOincomplete__STUB.common.info = scm__rc.d1562[282];
6852 scm__rc.d1562[283] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[168]))); /* :replace */
6853 scm__rc.d1562[284] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[169]))); /* :omit */
6854 scm__rc.d1562[285] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[170]))); /* :escape */
6855 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[586]), scm__rc.d1562[285]);
6856 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[587]), scm__rc.d1562[283]);
6857 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[588]), scm__rc.d1562[284]);
6858 scm__rc.d1562[286] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[171])),TRUE); /* handling */
6859 scm__rc.d1562[287] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[172])),TRUE); /* filler */
6860 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[589]), scm__rc.d1562[287]);
6861 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[590]), scm__rc.d1562[286]);
6862 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[591]), scm__rc.d1562[13]);
6863 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[592]), scm__rc.d1562[21]);
6864 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[595]), scm__rc.d1562[2]);
6865 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[596]), scm__rc.d1562[278]);
6866 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[597]), scm__rc.d1562[7]);
6867 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[598]), scm__rc.d1562[3]);
6868 scm__rc.d1562[288] = Scm_MakeExtendedPair(scm__rc.d1562[278], SCM_OBJ(&scm__rc.d1563[592]), SCM_OBJ(&scm__rc.d1563[600]));
6869 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-incomplete->complete")), SCM_OBJ(&libstrstring_incomplete_TOcomplete__STUB), 0);
6870 libstrstring_incomplete_TOcomplete__STUB.common.info = scm__rc.d1562[288];
6871 scm__rc.d1562[289] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[173])),TRUE); /* make-byte-string */
6872 scm__rc.d1562[290] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[174])),TRUE); /* size */
6873 scm__rc.d1562[291] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[175])),TRUE); /* byte */
6874 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[601]), scm__rc.d1562[291]);
6875 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[602]), scm__rc.d1562[13]);
6876 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[603]), scm__rc.d1562[290]);
6877 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[606]), scm__rc.d1562[2]);
6878 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[607]), scm__rc.d1562[289]);
6879 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[608]), scm__rc.d1562[7]);
6880 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[609]), scm__rc.d1562[3]);
6881 scm__rc.d1562[292] = Scm_MakeExtendedPair(scm__rc.d1562[289], SCM_OBJ(&scm__rc.d1563[603]), SCM_OBJ(&scm__rc.d1563[611]));
6882 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("make-byte-string")), SCM_OBJ(&libstrmake_byte_string__STUB), 0);
6883 libstrmake_byte_string__STUB.common.info = scm__rc.d1562[292];
6884 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[614]), scm__rc.d1562[2]);
6885 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[615]), scm__rc.d1562[191]);
6886 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[616]), scm__rc.d1562[7]);
6887 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[617]), scm__rc.d1562[3]);
6888 scm__rc.d1562[293] = Scm_MakeExtendedPair(scm__rc.d1562[191], SCM_OBJ(&scm__rc.d1563[125]), SCM_OBJ(&scm__rc.d1563[619]));
6889 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-byte-ref")), SCM_OBJ(&libstrstring_byte_ref__STUB), 0);
6890 libstrstring_byte_ref__STUB.common.info = scm__rc.d1562[293];
6891 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[622]), scm__rc.d1562[2]);
6892 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[623]), scm__rc.d1562[181]);
6893 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[624]), scm__rc.d1562[7]);
6894 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[625]), scm__rc.d1562[3]);
6895 scm__rc.d1562[294] = Scm_MakeExtendedPair(scm__rc.d1562[181], SCM_OBJ(&scm__rc.d1563[134]), SCM_OBJ(&scm__rc.d1563[627]));
6896 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("byte-substring")), SCM_OBJ(&libstrbyte_substring__STUB), 0);
6897 libstrbyte_substring__STUB.common.info = scm__rc.d1562[294];
6898 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6899 scm__rc.d1562[295] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[176])),TRUE); /* complete-sexp? */
6900 scm__rc.d1562[296] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[177])),TRUE); /* rec-escaped */
6901 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[628]), scm__rc.d1562[296]);
6902 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[629]), scm__rc.d1562[295]);
6903 scm__rc.d1562[297] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[178])),TRUE); /* closer */
6904 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[630]), scm__rc.d1562[297]);
6905 scm__rc.d1562[298] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[629]), SCM_OBJ(&scm__rc.d1563[630]), SCM_OBJ(&scm__rc.d1563[93]));
6906 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[631]), scm__rc.d1562[298]);
6907 {
6908 ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
6909 Scm_CharSetAddRange(cs, SCM_CHAR(0), SCM_CHAR(32));
6910 Scm_CharSetAddRange(cs, SCM_CHAR(34), SCM_CHAR(34));
6911 Scm_CharSetAddRange(cs, SCM_CHAR(39), SCM_CHAR(41));
6912 Scm_CharSetAddRange(cs, SCM_CHAR(44), SCM_CHAR(44));
6913 Scm_CharSetAddRange(cs, SCM_CHAR(59), SCM_CHAR(59));
6914 Scm_CharSetAddRange(cs, SCM_CHAR(91), SCM_CHAR(93));
6915 Scm_CharSetAddRange(cs, SCM_CHAR(96), SCM_CHAR(96));
6916 Scm_CharSetAddRange(cs, SCM_CHAR(123), SCM_CHAR(125));
6917 Scm_CharSetAddRange(cs, SCM_CHAR(127), SCM_CHAR(127));
6918 scm__rc.d1562[299] = SCM_OBJ(cs);
6919 }
6920 scm__rc.d1562[300] = Scm_MakeIdentifier(scm__rc.d1562[128], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#char-set-contains? */
6921 scm__rc.d1562[301] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[179])),TRUE); /* skip-token */
6922 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[632]), scm__rc.d1562[301]);
6923 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[633]), scm__rc.d1562[295]);
6924 scm__rc.d1562[302] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[633]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[93]));
6925 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[634]), scm__rc.d1562[302]);
6926 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]))[10] = SCM_WORD(scm__rc.d1562[299]);
6927 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]))[13] = SCM_WORD(scm__rc.d1562[300]);
6928 {
6929 ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
6930 Scm_CharSetAddRange(cs, SCM_CHAR(0), SCM_CHAR(8));
6931 Scm_CharSetAddRange(cs, SCM_CHAR(14), SCM_CHAR(31));
6932 Scm_CharSetAddRange(cs, SCM_CHAR(33), SCM_CHAR(127));
6933 Scm_CharSetAddRange(cs, SCM_CHAR(128), SCM_CHAR(16777215));
6934 scm__rc.d1562[303] = SCM_OBJ(cs);
6935 }
6936 scm__rc.d1562[305] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[181])),TRUE); /* read-block */
6937 scm__rc.d1562[304] = Scm_MakeIdentifier(scm__rc.d1562[305], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#read-block */
6938 scm__rc.d1562[306] = Scm_MakeIdentifier(scm__rc.d1562[163], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#errorf */
6939 scm__rc.d1562[307] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[182])),TRUE); /* rec */
6940 scm__rc.d1562[308] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[183])),FALSE); /* G1597 */
6941 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[635]), scm__rc.d1562[308]);
6942 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[636]), scm__rc.d1562[295]);
6943 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[637]), scm__rc.d1562[307]);
6944 scm__rc.d1562[309] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[638]), SCM_OBJ(&scm__rc.d1563[630]), SCM_OBJ(&scm__rc.d1563[93]));
6945 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[639]), scm__rc.d1562[309]);
6946 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[32]))->name = scm__rc.d1562[307];/* ((complete-sexp? G1597) rec) */
6947 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[193] = SCM_WORD(scm__rc.d1562[303]);
6948 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[196] = SCM_WORD(scm__rc.d1562[300]);
6949 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[289] = SCM_WORD(scm__rc.d1562[304]);
6950 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[291] = SCM_WORD(scm__rc.d1562[306]);
6951 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[645]), scm__rc.d1562[2]);
6952 scm__rc.d1562[310] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[636]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[646]));
6953 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[647]), scm__rc.d1562[310]);
6954 scm__rc.d1562[312] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[184])),TRUE); /* with-input-from-string */
6955 scm__rc.d1562[311] = Scm_MakeIdentifier(scm__rc.d1562[312], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#with-input-from-string */
6956 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[653]), scm__rc.d1562[2]);
6957 scm__rc.d1562[313] = Scm_MakeExtendedPair(scm__rc.d1562[295], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[654]));
6958 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[655]), scm__rc.d1562[313]);
6959 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[34]))->name = scm__rc.d1562[295];/* complete-sexp? */
6960 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1735]))[3] = SCM_WORD(scm__rc.d1562[311]);
6961 scm__rc.d1562[314] = Scm_MakeIdentifier(scm__rc.d1562[295], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#complete-sexp? */
6962 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[35]))->name = scm__rc.d1562[46];/* %toplevel */
6963 ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1740]))[5] = SCM_WORD(scm__rc.d1562[314]);
6964 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6965 #if GAUCHE_STRING_POINTER
6966 scm__rc.d1601[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[0])),TRUE); /* make-string-pointer */
6967 #endif /* GAUCHE_STRING_POINTER */
6968 #if GAUCHE_STRING_POINTER
6969 scm__rc.d1601[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[1])),TRUE); /* str */
6970 #endif /* GAUCHE_STRING_POINTER */
6971 #if GAUCHE_STRING_POINTER
6972 scm__rc.d1601[2] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1600[2]))); /* :optional */
6973 #endif /* GAUCHE_STRING_POINTER */
6974 #if GAUCHE_STRING_POINTER
6975 scm__rc.d1601[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[3])),TRUE); /* index */
6976 #endif /* GAUCHE_STRING_POINTER */
6977 #if GAUCHE_STRING_POINTER
6978 scm__rc.d1601[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[4])),TRUE); /* start */
6979 #endif /* GAUCHE_STRING_POINTER */
6980 #if GAUCHE_STRING_POINTER
6981 scm__rc.d1601[5] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[5])),TRUE); /* end */
6982 #endif /* GAUCHE_STRING_POINTER */
6983 #if GAUCHE_STRING_POINTER
6984 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[1]), scm__rc.d1601[5]);
6985 #endif /* GAUCHE_STRING_POINTER */
6986 #if GAUCHE_STRING_POINTER
6987 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[2]), scm__rc.d1601[4]);
6988 #endif /* GAUCHE_STRING_POINTER */
6989 #if GAUCHE_STRING_POINTER
6990 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[3]), scm__rc.d1601[3]);
6991 #endif /* GAUCHE_STRING_POINTER */
6992 #if GAUCHE_STRING_POINTER
6993 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[4]), scm__rc.d1601[2]);
6994 #endif /* GAUCHE_STRING_POINTER */
6995 #if GAUCHE_STRING_POINTER
6996 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[5]), scm__rc.d1601[1]);
6997 #endif /* GAUCHE_STRING_POINTER */
6998 #if GAUCHE_STRING_POINTER
6999 scm__rc.d1601[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[6])),TRUE); /* source-info */
7000 #endif /* GAUCHE_STRING_POINTER */
7001 #if GAUCHE_STRING_POINTER
7002 #endif /* GAUCHE_STRING_POINTER */
7003 #if GAUCHE_STRING_POINTER
7004 #endif /* GAUCHE_STRING_POINTER */
7005 #if GAUCHE_STRING_POINTER
7006 #endif /* GAUCHE_STRING_POINTER */
7007 #if GAUCHE_STRING_POINTER
7008 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[8]), scm__rc.d1601[6]);
7009 #endif /* GAUCHE_STRING_POINTER */
7010 #if GAUCHE_STRING_POINTER
7011 scm__rc.d1601[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[8])),TRUE); /* bind-info */
7012 #endif /* GAUCHE_STRING_POINTER */
7013 #if GAUCHE_STRING_POINTER
7014 scm__rc.d1601[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[9])),TRUE); /* gauche */
7015 #endif /* GAUCHE_STRING_POINTER */
7016 #if GAUCHE_STRING_POINTER
7017 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[9]), scm__rc.d1601[0]);
7018 #endif /* GAUCHE_STRING_POINTER */
7019 #if GAUCHE_STRING_POINTER
7020 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[10]), scm__rc.d1601[8]);
7021 #endif /* GAUCHE_STRING_POINTER */
7022 #if GAUCHE_STRING_POINTER
7023 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[11]), scm__rc.d1601[7]);
7024 #endif /* GAUCHE_STRING_POINTER */
7025 #if GAUCHE_STRING_POINTER
7026 #endif /* GAUCHE_STRING_POINTER */
7027 #if GAUCHE_STRING_POINTER
7028 #endif /* GAUCHE_STRING_POINTER */
7029 #if GAUCHE_STRING_POINTER
7030 scm__rc.d1601[9] = Scm_MakeExtendedPair(scm__rc.d1601[0], SCM_OBJ(&scm__rc.d1602[5]), SCM_OBJ(&scm__rc.d1602[13]));
7031 #endif /* GAUCHE_STRING_POINTER */
7032 #if GAUCHE_STRING_POINTER
7033 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("make-string-pointer")), SCM_OBJ(&libstrmake_string_pointer__STUB), 0);
7034 libstrmake_string_pointer__STUB.common.info = scm__rc.d1601[9];
7035 #endif /* GAUCHE_STRING_POINTER */
7036 #if GAUCHE_STRING_POINTER
7037 scm__rc.d1601[10] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[10])),TRUE); /* string-pointer? */
7038 #endif /* GAUCHE_STRING_POINTER */
7039 #if GAUCHE_STRING_POINTER
7040 scm__rc.d1601[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[11])),TRUE); /* obj */
7041 #endif /* GAUCHE_STRING_POINTER */
7042 #if GAUCHE_STRING_POINTER
7043 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[14]), scm__rc.d1601[11]);
7044 #endif /* GAUCHE_STRING_POINTER */
7045 #if GAUCHE_STRING_POINTER
7046 #endif /* GAUCHE_STRING_POINTER */
7047 #if GAUCHE_STRING_POINTER
7048 #endif /* GAUCHE_STRING_POINTER */
7049 #if GAUCHE_STRING_POINTER
7050 #endif /* GAUCHE_STRING_POINTER */
7051 #if GAUCHE_STRING_POINTER
7052 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[17]), scm__rc.d1601[6]);
7053 #endif /* GAUCHE_STRING_POINTER */
7054 #if GAUCHE_STRING_POINTER
7055 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[18]), scm__rc.d1601[10]);
7056 #endif /* GAUCHE_STRING_POINTER */
7057 #if GAUCHE_STRING_POINTER
7058 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[19]), scm__rc.d1601[8]);
7059 #endif /* GAUCHE_STRING_POINTER */
7060 #if GAUCHE_STRING_POINTER
7061 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[20]), scm__rc.d1601[7]);
7062 #endif /* GAUCHE_STRING_POINTER */
7063 #if GAUCHE_STRING_POINTER
7064 #endif /* GAUCHE_STRING_POINTER */
7065 #if GAUCHE_STRING_POINTER
7066 #endif /* GAUCHE_STRING_POINTER */
7067 #if GAUCHE_STRING_POINTER
7068 scm__rc.d1601[12] = Scm_MakeExtendedPair(scm__rc.d1601[10], SCM_OBJ(&scm__rc.d1602[14]), SCM_OBJ(&scm__rc.d1602[22]));
7069 #endif /* GAUCHE_STRING_POINTER */
7070 #if GAUCHE_STRING_POINTER
7071 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer?")), SCM_OBJ(&libstrstring_pointerP__STUB), 0);
7072 libstrstring_pointerP__STUB.common.info = scm__rc.d1601[12];
7073 #endif /* GAUCHE_STRING_POINTER */
7074 #if GAUCHE_STRING_POINTER
7075 scm__rc.d1601[13] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[12])),TRUE); /* string-pointer-ref */
7076 #endif /* GAUCHE_STRING_POINTER */
7077 #if GAUCHE_STRING_POINTER
7078 scm__rc.d1601[14] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[13])),TRUE); /* sp */
7079 #endif /* GAUCHE_STRING_POINTER */
7080 #if GAUCHE_STRING_POINTER
7081 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[23]), scm__rc.d1601[14]);
7082 #endif /* GAUCHE_STRING_POINTER */
7083 #if GAUCHE_STRING_POINTER
7084 #endif /* GAUCHE_STRING_POINTER */
7085 #if GAUCHE_STRING_POINTER
7086 #endif /* GAUCHE_STRING_POINTER */
7087 #if GAUCHE_STRING_POINTER
7088 #endif /* GAUCHE_STRING_POINTER */
7089 #if GAUCHE_STRING_POINTER
7090 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[26]), scm__rc.d1601[6]);
7091 #endif /* GAUCHE_STRING_POINTER */
7092 #if GAUCHE_STRING_POINTER
7093 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[27]), scm__rc.d1601[13]);
7094 #endif /* GAUCHE_STRING_POINTER */
7095 #if GAUCHE_STRING_POINTER
7096 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[28]), scm__rc.d1601[8]);
7097 #endif /* GAUCHE_STRING_POINTER */
7098 #if GAUCHE_STRING_POINTER
7099 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[29]), scm__rc.d1601[7]);
7100 #endif /* GAUCHE_STRING_POINTER */
7101 #if GAUCHE_STRING_POINTER
7102 #endif /* GAUCHE_STRING_POINTER */
7103 #if GAUCHE_STRING_POINTER
7104 #endif /* GAUCHE_STRING_POINTER */
7105 #if GAUCHE_STRING_POINTER
7106 scm__rc.d1601[15] = Scm_MakeExtendedPair(scm__rc.d1601[13], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[31]));
7107 #endif /* GAUCHE_STRING_POINTER */
7108 #if GAUCHE_STRING_POINTER
7109 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-ref")), SCM_OBJ(&libstrstring_pointer_ref__STUB), 0);
7110 libstrstring_pointer_ref__STUB.common.info = scm__rc.d1601[15];
7111 #endif /* GAUCHE_STRING_POINTER */
7112 #if GAUCHE_STRING_POINTER
7113 scm__rc.d1601[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[14])),TRUE); /* string-pointer-next! */
7114 #endif /* GAUCHE_STRING_POINTER */
7115 #if GAUCHE_STRING_POINTER
7116 #endif /* GAUCHE_STRING_POINTER */
7117 #if GAUCHE_STRING_POINTER
7118 #endif /* GAUCHE_STRING_POINTER */
7119 #if GAUCHE_STRING_POINTER
7120 #endif /* GAUCHE_STRING_POINTER */
7121 #if GAUCHE_STRING_POINTER
7122 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[34]), scm__rc.d1601[6]);
7123 #endif /* GAUCHE_STRING_POINTER */
7124 #if GAUCHE_STRING_POINTER
7125 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[35]), scm__rc.d1601[16]);
7126 #endif /* GAUCHE_STRING_POINTER */
7127 #if GAUCHE_STRING_POINTER
7128 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[36]), scm__rc.d1601[8]);
7129 #endif /* GAUCHE_STRING_POINTER */
7130 #if GAUCHE_STRING_POINTER
7131 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[37]), scm__rc.d1601[7]);
7132 #endif /* GAUCHE_STRING_POINTER */
7133 #if GAUCHE_STRING_POINTER
7134 #endif /* GAUCHE_STRING_POINTER */
7135 #if GAUCHE_STRING_POINTER
7136 #endif /* GAUCHE_STRING_POINTER */
7137 #if GAUCHE_STRING_POINTER
7138 scm__rc.d1601[17] = Scm_MakeExtendedPair(scm__rc.d1601[16], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[39]));
7139 #endif /* GAUCHE_STRING_POINTER */
7140 #if GAUCHE_STRING_POINTER
7141 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-next!")), SCM_OBJ(&libstrstring_pointer_nextX__STUB), 0);
7142 libstrstring_pointer_nextX__STUB.common.info = scm__rc.d1601[17];
7143 #endif /* GAUCHE_STRING_POINTER */
7144 #if GAUCHE_STRING_POINTER
7145 scm__rc.d1601[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[15])),TRUE); /* string-pointer-prev! */
7146 #endif /* GAUCHE_STRING_POINTER */
7147 #if GAUCHE_STRING_POINTER
7148 #endif /* GAUCHE_STRING_POINTER */
7149 #if GAUCHE_STRING_POINTER
7150 #endif /* GAUCHE_STRING_POINTER */
7151 #if GAUCHE_STRING_POINTER
7152 #endif /* GAUCHE_STRING_POINTER */
7153 #if GAUCHE_STRING_POINTER
7154 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[42]), scm__rc.d1601[6]);
7155 #endif /* GAUCHE_STRING_POINTER */
7156 #if GAUCHE_STRING_POINTER
7157 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[43]), scm__rc.d1601[18]);
7158 #endif /* GAUCHE_STRING_POINTER */
7159 #if GAUCHE_STRING_POINTER
7160 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[44]), scm__rc.d1601[8]);
7161 #endif /* GAUCHE_STRING_POINTER */
7162 #if GAUCHE_STRING_POINTER
7163 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[45]), scm__rc.d1601[7]);
7164 #endif /* GAUCHE_STRING_POINTER */
7165 #if GAUCHE_STRING_POINTER
7166 #endif /* GAUCHE_STRING_POINTER */
7167 #if GAUCHE_STRING_POINTER
7168 #endif /* GAUCHE_STRING_POINTER */
7169 #if GAUCHE_STRING_POINTER
7170 scm__rc.d1601[19] = Scm_MakeExtendedPair(scm__rc.d1601[18], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[47]));
7171 #endif /* GAUCHE_STRING_POINTER */
7172 #if GAUCHE_STRING_POINTER
7173 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-prev!")), SCM_OBJ(&libstrstring_pointer_prevX__STUB), 0);
7174 libstrstring_pointer_prevX__STUB.common.info = scm__rc.d1601[19];
7175 #endif /* GAUCHE_STRING_POINTER */
7176 #if GAUCHE_STRING_POINTER
7177 scm__rc.d1601[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[16])),TRUE); /* string-pointer-set! */
7178 #endif /* GAUCHE_STRING_POINTER */
7179 #if GAUCHE_STRING_POINTER
7180 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[48]), scm__rc.d1601[3]);
7181 #endif /* GAUCHE_STRING_POINTER */
7182 #if GAUCHE_STRING_POINTER
7183 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[49]), scm__rc.d1601[14]);
7184 #endif /* GAUCHE_STRING_POINTER */
7185 #if GAUCHE_STRING_POINTER
7186 #endif /* GAUCHE_STRING_POINTER */
7187 #if GAUCHE_STRING_POINTER
7188 #endif /* GAUCHE_STRING_POINTER */
7189 #if GAUCHE_STRING_POINTER
7190 #endif /* GAUCHE_STRING_POINTER */
7191 #if GAUCHE_STRING_POINTER
7192 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[52]), scm__rc.d1601[6]);
7193 #endif /* GAUCHE_STRING_POINTER */
7194 #if GAUCHE_STRING_POINTER
7195 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[53]), scm__rc.d1601[20]);
7196 #endif /* GAUCHE_STRING_POINTER */
7197 #if GAUCHE_STRING_POINTER
7198 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[54]), scm__rc.d1601[8]);
7199 #endif /* GAUCHE_STRING_POINTER */
7200 #if GAUCHE_STRING_POINTER
7201 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[55]), scm__rc.d1601[7]);
7202 #endif /* GAUCHE_STRING_POINTER */
7203 #if GAUCHE_STRING_POINTER
7204 #endif /* GAUCHE_STRING_POINTER */
7205 #if GAUCHE_STRING_POINTER
7206 #endif /* GAUCHE_STRING_POINTER */
7207 #if GAUCHE_STRING_POINTER
7208 scm__rc.d1601[21] = Scm_MakeExtendedPair(scm__rc.d1601[20], SCM_OBJ(&scm__rc.d1602[49]), SCM_OBJ(&scm__rc.d1602[57]));
7209 #endif /* GAUCHE_STRING_POINTER */
7210 #if GAUCHE_STRING_POINTER
7211 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-set!")), SCM_OBJ(&libstrstring_pointer_setX__STUB), 0);
7212 libstrstring_pointer_setX__STUB.common.info = scm__rc.d1601[21];
7213 #endif /* GAUCHE_STRING_POINTER */
7214 #if GAUCHE_STRING_POINTER
7215 scm__rc.d1601[22] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1600[17]))); /* :after */
7216 #endif /* GAUCHE_STRING_POINTER */
7217 #if GAUCHE_STRING_POINTER
7218 scm__rc.d1601[23] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[18])),TRUE); /* string-pointer-substring */
7219 #endif /* GAUCHE_STRING_POINTER */
7220 #if GAUCHE_STRING_POINTER
7221 #endif /* GAUCHE_STRING_POINTER */
7222 #if GAUCHE_STRING_POINTER
7223 #endif /* GAUCHE_STRING_POINTER */
7224 #if GAUCHE_STRING_POINTER
7225 #endif /* GAUCHE_STRING_POINTER */
7226 #if GAUCHE_STRING_POINTER
7227 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[60]), scm__rc.d1601[6]);
7228 #endif /* GAUCHE_STRING_POINTER */
7229 #if GAUCHE_STRING_POINTER
7230 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[61]), scm__rc.d1601[23]);
7231 #endif /* GAUCHE_STRING_POINTER */
7232 #if GAUCHE_STRING_POINTER
7233 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[62]), scm__rc.d1601[8]);
7234 #endif /* GAUCHE_STRING_POINTER */
7235 #if GAUCHE_STRING_POINTER
7236 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[63]), scm__rc.d1601[7]);
7237 #endif /* GAUCHE_STRING_POINTER */
7238 #if GAUCHE_STRING_POINTER
7239 #endif /* GAUCHE_STRING_POINTER */
7240 #if GAUCHE_STRING_POINTER
7241 #endif /* GAUCHE_STRING_POINTER */
7242 #if GAUCHE_STRING_POINTER
7243 scm__rc.d1601[24] = Scm_MakeExtendedPair(scm__rc.d1601[23], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[65]));
7244 #endif /* GAUCHE_STRING_POINTER */
7245 #if GAUCHE_STRING_POINTER
7246 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-substring")), SCM_OBJ(&libstrstring_pointer_substring__STUB), 0);
7247 libstrstring_pointer_substring__STUB.common.info = scm__rc.d1601[24];
7248 #endif /* GAUCHE_STRING_POINTER */
7249 #if GAUCHE_STRING_POINTER
7250 scm__rc.d1601[25] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[19])),TRUE); /* string-pointer-index */
7251 #endif /* GAUCHE_STRING_POINTER */
7252 #if GAUCHE_STRING_POINTER
7253 #endif /* GAUCHE_STRING_POINTER */
7254 #if GAUCHE_STRING_POINTER
7255 #endif /* GAUCHE_STRING_POINTER */
7256 #if GAUCHE_STRING_POINTER
7257 #endif /* GAUCHE_STRING_POINTER */
7258 #if GAUCHE_STRING_POINTER
7259 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[68]), scm__rc.d1601[6]);
7260 #endif /* GAUCHE_STRING_POINTER */
7261 #if GAUCHE_STRING_POINTER
7262 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[69]), scm__rc.d1601[25]);
7263 #endif /* GAUCHE_STRING_POINTER */
7264 #if GAUCHE_STRING_POINTER
7265 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[70]), scm__rc.d1601[8]);
7266 #endif /* GAUCHE_STRING_POINTER */
7267 #if GAUCHE_STRING_POINTER
7268 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[71]), scm__rc.d1601[7]);
7269 #endif /* GAUCHE_STRING_POINTER */
7270 #if GAUCHE_STRING_POINTER
7271 #endif /* GAUCHE_STRING_POINTER */
7272 #if GAUCHE_STRING_POINTER
7273 #endif /* GAUCHE_STRING_POINTER */
7274 #if GAUCHE_STRING_POINTER
7275 scm__rc.d1601[26] = Scm_MakeExtendedPair(scm__rc.d1601[25], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[73]));
7276 #endif /* GAUCHE_STRING_POINTER */
7277 #if GAUCHE_STRING_POINTER
7278 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-index")), SCM_OBJ(&libstrstring_pointer_index__STUB), 0);
7279 libstrstring_pointer_index__STUB.common.info = scm__rc.d1601[26];
7280 #endif /* GAUCHE_STRING_POINTER */
7281 #if GAUCHE_STRING_POINTER
7282 scm__rc.d1601[27] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[20])),TRUE); /* string-pointer-copy */
7283 #endif /* GAUCHE_STRING_POINTER */
7284 #if GAUCHE_STRING_POINTER
7285 #endif /* GAUCHE_STRING_POINTER */
7286 #if GAUCHE_STRING_POINTER
7287 #endif /* GAUCHE_STRING_POINTER */
7288 #if GAUCHE_STRING_POINTER
7289 #endif /* GAUCHE_STRING_POINTER */
7290 #if GAUCHE_STRING_POINTER
7291 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[76]), scm__rc.d1601[6]);
7292 #endif /* GAUCHE_STRING_POINTER */
7293 #if GAUCHE_STRING_POINTER
7294 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[77]), scm__rc.d1601[27]);
7295 #endif /* GAUCHE_STRING_POINTER */
7296 #if GAUCHE_STRING_POINTER
7297 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[78]), scm__rc.d1601[8]);
7298 #endif /* GAUCHE_STRING_POINTER */
7299 #if GAUCHE_STRING_POINTER
7300 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[79]), scm__rc.d1601[7]);
7301 #endif /* GAUCHE_STRING_POINTER */
7302 #if GAUCHE_STRING_POINTER
7303 #endif /* GAUCHE_STRING_POINTER */
7304 #if GAUCHE_STRING_POINTER
7305 #endif /* GAUCHE_STRING_POINTER */
7306 #if GAUCHE_STRING_POINTER
7307 scm__rc.d1601[28] = Scm_MakeExtendedPair(scm__rc.d1601[27], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[81]));
7308 #endif /* GAUCHE_STRING_POINTER */
7309 #if GAUCHE_STRING_POINTER
7310 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-copy")), SCM_OBJ(&libstrstring_pointer_copy__STUB), 0);
7311 libstrstring_pointer_copy__STUB.common.info = scm__rc.d1601[28];
7312 #endif /* GAUCHE_STRING_POINTER */
7313 #if GAUCHE_STRING_POINTER
7314 scm__rc.d1601[29] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[21])),TRUE); /* string-pointer-byte-index */
7315 #endif /* GAUCHE_STRING_POINTER */
7316 #if GAUCHE_STRING_POINTER
7317 #endif /* GAUCHE_STRING_POINTER */
7318 #if GAUCHE_STRING_POINTER
7319 #endif /* GAUCHE_STRING_POINTER */
7320 #if GAUCHE_STRING_POINTER
7321 #endif /* GAUCHE_STRING_POINTER */
7322 #if GAUCHE_STRING_POINTER
7323 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[84]), scm__rc.d1601[6]);
7324 #endif /* GAUCHE_STRING_POINTER */
7325 #if GAUCHE_STRING_POINTER
7326 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[85]), scm__rc.d1601[29]);
7327 #endif /* GAUCHE_STRING_POINTER */
7328 #if GAUCHE_STRING_POINTER
7329 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[86]), scm__rc.d1601[8]);
7330 #endif /* GAUCHE_STRING_POINTER */
7331 #if GAUCHE_STRING_POINTER
7332 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[87]), scm__rc.d1601[7]);
7333 #endif /* GAUCHE_STRING_POINTER */
7334 #if GAUCHE_STRING_POINTER
7335 #endif /* GAUCHE_STRING_POINTER */
7336 #if GAUCHE_STRING_POINTER
7337 #endif /* GAUCHE_STRING_POINTER */
7338 #if GAUCHE_STRING_POINTER
7339 scm__rc.d1601[30] = Scm_MakeExtendedPair(scm__rc.d1601[29], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[89]));
7340 #endif /* GAUCHE_STRING_POINTER */
7341 #if GAUCHE_STRING_POINTER
7342 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-byte-index")), SCM_OBJ(&libstrstring_pointer_byte_index__STUB), 0);
7343 libstrstring_pointer_byte_index__STUB.common.info = scm__rc.d1601[30];
7344 #endif /* GAUCHE_STRING_POINTER */
7345 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
7346 #if GAUCHE_STRING_POINTER
7347 scm__rc.d1601[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[22])),TRUE); /* %string-pointer-dump */
7348 #endif /* GAUCHE_STRING_POINTER */
7349 #if GAUCHE_STRING_POINTER
7350 #endif /* GAUCHE_STRING_POINTER */
7351 #if GAUCHE_STRING_POINTER
7352 #endif /* GAUCHE_STRING_POINTER */
7353 #if GAUCHE_STRING_POINTER
7354 #endif /* GAUCHE_STRING_POINTER */
7355 #if GAUCHE_STRING_POINTER
7356 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[92]), scm__rc.d1601[6]);
7357 #endif /* GAUCHE_STRING_POINTER */
7358 #if GAUCHE_STRING_POINTER
7359 scm__rc.d1601[32] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[23])),TRUE); /* gauche.internal */
7360 #endif /* GAUCHE_STRING_POINTER */
7361 #if GAUCHE_STRING_POINTER
7362 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[93]), scm__rc.d1601[31]);
7363 #endif /* GAUCHE_STRING_POINTER */
7364 #if GAUCHE_STRING_POINTER
7365 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[94]), scm__rc.d1601[32]);
7366 #endif /* GAUCHE_STRING_POINTER */
7367 #if GAUCHE_STRING_POINTER
7368 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[95]), scm__rc.d1601[7]);
7369 #endif /* GAUCHE_STRING_POINTER */
7370 #if GAUCHE_STRING_POINTER
7371 #endif /* GAUCHE_STRING_POINTER */
7372 #if GAUCHE_STRING_POINTER
7373 #endif /* GAUCHE_STRING_POINTER */
7374 #if GAUCHE_STRING_POINTER
7375 scm__rc.d1601[33] = Scm_MakeExtendedPair(scm__rc.d1601[31], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[97]));
7376 #endif /* GAUCHE_STRING_POINTER */
7377 #if GAUCHE_STRING_POINTER
7378 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%string-pointer-dump")), SCM_OBJ(&libstr_25string_pointer_dump__STUB), 0);
7379 libstr_25string_pointer_dump__STUB.common.info = scm__rc.d1601[33];
7380 #endif /* GAUCHE_STRING_POINTER */
7381 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
7382 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[658]), scm__rc.d1562[2]);
7383 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[659]), scm__rc.d1562[239]);
7384 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[660]), scm__rc.d1562[7]);
7385 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[661]), scm__rc.d1562[3]);
7386 scm__rc.d1562[315] = Scm_MakeExtendedPair(scm__rc.d1562[239], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[663]));
7387 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor?")), SCM_OBJ(&libstrstring_cursorP__STUB), 0);
7388 libstrstring_cursorP__STUB.common.info = scm__rc.d1562[315];
7389 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[666]), scm__rc.d1562[2]);
7390 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[667]), scm__rc.d1562[140]);
7391 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[668]), scm__rc.d1562[7]);
7392 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[669]), scm__rc.d1562[3]);
7393 scm__rc.d1562[316] = Scm_MakeExtendedPair(scm__rc.d1562[140], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[671]));
7394 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-start")), SCM_OBJ(&libstrstring_cursor_start__STUB), 0);
7395 libstrstring_cursor_start__STUB.common.info = scm__rc.d1562[316];
7396 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[674]), scm__rc.d1562[2]);
7397 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[675]), scm__rc.d1562[142]);
7398 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[676]), scm__rc.d1562[7]);
7399 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[677]), scm__rc.d1562[3]);
7400 scm__rc.d1562[317] = Scm_MakeExtendedPair(scm__rc.d1562[142], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[679]));
7401 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-end")), SCM_OBJ(&libstrstring_cursor_end__STUB), 0);
7402 libstrstring_cursor_end__STUB.common.info = scm__rc.d1562[317];
7403 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[680]), scm__rc.d1562[72]);
7404 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[681]), scm__rc.d1562[99]);
7405 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[684]), scm__rc.d1562[2]);
7406 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[685]), scm__rc.d1562[148]);
7407 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[686]), scm__rc.d1562[7]);
7408 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[687]), scm__rc.d1562[3]);
7409 scm__rc.d1562[318] = Scm_MakeExtendedPair(scm__rc.d1562[148], SCM_OBJ(&scm__rc.d1563[681]), SCM_OBJ(&scm__rc.d1563[689]));
7410 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-next")), SCM_OBJ(&libstrstring_cursor_next__STUB), 0);
7411 libstrstring_cursor_next__STUB.common.info = scm__rc.d1562[318];
7412 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[692]), scm__rc.d1562[2]);
7413 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[693]), scm__rc.d1562[254]);
7414 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[694]), scm__rc.d1562[7]);
7415 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[695]), scm__rc.d1562[3]);
7416 scm__rc.d1562[319] = Scm_MakeExtendedPair(scm__rc.d1562[254], SCM_OBJ(&scm__rc.d1563[681]), SCM_OBJ(&scm__rc.d1563[697]));
7417 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-prev")), SCM_OBJ(&libstrstring_cursor_prev__STUB), 0);
7418 libstrstring_cursor_prev__STUB.common.info = scm__rc.d1562[319];
7419 scm__rc.d1562[320] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[185])),TRUE); /* string-cursor-forward */
7420 scm__rc.d1562[321] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[186])),TRUE); /* nchars */
7421 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[698]), scm__rc.d1562[321]);
7422 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[699]), scm__rc.d1562[72]);
7423 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[700]), scm__rc.d1562[99]);
7424 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[703]), scm__rc.d1562[2]);
7425 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[704]), scm__rc.d1562[320]);
7426 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[705]), scm__rc.d1562[7]);
7427 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[706]), scm__rc.d1562[3]);
7428 scm__rc.d1562[322] = Scm_MakeExtendedPair(scm__rc.d1562[320], SCM_OBJ(&scm__rc.d1563[700]), SCM_OBJ(&scm__rc.d1563[708]));
7429 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-forward")), SCM_OBJ(&libstrstring_cursor_forward__STUB), 0);
7430 libstrstring_cursor_forward__STUB.common.info = scm__rc.d1562[322];
7431 scm__rc.d1562[323] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[187])),TRUE); /* string-cursor-back */
7432 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[711]), scm__rc.d1562[2]);
7433 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[712]), scm__rc.d1562[323]);
7434 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[713]), scm__rc.d1562[7]);
7435 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[714]), scm__rc.d1562[3]);
7436 scm__rc.d1562[324] = Scm_MakeExtendedPair(scm__rc.d1562[323], SCM_OBJ(&scm__rc.d1563[700]), SCM_OBJ(&scm__rc.d1563[716]));
7437 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-back")), SCM_OBJ(&libstrstring_cursor_back__STUB), 0);
7438 libstrstring_cursor_back__STUB.common.info = scm__rc.d1562[324];
7439 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[717]), scm__rc.d1562[73]);
7440 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[718]), scm__rc.d1562[99]);
7441 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[721]), scm__rc.d1562[2]);
7442 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[722]), scm__rc.d1562[165]);
7443 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[723]), scm__rc.d1562[7]);
7444 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[724]), scm__rc.d1562[3]);
7445 scm__rc.d1562[325] = Scm_MakeExtendedPair(scm__rc.d1562[165], SCM_OBJ(&scm__rc.d1563[718]), SCM_OBJ(&scm__rc.d1563[726]));
7446 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-index->cursor")), SCM_OBJ(&libstrstring_index_TOcursor__STUB), 0);
7447 libstrstring_index_TOcursor__STUB.common.info = scm__rc.d1562[325];
7448 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[729]), scm__rc.d1562[2]);
7449 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[730]), scm__rc.d1562[196]);
7450 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[731]), scm__rc.d1562[7]);
7451 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[732]), scm__rc.d1562[3]);
7452 scm__rc.d1562[326] = Scm_MakeExtendedPair(scm__rc.d1562[196], SCM_OBJ(&scm__rc.d1563[681]), SCM_OBJ(&scm__rc.d1563[734]));
7453 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor->index")), SCM_OBJ(&libstrstring_cursor_TOindex__STUB), 0);
7454 libstrstring_cursor_TOindex__STUB.common.info = scm__rc.d1562[326];
7455 scm__rc.d1562[327] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[188])),TRUE); /* cursor1 */
7456 scm__rc.d1562[328] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[189])),TRUE); /* cursor2 */
7457 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[735]), scm__rc.d1562[328]);
7458 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[736]), scm__rc.d1562[327]);
7459 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[739]), scm__rc.d1562[2]);
7460 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[740]), scm__rc.d1562[144]);
7461 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[741]), scm__rc.d1562[7]);
7462 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[742]), scm__rc.d1562[3]);
7463 scm__rc.d1562[329] = Scm_MakeExtendedPair(scm__rc.d1562[144], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[744]));
7464 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor=?")), SCM_OBJ(&libstrstring_cursor_3dP__STUB), 0);
7465 libstrstring_cursor_3dP__STUB.common.info = scm__rc.d1562[329];
7466 scm__rc.d1562[330] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[190])),TRUE); /* string-cursor<? */
7467 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[747]), scm__rc.d1562[2]);
7468 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[748]), scm__rc.d1562[330]);
7469 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[749]), scm__rc.d1562[7]);
7470 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[750]), scm__rc.d1562[3]);
7471 scm__rc.d1562[331] = Scm_MakeExtendedPair(scm__rc.d1562[330], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[752]));
7472 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor<?")), SCM_OBJ(&libstrstring_cursor_LTP__STUB), 0);
7473 libstrstring_cursor_LTP__STUB.common.info = scm__rc.d1562[331];
7474 scm__rc.d1562[332] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[191])),TRUE); /* string-cursor>? */
7475 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[755]), scm__rc.d1562[2]);
7476 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[756]), scm__rc.d1562[332]);
7477 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[757]), scm__rc.d1562[7]);
7478 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[758]), scm__rc.d1562[3]);
7479 scm__rc.d1562[333] = Scm_MakeExtendedPair(scm__rc.d1562[332], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[760]));
7480 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor>?")), SCM_OBJ(&libstrstring_cursor_GTP__STUB), 0);
7481 libstrstring_cursor_GTP__STUB.common.info = scm__rc.d1562[333];
7482 scm__rc.d1562[334] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[192])),TRUE); /* string-cursor<=? */
7483 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[763]), scm__rc.d1562[2]);
7484 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[764]), scm__rc.d1562[334]);
7485 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[765]), scm__rc.d1562[7]);
7486 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[766]), scm__rc.d1562[3]);
7487 scm__rc.d1562[335] = Scm_MakeExtendedPair(scm__rc.d1562[334], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[768]));
7488 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor<=?")), SCM_OBJ(&libstrstring_cursor_LT_3dP__STUB), 0);
7489 libstrstring_cursor_LT_3dP__STUB.common.info = scm__rc.d1562[335];
7490 scm__rc.d1562[336] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[193])),TRUE); /* string-cursor>=? */
7491 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[771]), scm__rc.d1562[2]);
7492 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[772]), scm__rc.d1562[336]);
7493 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[773]), scm__rc.d1562[7]);
7494 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[774]), scm__rc.d1562[3]);
7495 scm__rc.d1562[337] = Scm_MakeExtendedPair(scm__rc.d1562[336], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[776]));
7496 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor>=?")), SCM_OBJ(&libstrstring_cursor_GT_3dP__STUB), 0);
7497 libstrstring_cursor_GT_3dP__STUB.common.info = scm__rc.d1562[337];
7498 scm__rc.d1562[338] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[194])),TRUE); /* string-cursor-diff */
7499 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[777]), scm__rc.d1562[99]);
7500 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[780]), scm__rc.d1562[2]);
7501 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[781]), scm__rc.d1562[338]);
7502 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[782]), scm__rc.d1562[7]);
7503 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[783]), scm__rc.d1562[3]);
7504 scm__rc.d1562[339] = Scm_MakeExtendedPair(scm__rc.d1562[338], SCM_OBJ(&scm__rc.d1563[777]), SCM_OBJ(&scm__rc.d1563[785]));
7505 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-diff")), SCM_OBJ(&libstrstring_cursor_diff__STUB), 0);
7506 libstrstring_cursor_diff__STUB.common.info = scm__rc.d1562[339];
7507 Scm_VMExecuteToplevels(toplevels);
7508 }
7509