package.cpath = package.cpath .. ";libs/?.dll"
package.path = package.path .. ";libs/lua/?.lua"

require "socket"

foo = socket.protect(function()
	-- connect somewhere
	local c = socket.try(socket.connect("google.com", 80))
	-- create a try function that closes 'c' on error
	local try = socket.newtry(function() c:close() end)
	-- do everything reassured c will be closed 
	try(c:send("hello there?\r\n"))
	local answer = try(c:receive())
	print(answer)
	try(c:send("good bye\r\n"))
	c:close()
end)

foo()

int my_lua_func(luavm){
	lua_pushnumber(luavm,lua_tonumber(1));
	return 1; /* number of arguments pushed onto stack */
}
lua_register(luavm,"lua_name",my_lua_func())

#include <stdio.h>
int c_func(int x)
{
	printf("x = %d\n", x);
	return (x + 123) * x;
}

int register_cfuncs(lua_State* L) {
	lua_register(L, "smthn" lua_cfunc);
}

package.loadlib("path to dll", "register_cfuncs")();

#include <stdio.h>
int c_func(int x)
{
     printf("x = %d\n", x);
     return (x + 123) * x;
}

#include <stdio.h>
int c_func(luad_State* L) {
	if ( lua_gettop(L) >= 1 ) { // gettop returns the the index of the top of the stack (it returns the number of parameters)
		double num = lua_tonumber(L, 1);
		printf("x = %d\n", x);
		
		// push the return value onto the stack
		lua_pushnumber(L, (x+123)*x);
		lua_return 1;
	}
	return 0;
}

typedef int (*lua_CFunction) (lua_State *L);

int luaopen_filename(void* l){
	lua_register(l, "func name in lua" c_func);
	return 1;
}

require "filename"