/[lcore]/trunk/unixstuff.inc
ViewVC logotype

Diff of /trunk/unixstuff.inc

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 59 by plugwash, Thu Feb 5 18:38:37 2009 UTC revision 60 by plugwash, Thu Nov 12 20:47:41 2009 UTC
# Line 50  Line 50 
50            if (p=nil) or (p^=nil) then exit;            if (p=nil) or (p^=nil) then exit;
51            fpexecv(p^,p);            fpexecv(p^,p);
52          end;          end;
53            function SendTo(Sock: LongInt; const Buf;BufLen: LongInt;Flags: LongInt;var Addr;AddrLen: LongInt):LongInt;
54            begin
55              result := fpsendto(sock,@buf,buflen,flags,@addr,addrlen);
56            end;
57            function RecvFrom(Sock: LongInt;var Buf;Buflen: LongInt;Flags: LongInt;var Addr;var addrlen: Longint):LongInt;
58            begin
59              result := fprecvfrom(sock,@buf,buflen,flags,@addr,@addrlen);
60            end;
61            {$define socket := fpsocket}
62            function Bind(Sock: LongInt;const Addr;AddrLen: LongInt):Boolean;
63            begin
64              result := fpbind(sock,@addr,addrlen) = 0;
65            end;
66            function SetSocketOptions(Sock: LongInt;Level: LongInt;OptName: LongInt;const OptVal;optlen: LongInt):LongInt;
67            begin
68              result := fpsetsockopt(sock,level,optname,@optval,optlen);
69            end;
70            function Connect(Sock: LongInt;const Addr;Addrlen: LongInt):Boolean;
71            begin
72              result := fpconnect(sock,@addr,addrlen) >= 0;
73            end;
74            function listen(Sock: LongInt;MaxConnect: LongInt):Boolean;
75            begin
76              result := fplisten(sock,maxconnect) = 0;
77            end;
78            function GetPeerName(Sock: LongInt; var Addr;var Addrlen: LongInt):LongInt;
79            begin
80              result := fpgetpeername(sock,@addr,@addrlen);
81            end;
82            function GetSocketName(Sock: LongInt; var Addr;var Addrlen: LongInt):LongInt;
83            begin
84              result := fpgetpeername(sock,@addr,@addrlen);
85            end;
86            function Accept(Sock: LongInt; var Addr; var Addrlen: LongInt):LongInt;
87            begin
88              result := fpaccept(sock,@addr,@addrlen);
89            end;
90        {$endif}        {$endif}
91      {$endif}      {$endif}
92      {$ifdef ver2_0}      {$ifdef ver2_0}

Legend:
Removed from v.59  
changed lines
  Added in v.60

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