Home
last modified time | relevance | path

Searched refs:SG_STRING_SIZE (Results 1 – 25 of 26) sorted by relevance

12

/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/
H A Dfile.c168 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 Dlibrary.c180 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 Dstring.c233 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 Dunicode.c458 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 Dtranscoder.c302 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 Dcache.c134 (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 Dwriter.c214 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 Dreader.c657 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 Dvm.c761 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 Dcharset.c301 long i, len = SG_STRING_SIZE(input); in Sg_StringToCharSet()
H A Dcodec.c632 for (i = 0; i < SG_STRING_SIZE(str); i++) { in writec_proc()
H A Dlib_core.stub571 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 Dport.c1744 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 Dregex.c160 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 Dbytevector.c402 long len = SG_STRING_SIZE(s); in Sg_StringToByteVector()
H A Dregex_match.c89 #define TEXT_SIZE SG_STRING_SIZE
H A Dbignum.c2045 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 Dfile.c837 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 Dsystem.c136 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 Dstring.h70 #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 Dwin_util.c47 int size = SG_STRING_SIZE(path); in utf32ToUtf16()
56 SG_STRING_SIZE(path)); in utf32ToUtf16()
H A Dfile.c618 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 Dsagittarius-ffi.c139 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 Dodbc.c314 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 Dwindows_watch.c149 for (i = SG_STRING_SIZE(sab) - 1; i != 0; i--) { in get_dir()

12