diff options
| author | lneto <lneto@NetBSD.org> | 2013-12-16 23:54:26 +0000 |
|---|---|---|
| committer | lneto <lneto@NetBSD.org> | 2013-12-16 23:54:26 +0000 |
| commit | ee9de47dd36dbcf052bfd4a03663d9af69e00ff6 (patch) | |
| tree | 167989695613dd84c4daab5db6860f22d389cc78 /sys/modules | |
| parent | 80c8ccad5707bb0709a3fb6263e6abe3e4f497ea (diff) | |
renamed luacore to luasystm
Diffstat (limited to 'sys/modules')
| -rw-r--r-- | sys/modules/Makefile | 4 | ||||
| -rw-r--r-- | sys/modules/luacore/Makefile | 11 | ||||
| -rw-r--r-- | sys/modules/luacore/luacore.c | 231 | ||||
| -rw-r--r-- | sys/modules/luacore/test.lua | 4 |
4 files changed, 2 insertions, 248 deletions
diff --git a/sys/modules/Makefile b/sys/modules/Makefile index 55e271c5902..e961595b1c4 100644 --- a/sys/modules/Makefile +++ b/sys/modules/Makefile @@ -1,4 +1,4 @@ -# $NetBSD: Makefile,v 1.127 2013/11/18 16:23:47 bad Exp $ +# $NetBSD: Makefile,v 1.128 2013/12/16 23:54:26 lneto Exp $ .include <bsd.own.mk> @@ -40,7 +40,7 @@ SUBDIR+= kernfs SUBDIR+= layerfs SUBDIR+= lfs SUBDIR+= lua -SUBDIR+= luacore +SUBDIR+= luasystm SUBDIR+= luapmf SUBDIR+= mfs SUBDIR+= miiverbose diff --git a/sys/modules/luacore/Makefile b/sys/modules/luacore/Makefile deleted file mode 100644 index 8339bb42386..00000000000 --- a/sys/modules/luacore/Makefile +++ /dev/null @@ -1,11 +0,0 @@ -# $NetBSD: Makefile,v 1.1 2013/10/16 19:47:19 mbalmer Exp $ - -.include "../Makefile.inc" - -KMOD= luacore -SRCS= luacore.c - -CPPFLAGS+= -I${S}/../external/mit/lua/dist/src \ - -I${S}/modules/lua - -.include <bsd.kmodule.mk> diff --git a/sys/modules/luacore/luacore.c b/sys/modules/luacore/luacore.c deleted file mode 100644 index 36a0ab160b6..00000000000 --- a/sys/modules/luacore/luacore.c +++ /dev/null @@ -1,231 +0,0 @@ -/* $NetBSD: luacore.c,v 1.5 2013/12/02 05:06:32 lneto Exp $ */ - -/* - * Copyright (c) 2011, 2013 Marc Balmer <mbalmer@NetBSD.org>. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. The name of the Author may not be used to endorse or promote products - * derived from this software without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ - -/* Lua core kernel services module */ - -#include <sys/param.h> -#include <sys/lua.h> -#include <sys/callout.h> -#ifdef _MODULE -#include <sys/module.h> -#endif -#include <sys/systm.h> - -#include <lua.h> -#include <lauxlib.h> - -#ifdef _MODULE -MODULE(MODULE_CLASS_MISC, luacore, "lua"); - -/* Various printing functions */ -static int -print(lua_State *L) -{ - const char *s; - - s = lua_tostring(L, -1); - if (s) - printf("%s", s); - return 0; -} - -static int -print_nolog(lua_State *L) -{ - const char *s; - - s = lua_tostring(L, -1); - if (s) - printf_nolog("%s", s); - return 0; -} - -static int -uprint(lua_State *L) -{ - const char *s; - - s = lua_tostring(L, -1); - if (s) - uprintf("%s", s); - return 0; -} - -static int -core_aprint_normal(lua_State *L) -{ - const char *s; - - s = lua_tostring(L, -1); - if (s) - aprint_normal("%s", s); - return 0; -} - -static int -core_aprint_naive(lua_State *L) -{ - const char *s; - - s = lua_tostring(L, -1); - if (s) - aprint_naive("%s", s); - return 0; -} - -static int -core_aprint_verbose(lua_State *L) -{ - const char *s; - - s = lua_tostring(L, -1); - if (s) - aprint_verbose("%s", s); - return 0; -} - -static int -core_aprint_debug(lua_State *L) -{ - const char *s; - - s = lua_tostring(L, -1); - if (s) - aprint_debug("%s", s); - return 0; -} - -static int -core_aprint_error(lua_State *L) -{ - const char *s; - - s = lua_tostring(L, -1); - if (s) - aprint_error("%s", s); - return 0; -} - -static int -core_aprint_get_error_count(lua_State *L) -{ - lua_pushinteger(L, aprint_get_error_count()); - return 1; -} - -/* panicing */ - -static int -core_panic(lua_State *L) -{ - const char *s; - - s = lua_tostring(L, -1); - if (s) - panic("%s", s); - return 0; -} - -/* callouts */ - -/* mutexes */ - -static const luaL_Reg core_lib[ ] = { - { "print", print }, - { "print_nolog", print_nolog }, - { "uprint", uprint }, - { "aprint_normal", core_aprint_normal }, - { "aprint_naive", core_aprint_naive }, - { "aprint_verbose", core_aprint_verbose }, - { "aprint_debug", core_aprint_debug }, - { "aprint_error", core_aprint_error }, - { "aprint_get_error_count", core_aprint_get_error_count }, - - /* panicing */ - { "panic", core_panic }, - - /* callouts */ - - /* mutexes */ - - {NULL, NULL} -}; - - -static int -luaopen_core(void *ls) -{ - lua_State *L = (lua_State *)ls; - - luaL_register(L, "core", core_lib); - - /* some string values */ - lua_pushstring(L, copyright); - lua_setfield(L, -2, "copyright"); - lua_pushstring(L, cpu_model); - lua_setfield(L, -2, "cpu_model"); - lua_pushstring(L, machine); - lua_setfield(L, -2, "machine"); - lua_pushstring(L, machine_arch); - lua_setfield(L, -2, "machine_arch"); - lua_pushstring(L, osrelease); - lua_setfield(L, -2, "osrelease"); - lua_pushstring(L, ostype); - lua_setfield(L, -2, "ostype"); - lua_pushstring(L, kernel_ident); - lua_setfield(L, -2, "kernel_ident"); - lua_pushstring(L, version); - lua_setfield(L, -2, "version"); - - /* some integer values */ - lua_pushinteger(L, ncpu); - lua_setfield(L, -2, "ncpu"); - - return 1; -} - -static int -luacore_modcmd(modcmd_t cmd, void *opaque) -{ - int error; - - switch (cmd) { - case MODULE_CMD_INIT: - error = lua_mod_register("core", luaopen_core); - break; - case MODULE_CMD_FINI: - error = lua_mod_unregister("core"); - break; - default: - error = ENOTTY; - } - return error; -} -#endif diff --git a/sys/modules/luacore/test.lua b/sys/modules/luacore/test.lua deleted file mode 100644 index 3655ac190e3..00000000000 --- a/sys/modules/luacore/test.lua +++ /dev/null @@ -1,4 +0,0 @@ -require 'core' - -core.print("hello, kernel world!\n") - |
