Home
last modified time | relevance | path

Searched refs:SG_MAKE_INT (Results 1 – 25 of 70) sorted by relevance

123

/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/
H A Dnumber.c209 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 Dlib_fixnums.c931 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 Dcompare.c187 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 Dcompiler-aux.c315 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 Dlib_fixnums.stub154 (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 Dregex.c501 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 Dprofiler.c122 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 Dlib_core.c4398 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 Dlib_regex.stub50 (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 Dlib_regex.c257 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 Dcharset.c372 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 Dcode.c109 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 Dbignum.c319 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 Dlib_sandbox.c442 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 Dlib_core.stub265 (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 Dstring.c438 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 Dinstruction.c61 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 Dcrypto.c281 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 Dhash.c164 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 Dmath_stub.stub28 (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 Dinotify_watch.c105 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 Dfsevents_watch.c111 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 Dsystem.c653 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 Dsocket_stub.stub111 (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 Dsagittarius-zlib.c185 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()

123