71 lines
1.7 KiB
C
71 lines
1.7 KiB
C
#include <stdio.h>
|
|
#include <fcntl.h>
|
|
#include <errno.h>
|
|
#include <sys/types.h>
|
|
#include <sys/uio.h>
|
|
#include <unistd.h>
|
|
|
|
#include "ikarus-data.h"
|
|
|
|
ikp
|
|
ikrt_io_error(){
|
|
switch(errno){
|
|
case EBADF : return fix(-2);
|
|
case EINTR : return fix(-3);
|
|
case ENOTDIR : return fix(-4);
|
|
case ENAMETOOLONG : return fix(-5);
|
|
case ENOENT : return fix(-6);
|
|
case EACCES : return fix(-7);
|
|
case ELOOP : return fix(-8);
|
|
case EISDIR : return fix(-9);
|
|
case EROFS : return fix(-10);
|
|
case EMFILE : return fix(-11);
|
|
case ENFILE : return fix(-12);
|
|
case ENXIO : return fix(-13);
|
|
case EOPNOTSUPP : return fix(-14);
|
|
case ENOSPC : return fix(-15);
|
|
case EDQUOT : return fix(-16);
|
|
case EIO : return fix(-17);
|
|
case ETXTBSY : return fix(-18);
|
|
case EFAULT : return fix(-19);
|
|
case EEXIST : return fix(-20);
|
|
case EINVAL : return fix(-21);
|
|
}
|
|
return fix(-1);
|
|
}
|
|
|
|
|
|
ikp
|
|
ikrt_close_fd(ikp fd, ikpcb* pcb){
|
|
int err = close(unfix(fd));
|
|
if(err == -1){
|
|
return ikrt_io_error();
|
|
} else {
|
|
return false_object;;
|
|
}
|
|
}
|
|
|
|
ikp
|
|
ikrt_open_input_fd(ikp fn, ikpcb* pcb){
|
|
int fh = open((char*)(fn+off_bytevector_data), O_RDONLY, 0);
|
|
if(fh > 0){
|
|
return fix(fh);
|
|
} else {
|
|
return ikrt_io_error();
|
|
}
|
|
}
|
|
|
|
ikp
|
|
ikrt_read_fd(ikp fd, ikp bv, ikp off, ikp cnt, ikpcb* pcb){
|
|
ssize_t bytes =
|
|
read(unfix(fd),
|
|
(char*)(bv+off_bytevector_data+unfix(off)),
|
|
unfix(cnt));
|
|
if(bytes >= 0){
|
|
return fix(bytes);
|
|
} else {
|
|
return ikrt_io_error();
|
|
}
|
|
}
|
|
|