Pasted

#include "windows.h"
 
extern "C" {
#include "math.h"
#include "string.h"
#include "stdio.h"
#include "stdlib.h"
#include "lua/lua.h"
#include "lua/lauxlib.h"
#include "lua/lualib.h"
}
#define PROJECT_TABLENAME "luamodule"
#ifdef WIN32
#define LUA_API __declspec(dllexport)
#else
#define LUA_API
#endif
 
const char* DecToBin(lua_State *Lua, double num)
{
    if(num == 0) return "0";
    char *bt = new char[1024];
    bt[0] = '\0';
    num = (long long) num;
    while(1)
    {
        lua_pushnumber(Lua, (int)num % 2);
        strcat(bt,lua_tostring(Lua, lua_gettop(Lua)));
        if(((double)num / 2) == 0.5)
        {
            for(int i=0,j=strlen(bt)-1;i<floor(double(strlen(bt)/2));i++,j--)
            {
                char it = bt[i];
                bt[i] = bt[j];
                bt[j] = it;
            }
            return bt;
        }
        num = floor(double(num/2));
    }
}
 
extern "C" {
    int LUA_API luaopen_luamodule (lua_State *L);
}
 
static int sleepLua (lua_State *L) {
    Sleep((DWORD)lua_tonumber(L, 1));
    return 0;
}
 
static int dosomething(lua_State *L)
{
    lua_createtable(L, 1,1);
    return 0;
}
 
static int dectobin (lua_State *L) {
    lua_pushstring(L, DecToBin(L, lua_tonumber(L, 1)));
    return 1;
}
 
int LUA_API luaopen_luamodule (lua_State *L) {
    struct luaL_reg driver[] = {
        {"sleepLua", sleepLua}, 
        {"dectobin", dectobin},
        {NULL, NULL},
    };
    luaL_openlib (L, "luamodule", driver, 0);
    return 1;
}