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

Contents of /trunk/lloopback.pas

Parent Directory Parent Directory | Revision Log Revision Log


Revision 135 - (show annotations)
Thu Mar 13 21:27:50 2014 UTC (3 years, 9 months ago) by beware
File size: 758 byte(s)
removed incorrect executable status from files
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.

Properties

Name Value
svn:eol-style CRLF

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