/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
H A D | number.c | 1789 return SG_MAKE_INT(SG_INT_VALUE(x) & SG_INT_VALUE(y)); in Sg_LogAnd() 1923 long r = SG_INT_VALUE(x) + SG_INT_VALUE(y); in Sg_Add() 2025 long r = SG_INT_VALUE(x) - SG_INT_VALUE(y); in Sg_Sub() 2421 q = SG_INT_VALUE(x) / SG_INT_VALUE(y); in Sg_Quotient() 2423 r = SG_INT_VALUE(x) % SG_INT_VALUE(y); in Sg_Quotient() 2535 r = SG_INT_VALUE(x) % SG_INT_VALUE(y); in Sg_Modulo() 2537 if ((SG_INT_VALUE(x) > 0 && SG_INT_VALUE(y) < 0) in Sg_Modulo() 2538 || (SG_INT_VALUE(x) < 0 && SG_INT_VALUE(y) > 0)) { in Sg_Modulo() 2950 long r = SG_INT_VALUE(x) - SG_INT_VALUE(y); in Sg_NumCmp() 3706 int64_t yy = 1, n = SG_INT_VALUE(e), d = SG_INT_VALUE(m); in Sg_ModExpt() [all …]
|
H A D | compare.c | 129 bound = SG_INT_VALUE(args[1]); \ in DEF_EQ_PROC() 522 if (SG_INT_VALUE(k) <= 0) { in pre_p() 526 SG_MAKE_INT(SG_INT_VALUE(k) - 1), in pre_p() 551 SG_MAKE_INT(SG_INT_VALUE(k) - 1), in pre_p() 598 if (SG_INT_VALUE(k) <= 0) return k; in pre_p() 632 if (SG_INT_VALUE(k) <= 0) { in eP() 658 if (SG_INT_VALUE(k) <= 0) { \ 825 if (SG_INT_VALUE(nx) > SG_INT_VALUE(ny)) { in union_find() 827 SG_BOX(rx)->value = SG_MAKE_INT(SG_INT_VALUE(nx) + SG_INT_VALUE(ny)); in union_find() 831 SG_BOX(ry)->value = SG_MAKE_INT(SG_INT_VALUE(ny) + SG_INT_VALUE(nx)); in union_find() [all …]
|
H A D | lib_fixnums.c | 1165 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxzeroP() 1190 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxpositiveP() 1215 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxnegativeP() 1240 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxoddP() 1265 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxevenP() 1292 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxmax() 1303 if ((SG_INT_VALUE(v))>(r)){ in sagittarius_fixnums_fxmax() 1304 r=(SG_INT_VALUE(v));}}} in sagittarius_fixnums_fxmax() 1326 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxmin() 1337 if ((SG_INT_VALUE(v))<(r)){ in sagittarius_fixnums_fxmin() [all …]
|
H A D | regex.c | 222 code = 0xFF & SG_INT_VALUE(number); in make_char_from_code() 495 long lo = SG_INT_VALUE(SG_CAAR(cp)); in sub_range() 496 long hi = SG_INT_VALUE(SG_CDAR(cp)); in sub_range() 536 SG_INT_VALUE(SG_CDAR(cp))); in cset_diff() 1081 if (SG_INT_VALUE(num) > ctx->reg && in get_token() 1082 10 <= SG_INT_VALUE(num)) { in get_token() 1559 minimum = SG_INT_VALUE(SG_CADR(ast)); in maybe_split_repetition() 1561 maximum = SG_INT_VALUE(max); in maybe_split_repetition() 2012 long count = SG_INT_VALUE(max) - SG_INT_VALUE(min); in compile_rec() 2037 arg.index = SG_INT_VALUE(num); in compile_rec() [all …]
|
H A D | lib_core.c | 4161 k = SG_INT_VALUE(k_scm); in core_list_tail() 4196 k = SG_INT_VALUE(k_scm); in core_list_setX() 4235 k = SG_INT_VALUE(k_scm); in core_list_ref() 4389 ch = SG_INT_VALUE(ch_scm); in core_integer_TOchar() 4574 k = SG_INT_VALUE(k_scm); in core_make_string() 4662 k = SG_INT_VALUE(k_scm); in core_string_ref() 5197 i = SG_INT_VALUE(i_scm); in core_vector_ref() 5243 i = SG_INT_VALUE(i_scm); in core_vector_setX() 6335 k = SG_INT_VALUE(k_scm); in core_bytevector_copyX() 12979 k = SG_INT_VALUE(k_scm); in core_hashtable_clearX() [all …]
|
H A D | code.c | 158 if (SG_INTP(obj) && SG_INT_FITS_INSN_VALUE(SG_INT_VALUE(obj))) { in cb_put() 162 packet->arg0 = SG_INT_VALUE(obj); in cb_put() 317 d = SG_INT_VALUE(dest); in finish_builder_rec() 318 o = SG_INT_VALUE(op); in finish_builder_rec()
|
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() 765 snprintf(buf, sizeof(buf), "%ld", SG_INT_VALUE(obj)); in write_noptr() 862 snprintf(numbuf, sizeof(numbuf), "#%ld#", SG_INT_VALUE(e)); in write_ss_rec() 961 long v = SG_INT_VALUE(e); \ in write_walk_circular() 973 long v = SG_INT_VALUE(e); \ in write_walk_circular() [all …]
|
H A D | lib_vm.c | 153 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_insn_name() 1471 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_cb_emit0X() 1502 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_cb_emit1X() 1507 arg0 = SG_INT_VALUE(arg0_scm); in sagittarius_vm_cb_emit1X() 1540 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_cb_emit2X() 1545 arg0 = SG_INT_VALUE(arg0_scm); in sagittarius_vm_cb_emit2X() 1550 arg1 = SG_INT_VALUE(arg1_scm); in sagittarius_vm_cb_emit2X() 1581 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_cb_emit0iX() 1619 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_cb_emit1iX() 1624 arg0 = SG_INT_VALUE(arg0_scm); in sagittarius_vm_cb_emit1iX() [all …]
|
H A D | instructions.scm | 190 ($result:n (+ (SG_INT_VALUE obj) (SG_INT_VALUE (AC vm))))) 204 ($result:n (+ val1 (SG_INT_VALUE (AC vm))))) 213 ($result:n (- (SG_INT_VALUE obj) (SG_INT_VALUE (AC vm))))) 223 ($result:n (- val1 (SG_INT_VALUE (AC vm))))) 665 (let ((index::long (SG_INT_VALUE (AC vm)))) 682 (let ((i::long (SG_INT_VALUE index)))
|
H A D | lib_regex.c | 262 flags = SG_INT_VALUE(flags_scm); in sagittarius_regex_impl_compile_regex() 306 flags = SG_INT_VALUE(flags_scm); in sagittarius_regex_impl_compile_regex_ast() 385 start = SG_INT_VALUE(start_scm); in sagittarius_regex_impl_regex_matcher() 394 end = SG_INT_VALUE(end_scm); in sagittarius_regex_impl_regex_matcher() 476 start = SG_INT_VALUE(start_scm); in sagittarius_regex_impl_regex_find() 834 count = SG_INT_VALUE(count_scm); in sagittarius_regex_impl__25regex_replace() 1008 start = SG_INT_VALUE(start_scm); in sagittarius_regex_impl_parse_char_set_string() 1017 end = SG_INT_VALUE(end_scm); in sagittarius_regex_impl_parse_char_set_string() 1098 start = SG_INT_VALUE(start_scm); in sagittarius_regex_impl_regex_text_matcher() 1107 end = SG_INT_VALUE(end_scm); in sagittarius_regex_impl_regex_text_matcher()
|
H A D | charset.c | 69 long start = SG_INT_VALUE(SG_CAR(cell)), end = SG_INT_VALUE(SG_CDR(cell)); in charset_print() 108 Sg_CharSetAddRange(cs, (SgChar)SG_INT_VALUE(SG_CAR(r)), in charset_cache_reader() 109 (SgChar)SG_INT_VALUE(SG_CDR(r))); in charset_cache_reader()
|
H A D | profiler.c | 121 count = SG_INT_VALUE(SG_CDR(e)) + 1; in collect_samples() 227 count = SG_INT_VALUE(SG_CAR(e)) + 1; in Sg_ProfilerCountBufferFlush()
|
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 | lib_fixnums.stub | 94 (set! target (SG_INT_VALUE v)) 135 (if (> (SG_INT_VALUE v) r) 136 (set! r (SG_INT_VALUE v)))) 143 (if (< (SG_INT_VALUE v) r) 144 (set! r (SG_INT_VALUE v)))) 174 (let ((fx2::long (SG_INT_VALUE o))
|
H A D | vminsn.c | 283 {long cise__1168=(SG_INT_VALUE(obj))+(SG_INT_VALUE(AC(vm)));if (((SG_INT_MIN)<=(cise__1168))&&((SG_… in CASE() 300 {long cise__1170=(val1)+(SG_INT_VALUE(AC(vm)));if (((SG_INT_MIN)<=(cise__1170))&&((SG_INT_MAX)>=(ci… in CASE() 314 {long cise__1172=(SG_INT_VALUE(obj))-(SG_INT_VALUE(AC(vm)));if (((SG_INT_MIN)<=(cise__1172))&&((SG_… in CASE() 331 {long cise__1174=(val1)-(SG_INT_VALUE(AC(vm)));if (((SG_INT_MIN)<=(cise__1174))&&((SG_INT_MAX)>=(ci… in CASE() 935 {long index=SG_INT_VALUE(AC(vm)); in CASE() 957 {long i=SG_INT_VALUE(index); in CASE()
|
H A D | lib_core.stub | 1033 (set! value (cast uint32_t (SG_INT_VALUE v)))) 1092 (set! value (cast int32_t (SG_INT_VALUE v)))) 1121 (set! value (cast int32_t (SG_INT_VALUE v)))) 1151 (when (< (SG_INT_VALUE v) 0) 1182 (when (< (SG_INT_VALUE v) 0) 1212 (when (or (< (SG_INT_VALUE v) SG_INT_MIN) 1213 (> (SG_INT_VALUE v) SG_INT_MAX)) 1216 (set! value (cast int64_t (SG_INT_VALUE v)))) 1243 (when (or (< (SG_INT_VALUE v) SG_INT_MIN) 1244 (> (SG_INT_VALUE v) SG_INT_MAX)) [all …]
|
H A D | bytevector.c | 251 is_valid_value(SG_INT_VALUE(num), bitCount, signP)) { in Sg_ListToByteVector() 273 i += bytevector_set(bv, i, SG_INT_VALUE(num), bitCount, signP); in Sg_ListToByteVector() 998 long v = SG_INT_VALUE(num); in integer2bytevector() 1048 long v = SG_INT_VALUE(num); in integer2bytevector()
|
H A D | lib_sagittarius.c | 1779 end = SG_INT_VALUE(end_scm); in sagittarius_vector_copy() 1875 end = SG_INT_VALUE(end_scm); in sagittarius_vector_reverseX() 1928 end = SG_INT_VALUE(end_scm); in sagittarius_vector_reverse() 4103 end = SG_INT_VALUE(end_scm); in sagittarius__25maybe_substring() 4150 end = SG_INT_VALUE(end_scm); in sagittarius_string_titlecase_2fspecial_casing() 4222 end = SG_INT_VALUE(end_scm); in sagittarius_string_TOistring() 4707 v = SG_INT_VALUE(v_scm); in sagittarius_put_u16() 4756 v = SG_INT_VALUE(v_scm); in sagittarius_put_s16() 8275 k = SG_INT_VALUE(k_scm); in sagittarius_weak_vector_ref() 8323 k = SG_INT_VALUE(k_scm); in sagittarius_weak_vector_setX() [all …]
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/ffi/ |
H A D | sagittarius-ffi.c | 421 type = SG_INT_VALUE(SG_CADR(layout)); in Sg_CreateCStruct() 431 type = SG_INT_VALUE(SG_CADR(layout)); in Sg_CreateCStruct() 443 type = SG_INT_VALUE(SG_CADR(layout)); in Sg_CreateCStruct() 532 int bit = SG_INT_VALUE(SG_CADR(n)); in name_match() 952 storage->sl = SG_INT_VALUE(obj); in push_ffi_type_value() 956 storage->s64 = SG_INT_VALUE(obj); in push_ffi_type_value() 1106 offset = SG_INT_VALUE(off); in push_ffi_type_value() 1195 *((type *)result) = SG_INT_VALUE(v); \ in convert_scheme_to_c_value() 1224 *((type *)result) = SG_INT_VALUE(v); \ in convert_scheme_to_c_value() 1568 storage->sl = SG_INT_VALUE(arg); in push_varargs_ffi_type_value() [all …]
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/filewatch/ |
H A D | kqueue_watch.c | 186 SG_INT_VALUE(SG_CDAR(cp)), 0, SG_CAAR(cp)); in Sg_StartMonitoring() 215 SG_INT_VALUE(SG_CDAR(cp)), 0, SG_CAAR(cp)); in Sg_StartMonitoring()
|
H A D | fsevents_watch.c | 161 if ((evFlags[i] & SG_INT_VALUE(flags)) == 0) continue; in fsevent_callback()
|
H A D | inotify_watch.c | 206 int wd = inotify_add_watch(fds[0].fd, p, SG_INT_VALUE(SG_CDAR(cp))); in Sg_StartMonitoring()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/posix/ |
H A D | system.c | 622 fds[0] = (int)SG_INT_VALUE(SG_CADR(slot)); in init_fd() 624 fds[1] = (int)SG_INT_VALUE(SG_CADR(slot)); in init_fd() 920 pid_t pid = (pid_t)SG_INT_VALUE(SG_CAR(cp)); in finish_child_process() 960 return (int)SG_INT_VALUE(Sg_SysProcessWait(pid, NULL)); in Sg_SysProcessKill()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/crypto/ |
H A D | hash.c | 172 int start = SG_INT_VALUE(data[1]), end = SG_INT_VALUE(data[2]); in copy_out()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/socket/ |
H A D | sagittarius-socket.c | 353 ai->ai->ai_flags = (int)SG_INT_VALUE(flags); in ai_flags_set() 363 ai->ai->ai_family = (int)SG_INT_VALUE(family); in ai_family_set() 373 ai->ai->ai_socktype = (int)SG_INT_VALUE(socktype); in ai_socktype_set() 383 ai->ai->ai_protocol = (int)SG_INT_VALUE(protocol); in ai_protocol_set() 897 long val = SG_INT_VALUE(timeout); in select_timeval()
|