1274 lines
26 KiB
C
1274 lines
26 KiB
C
/* This is an Scheme48/C interface file,
|
|
** automatically generated by a hacked version of cig 3.0.
|
|
step 4
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h> /* For malloc. */
|
|
#include "libcig.h"
|
|
|
|
#include <sys/signal.h>
|
|
#include <sys/types.h>
|
|
#include <sys/times.h>
|
|
#include <sys/time.h>
|
|
#include <fcntl.h> /* for O_RDWR */
|
|
#include <sys/stat.h>
|
|
#include <netdb.h>
|
|
#include <pwd.h>
|
|
#include <unistd.h>
|
|
|
|
/* Make sure foreign-function stubs interface to the C funs correctly: */
|
|
#include "dirstuff1.h"
|
|
#include "select1.h"
|
|
#include "syscalls1.h"
|
|
#include "userinfo1.h"
|
|
|
|
extern int errno;
|
|
|
|
#define errno_on_zero_or_false(x) ((x) ? S48_FALSE : s48_enter_fixnum(errno))
|
|
#define errno_or_false(x) (((x) == -1) ? s48_enter_fixnum(errno) : S48_FALSE)
|
|
#define False_on_zero(x) ((x) ? s48_enter_fixnum(x) : S48_FALSE)
|
|
|
|
s48_value df_scheme_exec(s48_value g1, s48_value g2, s48_value g3)
|
|
{
|
|
extern int scheme_exec(const char *, s48_value , s48_value );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = scheme_exec(s48_extract_string(g1), g2, g3);
|
|
ret1 = s48_enter_fixnum(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_exit(s48_value g1)
|
|
{
|
|
extern void exit(int );
|
|
|
|
|
|
exit(s48_extract_fixnum(g1));
|
|
return S48_FALSE;
|
|
}
|
|
|
|
s48_value df__exit(s48_value g1)
|
|
{
|
|
extern void _exit(int );
|
|
|
|
|
|
_exit(s48_extract_fixnum(g1));
|
|
return S48_FALSE;
|
|
}
|
|
|
|
s48_value df_fork(s48_value mv_vec)
|
|
{
|
|
extern pid_t fork(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
pid_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = fork();
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_chdir(s48_value g1)
|
|
{
|
|
extern int chdir(const char *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = chdir(s48_extract_string(g1));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_scheme_cwd(s48_value mv_vec)
|
|
{
|
|
extern int scheme_cwd(const char **);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
int r1;
|
|
const char *r2;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = scheme_cwd(&r2);
|
|
ret1 = False_on_zero(r1);
|
|
SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_getgid(void)
|
|
{
|
|
extern gid_t getgid(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
gid_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = getgid();
|
|
ret1 = s48_enter_fixnum(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_getegid(void)
|
|
{
|
|
extern gid_t getegid(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
gid_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = getegid();
|
|
ret1 = s48_enter_fixnum(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_setgid(s48_value g1)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = setgid(s48_extract_fixnum(g1));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_num_supp_groups(s48_value mv_vec)
|
|
{
|
|
extern int num_supp_groups(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = num_supp_groups();
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_get_groups(s48_value g1, s48_value mv_vec)
|
|
{
|
|
extern int get_groups(s48_value );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = get_groups(g1);
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_getuid(void)
|
|
{
|
|
extern uid_t getuid(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
uid_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = getuid();
|
|
ret1 = s48_enter_fixnum(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_geteuid(void)
|
|
{
|
|
extern uid_t geteuid(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
uid_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = geteuid();
|
|
ret1 = s48_enter_fixnum(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_setuid(s48_value g1)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = setuid(s48_extract_fixnum(g1));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_getpid(void)
|
|
{
|
|
extern pid_t getpid(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
pid_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = getpid();
|
|
ret1 = s48_enter_fixnum(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_getppid(void)
|
|
{
|
|
extern pid_t getppid(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
pid_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = getppid();
|
|
ret1 = s48_enter_fixnum(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_getpgrp(void)
|
|
{
|
|
extern pid_t getpgrp(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
pid_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = getpgrp();
|
|
ret1 = s48_enter_fixnum(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_setpgid(s48_value g1, s48_value g2)
|
|
{
|
|
extern int setpgid(pid_t , pid_t );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = setpgid(s48_extract_fixnum(g1), s48_extract_fixnum(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_setsid(s48_value mv_vec)
|
|
{
|
|
extern pid_t setsid(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
pid_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = setsid();
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_umask(s48_value g1)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
mode_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = umask(s48_extract_fixnum(g1));
|
|
ret1 = s48_enter_fixnum(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_process_times(s48_value mv_vec)
|
|
{
|
|
extern int process_times(clock_t *, clock_t *, clock_t *, clock_t *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
int r1;
|
|
clock_t r2;
|
|
clock_t r3;
|
|
clock_t r4;
|
|
clock_t r5;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = process_times(&r2, &r3, &r4, &r5);
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2));
|
|
S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3));
|
|
S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4));
|
|
S48_VECTOR_SET(mv_vec,3,s48_enter_fixnum(r5));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_cpu_clock_ticks_per_sec(void)
|
|
{
|
|
extern int cpu_clock_ticks_per_sec(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = cpu_clock_ticks_per_sec();
|
|
ret1 = s48_enter_integer(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_chmod(s48_value g1, s48_value g2)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = chmod(s48_extract_string(g1), s48_extract_fixnum(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_fchmod(s48_value g1, s48_value g2)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = fchmod(s48_extract_fixnum(g1), s48_extract_fixnum(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_chown(s48_value g1, s48_value g2, s48_value g3)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = chown(s48_extract_string(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_fchown(s48_value g1, s48_value g2, s48_value g3)
|
|
{
|
|
extern int fchown(int , uid_t , gid_t );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = fchown(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_access(s48_value g1, s48_value g2)
|
|
{
|
|
extern int access(const char *, int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = access(s48_extract_string(g1), s48_extract_integer(g2));
|
|
ret1 = ENTER_BOOLEAN(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_link(s48_value g1, s48_value g2)
|
|
{
|
|
extern int link(const char *, const char *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = link(s48_extract_string(g1), s48_extract_string(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_mkfifo(s48_value g1, s48_value g2)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = mkfifo(s48_extract_string(g1), s48_extract_fixnum(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_mkdir(s48_value g1, s48_value g2)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = mkdir(s48_extract_string(g1), s48_extract_fixnum(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_scm_readlink(s48_value g1, s48_value mv_vec)
|
|
{
|
|
extern s48_value scm_readlink(const char *, s48_value *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
s48_value r1;
|
|
s48_value r2;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = scm_readlink(s48_extract_string(g1), &r2);
|
|
ret1 = r1;
|
|
S48_VECTOR_SET(mv_vec,0,r2);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_rename(s48_value g1, s48_value g2)
|
|
{
|
|
extern int rename(const char *, const char *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = rename(s48_extract_string(g1), s48_extract_string(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_rmdir(s48_value g1)
|
|
{
|
|
extern int rmdir(const char *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = rmdir(s48_extract_string(g1));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_scm_utime(s48_value g1, s48_value g2, s48_value g3)
|
|
{
|
|
extern int scm_utime(const char *, time_t , time_t );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = scm_utime(s48_extract_string(g1), s48_extract_integer(g2), s48_extract_integer(g3));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_scm_utime_now(s48_value g1)
|
|
{
|
|
extern int scm_utime_now(const char *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = scm_utime_now(s48_extract_string(g1));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_scheme_stat(s48_value g1, s48_value g2, s48_value g3)
|
|
{
|
|
extern int scheme_stat(const char *, s48_value , int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = scheme_stat(s48_extract_string(g1), g2, EXTRACT_BOOLEAN(g3));
|
|
ret1 = False_on_zero(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_scheme_fstat(s48_value g1, s48_value g2)
|
|
{
|
|
extern int scheme_fstat(int , s48_value );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = scheme_fstat(s48_extract_integer(g1), g2);
|
|
ret1 = False_on_zero(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_symlink(s48_value g1, s48_value g2)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = symlink(s48_extract_string(g1), s48_extract_string(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_truncate(s48_value g1, s48_value g2)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = truncate(s48_extract_string(g1), s48_extract_fixnum(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_ftruncate(s48_value g1, s48_value g2)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = ftruncate(s48_extract_fixnum(g1), s48_extract_fixnum(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_unlink(s48_value g1)
|
|
{
|
|
extern int unlink(const char *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = unlink(s48_extract_string(g1));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_fsync(s48_value g1)
|
|
{
|
|
extern int fsync(int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = fsync(s48_extract_fixnum(g1));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_sync(void)
|
|
{
|
|
|
|
|
|
|
|
sync();
|
|
return S48_FALSE;
|
|
}
|
|
|
|
s48_value df_close(s48_value g1)
|
|
{
|
|
extern int close(int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = close(s48_extract_fixnum(g1));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_dup(s48_value g1, s48_value mv_vec)
|
|
{
|
|
extern int dup(int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = dup(s48_extract_fixnum(g1));
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_dup2(s48_value g1, s48_value g2, s48_value mv_vec)
|
|
{
|
|
extern int dup2(int , int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = dup2(s48_extract_fixnum(g1), s48_extract_fixnum(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_lseek(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
|
{
|
|
extern off_t lseek(int , off_t , int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
off_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = lseek(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3));
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_char_ready_fdes(s48_value g1)
|
|
{
|
|
extern s48_value char_ready_fdes(int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
s48_value r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = char_ready_fdes(s48_extract_fixnum(g1));
|
|
ret1 = r1;
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_open(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
|
{
|
|
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = open(s48_extract_string(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3));
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_scheme_pipe(s48_value mv_vec)
|
|
{
|
|
extern int scheme_pipe(int *, int *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
int r1;
|
|
int r2;
|
|
int r3;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = scheme_pipe(&r2, &r3);
|
|
ret1 = False_on_zero(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2));
|
|
S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_read_fdes_char(s48_value g1)
|
|
{
|
|
extern s48_value read_fdes_char(int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
s48_value r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = read_fdes_char(s48_extract_fixnum(g1));
|
|
ret1 = r1;
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_write_fdes_char(s48_value g1, s48_value g2)
|
|
{
|
|
extern int write_fdes_char(char , int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = write_fdes_char(s48_extract_char(g1), s48_extract_fixnum(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_read_fdes_substring(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value mv_vec)
|
|
{
|
|
extern ssize_t read_fdes_substring(s48_value , size_t , size_t , int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
ssize_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = read_fdes_substring(g1, s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4));
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_write_fdes_substring(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value mv_vec)
|
|
{
|
|
extern ssize_t write_fdes_substring(s48_value , size_t , size_t , int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
ssize_t r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = write_fdes_substring(g1, s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4));
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_kill(s48_value g1, s48_value g2)
|
|
{
|
|
extern int kill(pid_t , int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = kill(s48_extract_fixnum(g1), s48_extract_fixnum(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_pause(void)
|
|
{
|
|
|
|
|
|
|
|
pause();
|
|
return S48_FALSE;
|
|
}
|
|
|
|
s48_value df_open_dir(s48_value g1, s48_value mv_vec)
|
|
{
|
|
extern int open_dir(const char *, char** *, int *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
int r1;
|
|
char** r2;
|
|
int r3;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = open_dir(s48_extract_string(g1), &r2, &r3);
|
|
ret1 = False_on_zero(r1);
|
|
SetAlienVal(S48_VECTOR_REF(mv_vec,0),(long) r2);//simple-assign
|
|
S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_scm_sort_filevec(s48_value g1, s48_value g2)
|
|
{
|
|
extern void scm_sort_filevec(const char** , int );
|
|
|
|
|
|
scm_sort_filevec((const char** )AlienVal(g1), s48_extract_fixnum(g2));
|
|
return S48_FALSE;
|
|
}
|
|
|
|
s48_value df_scm_envvec(void)
|
|
{
|
|
extern s48_value scm_envvec(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
s48_value r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = scm_envvec();
|
|
ret1 = r1;
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_install_env(s48_value g1)
|
|
{
|
|
extern int install_env(s48_value );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = install_env(g1);
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_create_env(s48_value g1, s48_value mv_vec)
|
|
{
|
|
extern int create_env(s48_value , s48_value *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
int r1;
|
|
s48_value r2;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = create_env(g1, &r2);
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,r2);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_align_env(s48_value g1)
|
|
{
|
|
extern void align_env(s48_value );
|
|
|
|
|
|
align_env(g1);
|
|
return S48_FALSE;
|
|
}
|
|
|
|
s48_value df_free_envvec(s48_value g1)
|
|
{
|
|
extern s48_value free_envvec(s48_value );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
s48_value r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = free_envvec(g1);
|
|
ret1 = r1;
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_envvec_setenv(s48_value g1, s48_value g2)
|
|
{
|
|
extern s48_value envvec_setenv(s48_value , s48_value );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
s48_value r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = envvec_setenv(g1, g2);
|
|
ret1 = r1;
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_getenv(s48_value g1, s48_value mv_vec)
|
|
{
|
|
extern char *getenv(const char *);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
char *r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = getenv(s48_extract_string(g1));
|
|
ret1 = S48_VECTOR_REF(mv_vec,0);
|
|
SetAlienVal(S48_CAR(ret1),(long) r1); S48_SET_CDR(ret1,strlen_or_false(r1));//str-and-len
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
#define errno_on_nonzero_or_false(x) ((x) ? s48_enter_fixnum(errno) : S48_FALSE)
|
|
|
|
s48_value df_delete_env(s48_value g1)
|
|
{
|
|
extern s48_value delete_env(s48_value );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
s48_value r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = delete_env(g1);
|
|
ret1 = r1;
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_set_cloexec(s48_value g1, s48_value g2)
|
|
{
|
|
extern int set_cloexec(int , int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = set_cloexec(s48_extract_fixnum(g1), EXTRACT_BOOLEAN(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_fcntl_read(s48_value g1, s48_value g2, s48_value mv_vec)
|
|
{
|
|
extern int fcntl_read(int , int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = fcntl_read(s48_extract_fixnum(g1), s48_extract_fixnum(g2));
|
|
ret1 = errno_or_false(r1);
|
|
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_fcntl_write(s48_value g1, s48_value g2, s48_value g3)
|
|
{
|
|
extern int fcntl_write(int , int , int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
int r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = fcntl_write(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3));
|
|
ret1 = errno_or_false(r1);
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_sleep_until(s48_value g1)
|
|
{
|
|
extern s48_value sleep_until(time_t );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
s48_value r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = sleep_until(s48_extract_integer(g1));
|
|
ret1 = r1;
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_scm_gethostname(void)
|
|
{
|
|
extern s48_value scm_gethostname(void);
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
s48_value r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = scm_gethostname();
|
|
ret1 = r1;
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_errno_msg(s48_value g1, s48_value mv_vec)
|
|
{
|
|
extern char *errno_msg(int );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(2);
|
|
char *r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_2(mv_vec,ret1);
|
|
r1 = errno_msg(s48_extract_integer(g1));
|
|
ret1 = S48_VECTOR_REF(mv_vec,0);
|
|
SetAlienVal(S48_CAR(ret1),(long) r1); S48_SET_CDR(ret1,strlen_or_false(r1));//str-and-len
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value df_scm_crypt(s48_value g1, s48_value g2)
|
|
{
|
|
extern s48_value scm_crypt(s48_value , s48_value );
|
|
s48_value ret1;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
s48_value r1;
|
|
|
|
|
|
|
|
S48_GC_PROTECT_1(ret1);
|
|
r1 = scm_crypt(g1, g2);
|
|
ret1 = r1;
|
|
S48_GC_UNPROTECT();
|
|
return ret1;
|
|
}
|
|
|
|
s48_value s48_init_syscalls(void)
|
|
{
|
|
S48_EXPORT_FUNCTION(df_scheme_exec);
|
|
S48_EXPORT_FUNCTION(df_exit);
|
|
S48_EXPORT_FUNCTION(df__exit);
|
|
S48_EXPORT_FUNCTION(df_fork);
|
|
S48_EXPORT_FUNCTION(wait_pid);
|
|
S48_EXPORT_FUNCTION(df_chdir);
|
|
S48_EXPORT_FUNCTION(df_scheme_cwd);
|
|
S48_EXPORT_FUNCTION(df_getgid);
|
|
S48_EXPORT_FUNCTION(df_getegid);
|
|
S48_EXPORT_FUNCTION(df_setgid);
|
|
S48_EXPORT_FUNCTION(df_num_supp_groups);
|
|
S48_EXPORT_FUNCTION(df_get_groups);
|
|
S48_EXPORT_FUNCTION(df_getuid);
|
|
S48_EXPORT_FUNCTION(df_geteuid);
|
|
S48_EXPORT_FUNCTION(df_setuid);
|
|
S48_EXPORT_FUNCTION(df_getpid);
|
|
S48_EXPORT_FUNCTION(df_getppid);
|
|
S48_EXPORT_FUNCTION(df_getpgrp);
|
|
S48_EXPORT_FUNCTION(df_setpgid);
|
|
S48_EXPORT_FUNCTION(df_setsid);
|
|
S48_EXPORT_FUNCTION(df_umask);
|
|
S48_EXPORT_FUNCTION(df_process_times);
|
|
S48_EXPORT_FUNCTION(df_cpu_clock_ticks_per_sec);
|
|
S48_EXPORT_FUNCTION(df_chmod);
|
|
S48_EXPORT_FUNCTION(df_fchmod);
|
|
S48_EXPORT_FUNCTION(df_chown);
|
|
S48_EXPORT_FUNCTION(df_fchown);
|
|
S48_EXPORT_FUNCTION(df_access);
|
|
S48_EXPORT_FUNCTION(df_link);
|
|
S48_EXPORT_FUNCTION(df_mkfifo);
|
|
S48_EXPORT_FUNCTION(df_mkdir);
|
|
S48_EXPORT_FUNCTION(df_scm_readlink);
|
|
S48_EXPORT_FUNCTION(df_rename);
|
|
S48_EXPORT_FUNCTION(df_rmdir);
|
|
S48_EXPORT_FUNCTION(df_scm_utime);
|
|
S48_EXPORT_FUNCTION(df_scm_utime_now);
|
|
S48_EXPORT_FUNCTION(df_scheme_stat);
|
|
S48_EXPORT_FUNCTION(df_scheme_fstat);
|
|
S48_EXPORT_FUNCTION(df_symlink);
|
|
S48_EXPORT_FUNCTION(df_truncate);
|
|
S48_EXPORT_FUNCTION(df_ftruncate);
|
|
S48_EXPORT_FUNCTION(df_unlink);
|
|
S48_EXPORT_FUNCTION(df_fsync);
|
|
S48_EXPORT_FUNCTION(df_sync);
|
|
S48_EXPORT_FUNCTION(df_close);
|
|
S48_EXPORT_FUNCTION(df_dup);
|
|
S48_EXPORT_FUNCTION(df_dup2);
|
|
S48_EXPORT_FUNCTION(df_lseek);
|
|
S48_EXPORT_FUNCTION(df_char_ready_fdes);
|
|
S48_EXPORT_FUNCTION(df_open);
|
|
S48_EXPORT_FUNCTION(df_scheme_pipe);
|
|
S48_EXPORT_FUNCTION(df_read_fdes_char);
|
|
S48_EXPORT_FUNCTION(df_write_fdes_char);
|
|
S48_EXPORT_FUNCTION(df_read_fdes_substring);
|
|
S48_EXPORT_FUNCTION(df_write_fdes_substring);
|
|
S48_EXPORT_FUNCTION(df_kill);
|
|
S48_EXPORT_FUNCTION(df_pause);
|
|
S48_EXPORT_FUNCTION(df_open_dir);
|
|
S48_EXPORT_FUNCTION(df_scm_sort_filevec);
|
|
S48_EXPORT_FUNCTION(df_scm_envvec);
|
|
S48_EXPORT_FUNCTION(df_install_env);
|
|
S48_EXPORT_FUNCTION(df_create_env);
|
|
S48_EXPORT_FUNCTION(df_align_env);
|
|
S48_EXPORT_FUNCTION(df_free_envvec);
|
|
S48_EXPORT_FUNCTION(df_envvec_setenv);
|
|
S48_EXPORT_FUNCTION(df_getenv);
|
|
S48_EXPORT_FUNCTION(df_delete_env);
|
|
S48_EXPORT_FUNCTION(df_set_cloexec);
|
|
S48_EXPORT_FUNCTION(df_fcntl_read);
|
|
S48_EXPORT_FUNCTION(df_fcntl_write);
|
|
S48_EXPORT_FUNCTION(df_sleep_until);
|
|
S48_EXPORT_FUNCTION(df_scm_gethostname);
|
|
S48_EXPORT_FUNCTION(df_errno_msg);
|
|
S48_EXPORT_FUNCTION(df_scm_crypt);
|
|
|
|
return S48_UNSPECIFIC;
|
|
}
|