/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/crypto/ |
H A D | math_stub.stub | 69 (unless (or (SG_HASH_P h) (SG_STRINGP h)) 72 (when (SG_STRINGP h) (set! h (Sg_MakeHash (SG_STRING h)))) 77 (SG_STRINGP h)) 80 (when (SG_STRINGP h) (set! h (Sg_MakeHash (SG_STRING h)))) 85 (SG_STRINGP h)) 88 (when (SG_STRINGP h) (set! h (Sg_MakeHash (SG_STRING h))))
|
H A D | hash.c | 306 if (SG_STRINGP(name)) { in Sg_LookupHash() 387 if (!SG_STRINGP(value) && !SG_FALSEP(value)) { in uh_oid_set()
|
H A D | random.c | 251 if (SG_STRINGP(name)) { in Sg_LookupPrng()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
H A D | compare.c | 149 return SG_MAKE_BOOL(SG_STRINGP(args[0])); 156 if (!SG_STRINGP(args[0])) { in string_hash() 167 if (!SG_STRINGP(args[0]) || !SG_STRINGP(args[1])) { in string_eq() 180 if (!SG_STRINGP(args[0]) || !SG_STRINGP(args[1])) { in string_cmp() 317 if (SG_STRINGP(x) && SG_STRINGP(y)) in Sg_Compare() 456 if (SG_STRINGP(x)) { 457 if (!SG_STRINGP(y)) return FALSE; 562 if (SG_STRINGP(x)) { in pre_p() 563 if (!SG_STRINGP(y)) { in pre_p() 721 if (SG_STRINGP(x)) { in fast_p() [all …]
|
H A D | lib_regex.stub | 92 (unless (or (and (SG_STRINGP replacement) (SG_TEXT_MATCHER m)) 102 (unless (or (and (SG_STRINGP replacement) (SG_TEXT_MATCHER m)) 112 (unless (or (and (SG_STRINGP replacement) (SG_TEXT_MATCHER m))
|
H A D | file.c | 297 if (SG_STRINGP(SG_CAR(p))) { in convert_star() 431 !(SG_STRINGP(SG_CAR(pat)) && in glob_match1() 446 if (SG_STRINGP(p)) { in glob_match1() 496 } else if (SG_STRINGP(SG_CAAR(pat)) && SG_NULLP(SG_CDAR(pat))) { in glob_match()
|
H A D | lib_sagittarius.c | 3778 if (!SG_STRINGP(p_scm)) in sagittarius_directory_name() 4005 if (!SG_STRINGP(s1_scm)) in sagittarius_string_scan() 4082 if (!SG_STRINGP(s_scm)) in sagittarius__25maybe_substring() 4129 if (!SG_STRINGP(s_scm)) in sagittarius_string_titlecase_2fspecial_casing() 4172 if (!SG_STRINGP(s_scm)) in sagittarius_literal_stringP() 4201 if (!SG_STRINGP(s_scm)) in sagittarius_string_TOistring() 5313 SG_STRINGP(p)){ in sagittarius_format() 5357 SG_STRINGP(p)){ in sagittarius_format_2fss() 5465 if (!SG_STRINGP(id_scm)) in sagittarius_make_custom_binary_bidirectional_port() 5524 if (!SG_STRINGP(id_scm)) in sagittarius_make_custom_textual_bidirectional_port() [all …]
|
H A D | string.c | 159 ASSERT(SG_STRINGP(r)); in makestring() 331 if (!SG_STRINGP(SG_CAR(cp))) { in Sg_StringAppend() 577 return SG_STRINGP(obj); in Sg_IsString()
|
H A D | symbol.c | 57 ASSERT(SG_STRINGP(obj->name)); in symbol_print()
|
H A D | lib_regex.c | 250 if (!SG_STRINGP(p_scm)) in sagittarius_regex_impl_compile_regex() 759 if ((!((((SG_STRINGP(replacement))&&(SG_TEXT_MATCHER(m)))||( in sagittarius_regex_impl__25regex_replace_all() 796 if ((!((((SG_STRINGP(replacement))&&(SG_TEXT_MATCHER(m)))||( in sagittarius_regex_impl__25regex_replace_first() 840 if ((!((((SG_STRINGP(replacement))&&(SG_TEXT_MATCHER(m)))||( in sagittarius_regex_impl__25regex_replace() 987 if (!SG_STRINGP(s_scm)) in sagittarius_regex_impl_parse_char_set_string() 1086 if (!SG_STRINGP(text_scm)) in sagittarius_regex_impl_regex_text_matcher()
|
H A D | library.c | 198 if (SG_STRINGP(name)) return Sg_Intern(name); in convert_name_to_symbol() 1111 if (SG_STRINGP(path)) { in Sg_FindDefaultDirectiveByPath() 1133 if (SG_STRINGP(conf)) { in Sg_AddLoadSuffix() 1136 if (SG_STRINGP(SG_CAR(conf)) && SG_SYMBOLP(SG_CDR(conf))) { in Sg_AddLoadSuffix()
|
H A D | lib_core.c | 727 SG_RESULT=(SG_STRINGP(o)); in core_stringP() 2628 if (!SG_STRINGP(s_scm)) in core_string_TOnumber() 4340 if (!SG_STRINGP(z_scm)) in core_string_TOsymbol() 4625 if (!SG_STRINGP(s_scm)) in core_string_length() 4654 if (!SG_STRINGP(s_scm)) in core_string_ref() 4878 if (!SG_STRINGP(s_scm)) in core_substring() 4963 if (!SG_STRINGP(s_scm)) in core_string_TOlist() 5057 if (!SG_STRINGP(s_scm)) in core_string_copy() 5929 if (!SG_STRINGP(s_scm)) in core_string_upcase() 5978 if (!SG_STRINGP(s_scm)) in core_string_downcase() [all …]
|
H A D | load.c | 231 if (SG_STRINGP(initfn)) { in get_initfn_name()
|
H A D | cache.c | 246 (!SG_PTRP(obj) || SG_SYMBOLP(obj) || SG_STRINGP(obj) || \ 480 (SG_STRINGP(obj) || SG_SYMBOLP(obj) || SG_KEYWORDP(obj) || \ 509 if (SG_STRINGP(obj) || SG_SYMBOLP(obj) || SG_KEYWORDP(obj)) { in write_cache_scan() 858 if (!(!SG_PTRP(o) || SG_SYMBOLP(o) || SG_STRINGP(o) || in write_object_cache() 870 } else if (SG_STRINGP(o)) { in write_object_cache()
|
H A D | lib_sagittarius.stub | 225 (unless (SG_STRINGP path) 597 (cond ((SG_STRINGP s2) (result (Sg_StringScan s1 (SG_STRING s2) rmode))) 990 ((SG_STRINGP p) 1011 ((SG_STRINGP p) 1293 (cond ((SG_STRINGP value) 1688 (SG_STRINGP ,val)) 1700 (unless (SG_STRINGP arg) 1704 (unless (or (SG_STRINGP directory) (SG_FALSEP directory)) 1716 (when (SG_STRINGP directory) (set! d (SG_STRING directory)))
|
H A D | transcoder.c | 298 if (!SG_STRINGP(r)) { in Sg_TranscoderRead()
|
H A D | exceptions.c | 863 if (SG_STRINGP(v)) { in describe_simple() 869 if (SG_STRINGP(v)) { in describe_simple()
|
H A D | hashtable.c | 221 } else if (SG_STRINGP(obj)) { in equal_hash_rec() 437 if (!SG_STRINGP(key)) { in string_access()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/ |
H A D | string.h | 65 #define SG_STRINGP(obj) SG_XTYPEP(obj, SG_CLASS_STRING) macro 68 (SG_STRINGP(obj) && SG_STRING(obj)->immutablep)
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/posix/ |
H A D | system.c | 610 } else if (SG_STRINGP(*port) || SG_EQ(*port, SG_KEYWORD_NULL)) { in init_fd() 614 if (SG_STRINGP(*port)) { in init_fd() 650 if (SG_STRINGP(*port)) { in init_fd()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/win/ |
H A D | system.c | 518 } else if (SG_STRINGP(*port) || SG_EQ(*port, SG_KEYWORD_NULL)) { in init_fd() 524 if (SG_STRINGP(*port)) { in init_fd() 565 if (SG_STRINGP(*port)) { in init_fd()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/threads/ |
H A D | threads_stub.stub | 152 (unless (or (SG_FALSEP name) (SG_STRINGP name))
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/ffi/ |
H A D | sagittarius-ffi.c | 1019 } else if (SG_STRINGP(obj)) { in push_ffi_type_value() 1235 if (SG_STRINGP(v)) { \ in convert_scheme_to_c_value() 1549 || SG_STRINGP(arg) || SG_CALLBACKP(arg)) { in set_ffi_varargs_parameter_types() 1573 } else if (SG_STRINGP(arg)) { in push_varargs_ffi_type_value()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/odbc/ |
H A D | odbc.c | 308 } else if (SG_STRINGP(value)) { in Sg_BindParameter() 811 if (!SG_STRINGP(SG_CAR(cp))) { in string_join()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/socket/ |
H A D | socket_stub.stub | 11 `(unless (or (SG_STRINGP ,o)
|