com32/lua/src/dmi.c

   1 #include <stdlib.h>
   2 #include <string.h>
   3
   4 #define ldmilib_c       /* Define the library */
   5
   6 /* Include the Lua API header files */
   7 #include "lua.h"
   8 #include "lauxlib.h"
   9 #include "lualib.h"
  10 #include "dmi/dmi.h"
  11
  12 static int dmi_gettable(lua_State *L)
  13 {
  14   s_dmi dmi;
  15
  16   lua_newtable(L);
  17
  18   if ( ! dmi_iterate(&dmi) ) {
  19           printf("No DMI Structure found\n");
  20           return -1;
  21   }
  22
  23   parse_dmitable(&dmi);
  24
  25   /* bios */
  26   lua_pushstring(L, "bios.vendor");
  27   lua_pushstring(L, dmi.bios.vendor);
  28   lua_settable(L,-3);
  29
  30   lua_pushstring(L, "bios.version");
  31   lua_pushstring(L, dmi.bios.version);
  32   lua_settable(L,-3);
  33
  34   lua_pushstring(L, "bios.release_date");
  35   lua_pushstring(L, dmi.bios.release_date);
  36   lua_settable(L,-3);
  37
  38   lua_pushstring(L, "bios.bios_revision");
  39   lua_pushstring(L, dmi.bios.bios_revision);
  40   lua_settable(L,-3);
  41
  42   lua_pushstring(L, "bios.firmware_revision");
  43   lua_pushstring(L, dmi.bios.firmware_revision);
  44   lua_settable(L,-3);
  45
  46   lua_pushstring(L, "bios.address");
  47   lua_pushnumber(L, dmi.bios.address);
  48   lua_settable(L,-3);
  49
  50   lua_pushstring(L, "bios.runtime_size");
  51   lua_pushnumber(L, dmi.bios.runtime_size);
  52   lua_settable(L,-3);
  53
  54   lua_pushstring(L, "bios.runtime_size_unit");
  55   lua_pushstring(L, dmi.bios.runtime_size_unit);
  56   lua_settable(L,-3);
  57
  58   lua_pushstring(L, "bios.rom_size");
  59   lua_pushnumber(L, dmi.bios.rom_size);
  60   lua_settable(L,-3);
  61
  62   lua_pushstring(L, "bios.rom_size_unit");
  63   lua_pushstring(L, dmi.bios.rom_size_unit);
  64   lua_settable(L,-3);
  65
  66   /* system */
  67   lua_pushstring(L, "system.manufacturer");
  68   lua_pushstring(L, dmi.system.manufacturer);
  69   lua_settable(L,-3);
  70
  71   lua_pushstring(L, "system.product_name");
  72   lua_pushstring(L, dmi.system.product_name);
  73   lua_settable(L,-3);
  74
  75   lua_pushstring(L, "system.version");
  76   lua_pushstring(L, dmi.system.version);
  77   lua_settable(L,-3);
  78
  79   lua_pushstring(L, "system.serial");
  80   lua_pushstring(L, dmi.system.serial);
  81   lua_settable(L,-3);
  82
  83   lua_pushstring(L, "system.uuid");
  84   lua_pushstring(L, dmi.system.uuid);
  85   lua_settable(L,-3);
  86
  87   lua_pushstring(L, "system.wakeup_type");
  88   lua_pushstring(L, dmi.system.wakeup_type);
  89   lua_settable(L,-3);
  90
  91   lua_pushstring(L, "system.sku_number");
  92   lua_pushstring(L, dmi.system.sku_number);
  93   lua_settable(L,-3);
  94
  95   lua_pushstring(L, "system.family");
  96   lua_pushstring(L, dmi.system.family);
  97   lua_settable(L,-3);
  98
  99   /* base_board */
 100   lua_pushstring(L, "base_board.manufacturer");
 101   lua_pushstring(L, dmi.base_board.manufacturer);
 102   lua_settable(L,-3);
 103
 104   lua_pushstring(L, "base_board.product_name");
 105   lua_pushstring(L, dmi.base_board.product_name);
 106   lua_settable(L,-3);
 107
 108   lua_pushstring(L, "base_board.version");
 109   lua_pushstring(L, dmi.base_board.version);
 110   lua_settable(L,-3);
 111
 112   lua_pushstring(L, "base_board.serial");
 113   lua_pushstring(L, dmi.base_board.serial);
 114   lua_settable(L,-3);
 115
 116   lua_pushstring(L, "base_board.asset_tag");
 117   lua_pushstring(L, dmi.base_board.asset_tag);
 118   lua_settable(L,-3);
 119
 120   lua_pushstring(L, "base_board.location");
 121   lua_pushstring(L, dmi.base_board.location);
 122   lua_settable(L,-3);
 123
 124   lua_pushstring(L, "base_board.type");
 125   lua_pushstring(L, dmi.base_board.type);
 126   lua_settable(L,-3);
 127
 128   /* chassis */
 129   lua_pushstring(L, "chassis.manufacturer");
 130   lua_pushstring(L, dmi.chassis.manufacturer);
 131   lua_settable(L,-3);
 132
 133   lua_pushstring(L, "chassis.type");
 134   lua_pushstring(L, dmi.chassis.type);
 135   lua_settable(L,-3);
 136
 137   lua_pushstring(L, "chassis.lock");
 138   lua_pushstring(L, dmi.chassis.lock);
 139   lua_settable(L,-3);
 140
 141   lua_pushstring(L, "chassis.version");
 142   lua_pushstring(L, dmi.chassis.version);
 143   lua_settable(L,-3);
 144
 145   lua_pushstring(L, "chassis.serial");
 146   lua_pushstring(L, dmi.chassis.serial);
 147   lua_settable(L,-3);
 148
 149   lua_pushstring(L, "chassis.asset_tag");
 150   lua_pushstring(L, dmi.chassis.asset_tag);
 151   lua_settable(L,-3);
 152
 153   lua_pushstring(L, "chassis.boot_up_state");
 154   lua_pushstring(L, dmi.chassis.boot_up_state);
 155   lua_settable(L,-3);
 156
 157   lua_pushstring(L, "chassis.power_supply_state");
 158   lua_pushstring(L, dmi.chassis.power_supply_state);
 159   lua_settable(L,-3);
 160
 161   lua_pushstring(L, "chassis.thermal_state");
 162   lua_pushstring(L, dmi.chassis.thermal_state);
 163   lua_settable(L,-3);
 164
 165   lua_pushstring(L, "chassis.security_status");
 166   lua_pushstring(L, dmi.chassis.security_status);
 167   lua_settable(L,-3);
 168
 169   lua_pushstring(L, "chassis.oem_information");
 170   lua_pushstring(L, dmi.chassis.oem_information);
 171   lua_settable(L,-3);
 172
 173   lua_pushstring(L, "chassis.height");
 174   lua_pushnumber(L, dmi.chassis.height);
 175   lua_settable(L,-3);
 176
 177   lua_pushstring(L, "chassis.nb_power_cords");
 178   lua_pushnumber(L, dmi.chassis.nb_power_cords);
 179   lua_settable(L,-3);
 180
 181   /* processor */
 182   lua_pushstring(L, "processor.socket_designation");
 183   lua_pushstring(L, dmi.processor.socket_designation);
 184   lua_settable(L,-3);
 185
 186   lua_pushstring(L, "processor.type");
 187   lua_pushstring(L, dmi.processor.type);
 188   lua_settable(L,-3);
 189
 190   lua_pushstring(L, "processor.family");
 191   lua_pushstring(L, dmi.processor.family);
 192   lua_settable(L,-3);
 193
 194   lua_pushstring(L, "processor.manufacturer");
 195   lua_pushstring(L, dmi.processor.manufacturer);
 196   lua_settable(L,-3);
 197
 198   lua_pushstring(L, "processor.version");
 199   lua_pushstring(L, dmi.processor.version);
 200   lua_settable(L,-3);
 201
 202   lua_pushstring(L, "processor.external_clock");
 203   lua_pushnumber(L, dmi.processor.external_clock);
 204   lua_settable(L,-3);
 205
 206   lua_pushstring(L, "processor.max_speed");
 207   lua_pushnumber(L, dmi.processor.max_speed);
 208   lua_settable(L,-3);
 209
 210   lua_pushstring(L, "processor.current_speed");
 211   lua_pushnumber(L, dmi.processor.current_speed);
 212   lua_settable(L,-3);
 213
 214   lua_pushstring(L, "processor.signature.type");
 215   lua_pushnumber(L, dmi.processor.signature.type);
 216   lua_settable(L,-3);
 217
 218   lua_pushstring(L, "processor.signature.family");
 219   lua_pushnumber(L, dmi.processor.signature.family);
 220   lua_settable(L,-3);
 221
 222   lua_pushstring(L, "processor.signature.model");
 223   lua_pushnumber(L, dmi.processor.signature.model);
 224   lua_settable(L,-3);
 225
 226   lua_pushstring(L, "processor.signature.stepping");
 227   lua_pushnumber(L, dmi.processor.signature.stepping);
 228   lua_settable(L,-3);
 229
 230   lua_pushstring(L, "processor.signature.minor_stepping");
 231   lua_pushnumber(L, dmi.processor.signature.minor_stepping);
 232   lua_settable(L,-3);
 233
 234   lua_pushstring(L, "processor.voltage_mv");
 235   lua_pushnumber(L, dmi.processor.voltage_mv);
 236   lua_settable(L,-3);
 237
 238   lua_pushstring(L, "processor.status");
 239   lua_pushstring(L, dmi.processor.status);
 240   lua_settable(L,-3);
 241
 242   lua_pushstring(L, "processor.upgrade");
 243   lua_pushstring(L, dmi.processor.upgrade);
 244   lua_settable(L,-3);
 245
 246   lua_pushstring(L, "processor.cache1");
 247   lua_pushstring(L, dmi.processor.cache1);
 248   lua_settable(L,-3);
 249
 250   lua_pushstring(L, "processor.cache2");
 251   lua_pushstring(L, dmi.processor.cache2);
 252   lua_settable(L,-3);
 253
 254   lua_pushstring(L, "processor.cache3");
 255   lua_pushstring(L, dmi.processor.cache3);
 256   lua_settable(L,-3);
 257
 258   lua_pushstring(L, "processor.serial");
 259   lua_pushstring(L, dmi.processor.serial);
 260   lua_settable(L,-3);
 261
 262   lua_pushstring(L, "processor.part_number");
 263   lua_pushstring(L, dmi.processor.part_number);
 264   lua_settable(L,-3);
 265
 266   lua_pushstring(L, "processor.id");
 267   lua_pushstring(L, dmi.processor.id);
 268   lua_settable(L,-3);
 269
 270   /* set global variable: lua_setglobal(L, "dmitable"); */
 271
 272   /* return number of return values on stack */
 273   return 1;
 274 }
 275
 276
 277 static int dmi_supported(lua_State *L)
 278 {
 279   s_dmi dmi;
 280
 281   if ( dmi_iterate(&dmi) ) {
 282     lua_pushboolean(L, 1);
 283   } else {
 284     lua_pushboolean(L, 0);
 285   }
 286   return 1;
 287 }
 288
 289
 290 static const luaL_Reg dmilib[] = {
 291   {"gettable", dmi_gettable},
 292   {"supported", dmi_supported},
 293   {NULL, NULL}
 294 };
 295
 296
 297 LUALIB_API int luaopen_dmi (lua_State *L) {
 298   luaL_openlib(L, LUA_DMILIBNAME, dmilib, 0);
 299   return 1;
 300 }
 301