lcore/trunk/lloopback.pas

{$ifdef fpc}
  {$mode delphi}
{$endif}

unit lloopback;

interface
uses lcore,classes;

type
  tlloopback=class(tlasio)
  public
    constructor create(aowner:tcomponent); override;
  end;


implementation
uses
{$ifdef ver1_0}
  linux;
{$else}
  baseunix,unix,unixutil,sockets;  
{$endif}
{$i unixstuff.inc}

constructor tlloopback.create(aowner:tcomponent);
begin
  inherited create(aowner);
  closehandles := true;
  assignpipe(fdhandlein,fdhandleout);

  eventcore.rmasterset(fdhandlein,false);//fd_set(fdhandlein,fdsrmaster);
  eventcore.wmasterclr(fdhandlein);//fd_clr(fdhandleout,fdswmaster);
  eventcore.setfdreverse(fdhandlein,self);
  eventcore.setfdreverse(fdhandleout,self);
  state := wsconnected;
end;
end.
1	{$ifdef fpc}
2	{$mode delphi}
3	{$endif}
4
5	unit lloopback;
6
7	interface
8	uses lcore,classes;
9
10	type
11	tlloopback=class(tlasio)
12	public
13	constructor create(aowner:tcomponent); override;
14	end;
15
16
17	implementation
18	uses
19	{$ifdef ver1_0}
20	linux;
21	{$else}
22	baseunix,unix,unixutil,sockets;
23	{$endif}
24	{$i unixstuff.inc}
25
26	constructor tlloopback.create(aowner:tcomponent);
27	begin
28	inherited create(aowner);
29	closehandles := true;
30	assignpipe(fdhandlein,fdhandleout);
31
32	eventcore.rmasterset(fdhandlein,false);//fd_set(fdhandlein,fdsrmaster);
33	eventcore.wmasterclr(fdhandlein);//fd_clr(fdhandleout,fdswmaster);
34	eventcore.setfdreverse(fdhandlein,self);
35	eventcore.setfdreverse(fdhandleout,self);
36	state := wsconnected;
37	end;
38	end.
No admin address has been configured">No admin address has been configured	ViewVC Help
Powered by ViewVC 1.1.26