1 /* $NetBSD: luasystm.c,v 1.5 2014/07/19 18:38:35 lneto Exp $ */ 2 3 /* 4 * Copyright (c) 2011, 2013 Marc Balmer <mbalmer@NetBSD.org>. 5 * All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. The name of the Author may not be used to endorse or promote products 16 * derived from this software without specific prior written permission. 17 * 18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 19 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 21 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 22 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 23 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 24 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 25 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 26 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 27 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 28 * SUCH DAMAGE. 29 */ 30 31 /* Lua systm module */ 32 33 #include <sys/param.h> 34 #include <sys/lua.h> 35 #include <sys/callout.h> 36 #include <sys/cpu.h> 37 #ifdef _MODULE 38 #include <sys/module.h> 39 #endif 40 #include <sys/systm.h> 41 42 #include <lua.h> 43 #include <lauxlib.h> 44 45 #ifdef _MODULE 46 MODULE(MODULE_CLASS_MISC, luasystm, "lua"); 47 48 /* Various printing functions */ 49 static int 50 print(lua_State *L) 51 { 52 const char *s; 53 54 s = lua_tostring(L, -1); 55 if (s) 56 printf("%s", s); 57 return 0; 58 } 59 60 static int 61 print_nolog(lua_State *L) 62 { 63 const char *s; 64 65 s = lua_tostring(L, -1); 66 if (s) 67 printf_nolog("%s", s); 68 return 0; 69 } 70 71 static int 72 uprint(lua_State *L) 73 { 74 const char *s; 75 76 s = lua_tostring(L, -1); 77 if (s) 78 uprintf("%s", s); 79 return 0; 80 } 81 82 static int 83 systm_aprint_normal(lua_State *L) 84 { 85 const char *s; 86 87 s = lua_tostring(L, -1); 88 if (s) 89 aprint_normal("%s", s); 90 return 0; 91 } 92 93 static int 94 systm_aprint_naive(lua_State *L) 95 { 96 const char *s; 97 98 s = lua_tostring(L, -1); 99 if (s) 100 aprint_naive("%s", s); 101 return 0; 102 } 103 104 static int 105 systm_aprint_verbose(lua_State *L) 106 { 107 const char *s; 108 109 s = lua_tostring(L, -1); 110 if (s) 111 aprint_verbose("%s", s); 112 return 0; 113 } 114 115 static int 116 systm_aprint_debug(lua_State *L) 117 { 118 const char *s; 119 120 s = lua_tostring(L, -1); 121 if (s) 122 aprint_debug("%s", s); 123 return 0; 124 } 125 126 static int 127 systm_aprint_error(lua_State *L) 128 { 129 const char *s; 130 131 s = lua_tostring(L, -1); 132 if (s) 133 aprint_error("%s", s); 134 return 0; 135 } 136 137 static int 138 systm_aprint_get_error_count(lua_State *L) 139 { 140 lua_pushinteger(L, aprint_get_error_count()); 141 return 1; 142 } 143 144 /* panicing */ 145 146 static int 147 systm_panic(lua_State *L) 148 { 149 const char *s; 150 151 s = lua_tostring(L, -1); 152 if (s) 153 panic("%s", s); 154 return 0; 155 } 156 157 /* callouts */ 158 159 /* mutexes */ 160 161 static int 162 luaopen_systm(lua_State *L) 163 { 164 const luaL_Reg systm_lib[ ] = { 165 { "print", print }, 166 { "print_nolog", print_nolog }, 167 { "uprint", uprint }, 168 { "aprint_normal", systm_aprint_normal }, 169 { "aprint_naive", systm_aprint_naive }, 170 { "aprint_verbose", systm_aprint_verbose }, 171 { "aprint_debug", systm_aprint_debug }, 172 { "aprint_error", systm_aprint_error }, 173 { "aprint_get_error_count", systm_aprint_get_error_count }, 174 175 /* panicing */ 176 { "panic", systm_panic }, 177 178 /* callouts */ 179 180 /* mutexes */ 181 182 {NULL, NULL} 183 }; 184 185 luaL_newlib(L, systm_lib); 186 187 /* some string values */ 188 lua_pushstring(L, copyright); 189 lua_setfield(L, -2, "copyright"); 190 lua_pushstring(L, cpu_getmodel()); 191 lua_setfield(L, -2, "cpu_model"); 192 lua_pushstring(L, machine); 193 lua_setfield(L, -2, "machine"); 194 lua_pushstring(L, machine_arch); 195 lua_setfield(L, -2, "machine_arch"); 196 lua_pushstring(L, osrelease); 197 lua_setfield(L, -2, "osrelease"); 198 lua_pushstring(L, ostype); 199 lua_setfield(L, -2, "ostype"); 200 lua_pushstring(L, kernel_ident); 201 lua_setfield(L, -2, "kernel_ident"); 202 lua_pushstring(L, version); 203 lua_setfield(L, -2, "version"); 204 205 /* some integer values */ 206 lua_pushinteger(L, ncpu); 207 lua_setfield(L, -2, "ncpu"); 208 209 return 1; 210 } 211 212 static int 213 luasystm_modcmd(modcmd_t cmd, void *opaque) 214 { 215 int error; 216 217 switch (cmd) { 218 case MODULE_CMD_INIT: 219 error = klua_mod_register("systm", luaopen_systm); 220 break; 221 case MODULE_CMD_FINI: 222 error = klua_mod_unregister("systm"); 223 break; 224 default: 225 error = ENOTTY; 226 } 227 return error; 228 } 229 #endif 230