xb 352 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x); xb 354 src/string.c if ((SCM_STRING_BODY_FLAGS(xb)^SCM_STRING_BODY_FLAGS(yb))&SCM_STRING_INCOMPLETE) { xb 357 src/string.c if (SCM_STRING_BODY_SIZE(xb) != SCM_STRING_BODY_SIZE(yb)) { xb 360 src/string.c return (memcmp(SCM_STRING_BODY_START(xb), xb 362 src/string.c SCM_STRING_BODY_SIZE(xb)) == 0? TRUE : FALSE); xb 368 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x); xb 370 src/string.c if ((SCM_STRING_BODY_FLAGS(xb)^SCM_STRING_BODY_FLAGS(yb))&SCM_STRING_INCOMPLETE) { xb 374 src/string.c sizx = SCM_STRING_BODY_SIZE(xb); xb 377 src/string.c r = memcmp(SCM_STRING_BODY_START(xb), SCM_STRING_BODY_START(yb), siz); xb 421 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x); xb 424 src/string.c if ((SCM_STRING_BODY_FLAGS(xb)^SCM_STRING_BODY_FLAGS(yb))&SCM_STRING_INCOMPLETE) { xb 428 src/string.c sizx = SCM_STRING_BODY_SIZE(xb); lenx = SCM_STRING_BODY_SIZE(xb); xb 430 src/string.c px = SCM_STRING_BODY_START(xb); xb 533 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x); xb 535 src/string.c int sizex = SCM_STRING_BODY_SIZE(xb), lenx = SCM_STRING_BODY_LENGTH(xb); xb 540 src/string.c memcpy(p, xb->start, sizex); xb 544 src/string.c if (SCM_STRING_BODY_INCOMPLETE_P(xb) || SCM_STRING_BODY_INCOMPLETE_P(yb)) { xb 552 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x); xb 553 src/string.c int sizex = SCM_STRING_BODY_SIZE(xb), lenx = SCM_STRING_BODY_LENGTH(xb); xb 561 src/string.c memcpy(p, xb->start, sizex); xb 565 src/string.c if (SCM_STRING_BODY_INCOMPLETE_P(xb) || leny < 0) { xb 702 src/string.c const ScmStringBody *xb, int start, xb 706 src/string.c int sizex = SCM_STRING_BODY_SIZE(xb), lenx = SCM_STRING_BODY_LENGTH(xb); xb 717 src/string.c if (SCM_STRING_BODY_SINGLE_BYTE_P(xb)) { xb 721 src/string.c if (start > 0) memcpy(p, SCM_STRING_BODY_START(xb), start); xb 723 src/string.c memcpy(p+start+sizey, SCM_STRING_BODY_START(xb)+end, sizex-end); xb 728 src/string.c s = forward_pos(SCM_STRING_BODY_START(xb), start); xb 733 src/string.c memcpy(p, SCM_STRING_BODY_START(xb), s - SCM_STRING_BODY_START(xb)); xb 735 src/string.c memcpy(p + (s - SCM_STRING_BODY_START(xb)), str, sizey); xb 736 src/string.c memcpy(p + (s - SCM_STRING_BODY_START(xb)) + sizey, e, xb 737 src/string.c SCM_STRING_BODY_START(xb) + sizex - e); xb 741 src/string.c newlen = SCM_STRING_BODY_INCOMPLETE_P(xb)? sizez : lenx; xb 742 src/string.c newflags = SCM_STRING_BODY_FLAGS(xb) & ~SCM_STRING_IMMUTABLE; xb 765 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x); xb 767 src/string.c if (SCM_STRING_BODY_INCOMPLETE_P(xb)) { xb 769 src/string.c return string_substitute(x, xb, k, &byte, 1, 1, TRUE); xb 774 src/string.c return string_substitute(x, xb, k, buf, size, 1, FALSE); xb 780 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x); xb 781 src/string.c int size = SCM_STRING_BODY_SIZE(xb); xb 787 src/string.c memcpy(p, xb->start, size); xb 800 src/string.c static ScmObj substring(const ScmStringBody *xb, int start, int end) xb 804 src/string.c if (end > SCM_STRING_BODY_LENGTH(xb)) xb 808 src/string.c if (SCM_STRING_BODY_SINGLE_BYTE_P(xb)) { xb 811 src/string.c SCM_STRING_BODY_START(xb) + start, xb 812 src/string.c SCM_STRING_BODY_FLAGS(xb)&~SCM_STRING_IMMUTABLE)); xb 815 src/string.c if (start) s = forward_pos(SCM_STRING_BODY_START(xb), start); xb 816 src/string.c else s = SCM_STRING_BODY_START(xb); xb 833 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x); xb 844 src/string.c iend = SCM_STRING_BODY_LENGTH(xb); xb 850 src/string.c return substring(xb, istart, iend);