str 243 gc/cord/cordprnt.c char * str = va_arg(args, char *);
str 246 gc/cord/cordprnt.c while ((c = *str++)) {
str 1625 src/extlib.c ScmString* str;
str 1629 src/extlib.c str = SCM_STRING(str_scm);
str 1633 src/extlib.c SCM_RESULT = Scm_StringCompleteToIncompleteX(str);
str 1645 src/extlib.c ScmString* str;
str 1649 src/extlib.c str = SCM_STRING(str_scm);
str 1653 src/extlib.c SCM_RESULT = Scm_StringIncompleteToCompleteX(str);
str 1665 src/extlib.c ScmString* str;
str 1669 src/extlib.c str = SCM_STRING(str_scm);
str 1673 src/extlib.c SCM_RESULT = Scm_StringCompleteToIncomplete(str);
str 1685 src/extlib.c ScmString* str;
str 1689 src/extlib.c str = SCM_STRING(str_scm);
str 1693 src/extlib.c SCM_RESULT = Scm_StringIncompleteToComplete(str);
str 1705 src/extlib.c ScmString* str;
str 1709 src/extlib.c str = SCM_STRING(str_scm);
str 1713 src/extlib.c SCM_RESULT = (SCM_STRING_BODY_SIZE(SCM_STRING_BODY(str)));
str 1757 src/extlib.c ScmString* str;
str 1768 src/extlib.c str = SCM_STRING(str_scm);
str 1781 src/extlib.c int r = Scm_StringByteRef(str, k, SCM_UNBOUNDP(fallback));
str 1794 src/extlib.c ScmString* str;
str 1802 src/extlib.c str = SCM_STRING(str_scm);
str 1812 src/extlib.c SCM_RESULT = Scm_StringByteSet(str, k, b);
str 1828 src/extlib.c ScmString* str;
str 1838 src/extlib.c str = SCM_STRING(str_scm);
str 1840 src/extlib.c ScmObj r = Scm_StringSubstitute(target, start, str);
str 1841 src/extlib.c if (!SCM_STRINGP(r)) Scm_Error("argument out of range: (%d %S)", start, str);
str 1852 src/extlib.c ScmString* str;
str 1863 src/extlib.c str = SCM_STRING(str_scm);
str 1879 src/extlib.c SCM_RESULT = Scm_MaybeSubstring(str, start, end);
str 1945 src/extlib.c ScmString* str;
str 1951 src/extlib.c str = SCM_STRING(str_scm);
str 1960 src/extlib.c SCM_RETURN(Scm_MakeInteger(Scm_HashString(str, modulo)));
str 2055 src/extlib.c ScmString* str;
str 2068 src/extlib.c str = SCM_STRING(str_scm);
str 2093 src/extlib.c SCM_RESULT = Scm_MakeStringPointer(str, index, start, end);
str 2355 src/extlib.c ScmString* str;
str 2362 src/extlib.c str = SCM_STRING(str_scm);
str 2369 src/extlib.c SCM_RESULT = Scm_RegComp(str, flags);
str 2421 src/extlib.c ScmString* str;
str 2428 src/extlib.c str = SCM_STRING(str_scm);
str 2435 src/extlib.c SCM_RESULT = Scm_RegComp(str, flags|SCM_REGEXP_PARSE_ONLY);
str 2487 src/extlib.c ScmString* str;
str 2493 src/extlib.c str = SCM_STRING(str_scm);
str 2499 src/extlib.c SCM_RETURN(Scm_RegExec(rx, str));
str 1050 src/gauche.h SCM_EXTERN int Scm_MBLen(const char *str, const char *stop);
str 1052 src/gauche.h SCM_EXTERN ScmObj Scm_MakeString(const char *str, int size, int len,
str 1055 src/gauche.h SCM_EXTERN ScmObj Scm_CopyStringWithFlags(ScmString *str, int flags, int mask);
str 1056 src/gauche.h #define Scm_CopyString(str) \
str 1057 src/gauche.h Scm_CopyStringWithFlags(str, 0, SCM_STRING_IMMUTABLE)
str 1059 src/gauche.h SCM_EXTERN char* Scm_GetString(ScmString *str);
str 1060 src/gauche.h SCM_EXTERN const char* Scm_GetStringConst(ScmString *str);
str 1061 src/gauche.h SCM_EXTERN const char* Scm_GetStringContent(ScmString *str,
str 1066 src/gauche.h SCM_EXTERN ScmObj Scm_StringCompleteToIncompleteX(ScmString *str);
str 1067 src/gauche.h SCM_EXTERN ScmObj Scm_StringIncompleteToCompleteX(ScmString *str);
str 1068 src/gauche.h SCM_EXTERN ScmObj Scm_StringCompleteToIncomplete(ScmString *str);
str 1069 src/gauche.h SCM_EXTERN ScmObj Scm_StringIncompleteToComplete(ScmString *str);
str 1075 src/gauche.h SCM_EXTERN const char *Scm_StringPosition(ScmString *str, int k);
str 1076 src/gauche.h SCM_EXTERN ScmChar Scm_StringRef(ScmString *str, int k, int range_error);
str 1077 src/gauche.h SCM_EXTERN ScmObj Scm_StringSet(ScmString *str, int k, ScmChar sc);
str 1078 src/gauche.h SCM_EXTERN int Scm_StringByteRef(ScmString *str, int k, int range_error);
str 1079 src/gauche.h SCM_EXTERN ScmObj Scm_StringByteSet(ScmString *str, int k, ScmByte b);
str 1081 src/gauche.h ScmString *str);
str 1094 src/gauche.h SCM_EXTERN ScmObj Scm_StringSplitByChar(ScmString *str, ScmChar ch);
str 1108 src/gauche.h SCM_EXTERN ScmObj Scm_StringToList(ScmString *str);
str 1110 src/gauche.h SCM_EXTERN ScmObj Scm_StringFill(ScmString *str, ScmChar c,
str 1123 src/gauche.h #define SCM_STRING_CONST_INITIALIZER(str, len, siz) \
str 1125 src/gauche.h { SCM_STRING_IMMUTABLE, (len), (siz), (str) } }
str 1127 src/gauche.h #define SCM_DEFINE_STRING_CONST(name, str, len, siz) \
str 1128 src/gauche.h ScmString name = SCM_STRING_CONST_INITIALIZER(str, len, siz)
str 1160 src/gauche.h SCM_EXTERN void Scm_DStringPutz(ScmDString *dstr, const char *str,
str 1162 src/gauche.h SCM_EXTERN void Scm_DStringAdd(ScmDString *dstr, ScmString *str);
str 1478 src/gauche.h SCM_EXTERN ScmObj Scm_MakeInputStringPort(ScmString *str, int privatep);
str 1791 src/gauche.h SCM_EXTERN unsigned long Scm_HashString(ScmString *str, unsigned long bound);
str 2198 src/gauche.h SCM_EXTERN ScmObj Scm_StringToNumber(ScmString *str, int radix, int strict);
str 212 src/hash.c unsigned long Scm_HashString(ScmString *str, unsigned long modulo)
str 216 src/hash.c const ScmStringBody *b = SCM_STRING_BODY(str);
str 773 src/hash.c char *str;
str 776 src/hash.c case SCM_HASH_EQ: str = "eq?"; break;
str 777 src/hash.c case SCM_HASH_EQV: str = "eqv?"; break;
str 778 src/hash.c case SCM_HASH_EQUAL: str = "equal?"; break;
str 779 src/hash.c case SCM_HASH_STRING: str = "string=?"; break;
str 780 src/hash.c case SCM_HASH_GENERAL: str = "general"; break;
str 782 src/hash.c case SCM_HASH_WORD: str = "raw word"; break;
str 783 src/hash.c case SCM_HASH_MULTIWORD: str = "raw multi-word"; break;
str 784 src/hash.c case SCM_HASH_RAW: str = "raw general"; break;
str 792 src/hash.c Scm_Printf(port, "#,(<hash-table> %s", str);
str 801 src/hash.c Scm_Printf(port, "#<hash-table %s %p>", str, ht);
str 2230 src/number.c const char *str = *strp;
str 2253 src/number.c } else if (*str == '0') {
str 2255 src/number.c while (len > 0 && *str == '0') { str++; len--; }
str 2261 src/number.c c = tolower(*str++);
str 2293 src/number.c *strp = str-1;
str 2557 src/number.c static ScmObj read_number(const char *str, int len, int radix, int strict)
str 2563 src/number.c ctx.buffer = str;
str 2583 src/number.c if (*str != '#') break;
str 2584 src/number.c str++;
str 2585 src/number.c switch (*str++) {
str 2616 src/number.c if (*str == '+' || *str == '-') {
str 2618 src/number.c if (len == 2 && (str[1] == 'i' || str[1] == 'I')) {
str 2620 src/number.c return Scm_MakeComplex(0.0, (*str == '+')? 1.0 : -1.0);
str 2625 src/number.c realpart = read_real(&str, &len, &ctx);
str 2628 src/number.c switch (*str) {
str 2636 src/number.c str++; len--;
str 2637 src/number.c angle = read_real(&str, &len, &ctx);
str 2649 src/number.c } else if (len == 2 && str[1] == 'i') {
str 2651 src/number.c (*str == '+' ? 1.0 : -1.0));
str 2653 src/number.c ScmObj imagpart = read_real(&str, &len, &ctx);
str 2654 src/number.c if (SCM_FALSEP(imagpart) || len != 1 || *str != 'i') {
str 2684 src/number.c ScmObj Scm_StringToNumber(ScmString *str, int radix, int strict)
str 2687 src/number.c const char *p = Scm_GetStringContent(str, &size, &len, NULL);
str 899 src/port.c ScmObj Scm_MakeInputStringPort(ScmString *str, int privatep)
str 903 src/port.c const char *s = Scm_GetStringContent(str, &size, NULL, NULL);
str 998 src/port.c static void null_putz(const char *str, int len, ScmPort *dummy)
str 122 src/read.c ScmObj Scm_ReadFromString(ScmString *str)
str 124 src/read.c ScmObj inp = Scm_MakeInputStringPort(str, TRUE), r;
str 1985 src/regexp.c ScmObj Scm_RegExec(ScmRegexp *rx, ScmString *str)
str 1987 src/regexp.c const ScmStringBody *b = SCM_STRING_BODY(str);
str 1993 src/regexp.c if (SCM_STRING_INCOMPLETE_P(str)) {
str 1994 src/regexp.c Scm_Error("incomplete string is not allowed: %S", str);
str 2004 src/regexp.c if (SCM_FALSEP(Scm_StringScan(str, rx->mustMatch,
str 2013 src/regexp.c return rex(rx, str, start, end);
str 2017 src/regexp.c ScmObj r = rex(rx, str, start, end);
str 2570 src/stdlib.c ScmString* str;
str 2574 src/stdlib.c str = SCM_STRING(str_scm);
str 2578 src/stdlib.c SCM_RESULT = (SCM_STRING_BODY_LENGTH(SCM_STRING_BODY(str)));
str 2590 src/stdlib.c ScmString* str;
str 2601 src/stdlib.c str = SCM_STRING(str_scm);
str 2614 src/stdlib.c ScmChar r = Scm_StringRef(str, k, SCM_UNBOUNDP(fallback));
str 2627 src/stdlib.c ScmString* str;
str 2635 src/stdlib.c str = SCM_STRING(str_scm);
str 2643 src/stdlib.c ScmObj r = Scm_StringSet(str, k, c);
str 2905 src/stdlib.c ScmString* str;
str 2913 src/stdlib.c str = SCM_STRING(str_scm);
str 2923 src/stdlib.c SCM_RESULT = Scm_Substring(str, start, end);
str 2955 src/stdlib.c ScmString* str;
str 2966 src/stdlib.c str = SCM_STRING(str_scm);
str 2980 src/stdlib.c ScmObj xstr = Scm_MaybeSubstring(str, start, end);
str 3011 src/stdlib.c ScmString* str;
str 3022 src/stdlib.c str = SCM_STRING(str_scm);
str 3036 src/stdlib.c ScmObj xstr = Scm_MaybeSubstring(str, start, end);
str 3047 src/stdlib.c ScmString* str;
str 3060 src/stdlib.c str = SCM_STRING(str_scm);
str 3079 src/stdlib.c SCM_RESULT = Scm_StringFill(str, c, start, end);
str 49 src/string.c #define CHECK_MUTABLE(str) \
str 51 src/string.c if (SCM_STRING_IMMUTABLE_P(str)) \
str 52 src/string.c Scm_Error("attempted to modify immutable string: %S", str); \
str 87 src/string.c void Scm_StringDump(FILE *out, ScmObj str)
str 90 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
str 117 src/string.c static inline int count_size_and_length(const char *str, int *psize, int *plen)
str 120 src/string.c const char *p = str;
str 138 src/string.c static inline int count_length(const char *str, int size)
str 144 src/string.c unsigned char c = (unsigned char)*str;
str 147 src/string.c SCM_CHAR_GET(str, ch);
str 150 src/string.c str += i+1;
str 159 src/string.c int Scm_MBLen(const char *str, const char *stop)
str 161 src/string.c int size = (stop == NULL)? strlen(str) : (stop - str);
str 162 src/string.c return count_length(str, size);
str 170 src/string.c ScmObj Scm_MakeString(const char *str, int size, int len, int flags)
str 174 src/string.c if (size < 0) count_size_and_length(str, &size, &len);
str 175 src/string.c else if (len < 0) len = count_length(str, size);
str 178 src/string.c memcpy(nstr, str, size);
str 182 src/string.c s = make_str(len, size, str, flags);
str 227 src/string.c char *Scm_GetString(ScmString *str)
str 231 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
str 261 src/string.c const char *Scm_GetStringConst(ScmString *str)
str 263 src/string.c return get_string_from_body(SCM_STRING_BODY(str));
str 268 src/string.c const char *Scm_GetStringContent(ScmString *str,
str 273 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
str 464 src/string.c ScmChar Scm_StringRef(ScmString *str, int pos, int range_error)
str 466 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
str 472 src/string.c Scm_Error("incomplete string not allowed : %S", str);
str 495 src/string.c int Scm_StringByteRef(ScmString *str, int offset, int range_error)
str 497 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
str 514 src/string.c const char *Scm_StringPosition(ScmString *str, int offset)
str 516 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
str 550 src/string.c ScmObj Scm_StringAppendC(ScmString *x, const char *str, int sizey, int leny)
str 557 src/string.c if (sizey < 0) count_size_and_length(str, &sizey, &leny);
str 558 src/string.c else if (leny < 0) leny = count_length(str, sizey);
str 562 src/string.c memcpy(p+sizex, str, sizey);
str 703 src/string.c const char *str, int sizey, int leny,
str 714 src/string.c make_str(leny, sizey, str, 0));
str 722 src/string.c memcpy(p+start, str, sizey);
str 735 src/string.c memcpy(p + (s - SCM_STRING_BODY_START(xb)), str, sizey);
str 859 src/string.c ScmObj Scm_StringSplitByChar(ScmString *str, ScmChar ch)
str 861 src/string.c const ScmStringBody *strb = SCM_STRING_BODY(str);
str 869 src/string.c Scm_Error("incomplete string not accepted: %S", str);
str 1061 src/string.c ScmObj Scm_StringToList(ScmString *str)
str 1063 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
str 1070 src/string.c Scm_Error("incomplete string not supported: %S", str);
str 1079 src/string.c ScmObj Scm_StringFill(ScmString *str, ScmChar ch,
str 1086 src/string.c const ScmStringBody *strb = SCM_STRING_BODY(str);
str 1088 src/string.c CHECK_MUTABLE(str);
str 1090 src/string.c Scm_Error("incomplete string not allowed: %S", str);
str 1113 src/string.c if (start == end) return SCM_OBJ(str);
str 1134 src/string.c str->body = make_str_body(SCM_STRING_BODY_LENGTH(strb),
str 1138 src/string.c return SCM_OBJ(str);
str 1193 src/string.c ScmString *str = SCM_STRING(obj);
str 1195 src/string.c SCM_PUTS(str, port);
str 1197 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
str 1506 src/string.c const char *str = dstring_getz(dstr, &len, &size);
str 1507 src/string.c return SCM_OBJ(make_str(len, size, str, flags));
str 1518 src/string.c void Scm_DStringPutz(ScmDString *dstr, const char *str, int size)
str 1520 src/string.c if (size < 0) size = strlen(str);
str 1524 src/string.c memcpy(dstr->current, str, size);
str 1527 src/string.c int len = count_length(str, size);
str 1533 src/string.c void Scm_DStringAdd(ScmDString *dstr, ScmString *str)
str 1535 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
str 402 src/system.c const char *str = Scm_GetStringContent(pathname, &size, NULL, NULL);
str 403 src/system.c const char *srcp = str;
str 404 src/system.c const char *endp = str + size;
str 414 src/system.c if ((flags & SCM_PATH_EXPAND) && size >= 1 && *str == '~') {
str 443 src/system.c } else if (srcp == str) {
str 266 src/write.c #define CASE_ITAG(obj, str) \
str 267 src/write.c case SCM_ITAG(obj): Scm_PutzUnsafe(str, -1, port); break;
str 599 src/write.c static void format_pad(ScmPort *out, ScmString *str,
str 603 src/write.c int padcount = mincol- SCM_STRING_BODY_LENGTH(SCM_STRING_BODY(str));
str 613 src/write.c Scm_PutsUnsafe(str, SCM_PORT(out));
str 618 src/write.c Scm_PutsUnsafe(str, out);
str 673 src/write.c ScmObj str;
str 687 src/write.c str = Scm_NumberToString(arg, radix, use_upper);
str 688 src/write.c if (alwayssign && SCM_STRING_BODY_START(SCM_STRING_BODY(str))[0] != '-') {
str 689 src/write.c str = Scm_StringAppend2(SCM_STRING(SCM_MAKE_STR("+")),
str 690 src/write.c SCM_STRING(str));
str 700 src/write.c const char *ptr = Scm_GetStringContent(SCM_STRING(str), &num_digits,
str 716 src/write.c str = Scm_DStringGet(&tmpout, 0);
str 718 src/write.c format_pad(out, SCM_STRING(str), mincol, 1, padchar, TRUE);