Enviado em 18/05/2010 - 09:05h
Io.
Sei que não fui claro... desculpe.
Eu gostaria de criar uma "funcao em C" e usa em um script Perl... este seria o meu primeiro contato com "modulo" Perl.
EXEMPLO DE MODULO C/LUA
----------------------------------------
// mod.c
----------------------------------------
// LUA 5.1.4
#include <lua.h>
#include <lauxlib.h>
#include <lualib.h>
int hello (lua_State *L) {
printf("%s\n", (char*)lua_tostring(L,1));
return 0;
}
const luaL_reg my_lib[] = {
{"hello", hello },
{NULL, NULL}
};
#ifdef _WIN32
#define GL_API __declspec(dllexport)
#else
#define GL_API extern
#endif
GL_API int luaopen_mod (lua_State *L) {
luaL_openlib (L, "mod", my_lib, 0);
return 1;
}
---------------------------------------
--script.lua
--------------------------------------
require "mod" -- o arquivo "mod.dll" no WINDOWS ou "mod.so" no LINUX
mod.hello("Isto e um teste")
---------------------------------------
Abraços.
gokernel.
