Added missing ikarus-errno.c
This commit is contained in:
Abdulaziz Ghuloum
parent
53905b9eea
commit
c377d43b92
|
|
@ -0,0 +1,181 @@
|
|||
/*
|
||||
* Ikarus Scheme -- A compiler for R6RS Scheme.
|
||||
* Copyright (C) 2006,2007,2008 Abdulaziz Ghuloum
|
||||
*
|
||||
* This program is free software: you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License version 3 as
|
||||
* published by the Free Software Foundation.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful, but
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
* General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
|
||||
#include <errno.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include "ikarus-data.h"
|
||||
|
||||
typedef struct errno_info {
|
||||
int n;
|
||||
char* s;
|
||||
ikptr c;
|
||||
} errno_info;
|
||||
|
||||
static errno_info errno_table[] = {
|
||||
/* errnos from POSIX IEEE Std 1003.1 2004 Edition */
|
||||
{E2BIG, "E2BIG", fix(-1)},
|
||||
{EACCES, "EACCES", fix(-2)},
|
||||
{EADDRINUSE, "EADDRINUSE", fix(-3)},
|
||||
{EADDRNOTAVAIL, "EADDRNOTAVAIL", fix(-4)},
|
||||
{EAFNOSUPPORT, "EAFNOSUPPORT", fix(-5)},
|
||||
{EAGAIN, "EAGAIN", fix(-6)},
|
||||
{EALREADY, "EALREADY", fix(-7)},
|
||||
{EBADF, "EBADF", fix(-8)},
|
||||
{EBADMSG, "EBADMSG", fix(-9)},
|
||||
{EBUSY, "EBUSY", fix(-10)},
|
||||
{ECANCELED, "ECANCELED", fix(-11)},
|
||||
{ECHILD, "ECHILD", fix(-12)},
|
||||
{ECONNABORTED, "ECONNABORTED", fix(-13)},
|
||||
{ECONNREFUSED, "ECONNREFUSED", fix(-14)},
|
||||
{ECONNRESET, "ECONNRESET", fix(-15)},
|
||||
{EDEADLK, "EDEADLK", fix(-16)},
|
||||
{EDESTADDRREQ, "EDESTADDRREQ", fix(-17)},
|
||||
{EDOM, "EDOM", fix(-18)},
|
||||
{EDQUOT, "EDQUOT", fix(-19)},
|
||||
{EEXIST, "EEXIST", fix(-20)},
|
||||
{EFAULT, "EFAULT", fix(-21)},
|
||||
{EFBIG, "EFBIG", fix(-22)},
|
||||
{EHOSTUNREACH, "EHOSTUNREACH", fix(-23)},
|
||||
{EIDRM, "EIDRM", fix(-24)},
|
||||
{EILSEQ, "EILSEQ", fix(-25)},
|
||||
{EINPROGRESS, "EINPROGRESS", fix(-26)},
|
||||
{EINTR, "EINTR", fix(-27)},
|
||||
{EINVAL, "EINVAL", fix(-28)},
|
||||
{EIO, "EIO", fix(-29)},
|
||||
{EISCONN, "EISCONN", fix(-30)},
|
||||
{EISDIR, "EISDIR", fix(-31)},
|
||||
{ELOOP, "ELOOP", fix(-32)},
|
||||
{EMFILE, "EMFILE", fix(-33)},
|
||||
{EMLINK, "EMLINK", fix(-34)},
|
||||
{EMSGSIZE, "EMSGSIZE", fix(-35)},
|
||||
{EMULTIHOP, "EMULTIHOP", fix(-36)},
|
||||
{ENAMETOOLONG, "ENAMETOOLONG", fix(-37)},
|
||||
{ENETDOWN, "ENETDOWN", fix(-38)},
|
||||
{ENETRESET, "ENETRESET", fix(-39)},
|
||||
{ENETUNREACH, "ENETUNREACH", fix(-40)},
|
||||
{ENFILE, "ENFILE", fix(-41)},
|
||||
{ENOBUFS, "ENOBUFS", fix(-42)},
|
||||
{ENODATA, "ENODATA", fix(-43)},
|
||||
{ENODEV, "ENODEV", fix(-44)},
|
||||
{ENOENT, "ENOENT", fix(-45)},
|
||||
{ENOEXEC, "ENOEXEC", fix(-46)},
|
||||
{ENOLCK, "ENOLCK", fix(-47)},
|
||||
{ENOLINK, "ENOLINK", fix(-48)},
|
||||
{ENOMEM, "ENOMEM", fix(-49)},
|
||||
{ENOMSG, "ENOMSG", fix(-50)},
|
||||
{ENOPROTOOPT, "ENOPROTOOPT", fix(-51)},
|
||||
{ENOSPC, "ENOSPC", fix(-52)},
|
||||
{ENOSR, "ENOSR", fix(-53)},
|
||||
{ENOSTR, "ENOSTR", fix(-54)},
|
||||
{ENOSYS, "ENOSYS", fix(-55)},
|
||||
{ENOTCONN, "ENOTCONN", fix(-56)},
|
||||
{ENOTDIR, "ENOTDIR", fix(-57)},
|
||||
{ENOTEMPTY, "ENOTEMPTY", fix(-58)},
|
||||
{ENOTSOCK, "ENOTSOCK", fix(-59)},
|
||||
{ENOTSUP, "ENOTSUP", fix(-60)},
|
||||
{ENOTTY, "ENOTTY", fix(-61)},
|
||||
{ENXIO, "ENXIO", fix(-62)},
|
||||
{EOPNOTSUPP, "EOPNOTSUPP", fix(-63)},
|
||||
{EOVERFLOW, "EOVERFLOW", fix(-64)},
|
||||
{EPERM, "EPERM", fix(-65)},
|
||||
{EPIPE, "EPIPE", fix(-66)},
|
||||
{EPROTO, "EPROTO", fix(-67)},
|
||||
{EPROTONOSUPPORT, "EPROTONOSUPPORT", fix(-68)},
|
||||
{EPROTOTYPE, "EPROTOTYPE", fix(-69)},
|
||||
{ERANGE, "ERANGE", fix(-70)},
|
||||
{EROFS, "EROFS", fix(-71)},
|
||||
{ESPIPE, "ESPIPE", fix(-72)},
|
||||
{ESRCH, "ESRCH", fix(-73)},
|
||||
{ESTALE, "ESTALE", fix(-74)},
|
||||
{ETIME, "ETIME", fix(-75)},
|
||||
{ETIMEDOUT, "ETIMEDOUT", fix(-76)},
|
||||
{ETXTBSY, "ETXTBSY", fix(-77)},
|
||||
{EWOULDBLOCK, "EWOULDBLOCK", fix(-78)},
|
||||
{EXDEV, "EXDEV", fix(-79)}
|
||||
};
|
||||
|
||||
#define errno_table_length 79
|
||||
|
||||
ikptr
|
||||
ik_errno_num_to_code(int en){
|
||||
/* Used by C to return Ikarus errno code to Scheme. */
|
||||
errno_info* ei;
|
||||
int i;
|
||||
for(i=0; i < errno_table_length; i++){
|
||||
ei = &errno_table[i];
|
||||
if(ei->n == en){
|
||||
return ei->c;
|
||||
}
|
||||
}
|
||||
fprintf(stderr, "\n*** ikarus-errno.c: Don't know errno %d ***\n\n", en);
|
||||
return fix(-99999); /* should always be less than last errno code */
|
||||
}
|
||||
|
||||
ikptr
|
||||
ik_errno_to_code(){
|
||||
int en = errno;
|
||||
return ik_errno_num_to_code(en);
|
||||
}
|
||||
|
||||
ikptr
|
||||
ikrt_errno_code_to_name(ikptr ec, ikpcb* pcb){
|
||||
/* Used by Scheme to get the name of the errno corresponding
|
||||
to the Ikarus errno code. */
|
||||
errno_info* ei;
|
||||
int i;
|
||||
for(i=0; i < errno_table_length; i++){
|
||||
ei = &errno_table[i];
|
||||
if(ei->c == ec){
|
||||
int len = strlen(ei->s);
|
||||
ikptr bv = ik_safe_alloc(pcb, align(disp_bytevector_data+len+1))
|
||||
+ bytevector_tag;
|
||||
ref(bv, off_bytevector_length) = fix(len);
|
||||
memcpy((char*)(bv+off_bytevector_data), ei->s, len+1);
|
||||
return bv;
|
||||
}
|
||||
}
|
||||
return false_object;
|
||||
}
|
||||
|
||||
ikptr
|
||||
ikrt_strerror(ikptr ec, ikpcb* pcb){
|
||||
/* Used by Scheme to get the error message of the errno corresponding
|
||||
to the Ikarus errno code. */
|
||||
errno_info* ei;
|
||||
int i;
|
||||
for(i=0; i < errno_table_length; i++){
|
||||
ei = &errno_table[i];
|
||||
if(ei->c == ec){
|
||||
errno = 0;
|
||||
char* es = strerror(ei->n);
|
||||
if(errno){
|
||||
perror("ikrt_strerror: strerror failed");
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
int len = strlen(es);
|
||||
ikptr bv = ik_safe_alloc(pcb, align(disp_bytevector_data+len+1))
|
||||
+ bytevector_tag;
|
||||
ref(bv, off_bytevector_length) = fix(len);
|
||||
memcpy((char*)(bv+off_bytevector_data), es, len+1);
|
||||
return bv;
|
||||
}
|
||||
}
|
||||
return false_object;
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue