restemplate/indy/SuperCore/IdFiberWeaver.pas

54 lines
966 B
Plaintext
Raw Normal View History

{
$Project$
$Workfile$
$Revision$
$DateUTC$
$Id$
This file is part of the Indy (Internet Direct) project, and is offered
under the dual-licensing agreement described on the Indy website.
(http://www.indyproject.org/)
Copyright:
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
}
{
$Log$
}
{
Rev 1.0 2004.02.03 12:38:50 AM czhower
Move
Rev 1.0 2003.10.19 2:50:54 PM czhower
Fiber cleanup
}
unit IdFiberWeaver;
interface
uses
IdBaseComponent, IdFiber,
Windows;
type
TIdFiberWeaver = class(TIdBaseComponent)
protected
procedure Relinquish(
AFiber: TIdFiber;
AReschedule: Boolean
); virtual; abstract;
public
procedure Add(
AFiber: TIdFiber
); virtual; abstract;
function WaitForFibers(
ATimeout: Cardinal = Infinite
): Boolean;
virtual; abstract;
end;
implementation
end.