/* Generated automatically from libstr.scm. DO NOT EDIT */ #define LIBGAUCHE_BODY #include #include #line 37 "libstr.scm" #include #include #include static ScmObj libstrstringP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstringP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstringP, SCM_MAKE_INT(SCM_VM_STRINGP), NULL); static ScmObj libstrstring_incompleteP(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_incompleteP__STUB, 1, 0,SCM_FALSE,libstrstring_incompleteP, NULL, NULL); static ScmObj libstrstring_immutableP(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_immutableP__STUB, 1, 0,SCM_FALSE,libstrstring_immutableP, NULL, NULL); static ScmObj libstrmake_string(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrmake_string__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrmake_string, NULL, NULL); static ScmObj libstrstring(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring, NULL, NULL); static ScmObj libstrstring_copy(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_copy__STUB, 1, 3,SCM_FALSE,libstrstring_copy, NULL, NULL); static ScmObj libstrstring_append(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_append__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_append, NULL, NULL); static ScmObj libstrstring_copy_immutable(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_copy_immutable__STUB, 1, 3,SCM_FALSE,libstrstring_copy_immutable, NULL, NULL); static ScmObj libstrstring_join(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_join__STUB, 1, 3,SCM_FALSE,libstrstring_join, NULL, NULL); static ScmObj libstrstring_TOlist(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_TOlist__STUB, 1, 3,SCM_FALSE,libstrstring_TOlist, NULL, NULL); static ScmObj libstrlist_TOstring(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrlist_TOstring__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrlist_TOstring, NULL, NULL); static ScmObj libstrstring_length(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_length__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_length, NULL, NULL); static ScmObj libstrstring_ref(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_ref__STUB, 2, 2,1, SCM_FALSE,0, libstrstring_ref, NULL, NULL); static ScmObj libstrsubstring(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrsubstring__STUB, 3, 0,SCM_FALSE,libstrsubstring, NULL, NULL); static ScmObj libstrstring_size(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_size__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_size, NULL, NULL); static ScmObj libstr_25maybe_substring(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstr_25maybe_substring__STUB, 1, 3,SCM_FALSE,libstr_25maybe_substring, NULL, NULL); static ScmObj libstr_25hash_string(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstr_25hash_string__STUB, 1, 2,SCM_FALSE,libstr_25hash_string, NULL, NULL); static ScmObj libstrstring_scan(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_scan__STUB, 2, 2,SCM_FALSE,libstrstring_scan, NULL, NULL); static ScmObj libstrstring_scan_right(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_scan_right__STUB, 2, 2,SCM_FALSE,libstrstring_scan_right, NULL, NULL); static ScmObj libstr_25string_split_by_char(ScmObj*, int, void*); 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); static ScmObj libstr_25string_replace_bodyX(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstr_25string_replace_bodyX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstr_25string_replace_bodyX, NULL, NULL); static ScmObj libstrstring_build_indexX(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_build_indexX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_build_indexX, NULL, NULL); static ScmObj libstrstring_fast_indexableP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_fast_indexableP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_fast_indexableP, NULL, NULL); static ScmObj libstr_25string_index_dump(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstr_25string_index_dump__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstr_25string_index_dump, NULL, NULL); static ScmObj libstrstring_3dP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_3dP, NULL, NULL); static ScmObj libstrstring_LTP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_LTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_LTP, NULL, NULL); static ScmObj libstrstring_GTP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_GTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_GTP, NULL, NULL); static ScmObj libstrstring_LT_3dP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_LT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_LT_3dP, NULL, NULL); static ScmObj libstrstring_GT_3dP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_GT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_GT_3dP, NULL, NULL); static ScmObj libstrstring_ci_3dP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_ci_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_3dP, NULL, NULL); static ScmObj libstrstring_ci_LTP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_ci_LTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_LTP, NULL, NULL); static ScmObj libstrstring_ci_GTP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_ci_GTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_GTP, NULL, NULL); static ScmObj libstrstring_ci_LT_3dP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_ci_LT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_LT_3dP, NULL, NULL); static ScmObj libstrstring_ci_GT_3dP(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_ci_GT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_GT_3dP, NULL, NULL); static ScmObj libstrstring_complete_TOincomplete(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_complete_TOincomplete__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_complete_TOincomplete, NULL, NULL); static ScmObj libstrstring_incomplete_TOcomplete(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_incomplete_TOcomplete__STUB, 1, 3,SCM_FALSE,libstrstring_incomplete_TOcomplete, NULL, NULL); static ScmObj libstrmake_byte_string(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrmake_byte_string__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrmake_byte_string, NULL, NULL); static ScmObj libstrstring_byte_ref(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_byte_ref__STUB, 2, 2,SCM_FALSE,libstrstring_byte_ref, NULL, NULL); static ScmObj libstrbyte_substring(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrbyte_substring__STUB, 3, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrbyte_substring, NULL, NULL); #if GAUCHE_STRING_POINTER static ScmObj libstrmake_string_pointer(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrmake_string_pointer__STUB, 1, 4,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrmake_string_pointer, NULL, NULL); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointerP(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_pointerP__STUB, 1, 0,SCM_FALSE,libstrstring_pointerP, NULL, NULL); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_ref(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_pointer_ref__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_ref, NULL, NULL); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_nextX(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_pointer_nextX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_nextX, NULL, NULL); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_prevX(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_pointer_prevX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_prevX, NULL, NULL); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_setX(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_pointer_setX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_setX, NULL, NULL); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_substring(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_pointer_substring__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_substring, NULL, NULL); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_index(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_pointer_index__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_index, NULL, NULL); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_copy(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_pointer_copy__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_copy, NULL, NULL); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_byte_index(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_pointer_byte_index__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_byte_index, NULL, NULL); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstr_25string_pointer_dump(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstr_25string_pointer_dump__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstr_25string_pointer_dump, NULL, NULL); #endif /* GAUCHE_STRING_POINTER */ static ScmObj libstrstring_cursorP(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursorP__STUB, 1, 0,SCM_FALSE,libstrstring_cursorP, NULL, NULL); static ScmObj libstrstring_cursor_start(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_cursor_start__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_cursor_start, NULL, NULL); static ScmObj libstrstring_cursor_end(ScmObj*, int, void*); static SCM_DEFINE_SUBRX(libstrstring_cursor_end__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_cursor_end, NULL, NULL); static ScmObj libstrstring_cursor_next(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursor_next__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_next, NULL, NULL); static ScmObj libstrstring_cursor_prev(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursor_prev__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_prev, NULL, NULL); static ScmObj libstrstring_cursor_forward(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursor_forward__STUB, 3, 0,SCM_FALSE,libstrstring_cursor_forward, NULL, NULL); static ScmObj libstrstring_cursor_back(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursor_back__STUB, 3, 0,SCM_FALSE,libstrstring_cursor_back, NULL, NULL); static ScmObj libstrstring_index_TOcursor(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_index_TOcursor__STUB, 2, 0,SCM_FALSE,libstrstring_index_TOcursor, NULL, NULL); static ScmObj libstrstring_cursor_TOindex(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursor_TOindex__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_TOindex, NULL, NULL); static ScmObj libstrstring_cursor_3dP(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursor_3dP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_3dP, NULL, NULL); static ScmObj libstrstring_cursor_LTP(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursor_LTP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_LTP, NULL, NULL); static ScmObj libstrstring_cursor_GTP(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursor_GTP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_GTP, NULL, NULL); static ScmObj libstrstring_cursor_LT_3dP(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursor_LT_3dP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_LT_3dP, NULL, NULL); static ScmObj libstrstring_cursor_GT_3dP(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursor_GT_3dP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_GT_3dP, NULL, NULL); static ScmObj libstrstring_cursor_diff(ScmObj*, int, void*); static SCM_DEFINE_SUBR(libstrstring_cursor_diff__STUB, 3, 0,SCM_FALSE,libstrstring_cursor_diff, NULL, NULL); #if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS) #define SCM_CGEN_CONST /*empty*/ #else #define SCM_CGEN_CONST const #endif static SCM_CGEN_CONST struct scm__scRec { #if GAUCHE_STRING_POINTER ScmString d1600[24]; #endif /*GAUCHE_STRING_POINTER*/ ScmString d1561[195]; } scm__sc SCM_UNUSED = { #if GAUCHE_STRING_POINTER { /* ScmString d1600 */ SCM_STRING_CONST_INITIALIZER("make-string-pointer", 19, 19), SCM_STRING_CONST_INITIALIZER("str", 3, 3), SCM_STRING_CONST_INITIALIZER("optional", 8, 8), SCM_STRING_CONST_INITIALIZER("index", 5, 5), SCM_STRING_CONST_INITIALIZER("start", 5, 5), SCM_STRING_CONST_INITIALIZER("end", 3, 3), SCM_STRING_CONST_INITIALIZER("source-info", 11, 11), SCM_STRING_CONST_INITIALIZER("libstr.scm", 10, 10), SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9), SCM_STRING_CONST_INITIALIZER("gauche", 6, 6), SCM_STRING_CONST_INITIALIZER("string-pointer\077", 15, 15), SCM_STRING_CONST_INITIALIZER("obj", 3, 3), SCM_STRING_CONST_INITIALIZER("string-pointer-ref", 18, 18), SCM_STRING_CONST_INITIALIZER("sp", 2, 2), SCM_STRING_CONST_INITIALIZER("string-pointer-next!", 20, 20), SCM_STRING_CONST_INITIALIZER("string-pointer-prev!", 20, 20), SCM_STRING_CONST_INITIALIZER("string-pointer-set!", 19, 19), SCM_STRING_CONST_INITIALIZER("after", 5, 5), SCM_STRING_CONST_INITIALIZER("string-pointer-substring", 24, 24), SCM_STRING_CONST_INITIALIZER("string-pointer-index", 20, 20), SCM_STRING_CONST_INITIALIZER("string-pointer-copy", 19, 19), SCM_STRING_CONST_INITIALIZER("string-pointer-byte-index", 25, 25), SCM_STRING_CONST_INITIALIZER("%string-pointer-dump", 20, 20), SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15), }, #endif /*GAUCHE_STRING_POINTER*/ { /* ScmString d1561 */ SCM_STRING_CONST_INITIALIZER("string\077", 7, 7), SCM_STRING_CONST_INITIALIZER("obj", 3, 3), SCM_STRING_CONST_INITIALIZER("source-info", 11, 11), SCM_STRING_CONST_INITIALIZER("libstr.scm", 10, 10), SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9), SCM_STRING_CONST_INITIALIZER("scheme", 6, 6), SCM_STRING_CONST_INITIALIZER("string-incomplete\077", 18, 18), SCM_STRING_CONST_INITIALIZER("gauche", 6, 6), SCM_STRING_CONST_INITIALIZER("string-immutable\077", 17, 17), SCM_STRING_CONST_INITIALIZER("make-string", 11, 11), SCM_STRING_CONST_INITIALIZER("len", 3, 3), SCM_STRING_CONST_INITIALIZER("optional", 8, 8), SCM_STRING_CONST_INITIALIZER("c", 1, 1), SCM_STRING_CONST_INITIALIZER("string", 6, 6), SCM_STRING_CONST_INITIALIZER("rest", 4, 4), SCM_STRING_CONST_INITIALIZER("chars", 5, 5), SCM_STRING_CONST_INITIALIZER("string-copy", 11, 11), SCM_STRING_CONST_INITIALIZER("str", 3, 3), SCM_STRING_CONST_INITIALIZER("start", 5, 5), SCM_STRING_CONST_INITIALIZER("end", 3, 3), SCM_STRING_CONST_INITIALIZER("string-append", 13, 13), SCM_STRING_CONST_INITIALIZER("args", 4, 4), SCM_STRING_CONST_INITIALIZER("string-copy-immutable", 21, 21), SCM_STRING_CONST_INITIALIZER(" ", 1, 1), SCM_STRING_CONST_INITIALIZER("infix", 5, 5), SCM_STRING_CONST_INITIALIZER("string-join", 11, 11), SCM_STRING_CONST_INITIALIZER("prefix", 6, 6), SCM_STRING_CONST_INITIALIZER("suffix", 6, 6), SCM_STRING_CONST_INITIALIZER("strict-infix", 12, 12), SCM_STRING_CONST_INITIALIZER("strs", 4, 4), SCM_STRING_CONST_INITIALIZER("delim", 5, 5), SCM_STRING_CONST_INITIALIZER("grammar", 7, 7), SCM_STRING_CONST_INITIALIZER("string-interpolate", 18, 18), SCM_STRING_CONST_INITIALIZER("unused-args", 11, 11), SCM_STRING_CONST_INITIALIZER("define-reader-ctor", 18, 18), SCM_STRING_CONST_INITIALIZER("%toplevel", 9, 9), SCM_STRING_CONST_INITIALIZER("string->list", 12, 12), SCM_STRING_CONST_INITIALIZER("list->string", 12, 12), SCM_STRING_CONST_INITIALIZER("list", 4, 4), SCM_STRING_CONST_INITIALIZER("string-length", 13, 13), SCM_STRING_CONST_INITIALIZER("string-ref", 10, 10), SCM_STRING_CONST_INITIALIZER("k", 1, 1), SCM_STRING_CONST_INITIALIZER("fallback", 8, 8), SCM_STRING_CONST_INITIALIZER("substring", 9, 9), SCM_STRING_CONST_INITIALIZER("string-size", 11, 11), SCM_STRING_CONST_INITIALIZER("%maybe-substring", 16, 16), SCM_STRING_CONST_INITIALIZER("%hash-string", 12, 12), SCM_STRING_CONST_INITIALIZER("bound", 5, 5), SCM_STRING_CONST_INITIALIZER("both", 4, 4), SCM_STRING_CONST_INITIALIZER("after*", 6, 6), SCM_STRING_CONST_INITIALIZER("before*", 7, 7), SCM_STRING_CONST_INITIALIZER("after", 5, 5), SCM_STRING_CONST_INITIALIZER("before", 6, 6), SCM_STRING_CONST_INITIALIZER("cursor", 6, 6), SCM_STRING_CONST_INITIALIZER("index", 5, 5), SCM_STRING_CONST_INITIALIZER("string-scan", 11, 11), SCM_STRING_CONST_INITIALIZER("s1", 2, 2), SCM_STRING_CONST_INITIALIZER("s2", 2, 2), SCM_STRING_CONST_INITIALIZER("mode", 4, 4), SCM_STRING_CONST_INITIALIZER("string-scan-right", 17, 17), SCM_STRING_CONST_INITIALIZER("string-split", 12, 12), SCM_STRING_CONST_INITIALIZER("too many arguments for", 22, 22), SCM_STRING_CONST_INITIALIZER("lambda", 6, 6), SCM_STRING_CONST_INITIALIZER("splitter", 8, 8), SCM_STRING_CONST_INITIALIZER("quote", 5, 5), SCM_STRING_CONST_INITIALIZER("limit", 5, 5), SCM_STRING_CONST_INITIALIZER("if", 2, 2), SCM_STRING_CONST_INITIALIZER("or", 2, 2), SCM_STRING_CONST_INITIALIZER("not", 3, 3), SCM_STRING_CONST_INITIALIZER("integer\077", 8, 8), SCM_STRING_CONST_INITIALIZER("with-module", 11, 11), SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15), SCM_STRING_CONST_INITIALIZER("%string-split", 13, 13), SCM_STRING_CONST_INITIALIZER("error", 5, 5), SCM_STRING_CONST_INITIALIZER("%string-split-by-char", 21, 21), SCM_STRING_CONST_INITIALIZER("s", 1, 1), SCM_STRING_CONST_INITIALIZER("ch", 2, 2), SCM_STRING_CONST_INITIALIZER("grammar argument must be one of (infix strict-infix prefix suffix), but got", 75, 75), SCM_STRING_CONST_INITIALIZER("limit argument must be a nonnegative integer or #f, but got", 59, 59), SCM_STRING_CONST_INITIALIZER("", 0, 0), SCM_STRING_CONST_INITIALIZER("equal\077", 6, 6), SCM_STRING_CONST_INITIALIZER("string must not be empty with strict-infix grammar", 50, 50), SCM_STRING_CONST_INITIALIZER("%string-split-scanner", 21, 21), SCM_STRING_CONST_INITIALIZER("%string-split-by-scanner", 24, 24), SCM_STRING_CONST_INITIALIZER("last-pair", 9, 9), SCM_STRING_CONST_INITIALIZER("drop-right", 10, 10), SCM_STRING_CONST_INITIALIZER("string=\077", 8, 8), SCM_STRING_CONST_INITIALIZER("char-set\077", 9, 9), SCM_STRING_CONST_INITIALIZER("char-set-contains\077", 18, 18), SCM_STRING_CONST_INITIALIZER("G1574", 5, 5), SCM_STRING_CONST_INITIALIZER("%string-split-scanner-each-char", 31, 31), SCM_STRING_CONST_INITIALIZER("regexp\077", 7, 7), SCM_STRING_CONST_INITIALIZER("rxmatch", 7, 7), SCM_STRING_CONST_INITIALIZER("string-cursor-start", 19, 19), SCM_STRING_CONST_INITIALIZER("string-cursor-end", 17, 17), SCM_STRING_CONST_INITIALIZER("string-cursor=\077", 15, 15), SCM_STRING_CONST_INITIALIZER("string-cursor-next", 18, 18), SCM_STRING_CONST_INITIALIZER("pred", 4, 4), SCM_STRING_CONST_INITIALIZER("reverse!", 8, 8), SCM_STRING_CONST_INITIALIZER("scanner", 7, 7), SCM_STRING_CONST_INITIALIZER("%string-replace-body!", 21, 21), SCM_STRING_CONST_INITIALIZER("target", 6, 6), SCM_STRING_CONST_INITIALIZER("source", 6, 6), SCM_STRING_CONST_INITIALIZER("string-set!", 11, 11), SCM_STRING_CONST_INITIALIZER("bad type of argument for ~s: ~s", 31, 31), SCM_STRING_CONST_INITIALIZER("arg", 3, 3), SCM_STRING_CONST_INITIALIZER("errorf", 6, 6), SCM_STRING_CONST_INITIALIZER("string-index->cursor", 20, 20), SCM_STRING_CONST_INITIALIZER("setter", 6, 6), SCM_STRING_CONST_INITIALIZER("string-byte-set!", 16, 16), SCM_STRING_CONST_INITIALIZER("exact\077", 6, 6), SCM_STRING_CONST_INITIALIZER("private\077", 8, 8), SCM_STRING_CONST_INITIALIZER("open-output-string", 18, 18), SCM_STRING_CONST_INITIALIZER("string index out of range:", 26, 26), SCM_STRING_CONST_INITIALIZER("byte-substring", 14, 14), SCM_STRING_CONST_INITIALIZER("display", 7, 7), SCM_STRING_CONST_INITIALIZER("write-byte", 10, 10), SCM_STRING_CONST_INITIALIZER("get-output-byte-string", 22, 22), SCM_STRING_CONST_INITIALIZER("b", 1, 1), SCM_STRING_CONST_INITIALIZER("string-byte-ref", 15, 15), SCM_STRING_CONST_INITIALIZER("string-fill!", 12, 12), SCM_STRING_CONST_INITIALIZER("let", 3, 3), SCM_STRING_CONST_INITIALIZER("istart", 6, 6), SCM_STRING_CONST_INITIALIZER("string-cursor->index", 20, 20), SCM_STRING_CONST_INITIALIZER("iend", 4, 4), SCM_STRING_CONST_INITIALIZER("when", 4, 4), SCM_STRING_CONST_INITIALIZER("<", 1, 1), SCM_STRING_CONST_INITIALIZER("end index ~s is smaller than start index ~s", 43, 43), SCM_STRING_CONST_INITIALIZER("and", 3, 3), SCM_STRING_CONST_INITIALIZER("=", 1, 1), SCM_STRING_CONST_INITIALIZER("-", 1, 1), SCM_STRING_CONST_INITIALIZER("string-build-index!", 19, 19), SCM_STRING_CONST_INITIALIZER("string-fast-indexable\077", 22, 22), SCM_STRING_CONST_INITIALIZER("%string-index-dump", 18, 18), SCM_STRING_CONST_INITIALIZER("p", 1, 1), SCM_STRING_CONST_INITIALIZER("ss", 2, 2), SCM_STRING_CONST_INITIALIZER("string<\077", 8, 8), SCM_STRING_CONST_INITIALIZER("string>\077", 8, 8), SCM_STRING_CONST_INITIALIZER("string<=\077", 9, 9), SCM_STRING_CONST_INITIALIZER("string>=\077", 9, 9), SCM_STRING_CONST_INITIALIZER("string-ci=\077", 11, 11), SCM_STRING_CONST_INITIALIZER("string-ci<\077", 11, 11), SCM_STRING_CONST_INITIALIZER("string-ci>\077", 11, 11), SCM_STRING_CONST_INITIALIZER("string-ci<=\077", 12, 12), SCM_STRING_CONST_INITIALIZER("string-ci>=\077", 12, 12), SCM_STRING_CONST_INITIALIZER("%string-map-dispatch", 20, 20), SCM_STRING_CONST_INITIALIZER("G1591", 5, 5), SCM_STRING_CONST_INITIALIZER("Too many arguments for srfi-13 style ~a", 39, 39), SCM_STRING_CONST_INITIALIZER("string-cursor\077", 14, 14), SCM_STRING_CONST_INITIALIZER("Integer or string-cursor expected, but got:", 43, 43), SCM_STRING_CONST_INITIALIZER("find", 4, 4), SCM_STRING_CONST_INITIALIZER("string expected, but got:", 25, 25), SCM_STRING_CONST_INITIALIZER("name", 4, 4), SCM_STRING_CONST_INITIALIZER("proc", 4, 4), SCM_STRING_CONST_INITIALIZER("proc-single", 11, 11), SCM_STRING_CONST_INITIALIZER("proc-multi", 10, 10), SCM_STRING_CONST_INITIALIZER("string-cursor-prev", 18, 18), SCM_STRING_CONST_INITIALIZER("string-map", 10, 10), SCM_STRING_CONST_INITIALIZER("string-map-1", 12, 12), SCM_STRING_CONST_INITIALIZER("map", 3, 3), SCM_STRING_CONST_INITIALIZER("any", 3, 3), SCM_STRING_CONST_INITIALIZER("string-map-n", 12, 12), SCM_STRING_CONST_INITIALIZER("string-for-each", 15, 15), SCM_STRING_CONST_INITIALIZER("string-for-each-1", 17, 17), SCM_STRING_CONST_INITIALIZER("string-for-each-n", 17, 17), SCM_STRING_CONST_INITIALIZER("string-incomplete->complete!", 28, 28), SCM_STRING_CONST_INITIALIZER("string-incomplete->complete", 27, 27), SCM_STRING_CONST_INITIALIZER("string-complete->incomplete", 27, 27), SCM_STRING_CONST_INITIALIZER("replace", 7, 7), SCM_STRING_CONST_INITIALIZER("omit", 4, 4), SCM_STRING_CONST_INITIALIZER("escape", 6, 6), SCM_STRING_CONST_INITIALIZER("handling", 8, 8), SCM_STRING_CONST_INITIALIZER("filler", 6, 6), SCM_STRING_CONST_INITIALIZER("make-byte-string", 16, 16), SCM_STRING_CONST_INITIALIZER("size", 4, 4), SCM_STRING_CONST_INITIALIZER("byte", 4, 4), SCM_STRING_CONST_INITIALIZER("complete-sexp\077", 14, 14), SCM_STRING_CONST_INITIALIZER("rec-escaped", 11, 11), SCM_STRING_CONST_INITIALIZER("closer", 6, 6), SCM_STRING_CONST_INITIALIZER("skip-token", 10, 10), SCM_STRING_CONST_INITIALIZER("unreadable sequence #<~a...", 27, 27), SCM_STRING_CONST_INITIALIZER("read-block", 10, 10), SCM_STRING_CONST_INITIALIZER("rec", 3, 3), SCM_STRING_CONST_INITIALIZER("G1597", 5, 5), SCM_STRING_CONST_INITIALIZER("with-input-from-string", 22, 22), SCM_STRING_CONST_INITIALIZER("string-cursor-forward", 21, 21), SCM_STRING_CONST_INITIALIZER("nchars", 6, 6), SCM_STRING_CONST_INITIALIZER("string-cursor-back", 18, 18), SCM_STRING_CONST_INITIALIZER("cursor1", 7, 7), SCM_STRING_CONST_INITIALIZER("cursor2", 7, 7), SCM_STRING_CONST_INITIALIZER("string-cursor<\077", 15, 15), SCM_STRING_CONST_INITIALIZER("string-cursor>\077", 15, 15), SCM_STRING_CONST_INITIALIZER("string-cursor<=\077", 16, 16), SCM_STRING_CONST_INITIALIZER("string-cursor>=\077", 16, 16), SCM_STRING_CONST_INITIALIZER("string-cursor-diff", 18, 18), }, }; static struct scm__rcRec { #if GAUCHE_STRING_POINTER ScmPair d1602[98] SCM_ALIGN_PAIR; #endif /*GAUCHE_STRING_POINTER*/ #if GAUCHE_STRING_POINTER ScmObj d1601[34]; #endif /*GAUCHE_STRING_POINTER*/ ScmCompiledCode d1565[36]; ScmWord d1564[1747]; ScmPair d1563[786] SCM_ALIGN_PAIR; ScmObj d1562[340]; } scm__rc SCM_UNUSED = { #if GAUCHE_STRING_POINTER { /* ScmPair d1602 */ { SCM_NIL, SCM_NIL }, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[1])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[2])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[3])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[4])}, { SCM_MAKE_INT(660U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[6])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[7])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[9])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[10])}, { SCM_OBJ(&scm__rc.d1602[11]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1602[8]), SCM_OBJ(&scm__rc.d1602[12])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(665U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[15])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[16])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[18])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[19])}, { SCM_OBJ(&scm__rc.d1602[20]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1602[17]), SCM_OBJ(&scm__rc.d1602[21])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(667U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[24])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[25])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[27])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[28])}, { SCM_OBJ(&scm__rc.d1602[29]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1602[26]), SCM_OBJ(&scm__rc.d1602[30])}, { SCM_MAKE_INT(669U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[32])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[33])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[35])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[36])}, { SCM_OBJ(&scm__rc.d1602[37]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1602[34]), SCM_OBJ(&scm__rc.d1602[38])}, { SCM_MAKE_INT(671U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[40])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[41])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[43])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[44])}, { SCM_OBJ(&scm__rc.d1602[45]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1602[42]), SCM_OBJ(&scm__rc.d1602[46])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[48])}, { SCM_MAKE_INT(673U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[50])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[51])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[53])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[54])}, { SCM_OBJ(&scm__rc.d1602[55]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1602[52]), SCM_OBJ(&scm__rc.d1602[56])}, { SCM_MAKE_INT(675U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[58])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[59])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[61])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[62])}, { SCM_OBJ(&scm__rc.d1602[63]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1602[60]), SCM_OBJ(&scm__rc.d1602[64])}, { SCM_MAKE_INT(677U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[66])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[67])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[69])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[70])}, { SCM_OBJ(&scm__rc.d1602[71]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1602[68]), SCM_OBJ(&scm__rc.d1602[72])}, { SCM_MAKE_INT(679U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[74])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[75])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[77])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[78])}, { SCM_OBJ(&scm__rc.d1602[79]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1602[76]), SCM_OBJ(&scm__rc.d1602[80])}, { SCM_MAKE_INT(681U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[82])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[83])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[85])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[86])}, { SCM_OBJ(&scm__rc.d1602[87]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1602[84]), SCM_OBJ(&scm__rc.d1602[88])}, { SCM_MAKE_INT(687U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[90])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[91])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[93])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[94])}, { SCM_OBJ(&scm__rc.d1602[95]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1602[92]), SCM_OBJ(&scm__rc.d1602[96])}, }, #endif /*GAUCHE_STRING_POINTER*/ #if GAUCHE_STRING_POINTER { /* ScmObj d1601 */ SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, }, #endif /*GAUCHE_STRING_POINTER*/ { /* ScmCompiledCode d1565 */ SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[0])), 5, 2, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[95]), SCM_OBJ(&scm__rc.d1565[1]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[5])), 7, 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE, SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-split */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[12])), 110, 31, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[232]), SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[122])), 159, 25, 6, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[253]), SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* (%string-split-scanner %string-split-scanner) */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[281])), 26, 12, 1, 0, SCM_OBJ(&scm__rc.d1563[255]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[261]), SCM_OBJ(&scm__rc.d1565[9]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-scanner */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[307])), 18, 12, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[267]), SCM_OBJ(&scm__rc.d1565[8]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[325])), 5, 5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1565[8]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-scanner */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[330])), 63, 21, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[279]), SCM_OBJ(&scm__rc.d1565[8]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-scanner */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[393])), 43, 11, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[285]), SCM_OBJ(&scm__rc.d1565[9]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[436])), 7, 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE, SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-scanner-each-char */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[443])), 131, 42, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[292]), SCM_OBJ(&scm__rc.d1565[11]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-scanner-each-char */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[574])), 3, 0, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[298]), SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-split-by-scanner */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[577])), 37, 23, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[305]), SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-set! */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[614])), 68, 27, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[323]), SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[682])), 9, 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE, SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-byte-set! */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[691])), 143, 24, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[331]), SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[834])), 9, 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE, SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-fill! */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[843])), 141, 37, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[412]), SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* (%string-map-dispatch G1591) */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[984])), 4, 0, 1, 0, SCM_OBJ(&scm__rc.d1563[525]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[530]), SCM_OBJ(&scm__rc.d1565[20]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %string-map-dispatch */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[988])), 117, 12, 6, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[542]), SCM_OBJ(&scm__rc.d1565[20]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1105])), 7, 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE, SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* (string-map string-map-1) */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1112])), 52, 36, 2, 0, SCM_OBJ(&scm__rc.d1563[544]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[546]), SCM_OBJ(&scm__rc.d1565[24]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* (string-map string-map-n) */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1164])), 60, 35, 1, 1, SCM_OBJ(&scm__rc.d1563[548]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[550]), SCM_OBJ(&scm__rc.d1565[24]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-map */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1224])), 10, 9, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[559]), SCM_OBJ(&scm__rc.d1565[24]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1234])), 7, 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE, SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* (string-for-each string-for-each-1) */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1241])), 43, 31, 2, 0, SCM_OBJ(&scm__rc.d1563[561]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[562]), SCM_OBJ(&scm__rc.d1565[28]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* (string-for-each string-for-each-n) */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1284])), 52, 34, 1, 1, SCM_OBJ(&scm__rc.d1563[564]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[565]), SCM_OBJ(&scm__rc.d1565[28]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-for-each */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1336])), 10, 9, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[572]), SCM_OBJ(&scm__rc.d1565[28]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1346])), 7, 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE, SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* string-incomplete->complete! */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1353])), 15, 15, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[577]), SCM_FALSE, SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* (complete-sexp? rec-escaped) */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1368])), 26, 8, 1, 0, SCM_OBJ(&scm__rc.d1563[629]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[631]), SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* (complete-sexp? skip-token) */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1394])), 24, 21, 0, 0, SCM_OBJ(&scm__rc.d1563[633]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[634]), SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* rec */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1418])), 307, 29, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[639]), SCM_OBJ(&scm__rc.d1565[33]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* (complete-sexp? G1597) */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1725])), 10, 10, 0, 0, SCM_OBJ(&scm__rc.d1563[636]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[647]), SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* complete-sexp? */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1735])), 5, 5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[655]), SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE), SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */ (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1740])), 7, 6, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE, SCM_FALSE, SCM_FALSE), }, { /* ScmWord d1564 */ /* #f */ 0x0000005e /* 0 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000003d /* 2 (LREF0) */, 0x00002095 /* 3 (TAIL-APPLY 2) */, 0x00000014 /* 4 (RET) */, /* %toplevel */ 0x00000006 /* 0 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* string-interpolate */, 0x00000016 /* 2 (CLOSURE) */, SCM_WORD(SCM_OBJ(&scm__rc.d1565[0])) /* # */, 0x00002063 /* 4 (PUSH-GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 6 (RET) */, /* string-split */ 0x0000003d /* 0 (LREF0) */, 0x00000022 /* 1 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 7), 0x00000001 /* 3 (CONST) */, SCM_WORD(SCM_UNDEFINED) /* infix */, 0x00000013 /* 5 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 8), 0x0000006a /* 7 (LREF0-CAR) */, 0x0000000d /* 8 (PUSH) */, 0x0000003d /* 9 (LREF0) */, 0x00000022 /* 10 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 15), 0x00000003 /* 12 (CONSTN) */, 0x00000013 /* 13 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 16), 0x00000076 /* 15 (LREF0-CDR) */, 0x00002018 /* 16 (PUSH-LOCAL-ENV 2) */, 0x0000003d /* 17 (LREF0) */, 0x00000022 /* 18 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 23), 0x00000004 /* 20 (CONSTF) */, 0x00000013 /* 21 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 24), 0x0000006a /* 23 (LREF0-CAR) */, 0x0000000d /* 24 (PUSH) */, 0x0000003d /* 25 (LREF0) */, 0x00000022 /* 26 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 31), 0x00000003 /* 28 (CONSTN) */, 0x00000013 /* 29 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 32), 0x00000076 /* 31 (LREF0-CDR) */, 0x00002018 /* 32 (PUSH-LOCAL-ENV 2) */, 0x0000003d /* 33 (LREF0) */, 0x00000022 /* 34 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 39), 0x00000005 /* 36 (CONSTU) */, 0x00000013 /* 37 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 40), 0x0000006a /* 39 (LREF0-CAR) */, 0x0000000d /* 40 (PUSH) */, 0x0000003d /* 41 (LREF0) */, 0x00000022 /* 42 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 47), 0x00000003 /* 44 (CONSTN) */, 0x00000013 /* 45 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 48), 0x00000076 /* 47 (LREF0-CDR) */, 0x00002018 /* 48 (PUSH-LOCAL-ENV 2) */, 0x0000003d /* 49 (LREF0) */, 0x00000022 /* 50 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 55), 0x00000005 /* 52 (CONSTU) */, 0x00000013 /* 53 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 56), 0x0000006a /* 55 (LREF0-CAR) */, 0x0000000d /* 56 (PUSH) */, 0x0000003d /* 57 (LREF0) */, 0x00000022 /* 58 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 63), 0x00000003 /* 60 (CONSTN) */, 0x00000013 /* 61 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 64), 0x00000076 /* 63 (LREF0-CDR) */, 0x00002018 /* 64 (PUSH-LOCAL-ENV 2) */, 0x0000003d /* 65 (LREF0) */, 0x00000022 /* 66 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 70), 0x00000013 /* 68 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 78), 0x0000200e /* 70 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 78), 0x00000006 /* 72 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[61])) /* "too many arguments for" */, 0x00000006 /* 74 (CONST-PUSH) */, 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))) */, 0x0000205f /* 76 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0040303c /* 78 (LREF 3 1) */, 0x0000001e /* 79 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 88), 0x0000100e /* 81 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 86), 0x00403047 /* 83 (LREF-PUSH 3 1) */, 0x0000105f /* 84 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 86 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 98), 0x00804047 /* 88 (LREF-PUSH 4 2) */, 0x00404047 /* 89 (LREF-PUSH 4 1) */, 0x00000006 /* 90 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* infix */, 0x00403047 /* 92 (LREF-PUSH 3 1) */, 0x00000050 /* 93 (LREF21-PUSH) */, 0x0000004d /* 94 (LREF11-PUSH) */, 0x00006060 /* 95 (GREF-TAIL-CALL 6) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 97 (RET) */, 0x00804047 /* 98 (LREF-PUSH 4 2) */, 0x00404047 /* 99 (LREF-PUSH 4 1) */, 0x00403047 /* 100 (LREF-PUSH 3 1) */, 0x00000050 /* 101 (LREF21-PUSH) */, 0x0000004d /* 102 (LREF11-PUSH) */, 0x00000049 /* 103 (LREF1-PUSH) */, 0x00006060 /* 104 (GREF-TAIL-CALL 6) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 106 (RET) */, 0x00000013 /* 107 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 88), 0x00000014 /* 109 (RET) */, /* %string-split */ 0x0000004b /* 0 (LREF3-PUSH) */, 0x00000001 /* 1 (CONST) */, SCM_WORD(SCM_OBJ(&scm__rc.d1563[248])) /* (infix strict-infix prefix suffix) */, 0x0000008b /* 3 (MEMQ) */, 0x0000001e /* 4 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 8), 0x00000013 /* 6 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 15), 0x0000200e /* 8 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 15), 0x00000006 /* 10 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[77])) /* "grammar argument must be one of (infix strict-infix prefix suffix), but got" */, 0x0000004b /* 12 (LREF3-PUSH) */, 0x0000205f /* 13 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000003f /* 15 (LREF2) */, 0x0000001e /* 16 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43), 0x0000100e /* 18 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 23), 0x0000004a /* 20 (LREF2-PUSH) */, 0x0000105f /* 21 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 23 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 30), 0x00000002 /* 25 (CONSTI 0) */, 0x0080002c /* 26 (LREF-VAL0-BNGE 0 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 30), 0x00000013 /* 28 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43), 0x0000200e /* 30 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43), 0x00000006 /* 32 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[78])) /* "limit argument must be a nonnegative integer or #f, but got" */, 0x0000004a /* 34 (LREF2-PUSH) */, 0x0000205f /* 35 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000013 /* 37 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43), 0x00000013 /* 39 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 30), 0x00000013 /* 41 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43), 0x0000300e /* 43 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 50), 0x01400047 /* 45 (LREF-PUSH 0 5) */, 0x00000049 /* 46 (LREF1-PUSH) */, 0x00000048 /* 47 (LREF0-PUSH) */, 0x0000305f /* 48 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00001018 /* 50 (PUSH-LOCAL-ENV 1) */, 0x0000200e /* 51 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 58), 0x00000048 /* 53 (LREF0-PUSH) */, 0x00000006 /* 54 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */, 0x0000205f /* 56 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 58 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 71), 0x00c0103c /* 60 (LREF 1 3) */, 0x0000002e /* 61 (BNEQC) */, SCM_WORD(SCM_UNDEFINED) /* strict-infix */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 69) /* 69 */, 0x00000006 /* 64 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[81])) /* "string must not be empty with strict-infix grammar" */, 0x00001060 /* 66 (GREF-TAIL-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 68 (RET) */, 0x00000003 /* 69 (CONSTN) */, 0x00000014 /* 70 (RET) */, 0x0100103c /* 71 (LREF 1 4) */, 0x00000099 /* 72 (CHARP) */, 0x0000001e /* 73 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 89), 0x0000300e /* 75 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 106), 0x00000048 /* 77 (LREF0-PUSH) */, 0x01001047 /* 78 (LREF-PUSH 1 4) */, 0x00000043 /* 79 (LREF12) */, 0x0000001e /* 80 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 84), 0x00000013 /* 82 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 85), -0x00000ffe /* 84 (CONSTI -1) */, 0x00003062 /* 85 (PUSH-GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000013 /* 87 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 106), 0x0000300e /* 89 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 106), 0x00000048 /* 91 (LREF0-PUSH) */, 0x0000100e /* 92 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 97), 0x01001047 /* 94 (LREF-PUSH 1 4) */, 0x0000105f /* 95 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 97 (PUSH) */, 0x00000043 /* 98 (LREF12) */, 0x0000001e /* 99 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 103), 0x00000013 /* 101 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 104), -0x00000ffe /* 103 (CONSTI -1) */, 0x00003062 /* 104 (PUSH-GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00001018 /* 106 (PUSH-LOCAL-ENV 1) */, 0x00c0203c /* 107 (LREF 2 3) */, 0x0000002e /* 108 (BNEQC) */, SCM_WORD(SCM_UNDEFINED) /* prefix */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 129) /* 129 */, 0x0000003d /* 111 (LREF0) */, 0x00000098 /* 112 (PAIRP) */, 0x0000001e /* 113 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 128), 0x0000200e /* 115 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 123), 0x0000006a /* 117 (LREF0-CAR) */, 0x0000000d /* 118 (PUSH) */, 0x00000006 /* 119 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */, 0x0000205f /* 121 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 123 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 127), 0x00000076 /* 125 (LREF0-CDR) */, 0x00000014 /* 126 (RET) */, 0x00000053 /* 127 (LREF0-RET) */, 0x00000053 /* 128 (LREF0-RET) */, 0x00c0203c /* 129 (LREF 2 3) */, 0x0000002e /* 130 (BNEQC) */, SCM_WORD(SCM_UNDEFINED) /* suffix */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 158) /* 158 */, 0x0000003d /* 133 (LREF0) */, 0x00000098 /* 134 (PAIRP) */, 0x0000001e /* 135 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 157), 0x0000200e /* 137 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 149), 0x0000100e /* 139 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 144), 0x00000048 /* 141 (LREF0-PUSH) */, 0x0000105f /* 142 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000069 /* 144 (CAR-PUSH) */, 0x00000006 /* 145 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */, 0x0000205f /* 147 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 149 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 156), 0x00000048 /* 151 (LREF0-PUSH) */, 0x00001007 /* 152 (CONSTI-PUSH 1) */, 0x00002060 /* 153 (GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 155 (RET) */, 0x00000053 /* 156 (LREF0-RET) */, 0x00000053 /* 157 (LREF0-RET) */, 0x00000053 /* 158 (LREF0-RET) */, /* (%string-split-scanner %string-split-scanner) */ 0x0000100e /* 0 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 5), 0x00000048 /* 2 (LREF0-PUSH) */, 0x0000105f /* 3 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 5 (PUSH) */, 0x00001002 /* 6 (CONSTI 1) */, 0x00000025 /* 7 (BNLE) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 12), 0x00000048 /* 9 (LREF0-PUSH) */, 0x00000004 /* 10 (CONSTF) */, 0x000020a3 /* 11 (VALUES-RET 2) */, 0x0000300e /* 12 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 19), 0x00000048 /* 14 (LREF0-PUSH) */, 0x00000007 /* 15 (CONSTI-PUSH 0) */, 0x00001007 /* 16 (CONSTI-PUSH 1) */, 0x0000305f /* 17 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000200f /* 19 (PUSH-PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 25), 0x00000048 /* 21 (LREF0-PUSH) */, 0x00001007 /* 22 (CONSTI-PUSH 1) */, 0x0000205f /* 23 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x000020a3 /* 25 (VALUES-RET 2) */, /* (%string-split-scanner %string-split-scanner) */ 0x0000300e /* 0 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]) + 8), 0x00000048 /* 2 (LREF0-PUSH) */, 0x0000004c /* 3 (LREF10-PUSH) */, 0x00000006 /* 4 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* both */, 0x0000305f /* 6 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00002036 /* 8 (TAIL-RECEIVE 2 0) */, 0x0000003e /* 9 (LREF1) */, 0x0000001e /* 10 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]) + 15), 0x00000049 /* 12 (LREF1-PUSH) */, 0x0000003d /* 13 (LREF0) */, 0x000020a3 /* 14 (VALUES-RET 2) */, 0x0000004c /* 15 (LREF10-PUSH) */, 0x00000004 /* 16 (CONSTF) */, 0x000020a3 /* 17 (VALUES-RET 2) */, /* (%string-split-scanner #f) */ 0x0000004c /* 0 (LREF10-PUSH) */, 0x00000048 /* 1 (LREF0-PUSH) */, 0x00002060 /* 2 (GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 4 (RET) */, /* (%string-split-scanner %string-split-scanner) */ 0x0000200e /* 0 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 6), 0x0000004c /* 2 (LREF10-PUSH) */, 0x00000048 /* 3 (LREF0-PUSH) */, 0x0000205f /* 4 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00001018 /* 6 (PUSH-LOCAL-ENV 1) */, 0x0000003d /* 7 (LREF0) */, 0x0000001e /* 8 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 60), 0x0000100e /* 10 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 16), 0x00000006 /* 12 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* before */, 0x0000003d /* 14 (LREF0) */, 0x00001011 /* 15 (CALL 1) */, 0x0000100f /* 16 (PUSH-PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 22), 0x00000006 /* 18 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* after */, 0x0000003d /* 20 (LREF0) */, 0x00001011 /* 21 (CALL 1) */, 0x00002018 /* 22 (PUSH-LOCAL-ENV 2) */, 0x0000200e /* 23 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 29), 0x0000004f /* 25 (LREF20-PUSH) */, 0x00000048 /* 26 (LREF0-PUSH) */, 0x0000205f /* 27 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 29 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 57), 0x0000100e /* 31 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 36), 0x0000004f /* 33 (LREF20-PUSH) */, 0x0000105f /* 34 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 36 (PUSH) */, 0x00001002 /* 37 (CONSTI 1) */, 0x00000025 /* 38 (BNLE) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 43), 0x0000004f /* 40 (LREF20-PUSH) */, 0x00000004 /* 41 (CONSTF) */, 0x000020a3 /* 42 (VALUES-RET 2) */, 0x0000300e /* 43 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 50), 0x0000004f /* 45 (LREF20-PUSH) */, 0x00000007 /* 46 (CONSTI-PUSH 0) */, 0x00001007 /* 47 (CONSTI-PUSH 1) */, 0x0000305f /* 48 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000200f /* 50 (PUSH-PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 56), 0x0000004f /* 52 (LREF20-PUSH) */, 0x00001007 /* 53 (CONSTI-PUSH 1) */, 0x0000205f /* 54 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x000020a3 /* 56 (VALUES-RET 2) */, 0x00000049 /* 57 (LREF1-PUSH) */, 0x0000003d /* 58 (LREF0) */, 0x000020a3 /* 59 (VALUES-RET 2) */, 0x0000004c /* 60 (LREF10-PUSH) */, 0x00000004 /* 61 (CONSTF) */, 0x000020a3 /* 62 (VALUES-RET 2) */, /* %string-split-scanner */ 0x0000003d /* 0 (LREF0) */, 0x0000009b /* 1 (STRINGP) */, 0x0000001e /* 2 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 17), 0x0000200e /* 4 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 11), 0x00000048 /* 6 (LREF0-PUSH) */, 0x00000006 /* 7 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */, 0x0000205f /* 9 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 11 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 14), 0x00000057 /* 13 (LREF10-RET) */, 0x00000016 /* 14 (CLOSURE) */, SCM_WORD(SCM_OBJ(&scm__rc.d1565[5])) /* # */, 0x00000014 /* 16 (RET) */, 0x0000100e /* 17 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 22), 0x00000048 /* 19 (LREF0-PUSH) */, 0x0000105f /* 20 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 22 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 29), 0x00000016 /* 24 (CLOSURE) */, SCM_WORD(SCM_OBJ(&scm__rc.d1565[6])) /* # */, 0x00001063 /* 26 (PUSH-GREF-TAIL-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 28 (RET) */, 0x0000100e /* 29 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 34), 0x00000048 /* 31 (LREF0-PUSH) */, 0x0000105f /* 32 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 34 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 39), 0x00000016 /* 36 (CLOSURE) */, SCM_WORD(SCM_OBJ(&scm__rc.d1565[7])) /* # */, 0x00000014 /* 38 (RET) */, 0x00000048 /* 39 (LREF0-PUSH) */, 0x00001060 /* 40 (GREF-TAIL-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 42 (RET) */, /* %toplevel */ 0x00001019 /* 0 (LOCAL-ENV-CLOSURES 1) */, SCM_WORD(SCM_OBJ(&scm__rc.d1563[262])) /* (#) */, 0x00000016 /* 2 (CLOSURE) */, SCM_WORD(SCM_OBJ(&scm__rc.d1565[8])) /* # */, 0x00000015 /* 4 (DEFINE 0) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 6 (RET) */, /* (%string-split-scanner-each-char %string-split-scanner-each-char) */ 0x00000048 /* 0 (LREF0-PUSH) */, 0x0000100e /* 1 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 6), 0x00000048 /* 3 (LREF0-PUSH) */, 0x0000105f /* 4 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000100f /* 6 (PUSH-PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 11), 0x00000048 /* 8 (LREF0-PUSH) */, 0x0000105f /* 9 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00003018 /* 11 (PUSH-LOCAL-ENV 3) */, 0x0000200e /* 12 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 18), 0x00000049 /* 14 (LREF1-PUSH) */, 0x00000048 /* 15 (LREF0-PUSH) */, 0x0000205f /* 16 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 18 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 35), 0x0000300e /* 20 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 32), 0x0000004a /* 22 (LREF2-PUSH) */, 0x0000100e /* 23 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 28), 0x0000004a /* 25 (LREF2-PUSH) */, 0x0000105f /* 26 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 28 (PUSH) */, 0x00000049 /* 29 (LREF1-PUSH) */, 0x0000305f /* 30 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 32 (PUSH) */, 0x00000004 /* 33 (CONSTF) */, 0x000020a3 /* 34 (VALUES-RET 2) */, 0x0000100e /* 35 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 46), 0x0000200e /* 37 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 43), 0x0000004a /* 39 (LREF2-PUSH) */, 0x00000049 /* 40 (LREF1-PUSH) */, 0x0000205f /* 41 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 43 (PUSH) */, 0x00000044 /* 44 (LREF20) */, 0x00001011 /* 45 (CALL 1) */, 0x0000001e /* 46 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 118), 0x0000004a /* 48 (LREF2-PUSH) */, 0x0000200e /* 49 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 55), 0x0000004a /* 51 (LREF2-PUSH) */, 0x00000049 /* 52 (LREF1-PUSH) */, 0x0000205f /* 53 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 55 (PUSH) */, 0x00000048 /* 56 (LREF0-PUSH) */, 0x0000300e /* 57 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 69), 0x0000004a /* 59 (LREF2-PUSH) */, 0x0000100e /* 60 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 65), 0x0000004a /* 62 (LREF2-PUSH) */, 0x0000105f /* 63 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 65 (PUSH) */, 0x00000049 /* 66 (LREF1-PUSH) */, 0x0000305f /* 67 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00004018 /* 69 (PUSH-LOCAL-ENV 4) */, 0x0000200e /* 70 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 76), 0x0000004a /* 72 (LREF2-PUSH) */, 0x00000049 /* 73 (LREF1-PUSH) */, 0x0000205f /* 74 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 76 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 82), 0x00000048 /* 78 (LREF0-PUSH) */, 0x00000001 /* 79 (CONST) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */, 0x000020a3 /* 81 (VALUES-RET 2) */, 0x0000100e /* 82 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 93), 0x0000200e /* 84 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 90), 0x0000004b /* 86 (LREF3-PUSH) */, 0x0000004a /* 87 (LREF2-PUSH) */, 0x0000205f /* 88 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 90 (PUSH) */, 0x00000046 /* 91 (LREF30) */, 0x00001011 /* 92 (CALL 1) */, 0x0000001e /* 93 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 108), 0x0000004b /* 95 (LREF3-PUSH) */, 0x0000200e /* 96 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 102), 0x0000004b /* 98 (LREF3-PUSH) */, 0x0000004a /* 99 (LREF2-PUSH) */, 0x0000205f /* 100 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 102 (PUSH) */, 0x00000049 /* 103 (LREF1-PUSH) */, 0x00000048 /* 104 (LREF0-PUSH) */, 0x0000101b /* 105 (LOCAL-ENV-JUMP 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 70), 0x00000014 /* 107 (RET) */, 0x00000048 /* 108 (LREF0-PUSH) */, 0x0000300e /* 109 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 116), 0x0000004b /* 111 (LREF3-PUSH) */, 0x0000004a /* 112 (LREF2-PUSH) */, 0x00000049 /* 113 (LREF1-PUSH) */, 0x0000305f /* 114 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x000020a3 /* 116 (VALUES-RET 2) */, 0x00000014 /* 117 (RET) */, 0x0000004a /* 118 (LREF2-PUSH) */, 0x0000200e /* 119 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 125), 0x0000004a /* 121 (LREF2-PUSH) */, 0x00000049 /* 122 (LREF1-PUSH) */, 0x0000205f /* 123 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 125 (PUSH) */, 0x00000048 /* 126 (LREF0-PUSH) */, 0x0000101b /* 127 (LOCAL-ENV-JUMP 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 12), 0x00000014 /* 129 (RET) */, 0x00000014 /* 130 (RET) */, /* %string-split-scanner-each-char */ 0x00000016 /* 0 (CLOSURE) */, SCM_WORD(SCM_OBJ(&scm__rc.d1565[10])) /* # */, 0x00000014 /* 2 (RET) */, /* %string-split-by-scanner */ 0x0000004a /* 0 (LREF2-PUSH) */, 0x00000008 /* 1 (CONSTN-PUSH) */, 0x00000048 /* 2 (LREF0-PUSH) */, 0x00003017 /* 3 (LOCAL-ENV 3) */, 0x0000003d /* 4 (LREF0) */, 0x0000002d /* 5 (BNUMNEI 0) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 13), 0x0000004a /* 7 (LREF2-PUSH) */, 0x0000003e /* 8 (LREF1) */, 0x00000067 /* 9 (CONS-PUSH) */, 0x00001060 /* 10 (GREF-TAIL-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 12 (RET) */, 0x0000100e /* 13 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 18), 0x0000004a /* 15 (LREF2-PUSH) */, 0x00000042 /* 16 (LREF11) */, 0x00001011 /* 17 (CALL 1) */, 0x00002036 /* 18 (TAIL-RECEIVE 2 0) */, 0x0000003d /* 19 (LREF0) */, 0x0000001e /* 20 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 30), 0x00000048 /* 22 (LREF0-PUSH) */, 0x00000049 /* 23 (LREF1-PUSH) */, 0x00000042 /* 24 (LREF11) */, 0x00000067 /* 25 (CONS-PUSH) */, -0x00000f35 /* 26 (LREF10-NUMADDI-PUSH -1) */, 0x0000201b /* 27 (LOCAL-ENV-JUMP 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 4), 0x00000014 /* 29 (RET) */, 0x00000049 /* 30 (LREF1-PUSH) */, 0x00000042 /* 31 (LREF11) */, 0x00000067 /* 32 (CONS-PUSH) */, 0x00001060 /* 33 (GREF-TAIL-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 35 (RET) */, 0x00000014 /* 36 (RET) */, /* string-set! */ 0x0000003f /* 0 (LREF2) */, 0x0000009b /* 1 (STRINGP) */, 0x0000001e /* 2 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 6), 0x00000013 /* 4 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 15), 0x0000300e /* 6 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 15), 0x00000006 /* 8 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */, 0x00000006 /* 10 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* arg */, 0x0000004a /* 12 (LREF2-PUSH) */, 0x0000305f /* 13 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000003d /* 15 (LREF0) */, 0x00000099 /* 16 (CHARP) */, 0x0000001e /* 17 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 21), 0x00000013 /* 19 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 30), 0x0000300e /* 21 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 30), 0x00000006 /* 23 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */, 0x00000006 /* 25 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* arg */, 0x00000048 /* 27 (LREF0-PUSH) */, 0x0000305f /* 28 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000200e /* 30 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 36), 0x0000004a /* 32 (LREF2-PUSH) */, 0x00000049 /* 33 (LREF1-PUSH) */, 0x0000205f /* 34 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* #cursor.514168c0> */, 0x00001018 /* 36 (PUSH-LOCAL-ENV 1) */, 0x0000004e /* 37 (LREF12-PUSH) */, 0x0000300e /* 38 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 65), 0x0000300e /* 40 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 47), 0x0000004e /* 42 (LREF12-PUSH) */, 0x00000007 /* 43 (CONSTI-PUSH 0) */, 0x00000048 /* 44 (LREF0-PUSH) */, 0x0000305f /* 45 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000100f /* 47 (PUSH-PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 52), 0x0000004c /* 49 (LREF10-PUSH) */, 0x0000105f /* 50 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000200f /* 52 (PUSH-PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 63), 0x0000004e /* 54 (LREF12-PUSH) */, 0x0000200e /* 55 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 61), 0x0000004e /* 57 (LREF12-PUSH) */, 0x0000004d /* 58 (LREF11-PUSH) */, 0x0000205f /* 59 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00002062 /* 61 (PUSH-GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00003062 /* 63 (PUSH-GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00002063 /* 65 (PUSH-GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 67 (RET) */, /* %toplevel */ 0x0000005e /* 0 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000005e /* 2 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000005d /* 4 (GREF) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x000000a1 /* 6 (SETTER) */, 0x00002012 /* 7 (TAIL-CALL 2) */, 0x00000014 /* 8 (RET) */, /* string-byte-set! */ 0x0000003f /* 0 (LREF2) */, 0x0000009b /* 1 (STRINGP) */, 0x0000001e /* 2 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 6), 0x00000013 /* 4 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 15), 0x0000300e /* 6 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 15), 0x00000006 /* 8 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */, 0x00000006 /* 10 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* arg */, 0x0000004a /* 12 (LREF2-PUSH) */, 0x0000305f /* 13 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000100e /* 15 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 20), 0x00000049 /* 17 (LREF1-PUSH) */, 0x0000105f /* 18 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 20 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 24), 0x00000013 /* 22 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 33), 0x0000300e /* 24 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 33), 0x00000006 /* 26 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */, 0x00000006 /* 28 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* arg */, 0x00000049 /* 30 (LREF1-PUSH) */, 0x0000305f /* 31 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000100e /* 33 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 38), 0x00000049 /* 35 (LREF1-PUSH) */, 0x0000105f /* 36 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 38 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 42), 0x00000013 /* 40 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 51), 0x0000300e /* 42 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 51), 0x00000006 /* 44 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */, 0x00000006 /* 46 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* arg */, 0x00000049 /* 48 (LREF1-PUSH) */, 0x0000305f /* 49 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000100e /* 51 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 56), 0x00000048 /* 53 (LREF0-PUSH) */, 0x0000105f /* 54 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 56 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 60), 0x00000013 /* 58 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 69), 0x0000300e /* 60 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 69), 0x00000006 /* 62 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */, 0x00000006 /* 64 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* arg */, 0x00000048 /* 66 (LREF0-PUSH) */, 0x0000305f /* 67 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000100e /* 69 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 74), 0x0000004a /* 71 (LREF2-PUSH) */, 0x0000105f /* 72 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000200f /* 74 (PUSH-PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 82), 0x00000006 /* 76 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* :private? */, 0x00000006 /* 78 (CONST-PUSH) */, SCM_WORD(SCM_TRUE) /* #t */, 0x0000205f /* 80 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00002018 /* 82 (PUSH-LOCAL-ENV 2) */, 0x00000002 /* 83 (CONSTI 0) */, 0x00401029 /* 84 (LREF-VAL0-BNLT 1 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 95), 0x0000200e /* 86 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102), 0x00000006 /* 88 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[113])) /* "string index out of range:" */, 0x0000004d /* 90 (LREF11-PUSH) */, 0x0000205f /* 91 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000013 /* 93 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102), 0x00000042 /* 95 (LREF11) */, 0x0040002a /* 96 (LREF-VAL0-BNLE 0 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102), 0x00000013 /* 98 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 86), 0x00000013 /* 100 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102), 0x0000200e /* 102 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 115), 0x0000300e /* 104 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 111), 0x0000004e /* 106 (LREF12-PUSH) */, 0x00000007 /* 107 (CONSTI-PUSH 0) */, 0x0000004d /* 108 (LREF11-PUSH) */, 0x0000305f /* 109 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 111 (PUSH) */, 0x00000048 /* 112 (LREF0-PUSH) */, 0x0000205f /* 113 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000200e /* 115 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 121), 0x0000004c /* 117 (LREF10-PUSH) */, 0x00000048 /* 118 (LREF0-PUSH) */, 0x0000205f /* 119 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000200e /* 121 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 134), 0x0000300e /* 123 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 130), 0x0000004e /* 125 (LREF12-PUSH) */, 0x000010cc /* 126 (LREF11-NUMADDI-PUSH 1) */, 0x00000049 /* 127 (LREF1-PUSH) */, 0x0000305f /* 128 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 130 (PUSH) */, 0x00000048 /* 131 (LREF0-PUSH) */, 0x0000205f /* 132 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000004e /* 134 (LREF12-PUSH) */, 0x0000100e /* 135 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 140), 0x00000048 /* 137 (LREF0-PUSH) */, 0x0000105f /* 138 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00002063 /* 140 (PUSH-GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 142 (RET) */, /* %toplevel */ 0x0000005e /* 0 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000005e /* 2 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000005d /* 4 (GREF) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x000000a1 /* 6 (SETTER) */, 0x00002012 /* 7 (TAIL-CALL 2) */, 0x00000014 /* 8 (RET) */, /* string-fill! */ 0x0000003d /* 0 (LREF0) */, 0x00000022 /* 1 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 6), 0x00000002 /* 3 (CONSTI 0) */, 0x00000013 /* 4 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 7), 0x0000006a /* 6 (LREF0-CAR) */, 0x0000000d /* 7 (PUSH) */, 0x0000003d /* 8 (LREF0) */, 0x00000022 /* 9 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 14), 0x00000003 /* 11 (CONSTN) */, 0x00000013 /* 12 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 15), 0x00000076 /* 14 (LREF0-CDR) */, 0x00002018 /* 15 (PUSH-LOCAL-ENV 2) */, 0x0000003d /* 16 (LREF0) */, 0x00000022 /* 17 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 26), 0x0000100e /* 19 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 27), 0x0000004e /* 21 (LREF12-PUSH) */, 0x0000105f /* 22 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000013 /* 24 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 27), 0x0000006a /* 26 (LREF0-CAR) */, 0x0000000d /* 27 (PUSH) */, 0x0000003d /* 28 (LREF0) */, 0x00000022 /* 29 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 34), 0x00000003 /* 31 (CONSTN) */, 0x00000013 /* 32 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 35), 0x00000076 /* 34 (LREF0-CDR) */, 0x00002018 /* 35 (PUSH-LOCAL-ENV 2) */, 0x0000003d /* 36 (LREF0) */, 0x00000022 /* 37 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 41), 0x00000013 /* 39 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 49), 0x0000200e /* 41 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 49), 0x00000006 /* 43 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[61])) /* "too many arguments for" */, 0x00000006 /* 45 (CONST-PUSH) */, 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)))))) */, 0x0000205f /* 47 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000200e /* 49 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 55), 0x00802047 /* 51 (LREF-PUSH 2 2) */, 0x0000004d /* 52 (LREF11-PUSH) */, 0x0000205f /* 53 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* #cursor.513fc080> */, 0x0000200f /* 55 (PUSH-PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 61), 0x00802047 /* 57 (LREF-PUSH 2 2) */, 0x00000049 /* 58 (LREF1-PUSH) */, 0x0000205f /* 59 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* #cursor.513fc000> */, 0x0000200f /* 61 (PUSH-PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 67), 0x00802047 /* 63 (LREF-PUSH 2 2) */, 0x0000004d /* 64 (LREF11-PUSH) */, 0x0000205f /* 65 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* #index.513fef60> */, 0x0000200f /* 67 (PUSH-PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 73), 0x00802047 /* 69 (LREF-PUSH 2 2) */, 0x00000049 /* 70 (LREF1-PUSH) */, 0x0000205f /* 71 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* #index.513feec0> */, 0x0000100f /* 73 (PUSH-PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 78), 0x00802047 /* 75 (LREF-PUSH 2 2) */, 0x0000105f /* 76 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00005018 /* 78 (PUSH-LOCAL-ENV 5) */, 0x0000003f /* 79 (LREF2) */, 0x00400029 /* 80 (LREF-VAL0-BNLT 0 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 92), 0x0000300e /* 82 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 92), 0x00000006 /* 84 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[127])) /* "end index ~s is smaller than start index ~s" */, 0x00000049 /* 86 (LREF1-PUSH) */, 0x0000004a /* 87 (LREF2-PUSH) */, 0x0000305f /* 88 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000013 /* 90 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 92), 0x0000003f /* 92 (LREF2) */, 0x0000002d /* 93 (BNUMNEI 0) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 108), 0x0000003d /* 95 (LREF0) */, 0x00400028 /* 96 (LREF-VAL0-BNUMNE 0 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 108), 0x00803047 /* 98 (LREF-PUSH 3 2) */, 0x0000200e /* 99 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 105), 0x00000048 /* 101 (LREF0-PUSH) */, 0x00403047 /* 102 (LREF-PUSH 3 1) */, 0x0000205f /* 103 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00002063 /* 105 (PUSH-GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 107 (RET) */, 0x00803047 /* 108 (LREF-PUSH 3 2) */, 0x0000300e /* 109 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 135), 0x0000300e /* 111 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 118), 0x00803047 /* 113 (LREF-PUSH 3 2) */, 0x00000007 /* 114 (CONSTI-PUSH 0) */, 0x01000047 /* 115 (LREF-PUSH 0 4) */, 0x0000305f /* 116 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000200f /* 118 (PUSH-PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 127), 0x00000049 /* 120 (LREF1-PUSH) */, 0x0000003f /* 121 (LREF2) */, 0x000000b3 /* 122 (NUMSUB2) */, 0x0000000d /* 123 (PUSH) */, 0x00403047 /* 124 (LREF-PUSH 3 1) */, 0x0000205f /* 125 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000200f /* 127 (PUSH-PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 133), 0x00803047 /* 129 (LREF-PUSH 3 2) */, 0x0000004b /* 130 (LREF3-PUSH) */, 0x0000205f /* 131 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00003062 /* 133 (PUSH-GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00002063 /* 135 (PUSH-GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 137 (RET) */, 0x00000013 /* 138 (JUMP) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 108), 0x00000014 /* 140 (RET) */, /* (%string-map-dispatch G1591) */ 0x0000003d /* 0 (LREF0) */, 0x0000009b /* 1 (STRINGP) */, 0x00000092 /* 2 (NOT) */, 0x00000014 /* 3 (RET) */, /* %string-map-dispatch */ 0x0000003f /* 0 (LREF2) */, 0x00000022 /* 1 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 8), 0x01000047 /* 3 (LREF-PUSH 0 4) */, 0x0000004b /* 4 (LREF3-PUSH) */, 0x0000003e /* 5 (LREF1) */, 0x00002012 /* 6 (TAIL-CALL 2) */, 0x00000014 /* 7 (RET) */, 0x0000100e /* 8 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 13), 0x0000006c /* 10 (LREF2-CAR) */, 0x00001062 /* 11 (PUSH-GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 13 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 78), 0x00000078 /* 15 (LREF2-CDR) */, 0x00000022 /* 16 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 31), 0x01000047 /* 18 (LREF-PUSH 0 4) */, 0x0000300e /* 19 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 27), 0x0000004b /* 21 (LREF3-PUSH) */, 0x0000006c /* 22 (LREF2-CAR) */, 0x0000000d /* 23 (PUSH) */, 0x00000005 /* 24 (CONSTU) */, 0x00003062 /* 25 (PUSH-GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 27 (PUSH) */, 0x0000003e /* 28 (LREF1) */, 0x00002012 /* 29 (TAIL-CALL 2) */, 0x00000014 /* 30 (RET) */, 0x0000100e /* 31 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 37), 0x0000003f /* 33 (LREF2) */, 0x00000083 /* 34 (CADR-PUSH) */, 0x0000105f /* 35 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 37 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 63), 0x0000003f /* 39 (LREF2) */, 0x00000086 /* 40 (CDDR) */, 0x00000022 /* 41 (BNNULL) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 57), 0x01000047 /* 43 (LREF-PUSH 0 4) */, 0x0000300e /* 44 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 53), 0x0000004b /* 46 (LREF3-PUSH) */, 0x0000006c /* 47 (LREF2-CAR) */, 0x0000000d /* 48 (PUSH) */, 0x0000003f /* 49 (LREF2) */, 0x00000083 /* 50 (CADR-PUSH) */, 0x0000305f /* 51 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 53 (PUSH) */, 0x0000003e /* 54 (LREF1) */, 0x00002012 /* 55 (TAIL-CALL 2) */, 0x00000014 /* 56 (RET) */, 0x00000006 /* 57 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[147])) /* "Too many arguments for srfi-13 style ~a" */, 0x01400047 /* 59 (LREF-PUSH 0 5) */, 0x00002060 /* 60 (GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 62 (RET) */, 0x0000100e /* 63 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 69), 0x0000003f /* 65 (LREF2) */, 0x00000083 /* 66 (CADR-PUSH) */, 0x0000105f /* 67 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001f /* 69 (BT) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 39), 0x00000006 /* 71 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[149])) /* "Integer or string-cursor expected, but got:" */, 0x0000003f /* 73 (LREF2) */, 0x00000083 /* 74 (CADR-PUSH) */, 0x00002060 /* 75 (GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 77 (RET) */, 0x0000100e /* 78 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 83), 0x0000006c /* 80 (LREF2-CAR) */, 0x00001062 /* 81 (PUSH-GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001f /* 83 (BT) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 15), 0x0000006c /* 85 (LREF2-CAR) */, 0x0000009b /* 86 (STRINGP) */, 0x0000001e /* 87 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 111), 0x0000200e /* 89 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 95), 0x0000004c /* 91 (LREF10-PUSH) */, 0x00000078 /* 92 (LREF2-CDR) */, 0x00002062 /* 93 (PUSH-GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00001018 /* 95 (PUSH-LOCAL-ENV 1) */, 0x0000003d /* 96 (LREF0) */, 0x0000001e /* 97 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 105), 0x00000006 /* 99 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[151])) /* "string expected, but got:" */, 0x00000048 /* 101 (LREF0-PUSH) */, 0x00002060 /* 102 (GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 104 (RET) */, 0x0000004c /* 105 (LREF10-PUSH) */, 0x01001047 /* 106 (LREF-PUSH 1 4) */, 0x00c01047 /* 107 (LREF-PUSH 1 3) */, 0x00000043 /* 108 (LREF12) */, 0x00004095 /* 109 (TAIL-APPLY 4) */, 0x00000014 /* 110 (RET) */, 0x00000006 /* 111 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[151])) /* "string expected, but got:" */, 0x0000006c /* 113 (LREF2-CAR) */, 0x00002063 /* 114 (PUSH-GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 116 (RET) */, /* %toplevel */ 0x00001019 /* 0 (LOCAL-ENV-CLOSURES 1) */, SCM_WORD(SCM_OBJ(&scm__rc.d1563[531])) /* (#) */, 0x00000016 /* 2 (CLOSURE) */, SCM_WORD(SCM_OBJ(&scm__rc.d1565[19])) /* # */, 0x00000015 /* 4 (DEFINE 0) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 6 (RET) */, /* (string-map string-map-1) */ 0x0000100e /* 0 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 5), 0x00000048 /* 2 (LREF0-PUSH) */, 0x0000105f /* 3 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00001018 /* 5 (PUSH-LOCAL-ENV 1) */, 0x0000100e /* 6 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 11), 0x0000004c /* 8 (LREF10-PUSH) */, 0x0000105f /* 9 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 11 (PUSH) */, 0x00000008 /* 12 (CONSTN-PUSH) */, 0x00002017 /* 13 (LOCAL-ENV 2) */, 0x0000200e /* 14 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 20), 0x00000049 /* 16 (LREF1-PUSH) */, 0x0000004c /* 17 (LREF10-PUSH) */, 0x0000205f /* 18 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 20 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 26), 0x00000048 /* 22 (LREF0-PUSH) */, 0x00001060 /* 23 (GREF-TAIL-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* #string.50909300> */, 0x00000014 /* 25 (RET) */, 0x0000200e /* 26 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 32), 0x0000004f /* 28 (LREF20-PUSH) */, 0x00000049 /* 29 (LREF1-PUSH) */, 0x0000205f /* 30 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00001018 /* 32 (PUSH-LOCAL-ENV 1) */, 0x00000048 /* 33 (LREF0-PUSH) */, 0x0000100e /* 34 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 45), 0x0000200e /* 36 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 42), 0x00000051 /* 38 (LREF30-PUSH) */, 0x00000048 /* 39 (LREF0-PUSH) */, 0x0000205f /* 40 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 42 (PUSH) */, 0x0040303c /* 43 (LREF 3 1) */, 0x00001011 /* 44 (CALL 1) */, 0x0000000d /* 45 (PUSH) */, 0x00000041 /* 46 (LREF10) */, 0x00000067 /* 47 (CONS-PUSH) */, 0x0000201b /* 48 (LOCAL-ENV-JUMP 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 14), 0x00000014 /* 50 (RET) */, 0x00000014 /* 51 (RET) */, /* (string-map string-map-n) */ 0x0000200e /* 0 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 7), 0x0000005e /* 2 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000048 /* 4 (LREF0-PUSH) */, 0x0000205f /* 5 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00001018 /* 7 (PUSH-LOCAL-ENV 1) */, 0x0000200e /* 8 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 15), 0x0000005e /* 10 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000004c /* 12 (LREF10-PUSH) */, 0x0000205f /* 13 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 15 (PUSH) */, 0x00000008 /* 16 (CONSTN-PUSH) */, 0x00002017 /* 17 (LOCAL-ENV 2) */, 0x0000300e /* 18 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 26), 0x0000005e /* 20 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000049 /* 22 (LREF1-PUSH) */, 0x0000004c /* 23 (LREF10-PUSH) */, 0x0000305f /* 24 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 26 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 33), 0x0000003d /* 28 (LREF0) */, 0x00000093 /* 29 (REVERSE) */, 0x00001063 /* 30 (PUSH-GREF-TAIL-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* #string.50910b40> */, 0x00000014 /* 32 (RET) */, 0x0000300e /* 33 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 41), 0x0000005e /* 35 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000004f /* 37 (LREF20-PUSH) */, 0x00000049 /* 38 (LREF1-PUSH) */, 0x0000305f /* 39 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000f /* 41 (PUSH-PRE-CALL 0) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 53), 0x00000050 /* 43 (LREF21-PUSH) */, 0x0000300e /* 44 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 52), 0x0000005e /* 46 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000004f /* 48 (LREF20-PUSH) */, 0x00000049 /* 49 (LREF1-PUSH) */, 0x0000305f /* 50 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00002095 /* 52 (TAIL-APPLY 2) */, 0x0000000d /* 53 (PUSH) */, 0x0000003d /* 54 (LREF0) */, 0x00000067 /* 55 (CONS-PUSH) */, 0x0000101b /* 56 (LOCAL-ENV-JUMP 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 18), 0x00000014 /* 58 (RET) */, 0x00000014 /* 59 (RET) */, /* string-map */ 0x00000006 /* 0 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* string-map */, 0x0000004a /* 2 (LREF2-PUSH) */, 0x00000049 /* 3 (LREF1-PUSH) */, 0x00000048 /* 4 (LREF0-PUSH) */, 0x0000004d /* 5 (LREF11-PUSH) */, 0x0000004c /* 6 (LREF10-PUSH) */, 0x00006060 /* 7 (GREF-TAIL-CALL 6) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 9 (RET) */, /* %toplevel */ 0x00002019 /* 0 (LOCAL-ENV-CLOSURES 2) */, SCM_WORD(SCM_OBJ(&scm__rc.d1563[552])) /* (# #) */, 0x00000016 /* 2 (CLOSURE) */, SCM_WORD(SCM_OBJ(&scm__rc.d1565[23])) /* # */, 0x00000015 /* 4 (DEFINE 0) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 6 (RET) */, /* (string-for-each string-for-each-1) */ 0x0000100e /* 0 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 5), 0x00000048 /* 2 (LREF0-PUSH) */, 0x0000105f /* 3 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00001018 /* 5 (PUSH-LOCAL-ENV 1) */, 0x0000100e /* 6 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 11), 0x0000004c /* 8 (LREF10-PUSH) */, 0x0000105f /* 9 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00001018 /* 11 (PUSH-LOCAL-ENV 1) */, 0x0000200e /* 12 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 18), 0x00000048 /* 14 (LREF0-PUSH) */, 0x0000004c /* 15 (LREF10-PUSH) */, 0x0000205f /* 16 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 18 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 21), 0x0000000c /* 20 (CONSTU-RET) */, 0x0000100e /* 21 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 32), 0x0000200e /* 23 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 29), 0x0000004f /* 25 (LREF20-PUSH) */, 0x00000048 /* 26 (LREF0-PUSH) */, 0x0000205f /* 27 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 29 (PUSH) */, 0x00000045 /* 30 (LREF21) */, 0x00001011 /* 31 (CALL 1) */, 0x0000200e /* 32 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 38), 0x0000004f /* 34 (LREF20-PUSH) */, 0x00000048 /* 35 (LREF0-PUSH) */, 0x0000205f /* 36 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 38 (PUSH) */, 0x0000101b /* 39 (LOCAL-ENV-JUMP 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 12), 0x00000014 /* 41 (RET) */, 0x00000014 /* 42 (RET) */, /* (string-for-each string-for-each-n) */ 0x0000200e /* 0 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 7), 0x0000005e /* 2 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000048 /* 4 (LREF0-PUSH) */, 0x0000205f /* 5 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00001018 /* 7 (PUSH-LOCAL-ENV 1) */, 0x0000200e /* 8 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 15), 0x0000005e /* 10 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000004c /* 12 (LREF10-PUSH) */, 0x0000205f /* 13 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00001018 /* 15 (PUSH-LOCAL-ENV 1) */, 0x0000300e /* 16 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 24), 0x0000005e /* 18 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000048 /* 20 (LREF0-PUSH) */, 0x0000004c /* 21 (LREF10-PUSH) */, 0x0000305f /* 22 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 24 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 27), 0x0000000c /* 26 (CONSTU-RET) */, 0x0000000e /* 27 (PRE-CALL 0) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 39), 0x00000050 /* 29 (LREF21-PUSH) */, 0x0000300e /* 30 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 38), 0x0000005e /* 32 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000004f /* 34 (LREF20-PUSH) */, 0x00000048 /* 35 (LREF0-PUSH) */, 0x0000305f /* 36 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00002095 /* 38 (TAIL-APPLY 2) */, 0x0000300e /* 39 (PRE-CALL 3) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 47), 0x0000005e /* 41 (GREF-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000004f /* 43 (LREF20-PUSH) */, 0x00000048 /* 44 (LREF0-PUSH) */, 0x0000305f /* 45 (GREF-CALL 3) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000000d /* 47 (PUSH) */, 0x0000101b /* 48 (LOCAL-ENV-JUMP 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 16), 0x00000014 /* 50 (RET) */, 0x00000014 /* 51 (RET) */, /* string-for-each */ 0x00000006 /* 0 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* string-for-each */, 0x0000004a /* 2 (LREF2-PUSH) */, 0x00000049 /* 3 (LREF1-PUSH) */, 0x00000048 /* 4 (LREF0-PUSH) */, 0x0000004d /* 5 (LREF11-PUSH) */, 0x0000004c /* 6 (LREF10-PUSH) */, 0x00006060 /* 7 (GREF-TAIL-CALL 6) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 9 (RET) */, /* %toplevel */ 0x00002019 /* 0 (LOCAL-ENV-CLOSURES 2) */, SCM_WORD(SCM_OBJ(&scm__rc.d1563[567])) /* (# #) */, 0x00000016 /* 2 (CLOSURE) */, SCM_WORD(SCM_OBJ(&scm__rc.d1565[27])) /* # */, 0x00000015 /* 4 (DEFINE 0) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 6 (RET) */, /* string-incomplete->complete! */ 0x0000100e /* 0 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]) + 5), 0x00000048 /* 2 (LREF0-PUSH) */, 0x0000105f /* 3 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* #complete.51515f40> */, 0x00001018 /* 5 (PUSH-LOCAL-ENV 1) */, 0x0000003d /* 6 (LREF0) */, 0x00000030 /* 7 (RF) */, 0x0000200e /* 8 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]) + 14), 0x0000004c /* 10 (LREF10-PUSH) */, 0x00000048 /* 11 (LREF0-PUSH) */, 0x0000205f /* 12 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000053 /* 14 (LREF0-RET) */, /* (complete-sexp? rec-escaped) */ 0x000000db /* 0 (READ-CHAR 0) */, 0x00001018 /* 1 (PUSH-LOCAL-ENV 1) */, 0x0000003d /* 2 (LREF0) */, 0x0000009a /* 3 (EOFP) */, 0x0000001e /* 4 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1368]) + 7), 0x0000000b /* 6 (CONSTF-RET) */, 0x0000004c /* 7 (LREF10-PUSH) */, 0x0000003d /* 8 (LREF0) */, 0x00000021 /* 9 (BNEQV) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1368]) + 13), 0x0000000a /* 11 (CONST-RET) */, SCM_WORD(SCM_TRUE) /* #t */, 0x0000003d /* 13 (LREF0) */, 0x0000002f /* 14 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(92)) /* #\\ */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1368]) + 22) /* 22 */, 0x000000db /* 17 (READ-CHAR 0) */, 0x0000004c /* 18 (LREF10-PUSH) */, 0x0080203c /* 19 (LREF 2 2) */, 0x0000101d /* 20 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 21 (RET) */, 0x0000004c /* 22 (LREF10-PUSH) */, 0x0080203c /* 23 (LREF 2 2) */, 0x0000101d /* 24 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 25 (RET) */, /* (complete-sexp? skip-token) */ 0x000000dc /* 0 (PEEK-CHAR 0) */, 0x00001018 /* 1 (PUSH-LOCAL-ENV 1) */, 0x0000003d /* 2 (LREF0) */, 0x0000009a /* 3 (EOFP) */, 0x0000001e /* 4 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 7), 0x0000000c /* 6 (CONSTU-RET) */, 0x0000200e /* 7 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 14), 0x00000006 /* 9 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* #[\u0000- "'-),;\[-\]`{-}\u007f] */, 0x00000048 /* 11 (LREF0-PUSH) */, 0x0000205f /* 12 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 14 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 17), 0x0000000c /* 16 (CONSTU-RET) */, 0x000000db /* 17 (READ-CHAR 0) */, 0x000000dc /* 18 (PEEK-CHAR 0) */, 0x0000000d /* 19 (PUSH) */, 0x0000101b /* 20 (LOCAL-ENV-JUMP 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 2), 0x00000014 /* 22 (RET) */, 0x00000014 /* 23 (RET) */, /* ((complete-sexp? G1597) rec) */ 0x000000db /* 0 (READ-CHAR 0) */, 0x00001018 /* 1 (PUSH-LOCAL-ENV 1) */, 0x0000003d /* 2 (LREF0) */, 0x0000009a /* 3 (EOFP) */, 0x0000001e /* 4 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 12), 0x00000041 /* 6 (LREF10) */, 0x0000001e /* 7 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 10), 0x0000000b /* 9 (CONSTF-RET) */, 0x0000000a /* 10 (CONST-RET) */, SCM_WORD(SCM_TRUE) /* #t */, 0x0000004c /* 12 (LREF10-PUSH) */, 0x0000003d /* 13 (LREF0) */, 0x00000021 /* 14 (BNEQV) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 18), 0x0000000a /* 16 (CONST-RET) */, SCM_WORD(SCM_TRUE) /* #t */, 0x0000003d /* 18 (LREF0) */, 0x0000002f /* 19 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(40)) /* #\( */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 33) /* 33 */, 0x0000100e /* 22 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 28), 0x00000006 /* 24 (CONST-PUSH) */, SCM_WORD(SCM_MAKE_CHAR(41)) /* #\) */, 0x0080203c /* 26 (LREF 2 2) */, 0x0000101c /* 27 (LOCAL-ENV-CALL 1) */, 0x00000030 /* 28 (RF) */, 0x0000004c /* 29 (LREF10-PUSH) */, 0x0080203c /* 30 (LREF 2 2) */, 0x0000101d /* 31 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 32 (RET) */, 0x0000003d /* 33 (LREF0) */, 0x0000002f /* 34 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(91)) /* #\[ */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 48) /* 48 */, 0x0000100e /* 37 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 43), 0x00000006 /* 39 (CONST-PUSH) */, SCM_WORD(SCM_MAKE_CHAR(93)) /* #\] */, 0x0080203c /* 41 (LREF 2 2) */, 0x0000101c /* 42 (LOCAL-ENV-CALL 1) */, 0x00000030 /* 43 (RF) */, 0x0000004c /* 44 (LREF10-PUSH) */, 0x0080203c /* 45 (LREF 2 2) */, 0x0000101d /* 46 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 47 (RET) */, 0x0000003d /* 48 (LREF0) */, 0x0000002f /* 49 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(123)) /* #\{ */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 63) /* 63 */, 0x0000100e /* 52 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 58), 0x00000006 /* 54 (CONST-PUSH) */, SCM_WORD(SCM_MAKE_CHAR(125)) /* #\} */, 0x0080203c /* 56 (LREF 2 2) */, 0x0000101c /* 57 (LOCAL-ENV-CALL 1) */, 0x00000030 /* 58 (RF) */, 0x0000004c /* 59 (LREF10-PUSH) */, 0x0080203c /* 60 (LREF 2 2) */, 0x0000101d /* 61 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 62 (RET) */, 0x0000003d /* 63 (LREF0) */, 0x0000002f /* 64 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(34)) /* #\" */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 78) /* 78 */, 0x0000100e /* 67 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 73), 0x00000006 /* 69 (CONST-PUSH) */, SCM_WORD(SCM_MAKE_CHAR(34)) /* #\" */, 0x0080303c /* 71 (LREF 3 2) */, 0x0000101c /* 72 (LOCAL-ENV-CALL 1) */, 0x00000030 /* 73 (RF) */, 0x0000004c /* 74 (LREF10-PUSH) */, 0x0080203c /* 75 (LREF 2 2) */, 0x0000101d /* 76 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 77 (RET) */, 0x0000003d /* 78 (LREF0) */, 0x0000002f /* 79 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(124)) /* #\| */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 93) /* 93 */, 0x0000100e /* 82 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 88), 0x00000006 /* 84 (CONST-PUSH) */, SCM_WORD(SCM_MAKE_CHAR(124)) /* #\| */, 0x0080303c /* 86 (LREF 3 2) */, 0x0000101c /* 87 (LOCAL-ENV-CALL 1) */, 0x00000030 /* 88 (RF) */, 0x0000004c /* 89 (LREF10-PUSH) */, 0x0080203c /* 90 (LREF 2 2) */, 0x0000101d /* 91 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 92 (RET) */, 0x0000003d /* 93 (LREF0) */, 0x0000002f /* 94 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(59)) /* #\; */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 120) /* 120 */, 0x0000100e /* 97 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 116), 0x000000db /* 99 (READ-CHAR 0) */, 0x00001018 /* 100 (PUSH-LOCAL-ENV 1) */, 0x0000003d /* 101 (LREF0) */, 0x0000009a /* 102 (EOFP) */, 0x0000001e /* 103 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 106), 0x0000000c /* 105 (CONSTU-RET) */, 0x0000003d /* 106 (LREF0) */, 0x0000002f /* 107 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(10)) /* #\newline */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 111) /* 111 */, 0x0000000c /* 110 (CONSTU-RET) */, 0x000000db /* 111 (READ-CHAR 0) */, 0x0000000d /* 112 (PUSH) */, 0x0000101b /* 113 (LOCAL-ENV-JUMP 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 101), 0x00000014 /* 115 (RET) */, 0x0000004c /* 116 (LREF10-PUSH) */, 0x0080203c /* 117 (LREF 2 2) */, 0x0000101d /* 118 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 119 (RET) */, 0x0000003d /* 120 (LREF0) */, 0x0000002f /* 121 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(35)) /* #\# */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 303) /* 303 */, 0x000000db /* 124 (READ-CHAR 0) */, 0x00001018 /* 125 (PUSH-LOCAL-ENV 1) */, 0x0000003d /* 126 (LREF0) */, 0x0000009a /* 127 (EOFP) */, 0x0000001e /* 128 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 131), 0x0000000b /* 130 (CONSTF-RET) */, 0x0000003d /* 131 (LREF0) */, 0x0000002f /* 132 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(92)) /* #\\ */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 147) /* 147 */, 0x000000db /* 135 (READ-CHAR 0) */, 0x0000009a /* 136 (EOFP) */, 0x00000092 /* 137 (NOT) */, 0x00000030 /* 138 (RF) */, 0x0000000e /* 139 (PRE-CALL 0) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 143), 0x0040403c /* 141 (LREF 4 1) */, 0x0000001c /* 142 (LOCAL-ENV-CALL 0) */, 0x0000004f /* 143 (LREF20-PUSH) */, 0x0080303c /* 144 (LREF 3 2) */, 0x0000101d /* 145 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 146 (RET) */, 0x0000003d /* 147 (LREF0) */, 0x0000002f /* 148 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(47)) /* #\/ */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 162) /* 162 */, 0x0000100e /* 151 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 157), 0x00000006 /* 153 (CONST-PUSH) */, SCM_WORD(SCM_MAKE_CHAR(47)) /* #\/ */, 0x0080403c /* 155 (LREF 4 2) */, 0x0000101c /* 156 (LOCAL-ENV-CALL 1) */, 0x00000030 /* 157 (RF) */, 0x0000004f /* 158 (LREF20-PUSH) */, 0x0080303c /* 159 (LREF 3 2) */, 0x0000101d /* 160 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 161 (RET) */, 0x0000003d /* 162 (LREF0) */, 0x0000002f /* 163 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(91)) /* #\[ */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 177) /* 177 */, 0x0000100e /* 166 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 172), 0x00000006 /* 168 (CONST-PUSH) */, SCM_WORD(SCM_MAKE_CHAR(93)) /* #\] */, 0x0080403c /* 170 (LREF 4 2) */, 0x0000101c /* 171 (LOCAL-ENV-CALL 1) */, 0x00000030 /* 172 (RF) */, 0x0000004f /* 173 (LREF20-PUSH) */, 0x0080303c /* 174 (LREF 3 2) */, 0x0000101d /* 175 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 176 (RET) */, 0x0000003d /* 177 (LREF0) */, 0x0000002f /* 178 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(44)) /* #\, */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 264) /* 264 */, 0x0000100e /* 181 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 205), 0x000000db /* 183 (READ-CHAR 0) */, 0x00001018 /* 184 (PUSH-LOCAL-ENV 1) */, 0x0000003d /* 185 (LREF0) */, 0x0000009a /* 186 (EOFP) */, 0x0000001e /* 187 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 190), 0x00000053 /* 189 (LREF0-RET) */, 0x0000200e /* 190 (PRE-CALL 2) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 197), 0x00000006 /* 192 (CONST-PUSH) */, SCM_WORD(SCM_UNDEFINED) /* #[\u0000-\u0008\u000e-\u001f!-\u007f\u0080-\U00ffffff] */, 0x00000048 /* 194 (LREF0-PUSH) */, 0x0000205f /* 195 (GREF-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x0000001e /* 197 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 200), 0x00000053 /* 199 (LREF0-RET) */, 0x000000db /* 200 (READ-CHAR 0) */, 0x0000000d /* 201 (PUSH) */, 0x0000101b /* 202 (LOCAL-ENV-JUMP 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 185), 0x00000014 /* 204 (RET) */, 0x00001018 /* 205 (PUSH-LOCAL-ENV 1) */, 0x0000003d /* 206 (LREF0) */, 0x0000009a /* 207 (EOFP) */, 0x0000001e /* 208 (BF) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 211), 0x0000000b /* 210 (CONSTF-RET) */, 0x0000003d /* 211 (LREF0) */, 0x0000002f /* 212 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(40)) /* #\( */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 226) /* 226 */, 0x0000100e /* 215 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 221), 0x00000006 /* 217 (CONST-PUSH) */, SCM_WORD(SCM_MAKE_CHAR(41)) /* #\) */, 0x0080403c /* 219 (LREF 4 2) */, 0x0000101c /* 220 (LOCAL-ENV-CALL 1) */, 0x00000030 /* 221 (RF) */, 0x00000051 /* 222 (LREF30-PUSH) */, 0x0080403c /* 223 (LREF 4 2) */, 0x0000101d /* 224 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 225 (RET) */, 0x0000003d /* 226 (LREF0) */, 0x0000002f /* 227 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(91)) /* #\[ */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 241) /* 241 */, 0x0000100e /* 230 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 236), 0x00000006 /* 232 (CONST-PUSH) */, SCM_WORD(SCM_MAKE_CHAR(93)) /* #\] */, 0x0080403c /* 234 (LREF 4 2) */, 0x0000101c /* 235 (LOCAL-ENV-CALL 1) */, 0x00000030 /* 236 (RF) */, 0x00000051 /* 237 (LREF30-PUSH) */, 0x0080403c /* 238 (LREF 4 2) */, 0x0000101d /* 239 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 240 (RET) */, 0x0000003d /* 241 (LREF0) */, 0x0000002f /* 242 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(123)) /* #\{ */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 256) /* 256 */, 0x0000100e /* 245 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 251), 0x00000006 /* 247 (CONST-PUSH) */, SCM_WORD(SCM_MAKE_CHAR(125)) /* #\} */, 0x0080403c /* 249 (LREF 4 2) */, 0x0000101c /* 250 (LOCAL-ENV-CALL 1) */, 0x00000030 /* 251 (RF) */, 0x00000051 /* 252 (LREF30-PUSH) */, 0x0080403c /* 253 (LREF 4 2) */, 0x0000101d /* 254 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 255 (RET) */, 0x0000000e /* 256 (PRE-CALL 0) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 260), 0x0040503c /* 258 (LREF 5 1) */, 0x0000001c /* 259 (LOCAL-ENV-CALL 0) */, 0x00000051 /* 260 (LREF30-PUSH) */, 0x0080403c /* 261 (LREF 4 2) */, 0x0000101d /* 262 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 263 (RET) */, 0x0000003d /* 264 (LREF0) */, 0x0000002f /* 265 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(40)) /* #\( */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 279) /* 279 */, 0x0000100e /* 268 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 274), 0x00000006 /* 270 (CONST-PUSH) */, SCM_WORD(SCM_MAKE_CHAR(41)) /* #\) */, 0x0080303c /* 272 (LREF 3 2) */, 0x0000101c /* 273 (LOCAL-ENV-CALL 1) */, 0x00000030 /* 274 (RF) */, 0x0000004f /* 275 (LREF20-PUSH) */, 0x0080303c /* 276 (LREF 3 2) */, 0x0000101d /* 277 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 278 (RET) */, 0x0000003d /* 279 (LREF0) */, 0x0000002f /* 280 (BNEQVC) */, SCM_WORD(SCM_MAKE_CHAR(60)) /* #\< */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 293) /* 293 */, 0x00000006 /* 283 (CONST-PUSH) */, SCM_WORD(SCM_OBJ(&scm__sc.d1561[180])) /* "unreadable sequence #<~a..." */, 0x0000100e /* 285 (PRE-CALL 1) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 290), 0x0000a007 /* 287 (CONSTI-PUSH 10) */, 0x0000105f /* 288 (GREF-CALL 1) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00002063 /* 290 (PUSH-GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 292 (RET) */, 0x00000048 /* 293 (LREF0-PUSH) */, 0x00000044 /* 294 (LREF20) */, 0x00000021 /* 295 (BNEQV) */, SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 299), 0x0000000a /* 297 (CONST-RET) */, SCM_WORD(SCM_TRUE) /* #t */, 0x0000004f /* 299 (LREF20-PUSH) */, 0x0080303c /* 300 (LREF 3 2) */, 0x0000101d /* 301 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 302 (RET) */, 0x0000004c /* 303 (LREF10-PUSH) */, 0x0080203c /* 304 (LREF 2 2) */, 0x0000101d /* 305 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 306 (RET) */, /* (complete-sexp? G1597) */ 0x00003019 /* 0 (LOCAL-ENV-CLOSURES 3) */, SCM_WORD(SCM_OBJ(&scm__rc.d1563[642])) /* (# # #) */, 0x00000043 /* 2 (LREF12) */, 0x000010e8 /* 3 (ENV-SET 1) */, 0x00000042 /* 4 (LREF11) */, 0x000000e8 /* 5 (ENV-SET 0) */, 0x00000009 /* 6 (CONSTF-PUSH) */, 0x0000003f /* 7 (LREF2) */, 0x0000101d /* 8 (LOCAL-ENV-TAIL-CALL 1) */, 0x00000014 /* 9 (RET) */, /* complete-sexp? */ 0x00000048 /* 0 (LREF0-PUSH) */, 0x0000004c /* 1 (LREF10-PUSH) */, 0x00002060 /* 2 (GREF-TAIL-CALL 2) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 4 (RET) */, /* %toplevel */ 0x00003019 /* 0 (LOCAL-ENV-CLOSURES 3) */, SCM_WORD(SCM_OBJ(&scm__rc.d1563[650])) /* (# # #) */, 0x00000016 /* 2 (CLOSURE) */, SCM_WORD(SCM_OBJ(&scm__rc.d1565[34])) /* # */, 0x00000015 /* 4 (DEFINE 0) */, SCM_WORD(SCM_UNDEFINED) /* # */, 0x00000014 /* 6 (RET) */, }, { /* ScmPair d1563 */ { SCM_NIL, SCM_NIL }, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(46U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[2])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[3])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[5])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[6])}, { SCM_OBJ(&scm__rc.d1563[7]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[4]), SCM_OBJ(&scm__rc.d1563[8])}, { SCM_MAKE_INT(50U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[10])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[11])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[13])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[14])}, { SCM_OBJ(&scm__rc.d1563[15]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[12]), SCM_OBJ(&scm__rc.d1563[16])}, { SCM_MAKE_INT(52U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[18])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[19])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[21])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[22])}, { SCM_OBJ(&scm__rc.d1563[23]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[20]), SCM_OBJ(&scm__rc.d1563[24])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[26])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[27])}, { SCM_MAKE_INT(60U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[29])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[30])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[32])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[33])}, { SCM_OBJ(&scm__rc.d1563[34]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[31]), SCM_OBJ(&scm__rc.d1563[35])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[37])}, { SCM_MAKE_INT(62U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[39])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[40])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[42])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[43])}, { SCM_OBJ(&scm__rc.d1563[44]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[41]), SCM_OBJ(&scm__rc.d1563[45])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[49])}, { SCM_MAKE_INT(63U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[51])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[52])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[54])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[55])}, { SCM_OBJ(&scm__rc.d1563[56]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[53]), SCM_OBJ(&scm__rc.d1563[57])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[59])}, { SCM_MAKE_INT(66U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[61])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[62])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[64])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[65])}, { SCM_OBJ(&scm__rc.d1563[66]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[63]), SCM_OBJ(&scm__rc.d1563[67])}, { SCM_MAKE_INT(69U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[69])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[70])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[72])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[73])}, { SCM_OBJ(&scm__rc.d1563[74]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[71]), SCM_OBJ(&scm__rc.d1563[75])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[77])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[78])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[79])}, { SCM_MAKE_INT(77U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[81])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[82])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[84])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[85])}, { SCM_OBJ(&scm__rc.d1563[86]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[83]), SCM_OBJ(&scm__rc.d1563[87])}, { SCM_MAKE_INT(90U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[89])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[90])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[92]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[91]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(98U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[96])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[97])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[99])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[100])}, { SCM_OBJ(&scm__rc.d1563[101]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[102])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(100U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[105])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[106])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[108])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[109])}, { SCM_OBJ(&scm__rc.d1563[110]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[107]), SCM_OBJ(&scm__rc.d1563[111])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(107U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[114])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[115])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[117])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[118])}, { SCM_OBJ(&scm__rc.d1563[119]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[116]), SCM_OBJ(&scm__rc.d1563[120])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[122])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[123])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[124])}, { SCM_MAKE_INT(109U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[126])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[127])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[129])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[130])}, { SCM_OBJ(&scm__rc.d1563[131]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[128]), SCM_OBJ(&scm__rc.d1563[132])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])}, { SCM_MAKE_INT(113U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[135])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[136])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[138])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[139])}, { SCM_OBJ(&scm__rc.d1563[140]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[137]), SCM_OBJ(&scm__rc.d1563[141])}, { SCM_MAKE_INT(117U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[143])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[144])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[146])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[147])}, { SCM_OBJ(&scm__rc.d1563[148]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[145]), SCM_OBJ(&scm__rc.d1563[149])}, { SCM_MAKE_INT(120U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[151])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[152])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[154])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[155])}, { SCM_OBJ(&scm__rc.d1563[156]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[153]), SCM_OBJ(&scm__rc.d1563[157])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[159])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[160])}, { SCM_MAKE_INT(124U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[162])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[163])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[165])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[166])}, { SCM_OBJ(&scm__rc.d1563[167]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[164]), SCM_OBJ(&scm__rc.d1563[168])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[170])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[171])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[172])}, { SCM_MAKE_INT(152U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[174])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[175])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[177])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[178])}, { SCM_OBJ(&scm__rc.d1563[179]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[176]), SCM_OBJ(&scm__rc.d1563[180])}, { SCM_MAKE_INT(162U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[182])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[183])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[185])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[186])}, { SCM_OBJ(&scm__rc.d1563[187]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[184]), SCM_OBJ(&scm__rc.d1563[188])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[190])}, { SCM_OBJ(&scm__rc.d1563[191]), SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[192])}, { SCM_FALSE, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[194])}, { SCM_OBJ(&scm__rc.d1563[195]), SCM_OBJ(&scm__rc.d1563[48])}, { SCM_OBJ(&scm__rc.d1563[193]), SCM_OBJ(&scm__rc.d1563[196])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[197])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[198])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[199])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[77])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[77])}, { SCM_OBJ(&scm__rc.d1563[202]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[201]), SCM_OBJ(&scm__rc.d1563[203])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[204])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[206])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[207])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[209])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[210])}, { SCM_OBJ(&scm__rc.d1563[191]), SCM_OBJ(&scm__rc.d1563[211])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[212])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[213])}, { SCM_OBJ(&scm__rc.d1563[208]), SCM_OBJ(&scm__rc.d1563[214])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[216])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[217])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[218])}, { SCM_OBJ(&scm__rc.d1563[208]), SCM_OBJ(&scm__rc.d1563[219])}, { SCM_OBJ(&scm__rc.d1563[220]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[215]), SCM_OBJ(&scm__rc.d1563[221])}, { SCM_OBJ(&scm__rc.d1563[205]), SCM_OBJ(&scm__rc.d1563[222])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[223])}, { SCM_OBJ(&scm__rc.d1563[224]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[200]), SCM_OBJ(&scm__rc.d1563[225])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[226])}, { SCM_MAKE_INT(178U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[228])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[229])}, { SCM_OBJ(&scm__rc.d1563[230]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[233])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[234])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[235])}, { SCM_MAKE_INT(187U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[237])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[238])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[240])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[241])}, { SCM_OBJ(&scm__rc.d1563[242]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[239]), SCM_OBJ(&scm__rc.d1563[243])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[245])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[246])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[247])}, { SCM_MAKE_INT(191U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[249])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[250])}, { SCM_OBJ(&scm__rc.d1563[251]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[254])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(218U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[257])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[258])}, { SCM_OBJ(&scm__rc.d1563[259]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_OBJ(&scm__rc.d1565[4]), SCM_NIL}, { SCM_MAKE_INT(221U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[263])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[264])}, { SCM_OBJ(&scm__rc.d1563[265]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[194])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(225U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[270])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[271])}, { SCM_OBJ(&scm__rc.d1563[272]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(227U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[275])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[276])}, { SCM_OBJ(&scm__rc.d1563[277]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(215U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[281])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[282])}, { SCM_OBJ(&scm__rc.d1563[283]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[286])}, { SCM_MAKE_INT(260U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[288])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[289])}, { SCM_OBJ(&scm__rc.d1563[290]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(240U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[294])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[295])}, { SCM_OBJ(&scm__rc.d1563[296]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[233])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[299])}, { SCM_MAKE_INT(262U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[301])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[302])}, { SCM_OBJ(&scm__rc.d1563[303]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[306])}, { SCM_MAKE_INT(278U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[308])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[309])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[311])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[312])}, { SCM_OBJ(&scm__rc.d1563[313]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[310]), SCM_OBJ(&scm__rc.d1563[314])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[316])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[317])}, { SCM_MAKE_INT(281U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[319])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[320])}, { SCM_OBJ(&scm__rc.d1563[321]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[324])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[325])}, { SCM_MAKE_INT(292U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[327])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[328])}, { SCM_OBJ(&scm__rc.d1563[329]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(0), SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[332])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[113])}, { SCM_OBJ(&scm__rc.d1563[334]), SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[335])}, { SCM_OBJ(&scm__rc.d1563[336]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[333]), SCM_OBJ(&scm__rc.d1563[337])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[338])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[339])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[340])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[209])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[342])}, { SCM_OBJ(&scm__rc.d1563[343]), SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[344])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[346])}, { SCM_OBJ(&scm__rc.d1563[347]), SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[348])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[342])}, { SCM_OBJ(&scm__rc.d1563[350]), SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[351])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[346])}, { SCM_OBJ(&scm__rc.d1563[353]), SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[354])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[335])}, { SCM_OBJ(&scm__rc.d1563[356]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[355]), SCM_OBJ(&scm__rc.d1563[357])}, { SCM_OBJ(&scm__rc.d1563[352]), SCM_OBJ(&scm__rc.d1563[358])}, { SCM_OBJ(&scm__rc.d1563[349]), SCM_OBJ(&scm__rc.d1563[359])}, { SCM_OBJ(&scm__rc.d1563[345]), SCM_OBJ(&scm__rc.d1563[360])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[362])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[363])}, { SCM_OBJ(&scm__sc.d1561[127]), SCM_OBJ(&scm__rc.d1563[363])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[365])}, { SCM_OBJ(&scm__rc.d1563[366]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[364]), SCM_OBJ(&scm__rc.d1563[367])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[368])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[332])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[370])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[372])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[373])}, { SCM_OBJ(&scm__rc.d1563[374]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[371]), SCM_OBJ(&scm__rc.d1563[375])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[376])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[26])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[378])}, { SCM_OBJ(&scm__rc.d1563[379]), SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[380])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[381])}, { SCM_MAKE_INT(0), SCM_OBJ(&scm__rc.d1563[209])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[383])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[384])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[363])}, { SCM_OBJ(&scm__rc.d1563[386]), SCM_OBJ(&scm__rc.d1563[26])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[387])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[346])}, { SCM_OBJ(&scm__rc.d1563[389]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[388]), SCM_OBJ(&scm__rc.d1563[390])}, { SCM_OBJ(&scm__rc.d1563[385]), SCM_OBJ(&scm__rc.d1563[391])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[392])}, { SCM_OBJ(&scm__rc.d1563[393]), SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[394])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[395])}, { SCM_OBJ(&scm__rc.d1563[396]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[382]), SCM_OBJ(&scm__rc.d1563[397])}, { SCM_OBJ(&scm__rc.d1563[377]), SCM_OBJ(&scm__rc.d1563[398])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[399])}, { SCM_OBJ(&scm__rc.d1563[400]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[369]), SCM_OBJ(&scm__rc.d1563[401])}, { SCM_OBJ(&scm__rc.d1563[361]), SCM_OBJ(&scm__rc.d1563[402])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[403])}, { SCM_OBJ(&scm__rc.d1563[404]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[341]), SCM_OBJ(&scm__rc.d1563[405])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[406])}, { SCM_MAKE_INT(308U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[408])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[409])}, { SCM_OBJ(&scm__rc.d1563[410]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(329U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[413])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[414])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[416])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[417])}, { SCM_OBJ(&scm__rc.d1563[418]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[415]), SCM_OBJ(&scm__rc.d1563[419])}, { SCM_MAKE_INT(333U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[421])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[422])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[424])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[425])}, { SCM_OBJ(&scm__rc.d1563[426]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[423]), SCM_OBJ(&scm__rc.d1563[427])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[429])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])}, { SCM_MAKE_INT(337U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[432])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[433])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[435])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[436])}, { SCM_OBJ(&scm__rc.d1563[437]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[434]), SCM_OBJ(&scm__rc.d1563[438])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[440])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[441])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[442])}, { SCM_MAKE_INT(361U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[444])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[445])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[447])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[448])}, { SCM_OBJ(&scm__rc.d1563[449]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[446]), SCM_OBJ(&scm__rc.d1563[450])}, { SCM_MAKE_INT(364U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[452])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[453])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[455])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])}, { SCM_OBJ(&scm__rc.d1563[457]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[454]), SCM_OBJ(&scm__rc.d1563[458])}, { SCM_MAKE_INT(367U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[460])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[461])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[463])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[464])}, { SCM_OBJ(&scm__rc.d1563[465]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[462]), SCM_OBJ(&scm__rc.d1563[466])}, { SCM_MAKE_INT(370U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[468])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[469])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[471])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[472])}, { SCM_OBJ(&scm__rc.d1563[473]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[470]), SCM_OBJ(&scm__rc.d1563[474])}, { SCM_MAKE_INT(373U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[476])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[477])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[479])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[480])}, { SCM_OBJ(&scm__rc.d1563[481]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[478]), SCM_OBJ(&scm__rc.d1563[482])}, { SCM_MAKE_INT(377U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[484])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[485])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[487])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[488])}, { SCM_OBJ(&scm__rc.d1563[489]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[486]), SCM_OBJ(&scm__rc.d1563[490])}, { SCM_MAKE_INT(380U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[492])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[493])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[495])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[496])}, { SCM_OBJ(&scm__rc.d1563[497]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[494]), SCM_OBJ(&scm__rc.d1563[498])}, { SCM_MAKE_INT(383U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[500])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[501])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[503])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[504])}, { SCM_OBJ(&scm__rc.d1563[505]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[502]), SCM_OBJ(&scm__rc.d1563[506])}, { SCM_MAKE_INT(386U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[508])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[509])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[511])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[512])}, { SCM_OBJ(&scm__rc.d1563[513]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[510]), SCM_OBJ(&scm__rc.d1563[514])}, { SCM_MAKE_INT(389U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[516])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[517])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[519])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[520])}, { SCM_OBJ(&scm__rc.d1563[521]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[518]), SCM_OBJ(&scm__rc.d1563[522])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[524])}, { SCM_MAKE_INT(419U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[526])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[527])}, { SCM_OBJ(&scm__rc.d1563[528]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_OBJ(&scm__rc.d1565[18]), SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[532])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[533])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[534])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[535])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[536])}, { SCM_MAKE_INT(404U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[538])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[539])}, { SCM_OBJ(&scm__rc.d1563[540]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[543])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[113])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[547])}, { SCM_UNDEFINED, SCM_UNDEFINED}, { SCM_UNDEFINED, SCM_NIL}, { SCM_OBJ(&scm__rc.d1565[22]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1565[21]), SCM_OBJ(&scm__rc.d1563[551])}, { SCM_UNDEFINED, SCM_UNDEFINED}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[553])}, { SCM_MAKE_INT(425U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[555])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[556])}, { SCM_OBJ(&scm__rc.d1563[557]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[560])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[563])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_OBJ(&scm__rc.d1565[26]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1565[25]), SCM_OBJ(&scm__rc.d1563[566])}, { SCM_MAKE_INT(450U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[568])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[569])}, { SCM_OBJ(&scm__rc.d1563[570]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(477U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[573])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[574])}, { SCM_OBJ(&scm__rc.d1563[575]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(482U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[578])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[579])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[581])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[582])}, { SCM_OBJ(&scm__rc.d1563[583]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[580]), SCM_OBJ(&scm__rc.d1563[584])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[586])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[587])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[589])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[590])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[591])}, { SCM_MAKE_INT(489U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[593])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[594])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[596])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[597])}, { SCM_OBJ(&scm__rc.d1563[598]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[595]), SCM_OBJ(&scm__rc.d1563[599])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[601])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[602])}, { SCM_MAKE_INT(548U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[604])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[605])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[607])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[608])}, { SCM_OBJ(&scm__rc.d1563[609]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[606]), SCM_OBJ(&scm__rc.d1563[610])}, { SCM_MAKE_INT(555U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[612])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[613])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[615])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[616])}, { SCM_OBJ(&scm__rc.d1563[617]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[614]), SCM_OBJ(&scm__rc.d1563[618])}, { SCM_MAKE_INT(559U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[620])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[621])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[623])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[624])}, { SCM_OBJ(&scm__rc.d1563[625]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[622]), SCM_OBJ(&scm__rc.d1563[626])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[628])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[632])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[635])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[636]), SCM_OBJ(&scm__rc.d1563[637])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[640])}, { SCM_OBJ(&scm__rc.d1565[32]), SCM_OBJ(&scm__rc.d1563[641])}, { SCM_MAKE_INT(578U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[643])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[644])}, { SCM_OBJ(&scm__rc.d1563[645]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_OBJ(&scm__rc.d1565[33]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1565[31]), SCM_OBJ(&scm__rc.d1563[648])}, { SCM_OBJ(&scm__rc.d1565[30]), SCM_OBJ(&scm__rc.d1563[649])}, { SCM_MAKE_INT(576U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[651])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[652])}, { SCM_OBJ(&scm__rc.d1563[653]), SCM_OBJ(&scm__rc.d1563[93])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_MAKE_INT(697U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[656])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[657])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[659])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[660])}, { SCM_OBJ(&scm__rc.d1563[661]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[658]), SCM_OBJ(&scm__rc.d1563[662])}, { SCM_MAKE_INT(699U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[664])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[665])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[667])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[668])}, { SCM_OBJ(&scm__rc.d1563[669]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[666]), SCM_OBJ(&scm__rc.d1563[670])}, { SCM_MAKE_INT(701U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[672])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[673])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[675])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[676])}, { SCM_OBJ(&scm__rc.d1563[677]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[674]), SCM_OBJ(&scm__rc.d1563[678])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[680])}, { SCM_MAKE_INT(703U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[682])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[683])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[685])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[686])}, { SCM_OBJ(&scm__rc.d1563[687]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[684]), SCM_OBJ(&scm__rc.d1563[688])}, { SCM_MAKE_INT(705U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[690])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[691])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[693])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[694])}, { SCM_OBJ(&scm__rc.d1563[695]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[692]), SCM_OBJ(&scm__rc.d1563[696])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[698])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[699])}, { SCM_MAKE_INT(707U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[701])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[702])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[704])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[705])}, { SCM_OBJ(&scm__rc.d1563[706]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[703]), SCM_OBJ(&scm__rc.d1563[707])}, { SCM_MAKE_INT(709U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[709])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[710])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[712])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[713])}, { SCM_OBJ(&scm__rc.d1563[714]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[711]), SCM_OBJ(&scm__rc.d1563[715])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[717])}, { SCM_MAKE_INT(711U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[719])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[720])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[722])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[723])}, { SCM_OBJ(&scm__rc.d1563[724]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[721]), SCM_OBJ(&scm__rc.d1563[725])}, { SCM_MAKE_INT(715U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[727])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[728])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[730])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[731])}, { SCM_OBJ(&scm__rc.d1563[732]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[729]), SCM_OBJ(&scm__rc.d1563[733])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[735])}, { SCM_MAKE_INT(718U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[737])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[738])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[740])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[741])}, { SCM_OBJ(&scm__rc.d1563[742]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[739]), SCM_OBJ(&scm__rc.d1563[743])}, { SCM_MAKE_INT(721U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[745])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[746])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[748])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[749])}, { SCM_OBJ(&scm__rc.d1563[750]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[747]), SCM_OBJ(&scm__rc.d1563[751])}, { SCM_MAKE_INT(724U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[753])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[754])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[756])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[757])}, { SCM_OBJ(&scm__rc.d1563[758]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[755]), SCM_OBJ(&scm__rc.d1563[759])}, { SCM_MAKE_INT(727U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[761])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[762])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[764])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[765])}, { SCM_OBJ(&scm__rc.d1563[766]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[763]), SCM_OBJ(&scm__rc.d1563[767])}, { SCM_MAKE_INT(730U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[769])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[770])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[772])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[773])}, { SCM_OBJ(&scm__rc.d1563[774]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[771]), SCM_OBJ(&scm__rc.d1563[775])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])}, { SCM_MAKE_INT(733U), SCM_NIL}, { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[778])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[779])}, { SCM_UNDEFINED, SCM_NIL}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[781])}, { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[782])}, { SCM_OBJ(&scm__rc.d1563[783]), SCM_NIL}, { SCM_OBJ(&scm__rc.d1563[780]), SCM_OBJ(&scm__rc.d1563[784])}, }, { /* ScmObj d1562 */ SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, SCM_UNBOUND, }, }; static ScmObj libstrstringP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj obj_scm; ScmObj obj; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string?"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } obj_scm = SCM_SUBRARGS[0]; obj = (obj_scm); { { int SCM_RESULT; {SCM_RESULT=(SCM_STRINGP(obj));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_incompleteP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj obj_scm; ScmObj obj; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-incomplete?"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } obj_scm = SCM_SUBRARGS[0]; obj = (obj_scm); { { int SCM_RESULT; #line 51 "libstr.scm" {SCM_RESULT=((SCM_STRINGP(obj))&&(SCM_STRING_INCOMPLETE_P(obj)));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_immutableP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj obj_scm; ScmObj obj; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-immutable?"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } obj_scm = SCM_SUBRARGS[0]; obj = (obj_scm); { { int SCM_RESULT; #line 53 "libstr.scm" {SCM_RESULT=((SCM_STRINGP(obj))&&(SCM_STRING_IMMUTABLE_P(obj)));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrmake_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj len_scm; ScmSmallInt len; ScmObj c_scm; ScmChar c; ScmObj SCM_SUBRARGS[3]; SCM_ENTER_SUBR("make-string"); if (SCM_ARGCNT >= 3 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<3; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } len_scm = SCM_SUBRARGS[0]; if (!SCM_INTP(len_scm)) Scm_Error("small integer required, but got %S", len_scm); len = SCM_INT_VALUE(len_scm); if (SCM_ARGCNT > 1+1) { c_scm = SCM_SUBRARGS[1]; } else { c_scm = SCM_MAKE_CHAR(32); } if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm); c = SCM_CHAR_VALUE(c_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_MakeFillString(len,c));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj chars_scm; ScmObj chars; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("string"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1]; chars = (chars_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_ListToString(chars));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_copy(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj start_scm; ScmObj start; ScmObj end_scm; ScmObj end; ScmObj SCM_SUBRARGS[5]; SCM_ENTER_SUBR("string-copy"); if (SCM_ARGCNT >= 4 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<5; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); if (SCM_ARGCNT > 1+1) { start_scm = SCM_SUBRARGS[1]; } else { start_scm = SCM_UNBOUND; } start = (start_scm); if (SCM_ARGCNT > 2+1) { end_scm = SCM_SUBRARGS[2]; } else { end_scm = SCM_UNBOUND; } end = (end_scm); { { ScmObj SCM_RESULT; #line 64 "libstr.scm" {SCM_RESULT=(Scm_CopyString(SCM_STRING(Scm_MaybeSubstring(str,start,end))));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_append(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj args_scm; ScmObj args; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("string-append"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } args_scm = SCM_SUBRARGS[SCM_ARGCNT-1]; args = (args_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_StringAppend(args));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_copy_immutable(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj start_scm; ScmObj start; ScmObj end_scm; ScmObj end; ScmObj SCM_SUBRARGS[5]; SCM_ENTER_SUBR("string-copy-immutable"); if (SCM_ARGCNT >= 4 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<5; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); if (SCM_ARGCNT > 1+1) { start_scm = SCM_SUBRARGS[1]; } else { start_scm = SCM_UNBOUND; } start = (start_scm); if (SCM_ARGCNT > 2+1) { end_scm = SCM_SUBRARGS[2]; } else { end_scm = SCM_UNBOUND; } end = (end_scm); { { ScmObj SCM_RESULT; #line 70 "libstr.scm" {ScmObj s=Scm_MaybeSubstring(str,start,end); if (SCM_STRING_IMMUTABLE_P(s)){ {SCM_RESULT=(s);goto SCM_STUB_RETURN;}} else { {SCM_RESULT=(Scm_CopyStringWithFlags(SCM_STRING(s),SCM_STRING_IMMUTABLE,SCM_STRING_IMMUTABLE));goto SCM_STUB_RETURN;}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_join(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj strs_scm; ScmObj strs; ScmObj delim_scm; ScmString* delim; ScmObj grammar_scm; ScmObj grammar; ScmObj SCM_SUBRARGS[5]; SCM_ENTER_SUBR("string-join"); if (SCM_ARGCNT >= 4 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<5; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } strs_scm = SCM_SUBRARGS[0]; if (!SCM_LISTP(strs_scm)) Scm_Error("list required, but got %S", strs_scm); strs = (strs_scm); if (SCM_ARGCNT > 1+1) { delim_scm = SCM_SUBRARGS[1]; } else { delim_scm = SCM_OBJ(&scm__sc.d1561[23]); } if (!SCM_STRINGP(delim_scm)) Scm_Error("string required, but got %S", delim_scm); delim = SCM_STRING(delim_scm); if (SCM_ARGCNT > 2+1) { grammar_scm = SCM_SUBRARGS[2]; } else { grammar_scm = scm__rc.d1562[30]; } grammar = (grammar_scm); { { ScmObj SCM_RESULT; #line 79 "libstr.scm" {int gm=0; if ( SCM_EQ(grammar,scm__rc.d1562[30])){gm=(SCM_STRING_JOIN_INFIX);}else if( SCM_EQ(grammar,scm__rc.d1562[33])){gm=(SCM_STRING_JOIN_STRICT_INFIX);}else if( SCM_EQ(grammar,scm__rc.d1562[32])){gm=(SCM_STRING_JOIN_SUFFIX);}else if( SCM_EQ(grammar,scm__rc.d1562[31])){gm=(SCM_STRING_JOIN_PREFIX);} else { SCM_TYPE_ERROR(grammar,"one of the symbols infix, strict-infix, suffix, or prefix");} #line 87 "libstr.scm" {SCM_RESULT=(Scm_StringJoin(strs,delim,gm));goto SCM_STUB_RETURN;}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_TOlist(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj start_scm; ScmObj start; ScmObj end_scm; ScmObj end; ScmObj SCM_SUBRARGS[5]; SCM_ENTER_SUBR("string->list"); if (SCM_ARGCNT >= 4 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<5; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); if (SCM_ARGCNT > 1+1) { start_scm = SCM_SUBRARGS[1]; } else { start_scm = SCM_UNBOUND; } start = (start_scm); if (SCM_ARGCNT > 2+1) { end_scm = SCM_SUBRARGS[2]; } else { end_scm = SCM_UNBOUND; } end = (end_scm); { { ScmObj SCM_RESULT; #line 99 "libstr.scm" {SCM_RESULT=(Scm_StringToList(SCM_STRING(Scm_MaybeSubstring(str,start,end))));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrlist_TOstring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj list_scm; ScmObj list; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("list->string"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } list_scm = SCM_SUBRARGS[0]; if (!SCM_LISTP(list_scm)) Scm_Error("list required, but got %S", list_scm); list = (list_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_ListToString(list));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_length(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-length"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); { { ScmSmallInt SCM_RESULT; #line 108 "libstr.scm" {SCM_RESULT=(SCM_STRING_BODY_LENGTH(SCM_STRING_BODY(str)));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_INT(SCM_RESULT)); } } } static ScmObj libstrstring_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj k_scm; ScmObj k; ScmObj fallback_scm; ScmObj fallback; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string-ref"); if (SCM_ARGCNT >= 4 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); k_scm = SCM_SUBRARGS[1]; k = (k_scm); if (SCM_ARGCNT > 2+1) { fallback_scm = SCM_SUBRARGS[2]; } else { fallback_scm = SCM_UNBOUND; } fallback = (fallback_scm); { { ScmObj SCM_RESULT; #line 111 "libstr.scm" {ScmChar r=Scm_StringRefCursor(str,k,SCM_UNBOUNDP(fallback)); {SCM_RESULT=((((r)==(SCM_CHAR_INVALID))?(fallback):(SCM_MAKE_CHAR(r))));goto SCM_STUB_RETURN;}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrsubstring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj start_scm; ScmObj start; ScmObj end_scm; ScmObj end; ScmObj SCM_SUBRARGS[3]; SCM_ENTER_SUBR("substring"); for (int SCM_i=0; SCM_i<3; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); start_scm = SCM_SUBRARGS[1]; start = (start_scm); end_scm = SCM_SUBRARGS[2]; end = (end_scm); { { ScmObj SCM_RESULT; #line 114 "libstr.scm" {SCM_RESULT=(Scm_SubstringCursor(str,start,end));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_size(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-size"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); { { ScmSmallInt SCM_RESULT; #line 118 "libstr.scm" {SCM_RESULT=(SCM_STRING_BODY_SIZE(SCM_STRING_BODY(str)));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_INT(SCM_RESULT)); } } } static ScmObj libstr_25maybe_substring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj start_scm; ScmObj start; ScmObj end_scm; ScmObj end; ScmObj SCM_SUBRARGS[5]; SCM_ENTER_SUBR("%maybe-substring"); if (SCM_ARGCNT >= 4 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<5; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); if (SCM_ARGCNT > 1+1) { start_scm = SCM_SUBRARGS[1]; } else { start_scm = SCM_UNBOUND; } start = (start_scm); if (SCM_ARGCNT > 2+1) { end_scm = SCM_SUBRARGS[2]; } else { end_scm = SCM_UNBOUND; } end = (end_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_MaybeSubstring(str,start,end));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstr_25hash_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj bound_scm; ScmObj bound; ScmObj SCM_SUBRARGS[3]; SCM_ENTER_SUBR("%hash-string"); if (SCM_ARGCNT >= 3 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<3; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); if (SCM_ARGCNT > 1+1) { bound_scm = SCM_SUBRARGS[1]; } else { bound_scm = SCM_UNBOUND; } bound = (bound_scm); { { u_long SCM_RESULT; #line 125 "libstr.scm" {u_long modulo=0; if ((SCM_UNBOUNDP(bound))||(SCM_UNDEFINEDP(bound))){ modulo=(0);}else if( SCM_INTP(bound)){modulo=(SCM_INT_VALUE(bound));}else if( SCM_BIGNUMP(bound)){ modulo=( Scm_BignumToUI(SCM_BIGNUM(bound),SCM_CLAMP_BOTH,NULL));} else { Scm_Error("argument out of domain: %S",bound);} {SCM_RESULT=(Scm_HashString(str,modulo));goto SCM_STUB_RETURN;}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(Scm_MakeIntegerFromUI(SCM_RESULT)); } } } int string_scan_mode(ScmObj mode){{ #line 138 "libstr.scm" {int rmode=0; if ( SCM_EQ(mode,scm__rc.d1562[73])){rmode=(SCM_STRING_SCAN_INDEX);}else if( SCM_EQ(mode,scm__rc.d1562[72])){rmode=(SCM_STRING_SCAN_CURSOR);}else if( SCM_EQ(mode,scm__rc.d1562[71])){rmode=(SCM_STRING_SCAN_BEFORE);}else if( SCM_EQ(mode,scm__rc.d1562[70])){rmode=(SCM_STRING_SCAN_AFTER);}else if( SCM_EQ(mode,scm__rc.d1562[69])){rmode=(SCM_STRING_SCAN_BEFORE2);}else if( SCM_EQ(mode,scm__rc.d1562[68])){rmode=(SCM_STRING_SCAN_AFTER2);}else if( SCM_EQ(mode,scm__rc.d1562[67])){rmode=(SCM_STRING_SCAN_BOTH);} else { Scm_Error("bad value in mode argumet: %S, must be one of 'index, 'before, 'after, 'before*, 'after* or 'both.",mode);} #line 149 "libstr.scm" return (rmode);}}} static ScmObj libstrstring_scan(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s1_scm; ScmString* s1; ScmObj s2_scm; ScmObj s2; ScmObj mode_scm; ScmObj mode; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string-scan"); if (SCM_ARGCNT >= 4 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s1_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm); s1 = SCM_STRING(s1_scm); s2_scm = SCM_SUBRARGS[1]; s2 = (s2_scm); if (SCM_ARGCNT > 2+1) { mode_scm = SCM_SUBRARGS[2]; } else { mode_scm = scm__rc.d1562[73]; } mode = (mode_scm); { { ScmObj SCM_RESULT; #line 153 "libstr.scm" {int rmode=string_scan_mode(mode); if ( SCM_STRINGP(s2)){{SCM_RESULT=(Scm_StringScan(s1,SCM_STRING(s2),rmode));goto SCM_STUB_RETURN;}}else if( SCM_CHARP(s2)){ {SCM_RESULT=(Scm_StringScanChar(s1,SCM_CHAR_VALUE(s2),rmode));goto SCM_STUB_RETURN;}} else { Scm_Error("bad type of argument for s2: %S, must be either string or character",s2); #line 160 "libstr.scm" {SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_scan_right(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s1_scm; ScmString* s1; ScmObj s2_scm; ScmObj s2; ScmObj mode_scm; ScmObj mode; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string-scan-right"); if (SCM_ARGCNT >= 4 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s1_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm); s1 = SCM_STRING(s1_scm); s2_scm = SCM_SUBRARGS[1]; s2 = (s2_scm); if (SCM_ARGCNT > 2+1) { mode_scm = SCM_SUBRARGS[2]; } else { mode_scm = scm__rc.d1562[73]; } mode = (mode_scm); { { ScmObj SCM_RESULT; #line 163 "libstr.scm" {int rmode=string_scan_mode(mode); if ( SCM_STRINGP(s2)){{SCM_RESULT=(Scm_StringScanRight(s1,SCM_STRING(s2),rmode));goto SCM_STUB_RETURN;}}else if( SCM_CHARP(s2)){ {SCM_RESULT=(Scm_StringScanCharRight(s1,SCM_CHAR_VALUE(s2),rmode));goto SCM_STUB_RETURN;}} else { Scm_Error("bad type of argument for s2: %S, must be either string or character",s2); #line 170 "libstr.scm" {SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstr_25string_split_by_char(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj ch_scm; ScmChar ch; ScmObj limit_scm; int limit; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("%string-split-by-char"); if (SCM_ARGCNT >= 4 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); ch_scm = SCM_SUBRARGS[1]; if (!SCM_CHARP(ch_scm)) Scm_Error("character required, but got %S", ch_scm); ch = SCM_CHAR_VALUE(ch_scm); if (SCM_ARGCNT > 2+1) { limit_scm = SCM_SUBRARGS[2]; } else { limit_scm = SCM_MAKE_INT(-1); } if (!SCM_INTEGERP(limit_scm)) Scm_Error("C integer required, but got %S", limit_scm); limit = Scm_GetInteger(limit_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_StringSplitByCharWithLimit(s,ch,limit));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstr_25string_replace_bodyX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj target_scm; ScmString* target; ScmObj source_scm; ScmString* source; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("%string-replace-body!"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } target_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(target_scm)) Scm_Error("string required, but got %S", target_scm); target = SCM_STRING(target_scm); source_scm = SCM_SUBRARGS[1]; if (!SCM_STRINGP(source_scm)) Scm_Error("string required, but got %S", source_scm); source = SCM_STRING(source_scm); { { ScmObj SCM_RESULT; #line 279 "libstr.scm" {SCM_RESULT=(Scm_StringReplaceBody(target,SCM_STRING_BODY(source)));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_build_indexX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-build-index!"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); { { ScmString* SCM_RESULT; #line 330 "libstr.scm" Scm_StringBodyBuildIndex(((ScmStringBody* )(SCM_STRING_BODY(s)))); #line 331 "libstr.scm" {SCM_RESULT=(s);goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_fast_indexableP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-fast-indexable?"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); { { int SCM_RESULT; #line 334 "libstr.scm" {SCM_RESULT=(Scm_StringBodyFastIndexableP(SCM_STRING_BODY(s)));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstr_25string_index_dump(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj p_scm; ScmPort* p; ScmObj SCM_SUBRARGS[3]; SCM_ENTER_SUBR("%string-index-dump"); if (SCM_ARGCNT >= 3 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<3; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); if (SCM_ARGCNT > 1+1) { p_scm = SCM_SUBRARGS[1]; } else { p_scm = SCM_OBJ(SCM_CUROUT); } if (!SCM_PORTP(p_scm)) Scm_Error("port required, but got %S", p_scm); p = SCM_PORT(p_scm); { #line 338 "libstr.scm" Scm_StringBodyIndexDump(SCM_STRING_BODY(s),p); goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_UNDEFINED); } } static ScmObj libstrstring_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s1_scm; ScmString* s1; ScmObj s2_scm; ScmString* s2; ScmObj ss_scm; ScmObj ss; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string=?"); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s1_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm); s1 = SCM_STRING(s1_scm); s2_scm = SCM_SUBRARGS[1]; if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm); s2 = SCM_STRING(s2_scm); ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1]; ss = (ss_scm); { { int SCM_RESULT; #line 363 "libstr.scm" 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;}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_LTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s1_scm; ScmString* s1; ScmObj s2_scm; ScmString* s2; ScmObj ss_scm; ScmObj ss; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string?"); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s1_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm); s1 = SCM_STRING(s1_scm); s2_scm = SCM_SUBRARGS[1]; if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm); s2 = SCM_STRING(s2_scm); ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1]; ss = (ss_scm); { { int SCM_RESULT; #line 369 "libstr.scm" 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;}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s1_scm; ScmString* s1; ScmObj s2_scm; ScmString* s2; ScmObj ss_scm; ScmObj ss; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string<=?"); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s1_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm); s1 = SCM_STRING(s1_scm); s2_scm = SCM_SUBRARGS[1]; if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm); s2 = SCM_STRING(s2_scm); ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1]; ss = (ss_scm); { { int SCM_RESULT; #line 372 "libstr.scm" 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;}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_GT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s1_scm; ScmString* s1; ScmObj s2_scm; ScmString* s2; ScmObj ss_scm; ScmObj ss; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string>=?"); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s1_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm); s1 = SCM_STRING(s1_scm); s2_scm = SCM_SUBRARGS[1]; if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm); s2 = SCM_STRING(s2_scm); ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1]; ss = (ss_scm); { { int SCM_RESULT; #line 375 "libstr.scm" 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;}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_ci_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s1_scm; ScmString* s1; ScmObj s2_scm; ScmString* s2; ScmObj ss_scm; ScmObj ss; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string-ci=?"); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s1_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm); s1 = SCM_STRING(s1_scm); s2_scm = SCM_SUBRARGS[1]; if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm); s2 = SCM_STRING(s2_scm); ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1]; ss = (ss_scm); { { int SCM_RESULT; #line 379 "libstr.scm" 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;}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_ci_LTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s1_scm; ScmString* s1; ScmObj s2_scm; ScmString* s2; ScmObj ss_scm; ScmObj ss; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string-ci?"); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s1_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm); s1 = SCM_STRING(s1_scm); s2_scm = SCM_SUBRARGS[1]; if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm); s2 = SCM_STRING(s2_scm); ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1]; ss = (ss_scm); { { int SCM_RESULT; #line 385 "libstr.scm" 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;}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_ci_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s1_scm; ScmString* s1; ScmObj s2_scm; ScmString* s2; ScmObj ss_scm; ScmObj ss; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string-ci<=?"); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s1_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm); s1 = SCM_STRING(s1_scm); s2_scm = SCM_SUBRARGS[1]; if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm); s2 = SCM_STRING(s2_scm); ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1]; ss = (ss_scm); { { int SCM_RESULT; #line 388 "libstr.scm" 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;}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_ci_GT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s1_scm; ScmString* s1; ScmObj s2_scm; ScmString* s2; ScmObj ss_scm; ScmObj ss; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string-ci>=?"); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s1_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm); s1 = SCM_STRING(s1_scm); s2_scm = SCM_SUBRARGS[1]; if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm); s2 = SCM_STRING(s2_scm); ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1]; ss = (ss_scm); { { int SCM_RESULT; #line 391 "libstr.scm" 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;}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_complete_TOincomplete(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-complete->incomplete"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); { { ScmObj SCM_RESULT; #line 483 "libstr.scm" {SCM_RESULT=(Scm_CopyStringWithFlags(str,SCM_STRING_INCOMPLETE,SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_incomplete_TOcomplete(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj handling_scm; ScmObj handling; ScmObj filler_scm; ScmObj filler; ScmObj SCM_SUBRARGS[5]; SCM_ENTER_SUBR("string-incomplete->complete"); if (SCM_ARGCNT >= 4 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<5; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); if (SCM_ARGCNT > 1+1) { handling_scm = SCM_SUBRARGS[1]; } else { handling_scm = SCM_FALSE; } handling = (handling_scm); if (SCM_ARGCNT > 2+1) { filler_scm = SCM_SUBRARGS[2]; } else { filler_scm = SCM_FALSE; } filler = (filler_scm); { { ScmObj SCM_RESULT; #line 493 "libstr.scm" if (SCM_CHARP(handling)){{ filler=(handling),handling=( scm__rc.d1562[283]);}} #line 497 "libstr.scm" if (!((SCM_FALSEP(handling))||( Scm_Memq(handling,SCM_OBJ(&scm__rc.d1563[588]))))){{ Scm_Error("Either #f, :omit, :replace or :escape required, but got:",handling);}} #line 501 "libstr.scm" if (!((SCM_FALSEP(filler))||(SCM_CHARP(filler)))){{ Scm_Error("Either a character or #f required, but got:",filler);}} #line 503 "libstr.scm" {const ScmStringBody* b=SCM_STRING_BODY(str); if (!(SCM_STRING_BODY_INCOMPLETE_P(b))){{ #line 506 "libstr.scm" {SCM_RESULT=(Scm_CopyString(str));goto SCM_STUB_RETURN;}}} {const char* s=SCM_STRING_BODY_START(b);ScmSmallInt siz= SCM_STRING_BODY_SIZE(b);ScmSmallInt len= Scm_MBLen(s,(s)+(siz)); if ((len)>=(0)){{ #line 512 "libstr.scm" {SCM_RESULT=(Scm_MakeString(s,siz,len,0));goto SCM_STUB_RETURN;}}} if (SCM_FALSEP(handling)){{ #line 515 "libstr.scm" {SCM_RESULT=(SCM_FALSE);goto SCM_STUB_RETURN;}}} {const char* p=s;ScmDString ds;ScmChar echar= #line 518 "libstr.scm" ((SCM_CHARP(filler))?( SCM_CHAR_VALUE(filler)):('\x3f')); #line 521 "libstr.scm" Scm_DStringInit(&(ds)); while((p)<((s)+(siz))){ {ScmChar ch; if (((p)+(SCM_CHAR_NFOLLOWS(*(p))))>=((s)+(siz))){ ch=(SCM_CHAR_INVALID);} else { SCM_CHAR_GET(p,ch);} if ( (SCM_EQ(handling,scm__rc.d1562[285]))&&( (ch)==(echar))){ Scm_DStringPutc(&(ds),ch); Scm_DStringPutc(&(ds),ch); (p)+=(SCM_CHAR_NBYTES(ch));}else if( (ch)!=(SCM_CHAR_INVALID)){ Scm_DStringPutc(&(ds),ch); (p)+=(SCM_CHAR_NBYTES(ch));}else if( SCM_EQ(handling,scm__rc.d1562[284])){++(p);}else if( SCM_EQ(handling,scm__rc.d1562[283])){ Scm_DStringPutc(&(ds),echar); ++(p);}else if( SCM_EQ(handling,scm__rc.d1562[285])){ {u_char octet=*(p); Scm_DStringPutc(&(ds),echar); Scm_DStringPutc(&(ds),Scm_IntToDigit((octet)>>(4),16,0,0)); Scm_DStringPutc(&(ds),Scm_IntToDigit((octet)&(15),16,0,0)); ++(p);}}}} {SCM_RESULT=(Scm_DStringGet(&(ds),0));goto SCM_STUB_RETURN;}}}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrmake_byte_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj size_scm; int size; ScmObj byte_scm; u_int byte; ScmObj SCM_SUBRARGS[3]; SCM_ENTER_SUBR("make-byte-string"); if (SCM_ARGCNT >= 3 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<3; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } size_scm = SCM_SUBRARGS[0]; if (!SCM_INTEGERP(size_scm)) Scm_Error("32bit signed integer required, but got %S", size_scm); size = Scm_GetInteger32(size_scm); if (SCM_ARGCNT > 1+1) { byte_scm = SCM_SUBRARGS[1]; } else { byte_scm = SCM_MAKE_INT(0); } if (!SCM_UINTP(byte_scm)) Scm_Error("8bit unsigned integer required, but got %S", byte_scm); byte = Scm_GetIntegerU8(byte_scm); { { ScmObj SCM_RESULT; #line 549 "libstr.scm" {char* s; if ((size)<(0)){{Scm_Error("size out of bound: %d",size);}} s=(SCM_NEW_ATOMIC2(char*,size)); memset(s,byte,size); {SCM_RESULT=(Scm_MakeString(s,size,size,SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_byte_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj k_scm; ScmSmallInt k; ScmObj fallback_scm; ScmObj fallback; ScmObj SCM_SUBRARGS[4]; SCM_ENTER_SUBR("string-byte-ref"); if (SCM_ARGCNT >= 4 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<4; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); k_scm = SCM_SUBRARGS[1]; if (!SCM_INTP(k_scm)) Scm_Error("small integer required, but got %S", k_scm); k = SCM_INT_VALUE(k_scm); if (SCM_ARGCNT > 2+1) { fallback_scm = SCM_SUBRARGS[2]; } else { fallback_scm = SCM_UNBOUND; } fallback = (fallback_scm); { { ScmObj SCM_RESULT; #line 556 "libstr.scm" {int r=Scm_StringByteRef(str,k,SCM_UNBOUNDP(fallback)); {SCM_RESULT=((((r)<(0))?(fallback):(SCM_MAKE_INT(r))));goto SCM_STUB_RETURN;}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrbyte_substring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj start_scm; ScmSmallInt start; ScmObj end_scm; ScmSmallInt end; ScmObj SCM_SUBRARGS[3]; SCM_ENTER_SUBR("byte-substring"); for (int SCM_i=0; SCM_i<3; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); start_scm = SCM_SUBRARGS[1]; if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm); start = SCM_INT_VALUE(start_scm); end_scm = SCM_SUBRARGS[2]; if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm); end = SCM_INT_VALUE(end_scm); { { ScmObj SCM_RESULT; #line 560 "libstr.scm" {SCM_RESULT=(Scm_Substring(str,start,end,TRUE));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } #if GAUCHE_STRING_POINTER static ScmObj libstrmake_string_pointer(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj str_scm; ScmString* str; ScmObj index_scm; ScmSmallInt index; ScmObj start_scm; ScmSmallInt start; ScmObj end_scm; ScmSmallInt end; ScmObj SCM_SUBRARGS[7]; SCM_ENTER_SUBR("make-string-pointer"); if (SCM_ARGCNT >= 5 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1))) Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1); for (int SCM_i=0; SCM_i<7; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } str_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm); str = SCM_STRING(str_scm); if (SCM_ARGCNT > 1+1) { index_scm = SCM_SUBRARGS[1]; } else { index_scm = SCM_MAKE_INT(0); } if (!SCM_INTP(index_scm)) Scm_Error("small integer required, but got %S", index_scm); index = SCM_INT_VALUE(index_scm); if (SCM_ARGCNT > 2+1) { start_scm = SCM_SUBRARGS[2]; } else { start_scm = SCM_MAKE_INT(0); } if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm); start = SCM_INT_VALUE(start_scm); if (SCM_ARGCNT > 3+1) { end_scm = SCM_SUBRARGS[3]; } else { end_scm = SCM_MAKE_INT(-1); } if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm); end = SCM_INT_VALUE(end_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_MakeStringPointer(str,index,start,end));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointerP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj obj_scm; ScmObj obj; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-pointer?"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } obj_scm = SCM_SUBRARGS[0]; obj = (obj_scm); { { int SCM_RESULT; {SCM_RESULT=(SCM_STRING_POINTERP(obj));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj sp_scm; ScmStringPointer* sp; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-pointer-ref"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } sp_scm = SCM_SUBRARGS[0]; if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm); sp = SCM_STRING_POINTER(sp_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_StringPointerRef(sp));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_nextX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj sp_scm; ScmStringPointer* sp; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-pointer-next!"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } sp_scm = SCM_SUBRARGS[0]; if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm); sp = SCM_STRING_POINTER(sp_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_StringPointerNext(sp));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_prevX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj sp_scm; ScmStringPointer* sp; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-pointer-prev!"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } sp_scm = SCM_SUBRARGS[0]; if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm); sp = SCM_STRING_POINTER(sp_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_StringPointerPrev(sp));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj sp_scm; ScmStringPointer* sp; ScmObj index_scm; ScmSmallInt index; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("string-pointer-set!"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } sp_scm = SCM_SUBRARGS[0]; if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm); sp = SCM_STRING_POINTER(sp_scm); index_scm = SCM_SUBRARGS[1]; if (!SCM_INTP(index_scm)) Scm_Error("small integer required, but got %S", index_scm); index = SCM_INT_VALUE(index_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_StringPointerSet(sp,index));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_substring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj sp_scm; ScmStringPointer* sp; ScmObj after_scm = SCM_FALSE; ScmObj after; ScmObj SCM_SUBRARGS[1]; ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1); SCM_ENTER_SUBR("string-pointer-substring"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } sp_scm = SCM_SUBRARGS[0]; if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm); sp = SCM_STRING_POINTER(sp_scm); if (Scm_Length(SCM_OPTARGS) % 2) Scm_Error("keyword list not even: %S", SCM_OPTARGS); while (!SCM_NULLP(SCM_OPTARGS)) { if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1601[22])) { after_scm = SCM_CADR(SCM_OPTARGS); } else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS)); SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS); } after = (after_scm); { { ScmObj SCM_RESULT; #line 676 "libstr.scm" {SCM_RESULT=(Scm_StringPointerSubstring(sp,!(SCM_FALSEP(after))));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_index(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj sp_scm; ScmStringPointer* sp; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-pointer-index"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } sp_scm = SCM_SUBRARGS[0]; if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm); sp = SCM_STRING_POINTER(sp_scm); { { int SCM_RESULT; #line 678 "libstr.scm" {SCM_RESULT=((sp)->index);goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(Scm_MakeInteger(SCM_RESULT)); } } } #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_copy(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj sp_scm; ScmStringPointer* sp; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-pointer-copy"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } sp_scm = SCM_SUBRARGS[0]; if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm); sp = SCM_STRING_POINTER(sp_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_StringPointerCopy(sp));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstrstring_pointer_byte_index(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj sp_scm; ScmStringPointer* sp; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-pointer-byte-index"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } sp_scm = SCM_SUBRARGS[0]; if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm); sp = SCM_STRING_POINTER(sp_scm); { { int SCM_RESULT; #line 682 "libstr.scm" {SCM_RESULT=(((int )(((sp)->current)-((sp)->start))));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(Scm_MakeInteger(SCM_RESULT)); } } } #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER static ScmObj libstr_25string_pointer_dump(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj sp_scm; ScmStringPointer* sp; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("%string-pointer-dump"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } sp_scm = SCM_SUBRARGS[0]; if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm); sp = SCM_STRING_POINTER(sp_scm); { Scm_StringPointerDump(sp); goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_UNDEFINED); } } #endif /* GAUCHE_STRING_POINTER */ static ScmObj libstrstring_cursorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj obj_scm; ScmObj obj; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-cursor?"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } obj_scm = SCM_SUBRARGS[0]; obj = (obj_scm); { { int SCM_RESULT; {SCM_RESULT=(SCM_STRING_CURSOR_P(obj));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_start(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-cursor-start"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); { { ScmObj SCM_RESULT; #line 700 "libstr.scm" {SCM_RESULT=(Scm_MakeStringCursorFromIndex(s,0));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_end(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj SCM_SUBRARGS[1]; SCM_ENTER_SUBR("string-cursor-end"); for (int SCM_i=0; SCM_i<1; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_MakeStringCursorEnd(s));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_next(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj cursor_scm; ScmObj cursor; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("string-cursor-next"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); cursor_scm = SCM_SUBRARGS[1]; cursor = (cursor_scm); { { ScmObj SCM_RESULT; #line 704 "libstr.scm" {SCM_RESULT=(Scm_StringCursorForward(s,cursor,1));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_prev(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj cursor_scm; ScmObj cursor; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("string-cursor-prev"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); cursor_scm = SCM_SUBRARGS[1]; cursor = (cursor_scm); { { ScmObj SCM_RESULT; #line 706 "libstr.scm" {SCM_RESULT=(Scm_StringCursorBack(s,cursor,1));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_forward(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj cursor_scm; ScmObj cursor; ScmObj nchars_scm; ScmSmallInt nchars; ScmObj SCM_SUBRARGS[3]; SCM_ENTER_SUBR("string-cursor-forward"); for (int SCM_i=0; SCM_i<3; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); cursor_scm = SCM_SUBRARGS[1]; cursor = (cursor_scm); nchars_scm = SCM_SUBRARGS[2]; if (!SCM_INTP(nchars_scm)) Scm_Error("small integer required, but got %S", nchars_scm); nchars = SCM_INT_VALUE(nchars_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_StringCursorForward(s,cursor,nchars));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_back(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj cursor_scm; ScmObj cursor; ScmObj nchars_scm; ScmSmallInt nchars; ScmObj SCM_SUBRARGS[3]; SCM_ENTER_SUBR("string-cursor-back"); for (int SCM_i=0; SCM_i<3; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); cursor_scm = SCM_SUBRARGS[1]; cursor = (cursor_scm); nchars_scm = SCM_SUBRARGS[2]; if (!SCM_INTP(nchars_scm)) Scm_Error("small integer required, but got %S", nchars_scm); nchars = SCM_INT_VALUE(nchars_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_StringCursorBack(s,cursor,nchars));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_index_TOcursor(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj index_scm; ScmObj index; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("string-index->cursor"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); index_scm = SCM_SUBRARGS[1]; index = (index_scm); { { ScmObj SCM_RESULT; #line 712 "libstr.scm" if (SCM_STRING_CURSOR_P(index)){ {SCM_RESULT=(index);goto SCM_STUB_RETURN;}} else { {SCM_RESULT=(Scm_MakeStringCursorFromIndex(s,Scm_GetInteger(index)));goto SCM_STUB_RETURN;}} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_TOindex(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj cursor_scm; ScmObj cursor; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("string-cursor->index"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); cursor_scm = SCM_SUBRARGS[1]; cursor = (cursor_scm); { { ScmObj SCM_RESULT; {SCM_RESULT=(Scm_StringCursorIndex(s,cursor));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj cursor1_scm; ScmObj cursor1; ScmObj cursor2_scm; ScmObj cursor2; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("string-cursor=?"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } cursor1_scm = SCM_SUBRARGS[0]; cursor1 = (cursor1_scm); cursor2_scm = SCM_SUBRARGS[1]; cursor2 = (cursor2_scm); { { int SCM_RESULT; #line 719 "libstr.scm" {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumEq));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_LTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj cursor1_scm; ScmObj cursor1; ScmObj cursor2_scm; ScmObj cursor2; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("string-cursor?"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } cursor1_scm = SCM_SUBRARGS[0]; cursor1 = (cursor1_scm); cursor2_scm = SCM_SUBRARGS[1]; cursor2 = (cursor2_scm); { { int SCM_RESULT; #line 725 "libstr.scm" {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumGT));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj cursor1_scm; ScmObj cursor1; ScmObj cursor2_scm; ScmObj cursor2; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("string-cursor<=?"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } cursor1_scm = SCM_SUBRARGS[0]; cursor1 = (cursor1_scm); cursor2_scm = SCM_SUBRARGS[1]; cursor2 = (cursor2_scm); { { int SCM_RESULT; #line 728 "libstr.scm" {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumLE));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_GT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj cursor1_scm; ScmObj cursor1; ScmObj cursor2_scm; ScmObj cursor2; ScmObj SCM_SUBRARGS[2]; SCM_ENTER_SUBR("string-cursor>=?"); for (int SCM_i=0; SCM_i<2; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } cursor1_scm = SCM_SUBRARGS[0]; cursor1 = (cursor1_scm); cursor2_scm = SCM_SUBRARGS[1]; cursor2 = (cursor2_scm); { { int SCM_RESULT; #line 731 "libstr.scm" {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumGE));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); } } } static ScmObj libstrstring_cursor_diff(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED) { ScmObj s_scm; ScmString* s; ScmObj start_scm; ScmObj start; ScmObj end_scm; ScmObj end; ScmObj SCM_SUBRARGS[3]; SCM_ENTER_SUBR("string-cursor-diff"); for (int SCM_i=0; SCM_i<3; SCM_i++) { SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i); } s_scm = SCM_SUBRARGS[0]; if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm); s = SCM_STRING(s_scm); start_scm = SCM_SUBRARGS[1]; start = (start_scm); end_scm = SCM_SUBRARGS[2]; end = (end_scm); { { ScmObj SCM_RESULT; #line 734 "libstr.scm" {SCM_RESULT=(Scm_Sub(Scm_StringCursorIndex(s,end), Scm_StringCursorIndex(s,start)));goto SCM_STUB_RETURN;} goto SCM_STUB_RETURN; SCM_STUB_RETURN: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT)); } } } static ScmCompiledCode *toplevels[] = { SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[1])), SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[9])), SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[14])), SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[16])), SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[20])), SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[24])), SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[28])), SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[35])), NULL /*termination*/ }; void Scm_Init_libstr() { Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule()))); Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule()))); Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule()))); scm__rc.d1562[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[0])),TRUE); /* string? */ scm__rc.d1562[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[1])),TRUE); /* obj */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1]), scm__rc.d1562[1]); scm__rc.d1562[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2])),TRUE); /* source-info */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[4]), scm__rc.d1562[2]); scm__rc.d1562[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[4])),TRUE); /* bind-info */ scm__rc.d1562[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[5])),TRUE); /* scheme */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[5]), scm__rc.d1562[0]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[6]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[7]), scm__rc.d1562[3]); scm__rc.d1562[5] = Scm_MakeExtendedPair(scm__rc.d1562[0], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[9])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string?")), SCM_OBJ(&libstrstringP__STUB), SCM_BINDING_INLINABLE); libstrstringP__STUB.common.info = scm__rc.d1562[5]; Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule()))); scm__rc.d1562[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[6])),TRUE); /* string-incomplete? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[12]), scm__rc.d1562[2]); scm__rc.d1562[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[7])),TRUE); /* gauche */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[13]), scm__rc.d1562[6]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[14]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[15]), scm__rc.d1562[3]); scm__rc.d1562[8] = Scm_MakeExtendedPair(scm__rc.d1562[6], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[17])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-incomplete?")), SCM_OBJ(&libstrstring_incompleteP__STUB), 0); libstrstring_incompleteP__STUB.common.info = scm__rc.d1562[8]; scm__rc.d1562[9] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[8])),TRUE); /* string-immutable? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[20]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[21]), scm__rc.d1562[9]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[22]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[23]), scm__rc.d1562[3]); scm__rc.d1562[10] = Scm_MakeExtendedPair(scm__rc.d1562[9], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[25])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-immutable?")), SCM_OBJ(&libstrstring_immutableP__STUB), 0); libstrstring_immutableP__STUB.common.info = scm__rc.d1562[10]; Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule()))); scm__rc.d1562[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[9])),TRUE); /* make-string */ scm__rc.d1562[12] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[10])),TRUE); /* len */ scm__rc.d1562[13] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[11]))); /* :optional */ scm__rc.d1562[14] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[12])),TRUE); /* c */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[26]), scm__rc.d1562[14]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[27]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[28]), scm__rc.d1562[12]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[31]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[32]), scm__rc.d1562[11]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[33]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[34]), scm__rc.d1562[3]); scm__rc.d1562[15] = Scm_MakeExtendedPair(scm__rc.d1562[11], SCM_OBJ(&scm__rc.d1563[28]), SCM_OBJ(&scm__rc.d1563[36])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("make-string")), SCM_OBJ(&libstrmake_string__STUB), 0); libstrmake_string__STUB.common.info = scm__rc.d1562[15]; scm__rc.d1562[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[13])),TRUE); /* string */ scm__rc.d1562[17] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14]))); /* :rest */ scm__rc.d1562[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[15])),TRUE); /* chars */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[37]), scm__rc.d1562[18]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[38]), scm__rc.d1562[17]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[41]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[42]), scm__rc.d1562[16]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[43]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[44]), scm__rc.d1562[3]); scm__rc.d1562[19] = Scm_MakeExtendedPair(scm__rc.d1562[16], SCM_OBJ(&scm__rc.d1563[38]), SCM_OBJ(&scm__rc.d1563[46])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string")), SCM_OBJ(&libstrstring__STUB), 0); libstrstring__STUB.common.info = scm__rc.d1562[19]; scm__rc.d1562[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[16])),TRUE); /* string-copy */ scm__rc.d1562[21] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[17])),TRUE); /* str */ scm__rc.d1562[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[18])),TRUE); /* start */ scm__rc.d1562[23] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[19])),TRUE); /* end */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[47]), scm__rc.d1562[23]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[48]), scm__rc.d1562[22]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[49]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[50]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[53]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[54]), scm__rc.d1562[20]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[55]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[56]), scm__rc.d1562[3]); scm__rc.d1562[24] = Scm_MakeExtendedPair(scm__rc.d1562[20], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[58])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-copy")), SCM_OBJ(&libstrstring_copy__STUB), 0); libstrstring_copy__STUB.common.info = scm__rc.d1562[24]; scm__rc.d1562[25] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[20])),TRUE); /* string-append */ scm__rc.d1562[26] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[21])),TRUE); /* args */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[59]), scm__rc.d1562[26]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[60]), scm__rc.d1562[17]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[63]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[64]), scm__rc.d1562[25]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[65]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[66]), scm__rc.d1562[3]); scm__rc.d1562[27] = Scm_MakeExtendedPair(scm__rc.d1562[25], SCM_OBJ(&scm__rc.d1563[60]), SCM_OBJ(&scm__rc.d1563[68])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-append")), SCM_OBJ(&libstrstring_append__STUB), 0); libstrstring_append__STUB.common.info = scm__rc.d1562[27]; Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule()))); scm__rc.d1562[28] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[22])),TRUE); /* string-copy-immutable */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[71]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[72]), scm__rc.d1562[28]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[73]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[74]), scm__rc.d1562[3]); scm__rc.d1562[29] = Scm_MakeExtendedPair(scm__rc.d1562[28], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[76])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-copy-immutable")), SCM_OBJ(&libstrstring_copy_immutable__STUB), 0); libstrstring_copy_immutable__STUB.common.info = scm__rc.d1562[29]; scm__rc.d1562[30] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[24])),TRUE); /* infix */ scm__rc.d1562[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[26])),TRUE); /* prefix */ scm__rc.d1562[32] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[27])),TRUE); /* suffix */ scm__rc.d1562[33] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28])),TRUE); /* strict-infix */ scm__rc.d1562[34] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[25])),TRUE); /* string-join */ scm__rc.d1562[35] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[29])),TRUE); /* strs */ scm__rc.d1562[36] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[30])),TRUE); /* delim */ scm__rc.d1562[37] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[31])),TRUE); /* grammar */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[77]), scm__rc.d1562[37]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[78]), scm__rc.d1562[36]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[79]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[80]), scm__rc.d1562[35]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[83]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[84]), scm__rc.d1562[34]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[85]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[86]), scm__rc.d1562[3]); scm__rc.d1562[38] = Scm_MakeExtendedPair(scm__rc.d1562[34], SCM_OBJ(&scm__rc.d1563[80]), SCM_OBJ(&scm__rc.d1563[88])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-join")), SCM_OBJ(&libstrstring_join__STUB), 0); libstrstring_join__STUB.common.info = scm__rc.d1562[38]; scm__rc.d1562[39] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[32])),TRUE); /* string-interpolate */ scm__rc.d1562[41] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[7]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */ scm__rc.d1562[40] = Scm_MakeIdentifier(scm__rc.d1562[39], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-interpolate */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[91]), scm__rc.d1562[2]); scm__rc.d1562[42] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[33])),TRUE); /* unused-args */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[92]), scm__rc.d1562[42]); scm__rc.d1562[43] = Scm_MakeExtendedPair(SCM_FALSE, scm__rc.d1562[26], SCM_OBJ(&scm__rc.d1563[94])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[95]), scm__rc.d1562[43]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[0]))[1] = SCM_WORD(scm__rc.d1562[40]); scm__rc.d1562[45] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[34])),TRUE); /* define-reader-ctor */ scm__rc.d1562[44] = Scm_MakeIdentifier(scm__rc.d1562[45], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#define-reader-ctor */ scm__rc.d1562[46] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[35])),TRUE); /* %toplevel */ SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[1]))->name = scm__rc.d1562[46];/* %toplevel */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[5]))[1] = SCM_WORD(scm__rc.d1562[39]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[5]))[5] = SCM_WORD(scm__rc.d1562[44]); Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule()))); scm__rc.d1562[47] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[36])),TRUE); /* string->list */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[98]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[99]), scm__rc.d1562[47]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[100]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[101]), scm__rc.d1562[3]); scm__rc.d1562[48] = Scm_MakeExtendedPair(scm__rc.d1562[47], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[103])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string->list")), SCM_OBJ(&libstrstring_TOlist__STUB), 0); libstrstring_TOlist__STUB.common.info = scm__rc.d1562[48]; scm__rc.d1562[49] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[37])),TRUE); /* list->string */ scm__rc.d1562[50] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[38])),TRUE); /* list */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[104]), scm__rc.d1562[50]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[107]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[108]), scm__rc.d1562[49]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[109]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[110]), scm__rc.d1562[3]); scm__rc.d1562[51] = Scm_MakeExtendedPair(scm__rc.d1562[49], SCM_OBJ(&scm__rc.d1563[104]), SCM_OBJ(&scm__rc.d1563[112])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("list->string")), SCM_OBJ(&libstrlist_TOstring__STUB), 0); libstrlist_TOstring__STUB.common.info = scm__rc.d1562[51]; Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule()))); scm__rc.d1562[52] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[39])),TRUE); /* string-length */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[113]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[116]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[117]), scm__rc.d1562[52]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[118]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[119]), scm__rc.d1562[3]); scm__rc.d1562[53] = Scm_MakeExtendedPair(scm__rc.d1562[52], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[121])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-length")), SCM_OBJ(&libstrstring_length__STUB), SCM_BINDING_INLINABLE); libstrstring_length__STUB.common.info = scm__rc.d1562[53]; scm__rc.d1562[54] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[40])),TRUE); /* string-ref */ scm__rc.d1562[55] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[41])),TRUE); /* k */ scm__rc.d1562[56] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[42])),TRUE); /* fallback */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[122]), scm__rc.d1562[56]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[123]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[124]), scm__rc.d1562[55]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[125]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[128]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[129]), scm__rc.d1562[54]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[130]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[131]), scm__rc.d1562[3]); scm__rc.d1562[57] = Scm_MakeExtendedPair(scm__rc.d1562[54], SCM_OBJ(&scm__rc.d1563[125]), SCM_OBJ(&scm__rc.d1563[133])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ref")), SCM_OBJ(&libstrstring_ref__STUB), SCM_BINDING_INLINABLE); libstrstring_ref__STUB.common.info = scm__rc.d1562[57]; scm__rc.d1562[58] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[43])),TRUE); /* substring */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[134]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[137]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[138]), scm__rc.d1562[58]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[139]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[140]), scm__rc.d1562[3]); scm__rc.d1562[59] = Scm_MakeExtendedPair(scm__rc.d1562[58], SCM_OBJ(&scm__rc.d1563[134]), SCM_OBJ(&scm__rc.d1563[142])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("substring")), SCM_OBJ(&libstrsubstring__STUB), 0); libstrsubstring__STUB.common.info = scm__rc.d1562[59]; Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule()))); scm__rc.d1562[60] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[44])),TRUE); /* string-size */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[145]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[146]), scm__rc.d1562[60]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[147]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[148]), scm__rc.d1562[3]); scm__rc.d1562[61] = Scm_MakeExtendedPair(scm__rc.d1562[60], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[150])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-size")), SCM_OBJ(&libstrstring_size__STUB), SCM_BINDING_INLINABLE); libstrstring_size__STUB.common.info = scm__rc.d1562[61]; scm__rc.d1562[62] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[45])),TRUE); /* %maybe-substring */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[153]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[154]), scm__rc.d1562[62]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[155]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[156]), scm__rc.d1562[3]); scm__rc.d1562[63] = Scm_MakeExtendedPair(scm__rc.d1562[62], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[158])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%maybe-substring")), SCM_OBJ(&libstr_25maybe_substring__STUB), 0); libstr_25maybe_substring__STUB.common.info = scm__rc.d1562[63]; scm__rc.d1562[64] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[46])),TRUE); /* %hash-string */ scm__rc.d1562[65] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[47])),TRUE); /* bound */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[159]), scm__rc.d1562[65]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[160]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[161]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[164]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[165]), scm__rc.d1562[64]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[166]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[167]), scm__rc.d1562[3]); scm__rc.d1562[66] = Scm_MakeExtendedPair(scm__rc.d1562[64], SCM_OBJ(&scm__rc.d1563[161]), SCM_OBJ(&scm__rc.d1563[169])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%hash-string")), SCM_OBJ(&libstr_25hash_string__STUB), 0); libstr_25hash_string__STUB.common.info = scm__rc.d1562[66]; Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule()))); scm__rc.d1562[67] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[48])),TRUE); /* both */ scm__rc.d1562[68] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[49])),TRUE); /* after* */ scm__rc.d1562[69] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[50])),TRUE); /* before* */ scm__rc.d1562[70] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[51])),TRUE); /* after */ scm__rc.d1562[71] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[52])),TRUE); /* before */ scm__rc.d1562[72] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[53])),TRUE); /* cursor */ scm__rc.d1562[73] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[54])),TRUE); /* index */ scm__rc.d1562[74] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[55])),TRUE); /* string-scan */ scm__rc.d1562[75] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[56])),TRUE); /* s1 */ scm__rc.d1562[76] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[57])),TRUE); /* s2 */ scm__rc.d1562[77] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[58])),TRUE); /* mode */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[170]), scm__rc.d1562[77]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[171]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[172]), scm__rc.d1562[76]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[173]), scm__rc.d1562[75]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[176]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[177]), scm__rc.d1562[74]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[178]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[179]), scm__rc.d1562[3]); scm__rc.d1562[78] = Scm_MakeExtendedPair(scm__rc.d1562[74], SCM_OBJ(&scm__rc.d1563[173]), SCM_OBJ(&scm__rc.d1563[181])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-scan")), SCM_OBJ(&libstrstring_scan__STUB), 0); libstrstring_scan__STUB.common.info = scm__rc.d1562[78]; scm__rc.d1562[79] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[59])),TRUE); /* string-scan-right */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[184]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[185]), scm__rc.d1562[79]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[186]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[187]), scm__rc.d1562[3]); scm__rc.d1562[80] = Scm_MakeExtendedPair(scm__rc.d1562[79], SCM_OBJ(&scm__rc.d1563[173]), SCM_OBJ(&scm__rc.d1563[189])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-scan-right")), SCM_OBJ(&libstrstring_scan_right__STUB), 0); libstrstring_scan_right__STUB.common.info = scm__rc.d1562[80]; scm__rc.d1562[81] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[60])),TRUE); /* string-split */ scm__rc.d1562[82] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[62])),TRUE); /* lambda */ scm__rc.d1562[83] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[63])),TRUE); /* splitter */ scm__rc.d1562[84] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[64])),TRUE); /* quote */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[190]), scm__rc.d1562[30]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[191]), scm__rc.d1562[84]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[193]), scm__rc.d1562[37]); scm__rc.d1562[85] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[65])),TRUE); /* limit */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[195]), scm__rc.d1562[85]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[198]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[199]), scm__rc.d1562[83]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[200]), scm__rc.d1562[16]); scm__rc.d1562[86] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[66])),TRUE); /* if */ scm__rc.d1562[87] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[67])),TRUE); /* or */ scm__rc.d1562[88] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[68])),TRUE); /* not */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[201]), scm__rc.d1562[88]); scm__rc.d1562[89] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[69])),TRUE); /* integer? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[202]), scm__rc.d1562[89]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[205]), scm__rc.d1562[87]); scm__rc.d1562[90] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[70])),TRUE); /* with-module */ scm__rc.d1562[91] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[71])),TRUE); /* gauche.internal */ scm__rc.d1562[92] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[72])),TRUE); /* %string-split */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[206]), scm__rc.d1562[92]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[207]), scm__rc.d1562[91]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[208]), scm__rc.d1562[90]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[209]), scm__rc.d1562[22]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[210]), scm__rc.d1562[85]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[211]), scm__rc.d1562[37]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[213]), scm__rc.d1562[83]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[214]), scm__rc.d1562[16]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[216]), scm__rc.d1562[85]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[217]), scm__rc.d1562[37]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[218]), scm__rc.d1562[83]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[219]), scm__rc.d1562[16]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[224]), scm__rc.d1562[86]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[227]), scm__rc.d1562[82]); scm__rc.d1562[94] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[73])),TRUE); /* error */ scm__rc.d1562[93] = Scm_MakeIdentifier(scm__rc.d1562[94], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#error */ scm__rc.d1562[95] = Scm_MakeIdentifier(scm__rc.d1562[89], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#integer? */ scm__rc.d1562[96] = Scm_MakeIdentifier(scm__rc.d1562[92], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%string-split */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[230]), scm__rc.d1562[2]); scm__rc.d1562[97] = Scm_MakeExtendedPair(scm__rc.d1562[81], SCM_OBJ(&scm__rc.d1563[200]), SCM_OBJ(&scm__rc.d1563[231])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[232]), scm__rc.d1562[97]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[2]))->name = scm__rc.d1562[81];/* string-split */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[4] = SCM_WORD(scm__rc.d1562[30]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[77] = SCM_WORD(scm__rc.d1562[93]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[85] = SCM_WORD(scm__rc.d1562[95]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[91] = SCM_WORD(scm__rc.d1562[30]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[96] = SCM_WORD(scm__rc.d1562[96]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[105] = SCM_WORD(scm__rc.d1562[96]); ScmObj G1572 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[2]), NULL); Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[81]) /* string-split */, G1572,0); Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule()))); scm__rc.d1562[98] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[74])),TRUE); /* %string-split-by-char */ scm__rc.d1562[99] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[75])),TRUE); /* s */ scm__rc.d1562[100] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[76])),TRUE); /* ch */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[233]), scm__rc.d1562[85]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[234]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[235]), scm__rc.d1562[100]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[236]), scm__rc.d1562[99]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[239]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[240]), scm__rc.d1562[98]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[241]), scm__rc.d1562[91]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[242]), scm__rc.d1562[3]); scm__rc.d1562[101] = Scm_MakeExtendedPair(scm__rc.d1562[98], SCM_OBJ(&scm__rc.d1563[236]), SCM_OBJ(&scm__rc.d1563[244])); 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); libstr_25string_split_by_char__STUB.common.info = scm__rc.d1562[101]; SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[245]), scm__rc.d1562[32]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[246]), scm__rc.d1562[31]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[247]), scm__rc.d1562[33]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[248]), scm__rc.d1562[30]); 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 */ scm__rc.d1562[102] = Scm_MakeIdentifier(scm__rc.d1562[94], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#error */ scm__rc.d1562[104] = Scm_MakeIdentifier(scm__rc.d1562[89], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#integer? */ scm__rc.d1562[105] = Scm_MakeIdentifier(scm__rc.d1562[62], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%maybe-substring */ scm__rc.d1562[107] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[80])),TRUE); /* equal? */ scm__rc.d1562[106] = Scm_MakeIdentifier(scm__rc.d1562[107], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#equal? */ scm__rc.d1562[108] = Scm_MakeIdentifier(scm__rc.d1562[98], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-split-by-char */ scm__rc.d1562[110] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[82])),TRUE); /* %string-split-scanner */ scm__rc.d1562[109] = Scm_MakeIdentifier(scm__rc.d1562[110], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-split-scanner */ scm__rc.d1562[112] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[83])),TRUE); /* %string-split-by-scanner */ scm__rc.d1562[111] = Scm_MakeIdentifier(scm__rc.d1562[112], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-split-by-scanner */ scm__rc.d1562[114] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[84])),TRUE); /* last-pair */ scm__rc.d1562[113] = Scm_MakeIdentifier(scm__rc.d1562[114], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#last-pair */ scm__rc.d1562[116] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[85])),TRUE); /* drop-right */ scm__rc.d1562[115] = Scm_MakeIdentifier(scm__rc.d1562[116], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#drop-right */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[251]), scm__rc.d1562[2]); scm__rc.d1562[117] = Scm_MakeExtendedPair(scm__rc.d1562[92], SCM_OBJ(&scm__rc.d1563[219]), SCM_OBJ(&scm__rc.d1563[252])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[253]), scm__rc.d1562[117]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[3]))->name = scm__rc.d1562[92];/* %string-split */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[14] = SCM_WORD(scm__rc.d1562[102]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[22] = SCM_WORD(scm__rc.d1562[104]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[36] = SCM_WORD(scm__rc.d1562[102]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[49] = SCM_WORD(scm__rc.d1562[105]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[57] = SCM_WORD(scm__rc.d1562[106]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[62] = SCM_WORD(scm__rc.d1562[33]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[67] = SCM_WORD(scm__rc.d1562[102]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[86] = SCM_WORD(scm__rc.d1562[108]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[96] = SCM_WORD(scm__rc.d1562[109]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[105] = SCM_WORD(scm__rc.d1562[111]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[109] = SCM_WORD(scm__rc.d1562[31]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[122] = SCM_WORD(scm__rc.d1562[106]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[131] = SCM_WORD(scm__rc.d1562[32]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[143] = SCM_WORD(scm__rc.d1562[113]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[148] = SCM_WORD(scm__rc.d1562[106]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[154] = SCM_WORD(scm__rc.d1562[115]); ScmObj G1573 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[3]), NULL); Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[92]) /* %string-split */, G1573,0); scm__rc.d1562[118] = Scm_MakeIdentifier(scm__rc.d1562[52], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-length */ scm__rc.d1562[119] = Scm_MakeIdentifier(scm__rc.d1562[20], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-copy */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[254]), scm__rc.d1562[110]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[255]), scm__rc.d1562[110]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[256]), scm__rc.d1562[99]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[259]), scm__rc.d1562[2]); scm__rc.d1562[120] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[255]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[260])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[261]), scm__rc.d1562[120]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]))[4] = SCM_WORD(scm__rc.d1562[118]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]))[18] = SCM_WORD(scm__rc.d1562[119]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]))[24] = SCM_WORD(scm__rc.d1562[119]); scm__rc.d1562[122] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[86])),TRUE); /* string=? */ scm__rc.d1562[121] = Scm_MakeIdentifier(scm__rc.d1562[122], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string=? */ scm__rc.d1562[123] = Scm_MakeIdentifier(scm__rc.d1562[74], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-scan */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[265]), scm__rc.d1562[2]); scm__rc.d1562[124] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[255]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[266])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[267]), scm__rc.d1562[124]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[5]))->name = scm__rc.d1562[110];/* (%string-split-scanner %string-split-scanner) */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]))[5] = SCM_WORD(scm__rc.d1562[67]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]))[7] = SCM_WORD(scm__rc.d1562[123]); scm__rc.d1562[126] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[87])),TRUE); /* char-set? */ scm__rc.d1562[125] = Scm_MakeIdentifier(scm__rc.d1562[126], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#char-set? */ scm__rc.d1562[128] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[88])),TRUE); /* char-set-contains? */ scm__rc.d1562[127] = Scm_MakeIdentifier(scm__rc.d1562[128], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#char-set-contains? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[268]), scm__rc.d1562[110]); scm__rc.d1562[129] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[89])),FALSE); /* G1574 */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[269]), scm__rc.d1562[129]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[272]), scm__rc.d1562[2]); scm__rc.d1562[130] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[268]), SCM_OBJ(&scm__rc.d1563[269]), SCM_OBJ(&scm__rc.d1563[273])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[274]), scm__rc.d1562[130]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[325]))[3] = SCM_WORD(scm__rc.d1562[127]); scm__rc.d1562[132] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[90])),TRUE); /* %string-split-scanner-each-char */ 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 */ scm__rc.d1562[134] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[91])),TRUE); /* regexp? */ scm__rc.d1562[133] = Scm_MakeIdentifier(scm__rc.d1562[134], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#regexp? */ scm__rc.d1562[136] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[92])),TRUE); /* rxmatch */ scm__rc.d1562[135] = Scm_MakeIdentifier(scm__rc.d1562[136], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#rxmatch */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[277]), scm__rc.d1562[2]); scm__rc.d1562[137] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[255]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[278])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[279]), scm__rc.d1562[137]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[7]))->name = scm__rc.d1562[110];/* (%string-split-scanner %string-split-scanner) */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[5] = SCM_WORD(scm__rc.d1562[135]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[13] = SCM_WORD(scm__rc.d1562[71]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[19] = SCM_WORD(scm__rc.d1562[70]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[28] = SCM_WORD(scm__rc.d1562[121]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[35] = SCM_WORD(scm__rc.d1562[118]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[49] = SCM_WORD(scm__rc.d1562[119]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[55] = SCM_WORD(scm__rc.d1562[119]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[280]), scm__rc.d1562[83]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[283]), scm__rc.d1562[2]); scm__rc.d1562[138] = Scm_MakeExtendedPair(scm__rc.d1562[110], SCM_OBJ(&scm__rc.d1563[280]), SCM_OBJ(&scm__rc.d1563[284])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[285]), scm__rc.d1562[138]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[8]))->name = scm__rc.d1562[110];/* %string-split-scanner */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[10] = SCM_WORD(scm__rc.d1562[121]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[21] = SCM_WORD(scm__rc.d1562[125]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[27] = SCM_WORD(scm__rc.d1562[131]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[33] = SCM_WORD(scm__rc.d1562[133]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[41] = SCM_WORD(scm__rc.d1562[131]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[9]))->name = scm__rc.d1562[46];/* %toplevel */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[436]))[5] = SCM_WORD(scm__rc.d1562[109]); scm__rc.d1562[140] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[93])),TRUE); /* string-cursor-start */ scm__rc.d1562[139] = Scm_MakeIdentifier(scm__rc.d1562[140], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor-start */ scm__rc.d1562[142] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[94])),TRUE); /* string-cursor-end */ scm__rc.d1562[141] = Scm_MakeIdentifier(scm__rc.d1562[142], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor-end */ scm__rc.d1562[144] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[95])),TRUE); /* string-cursor=? */ scm__rc.d1562[143] = Scm_MakeIdentifier(scm__rc.d1562[144], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor=? */ scm__rc.d1562[145] = Scm_MakeIdentifier(scm__rc.d1562[58], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#substring */ scm__rc.d1562[146] = Scm_MakeIdentifier(scm__rc.d1562[54], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-ref */ scm__rc.d1562[148] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[96])),TRUE); /* string-cursor-next */ scm__rc.d1562[147] = Scm_MakeIdentifier(scm__rc.d1562[148], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor-next */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[286]), scm__rc.d1562[132]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[287]), scm__rc.d1562[132]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[290]), scm__rc.d1562[2]); scm__rc.d1562[149] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[287]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[291])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[292]), scm__rc.d1562[149]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[10]))->name = scm__rc.d1562[132];/* (%string-split-scanner-each-char %string-split-scanner-each-char) */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[5] = SCM_WORD(scm__rc.d1562[139]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[10] = SCM_WORD(scm__rc.d1562[141]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[17] = SCM_WORD(scm__rc.d1562[143]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[27] = SCM_WORD(scm__rc.d1562[139]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[31] = SCM_WORD(scm__rc.d1562[145]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[42] = SCM_WORD(scm__rc.d1562[146]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[54] = SCM_WORD(scm__rc.d1562[147]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[64] = SCM_WORD(scm__rc.d1562[139]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[68] = SCM_WORD(scm__rc.d1562[145]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[75] = SCM_WORD(scm__rc.d1562[143]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[89] = SCM_WORD(scm__rc.d1562[146]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[101] = SCM_WORD(scm__rc.d1562[147]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[115] = SCM_WORD(scm__rc.d1562[145]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[124] = SCM_WORD(scm__rc.d1562[147]); scm__rc.d1562[150] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[97])),TRUE); /* pred */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[293]), scm__rc.d1562[150]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[296]), scm__rc.d1562[2]); scm__rc.d1562[151] = Scm_MakeExtendedPair(scm__rc.d1562[132], SCM_OBJ(&scm__rc.d1563[293]), SCM_OBJ(&scm__rc.d1563[297])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[298]), scm__rc.d1562[151]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[11]))->name = scm__rc.d1562[132];/* %string-split-scanner-each-char */ ScmObj G1576 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[11]), NULL); Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[132]) /* %string-split-scanner-each-char */, G1576,0); scm__rc.d1562[153] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[98])),TRUE); /* reverse! */ scm__rc.d1562[152] = Scm_MakeIdentifier(scm__rc.d1562[153], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#reverse! */ scm__rc.d1562[154] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[99])),TRUE); /* scanner */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[299]), scm__rc.d1562[154]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[300]), scm__rc.d1562[16]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[303]), scm__rc.d1562[2]); scm__rc.d1562[155] = Scm_MakeExtendedPair(scm__rc.d1562[112], SCM_OBJ(&scm__rc.d1563[300]), SCM_OBJ(&scm__rc.d1563[304])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[305]), scm__rc.d1562[155]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[12]))->name = scm__rc.d1562[112];/* %string-split-by-scanner */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]))[11] = SCM_WORD(scm__rc.d1562[152]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]))[34] = SCM_WORD(scm__rc.d1562[152]); ScmObj G1577 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[12]), NULL); Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[112]) /* %string-split-by-scanner */, G1577,0); Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule()))); scm__rc.d1562[156] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[100])),TRUE); /* %string-replace-body! */ scm__rc.d1562[157] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[101])),TRUE); /* target */ scm__rc.d1562[158] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[102])),TRUE); /* source */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[306]), scm__rc.d1562[158]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[307]), scm__rc.d1562[157]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[310]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[311]), scm__rc.d1562[156]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[312]), scm__rc.d1562[91]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[313]), scm__rc.d1562[3]); scm__rc.d1562[159] = Scm_MakeExtendedPair(scm__rc.d1562[156], SCM_OBJ(&scm__rc.d1563[307]), SCM_OBJ(&scm__rc.d1563[315])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%string-replace-body!")), SCM_OBJ(&libstr_25string_replace_bodyX__STUB), 0); libstr_25string_replace_bodyX__STUB.common.info = scm__rc.d1562[159]; scm__rc.d1562[160] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[103])),TRUE); /* string-set! */ scm__rc.d1562[161] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[105])),TRUE); /* arg */ scm__rc.d1562[163] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[106])),TRUE); /* errorf */ scm__rc.d1562[162] = Scm_MakeIdentifier(scm__rc.d1562[163], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#errorf */ scm__rc.d1562[165] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[107])),TRUE); /* string-index->cursor */ scm__rc.d1562[164] = Scm_MakeIdentifier(scm__rc.d1562[165], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-index->cursor */ scm__rc.d1562[166] = Scm_MakeIdentifier(scm__rc.d1562[16], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string */ scm__rc.d1562[167] = Scm_MakeIdentifier(scm__rc.d1562[25], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-append */ scm__rc.d1562[168] = Scm_MakeIdentifier(scm__rc.d1562[156], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-replace-body! */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[316]), scm__rc.d1562[100]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[317]), scm__rc.d1562[55]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[318]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[321]), scm__rc.d1562[2]); scm__rc.d1562[169] = Scm_MakeExtendedPair(scm__rc.d1562[160], SCM_OBJ(&scm__rc.d1563[318]), SCM_OBJ(&scm__rc.d1563[322])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[323]), scm__rc.d1562[169]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[13]))->name = scm__rc.d1562[160];/* string-set! */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[11] = SCM_WORD(scm__rc.d1562[161]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[14] = SCM_WORD(scm__rc.d1562[162]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[26] = SCM_WORD(scm__rc.d1562[161]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[29] = SCM_WORD(scm__rc.d1562[162]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[35] = SCM_WORD(scm__rc.d1562[164]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[46] = SCM_WORD(scm__rc.d1562[145]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[51] = SCM_WORD(scm__rc.d1562[166]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[60] = SCM_WORD(scm__rc.d1562[147]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[62] = SCM_WORD(scm__rc.d1562[119]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[64] = SCM_WORD(scm__rc.d1562[167]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[66] = SCM_WORD(scm__rc.d1562[168]); ScmObj G1578 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[13]), NULL); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[160]) /* string-set! */, G1578,0); scm__rc.d1562[170] = Scm_MakeIdentifier(scm__rc.d1562[160], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-set! */ scm__rc.d1562[172] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[108])),TRUE); /* setter */ scm__rc.d1562[171] = Scm_MakeIdentifier(scm__rc.d1562[172], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#setter */ SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[14]))->name = scm__rc.d1562[46];/* %toplevel */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[682]))[1] = SCM_WORD(scm__rc.d1562[146]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[682]))[3] = SCM_WORD(scm__rc.d1562[170]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[682]))[5] = SCM_WORD(scm__rc.d1562[171]); scm__rc.d1562[173] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[109])),TRUE); /* string-byte-set! */ scm__rc.d1562[175] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[110])),TRUE); /* exact? */ scm__rc.d1562[174] = Scm_MakeIdentifier(scm__rc.d1562[175], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#exact? */ scm__rc.d1562[176] = Scm_MakeIdentifier(scm__rc.d1562[60], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-size */ scm__rc.d1562[177] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[111]))); /* :private? */ scm__rc.d1562[179] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[112])),TRUE); /* open-output-string */ scm__rc.d1562[178] = Scm_MakeIdentifier(scm__rc.d1562[179], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#open-output-string */ scm__rc.d1562[181] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[114])),TRUE); /* byte-substring */ scm__rc.d1562[180] = Scm_MakeIdentifier(scm__rc.d1562[181], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#byte-substring */ scm__rc.d1562[183] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[115])),TRUE); /* display */ scm__rc.d1562[182] = Scm_MakeIdentifier(scm__rc.d1562[183], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#display */ scm__rc.d1562[185] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[116])),TRUE); /* write-byte */ scm__rc.d1562[184] = Scm_MakeIdentifier(scm__rc.d1562[185], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#write-byte */ scm__rc.d1562[187] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[117])),TRUE); /* get-output-byte-string */ scm__rc.d1562[186] = Scm_MakeIdentifier(scm__rc.d1562[187], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#get-output-byte-string */ scm__rc.d1562[188] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[118])),TRUE); /* b */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[324]), scm__rc.d1562[188]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[325]), scm__rc.d1562[55]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[326]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[329]), scm__rc.d1562[2]); scm__rc.d1562[189] = Scm_MakeExtendedPair(scm__rc.d1562[173], SCM_OBJ(&scm__rc.d1563[326]), SCM_OBJ(&scm__rc.d1563[330])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[331]), scm__rc.d1562[189]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[15]))->name = scm__rc.d1562[173];/* string-byte-set! */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[11] = SCM_WORD(scm__rc.d1562[161]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[14] = SCM_WORD(scm__rc.d1562[162]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[19] = SCM_WORD(scm__rc.d1562[104]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[29] = SCM_WORD(scm__rc.d1562[161]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[32] = SCM_WORD(scm__rc.d1562[162]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[37] = SCM_WORD(scm__rc.d1562[174]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[47] = SCM_WORD(scm__rc.d1562[161]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[50] = SCM_WORD(scm__rc.d1562[162]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[55] = SCM_WORD(scm__rc.d1562[104]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[65] = SCM_WORD(scm__rc.d1562[161]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[68] = SCM_WORD(scm__rc.d1562[162]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[73] = SCM_WORD(scm__rc.d1562[176]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[77] = SCM_WORD(scm__rc.d1562[177]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[81] = SCM_WORD(scm__rc.d1562[178]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[92] = SCM_WORD(scm__rc.d1562[102]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[110] = SCM_WORD(scm__rc.d1562[180]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[114] = SCM_WORD(scm__rc.d1562[182]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[120] = SCM_WORD(scm__rc.d1562[184]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[129] = SCM_WORD(scm__rc.d1562[180]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[133] = SCM_WORD(scm__rc.d1562[182]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[139] = SCM_WORD(scm__rc.d1562[186]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[141] = SCM_WORD(scm__rc.d1562[168]); ScmObj G1579 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[15]), NULL); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[173]) /* string-byte-set! */, G1579,0); scm__rc.d1562[191] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[119])),TRUE); /* string-byte-ref */ scm__rc.d1562[190] = Scm_MakeIdentifier(scm__rc.d1562[191], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-byte-ref */ scm__rc.d1562[192] = Scm_MakeIdentifier(scm__rc.d1562[173], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-byte-set! */ SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[16]))->name = scm__rc.d1562[46];/* %toplevel */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[834]))[1] = SCM_WORD(scm__rc.d1562[190]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[834]))[3] = SCM_WORD(scm__rc.d1562[192]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[834]))[5] = SCM_WORD(scm__rc.d1562[171]); scm__rc.d1562[193] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[120])),TRUE); /* string-fill! */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[333]), scm__rc.d1562[22]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[334]), scm__rc.d1562[52]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[336]), scm__rc.d1562[23]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[339]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[340]), scm__rc.d1562[14]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[341]), scm__rc.d1562[21]); scm__rc.d1562[194] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[121])),TRUE); /* let */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[342]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[343]), scm__rc.d1562[165]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[345]), scm__rc.d1562[22]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[346]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[347]), scm__rc.d1562[165]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[349]), scm__rc.d1562[23]); scm__rc.d1562[195] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[122])),TRUE); /* istart */ scm__rc.d1562[196] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[123])),TRUE); /* string-cursor->index */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[350]), scm__rc.d1562[196]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[352]), scm__rc.d1562[195]); scm__rc.d1562[197] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[124])),TRUE); /* iend */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[353]), scm__rc.d1562[196]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[355]), scm__rc.d1562[197]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[356]), scm__rc.d1562[12]); scm__rc.d1562[198] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[125])),TRUE); /* when */ scm__rc.d1562[199] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[126])),TRUE); /* < */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[362]), scm__rc.d1562[195]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[363]), scm__rc.d1562[197]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[364]), scm__rc.d1562[199]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[366]), scm__rc.d1562[163]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[369]), scm__rc.d1562[198]); scm__rc.d1562[200] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[128])),TRUE); /* and */ scm__rc.d1562[201] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[129])),TRUE); /* = */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[370]), scm__rc.d1562[195]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[371]), scm__rc.d1562[201]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[372]), scm__rc.d1562[12]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[373]), scm__rc.d1562[197]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[374]), scm__rc.d1562[201]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[377]), scm__rc.d1562[200]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[378]), scm__rc.d1562[12]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[379]), scm__rc.d1562[11]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[381]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[382]), scm__rc.d1562[156]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[384]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[385]), scm__rc.d1562[58]); scm__rc.d1562[202] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[130])),TRUE); /* - */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[386]), scm__rc.d1562[202]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[388]), scm__rc.d1562[11]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[389]), scm__rc.d1562[20]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[393]), scm__rc.d1562[25]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[395]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[396]), scm__rc.d1562[156]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[400]), scm__rc.d1562[86]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[404]), scm__rc.d1562[194]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[407]), scm__rc.d1562[82]); scm__rc.d1562[203] = Scm_MakeIdentifier(scm__rc.d1562[196], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor->index */ scm__rc.d1562[204] = Scm_MakeIdentifier(scm__rc.d1562[163], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#errorf */ scm__rc.d1562[205] = Scm_MakeIdentifier(scm__rc.d1562[11], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#make-string */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[410]), scm__rc.d1562[2]); scm__rc.d1562[206] = Scm_MakeExtendedPair(scm__rc.d1562[193], SCM_OBJ(&scm__rc.d1563[341]), SCM_OBJ(&scm__rc.d1563[411])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[412]), scm__rc.d1562[206]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[17]))->name = scm__rc.d1562[193];/* string-fill! */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[23] = SCM_WORD(scm__rc.d1562[118]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[48] = SCM_WORD(scm__rc.d1562[102]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[54] = SCM_WORD(scm__rc.d1562[164]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[60] = SCM_WORD(scm__rc.d1562[164]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[66] = SCM_WORD(scm__rc.d1562[203]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[72] = SCM_WORD(scm__rc.d1562[203]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[77] = SCM_WORD(scm__rc.d1562[118]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[89] = SCM_WORD(scm__rc.d1562[204]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[104] = SCM_WORD(scm__rc.d1562[205]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[106] = SCM_WORD(scm__rc.d1562[168]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[117] = SCM_WORD(scm__rc.d1562[145]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[126] = SCM_WORD(scm__rc.d1562[205]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[132] = SCM_WORD(scm__rc.d1562[119]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[134] = SCM_WORD(scm__rc.d1562[167]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[136] = SCM_WORD(scm__rc.d1562[168]); ScmObj G1584 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[17]), NULL); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[193]) /* string-fill! */, G1584,0); Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule()))); scm__rc.d1562[207] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[131])),TRUE); /* string-build-index! */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[415]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[416]), scm__rc.d1562[207]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[417]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[418]), scm__rc.d1562[3]); scm__rc.d1562[208] = Scm_MakeExtendedPair(scm__rc.d1562[207], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[420])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-build-index!")), SCM_OBJ(&libstrstring_build_indexX__STUB), 0); libstrstring_build_indexX__STUB.common.info = scm__rc.d1562[208]; scm__rc.d1562[209] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[132])),TRUE); /* string-fast-indexable? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[423]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[424]), scm__rc.d1562[209]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[425]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[426]), scm__rc.d1562[3]); scm__rc.d1562[210] = Scm_MakeExtendedPair(scm__rc.d1562[209], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[428])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-fast-indexable?")), SCM_OBJ(&libstrstring_fast_indexableP__STUB), 0); libstrstring_fast_indexableP__STUB.common.info = scm__rc.d1562[210]; Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule()))); scm__rc.d1562[211] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[133])),TRUE); /* %string-index-dump */ scm__rc.d1562[212] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[134])),TRUE); /* p */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[429]), scm__rc.d1562[212]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[430]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[431]), scm__rc.d1562[99]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[434]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[435]), scm__rc.d1562[211]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[436]), scm__rc.d1562[91]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[437]), scm__rc.d1562[3]); scm__rc.d1562[213] = Scm_MakeExtendedPair(scm__rc.d1562[211], SCM_OBJ(&scm__rc.d1563[431]), SCM_OBJ(&scm__rc.d1563[439])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%string-index-dump")), SCM_OBJ(&libstr_25string_index_dump__STUB), 0); libstr_25string_index_dump__STUB.common.info = scm__rc.d1562[213]; Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule()))); scm__rc.d1562[214] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[135])),TRUE); /* ss */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[440]), scm__rc.d1562[214]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[441]), scm__rc.d1562[17]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[442]), scm__rc.d1562[76]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[443]), scm__rc.d1562[75]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[446]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[447]), scm__rc.d1562[122]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[448]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[449]), scm__rc.d1562[3]); scm__rc.d1562[215] = Scm_MakeExtendedPair(scm__rc.d1562[122], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[451])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string=?")), SCM_OBJ(&libstrstring_3dP__STUB), SCM_BINDING_INLINABLE); libstrstring_3dP__STUB.common.info = scm__rc.d1562[215]; scm__rc.d1562[216] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[136])),TRUE); /* string? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[462]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[463]), scm__rc.d1562[218]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[464]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[465]), scm__rc.d1562[3]); scm__rc.d1562[219] = Scm_MakeExtendedPair(scm__rc.d1562[218], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[467])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string>?")), SCM_OBJ(&libstrstring_GTP__STUB), SCM_BINDING_INLINABLE); libstrstring_GTP__STUB.common.info = scm__rc.d1562[219]; scm__rc.d1562[220] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[138])),TRUE); /* string<=? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[470]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[471]), scm__rc.d1562[220]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[472]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[473]), scm__rc.d1562[3]); scm__rc.d1562[221] = Scm_MakeExtendedPair(scm__rc.d1562[220], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[475])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string<=?")), SCM_OBJ(&libstrstring_LT_3dP__STUB), SCM_BINDING_INLINABLE); libstrstring_LT_3dP__STUB.common.info = scm__rc.d1562[221]; scm__rc.d1562[222] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[139])),TRUE); /* string>=? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[478]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[479]), scm__rc.d1562[222]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[480]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[481]), scm__rc.d1562[3]); scm__rc.d1562[223] = Scm_MakeExtendedPair(scm__rc.d1562[222], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[483])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string>=?")), SCM_OBJ(&libstrstring_GT_3dP__STUB), SCM_BINDING_INLINABLE); libstrstring_GT_3dP__STUB.common.info = scm__rc.d1562[223]; scm__rc.d1562[224] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[140])),TRUE); /* string-ci=? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[486]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[487]), scm__rc.d1562[224]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[488]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[489]), scm__rc.d1562[3]); scm__rc.d1562[225] = Scm_MakeExtendedPair(scm__rc.d1562[224], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[491])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci=?")), SCM_OBJ(&libstrstring_ci_3dP__STUB), SCM_BINDING_INLINABLE); libstrstring_ci_3dP__STUB.common.info = scm__rc.d1562[225]; scm__rc.d1562[226] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[141])),TRUE); /* string-ci? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[502]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[503]), scm__rc.d1562[228]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[504]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[505]), scm__rc.d1562[3]); scm__rc.d1562[229] = Scm_MakeExtendedPair(scm__rc.d1562[228], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[507])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci>?")), SCM_OBJ(&libstrstring_ci_GTP__STUB), SCM_BINDING_INLINABLE); libstrstring_ci_GTP__STUB.common.info = scm__rc.d1562[229]; scm__rc.d1562[230] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[143])),TRUE); /* string-ci<=? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[510]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[511]), scm__rc.d1562[230]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[512]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[513]), scm__rc.d1562[3]); scm__rc.d1562[231] = Scm_MakeExtendedPair(scm__rc.d1562[230], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[515])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci<=?")), SCM_OBJ(&libstrstring_ci_LT_3dP__STUB), SCM_BINDING_INLINABLE); libstrstring_ci_LT_3dP__STUB.common.info = scm__rc.d1562[231]; scm__rc.d1562[232] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[144])),TRUE); /* string-ci>=? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[518]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[519]), scm__rc.d1562[232]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[520]), scm__rc.d1562[4]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[521]), scm__rc.d1562[3]); scm__rc.d1562[233] = Scm_MakeExtendedPair(scm__rc.d1562[232], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[523])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci>=?")), SCM_OBJ(&libstrstring_ci_GT_3dP__STUB), SCM_BINDING_INLINABLE); libstrstring_ci_GT_3dP__STUB.common.info = scm__rc.d1562[233]; Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule()))); scm__rc.d1562[234] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[145])),TRUE); /* %string-map-dispatch */ scm__rc.d1562[235] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[146])),FALSE); /* G1591 */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[524]), scm__rc.d1562[235]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[525]), scm__rc.d1562[234]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[528]), scm__rc.d1562[2]); scm__rc.d1562[236] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[525]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[529])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[530]), scm__rc.d1562[236]); scm__rc.d1562[237] = Scm_MakeIdentifier(scm__rc.d1562[62], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%maybe-substring */ scm__rc.d1562[239] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[148])),TRUE); /* string-cursor? */ scm__rc.d1562[238] = Scm_MakeIdentifier(scm__rc.d1562[239], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor? */ scm__rc.d1562[241] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[150])),TRUE); /* find */ scm__rc.d1562[240] = Scm_MakeIdentifier(scm__rc.d1562[241], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#find */ scm__rc.d1562[242] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[152])),TRUE); /* name */ scm__rc.d1562[243] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[153])),TRUE); /* proc */ scm__rc.d1562[244] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14])),TRUE); /* rest */ scm__rc.d1562[245] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[154])),TRUE); /* proc-single */ scm__rc.d1562[246] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[155])),TRUE); /* proc-multi */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[532]), scm__rc.d1562[246]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[533]), scm__rc.d1562[245]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[534]), scm__rc.d1562[244]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[535]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[536]), scm__rc.d1562[243]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[537]), scm__rc.d1562[242]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[540]), scm__rc.d1562[2]); scm__rc.d1562[247] = Scm_MakeExtendedPair(scm__rc.d1562[234], SCM_OBJ(&scm__rc.d1563[537]), SCM_OBJ(&scm__rc.d1563[541])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[542]), scm__rc.d1562[247]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[19]))->name = scm__rc.d1562[234];/* %string-map-dispatch */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[12] = SCM_WORD(scm__rc.d1562[104]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[26] = SCM_WORD(scm__rc.d1562[237]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[36] = SCM_WORD(scm__rc.d1562[104]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[52] = SCM_WORD(scm__rc.d1562[237]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[61] = SCM_WORD(scm__rc.d1562[204]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[68] = SCM_WORD(scm__rc.d1562[238]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[76] = SCM_WORD(scm__rc.d1562[102]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[82] = SCM_WORD(scm__rc.d1562[238]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[94] = SCM_WORD(scm__rc.d1562[240]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[103] = SCM_WORD(scm__rc.d1562[102]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[115] = SCM_WORD(scm__rc.d1562[102]); scm__rc.d1562[248] = Scm_MakeIdentifier(scm__rc.d1562[234], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-map-dispatch */ SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[20]))->name = scm__rc.d1562[46];/* %toplevel */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1105]))[5] = SCM_WORD(scm__rc.d1562[248]); Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule()))); scm__rc.d1562[249] = Scm_MakeIdentifier(scm__rc.d1562[140], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-start */ scm__rc.d1562[250] = Scm_MakeIdentifier(scm__rc.d1562[142], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-end */ scm__rc.d1562[251] = Scm_MakeIdentifier(scm__rc.d1562[144], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor=? */ scm__rc.d1562[252] = Scm_MakeIdentifier(scm__rc.d1562[49], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#list->string */ scm__rc.d1562[254] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[156])),TRUE); /* string-cursor-prev */ scm__rc.d1562[253] = Scm_MakeIdentifier(scm__rc.d1562[254], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-prev */ scm__rc.d1562[255] = Scm_MakeIdentifier(scm__rc.d1562[54], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-ref */ scm__rc.d1562[256] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[157])),TRUE); /* string-map */ scm__rc.d1562[257] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[158])),TRUE); /* string-map-1 */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[543]), scm__rc.d1562[257]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[544]), scm__rc.d1562[256]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[545]), scm__rc.d1562[243]); scm__rc.d1562[258] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[544]), SCM_OBJ(&scm__rc.d1563[545]), SCM_OBJ(&scm__rc.d1563[93])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[546]), scm__rc.d1562[258]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[4] = SCM_WORD(scm__rc.d1562[249]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[10] = SCM_WORD(scm__rc.d1562[250]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[19] = SCM_WORD(scm__rc.d1562[251]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[24] = SCM_WORD(scm__rc.d1562[252]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[31] = SCM_WORD(scm__rc.d1562[253]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[41] = SCM_WORD(scm__rc.d1562[255]); scm__rc.d1562[260] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[159])),TRUE); /* map */ scm__rc.d1562[259] = Scm_MakeIdentifier(scm__rc.d1562[260], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#map */ scm__rc.d1562[262] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[160])),TRUE); /* any */ scm__rc.d1562[261] = Scm_MakeIdentifier(scm__rc.d1562[262], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#any */ scm__rc.d1562[263] = Scm_MakeIdentifier(scm__rc.d1562[148], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-next */ scm__rc.d1562[264] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[161])),TRUE); /* string-map-n */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[547]), scm__rc.d1562[264]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[548]), scm__rc.d1562[256]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[549]), scm__rc.d1562[243]); SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[549]), scm__rc.d1562[35]); scm__rc.d1562[265] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[548]), SCM_OBJ(&scm__rc.d1563[549]), SCM_OBJ(&scm__rc.d1563[93])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[550]), scm__rc.d1562[265]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[3] = SCM_WORD(scm__rc.d1562[250]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[6] = SCM_WORD(scm__rc.d1562[259]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[11] = SCM_WORD(scm__rc.d1562[249]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[14] = SCM_WORD(scm__rc.d1562[259]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[21] = SCM_WORD(scm__rc.d1562[251]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[25] = SCM_WORD(scm__rc.d1562[261]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[31] = SCM_WORD(scm__rc.d1562[252]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[36] = SCM_WORD(scm__rc.d1562[263]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[40] = SCM_WORD(scm__rc.d1562[259]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[47] = SCM_WORD(scm__rc.d1562[255]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[51] = SCM_WORD(scm__rc.d1562[259]); scm__rc.d1562[266] = Scm_MakeIdentifier(scm__rc.d1562[234], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%string-map-dispatch */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[553]), scm__rc.d1562[21]); SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[553]), scm__rc.d1562[244]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[554]), scm__rc.d1562[243]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[557]), scm__rc.d1562[2]); scm__rc.d1562[267] = Scm_MakeExtendedPair(scm__rc.d1562[256], SCM_OBJ(&scm__rc.d1563[554]), SCM_OBJ(&scm__rc.d1563[558])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[559]), scm__rc.d1562[267]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[23]))->name = scm__rc.d1562[256];/* string-map */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1224]))[1] = SCM_WORD(scm__rc.d1562[256]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1224]))[8] = SCM_WORD(scm__rc.d1562[266]); scm__rc.d1562[268] = Scm_MakeIdentifier(scm__rc.d1562[256], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-map */ SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[24]))->name = scm__rc.d1562[46];/* %toplevel */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1234]))[5] = SCM_WORD(scm__rc.d1562[268]); scm__rc.d1562[269] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[162])),TRUE); /* string-for-each */ scm__rc.d1562[270] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[163])),TRUE); /* string-for-each-1 */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[560]), scm__rc.d1562[270]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[561]), scm__rc.d1562[269]); scm__rc.d1562[271] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[561]), SCM_OBJ(&scm__rc.d1563[545]), SCM_OBJ(&scm__rc.d1563[93])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[562]), scm__rc.d1562[271]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[4] = SCM_WORD(scm__rc.d1562[250]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[10] = SCM_WORD(scm__rc.d1562[249]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[17] = SCM_WORD(scm__rc.d1562[251]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[28] = SCM_WORD(scm__rc.d1562[255]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[37] = SCM_WORD(scm__rc.d1562[263]); scm__rc.d1562[272] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[164])),TRUE); /* string-for-each-n */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[563]), scm__rc.d1562[272]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[564]), scm__rc.d1562[269]); scm__rc.d1562[273] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[564]), SCM_OBJ(&scm__rc.d1563[549]), SCM_OBJ(&scm__rc.d1563[93])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[565]), scm__rc.d1562[273]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[3] = SCM_WORD(scm__rc.d1562[250]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[6] = SCM_WORD(scm__rc.d1562[259]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[11] = SCM_WORD(scm__rc.d1562[249]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[14] = SCM_WORD(scm__rc.d1562[259]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[19] = SCM_WORD(scm__rc.d1562[251]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[23] = SCM_WORD(scm__rc.d1562[261]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[33] = SCM_WORD(scm__rc.d1562[255]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[37] = SCM_WORD(scm__rc.d1562[259]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[42] = SCM_WORD(scm__rc.d1562[263]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[46] = SCM_WORD(scm__rc.d1562[259]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[570]), scm__rc.d1562[2]); scm__rc.d1562[274] = Scm_MakeExtendedPair(scm__rc.d1562[269], SCM_OBJ(&scm__rc.d1563[554]), SCM_OBJ(&scm__rc.d1563[571])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[572]), scm__rc.d1562[274]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[27]))->name = scm__rc.d1562[269];/* string-for-each */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1336]))[1] = SCM_WORD(scm__rc.d1562[269]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1336]))[8] = SCM_WORD(scm__rc.d1562[266]); scm__rc.d1562[275] = Scm_MakeIdentifier(scm__rc.d1562[269], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-for-each */ SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[28]))->name = scm__rc.d1562[46];/* %toplevel */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1346]))[5] = SCM_WORD(scm__rc.d1562[275]); Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule()))); scm__rc.d1562[276] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[165])),TRUE); /* string-incomplete->complete! */ scm__rc.d1562[278] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[166])),TRUE); /* string-incomplete->complete */ scm__rc.d1562[277] = Scm_MakeIdentifier(scm__rc.d1562[278], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-incomplete->complete */ scm__rc.d1562[279] = Scm_MakeIdentifier(scm__rc.d1562[156], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%string-replace-body! */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[575]), scm__rc.d1562[2]); scm__rc.d1562[280] = Scm_MakeExtendedPair(scm__rc.d1562[276], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[576])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[577]), scm__rc.d1562[280]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[29]))->name = scm__rc.d1562[276];/* string-incomplete->complete! */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]))[4] = SCM_WORD(scm__rc.d1562[277]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]))[13] = SCM_WORD(scm__rc.d1562[279]); ScmObj G1596 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[29]), NULL); Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[276]) /* string-incomplete->complete! */, G1596,0); scm__rc.d1562[281] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[167])),TRUE); /* string-complete->incomplete */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[580]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[581]), scm__rc.d1562[281]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[582]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[583]), scm__rc.d1562[3]); scm__rc.d1562[282] = Scm_MakeExtendedPair(scm__rc.d1562[281], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[585])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-complete->incomplete")), SCM_OBJ(&libstrstring_complete_TOincomplete__STUB), 0); libstrstring_complete_TOincomplete__STUB.common.info = scm__rc.d1562[282]; scm__rc.d1562[283] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[168]))); /* :replace */ scm__rc.d1562[284] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[169]))); /* :omit */ scm__rc.d1562[285] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[170]))); /* :escape */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[586]), scm__rc.d1562[285]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[587]), scm__rc.d1562[283]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[588]), scm__rc.d1562[284]); scm__rc.d1562[286] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[171])),TRUE); /* handling */ scm__rc.d1562[287] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[172])),TRUE); /* filler */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[589]), scm__rc.d1562[287]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[590]), scm__rc.d1562[286]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[591]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[592]), scm__rc.d1562[21]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[595]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[596]), scm__rc.d1562[278]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[597]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[598]), scm__rc.d1562[3]); scm__rc.d1562[288] = Scm_MakeExtendedPair(scm__rc.d1562[278], SCM_OBJ(&scm__rc.d1563[592]), SCM_OBJ(&scm__rc.d1563[600])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-incomplete->complete")), SCM_OBJ(&libstrstring_incomplete_TOcomplete__STUB), 0); libstrstring_incomplete_TOcomplete__STUB.common.info = scm__rc.d1562[288]; scm__rc.d1562[289] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[173])),TRUE); /* make-byte-string */ scm__rc.d1562[290] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[174])),TRUE); /* size */ scm__rc.d1562[291] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[175])),TRUE); /* byte */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[601]), scm__rc.d1562[291]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[602]), scm__rc.d1562[13]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[603]), scm__rc.d1562[290]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[606]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[607]), scm__rc.d1562[289]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[608]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[609]), scm__rc.d1562[3]); scm__rc.d1562[292] = Scm_MakeExtendedPair(scm__rc.d1562[289], SCM_OBJ(&scm__rc.d1563[603]), SCM_OBJ(&scm__rc.d1563[611])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("make-byte-string")), SCM_OBJ(&libstrmake_byte_string__STUB), 0); libstrmake_byte_string__STUB.common.info = scm__rc.d1562[292]; SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[614]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[615]), scm__rc.d1562[191]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[616]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[617]), scm__rc.d1562[3]); scm__rc.d1562[293] = Scm_MakeExtendedPair(scm__rc.d1562[191], SCM_OBJ(&scm__rc.d1563[125]), SCM_OBJ(&scm__rc.d1563[619])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-byte-ref")), SCM_OBJ(&libstrstring_byte_ref__STUB), 0); libstrstring_byte_ref__STUB.common.info = scm__rc.d1562[293]; SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[622]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[623]), scm__rc.d1562[181]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[624]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[625]), scm__rc.d1562[3]); scm__rc.d1562[294] = Scm_MakeExtendedPair(scm__rc.d1562[181], SCM_OBJ(&scm__rc.d1563[134]), SCM_OBJ(&scm__rc.d1563[627])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("byte-substring")), SCM_OBJ(&libstrbyte_substring__STUB), 0); libstrbyte_substring__STUB.common.info = scm__rc.d1562[294]; Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule()))); scm__rc.d1562[295] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[176])),TRUE); /* complete-sexp? */ scm__rc.d1562[296] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[177])),TRUE); /* rec-escaped */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[628]), scm__rc.d1562[296]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[629]), scm__rc.d1562[295]); scm__rc.d1562[297] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[178])),TRUE); /* closer */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[630]), scm__rc.d1562[297]); scm__rc.d1562[298] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[629]), SCM_OBJ(&scm__rc.d1563[630]), SCM_OBJ(&scm__rc.d1563[93])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[631]), scm__rc.d1562[298]); { ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet()); Scm_CharSetAddRange(cs, SCM_CHAR(0), SCM_CHAR(32)); Scm_CharSetAddRange(cs, SCM_CHAR(34), SCM_CHAR(34)); Scm_CharSetAddRange(cs, SCM_CHAR(39), SCM_CHAR(41)); Scm_CharSetAddRange(cs, SCM_CHAR(44), SCM_CHAR(44)); Scm_CharSetAddRange(cs, SCM_CHAR(59), SCM_CHAR(59)); Scm_CharSetAddRange(cs, SCM_CHAR(91), SCM_CHAR(93)); Scm_CharSetAddRange(cs, SCM_CHAR(96), SCM_CHAR(96)); Scm_CharSetAddRange(cs, SCM_CHAR(123), SCM_CHAR(125)); Scm_CharSetAddRange(cs, SCM_CHAR(127), SCM_CHAR(127)); scm__rc.d1562[299] = SCM_OBJ(cs); } scm__rc.d1562[300] = Scm_MakeIdentifier(scm__rc.d1562[128], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#char-set-contains? */ scm__rc.d1562[301] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[179])),TRUE); /* skip-token */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[632]), scm__rc.d1562[301]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[633]), scm__rc.d1562[295]); scm__rc.d1562[302] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[633]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[93])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[634]), scm__rc.d1562[302]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]))[10] = SCM_WORD(scm__rc.d1562[299]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]))[13] = SCM_WORD(scm__rc.d1562[300]); { ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet()); Scm_CharSetAddRange(cs, SCM_CHAR(0), SCM_CHAR(8)); Scm_CharSetAddRange(cs, SCM_CHAR(14), SCM_CHAR(31)); Scm_CharSetAddRange(cs, SCM_CHAR(33), SCM_CHAR(127)); Scm_CharSetAddRange(cs, SCM_CHAR(128), SCM_CHAR(16777215)); scm__rc.d1562[303] = SCM_OBJ(cs); } scm__rc.d1562[305] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[181])),TRUE); /* read-block */ scm__rc.d1562[304] = Scm_MakeIdentifier(scm__rc.d1562[305], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#read-block */ scm__rc.d1562[306] = Scm_MakeIdentifier(scm__rc.d1562[163], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#errorf */ scm__rc.d1562[307] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[182])),TRUE); /* rec */ scm__rc.d1562[308] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[183])),FALSE); /* G1597 */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[635]), scm__rc.d1562[308]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[636]), scm__rc.d1562[295]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[637]), scm__rc.d1562[307]); scm__rc.d1562[309] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[638]), SCM_OBJ(&scm__rc.d1563[630]), SCM_OBJ(&scm__rc.d1563[93])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[639]), scm__rc.d1562[309]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[32]))->name = scm__rc.d1562[307];/* ((complete-sexp? G1597) rec) */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[193] = SCM_WORD(scm__rc.d1562[303]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[196] = SCM_WORD(scm__rc.d1562[300]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[289] = SCM_WORD(scm__rc.d1562[304]); ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[291] = SCM_WORD(scm__rc.d1562[306]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[645]), scm__rc.d1562[2]); scm__rc.d1562[310] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[636]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[646])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[647]), scm__rc.d1562[310]); scm__rc.d1562[312] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[184])),TRUE); /* with-input-from-string */ scm__rc.d1562[311] = Scm_MakeIdentifier(scm__rc.d1562[312], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#with-input-from-string */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[653]), scm__rc.d1562[2]); scm__rc.d1562[313] = Scm_MakeExtendedPair(scm__rc.d1562[295], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[654])); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[655]), scm__rc.d1562[313]); SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[34]))->name = scm__rc.d1562[295];/* complete-sexp? */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1735]))[3] = SCM_WORD(scm__rc.d1562[311]); scm__rc.d1562[314] = Scm_MakeIdentifier(scm__rc.d1562[295], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#complete-sexp? */ SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[35]))->name = scm__rc.d1562[46];/* %toplevel */ ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1740]))[5] = SCM_WORD(scm__rc.d1562[314]); Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule()))); #if GAUCHE_STRING_POINTER scm__rc.d1601[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[0])),TRUE); /* make-string-pointer */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[1])),TRUE); /* str */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[2] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1600[2]))); /* :optional */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[3])),TRUE); /* index */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[4])),TRUE); /* start */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[5] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[5])),TRUE); /* end */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[1]), scm__rc.d1601[5]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[2]), scm__rc.d1601[4]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[3]), scm__rc.d1601[3]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[4]), scm__rc.d1601[2]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[5]), scm__rc.d1601[1]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[6])),TRUE); /* source-info */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[8]), scm__rc.d1601[6]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[8])),TRUE); /* bind-info */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[9])),TRUE); /* gauche */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[9]), scm__rc.d1601[0]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[10]), scm__rc.d1601[8]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[11]), scm__rc.d1601[7]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[9] = Scm_MakeExtendedPair(scm__rc.d1601[0], SCM_OBJ(&scm__rc.d1602[5]), SCM_OBJ(&scm__rc.d1602[13])); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("make-string-pointer")), SCM_OBJ(&libstrmake_string_pointer__STUB), 0); libstrmake_string_pointer__STUB.common.info = scm__rc.d1601[9]; #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[10] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[10])),TRUE); /* string-pointer? */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[11])),TRUE); /* obj */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[14]), scm__rc.d1601[11]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[17]), scm__rc.d1601[6]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[18]), scm__rc.d1601[10]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[19]), scm__rc.d1601[8]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[20]), scm__rc.d1601[7]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[12] = Scm_MakeExtendedPair(scm__rc.d1601[10], SCM_OBJ(&scm__rc.d1602[14]), SCM_OBJ(&scm__rc.d1602[22])); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer?")), SCM_OBJ(&libstrstring_pointerP__STUB), 0); libstrstring_pointerP__STUB.common.info = scm__rc.d1601[12]; #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[13] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[12])),TRUE); /* string-pointer-ref */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[14] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[13])),TRUE); /* sp */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[23]), scm__rc.d1601[14]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[26]), scm__rc.d1601[6]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[27]), scm__rc.d1601[13]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[28]), scm__rc.d1601[8]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[29]), scm__rc.d1601[7]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[15] = Scm_MakeExtendedPair(scm__rc.d1601[13], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[31])); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-ref")), SCM_OBJ(&libstrstring_pointer_ref__STUB), 0); libstrstring_pointer_ref__STUB.common.info = scm__rc.d1601[15]; #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[14])),TRUE); /* string-pointer-next! */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[34]), scm__rc.d1601[6]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[35]), scm__rc.d1601[16]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[36]), scm__rc.d1601[8]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[37]), scm__rc.d1601[7]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[17] = Scm_MakeExtendedPair(scm__rc.d1601[16], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[39])); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-next!")), SCM_OBJ(&libstrstring_pointer_nextX__STUB), 0); libstrstring_pointer_nextX__STUB.common.info = scm__rc.d1601[17]; #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[15])),TRUE); /* string-pointer-prev! */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[42]), scm__rc.d1601[6]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[43]), scm__rc.d1601[18]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[44]), scm__rc.d1601[8]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[45]), scm__rc.d1601[7]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[19] = Scm_MakeExtendedPair(scm__rc.d1601[18], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[47])); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-prev!")), SCM_OBJ(&libstrstring_pointer_prevX__STUB), 0); libstrstring_pointer_prevX__STUB.common.info = scm__rc.d1601[19]; #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[16])),TRUE); /* string-pointer-set! */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[48]), scm__rc.d1601[3]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[49]), scm__rc.d1601[14]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[52]), scm__rc.d1601[6]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[53]), scm__rc.d1601[20]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[54]), scm__rc.d1601[8]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[55]), scm__rc.d1601[7]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[21] = Scm_MakeExtendedPair(scm__rc.d1601[20], SCM_OBJ(&scm__rc.d1602[49]), SCM_OBJ(&scm__rc.d1602[57])); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-set!")), SCM_OBJ(&libstrstring_pointer_setX__STUB), 0); libstrstring_pointer_setX__STUB.common.info = scm__rc.d1601[21]; #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[22] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1600[17]))); /* :after */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[23] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[18])),TRUE); /* string-pointer-substring */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[60]), scm__rc.d1601[6]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[61]), scm__rc.d1601[23]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[62]), scm__rc.d1601[8]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[63]), scm__rc.d1601[7]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[24] = Scm_MakeExtendedPair(scm__rc.d1601[23], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[65])); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-substring")), SCM_OBJ(&libstrstring_pointer_substring__STUB), 0); libstrstring_pointer_substring__STUB.common.info = scm__rc.d1601[24]; #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[25] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[19])),TRUE); /* string-pointer-index */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[68]), scm__rc.d1601[6]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[69]), scm__rc.d1601[25]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[70]), scm__rc.d1601[8]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[71]), scm__rc.d1601[7]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[26] = Scm_MakeExtendedPair(scm__rc.d1601[25], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[73])); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-index")), SCM_OBJ(&libstrstring_pointer_index__STUB), 0); libstrstring_pointer_index__STUB.common.info = scm__rc.d1601[26]; #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[27] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[20])),TRUE); /* string-pointer-copy */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[76]), scm__rc.d1601[6]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[77]), scm__rc.d1601[27]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[78]), scm__rc.d1601[8]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[79]), scm__rc.d1601[7]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[28] = Scm_MakeExtendedPair(scm__rc.d1601[27], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[81])); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-copy")), SCM_OBJ(&libstrstring_pointer_copy__STUB), 0); libstrstring_pointer_copy__STUB.common.info = scm__rc.d1601[28]; #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[29] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[21])),TRUE); /* string-pointer-byte-index */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[84]), scm__rc.d1601[6]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[85]), scm__rc.d1601[29]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[86]), scm__rc.d1601[8]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[87]), scm__rc.d1601[7]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[30] = Scm_MakeExtendedPair(scm__rc.d1601[29], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[89])); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-byte-index")), SCM_OBJ(&libstrstring_pointer_byte_index__STUB), 0); libstrstring_pointer_byte_index__STUB.common.info = scm__rc.d1601[30]; #endif /* GAUCHE_STRING_POINTER */ Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule()))); #if GAUCHE_STRING_POINTER scm__rc.d1601[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[22])),TRUE); /* %string-pointer-dump */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[92]), scm__rc.d1601[6]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[32] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[23])),TRUE); /* gauche.internal */ #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[93]), scm__rc.d1601[31]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[94]), scm__rc.d1601[32]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[95]), scm__rc.d1601[7]); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER scm__rc.d1601[33] = Scm_MakeExtendedPair(scm__rc.d1601[31], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[97])); #endif /* GAUCHE_STRING_POINTER */ #if GAUCHE_STRING_POINTER Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%string-pointer-dump")), SCM_OBJ(&libstr_25string_pointer_dump__STUB), 0); libstr_25string_pointer_dump__STUB.common.info = scm__rc.d1601[33]; #endif /* GAUCHE_STRING_POINTER */ Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule()))); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[658]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[659]), scm__rc.d1562[239]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[660]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[661]), scm__rc.d1562[3]); scm__rc.d1562[315] = Scm_MakeExtendedPair(scm__rc.d1562[239], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[663])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor?")), SCM_OBJ(&libstrstring_cursorP__STUB), 0); libstrstring_cursorP__STUB.common.info = scm__rc.d1562[315]; SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[666]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[667]), scm__rc.d1562[140]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[668]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[669]), scm__rc.d1562[3]); scm__rc.d1562[316] = Scm_MakeExtendedPair(scm__rc.d1562[140], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[671])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-start")), SCM_OBJ(&libstrstring_cursor_start__STUB), 0); libstrstring_cursor_start__STUB.common.info = scm__rc.d1562[316]; SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[674]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[675]), scm__rc.d1562[142]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[676]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[677]), scm__rc.d1562[3]); scm__rc.d1562[317] = Scm_MakeExtendedPair(scm__rc.d1562[142], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[679])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-end")), SCM_OBJ(&libstrstring_cursor_end__STUB), 0); libstrstring_cursor_end__STUB.common.info = scm__rc.d1562[317]; SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[680]), scm__rc.d1562[72]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[681]), scm__rc.d1562[99]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[684]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[685]), scm__rc.d1562[148]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[686]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[687]), scm__rc.d1562[3]); scm__rc.d1562[318] = Scm_MakeExtendedPair(scm__rc.d1562[148], SCM_OBJ(&scm__rc.d1563[681]), SCM_OBJ(&scm__rc.d1563[689])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-next")), SCM_OBJ(&libstrstring_cursor_next__STUB), 0); libstrstring_cursor_next__STUB.common.info = scm__rc.d1562[318]; SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[692]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[693]), scm__rc.d1562[254]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[694]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[695]), scm__rc.d1562[3]); scm__rc.d1562[319] = Scm_MakeExtendedPair(scm__rc.d1562[254], SCM_OBJ(&scm__rc.d1563[681]), SCM_OBJ(&scm__rc.d1563[697])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-prev")), SCM_OBJ(&libstrstring_cursor_prev__STUB), 0); libstrstring_cursor_prev__STUB.common.info = scm__rc.d1562[319]; scm__rc.d1562[320] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[185])),TRUE); /* string-cursor-forward */ scm__rc.d1562[321] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[186])),TRUE); /* nchars */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[698]), scm__rc.d1562[321]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[699]), scm__rc.d1562[72]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[700]), scm__rc.d1562[99]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[703]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[704]), scm__rc.d1562[320]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[705]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[706]), scm__rc.d1562[3]); scm__rc.d1562[322] = Scm_MakeExtendedPair(scm__rc.d1562[320], SCM_OBJ(&scm__rc.d1563[700]), SCM_OBJ(&scm__rc.d1563[708])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-forward")), SCM_OBJ(&libstrstring_cursor_forward__STUB), 0); libstrstring_cursor_forward__STUB.common.info = scm__rc.d1562[322]; scm__rc.d1562[323] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[187])),TRUE); /* string-cursor-back */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[711]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[712]), scm__rc.d1562[323]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[713]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[714]), scm__rc.d1562[3]); scm__rc.d1562[324] = Scm_MakeExtendedPair(scm__rc.d1562[323], SCM_OBJ(&scm__rc.d1563[700]), SCM_OBJ(&scm__rc.d1563[716])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-back")), SCM_OBJ(&libstrstring_cursor_back__STUB), 0); libstrstring_cursor_back__STUB.common.info = scm__rc.d1562[324]; SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[717]), scm__rc.d1562[73]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[718]), scm__rc.d1562[99]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[721]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[722]), scm__rc.d1562[165]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[723]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[724]), scm__rc.d1562[3]); scm__rc.d1562[325] = Scm_MakeExtendedPair(scm__rc.d1562[165], SCM_OBJ(&scm__rc.d1563[718]), SCM_OBJ(&scm__rc.d1563[726])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-index->cursor")), SCM_OBJ(&libstrstring_index_TOcursor__STUB), 0); libstrstring_index_TOcursor__STUB.common.info = scm__rc.d1562[325]; SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[729]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[730]), scm__rc.d1562[196]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[731]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[732]), scm__rc.d1562[3]); scm__rc.d1562[326] = Scm_MakeExtendedPair(scm__rc.d1562[196], SCM_OBJ(&scm__rc.d1563[681]), SCM_OBJ(&scm__rc.d1563[734])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor->index")), SCM_OBJ(&libstrstring_cursor_TOindex__STUB), 0); libstrstring_cursor_TOindex__STUB.common.info = scm__rc.d1562[326]; scm__rc.d1562[327] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[188])),TRUE); /* cursor1 */ scm__rc.d1562[328] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[189])),TRUE); /* cursor2 */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[735]), scm__rc.d1562[328]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[736]), scm__rc.d1562[327]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[739]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[740]), scm__rc.d1562[144]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[741]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[742]), scm__rc.d1562[3]); scm__rc.d1562[329] = Scm_MakeExtendedPair(scm__rc.d1562[144], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[744])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor=?")), SCM_OBJ(&libstrstring_cursor_3dP__STUB), 0); libstrstring_cursor_3dP__STUB.common.info = scm__rc.d1562[329]; scm__rc.d1562[330] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[190])),TRUE); /* string-cursor? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[755]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[756]), scm__rc.d1562[332]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[757]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[758]), scm__rc.d1562[3]); scm__rc.d1562[333] = Scm_MakeExtendedPair(scm__rc.d1562[332], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[760])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor>?")), SCM_OBJ(&libstrstring_cursor_GTP__STUB), 0); libstrstring_cursor_GTP__STUB.common.info = scm__rc.d1562[333]; scm__rc.d1562[334] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[192])),TRUE); /* string-cursor<=? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[763]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[764]), scm__rc.d1562[334]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[765]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[766]), scm__rc.d1562[3]); scm__rc.d1562[335] = Scm_MakeExtendedPair(scm__rc.d1562[334], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[768])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor<=?")), SCM_OBJ(&libstrstring_cursor_LT_3dP__STUB), 0); libstrstring_cursor_LT_3dP__STUB.common.info = scm__rc.d1562[335]; scm__rc.d1562[336] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[193])),TRUE); /* string-cursor>=? */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[771]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[772]), scm__rc.d1562[336]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[773]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[774]), scm__rc.d1562[3]); scm__rc.d1562[337] = Scm_MakeExtendedPair(scm__rc.d1562[336], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[776])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor>=?")), SCM_OBJ(&libstrstring_cursor_GT_3dP__STUB), 0); libstrstring_cursor_GT_3dP__STUB.common.info = scm__rc.d1562[337]; scm__rc.d1562[338] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[194])),TRUE); /* string-cursor-diff */ SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[777]), scm__rc.d1562[99]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[780]), scm__rc.d1562[2]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[781]), scm__rc.d1562[338]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[782]), scm__rc.d1562[7]); SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[783]), scm__rc.d1562[3]); scm__rc.d1562[339] = Scm_MakeExtendedPair(scm__rc.d1562[338], SCM_OBJ(&scm__rc.d1563[777]), SCM_OBJ(&scm__rc.d1563[785])); Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-diff")), SCM_OBJ(&libstrstring_cursor_diff__STUB), 0); libstrstring_cursor_diff__STUB.common.info = scm__rc.d1562[339]; Scm_VMExecuteToplevels(toplevels); }