void FalseClass::initialize()
{
method<Value, &rb_xor>(context->false_class, "^");
method<&to_s>(context->false_class, "to_s");
set_const(context->object_class, Symbol::get("FALSE"), value_false);
};
Object* Module::const_set(STATE, Object* name, Object* value) {
set_const(state, name, value);
return value;
}
void Module::set_const(STATE, const char* name, Object* val) {
set_const(state, state->symbol(name), val);
}
void Module::set_const(STATE, std::string name, Object* val) {
set_const(state, state->symbol(name), val);
}
void SGMatrix<complex128_t>::zero()
{
if (matrix && (int64_t(num_rows)*num_cols))
set_const(complex128_t(0.0));
}
void SGMatrix<T>::zero()
{
if (matrix && (int64_t(num_rows)*num_cols))
set_const(0);
}
void SGVector<complex128_t>::zero()
{
if (vector && vlen)
set_const(complex128_t(0.0));
}
LUALIB_API int luaopen_posix (lua_State *L)
{
luaL_register(L, MYNAME, R);
lua_pushliteral(L, MYVERSION);
lua_setfield(L, -2, "version");
/* stdio.h constants */
/* Those that are omitted already have a Lua interface, or alternative. */
set_const("_IOFBF", _IOFBF);
set_const("_IOLBF", _IOLBF);
set_const("_IONBF", _IONBF);
set_const("BUFSIZ", BUFSIZ);
set_const("EOF", EOF);
set_const("FOPEN_MAX", FOPEN_MAX);
set_const("FILENAME_MAX", FILENAME_MAX);
/* errno values */
set_const("E2BIG", E2BIG);
set_const("EACCES", EACCES);
set_const("EADDRINUSE", EADDRINUSE);
set_const("EADDRNOTAVAIL", EADDRNOTAVAIL);
set_const("EAFNOSUPPORT", EAFNOSUPPORT);
set_const("EAGAIN", EAGAIN);
set_const("EALREADY", EALREADY);
set_const("EBADF", EBADF);
set_const("EBADMSG", EBADMSG);
set_const("EBUSY", EBUSY);
set_const("ECANCELED", ECANCELED);
set_const("ECHILD", ECHILD);
set_const("ECONNABORTED", ECONNABORTED);
set_const("ECONNREFUSED", ECONNREFUSED);
set_const("ECONNRESET", ECONNRESET);
set_const("EDEADLK", EDEADLK);
set_const("EDESTADDRREQ", EDESTADDRREQ);
set_const("EDOM", EDOM);
set_const("EEXIST", EEXIST);
set_const("EFAULT", EFAULT);
set_const("EFBIG", EFBIG);
set_const("EHOSTUNREACH", EHOSTUNREACH);
set_const("EIDRM", EIDRM);
set_const("EILSEQ", EILSEQ);
set_const("EINPROGRESS", EINPROGRESS);
set_const("EINTR", EINTR);
set_const("EINVAL", EINVAL);
set_const("EIO", EIO);
set_const("EISCONN", EISCONN);
set_const("EISDIR", EISDIR);
set_const("ELOOP", ELOOP);
set_const("EMFILE", EMFILE);
set_const("EMLINK", EMLINK);
set_const("EMSGSIZE", EMSGSIZE);
set_const("ENAMETOOLONG", ENAMETOOLONG);
set_const("ENETDOWN", ENETDOWN);
set_const("ENETRESET", ENETRESET);
set_const("ENETUNREACH", ENETUNREACH);
set_const("ENFILE", ENFILE);
set_const("ENOBUFS", ENOBUFS);
set_const("ENODATA", ENODATA);
set_const("ENODEV", ENODEV);
set_const("ENOENT", ENOENT);
set_const("ENOEXEC", ENOEXEC);
set_const("ENOLCK", ENOLCK);
set_const("ENOMEM", ENOMEM);
set_const("ENOMSG", ENOMSG);
set_const("ENOPROTOOPT", ENOPROTOOPT);
set_const("ENOSPC", ENOSPC);
set_const("ENOSR", ENOSR);
set_const("ENOSTR", ENOSTR);
set_const("ENOSYS", ENOSYS);
set_const("ENOTCONN", ENOTCONN);
set_const("ENOTDIR", ENOTDIR);
set_const("ENOTEMPTY", ENOTEMPTY);
set_const("ENOTSOCK", ENOTSOCK);
set_const("ENOTSUP", ENOTSUP);
set_const("ENOTTY", ENOTTY);
set_const("ENXIO", ENXIO);
set_const("EOPNOTSUPP", EOPNOTSUPP);
set_const("EOVERFLOW", EOVERFLOW);
set_const("EPERM", EPERM);
set_const("EPIPE", EPIPE);
set_const("EPROTO", EPROTO);
set_const("EPROTONOSUPPORT", EPROTONOSUPPORT);
set_const("EPROTOTYPE", EPROTOTYPE);
set_const("ERANGE", ERANGE);
set_const("EROFS", EROFS);
set_const("ESPIPE", ESPIPE);
set_const("ESRCH", ESRCH);
set_const("ETIME", ETIME);
set_const("ETIMEDOUT", ETIMEDOUT);
set_const("ETXTBSY", ETXTBSY);
set_const("EWOULDBLOCK", EWOULDBLOCK);
set_const("EXDEV", EXDEV);
/* Signals */
set_const("SIGABRT", SIGABRT);
set_const("SIGALRM", SIGALRM);
set_const("SIGBUS", SIGBUS);
set_const("SIGCHLD", SIGCHLD);
set_const("SIGCONT", SIGCONT);
set_const("SIGFPE", SIGFPE);
set_const("SIGHUP", SIGHUP);
set_const("SIGILL", SIGILL);
set_const("SIGINT", SIGINT);
set_const("SIGKILL", SIGKILL);
set_const("SIGPIPE", SIGPIPE);
set_const("SIGQUIT", SIGQUIT);
set_const("SIGSEGV", SIGSEGV);
set_const("SIGSTOP", SIGSTOP);
set_const("SIGTERM", SIGTERM);
set_const("SIGTSTP", SIGTSTP);
set_const("SIGTTIN", SIGTTIN);
set_const("SIGTTOU", SIGTTOU);
set_const("SIGUSR1", SIGUSR1);
set_const("SIGUSR2", SIGUSR2);
set_const("SIGPOLL", SIGPOLL);
set_const("SIGPROF", SIGPROF);
set_const("SIGSYS", SIGSYS);
set_const("SIGTRAP", SIGTRAP);
set_const("SIGURG", SIGURG );
set_const("SIGVTALRM", SIGVTALRM);
set_const("SIGXCPU", SIGXCPU);
set_const("SIGXFSZ", SIGXFSZ);
#if _POSIX_VERSION >= 200112L
set_const("LOG_AUTH", LOG_AUTH);
set_const("LOG_AUTHPRIV", LOG_AUTHPRIV);
set_const("LOG_CRON", LOG_CRON);
set_const("LOG_DAEMON", LOG_DAEMON);
set_const("LOG_FTP", LOG_FTP);
set_const("LOG_KERN", LOG_KERN);
set_const("LOG_LOCAL0", LOG_LOCAL0);
set_const("LOG_LOCAL1", LOG_LOCAL1);
set_const("LOG_LOCAL2", LOG_LOCAL2);
set_const("LOG_LOCAL3", LOG_LOCAL3);
set_const("LOG_LOCAL4", LOG_LOCAL4);
set_const("LOG_LOCAL5", LOG_LOCAL5);
set_const("LOG_LOCAL6", LOG_LOCAL6);
set_const("LOG_LOCAL7", LOG_LOCAL7);
set_const("LOG_LPR", LOG_LPR);
set_const("LOG_MAIL", LOG_MAIL);
set_const("LOG_NEWS", LOG_NEWS);
set_const("LOG_SYSLOG", LOG_SYSLOG);
set_const("LOG_USER", LOG_USER);
set_const("LOG_UUCP", LOG_UUCP);
set_const("LOG_EMERG", LOG_EMERG);
set_const("LOG_ALERT", LOG_ALERT);
set_const("LOG_CRIT", LOG_CRIT);
set_const("LOG_ERR", LOG_ERR);
set_const("LOG_WARNING", LOG_WARNING);
set_const("LOG_NOTICE", LOG_NOTICE);
set_const("LOG_INFO", LOG_INFO);
set_const("LOG_DEBUG", LOG_DEBUG);
#endif
/* Signals table */
lua_newtable(L); /* Signals table */
/* Signals table's metatable */
lua_newtable(L);
lua_pushcfunction(L, sig_action);
lua_setfield(L, -2, "__newindex");
lua_setmetatable(L, -2);
/* Take a copy of the signals table to use in sig_action */
lua_pushlightuserdata(L, &signalL);
lua_pushvalue(L, -2);
lua_rawset(L, LUA_REGISTRYINDEX);
signalL = L; /* For sig_postpone */
/* Register signals table */
lua_setfield(L, -2, "signal");
return 1;
}
void SGVector<T>::zero()
{
if (vector && vlen)
set_const(0);
}
void SGMatrix<T>::zero()
{
if (matrix && (num_rows*num_cols))
set_const(0);
}
template<typename T> void set_const(value_t obj, T &&name, value_t value)
{
return set_const(obj, symbol_cast(std::forward<T>(name)), value);
}
void SGVector<complex128_t>::zero()
{
assert_on_cpu();
if (vector && vlen)
set_const(complex128_t(0.0));
}
void SGVector<T>::zero()
{
assert_on_cpu();
if (vector && vlen)
set_const(0);
}