errno.c

/*********************************************************************
*
* Copyright 2010 by Sean Conner.  All Rights Reserved.
*
* This library is free software; you can redistribute it and/or modify it
* under the terms of the GNU Lesser General Public License as published by
* the Free Software Foundation; either version 3 of the License, or (at your
* option) any later version.
*
* This library 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 Lesser General Public
* License for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with this library; if not, see <http://www.gnu.org/licenses/>.
*
* Comments, questions and criticisms can be sent to: sean@conman.org
*
* ---------------------------------------------------------------------
*
* This module is nothing more than an array of error values (as found in
* errno.h).
*
        -- get the numeric value of EDOM
        err = org.conman.errno.EDOM
        
        -- print the human readable explaination for err
        print(org.conman.errno[err])
        
*
*********************************************************************/

#include <string.h>
#include <errno.h>

#include <lua.h>
#include <lauxlib.h>

#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
#  error You need to compile against Lua 5.1 or higher
#endif

/***************************************************************************/

struct strint
{
  char const *const text;
  int  const        value;
};

/***************************************************************************/

static struct strint const m_errors[] =
{
  { "EDOM"   , EDOM   } ,
  { "ERANGE" , ERANGE } ,
  
#ifdef __STDC_VERSION__
#  if __STDC_VERSION__ >= 199901L
  { "EILSEQ" , EILSEQ } ,
#  endif
#elif defined(EILSEQ)
  { "EILSEQ" , EILSEQ },
#endif

#ifdef EACCES
  { "EACCES" , EACCES } ,
#endif

#ifdef EADDRINUSE
  { "EADDRINUSE" , EADDRINUSE } ,
#endif

#ifdef EADDRNOTAVAIL
  { "EADDRNOTAVAIL" , EADDRNOTAVAIL } ,
#endif

#ifdef EADV
  { "EADV" , EADV } ,
#endif

#ifdef EAFNOSUPPORT
  { "EAFNOSUPPORT" , EAFNOSUPPORT } ,
#endif

#ifdef EAGAIN
  { "EAGAIN" , EAGAIN } ,
#endif

#ifdef EALREADY
  { "EALREADY" , EALREADY } ,
#endif

#ifdef EBADE
  { "EBADE" , EBADE } ,
#endif

#ifdef EBADF
  { "EBADF" , EBADF } ,
#endif

#ifdef EBADFD
  { "EBADFD" , EBADFD } ,
#endif

#ifdef EBADMSG
  { "EBADMSG" , EBADMSG } ,
#endif

#ifdef EBADR
  { "EBADR" , EBADR } ,
#endif

#ifdef EBADRQC
  { "EBADRQC" , EBADRQC } ,
#endif

#ifdef EBADSLT
  { "EBADSLT" , EBADSLT } ,
#endif

#ifdef EBFONT
  { "EBFONT" , EBFONT } ,
#endif

#ifdef EBUSY
  { "EBUSY" , EBUSY } ,
#endif

#ifdef ECANCELED
  { "ECANCELED" , ECANCELED } ,
#endif

#ifdef ECHILD
  { "ECHILD" , ECHILD } ,
#endif

#ifdef ECHRNG
  { "ECHRNG" , ECHRNG } ,
#endif

#ifdef ECOMM
  { "ECOMM" , ECOMM } ,
#endif

#ifdef ECONNABORTED
  { "ECONNABORTED" , ECONNABORTED } ,
#endif

#ifdef ECONNREFUSED
  { "ECONNREFUSED" , ECONNREFUSED } ,
#endif

#ifdef ECONNRESET
  { "ECONNRESET" , ECONNRESET } ,
#endif

#ifdef EDEADLK
  { "EDEADLK" , EDEADLK } ,
#endif

#ifdef EDEADLOCK
  { "EDEADLOCK" , EDEADLOCK } ,
#endif

#ifdef EDESTADDRREQ
  { "EDESTADDRREQ" , EDESTADDRREQ } ,
#endif

#ifdef EDOTDOT
  { "EDOTDOT" , EDOTDOT } ,
#endif

#ifdef EDQUOT
  { "EDQUOT" , EDQUOT } ,
#endif

#ifdef EEXIST
  { "EEXIST" , EEXIST } ,
#endif

#ifdef EFAULT
  { "EFAULT" , EFAULT } ,
#endif

#ifdef EFBIG
  { "EFBIG" , EFBIG } ,
#endif

#ifdef EHOSTDOWN
  { "EHOSTDOWN" , EHOSTDOWN } ,
#endif

#ifdef EHOSTUNREACH
  { "EHOSTUNREACH" , EHOSTUNREACH } ,
#endif

#ifdef EIDRM
  { "EIDRM" , EIDRM } ,
#endif

#ifdef EINPROGRESS
  { "EINPROGRESS" , EINPROGRESS } ,
#endif

#ifdef EINTR
  { "EINTR" , EINTR } ,
#endif

#ifdef EINVAL
  { "EINVAL" , EINVAL } ,
#endif

#ifdef EIO
  { "EIO" , EIO } ,
#endif

#ifdef EISCONN
  { "EISCONN" , EISCONN } ,
#endif

#ifdef EISDIR
  { "EISDIR" , EISDIR } ,
#endif

#ifdef EISNAM
  { "EISNAM" , EISNAM } ,
#endif

#ifdef EKEYEXPIRED
  { "EKEYEXPIRED" , EKEYEXPIRED } ,
#endif

#ifdef EKEYREJECTED
  { "EKEYREJECTED" , EKEYREJECTED } ,
#endif

#ifdef EKEYREVOKED
  { "EKEYREVOKED" , EKEYREVOKED } ,
#endif

#ifdef ELIBACC
  { "ELIBACC" , ELIBACC } ,
#endif

#ifdef ELIBBAD
  { "ELIBBAD" , ELIBBAD } ,
#endif

#ifdef ELIBEXEC
  { "ELIBEXEC" , ELIBEXEC } ,
#endif

#ifdef ELIBMAX
  { "ELIBMAX" , ELIBMAX } ,
#endif

#ifdef ELIBSCN
  { "ELIBSCN" , ELIBSCN } ,
#endif

#ifdef ELNRNG
  { "ELNRNG" , ELNRNG } ,
#endif

#ifdef ELOOP
  { "ELOOP" , ELOOP } ,
#endif

#ifdef EMEDIUMTYPE
  { "EMEDIUMTYPE" , EMEDIUMTYPE } ,
#endif

#ifdef EMFILE
  { "EMFILE" , EMFILE } ,
#endif

#ifdef EMLINK
  { "EMLINK" , EMLINK } ,
#endif

#ifdef EMSGSIZE
  { "EMSGSIZE" , EMSGSIZE } ,
#endif

#ifdef EMULTIHOP
  { "EMULTIHOP" , EMULTIHOP } ,
#endif

#ifdef ENAMETOOLONG
  { "ENAMETOOLONG" , ENAMETOOLONG } ,
#endif

#ifdef ENAVAIL
  { "ENAVAIL" , ENAVAIL } ,
#endif

#ifdef ENETDOWN
  { "ENETDOWN" , ENETDOWN } ,
#endif

#ifdef ENETRESET
  { "ENETRESET" , ENETRESET } ,
#endif

#ifdef ENETUNREACH
  { "ENETUNREACH" , ENETUNREACH } ,
#endif

#ifdef ENFILE
  { "ENFILE" , ENFILE } ,
#endif

#ifdef ENOANO
  { "ENOANO" , ENOANO } ,
#endif

#ifdef ENOBUFS
  { "ENOBUFS" , ENOBUFS } ,
#endif

#ifdef ENOCSI
  { "ENOCSI" , ENOCSI } ,
#endif

#ifdef ENODATA
  { "ENODATA" , ENODATA } ,
#endif

#ifdef ENODEV
  { "ENODEV" , ENODEV } ,
#endif

#ifdef ENOENT
  { "ENOENT" , ENOENT } ,
#endif

#ifdef ENOEXEC
  { "ENOEXEC" , ENOEXEC } ,
#endif

#ifdef ENOKEY
  { "ENOKEY" , ENOKEY } ,
#endif

#ifdef ENOLCK
  { "ENOLCK" , ENOLCK } ,
#endif

#ifdef ENOLINK
  { "ENOLINK" , ENOLINK } ,
#endif

#ifdef ENOMEDIUM
  { "ENOMEDIUM" , ENOMEDIUM } ,
#endif

#ifdef ENOMEM
  { "ENOMEM" , ENOMEM } ,
#endif

#ifdef ENOMSG
  { "ENOMSG" , ENOMSG } ,
#endif

#ifdef ENONET
  { "ENONET" , ENONET } ,
#endif

#ifdef ENOPKG
  { "ENOPKG" , ENOPKG } ,
#endif

#ifdef ENOPROTOOPT
  { "ENOPROTOOPT" , ENOPROTOOPT } ,
#endif

#ifdef ENOSPC
  { "ENOSPC" , ENOSPC } ,
#endif

#ifdef ENOSR
  { "ENOSR" , ENOSR } ,
#endif

#ifdef ENOSTR
  { "ENOSTR" , ENOSTR } ,
#endif

#ifdef ENOSYS
  { "ENOSYS" , ENOSYS } ,
#endif

#ifdef ENOTBLK
  { "ENOTBLK" , ENOTBLK } ,
#endif

#ifdef ENOTCONN
  { "ENOTCONN" , ENOTCONN } ,
#endif

#ifdef ENOTDIR
  { "ENOTDIR" , ENOTDIR } ,
#endif

#ifdef ENOTEMPTY
  { "ENOTEMPTY" , ENOTEMPTY } ,
#endif

#ifdef ENOTNAM
  { "ENOTNAM" , ENOTNAM } ,
#endif

#ifdef ENOTSOCK
  { "ENOTSOCK" , ENOTSOCK } ,
#endif

#ifdef ENOTTY
  { "ENOTTY" , ENOTTY } ,
#endif

#ifdef ENOTUNIQ
  { "ENOTUNIQ" , ENOTUNIQ } ,
#endif

#ifdef ENXIO
  { "ENXIO" , ENXIO } ,
#endif

#ifdef EOPNOTSUPP
  { "EOPNOTSUPP" , EOPNOTSUPP } ,
#endif

#ifdef EOVERFLOW
  { "EOVERFLOW" , EOVERFLOW } ,
#endif

#ifdef EPERM
  { "EPERM" , EPERM } ,
#endif

#ifdef EPFNOSUPPORT
  { "EPFNOSUPPORT" , EPFNOSUPPORT } ,
#endif

#ifdef EPIPE
  { "EPIPE" , EPIPE } ,
#endif

#ifdef EPROTO
  { "EPROTO" , EPROTO } ,
#endif

#ifdef EPROTONOSUPPORT
  { "EPROTONOSUPPORT" , EPROTONOSUPPORT } ,
#endif

#ifdef EPROTOTYPE
  { "EPROTOTYPE" , EPROTOTYPE } ,
#endif

#ifdef EREMCHG
  { "EREMCHG" , EREMCHG } ,
#endif

#ifdef EREMOTE
  { "EREMOTE" , EREMOTE } ,
#endif

#ifdef EREMOTEIO
  { "EREMOTEIO" , EREMOTEIO } ,
#endif

#ifdef ERESTART
  { "ERESTART" , ERESTART } ,
#endif

#ifdef EROFS
  { "EROFS" , EROFS } ,
#endif

#ifdef ESHUTDOWN
  { "ESHUTDOWN" , ESHUTDOWN } ,
#endif

#ifdef ESOCKTNOSUPPORT
  { "ESOCKTNOSUPPORT" , ESOCKTNOSUPPORT } ,
#endif

#ifdef ESPIPE
  { "ESPIPE" , ESPIPE } ,
#endif

#ifdef ESRCH
  { "ESRCH" , ESRCH } ,
#endif

#ifdef ESRMNT
  { "ESRMNT" , ESRMNT } ,
#endif

#ifdef ESTALE
  { "ESTALE" , ESTALE } ,
#endif

#ifdef ESTRPIPE
  { "ESTRPIPE" , ESTRPIPE } ,
#endif

#ifdef ETIME
  { "ETIME" , ETIME } ,
#endif

#ifdef ETIMEDOUT
  { "ETIMEDOUT" , ETIMEDOUT } ,
#endif

#ifdef ETOOMANYREFS
  { "ETOOMANYREFS" , ETOOMANYREFS } ,
#endif

#ifdef ETXTBSY
  { "ETXTBSY" , ETXTBSY } ,
#endif

#ifdef EUCLEAN
  { "EUCLEAN" , EUCLEAN } ,
#endif

#ifdef EUNATCH
  { "EUNATCH" , EUNATCH } ,
#endif

#ifdef EUSERS
  { "EUSERS" , EUSERS } ,
#endif

#ifdef EXDEV
  { "EXDEV" , EXDEV } ,
#endif

#ifdef EXFULL
  { "EXFULL" , EXFULL } ,
#endif

#ifdef E2BIG
  { "E2BIG" , E2BIG } ,
#endif

#ifdef ENOTRECOVERABLE
  { "ENOTRECOVERABLE" , ENOTRECOVERABLE },
#endif

#ifdef ENOTSUP
  { "ENOTSUP" , ENOTSUP } ,
#endif

#ifdef EOWNERDEAD
  { "EOWNERDEAD" , EOWNERDEAD } ,
#endif

  { NULL , 0 }
};

/***************************************************************************/

static int errno___index(lua_State *L)
{
  lua_pushstring(L,strerror(luaL_checkinteger(L,2)));
  return 1;
}

/***********************************************************************/

int luaopen_org_conman_errno(lua_State *L)
{
  size_t i;
  
#if LUA_VERSION_NUM == 501
  static struct luaL_Reg const reg_errno[] =
  {
    { NULL , NULL }
  };

  luaL_register(L,"org.conman.errno",reg_errno);
#else
  lua_createtable(L,0,(sizeof(m_errors) / sizeof(struct strint)) - 1);
#endif

  for (i = 0 ; m_errors[i].text != NULL ; i++)
  {
    lua_pushinteger(L,m_errors[i].value);
    lua_setfield(L,-2,m_errors[i].text);
  }
  
  lua_createtable(L,0,1);
  lua_pushcfunction(L,errno___index);
  lua_setfield(L,-2,"__index");
  lua_setmetatable(L,-2);
  
  return 1;
}

/*************************************************************************/