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

Contents of /trunk/lloopback.pas

Parent Directory Parent Directory | Revision Log Revision Log


Revision 61 - (show annotations)
Thu Feb 4 22:47:07 2010 UTC (10 years, 4 months ago) by plugwash
File size: 714 byte(s)
set line ending property on files to hopefully avoid line ending problems in future

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,sockets;
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:eol-style CRLF
svn:executable

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