removed incorrect executable status from files
[lcore.git] / unixstuff.inc
1 {$ifdef UNIX}\r
2   {$macro on}\r
3   {$ifdef VER1_0}\r
4     {$define tv_sec := sec}\r
5     {$define tv_usec := usec}\r
6     function dup(const original:integer):integer;inline;\r
7     begin\r
8       linux.dup(original,result);\r
9     end;\r
10     {$define gettimeofdaysec := gettimeofday}\r
11     const\r
12       IPPROTO_UDP=17;\r
13       IPPROTO_ICMP=1;\r
14     function ntohs(invalue:word):word;inline;\r
15     var\r
16       invaluebytes : array[0..1] of byte absolute invalue;\r
17       resultbytes : array[0..1] of byte absolute result;\r
18     begin\r
19       {$ifdef endian_little}\r
20         resultbytes[0] := invaluebytes[1];\r
21         resultbytes[1] := invaluebytes[0];\r
22       {$else}\r
23         result := invalue;\r
24       {$endif}\r
25     end; \r
26     {$define need_v6constants}\r
27   {$else}\r
28     \r
29     {$define sigprocmask := fpsigprocmask}\r
30     {$define sigaction   := fpsigaction}\r
31     {$define fdclose     := fpclose}\r
32     {$define fcntl       := fpfcntl}\r
33     {$define fdwrite     := fpwrite}\r
34     {$define fdread      := fpread}\r
35     {$define fdopen      := fpopen}\r
36     {$define select      := fpselect}\r
37     {$define linuxerror  := fpgeterrno}\r
38     {$define fork        := fpfork}\r
39     {$define getpid      := fpgetpid}\r
40     {$define getenv      := fpgetenv}\r
41     {$define chmod       := fpchmod}\r
42     {$define dup2        := fpdup2}\r
43     {$ifndef ver1_9_2}\r
44       {$define flock     := fpflock}\r
45       {$ifndef ver1_9_4}\r
46         procedure Execl(Todo:string);inline;\r
47         var\r
48           p : ppchar;\r
49         begin\r
50           p := unixutil.StringToPPChar(Todo,0);\r
51           if (p=nil) or (p^=nil) then exit;\r
52           fpexecv(p^,p);\r
53         end;\r
54         function SendTo(Sock: LongInt; const Buf;BufLen: LongInt;Flags: LongInt;var Addr;AddrLen: LongInt):LongInt;\r
55         begin\r
56           result := fpsendto(sock,@buf,buflen,flags,@addr,addrlen);\r
57         end;\r
58         function RecvFrom(Sock: LongInt;var Buf;Buflen: LongInt;Flags: LongInt;var Addr;var addrlen: Longint):LongInt;\r
59         begin\r
60           result := fprecvfrom(sock,@buf,buflen,flags,@addr,@addrlen);\r
61         end;\r
62         {$define socket := fpsocket}\r
63         function Bind(Sock: LongInt;const Addr;AddrLen: LongInt):Boolean;\r
64         begin\r
65           result := fpbind(sock,@addr,addrlen) = 0;\r
66         end;\r
67         function SetSocketOptions(Sock: LongInt;Level: LongInt;OptName: LongInt;const OptVal;optlen: LongInt):LongInt;\r
68         begin\r
69           result := fpsetsockopt(sock,level,optname,@optval,optlen);\r
70         end;\r
71         function Connect(Sock: LongInt;const Addr;Addrlen: LongInt):Boolean;\r
72         begin\r
73           result := fpconnect(sock,@addr,addrlen) >= 0;\r
74         end;\r
75         function listen(Sock: LongInt;MaxConnect: LongInt):Boolean;\r
76         begin\r
77           result := fplisten(sock,maxconnect) = 0;\r
78         end; \r
79         function GetPeerName(Sock: LongInt; var Addr;var Addrlen: LongInt):LongInt;\r
80         begin\r
81           result := fpgetpeername(sock,@addr,@addrlen);\r
82         end;\r
83         function GetSocketName(Sock: LongInt; var Addr;var Addrlen: LongInt):LongInt;\r
84         begin\r
85           result := fpgetsockname(sock,@addr,@addrlen);\r
86         end;\r
87         function Accept(Sock: LongInt; var Addr; var Addrlen: LongInt):LongInt;\r
88         begin\r
89           result := fpaccept(sock,@addr,@addrlen);\r
90         end;\r
91       {$endif}\r
92     {$endif}\r
93     {$ifdef ver2_0}\r
94       const\r
95         IPPROTO_UDP=17;\r
96         IPPROTO_ICMP=1;\r
97       {$define need_v6constants}\r
98     {$endif}\r
99     {$ifdef ver1_9}\r
100       const\r
101         IPPROTO_UDP=17;\r
102         IPPROTO_ICMP=1;\r
103       function ntohs(invalue:word):word;inline;\r
104       var\r
105         invaluebytes : array[0..1] of byte absolute invalue;\r
106         resultbytes : array[0..1] of byte absolute result;\r
107       begin\r
108         {$ifdef endian_little}\r
109           resultbytes[0] := invaluebytes[1];\r
110           resultbytes[1] := invaluebytes[0];\r
111         {$else}\r
112           result := invalue;\r
113         {$endif}\r
114       end;\r
115       {$define need_v6constants}\r
116     {$endif}\r
117     procedure gettimeofday(var tv:ttimeval);inline;\r
118     begin\r
119       fpgettimeofday(@tv,nil);    \r
120     end;\r
121     function gettimeofdaysec : longint;\r
122     var\r
123       tv:ttimeval;\r
124     begin\r
125       gettimeofday(tv);\r
126       result := tv.tv_sec;\r
127     end;\r
128 \r
129     //a function is used here rather than a define to prevent issues with tlasio.dup\r
130     function dup(const original:integer):integer;inline;\r
131     begin\r
132       result := fpdup(original);\r
133     end;\r
134     function octal(invalue:longint):longint;\r
135     var\r
136       a : integer;\r
137       i : integer;\r
138     begin\r
139       i := 0;\r
140       result := 0;\r
141       while invalue <> 0 do begin\r
142         a := invalue mod 10;\r
143         result := result + (a shl (i*3));\r
144 \r
145         invalue := invalue div 10;\r
146         inc(i);\r
147       end;\r
148     end;\r
149     const\r
150       sys_eintr=esyseintr;\r
151 \r
152   {$endif}\r
153   {$ifdef need_v6constants}\r
154     {$ifdef linux} \r
155       //the below values are only known correct on linux, I don't support \r
156       //1.0.x on any other unix platform atm anyway --plugwash\r
157       const \r
158         IPPROTO_IPV6 = 41;\r
159         IPV6_V6ONLY         = 26;\r
160     {$endif}\r
161   {$endif}\r
162   {$ifdef freebsd}\r
163     //freepascal doesn't seem to define IPV6_V6ONLY on freebsd, the definition\r
164     //here is taken from the include files of a freebsd 8 system\r
165     const\r
166       IPV6_V6ONLY = 27;\r
167   {$endif}\r
168 \r
169 {$endif}\r
170 \r
171     \r