X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/ed1d49cbe548d9fb26a50f1b2381b693c3c01790..968c333d05db5d5ecf3599f8e304c67e64f21159:/lcore.pas

diff --git a/lcore.pas b/lcore.pas
index 1a2f93c..c936b59 100755
--- a/lcore.pas
+++ b/lcore.pas
@@ -16,13 +16,13 @@ unit lcore;
 {$ifdef fpc}
   {$mode delphi}
 {$endif}
-{$ifdef win32}
+{$ifdef mswindows}
   {$define nosignal}
 {$endif}
 interface
   uses
     sysutils,
-    {$ifndef win32}
+    {$ifndef mswindows}
       {$ifdef VER1_0}
         linux,
       {$else}
@@ -136,9 +136,9 @@ interface
 
       function RealSend(Data : Pointer; Len : Integer) : Integer; //added for bewarehttpd
 
-      procedure myfdclose(fd : integer); virtual;{$ifdef win32}abstract;{$endif}
-      function myfdwrite(fd: LongInt;const buf;size: LongInt):LongInt; virtual;{$ifdef win32}abstract;{$endif}
-      function myfdread(fd: LongInt;var buf;size: LongInt):LongInt; virtual;{$ifdef win32}abstract;{$endif}
+      procedure myfdclose(fd : integer); virtual;{$ifdef mswindows}abstract;{$endif}
+      function myfdwrite(fd: LongInt;const buf;size: LongInt):LongInt; virtual;{$ifdef mswindows}abstract;{$endif}
+      function myfdread(fd: LongInt;var buf;size: LongInt):LongInt; virtual;{$ifdef mswindows}abstract;{$endif}
     protected
       procedure dupnowatch(invalue:longint);
     end;
@@ -165,7 +165,7 @@ interface
       fontimer            : tnotifyevent      ;
       fenabled            : boolean           ;
       finterval	          : integer	     ; {miliseconds, default 1000}
-      {$ifndef win32}
+      {$ifndef mswindows}
         procedure resettimes;
       {$endif}
 //      procedure setinitialevent(newvalue : boolean);
@@ -248,17 +248,17 @@ implementation
 {$ifndef nosignal}
   uses {sockets,}lloopback,lsignal;
 {$endif}
-{$ifdef win32}
+{$ifdef mswindows}
   uses windows,winsock;
 {$endif}
-{$ifndef win32}
+{$ifndef mswindows}
   {$include unixstuff.inc}
 {$endif}
 
 
 {!!! added sleep call -beware}
 procedure sleep(i:integer);
-{$ifdef win32}
+{$ifdef mswindows}
 begin
   windows.sleep(i);
 {$else}
@@ -395,13 +395,13 @@ begin
     eventcore.wmasterclr(fdhandleout);//fd_clr(fdhandleout,fdswmaster);
 
     if closehandles then begin
-      {$ifndef win32}
+      {$ifndef mswindows}
         //anyone remember why this is here? --plugwash
         fcntl(fdhandlein,F_SETFL,0);
       {$endif}
       myfdclose(fdhandlein);
       if fdhandleout <> fdhandlein then begin
-        {$ifndef win32}
+        {$ifndef mswindows}
           fcntl(fdhandleout,F_SETFL,0);
         {$endif}
         myfdclose(fdhandleout);
@@ -528,7 +528,7 @@ begin
   fdhandlein := invalue;
   fdhandleout := invalue;
   eventcore.setfdreverse(fdhandlein,self);
-  {$ifndef win32}
+  {$ifndef mswindows}
     fcntl(fdhandlein,F_SETFL,OPEN_NONBLOCK);
   {$endif}
   state := wsconnected;
@@ -561,7 +561,7 @@ begin
           internalclose(0);
 
         end else begin
-          {$ifdef win32}
+          {$ifdef mswindows}
           if getlasterror=WSAEWOULDBLOCK then begin
             //the asynchronous nature of windows messages means we sometimes
             //get here with the buffer full
@@ -569,7 +569,7 @@ begin
           end else
           {$endif}
           begin
-            internalclose({$ifdef win32}getlasterror{$else}linuxerror{$endif});
+            internalclose({$ifdef mswindows}getlasterror{$else}linuxerror{$endif});
           end  
         end;
       end;
@@ -596,7 +596,7 @@ begin
 
         internalclose(0);
       end else if (numread=-1) then begin
-        {$ifdef win32}
+        {$ifdef mswindows}
           //sometimes on windows we get stale messages due to the inherent delays
           //in the windows message queue
           if WSAGetLastError = wsaewouldblock then begin
@@ -605,7 +605,7 @@ begin
         {$endif}
         begin
           numread := 0;
-          internalclose({$ifdef win32}wsagetlasterror{$else}linuxerror{$endif});
+          internalclose({$ifdef mswindows}wsagetlasterror{$else}linuxerror{$endif});
         end;
       end else if numread > 0 then recvq.add(@tempbuf,numread);
     end;
@@ -622,7 +622,7 @@ begin
 end;
 
 procedure tlasio.flush;
-{$ifdef win32}
+{$ifdef mswindows}
 type fdset = tfdset;
 {$endif}
 var
@@ -651,7 +651,7 @@ begin
   tlasio(sender).recvq.del(maxlongint);
 end;
 
-{$ifndef win32}
+{$ifndef mswindows}
   procedure tltimer.resettimes;
   begin
     gettimeofday(nextts);
@@ -692,7 +692,7 @@ begin
     if assigned(timerwrapperinterface) then begin
       timerwrapperinterface.setenabled(wrappedtimer,newvalue);
     end else begin
-      {$ifdef win32}
+      {$ifdef mswindows}
         raise exception.create('non wrapper timers are not permitted on windows');
       {$else}
         resettimes;
@@ -708,7 +708,7 @@ begin
     if assigned(timerwrapperinterface) then begin
       timerwrapperinterface.setinterval(wrappedtimer,newvalue);
     end else begin
-      {$ifdef win32}
+      {$ifdef mswindows}
         raise exception.create('non wrapper timers are not permitted on windows');
       {$else}
         resettimes;
@@ -867,7 +867,7 @@ begin
   if (result > 0) and assigned(onsenddata) then onsenddata(self,result);
   eventcore.wmasterset(fdhandleout);
 end;
-{$ifndef win32}
+{$ifndef mswindows}
   procedure tlasio.myfdclose(fd : integer);
   begin
     fdclose(fd);