mirror of
https://github.com/lunarmodules/luasocket.git
synced 2024-11-08 14:28:21 +01:00
40 lines
913 B
Lua
40 lines
913 B
Lua
-- dict.lua
|
|
-- simple client for DICT protocol (see http://www.dict.org/)
|
|
-- shows definitions for each word from stdin. uses only "wn" dictionary.
|
|
-- if a word is "=", then the rest of the line is sent verbatim as a protocol
|
|
-- command to the server.
|
|
|
|
if verbose then verbose=write else verbose=function()end end
|
|
|
|
verbose(">>> connecting to server\n")
|
|
local s,e=connect("dict.org",2628)
|
|
assert(s,e)
|
|
verbose(">>> connected\n")
|
|
|
|
while 1 do
|
|
local w=read"*w"
|
|
if w==nil then break end
|
|
if w=="=" then
|
|
w=read"*l"
|
|
verbose(">>>",w,"\n")
|
|
s:send(w,"\r\n")
|
|
else
|
|
verbose(">>> looking up `",w,"'\n")
|
|
s:send("DEFINE wn ",w,"\r\n")
|
|
end
|
|
while 1 do
|
|
local l=s:receive()
|
|
if l==nil then break end
|
|
if strfind(l,"^[0-9]") then
|
|
write("<<< ",l,"\n")
|
|
else
|
|
write(l,"\n")
|
|
end
|
|
if strfind(l,"^250") or strfind(l,"^[45]") then break end
|
|
end
|
|
end
|
|
|
|
s:send("QUIT\r\n")
|
|
verbose("<<< ",s:receive(),"\n")
|
|
s:close()
|