fix line endings
authorplugwash <plugwash@p10link.net>
Sun, 1 Nov 2009 04:42:43 +0000 (04:42 +0000)
committerplugwash <plugwash@p10link.net>
Sun, 1 Nov 2009 04:42:43 +0000 (04:42 +0000)
git-svn-id: file:///svnroot/lcore/trunk@59 b1de8a11-f9be-4011-bde0-cc7ace90066a

dnsasync.pas
dnssync.pas
lcoreselect.pas
lmessages.pas
ltimevalstuff.pas

index a8e1aa654b6d56778f3b9c9c11c3062bc534d4d8..fab858d5033ac969c72580652e85f97b0908c036 100755 (executable)
@@ -100,14 +100,14 @@ var
   socketno : integer;\r
 begin\r
   for socketno := 0 to numsock -1 do begin\r
   socketno : integer;\r
 begin\r
   for socketno := 0 to numsock -1 do begin\r
-    if assigned(sockets[socketno]) then begin
+    if assigned(sockets[socketno]) then begin\r
       if dnsserverids[socketno] >= 0 then begin\r
         reportlag(dnsserverids[socketno],-1);\r
         dnsserverids[socketno] := -1;\r
       end;\r
       sockets[socketno].release;\r
       setstate_request_init('',states[socketno]);\r
       if dnsserverids[socketno] >= 0 then begin\r
         reportlag(dnsserverids[socketno],-1);\r
         dnsserverids[socketno] := -1;\r
       end;\r
       sockets[socketno].release;\r
       setstate_request_init('',states[socketno]);\r
-    end;
+    end;\r
   end;\r
   inherited destroy;\r
 end;\r
   end;\r
   inherited destroy;\r
 end;\r
index d75f54e35c53d1974ffe0c0b2165728019ea68a7..a91d6f1a79cd59544be1c42430f02a6fa64b769d 100755 (executable)
@@ -26,7 +26,7 @@ interface
       fd_utils,\r
     {$endif}\r
     lcorernd,\r
       fd_utils,\r
     {$endif}\r
     lcorernd,\r
-    sysutils,
+    sysutils,\r
     ltimevalstuff;\r
 \r
 //convert a name to an IP\r
     ltimevalstuff;\r
 \r
 //convert a name to an IP\r
index 3cee9bf6f9bd40aac0126ddee84d126b7faf454d..fea205806e585b1709e0157e61f60ff33c487f38 100755 (executable)
@@ -40,7 +40,7 @@ uses
   {$ifndef nosignal}\r
     lsignal,\r
   {$endif}\r
   {$ifndef nosignal}\r
     lsignal,\r
   {$endif}\r
-  ltimevalstuff;
+  ltimevalstuff;\r
 \r
 {$include unixstuff.inc}\r
 \r
 \r
 {$include unixstuff.inc}\r
 \r
index b5a6f25594f0a41cc5ca59463898a69a96ae3c0f..d7e40082c8576e158c12cd876dc5e4677ac8ebca 100755 (executable)
@@ -135,7 +135,7 @@ var
   //than crash after over four billion\r
   //windows have been made ;)\r
   nextwindowhandle : qword = $100000000;\r
   //than crash after over four billion\r
   //windows have been made ;)\r
   nextwindowhandle : qword = $100000000;\r
-
+\r
 \r
 //findthreaddata should only be called while holding the structurelock\r
 function findthreaddata(threadid : integer) : tthreaddata;\r
 \r
 //findthreaddata should only be called while holding the structurelock\r
 function findthreaddata(threadid : integer) : tthreaddata;\r
index a6a3158f3d6d8db36ea7bad7047e35a80975212a..df0342c3448e4ad2c69c547a6b45188dc17fc844 100755 (executable)
@@ -5,39 +5,39 @@
 \r
 unit ltimevalstuff;\r
 interface\r
 \r
 unit ltimevalstuff;\r
 interface\r
-
-{$ifdef win32}
-  type
-    ttimeval = record
-      tv_sec : longint; 
-      tv_usec : longint; 
-    end;
-{$else}
-  {$ifdef ver1_0}
-    uses linux;
-  {$else}
-    uses baseunix,unix,unixutil;
-  {$endif}
-{$endif}
-                                
+\r
+{$ifdef win32}\r
+  type\r
+    ttimeval = record\r
+      tv_sec : longint; \r
+      tv_usec : longint; \r
+    end;\r
+{$else}\r
+  {$ifdef ver1_0}\r
+    uses linux;\r
+  {$else}\r
+    uses baseunix,unix,unixutil;\r
+  {$endif}\r
+{$endif}\r
+                                \r
 \r
 procedure tv_add(var tv:ttimeval;msec:integer);\r
 function tv_compare(const tv1,tv2:ttimeval):boolean;\r
 procedure tv_substract(var tv:ttimeval;const tv2:ttimeval);\r
 procedure msectotimeval(var tv:ttimeval;msec:integer);\r
 \r
 procedure tv_add(var tv:ttimeval;msec:integer);\r
 function tv_compare(const tv1,tv2:ttimeval):boolean;\r
 procedure tv_substract(var tv:ttimeval;const tv2:ttimeval);\r
 procedure msectotimeval(var tv:ttimeval;msec:integer);\r
-
+\r
 //tv_invalidtimebig will always compare as greater than any valid timeval\r
 //tv_invalidtimebig will always compare as greater than any valid timeval\r
-//unfortunately unixstuff.inc hasn't worked it's magic yet so we
+//unfortunately unixstuff.inc hasn't worked it's magic yet so we\r
 //have to ifdef this manually.\r
 const\r
 //have to ifdef this manually.\r
 const\r
-  {$ifdef ver1_0}
+  {$ifdef ver1_0}\r
     tv_invalidtimebig : ttimeval = (sec:maxlongint;usec:maxlongint);\r
     tv_invalidtimebig : ttimeval = (sec:maxlongint;usec:maxlongint);\r
-  {$else}
+  {$else}\r
     tv_invalidtimebig : ttimeval = (tv_sec:maxlongint;tv_usec:maxlongint);\r
     tv_invalidtimebig : ttimeval = (tv_sec:maxlongint;tv_usec:maxlongint);\r
-  {$endif}
+  {$endif}\r
 implementation\r
 implementation\r
-
-{$i unixstuff.inc}
+\r
+{$i unixstuff.inc}\r
 \r
 {add nn msec to tv}\r
 procedure tv_add(var tv:ttimeval;msec:integer);\r
 \r
 {add nn msec to tv}\r
 procedure tv_add(var tv:ttimeval;msec:integer);\r