/[lcore]/trunk/lloopback.pas
ViewVC logotype

Annotation of /trunk/lloopback.pas

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (hide annotations)
Fri Mar 28 02:26:58 2008 UTC (13 years, 8 months ago) by plugwash
File size: 698 byte(s)
initial import

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

Properties

Name Value
svn:executable

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.26