/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
H A D | number.c | 209 r = SG_MAKE_INT(1); in oprtr_expt() 295 x0 = Sg_Mul(f, Sg_Expt(SG_MAKE_INT(10), SG_MAKE_INT(e))); in algorithmR() 299 pow10e = Sg_Expt(SG_MAKE_INT(10), SG_MAKE_INT(-e)); in algorithmR() 1007 if (numerator == SG_MAKE_INT(0)) return SG_MAKE_INT(0); in Sg_MakeRational() 1083 if (SG_MAKE_INT(1) == dx || SG_MAKE_INT(1) == dy) gcd = SG_MAKE_INT(1); in Sg_RationalAddSub() 2799 if (obj == SG_MAKE_INT(0)) return SG_MAKE_INT(1); in Sg_Cos() 2867 if (SG_EQ(obj, SG_MAKE_INT(1))) return SG_MAKE_INT(0); in Sg_Acos() 3154 return Sg_MakeComplex(SG_MAKE_INT(0), SG_MAKE_INT(iroot)); in Sg_Sqrt() 3906 s = SG_MAKE_INT(2); in double_print() 3934 s = Sg_Mul(s, Sg_Expt(SG_MAKE_INT(10), SG_MAKE_INT(est))); in double_print() [all …]
|
H A D | lib_fixnums.c | 931 SG_RETURN(SG_MAKE_INT(SG_RESULT)); in sagittarius_fixnums_fixnum_width() 1444 SG_MAKE_INT(fx1));}} else { in sagittarius_fixnums_fx_() 2075 SG_LIST3(SG_MAKE_INT(fx1), in sagittarius_fixnums_fxbit_field() 2076 SG_MAKE_INT(fx2), in sagittarius_fixnums_fxbit_field() 2077 SG_MAKE_INT(fx3)));}}} in sagittarius_fixnums_fxbit_field() 2136 SG_LIST4(SG_MAKE_INT(fx1),SG_MAKE_INT(fx2), in sagittarius_fixnums_fxcopy_bit_field() 2137 SG_MAKE_INT(fx3),SG_MAKE_INT(fx4)));}}} in sagittarius_fixnums_fxcopy_bit_field() 2177 SG_LIST2(SG_MAKE_INT(fx1),SG_MAKE_INT(fx2)));}}} in sagittarius_fixnums_fxarithmetic_shift() 2303 SG_LIST3(SG_MAKE_INT(fx1), in sagittarius_fixnums_fxreverse_bit_field() 2304 SG_MAKE_INT(fx2), in sagittarius_fixnums_fxreverse_bit_field() [all …]
|
H A D | compare.c | 187 return SG_MAKE_INT(r); in string_cmp() 526 SG_MAKE_INT(SG_INT_VALUE(k) - 1), in pre_p() 551 SG_MAKE_INT(SG_INT_VALUE(k) - 1), in pre_p() 801 SgObject b = make_box(SG_MAKE_INT(1)); in union_find() 856 return SG_MAKE_INT(0); in slow_p() 876 return SG_MAKE_INT(0); in slow_p() 879 k = SG_MAKE_INT(SG_INT_VALUE(k) - 1); in slow_p() 922 return SG_MAKE_INT(0); in slow_p() 926 k = SG_MAKE_INT(SG_INT_VALUE(k) - 1); in slow_p() 981 struct equal_context ctx = {SG_MAKE_INT(400), SG_MAKE_INT(-40), TRUE}; in Sg_EqualP() [all …]
|
H A D | compiler-aux.c | 315 SG_SET_CDR(G8856, SG_MAKE_INT(0)); /* #<<cgen-scheme-integer> 0x103dd6cc0> */ in Sg__Init_sagittarius_compiler_util() 324 SG_SET_CDR(G8858, SG_MAKE_INT(1U)); /* #<<cgen-scheme-integer> 0x103ddc140> */ in Sg__Init_sagittarius_compiler_util() 333 SG_SET_CDR(G8860, SG_MAKE_INT(2U)); /* #<<cgen-scheme-integer> 0x103de6f60> */ in Sg__Init_sagittarius_compiler_util() 342 SG_SET_CDR(G8862, SG_MAKE_INT(3U)); /* #<<cgen-scheme-integer> 0x103deac60> */ in Sg__Init_sagittarius_compiler_util() 351 SG_SET_CDR(G8864, SG_MAKE_INT(4U)); /* #<<cgen-scheme-integer> 0x103df2520> */ in Sg__Init_sagittarius_compiler_util() 360 SG_SET_CDR(G8866, SG_MAKE_INT(5U)); /* #<<cgen-scheme-integer> 0x103dfba00> */ in Sg__Init_sagittarius_compiler_util() 369 SG_SET_CDR(G8868, SG_MAKE_INT(6U)); /* #<<cgen-scheme-integer> 0x103e08800> */ in Sg__Init_sagittarius_compiler_util() 378 SG_SET_CDR(G8870, SG_MAKE_INT(7U)); /* #<<cgen-scheme-integer> 0x103e147c0> */ in Sg__Init_sagittarius_compiler_util() 387 SG_SET_CDR(G8872, SG_MAKE_INT(8U)); /* #<<cgen-scheme-integer> 0x103e1d060> */ in Sg__Init_sagittarius_compiler_util() 396 SG_SET_CDR(G8874, SG_MAKE_INT(9U)); /* #<<cgen-scheme-integer> 0x103e26b20> */ in Sg__Init_sagittarius_compiler_util() [all …]
|
H A D | lib_fixnums.stub | 154 (SG_LIST2 (SG_MAKE_INT fx1) (SG_MAKE_INT fx2)))))) 170 (SG_MAKE_INT fx1)) 353 (SG_LIST3 (SG_MAKE_INT fx1) 354 (SG_MAKE_INT fx2) 355 (SG_MAKE_INT fx3)))) 367 (SG_LIST4 (SG_MAKE_INT fx1) (SG_MAKE_INT fx2) 368 (SG_MAKE_INT fx3) (SG_MAKE_INT fx4)))) 378 (SG_LIST2 (SG_MAKE_INT fx1) (SG_MAKE_INT fx2)))) 406 (SG_LIST3 (SG_MAKE_INT fx1) 407 (SG_MAKE_INT fx2) [all …]
|
H A D | regex.c | 501 SG_APPEND1(h, t, Sg_Cons(SG_MAKE_INT(to + 1), SG_MAKE_INT(hi))); in sub_range() 505 SG_APPEND1(h, t, Sg_Cons(SG_MAKE_INT(lo), SG_MAKE_INT(from - 1))); in sub_range() 507 SG_APPEND1(h, t, Sg_Cons(SG_MAKE_INT(to + 1), SG_MAKE_INT(hi))); in sub_range() 508 SG_APPEND1(h, t, Sg_Cons(SG_MAKE_INT(lo), SG_MAKE_INT(from - 1))); in sub_range() 513 SG_APPEND1(h, t, Sg_Cons(SG_MAKE_INT(lo), SG_MAKE_INT(from - 1))); in sub_range() 519 SG_APPEND1(h, t, Sg_Cons(SG_MAKE_INT(to + 1), SG_MAKE_INT(hi))); in sub_range() 523 SG_APPEND1(h, t, Sg_Cons(SG_MAKE_INT(lo), SG_MAKE_INT(hi))); in sub_range() 801 return SG_MAKE_INT(n); in get_number() 900 return SG_LIST2(SG_MAKE_INT(0), SG_MAKE_INT(1)); /* 0 or 1 */ in get_quantifier() 1582 SG_MAKE_INT(0), in maybe_split_repetition() [all …]
|
H A D | profiler.c | 122 SG_SET_CDR(e, SG_MAKE_INT(count)); in collect_samples() 223 Sg_Cons(SG_MAKE_INT(0), SG_MAKE_INT(0)), in Sg_ProfilerCountBufferFlush() 228 SG_SET_CAR(e, SG_MAKE_INT(count)); in Sg_ProfilerCountBufferFlush()
|
H A D | lib_core.c | 4398 SG_MAKE_INT(ch));}}} in core_integer_TOchar() 4899 SG_MAKE_INT(start), in core_substring() 4901 SG_MAKE_INT(end)));}}} in core_substring() 4906 SG_MAKE_INT(end), in core_substring() 4908 SG_MAKE_INT(end)));}}} in core_substring() 4913 SG_LIST3(s,SG_MAKE_INT(start),SG_MAKE_INT(end)));}}} in core_substring() 4918 SG_LIST3(s,SG_MAKE_INT(start),SG_MAKE_INT(end)));}}} in core_substring() 5213 SG_MAKE_INT(i));}}} in core_vector_ref() 12389 SG_MAKE_INT(ei2));}}} in core_bitwise_bit_field() 12394 SG_MAKE_INT(ei3));}}} in core_bitwise_bit_field() [all …]
|
H A D | lib_regex.stub | 50 (when (SG_UNBOUNDP group) (set! group (SG_MAKE_INT 0))) 58 (when (SG_UNBOUNDP group) (set! group (SG_MAKE_INT 0))) 66 (result (SG_MAKE_INT p))))) 68 (when (SG_UNBOUNDP group) (set! group (SG_MAKE_INT 0))) 76 (result (SG_MAKE_INT p)))))
|
H A D | lib_regex.c | 257 flags_scm = SG_MAKE_INT(0); in sagittarius_regex_impl_compile_regex() 301 flags_scm = SG_MAKE_INT(0); in sagittarius_regex_impl_compile_regex_ast() 380 start_scm = SG_MAKE_INT(0); in sagittarius_regex_impl_regex_matcher() 389 end_scm = SG_MAKE_INT(-1); in sagittarius_regex_impl_regex_matcher() 471 start_scm = SG_MAKE_INT(-1); in sagittarius_regex_impl_regex_find() 569 SG_RESULT=(SG_MAKE_INT(p));}} in sagittarius_regex_impl_regex_group_start() 615 SG_RESULT=(SG_MAKE_INT(p));}} in sagittarius_regex_impl_regex_group_end() 1003 start_scm = SG_MAKE_INT(0); in sagittarius_regex_impl_parse_char_set_string() 1012 end_scm = SG_MAKE_INT(-1); in sagittarius_regex_impl_parse_char_set_string() 1093 start_scm = SG_MAKE_INT(0); in sagittarius_regex_impl_regex_text_matcher() [all …]
|
H A D | charset.c | 372 cell = Sg_Cons(SG_MAKE_INT(begin), SG_MAKE_INT(i-1)); in Sg_CharSetRanges() 378 cell = Sg_Cons(SG_MAKE_INT(begin), SG_MAKE_INT(i-1)); in Sg_CharSetRanges() 383 cell = Sg_Cons(SG_MAKE_INT(e->key), SG_MAKE_INT(e->value)); in Sg_CharSetRanges() 559 insert_binding(*char-code-max* , SG_MAKE_INT(SG_CHAR_MAX)); in Sg__InitCharSet()
|
H A D | code.c | 109 cb->labelRefs = Sg_Acons(cb->packet.obj, SG_MAKE_INT(cb->size), in flush() 266 cb->src = SG_LIST1(Sg_Cons(SG_MAKE_INT(index), src)); in Sg_CodeBuilderAddSrc() 271 SgObject tail = Sg_Assq(SG_MAKE_INT(index), cb->src); in Sg_CodeBuilderAddSrc() 276 SG_SET_CDR(tail, SG_LIST1(Sg_Cons(SG_MAKE_INT(index), src))); in Sg_CodeBuilderAddSrc() 290 cb->labelDefs = Sg_Acons(label, SG_MAKE_INT(cb->size), cb->labelDefs); in Sg_CodeBuilderLabelSet()
|
H A D | bignum.c | 319 return SG_MAKE_INT(0); in bignum_normalize_rec() 836 return SG_MAKE_INT(-1); in Sg_BignumShiftRight() 838 return SG_MAKE_INT(0); in Sg_BignumShiftRight() 937 return SG_MAKE_INT(0); in Sg_BignumLogIor() 998 return SG_MAKE_INT(0); in Sg_BignumLogXor() 1981 c = Sg_Expt(SG_MAKE_INT(2), SG_MAKE_INT(exponent)); in radix_conversion() 2606 return (BIGNUM_ONEP(bm)) ? SG_MAKE_INT(0) : SG_MAKE_INT(1); in Sg_BignumModExpt() 2609 return (BIGNUM_ONEP(bm)) ? SG_MAKE_INT(0) : SG_MAKE_INT(1); in Sg_BignumModExpt() 2612 return (BIGNUM_ONEP(bm)) ? SG_MAKE_INT(0) : SG_MAKE_INT(1); in Sg_BignumModExpt() 2888 return SG_MAKE_INT(0); in Sg_BignumExpt() [all …]
|
H A D | lib_sandbox.c | 442 SG_APPEND1(G13268, G13269, SG_MAKE_INT(4U)); /* 4 */ in Sg__Init_sagittarius_sandbox() 527 SG_SET_CDR(G13279, SG_MAKE_INT(1U)); /* #<<cgen-scheme-integer> 0x11050d340> */ in Sg__Init_sagittarius_sandbox() 534 SG_SET_CDR(G13281, SG_MAKE_INT(1U)); /* #<<cgen-scheme-integer> 0x110520aa0> */ in Sg__Init_sagittarius_sandbox() 541 SG_SET_CDR(G13283, SG_MAKE_INT(1U)); /* #<<cgen-scheme-integer> 0x11052b300> */ in Sg__Init_sagittarius_sandbox() 548 SG_SET_CDR(G13285, SG_MAKE_INT(1U)); /* #<<cgen-scheme-integer> 0x110536860> */ in Sg__Init_sagittarius_sandbox() 686 SG_SET_CDR(G13301, SG_MAKE_INT(0)); /* #<<cgen-scheme-integer> 0x1106c45c0> */ in Sg__Init_sagittarius_sandbox() 693 SG_SET_CDR(G13303, SG_MAKE_INT(0)); /* #<<cgen-scheme-integer> 0x1106c9060> */ in Sg__Init_sagittarius_sandbox() 700 SG_SET_CDR(G13305, SG_MAKE_INT(0)); /* #<<cgen-scheme-integer> 0x1106d51e0> */ in Sg__Init_sagittarius_sandbox() 730 SG_SET_CDR(G13309, SG_MAKE_INT(0)); /* #<<cgen-scheme-integer> 0x110759a80> */ in Sg__Init_sagittarius_sandbox() 839 SG_SET_CDR(G13325, SG_MAKE_INT(0)); /* #<<cgen-scheme-integer> 0x1100e2b00> */ in Sg__Init_sagittarius_sandbox() [all …]
|
H A D | lib_core.stub | 265 (if (== x (SG_MAKE_INT 0)) 524 (SG_MAKE_INT ch))) 620 (SG_MAKE_INT start) 625 (SG_MAKE_INT end) 630 (SG_LIST3 s (SG_MAKE_INT start) (SG_MAKE_INT end)))) 633 (SG_LIST3 s (SG_MAKE_INT start) (SG_MAKE_INT end)))) 673 (SG_MAKE_INT i))) 683 (SG_MAKE_INT i))) 2539 (SG_LIST3 ei1 (SG_MAKE_INT ei2) (SG_MAKE_INT ei3)))) 2610 (SG_MAKE_INT k))) [all …]
|
H A D | string.c | 438 case SG_STRING_SCAN_INDEX: return SG_MAKE_INT(0); in string_scan() 588 SG_LIST2(s, SG_MAKE_INT(k))); in Sg_StringRef() 599 SG_MAKE_INT(k), in Sg_StringSet() 600 SG_LIST3(s, SG_MAKE_INT(k), SG_MAKE_CHAR(c))); in Sg_StringSet() 605 SG_LIST2(s, SG_MAKE_INT(k))); in Sg_StringSet()
|
H A D | instruction.c | 61 Sg_InsertBinding(lib, SG_INTERN(#name), SG_MAKE_INT(name)); in Sg__InitInstruction()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/crypto/ |
H A D | crypto.c | 281 else return SG_MAKE_INT(-1); in check_intp() 293 return SG_MAKE_INT(-1); in Sg_VMCipherSuggestKeysize() 295 return SG_MAKE_INT(keysize); in Sg_VMCipherSuggestKeysize() 300 return SG_MAKE_INT(-1); /* dummy */ in Sg_VMCipherSuggestKeysize() 480 return SG_MAKE_INT(i); in Sg_VMCipherTag() 487 return SG_MAKE_INT(0); in Sg_VMCipherTag() 494 default: return SG_MAKE_INT(0); in builtin_tagsize() 506 return SG_MAKE_INT(0); in Sg_VMCipherMaxTagSize() 815 return SG_MAKE_INT(SG_BVECTOR_SIZE(spi->key)); in bci_keysize() 859 return SG_MAKE_INT(Sg_CipherBlockSize(SG_CIPHER(args[0]))); in cipher_blocksize_c_impl() [all …]
|
H A D | hash.c | 164 SG_MAKE_INT(start), SG_MAKE_INT(end)); in Sg_VMHashProcess() 216 d[1] = SG_MAKE_INT(start); in Sg_VMHashDone() 217 d[2] = SG_MAKE_INT(end); in Sg_VMHashDone() 225 SG_MAKE_INT(start), SG_MAKE_INT(end)); in Sg_VMHashDone()
|
H A D | math_stub.stub | 28 (SG_MAKE_INT bits) '())) 39 (SG_MAKE_INT size) '())) 47 (SG_MAKE_INT size) '()))
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/filewatch/ |
H A D | inotify_watch.c | 105 SgObject f = SG_MAKE_INT(get_flag(flag)); in Sg_AddMonitoringPath() 153 if (SG_EQ(SG_MAKE_INT(event->wd), SG_CAAR(cp))) { in handle_events() 208 wds = Sg_Acons(SG_MAKE_INT(wd), SG_CAAR(cp), wds); in Sg_StartMonitoring()
|
H A D | fsevents_watch.c | 111 SgObject f = SG_MAKE_INT(get_flag(flag)); in Sg_AddMonitoringPath() 115 Sg_HashTableSet(fc->paths, abp, SG_MAKE_INT(f), 0); in Sg_AddMonitoringPath()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/posix/ |
H A D | system.c | 653 saved = Sg_Cons(abp, SG_MAKE_INT(fd)); in init_fd() 782 pid_list.pids = Sg_Cons(SG_MAKE_INT(pid), pid_list.pids); in Sg_SysProcessCall() 808 SgObject c, p = SG_NIL, tpid = SG_MAKE_INT(pid); in remove_pid() 896 return SG_MAKE_INT(-1); /* dummy */ in Sg_SysProcessWait() 901 return SG_MAKE_INT(WEXITSTATUS(status)); in Sg_SysProcessWait() 911 return SG_MAKE_INT(-1); in Sg_SysProcessWait() 1050 SG_VECTOR_ELEMENT(vec, 2) = SG_MAKE_INT(1000000); in Sg_GetThreadTimes() 1084 vec = Sg_MakeVector(3, SG_MAKE_INT(0)); in Sg_GetThreadTimes()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/socket/ |
H A D | socket_stub.stub | 111 (SG_LIST4 o bv (SG_MAKE_INT start) 112 (SG_MAKE_INT len)))) 141 (SG_LIST4 o bv (SG_MAKE_INT start) 142 (SG_MAKE_INT len))))
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/zlib/ |
H A D | sagittarius-zlib.c | 185 Sg_MakeBinding(lib, SG_SYMBOL(SG_INTERN(#n)), SG_MAKE_INT(v), TRUE) in Sg_Init_sagittarius__zlib() 187 Sg_MakeBinding(lib, SG_SYMBOL(SG_INTERN(#v)), SG_MAKE_INT(v), TRUE) in Sg_Init_sagittarius__zlib()
|