/dports/lang/chicken5/chicken-5.3.0/ |
H A D | chicken.h | 1243 C_unfix(end1) - C_unfix(start1) ), C_SCHEME_UNDEFINED) 2886 x = C_unfix(x); in C_a_u_i_fix_to_big() 2908 x = (x & C_INT_SIGN_BIT) ? -C_unfix(x) : C_unfix(x); in C_i_fixnum_gcd() 2909 y = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y); in C_i_fixnum_gcd() 2928 y = C_unfix(y); in C_u_fixnum_modulo() 2964 x = C_unfix(x); in C_i_fixnum_remainder_checked() 2965 y = C_unfix(y); in C_i_fixnum_remainder_checked() 3010 C_word z = C_unfix(x) - C_unfix(y); in C_a_i_fixnum_difference() 3021 C_word z = C_unfix(x) + C_unfix(y); in C_a_i_fixnum_plus() 3035 x = (x & C_INT_SIGN_BIT) ? -C_unfix(x) : C_unfix(x); in C_a_i_fixnum_times() [all …]
|
H A D | posixunix.scm | 102 #define C_fchdir(fd) C_fix(fchdir(C_unfix(fd))) 111 #define C_waitpid(id, o) C_fix(waitpid(C_unfix(id), &C_wait_status, C_unfix(o))) 113 #define C_kill(id, s) C_fix(kill(C_unfix(id), C_unfix(s))) 118 #define C_chown(fn, u, g) C_fix(chown(C_c_string(fn), C_unfix(u), C_unfix(g))) 119 #define C_fchown(fd, u, g) C_fix(fchown(C_unfix(fd), C_unfix(u), C_unfix(g))) 121 #define C_fchmod(fd, m) C_fix(fchmod(C_unfix(fd), C_unfix(m))) 127 #define C_setpgid(x, y) C_fix(setpgid(C_unfix(x), C_unfix(y))) 138 #define C_umask(m) C_fix(umask(C_unfix(m))) 174 #define C_open(fn, fl, m) C_fix(open(C_c_string(fn), C_unfix(fl), C_unfix(m))) 175 #define C_read(fd, b, n) C_fix(read(C_unfix(fd), C_data_pointer(b), C_unfix(n))) [all …]
|
H A D | posix-common.scm | 78 ((ptm)->tm_sec = C_unfix(C_block_item((v), 0)), \ 79 (ptm)->tm_min = C_unfix(C_block_item((v), 1)), \ 80 (ptm)->tm_hour = C_unfix(C_block_item((v), 2)), \ 81 (ptm)->tm_mday = C_unfix(C_block_item((v), 3)), \ 82 (ptm)->tm_mon = C_unfix(C_block_item((v), 4)), \ 83 (ptm)->tm_year = C_unfix(C_block_item((v), 5)), \ 84 (ptm)->tm_wday = C_unfix(C_block_item((v), 6)), \ 85 (ptm)->tm_yday = C_unfix(C_block_item((v), 7)), \ 114 #define C_dup(x) C_fix(dup(C_unfix(x))) 115 #define C_dup2(x, y) C_fix(dup2(C_unfix(x), C_unfix(y))) [all …]
|
H A D | runtime.c | 6188 if (C_unfix(C_i_fixnum_length(x)) <= 8) n = C_unfix(x); 6238 if (C_unfix(C_i_fixnum_length(x)) <= 16) n = C_unfix(x); 6875 y = C_unfix(y); 7492 else if(C_ilen(C_unfix(x)) <= C_unfix(bits)) return x; 9049 n = C_unfix(n); 9829 return C_mk_bool(C_unfix(x) > C_unfix(y)); 9876 return C_mk_bool(C_unfix(x) < C_unfix(y)); 9924 return C_mk_bool(C_unfix(x) >= C_unfix(y)); 9974 return C_mk_bool(C_unfix(x) <= C_unfix(y)); 10393 y = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y); [all …]
|
H A D | posixwin.scm | 112 #define C_chmod(fn, m) C_fix(chmod(C_c_string(fn), C_unfix(m))) 113 #define C_pipe(d, m) C_fix(_pipe(C_pipefds, PIPE_BUF, C_unfix(m))) 114 #define C_close(fd) C_fix(close(C_unfix(fd))) 122 #define C_u_i_spawnvp(m,f,a) C_fix(spawnvp(C_unfix(m), C_c_string(f), (const char *const *)C_c_p… 125 #define C_open(fn, fl, m) C_fix(open(C_c_string(fn), C_unfix(fl), C_unfix(m))) 126 #define C_read(fd, b, n) C_fix(read(C_unfix(fd), C_data_pointer(b), C_unfix(n))) 127 #define C_write(fd, b, n) C_fix(write(C_unfix(fd), C_data_pointer(b), C_unfix(n))) 131 #define C_umask(m) C_fix(_umask(C_unfix(m))) 224 HANDLE fh = (HANDLE)_get_osfhandle(C_unfix(fd)); 247 else return C_fix(chmod(path, C_unfix(m))); [all …]
|
H A D | scheduler.scm | 66 ts.tv_nsec = (long)C_unfix(msec) * 1000000; 79 #define C_fd_input_ready(fd,pos) C_mk_bool(FD_ISSET(C_unfix(fd), &C_fdset_input)) 80 #define C_fd_output_ready(fd,pos) C_mk_bool(FD_ISSET(C_unfix(fd), &C_fdset_output)) 112 #define C_fd_input_ready(fd,pos) C_mk_bool(C_fd_ready(C_unfix(fd), C_unfix(pos),POLLIN|POLLERR|POL… 113 #define C_fd_output_ready(fd,pos) C_mk_bool(C_fd_ready(C_unfix(fd), C_unfix(pos),POLLOUT|POLLERR|P…
|
H A D | tcp.c | 28 int fd = C_unfix(sock); in make_socket_nonblocking() 71 int fd = C_unfix(sock); in make_socket_nonblocking() 248 int s=(int )C_unfix(C_a0); in stub245() 264 int s=(int )C_unfix(C_a0); in stub240() 277 int s=(int )C_unfix(C_a0); in stub235() 290 int s=(int )C_unfix(C_a0); in stub229() 306 int s=(int )C_unfix(C_a0); in stub218() 320 int t0=(int )C_unfix(C_a0); in stub209() 327 int t0=(int )C_unfix(C_a0); in stub204() 334 int t0=(int )C_unfix(C_a0); in stub195() [all …]
|
H A D | srfi-4.scm | 35 …mcpy((C_char *)C_data_pointer(to) + C_unfix(start_to), (C_char *)C_data_pointer(from) + C_unfix(st…
|
H A D | posixunix.c | 97 #define C_dup2(x, y) C_fix(dup2(C_unfix(x), C_unfix(y))) 104 #define C_lseek(fd, o, w) C_fix(lseek(C_unfix(fd), C_num_to_int64(o), C_unfix(w))) 210 #define C_waitpid(id, o) C_fix(waitpid(C_unfix(id), &C_wait_status, C_unfix(o))) 212 #define C_kill(id, s) C_fix(kill(C_unfix(id), C_unfix(s))) 217 #define C_chown(fn, u, g) C_fix(chown(C_c_string(fn), C_unfix(u), C_unfix(g))) 218 #define C_fchown(fd, u, g) C_fix(fchown(C_unfix(fd), C_unfix(u), C_unfix(g))) 220 #define C_fchmod(fd, m) C_fix(fchmod(C_unfix(fd), C_unfix(m))) 226 #define C_setpgid(x, y) C_fix(setpgid(C_unfix(x), C_unfix(y))) 273 #define C_open(fn, fl, m) C_fix(open(C_c_string(fn), C_unfix(fl), C_unfix(m))) 274 #define C_read(fd, b, n) C_fix(read(C_unfix(fd), C_data_pointer(b), C_unfix(n))) [all …]
|
H A D | tcp.scm | 50 int fd = C_unfix(sock); 93 int fd = C_unfix(sock);
|
H A D | dbg-stub.c | 279 C_snprintf(rw_buffer, sizeof(rw_buffer), " %ld", (long)C_unfix(x)); in send_scheme_value()
|
H A D | posixwin.c | 61 (ptm)->tm_min = C_unfix(C_block_item((v), 1)), \ 96 #define C_dup(x) C_fix(dup(C_unfix(x))) 97 #define C_dup2(x, y) C_fix(dup2(C_unfix(x), C_unfix(y))) 104 #define C_lseek(fd, o, w) C_fix(lseek(C_unfix(fd), C_num_to_int64(o), C_unfix(w))) 180 #define C_close(fd) C_fix(close(C_unfix(fd))) 191 #define C_open(fn, fl, m) C_fix(open(C_c_string(fn), C_unfix(fl), C_unfix(m))) 192 #define C_read(fd, b, n) C_fix(read(C_unfix(fd), C_data_pointer(b), C_unfix(n))) 193 #define C_write(fd, b, n) C_fix(write(C_unfix(fd), C_data_pointer(b), C_unfix(n))) 313 else return C_fix(chmod(path, C_unfix(m))); in C_fchmod() 777 int t7=(int )C_unfix(C_a7); in stub1476() [all …]
|
H A D | lolevel.c | 138 int t0=(int )C_unfix(C_a0); in stub494() 180 int t0=(int )C_unfix(C_a0); in stub320() 189 int t2=(int )C_unfix(C_a2); in stub199() 190 int t3=(int )C_unfix(C_a3); in stub199() 191 int t4=(int )C_unfix(C_a4); in stub199() 200 int t2=(int )C_unfix(C_a2); in stub183() 201 int t3=(int )C_unfix(C_a3); in stub183() 202 int t4=(int )C_unfix(C_a4); in stub183() 211 int t2=(int )C_unfix(C_a2); in stub167() 212 int t3=(int )C_unfix(C_a3); in stub167() [all …]
|
H A D | file.scm | 44 #define C_test_access(fn, m) C_fix(access(C_c_string(fn), C_unfix(m)))
|
H A D | scheduler.c | 35 ts.tv_nsec = (long)C_unfix(msec) * 1000000; in C_msleep() 48 #define C_fd_input_ready(fd,pos) C_mk_bool(FD_ISSET(C_unfix(fd), &C_fdset_input)) 49 #define C_fd_output_ready(fd,pos) C_mk_bool(FD_ISSET(C_unfix(fd), &C_fdset_output)) 81 #define C_fd_input_ready(fd,pos) C_mk_bool(C_fd_ready(C_unfix(fd), C_unfix(pos),POLLIN|POLLERR|POL… 82 #define C_fd_output_ready(fd,pos) C_mk_bool(C_fd_ready(C_unfix(fd), C_unfix(pos),POLLOUT|POLLERR|P… 179 int t0=(int )C_unfix(C_a0); in stub446() 188 int t0=(int )C_unfix(C_a0); in stub387()
|
H A D | library.scm | 61 #define C_a_f64peek(ptr, c, b, i) C_flonum(ptr, ((double *)C_data_pointer(b))[ C_unfix(i) ]) 62 #define C_fetch_c_strlen(b, i) C_fix(strlen((C_char *)C_block_item(b, C_unfix(i)))) 64 … to, len) (C_memcpy(C_data_pointer(to), (C_char *)C_block_item(b, C_unfix(i)), C_unfix(len)), C_SC… 65 #define C_free_mptr(p, i) (C_free((void *)C_block_item(p, C_unfix(i))), C_SCHEME_UNDEFINED) 66 #define C_free_sptr(p, i) (C_free((void *)(((C_char **)C_block_item(p, 0))[ C_unfix(i) ])), C_S… 73 int n = C_unfix(size); 112 int n = C_unfix (len); 113 char * buf = ((char *)C_data_pointer (dest) + C_unfix (pos));
|
H A D | eval.scm | 1360 …py((char *)C_block_item(buf, 0), C_c_string(str), C_unfix(n)), ((char *)C_block_item(buf, 0))[ C_u…
|
H A D | port.c | 150 int t0=(int )C_unfix(C_a0); in stub551() 159 int t0=(int )C_unfix(C_a0); in stub537() 166 int t0=(int )C_unfix(C_a0); in stub515() 174 int m=(int )C_unfix(C_a1); in stub144() 175 int s=(int )C_unfix(C_a2); in stub144() 4260 av2[2]=C_make_character(C_unfix(t4)); in f_992()
|
H A D | irregex.c | 9921 t2=C_make_character(C_unfix(t1)); in f_13329() 9983 t2=C_make_character(C_unfix(t1)); in f_13363() 11359 t6=C_make_character(C_unfix(t5)); in f_14482() 11431 t8=C_make_character(C_unfix(t7)); in f_14508() 11560 t4=C_make_character(C_unfix(t3)); in f_14580() 11563 t7=C_make_character(C_unfix(t6)); in f_14580() 11806 t4=C_make_character(C_unfix(t3)); in f_14716() 11837 t4=C_make_character(C_unfix(t3)); in f_14752() 11895 t5=C_make_character(C_unfix(t4)); in f_14774() 11977 t2=C_make_character(C_unfix(t1)); in f_14835() [all …]
|
H A D | library.c | 35 int n = C_unfix(size); in fast_read_line_from_file() 74 int n = C_unfix (len); in fast_read_string_from_file() 1204 C_return(C_main_argv[C_unfix(i)]); in stub6827() 1219 int t0=(int )C_unfix(C_a0); in stub6807() 1241 int t1=(int )C_unfix(C_a1); in stub6495() 1249 int t1=(int )C_unfix(C_a1); in stub6476() 1267 int t1=(int )C_unfix(C_a1); in stub2831() 32288 t2=C_make_character(C_unfix(t1)); in f_20747() 32962 t3=C_make_character(C_unfix(t2)); in f_21009() 37737 t6=C_make_character(C_unfix(t5)); in f_23209() [all …]
|
H A D | file.c | 13 #define C_test_access(fn, m) C_fix(access(C_c_string(fn), C_unfix(m))) 145 int t0=(int )C_unfix(C_a0); in stub142()
|
H A D | c-backend.c | 8501 t6=C_make_character(C_unfix(t5)); in f_13165() 8504 t9=C_make_character(C_unfix(t8)); in f_13165() 8506 t11=C_make_character(C_unfix(t10)); in f_13165() 8588 t4=C_make_character(C_unfix(t3)); in f_13281() 8591 t7=C_make_character(C_unfix(t6)); in f_13281() 8594 t10=C_make_character(C_unfix(t9)); in f_13281() 8596 t12=C_make_character(C_unfix(t11)); in f_13281() 8747 t5=C_make_character(C_unfix(t4)); in f_13374() 8756 t6=C_make_character(C_unfix(t5)); in f_13374()
|
H A D | srfi-4.c | 12 …mcpy((C_char *)C_data_pointer(to) + C_unfix(start_to), (C_char *)C_data_pointer(from) + C_unfix(st…
|
H A D | csi.c | 50 int t1=(int )C_unfix(C_a1); in stub733() 7158 t2=C_make_character(C_unfix(((C_word*)t0)[2])); in f_5614() 9465 av2[2]=C_make_character(C_unfix(t1)); in f_6676()
|
/dports/devel/swig/swig-4.0.2/Lib/chicken/ |
H A D | chicken.swg | 135 //SIMPLE_TYPEMAP(enum SWIGTYPE, C_unfix, C_fix, C_swig_is_fixnum, (int), 0); 160 *((int *)(void *)&$1) = C_unfix($input);
|