/*
* POSIX library for Lua 5.1, 5.2 & 5.3.
* (c) Gary V. Vaughan <gary@vaughan.pe>, 2013-2015
* (c) Reuben Thomas <rrt@sc3d.org> 2010-2013
* (c) Natanael Copa <natanael.copa@gmail.com> 2008-2010
* Clean up and bug fixes by Leo Razoumov <slonik.az@gmail.com> 2006-10-11
* Luiz Henrique de Figueiredo <lhf@tecgraf.puc-rio.br> 07 Apr 2006 23:17:49
* Based on original by Claudio Terra for Lua 3.x.
* With contributions by Roberto Ierusalimschy.
* With documentation from Steve Donovan 2012
*/
/***
System error codes and messages.
Usually, you'll be able to work with the error messages returned as the
second value from failed calls directly, without having to manually save
and stringify the system messages as you would in C. For completeness,
the functions are still available here.
@module posix.errno
*/
#include <config.h>
#include <errno.h>
#include <stdio.h>
#include <string.h>
#include "_helpers.c"
#ifndef errno
extern int errno;
#endif
/***
Describe an error code/and or read `errno`
@function errno
@int[opt=current errno] n optional error code
@return description
@return error code
@see strerror(3)
@see errno
@usage
local strerr, nerr = P.errno ()
*/
static int
Perrno(lua_State *L)
{
int n = optint(L, 1, errno);
checknargs(L, 1);
lua_pushstring(L, strerror(n));
lua_pushinteger(L, n);
return 2;
}
/***
Set errno.
@function set_errno
@int n error code
@see errno(3)
@usage
P.errno (P.EBADF)
*/
static int
Pset_errno(lua_State *L)
{
errno = checkint(L, 1);
checknargs(L, 1);
return 0;
}
static const luaL_Reg posix_errno_fns[] =
{
LPOSIX_FUNC( Perrno ),
LPOSIX_FUNC( Pset_errno ),
{NULL, NULL}
};
/***
Constants.
@section constants
*/
/***
Error constants.
Any constants not available in the underlying system will be `nil` valued.
If you find one of the luaposix APIs returns an error code not listed here,
please raise an issue [here](http://github.com/luaposix/luaposixissues), stating
the symbolic name of the constant (from `/usr/include/errno.h` or equivalent).
@table posix.errno
@int E2BIG argument list too long
@int EACCES permission denied
@int EADDRINUSE address already in use
@int EADDRNOTAVAIL can't assign requested address
@int EAFNOSUPPORT address family not supported by protocol family
@int EAGAIN resource temporarily unavailable
@int EALREADY operation already in progress
@int EBADF bad file descriptor
@int EBADMSG bad message
@int EBUSY resource busy
@int ECANCELED operation canceled
@int ECHILD no child processes
@int ECONNABORTED software caused connection abort
@int ECONNREFUSED connection refused
@int ECONNRESET connection reset by peer
@int EDEADLK resource deadlock avoided
@int EDESTADDRREQ destination address required
@int EDOM numerical argument out of domain
@int EEXIST file exists
@int EFAULT bad address
@int EFBIG file too large
@int EHOSTUNREACH no route to host
@int EIDRM identifier removed
@int EILSEQ illegal byte sequence
@int EINPROGRESS operation now in progress
@int EINTR interrupted system call
@int EINVAL invalid argument
@int EIO input/output error
@int EISCONN socket is already connected
@int EISDIR is a directory
@int ELOOP too many levels of symbolic links
@int EMFILE too many open files
@int EMLINK too many links
@int EMSGSIZE message too long
@int ENAMETOOLONG file name too long
@int ENETDOWN network is down
@int ENETRESET network dropped connection on reset
@int ENETUNREACH network is unreachable
@int ENFILE too many open files in system
@int ENOBUFS no buffer space available
@int ENODEV operation not supported by device
@int ENOENT no such file or directory
@int ENOEXEC exec format error
@int ENOLCK no locks available
@int ENOMEM cannot allocate memory
@int ENOMSG no message of desired type
@int ENOPROTOOPT protocol not available
@int ENOSPC no space left on device
@int ENOSYS function not implemented
@int ENOTCONN socket is not connected
@int ENOTDIR not a directory
@int ENOTEMPTY directory not empty
@int ENOTSOCK socket operation on non-socket
@int ENOTSUP operation not supported
@int ENOTTY inappropriate ioctl for device
@int ENXIO device not configured
@int EOPNOTSUPP operation not supported on socket
@int EOVERFLOW value too large to be stored in data type
@int EPERM operation not permitted
@int EPIPE broken pipe
@int EPROTO protocol error
@int EPROTONOSUPPORT protocol not supported
@int EPROTOTYPE protocol wrong type for socket
@int ERANGE result too large
@int EROFS read-only file system
@int ESPIPE illegal seek
@int ESRCH no such process
@int ETIMEDOUT operation timed out
@int ETXTBSY text file busy
@int EWOULDBLOCK operation would block
@int EXDEV cross-device link
@usage
-- Print errno constants supported on this host.
for name, value in pairs (require "posix.errno") do
if type (value) == "number" then
print (name, value)
end
end
*/
LUALIB_API int
luaopen_posix_errno(lua_State *L)
{
luaL_register(L, "posix.errno", posix_errno_fns);
lua_pushliteral(L, "posix.errno for " LUA_VERSION " / " PACKAGE_STRING);
lua_setfield(L, -2, "version");
#ifdef E2BIG
LPOSIX_CONST( E2BIG );
#endif
#ifdef EACCES
LPOSIX_CONST( EACCES );
#endif
#ifdef EADDRINUSE
LPOSIX_CONST( EADDRINUSE );
#endif
#ifdef EADDRNOTAVAIL
LPOSIX_CONST( EADDRNOTAVAIL );
#endif
#ifdef EAFNOSUPPORT
LPOSIX_CONST( EAFNOSUPPORT );
#endif
#ifdef EAGAIN
LPOSIX_CONST( EAGAIN );
#endif
#ifdef EALREADY
LPOSIX_CONST( EALREADY );
#endif
#ifdef EBADF
LPOSIX_CONST( EBADF );
#endif
#ifdef EBADMSG
LPOSIX_CONST( EBADMSG );
#endif
#ifdef EBUSY
LPOSIX_CONST( EBUSY );
#endif
#ifdef ECANCELED
LPOSIX_CONST( ECANCELED );
#endif
#ifdef ECHILD
LPOSIX_CONST( ECHILD );
#endif
#ifdef ECONNABORTED
LPOSIX_CONST( ECONNABORTED );
#endif
#ifdef ECONNREFUSED
LPOSIX_CONST( ECONNREFUSED );
#endif
#ifdef ECONNRESET
LPOSIX_CONST( ECONNRESET );
#endif
#ifdef EDEADLK
LPOSIX_CONST( EDEADLK );
#endif
#ifdef EDESTADDRREQ
LPOSIX_CONST( EDESTADDRREQ );
#endif
#ifdef EDOM
LPOSIX_CONST( EDOM );
#endif
#ifdef EEXIST
LPOSIX_CONST( EEXIST );
#endif
#ifdef EFAULT
LPOSIX_CONST( EFAULT );
#endif
#ifdef EFBIG
LPOSIX_CONST( EFBIG );
#endif
#ifdef EHOSTUNREACH
LPOSIX_CONST( EHOSTUNREACH );
#endif
#ifdef EIDRM
LPOSIX_CONST( EIDRM );
#endif
#ifdef EILSEQ
LPOSIX_CONST( EILSEQ );
#endif
#ifdef EINPROGRESS
LPOSIX_CONST( EINPROGRESS );
#endif
#ifdef EINTR
LPOSIX_CONST( EINTR );
#endif
#ifdef EINVAL
LPOSIX_CONST( EINVAL );
#endif
#ifdef EIO
LPOSIX_CONST( EIO );
#endif
#ifdef EISCONN
LPOSIX_CONST( EISCONN );
#endif
#ifdef EISDIR
LPOSIX_CONST( EISDIR );
#endif
#ifdef ELOOP
LPOSIX_CONST( ELOOP );
#endif
#ifdef EMFILE
LPOSIX_CONST( EMFILE );
#endif
#ifdef EMLINK
LPOSIX_CONST( EMLINK );
#endif
#ifdef EMSGSIZE
LPOSIX_CONST( EMSGSIZE );
#endif
#ifdef ENAMETOOLONG
LPOSIX_CONST( ENAMETOOLONG );
#endif
#ifdef ENETDOWN
LPOSIX_CONST( ENETDOWN );
#endif
#ifdef ENETRESET
LPOSIX_CONST( ENETRESET );
#endif
#ifdef ENETUNREACH
LPOSIX_CONST( ENETUNREACH );
#endif
#ifdef ENFILE
LPOSIX_CONST( ENFILE );
#endif
#ifdef ENOBUFS
LPOSIX_CONST( ENOBUFS );
#endif
#ifdef ENODEV
LPOSIX_CONST( ENODEV );
#endif
#ifdef ENOENT
LPOSIX_CONST( ENOENT );
#endif
#ifdef ENOEXEC
LPOSIX_CONST( ENOEXEC );
#endif
#ifdef ENOLCK
LPOSIX_CONST( ENOLCK );
#endif
#ifdef ENOMEM
LPOSIX_CONST( ENOMEM );
#endif
#ifdef ENOMSG
LPOSIX_CONST( ENOMSG );
#endif
#ifdef ENOPROTOOPT
LPOSIX_CONST( ENOPROTOOPT );
#endif
#ifdef ENOSPC
LPOSIX_CONST( ENOSPC );
#endif
#ifdef ENOSYS
LPOSIX_CONST( ENOSYS );
#endif
#ifdef ENOTCONN
LPOSIX_CONST( ENOTCONN );
#endif
#ifdef ENOTDIR
LPOSIX_CONST( ENOTDIR );
#endif
#ifdef ENOTEMPTY
LPOSIX_CONST( ENOTEMPTY );
#endif
#ifdef ENOTSOCK
LPOSIX_CONST( ENOTSOCK );
#endif
#ifdef ENOTSUP
LPOSIX_CONST( ENOTSUP );
#endif
#ifdef ENOTTY
LPOSIX_CONST( ENOTTY );
#endif
#ifdef ENXIO
LPOSIX_CONST( ENXIO );
#endif
#ifdef EOPNOTSUPP
LPOSIX_CONST( EOPNOTSUPP );
#endif
#ifdef EOVERFLOW
LPOSIX_CONST( EOVERFLOW );
#endif
#ifdef EPERM
LPOSIX_CONST( EPERM );
#endif
#ifdef EPIPE
LPOSIX_CONST( EPIPE );
#endif
#ifdef EPROTO
LPOSIX_CONST( EPROTO );
#endif
#ifdef EPROTONOSUPPORT
LPOSIX_CONST( EPROTONOSUPPORT );
#endif
#ifdef EPROTOTYPE
LPOSIX_CONST( EPROTOTYPE );
#endif
#ifdef ERANGE
LPOSIX_CONST( ERANGE );
#endif
#ifdef EROFS
LPOSIX_CONST( EROFS );
#endif
#ifdef ESPIPE
LPOSIX_CONST( ESPIPE );
#endif
#ifdef ESRCH
LPOSIX_CONST( ESRCH );
#endif
#ifdef ETIMEDOUT
LPOSIX_CONST( ETIMEDOUT );
#endif
#ifdef ETXTBSY
LPOSIX_CONST( ETXTBSY );
#endif
#ifdef EWOULDBLOCK
LPOSIX_CONST( EWOULDBLOCK );
#endif
#ifdef EXDEV
LPOSIX_CONST( EXDEV );
#endif
return 1;
}