X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/6cb6b7ede2d178e03fa817bc28474c175f5a93b9..42a61c59a81b03130f61e805474198eada033cd8:/httpserver_20080306/lloopback.pas?ds=inline diff --git a/httpserver_20080306/lloopback.pas b/httpserver_20080306/lloopback.pas deleted file mode 100755 index da26263..0000000 --- a/httpserver_20080306/lloopback.pas +++ /dev/null @@ -1,30 +0,0 @@ -unit lloopback; - -interface -uses lcore,classes; - -type - tlloopback=class(tlasio) - public - constructor create(aowner:tcomponent); override; - end; - - -implementation -uses - baseunix,unix; -{$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.