root/lu/SocketTask.lua

--------------------------------------------------------------------------------
-- Title:               SocketTask.lua
-- Description:         Like a square peg in a round hole
-- Author:              Raphaël Szwarc http://alt.textdrive.com/lua/
-- Creation Date:       February 1, 2005
-- Legal:               Copyright (C) 2005 Raphaël Szwarc
--------------------------------------------------------------------------------

-- import dependencies
local LUObject = require( "LUObject" )
local LUTask = require( "LUTask" )
local SocketReader = require( "SocketReader" )
local SocketWriter = require( "SocketWriter" )

-- define the class
local super = LUObject
local self = super()

-- initialization method
function self:init( aServer, aSocket )
        self = super.init( self )

        self._server = aServer
        self._socket = aSocket
        
        return self
end
        
-- method to access this task server
function self:server()
        return self._server
end

-- method to access this task socket
function self:socket()
        return self._socket
end

-- method to start this task
function self:start()
        if self._task == nil then
                self:task():run()
        end
        
        return self
end

-- method to access this task
function self:task()
        if self._task == nil then
                self._task = LUTask( self, self:server():task():runloop() )
        end
        
        return self._task
end

-- method to run this task
function self:run()
        local aServer = self:server()
        local aSocket = self:socket()
        local aReader = SocketReader( aSocket )
        local aWriter = SocketWriter( aSocket )
        local aDelegate = aServer:delegate()
        
        aDelegate:run( aServer, aReader, aWriter )

        return self
end

return self