paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package iosxlocale

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:08 +01:00 committed by Pierre Muller
parent a484e2126d
commit 92514a3c8d
5 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/iosxlocale/namespaced/IosApi.Iosxlocale.pp Normal file
View File

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

3
packages/iosxlocale/namespaced/IosApi.Iosxwstr.pp Normal file
View File

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

4
packages/iosxlocale/namespaces.lst Normal file
View File

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

7
packages/iosxlocale/src/iosxlocale.pp
View File

@ -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
packages/iosxlocale/src/iosxwstr.pp
View File

@ -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'];