Home
last modified time | relevance | path

Searched refs:SG_INTP (Results 1 – 25 of 36) sorted by relevance

12

/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/
H A Dlib_fixnums.c912 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 Dnumber.c1708 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 Dlib_regex.c259 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 Dvminsn.c282 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 Dlib_fixnums.stub72 (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 Dlib_core.c4981 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 Dinstructions.scm189 (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 Dcompare.c126 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 Dlib_vm.c150 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 Dlib_regex.stub51 (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 Dwriter.c244 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 Dlib_sagittarius.c1776 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 Dload.c84 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 Dsystem.c125 if (SG_INTP(t)) { in Sg_GetTimeSpec()
H A Dregex.c2036 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 Dcache.c503 } 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 Dlib_core.stub1030 (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 Dcode.c158 if (SG_INTP(obj) && SG_INT_FITS_INSN_VALUE(SG_INT_VALUE(obj))) { in cb_put()
H A Dlib_sagittarius.stub267 ((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 Dsagittariusdefs.h369 #define SG_INTP(obj) (SG_TAG2(obj) == 1) macro
374 #define SG_UINTP(obj) (SG_INTP(obj)&&((long)SG_WORD(obj) >= 0))
H A Dnumber.h130 #define SG_EXACT_INTP(obj) ((SG_INTP(obj)) || (SG_BIGNUMP(obj)))
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/ffi/
H A Dsagittarius-ffi.c385 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 Dcrypto.c280 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 Dsagittarius-socket.c352 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 Dtermios.c53 if (!SG_INTP(v)) { \

12