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

Annotation of /trunk/lloopback.pas

Parent Directory Parent Directory | Revision Log Revision Log


Revision 135 - (hide annotations)
Thu Mar 13 21:27:50 2014 UTC (7 years, 8 months ago) by beware
File size: 758 byte(s)
removed incorrect executable status from files
1 plugwash 93 {$ifdef fpc}
2     {$mode delphi}
3     {$endif}
4    
5 plugwash 1 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 plugwash 10 uses
19     {$ifdef ver1_0}
20     linux;
21     {$else}
22 plugwash 60 baseunix,unix,unixutil,sockets;
23 plugwash 10 {$endif}
24     {$i unixstuff.inc}
25    
26 plugwash 1 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.26