#include <stdio.h>

#include <dos.h>
#include <i86.h>
#include <string.h>
#include <stdlib.h>

#include "lua.h"
#include "lauxlib.h"

static int rbg_present(lua_State *L)
{
    unsigned int res;

    res = (unsigned int)inp(8);

    lua_pushboolean(L, (res & 0x04));
    
    return 1;
}

static const luaL_Reg rbglib[] = {
  {"present",    rbg_present},
  {NULL, NULL}
};

LUAMOD_API int luaopen_rbg (lua_State *L) {
  luaL_newlib(L, rbglib);

  /* atexit(unload_timer); */
  
  return 1;
}