mirror of
https://github.com/ShadowKatStudios/OC-Minitel.git
synced 2024-11-27 12:28:06 +11:00
28 lines
669 B
Lua
28 lines
669 B
Lua
function net.socket(address, port, sclose)
|
|
local conn, rb = {}, ""
|
|
conn.state, conn.buffer, conn.port, conn.address = "o", "", tonumber(port), address
|
|
function conn.r(self,length)
|
|
rb=self.buffer:sub(1,l)
|
|
self.buffer=self.buffer:sub(l+1)
|
|
return rb
|
|
end
|
|
function conn.w(self,data)
|
|
net.lsend(self.address,self.port,data)
|
|
end
|
|
function conn.c(s)
|
|
net.send(conn.address,conn.port,sclose)
|
|
end
|
|
function h(etype, from, port, data)
|
|
if from == conn.address and port == conn.port then
|
|
if data == sclose then
|
|
net.hook[sclose] = nil
|
|
conn.state = "c"
|
|
return
|
|
end
|
|
conn.buffer = conn.buffer..data
|
|
end
|
|
end
|
|
net.hook[sclose] = h
|
|
return conn
|
|
end
|