httpserver_20080306/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   {$else}\r
  12     \r
  13     {$define sigprocmask := fpsigprocmask}\r
  14     {$define sigaction   := fpsigaction}\r
  15     {$define fdclose     := fpclose}\r
  16     {$define fcntl       := fpfcntl}\r
  17     {$define fdwrite     := fpwrite}\r
  18     {$define fdread      := fpread}\r
  19     {$define fdopen      := fpopen}\r
  20     {$define select      := fpselect}\r
  21     {$define linuxerror  := fpgeterrno}\r
  22     {$define fork        := fpfork}\r
  23     {$define getpid      := fpgetpid}\r
  24     {$define getenv      := fpgetenv}\r
  25     {$define chmod       := fpchmod}\r
  26     {$define dup2        := fpdup2}\r
  27     {$ifndef ver1_9_2}\r
  28       {$define flock       := fpflock}\r
  29     {$endif}\r
  30     procedure gettimeofday(var tv:ttimeval);inline;\r
  31     begin\r
  32       fpgettimeofday(@tv,nil);    \r
  33     end;\r
  34     function gettimeofdaysec : longint;\r
  35     var\r
  36       tv:ttimeval;\r
  37     begin\r
  38       gettimeofday(tv);\r
  39       result := tv.tv_sec;\r
  40     end;\r
  41 \r
  42     //a function is used here rather than a define to prevent issues with tlasio.dup\r
  43     function dup(const original:integer):integer;inline;\r
  44     begin\r
  45       result := fpdup(original);\r
  46     end;\r
  47     function octal(invalue:longint):longint;\r
  48     var\r
  49       a : integer;\r
  50       i : integer;\r
  51     begin\r
  52       i := 0;\r
  53       result := 0;\r
  54       while invalue <> 0 do begin\r
  55         a := invalue mod 10;\r
  56         result := result + (a shl (i*3));\r
  57 \r
  58         invalue := invalue div 10;\r
  59         inc(i);\r
  60       end;\r
  61     end;\r
  62     const\r
  63       sys_eintr=esyseintr;\r
  64 \r
  65   {$endif}\r
  66 {$endif}\r