Quellcode durchsuchen

* Dotted filenames for package iosxlocale

Michaël Van Canneyt vor 2 Jahren
Ursprung
Commit
07db644128

+ 3 - 0
packages/iosxlocale/namespaced/IosApi.Iosxlocale.pp

@@ -0,0 +1,3 @@
+unit IosApi.Iosxlocale;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i iosxlocale.pp}

+ 3 - 0
packages/iosxlocale/namespaced/IosApi.Iosxwstr.pp

@@ -0,0 +1,3 @@
+unit IosApi.Iosxwstr;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i iosxwstr.pp}

+ 4 - 0
packages/iosxlocale/namespaces.lst

@@ -0,0 +1,4 @@
+src/iosxlocale.pp=namespaced/IosApi.Iosxlocale.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/iosxwstr.pp=namespaced/IosApi.Iosxwstr.pp

+ 7 - 0
packages/iosxlocale/src/iosxlocale.pp

@@ -17,14 +17,21 @@
 
  **********************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit iosxlocale;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.SysUtils, MacOsApi.MacOSAll;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   SysUtils, MacOSAll;
+{$ENDIF FPC_DOTTEDUNITS}
 
 procedure GetMacFormatSettings(var ASettings: TFormatSettings);
 

+ 11 - 0
packages/iosxlocale/src/iosxwstr.pp

@@ -16,7 +16,9 @@
 {$mode objfpc}
 {$implicitexceptions off}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit iosxwstr;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
@@ -26,12 +28,21 @@ interface
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+  uses
+    UnixApi.CP,
+    { for access to libiconv-based routines }
+    UnixApi.CWString,
+    MacOsApi.MacTypes,
+    MacOsApi.CFBase,MacOsApi.CFString,MacOsApi.CFStringEncodingExt,MacOsApi.CFLocale;
+{$ELSE FPC_DOTTEDUNITS}
   uses
     unixcp,
     { for access to libiconv-based routines }
     cwstring,
     MacTypes,
     CFBase,CFString,CFStringEncodingExt,CFLocale;
+{$ENDIF FPC_DOTTEDUNITS}
 
   procedure fpc_rangeerror; [external name 'FPC_RANGEERROR'];