之前编译安装了lua 5.2.2,下面是编译安装LuaSocket库的详细步骤。
下载一个稳定发布版本:
下载 LuaSocket 2.0.2源码:luasocket-2.0.2.tar.gz
$ tar zxvf luasocket-2.0.2
进入目录:luasocket-2.0.2,修改config文件
添加包含文件目录,即lua 5.2.2源码目录,添加如下行:
LUAINC=-I/home/wayz/lua_study/lua-5.2.2/src
修改安装目录如下,即原来lua 5.2.2的安装目录:
INSTALL_TOP_SHARE=/usr/local/share/lua/5.2
INSTALL_TOP_LIB=/usr/local/lib/lua/5.2
这时直接make会报如下的错误:
# make
cd src; make all
make[1]: 进入目录“/home/wayz/lua_study/luasocket-2.0.2/src”
gcc -I/home/wayz/lua_study/lua-5.2.2/src -DLUASOCKET_DEBUG -pedantic -Wall -O2 -fpic -c -o luasocket.o luasocket.c
In file included from luasocket.c:31:0:
auxiliar.h:38:61: 错误:unknown type name ‘luaL_reg’
luasocket.c:50:1: 错误:unknown type name ‘luaL_reg’
......
......
经过2.3.1中的修改确实可以编译安装,但运行时报错如下:
# lua
Lua 5.2.2 Copyright (C) 1994-2013 Lua.org, PUC-Rio
> require ("socket")
error loading module 'socket.core' from file '/usr/local/lib/lua/5.2/socket/core.so':
/usr/local/lib/lua/5.2/socket/core.so: undefined symbol: luaL_typerror
stack traceback:
[C]: in ?
[C]: in function 'require'
/usr/local/share/lua/5.2/socket.lua:13: in main chunk
[C]: in function 'require'
stdin:1: in main chunk
[C]: in ?
修改src/auxiliar.c文件源码:
将下面的代码:
int auxiliar_checkboolean(lua_State *L, int objidx) {
if (!lua_isboolean(L, objidx))
luaL_typerror(L, objidx, lua_typename(L, LUA_TBOOLEAN));
return lua_toboolean(L, objidx);
}
int auxiliar_checkboolean(lua_State *L, int objidx) {
luaL_checktype(L, objidx, LUA_TBOOLEAN);
return lua_toboolean(L, objidx);
}
if (!lua_istable(L, 3)) luaL_typerror(L, 3, lua_typename(L, LUA_TTABLE));
luaL_checktype(L, 3, LUA_TTABLE);
修改src/buffer.c 和 src/mime.c文件,将对函数luaL_putchar的使用,改为使用luaL_addlstring函数。
注意两个函数参数的不同。
修改完直接make即可。
运行make install命令进行安装
运行下面的脚本,验证socket库:
#!/usr/bin/lua
-- 加载LuaSocket库
--require "socket"
local socket = require("socket")
host = "www.w3.org"
file = "/TR/REC-htm132.html"
-- 打开一个TCP连接
c = assert (socket.connect (host, 80))
c:send ("GET " .. file .. " HTTP/1.0\r\n\r\n")
while (true) do
local s, status, partial = c:receive (2^10)
io.write (s or partial)
if status == "closed" then break end
end
c:close ()