/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
H A D | lib_fixnums.c | 912 SG_RESULT=(SG_INTP(o)); in sagittarius_fixnums_fixnumP() 1162 if (!SG_INTP(fx_scm)) in sagittarius_fixnums_fxzeroP() 1664 if (SG_INTP(fx1)){ in sagittarius_fixnums_fxand() 1667 if ((SG_INTP(fx1))&&(SG_INTP(fx2))){ in sagittarius_fixnums_fxand() 1672 if ((!((SG_INTP(fx1))&&(SG_INTP(fx2))))){{ in sagittarius_fixnums_fxand() 1724 if (SG_INTP(fx1)){ in sagittarius_fixnums_fxior() 1727 if ((SG_INTP(fx1))&&(SG_INTP(fx2))){ in sagittarius_fixnums_fxior() 1732 if ((!((SG_INTP(fx1))&&(SG_INTP(fx2))))){{ in sagittarius_fixnums_fxior() 1784 if (SG_INTP(fx1)){ in sagittarius_fixnums_fxxor() 1787 if ((SG_INTP(fx1))&&(SG_INTP(fx2))){ in sagittarius_fixnums_fxxor() [all …]
|
H A D | number.c | 1708 if (SG_INTP(n)) { in integer_length_rec() 1737 if (SG_INTP(x)) { in Sg_Ash() 1775 if (SG_INTP(x)) { in Sg_LogNot() 1787 if (SG_INTP(x)) { in Sg_LogAnd() 1817 if (SG_INTP(x)) { in Sg_LogIor() 1837 if (SG_INTP(x)) { in Sg_LogXor() 1856 if (SG_INTP(x)) { in Sg_BitCount() 1871 if (SG_INTP(x)) { in Sg_BitSize() 1887 if (SG_INTP(x)) { in Sg_FirstBitSet() 1909 if (SG_INTP(x)) { in Sg_BitSetP() [all …]
|
H A D | lib_regex.c | 259 if (!SG_INTP(flags_scm) && !SG_INTP(flags_scm)) in sagittarius_regex_impl_compile_regex() 303 if (!SG_INTP(flags_scm) && !SG_INTP(flags_scm)) in sagittarius_regex_impl_compile_regex_ast() 382 if (!SG_INTP(start_scm) && !SG_INTP(start_scm)) in sagittarius_regex_impl_regex_matcher() 391 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius_regex_impl_regex_matcher() 473 if (!SG_INTP(start_scm) && !SG_INTP(start_scm)) in sagittarius_regex_impl_regex_find() 518 if ((!((SG_INTP(group))||(SG_SYMBOLP(group))))){{ in sagittarius_regex_impl_regex_group() 831 if (!SG_INTP(count_scm)) in sagittarius_regex_impl__25regex_replace() 1005 if (!SG_INTP(start_scm) && !SG_INTP(start_scm)) in sagittarius_regex_impl_parse_char_set_string() 1014 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius_regex_impl_parse_char_set_string() 1095 if (!SG_INTP(start_scm) && !SG_INTP(start_scm)) in sagittarius_regex_impl_regex_text_matcher() [all …]
|
H A D | vminsn.c | 282 if ((SG_INTP(AC(vm)))&&(SG_INTP(obj))){ in CASE() 299 if (SG_INTP(AC(vm))){ in CASE() 313 if ((SG_INTP(AC(vm)))&&(SG_INTP(obj))){ in CASE() 330 if (SG_INTP(AC(vm))){ in CASE() 505 {SgObject s=POP(SP(vm));if ((SG_INTP(AC(vm)))&&(SG_INTP(s))){{AC(vm)=(SG_MAKE_BOOL((((intptr_t )(s)… in CASE() 513 {SgObject s=POP(SP(vm));if ((SG_INTP(AC(vm)))&&(SG_INTP(s))){{AC(vm)=(SG_MAKE_BOOL((((intptr_t )(s)… in CASE() 521 {SgObject s=POP(SP(vm));if ((SG_INTP(AC(vm)))&&(SG_INTP(s))){{AC(vm)=(SG_MAKE_BOOL((((intptr_t )(s)… in CASE() 529 {SgObject s=POP(SP(vm));if ((SG_INTP(AC(vm)))&&(SG_INTP(s))){{AC(vm)=(SG_MAKE_BOOL((((intptr_t )(s)… in CASE() 537 {SgObject s=POP(SP(vm));if ((SG_INTP(AC(vm)))&&(SG_INTP(s))){{AC(vm)=(SG_MAKE_BOOL((((intptr_t )(s)… in CASE() 933 if ((!(SG_INTP(AC(vm))))){{ in CASE() [all …]
|
H A D | lib_fixnums.stub | 72 (define-c-proc fixnum? (o) ::<boolean> :no-side-effect SG_INTP) 82 `(unless (SG_INTP ,value) 239 (if (SG_INTP fx1) 242 (if (and (SG_INTP fx1) (SG_INTP fx2)) 247 (unless (and (SG_INTP fx1) (SG_INTP fx2)) 259 (if (SG_INTP fx1) 262 (if (and (SG_INTP fx1) (SG_INTP fx2)) 267 (unless (and (SG_INTP fx1) (SG_INTP fx2)) 279 (if (SG_INTP fx1) 282 (if (and (SG_INTP fx1) (SG_INTP fx2)) [all …]
|
H A D | lib_core.c | 4981 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in core_string_TOlist() 5028 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in core_list_TOstring() 5075 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in core_string_copy() 5296 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in core_vector_TOlist() 5340 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in core_list_TOvector() 5397 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in core_vector_fillX() 5947 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in core_string_upcase() 5996 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in core_string_downcase() 6045 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in core_string_titlecase() 6094 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in core_string_foldcase() [all …]
|
H A D | instructions.scm | 189 (cond ((and (SG_INTP (AC vm)) (SG_INTP obj)) 203 (cond ((SG_INTP (AC vm)) 212 (cond ((and (SG_INTP (AC vm)) (SG_INTP obj)) 222 (cond ((SG_INTP (AC vm)) 298 (cond ((and (SG_INTP (AC vm)) (SG_INTP s)) 369 (if (and (SG_INTP (AC vm)) (SG_INTP s)) 663 (unless (SG_INTP (AC vm)) 680 (unless (SG_INTP index)
|
H A D | compare.c | 126 if (!SG_INTP(args[1])) { \ in DEF_EQ_PROC() 521 ASSERT(SG_INTP(k)); in pre_p() 544 ASSERT(SG_INTP(k)); in pre_p() 631 ASSERT(SG_INTP(k)); in eP() 823 ASSERT(SG_INTP(nx)); in union_find() 824 ASSERT(SG_INTP(ny)); in union_find() 858 ASSERT(SG_INTP(k)); in slow_p() 878 ASSERT(SG_INTP(k)); in slow_p() 968 ASSERT(SG_INTP(k)); in precheck_interleave_equal_p()
|
H A D | lib_vm.c | 150 if (!SG_INTP(insn_scm)) in sagittarius_vm_insn_name() 1468 if (!SG_INTP(insn_scm)) in sagittarius_vm_cb_emit0X() 1499 if (!SG_INTP(insn_scm)) in sagittarius_vm_cb_emit1X() 1504 if (!SG_INTP(arg0_scm)) in sagittarius_vm_cb_emit1X() 1537 if (!SG_INTP(insn_scm)) in sagittarius_vm_cb_emit2X() 1542 if (!SG_INTP(arg0_scm)) in sagittarius_vm_cb_emit2X() 1547 if (!SG_INTP(arg1_scm)) in sagittarius_vm_cb_emit2X() 1578 if (!SG_INTP(insn_scm)) in sagittarius_vm_cb_emit0iX() 1616 if (!SG_INTP(insn_scm)) in sagittarius_vm_cb_emit1iX() 1621 if (!SG_INTP(arg0_scm)) in sagittarius_vm_cb_emit1iX() [all …]
|
H A D | lib_regex.stub | 51 (unless (or (SG_INTP group) (SG_SYMBOLP group)) 59 (unless (or (SG_INTP group) (SG_SYMBOLP group)) 69 (unless (or (SG_INTP group) (SG_SYMBOLP group))
|
H A D | writer.c | 244 if (nparams > 0 && SG_INTP(params[0])) mincol = SG_INT_VALUE(params[0]); in format_sexp() 245 if (nparams > 1 && SG_INTP(params[1])) colinc = SG_INT_VALUE(params[1]); in format_sexp() 246 if (nparams > 2 && SG_INTP(params[2])) minpad = SG_INT_VALUE(params[2]); in format_sexp() 248 if (nparams > 4 && SG_INTP(params[4])) maxcol = SG_INT_VALUE(params[4]); in format_sexp() 302 if (nparams > 0 && SG_INTP(params[0])) mincol = SG_INT_VALUE(params[0]); in format_integer() 305 if (nparams > 3 && SG_INTP(params[3])) commainterval = SG_INT_VALUE(params[3]); in format_integer() 763 } else if (SG_INTP(obj)) { in write_noptr() 860 if (SG_INTP(e)) { in write_ss_rec() 960 if (SG_INTP(e)) { \ in write_walk_circular()
|
H A D | lib_sagittarius.c | 1776 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius_vector_copy() 1872 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius_vector_reverseX() 1925 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius_vector_reverse() 4100 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius__25maybe_substring() 4147 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius_string_titlecase_2fspecial_casing() 4219 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius_string_TOistring() 6748 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius_bytevector_TOinteger() 6795 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius_bytevector_TOuinteger() 6842 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius_bytevector_TOsinteger() 7040 if (!SG_INTP(end_scm) && !SG_INTP(end_scm)) in sagittarius_bytevector_reverseX() [all …]
|
H A D | load.c | 84 return (SG_INTP(r) ? (int)SG_INT_VALUE(r) : 0); in Sg_Load() 111 return (SG_INTP(r) ? (int)SG_INT_VALUE(r) : 0); in Sg_LoadFromPort()
|
H A D | system.c | 125 if (SG_INTP(t)) { in Sg_GetTimeSpec()
|
H A D | regex.c | 2036 if (SG_INTP(num)) { in compile_rec() 2089 if (SG_INTP(cond)) { in compile_rec() 2246 if (SG_STRINGP(pattern) && SG_INTP(flags)) { in pattern_cache_reader() 2386 if (!SG_INTP(min) && !SG_FALSEP(min)) goto err; in unparse_rep() 2390 if (!SG_INTP(max) && !SG_FALSEP(max)) goto err; in unparse_rep() 2506 if (!SG_INTP(SG_CDR(n))) goto err; in unparse() 2522 if (SG_INTP(name)) { in unparse()
|
H A D | cache.c | 503 } else if (SG_TRUEP(value) || SG_INTP(value)) { in write_cache_scan() 624 } else if (SG_TRUEP(value) || SG_INTP(value)) { in write_cache_pass1() 754 if (!first && SG_INTP(Sg_HashTableRef(ctx->sharedObjects, o, SG_FALSE))) { in write_list_cache() 840 if (SG_INTP(sharedState)) { in write_object_cache() 994 if (SG_INTP(state)) { in write_cache_pass2()
|
H A D | lib_core.stub | 1030 (cond ((SG_INTP v) 1059 (cond ((SG_INTP v) 1089 (cond ((SG_INTP v) 1118 (cond ((SG_INTP v) 1148 (cond ((SG_INTP v) 1181 (cond ((SG_INTP v) 1211 (cond ((SG_INTP v) 1242 (cond ((SG_INTP v) 2585 (cond ((SG_INTP k?) (set! k (SG_INT_VALUE k?))) 2602 (cond ((SG_INTP k?) (set! k (SG_INT_VALUE k?))) [all …]
|
H A D | code.c | 158 if (SG_INTP(obj) && SG_INT_FITS_INSN_VALUE(SG_INT_VALUE(obj))) { in cb_put()
|
H A D | lib_sagittarius.stub | 267 ((SG_INTP f) (set! (-> (Sg_VM) flags) (cast int (SG_INT_VALUE f)))) 641 (cond ((SG_INTP k?) (set! k (SG_INT_VALUE k?))) 658 (cond ((SG_INTP k?) (set! k (SG_INT_VALUE k?))) 1308 (cond ((SG_INTP obj) 1425 (cond ((SG_INTP from) (set! f (SG_INT_VALUE from))) 1434 (cond ((SG_INTP to) (set! t (SG_INT_VALUE to))) 1579 (cond ((SG_INTP ,init-size) (set! k (SG_INT_VALUE ,init-size))) 1619 (cond ((SG_INTP init-size) (set! k (SG_INT_VALUE init-size)))
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/ |
H A D | sagittariusdefs.h | 369 #define SG_INTP(obj) (SG_TAG2(obj) == 1) macro 374 #define SG_UINTP(obj) (SG_INTP(obj)&&((long)SG_WORD(obj) >= 0))
|
H A D | number.h | 130 #define SG_EXACT_INTP(obj) ((SG_INTP(obj)) || (SG_BIGNUMP(obj)))
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/ffi/ |
H A D | sagittarius-ffi.c | 385 ASSERT(SG_INTP(SG_CADR(layout))); in Sg_CreateCStruct() 429 } else if (SG_INTP(SG_CAR(SG_CDDR(layout)))) { in Sg_CreateCStruct() 947 if (SG_INTP(obj)) { in push_ffi_type_value() 1100 if (!SG_INTP(off) || SG_INT_VALUE(off) < 0) { in push_ffi_type_value() 1194 if (SG_INTP(v)) { \ in convert_scheme_to_c_value() 1223 if (SG_INTP(v)) { \ in convert_scheme_to_c_value() 1545 } else if (SG_INTP(arg)) { in set_ffi_varargs_parameter_types() 1567 } else if (SG_INTP(arg)) { in push_varargs_ffi_type_value() 1674 if (!SG_INTP(args[0])) { in internal_ffi_call()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/crypto/ |
H A D | crypto.c | 280 if (SG_INTP(result)) return result; in check_intp() 314 if (SG_INTP(r)) return SG_INT_VALUE(r); in Sg_CipherBlockSize() 503 } else if (SG_INTP(SG_CIPHER_SPI(crypto->spi)->tagsize)) { in Sg_VMCipherMaxTagSize() 754 if (SG_INTP(value)) { in ci_tagsize_set()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/socket/ |
H A D | sagittarius-socket.c | 352 if (!SG_INTP(flags)) Sg_Error(UC("fixnum required but got %S"), flags); in ai_flags_set() 362 if (!SG_INTP(family)) Sg_Error(UC("fixnum required but got %S"), family); in ai_family_set() 372 if (!SG_INTP(socktype)) Sg_Error(UC("fixnum required but got %S"), socktype); in ai_socktype_set() 382 if (!SG_INTP(protocol)) Sg_Error(UC("fixnum required but got %S"), protocol); in ai_protocol_set() 585 } else if (SG_INTP(value) || SG_BIGNUMP(value)) { in Sg_SocketSetopt() 896 if (SG_INTP(timeout)) { in select_timeval()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/termios/ |
H A D | termios.c | 53 if (!SG_INTP(v)) { \
|