"net.spl" import
"stream.spl" import

"server" net:register

construct net:server namespace {
	ServerStream
	Type
	_Types
	types
	;
	Types { _Types | with this ;
	    this:_Types:new
	}
	register-type { | with id this ;
	    this:types id awrap aadd this:=types
	    id this:_Types dyn-def-field;
	}
}

0 anew net:server:=types

construct net:server:Type {
    id 
    ;
    construct { this | with id this ;
        id this:=id
        this
    }
    create { ServerStream | with this ;
        this:id net:server:ServerStream:new
    }
}

construct net:server:_Types {
    ;
    construct { this | with this ;
        { | with type ;
            "type net:server:Type:new this:=<type>";
            (type net:server:Type:new) (this ("=" type concat)) dyn-objcall
        } net:server:types:foreach;
        this
    }
}

"tcp" net:server:register-type

construct net:server:ServerStream {
	id
	;
	construct { this | with type this ;
		type new-server-stream this:=id
		this
	}
	accept { Stream | with this ;
		def stream Stream:mkinstance =stream
		this:id accept-server-stream stream:=id
		stream
	}
	close { | with this ;
		this:id close-server-stream;
	}
}