rm some cruft that got imported accidently

[lcore.git] / httpserver_20080306 / unixstuff.inc

diff --git a/httpserver_20080306/unixstuff.inc b/httpserver_20080306/unixstuff.inc
deleted file mode 100755 (executable)
index 92ed308..0000000
--- a/httpserver_20080306/unixstuff.inc
+++ /dev/null
@@ -1,66 +0,0 @@
-{$ifdef UNIX}\r
-  {$macro on}\r
-  {$ifdef VER1_0}\r
-    {$define tv_sec := sec}\r
-    {$define tv_usec := usec}\r
-    function dup(const original:integer):integer;inline;\r
-    begin\r
-      linux.dup(original,result);\r
-    end;\r
-    {$define gettimeofdaysec := gettimeofday}\r
-  {$else}\r
-    \r
-    {$define sigprocmask := fpsigprocmask}\r
-    {$define sigaction   := fpsigaction}\r
-    {$define fdclose     := fpclose}\r
-    {$define fcntl       := fpfcntl}\r
-    {$define fdwrite     := fpwrite}\r
-    {$define fdread      := fpread}\r
-    {$define fdopen      := fpopen}\r
-    {$define select      := fpselect}\r
-    {$define linuxerror  := fpgeterrno}\r
-    {$define fork        := fpfork}\r
-    {$define getpid      := fpgetpid}\r
-    {$define getenv      := fpgetenv}\r
-    {$define chmod       := fpchmod}\r
-    {$define dup2        := fpdup2}\r
-    {$ifndef ver1_9_2}\r
-      {$define flock       := fpflock}\r
-    {$endif}\r
-    procedure gettimeofday(var tv:ttimeval);inline;\r
-    begin\r
-      fpgettimeofday(@tv,nil);    \r
-    end;\r
-    function gettimeofdaysec : longint;\r
-    var\r
-      tv:ttimeval;\r
-    begin\r
-      gettimeofday(tv);\r
-      result := tv.tv_sec;\r
-    end;\r
-\r
-    //a function is used here rather than a define to prevent issues with tlasio.dup\r
-    function dup(const original:integer):integer;inline;\r
-    begin\r
-      result := fpdup(original);\r
-    end;\r
-    function octal(invalue:longint):longint;\r
-    var\r
-      a : integer;\r
-      i : integer;\r
-    begin\r
-      i := 0;\r
-      result := 0;\r
-      while invalue <> 0 do begin\r
-        a := invalue mod 10;\r
-        result := result + (a shl (i*3));\r
-\r
-        invalue := invalue div 10;\r
-        inc(i);\r
-      end;\r
-    end;\r
-    const\r
-      sys_eintr=esyseintr;\r
-\r
-  {$endif}\r
-{$endif}\r