/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
H A D | file.c | 168 for (i = 0; i < SG_STRING_SIZE(str); i++) { in brace_expand() 179 if (++i == SG_STRING_SIZE(str)) break; in brace_expand() 212 for (j = rbrace+1; j < SG_STRING_SIZE(str); j++) { in brace_expand() 246 for (i = start; i < SG_STRING_SIZE(path); i++) { in find_close_bracket() 261 for (i = 0; i < SG_STRING_SIZE(path); i++) { in remove_backslashes() 265 if (SG_STRING_SIZE(path) == count) return path; in remove_backslashes() 268 for (i = 0, j = 0; i < SG_STRING_SIZE(path); i++) { in remove_backslashes() 335 for (i = 0, start = 0; i < SG_STRING_SIZE(path);) { in glob_make_pattern() 364 if (!has && SG_STRING_SIZE(path) - i >= 3 && in glob_make_pattern() 448 for (i = 0; i < SG_STRING_SIZE(p); i++) { in glob_match1() [all …]
|
H A D | library.c | 180 long len = SG_STRING_SIZE(s); in library_name_to_id_version() 386 long size = SG_STRING_SIZE(s), i, offset; in encode_string() 390 for (i = 0; i < SG_STRING_SIZE(s); i++) { in encode_string() 402 for (i = 0; i < SG_STRING_SIZE(s); i++) { in encode_string() 490 (offset) += SG_STRING_SIZE(src); \ 524 check_length(SG_STRING_SIZE(SG_CAR(dir))); in get_possible_paths() 528 check_length(SG_STRING_SIZE(path)); in get_possible_paths() 535 check_length(SG_STRING_SIZE(SG_CAAR(ext))); in get_possible_paths() 538 SG_STRING_SIZE(buf) = offset; in get_possible_paths() 953 if (SG_STRING_SIZE(name) < SG_STRING_SIZE(prefix)) return SG_FALSE; in unrename_variable() [all …]
|
H A D | string.c | 233 long size = SG_STRING_SIZE(s); in Sg_StringToIString() 290 long s1_len = SG_STRING_SIZE(s1); in Sg_StringCompare() 291 long s2_len = SG_STRING_SIZE(s2); in Sg_StringCompare() 352 long size = SG_STRING_SIZE(s), i; in Sg_StringToList() 429 long size1 = SG_STRING_SIZE(s); in string_scan() 504 return string_scan(s1, SG_STRING_VALUE(s2), SG_STRING_SIZE(s2), retmode); in Sg_StringScan() 524 s = Sg_Substring(s, p+1, SG_STRING_SIZE(s)); in Sg_StringSplitChar() 581 return SG_STRING_SIZE(s); in Sg_StringLength() 585 if (k > SG_STRING_SIZE(s) || k < 0) { in Sg_StringRef() 602 if (k > SG_STRING_SIZE(s)) { in Sg_StringSet()
|
H A D | unicode.c | 458 SG_STRING_SIZE(ss) = (int)r; in Sg_Utf8sToUtf32s() 470 SG_STRING_SIZE(ss) = (int)r; in Sg_Utf16sToUtf32s() 501 long size = SG_STRING_SIZE(s); in Sg_StringToWCharTs() 946 long size = SG_STRING_SIZE(in); in final_sigma_p() 968 long i, size = SG_STRING_SIZE(str); in Sg_StringUpCase() 1028 long i, size = SG_STRING_SIZE(str); in Sg_StringDownCase() 1056 long i, size = SG_STRING_SIZE(in); in downcase_subsequence() 1098 long i, size = SG_STRING_SIZE(in); in titlecase_first_char() 1132 long size = SG_STRING_SIZE(str); in Sg_StringTitleCase() 1153 long i, size = SG_STRING_SIZE(str); in Sg_StringFoldCase() [all …]
|
H A D | transcoder.c | 302 if (SG_STRING_SIZE(r) == 0) goto end; /* the same as builtin */ in Sg_TranscoderRead() 304 SG_STRING_SIZE(r)); in Sg_TranscoderRead() 305 read += SG_STRING_SIZE(r) - diff; in Sg_TranscoderRead() 427 count = SG_STRING_SIZE(new_s); in Sg_TranscoderWrite()
|
H A D | cache.c | 134 (offset) += SG_STRING_SIZE(src); \ 140 long size = SG_STRING_SIZE(id), i, offset = 0; in id_to_filename() 144 size += SG_STRING_SIZE(CACHE_DIR); in id_to_filename() 145 size += SG_STRING_SIZE(SEPARATOR); in id_to_filename() 146 size += SG_STRING_SIZE(CACHE_EXT); in id_to_filename() 148 for (i = 0; i < SG_STRING_SIZE(id); i++) { in id_to_filename() 156 for (i = 0; i < SG_STRING_SIZE(id); i++) { in id_to_filename() 700 long size = SG_STRING_SIZE(s); in write_string_cache() 734 long size = SG_STRING_SIZE(str); in write_number_cache() 2289 if (SG_STRING_SIZE(SG_CAR(cache)) == 1 && in Sg_CleanCache() [all …]
|
H A D | writer.c | 214 long padcount = mincol - SG_STRING_SIZE(str); in format_pad() 268 long size = SG_STRING_SIZE(tmpstr); in format_sexp() 312 unsigned long num_digits = SG_STRING_SIZE(str), colcnt, i; in format_integer()
|
H A D | reader.c | 657 if (SG_STRING_SIZE(str) == 1 && SG_STRING_VALUE_AT(str, 0) == '.') in read_symbol_or_number() 663 if (SG_STRING_SIZE(str) == 1 && in read_symbol_or_number() 668 if (SG_STRING_SIZE(str) >= 2 && in read_symbol_or_number() 671 for (i = 2; i < SG_STRING_SIZE(str); i++) { in read_symbol_or_number() 975 for (i = 0, prev = 0; i < SG_STRING_SIZE(s); i++) { in construct_lib_name()
|
H A D | vm.c | 761 long len = SG_STRING_SIZE(s); in vm_dump_code_rec() 1659 SgPort *ret = SG_PORT(Sg_MakeStringOutputPort(SG_STRING_SIZE(path))); in replace_file_separator() 1661 for (i = 0; i < SG_STRING_SIZE(path); i++) { in replace_file_separator() 1680 if (SG_STRING_SIZE(path) != 0) { in Sg_AddLoadPath() 1695 if (SG_STRING_SIZE(path) != 0) { in Sg_AddDynamicLoadPath()
|
H A D | charset.c | 301 long i, len = SG_STRING_SIZE(input); in Sg_StringToCharSet()
|
H A D | codec.c | 632 for (i = 0; i < SG_STRING_SIZE(str); i++) { in writec_proc()
|
H A D | lib_core.stub | 571 SG_STRING_SIZE) 578 ((and (<= 0 k) (< k (SG_STRING_SIZE s))) 631 (when (< (SG_STRING_SIZE s) end) 1409 (size::long (SG_STRING_SIZE s))) 2038 (check-fixnum-range get-string-n! (SG_STRING_SIZE s) (+ start count) >=) 2294 (count::<fixnum> (SG_MAKE_INT (- (SG_STRING_SIZE s) start)))) 2301 (unless (<= (+ count start) (SG_STRING_SIZE s))
|
H A D | port.c | 1744 int64_t len = SG_STRING_SIZE(s); in Sg_InitStringInputPort() 2159 long size = SG_STRING_SIZE(s); in custom_textual_put_string() 2784 SG_STRING_SIZE(str)); in Sg_PutsUnsafe()
|
H A D | regex.c | 160 ctx->len = SG_STRING_SIZE(str); in init_lexer() 2205 long i, size = SG_STRING_SIZE(pattern->pattern); in pattern_printer() 2639 long size = SG_STRING_SIZE(s); in Sg_ParseCharSetString()
|
H A D | bytevector.c | 402 long len = SG_STRING_SIZE(s); in Sg_StringToByteVector()
|
H A D | regex_match.c | 89 #define TEXT_SIZE SG_STRING_SIZE
|
H A D | bignum.c | 2045 if (SG_STRING_SIZE(r) < count && Sg_PortPosition(out) > 0) { in schonehage_to_string() 2046 for (i = SG_STRING_SIZE(r); i < count; i++) Sg_PutcUnsafe(out, '0'); in schonehage_to_string()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/posix/ |
H A D | file.c | 837 long size = SG_STRING_SIZE(path), i; in Sg_DirectoryName() 847 long psize = SG_STRING_SIZE(path), fsize = SG_STRING_SIZE(file); in Sg_BuildPath() 880 size_t s = SG_STRING_SIZE(path); in strip_trailing_slash() 884 SG_STRING_SIZE(path) = s; in strip_trailing_slash() 893 SgObject out = Sg_InitStringOutputPort(&sp, SG_STRING_SIZE(fullpath)); in normalise_path() 896 while (i < SG_STRING_SIZE(fullpath)) { in normalise_path() 899 if (i != SG_STRING_SIZE(fullpath)) { in normalise_path() 903 SG_STRING_SIZE(fullpath) == i) { in normalise_path() 919 for (; i < SG_STRING_SIZE(fullpath); i++) { in normalise_path()
|
H A D | system.c | 136 if (!SG_FALSEP(env) && SG_STRING_SIZE(env) != 0) { in Sg_GetDefaultLoadPath() 152 if (!SG_FALSEP(env) && SG_STRING_SIZE(env) != 0) { in Sg_GetDefaultDynamicLoadPath()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/ |
H A D | string.h | 70 #define SG_STRING_SIZE(obj) (SG_STRING(obj)->size) macro 91 SG_STRING_SIZE(var) = size; \
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/win/ |
H A D | win_util.c | 47 int size = SG_STRING_SIZE(path); in utf32ToUtf16() 56 SG_STRING_SIZE(path)); in utf32ToUtf16()
|
H A D | file.c | 618 size_t size = SG_STRING_SIZE(target); in end_with() 923 if (!SG_FALSEP(env) && SG_STRING_SIZE(env) != 0) { in Sg_GetDefaultLoadPath() 942 if (!SG_FALSEP(env) && SG_STRING_SIZE(env) != 0) { in Sg_GetDefaultDynamicLoadPath() 958 int size = SG_STRING_SIZE(path), i; in Sg_DirectoryName() 968 int psize = SG_STRING_SIZE(path), fsize = SG_STRING_SIZE(file); in Sg_BuildPath() 988 else if (SG_STRING_SIZE(path) > 2 && in Sg_AbsolutePathP()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/ffi/ |
H A D | sagittarius-ffi.c | 139 for (i = 0; i < SG_STRING_SIZE(signatures); i++) { in set_ffi_parameter_types() 182 for (i = 0; i < SG_STRING_SIZE(signatures); i++) { in make_funcinfo() 194 fn->argc = SG_STRING_SIZE(signatures); in make_funcinfo() 868 for (i = 0; i < SG_STRING_SIZE(signatures); i++) { in set_ffi_callback_parameter_types() 1309 for (i = 0; i < SG_STRING_SIZE(callback->signatures); i++) { in get_callback_arguments() 1805 ffi_type **params = SG_NEW_ARRAY(ffi_type *, SG_STRING_SIZE(sig)); in prep_method_handler() 1808 ffi_prep_cif(&callback->cif, FFI_DEFAULT_ABI, SG_STRING_SIZE(sig), in prep_method_handler()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/odbc/ |
H A D | odbc.c | 314 SG_STRING_SIZE(value), 0, holder->param.p, 0, NULL); in Sg_BindParameter() 818 size += SG_STRING_SIZE(SG_CAR(cp)) + 1; in string_join() 826 for (i = 0; i < SG_STRING_SIZE(SG_CAR(cp)); i++) { in string_join()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/filewatch/ |
H A D | windows_watch.c | 149 for (i = SG_STRING_SIZE(sab) - 1; i != 0; i--) { in get_dir()
|