line endings related fixes

[lcore.git] / lcorelocalips.pas

diff --git a/lcorelocalips.pas b/lcorelocalips.pas
index aafddf727547739fa7b63312ee5c82f896c07816..edd306ce4cd8ad836c615286d659a79b5fc8b5a8 100644 (file)
--- a/lcorelocalips.pas
+++ b/lcorelocalips.pas
@@ -36,7 +36,9 @@ notes:
 }\r
 \r
 unit lcorelocalips;\r
 }\r
 \r
 unit lcorelocalips;\r

-\r
+{$ifdef fpc}\r
+  {$mode delphi}\r
+{$endif}\r

 interface\r
 \r
 uses binipstuff,pgtypes;\r
 interface\r
 \r
 uses binipstuff,pgtypes;\r


@@ -51,7 +53,7 @@ function getv6localips:tbiniplist;
 \r
 function getsystemdnsservers:tbiniplist;\r
 \r
 \r
 function getsystemdnsservers:tbiniplist;\r
 \r

-{$ifdef win32}\r
+{$ifdef mswindows}\r

 function gethostname:ansistring;\r
 {$endif}\r
 \r
 function gethostname:ansistring;\r
 {$endif}\r
 \r


@@ -284,7 +286,7 @@ end;
 \r
 \r
 \r
 \r
 \r
 \r

-{$ifdef win32}\r
+{$ifdef mswindows}\r

   const\r
     MAX_HOSTNAME_LEN = 132;\r
     MAX_DOMAIN_NAME_LEN = 132;\r
   const\r
     MAX_HOSTNAME_LEN = 132;\r
     MAX_DOMAIN_NAME_LEN = 132;\r


@@ -350,7 +352,7 @@ end;
 \r
 function getsystemdnsservers:tbiniplist;\r
 var\r
 \r
 function getsystemdnsservers:tbiniplist;\r
 var\r

-  {$ifdef win32}\r
+  {$ifdef mswindows}\r

     fixed_info : pfixed_info;\r
     currentdnsserver : pip_addr_string;\r
   {$else}\r
     fixed_info : pfixed_info;\r
     currentdnsserver : pip_addr_string;\r
   {$else}\r


@@ -364,7 +366,7 @@ begin
 \r
   result := biniplist_new;\r
 \r
 \r
   result := biniplist_new;\r
 \r

-  {$ifdef win32}\r
+  {$ifdef mswindows}\r

     fixed_info := callgetnetworkparams;\r
     if fixed_info = nil then exit;\r
 \r
     fixed_info := callgetnetworkparams;\r
     if fixed_info = nil then exit;\r
 \r


@@ -400,7 +402,7 @@ begin
   {$endif}\r
 end;\r
 \r
   {$endif}\r
 end;\r
 \r

-{$ifdef win32}\r
+{$ifdef mswindows}\r

 function gethostname:ansistring;\r
 var\r
     fixed_info : pfixed_info;\r
 function gethostname:ansistring;\r
 var\r
     fixed_info : pfixed_info;\r


@@ -417,3 +419,4 @@ end;
 {$endif}\r
 \r
 end.\r
 {$endif}\r
 \r
 end.\r

+\r