paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package objcrtl

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:00 +01:00
parent 699cdca74d
commit 14091abda5
13 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/objcrtl/namespaced/Api.ObjC.Rtl.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.ObjC.Rtl;
{$DEFINE FPC_DOTTEDUNITS}
{$i objcrtl.pas}

3
packages/objcrtl/namespaced/Api.ObjC.Rtl10.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.ObjC.Rtl10;
{$DEFINE FPC_DOTTEDUNITS}
{$i objcrtl10.pas}

3
packages/objcrtl/namespaced/Api.ObjC.Rtl20.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.ObjC.Rtl20;
{$DEFINE FPC_DOTTEDUNITS}
{$i objcrtl20.pas}

3
packages/objcrtl/namespaced/Api.ObjC.RtlIPhoneOs.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.ObjC.RtlIPhoneOs;
{$DEFINE FPC_DOTTEDUNITS}
{$i objcrtliphoneos.pas}

3
packages/objcrtl/namespaced/Api.ObjC.RtlMacOsX.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.ObjC.RtlMacOsX;
{$DEFINE FPC_DOTTEDUNITS}
{$i objcrtlmacosx.pas}

3
packages/objcrtl/namespaced/Api.ObjC.RtlUtils.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.ObjC.RtlUtils;
{$DEFINE FPC_DOTTEDUNITS}
{$i objcrtlutils.pas}

8
packages/objcrtl/namespaces.lst Normal file
View File

@ -0,0 +1,8 @@
src/objcrtlutils.pas=namespaced/Api.ObjC.RtlUtils.pas
{s*:src/}=namespaced/
{i+:src/}
src/objcrtlmacosx.pas=namespaced/Api.ObjC.RtlMacOsX.pas
src/objcrtl10.pas=namespaced/Api.ObjC.Rtl10.pas
src/objcrtl20.pas=namespaced/Api.ObjC.Rtl20.pas
src/objcrtl.pas=namespaced/Api.ObjC.Rtl.pas
src/objcrtliphoneos.pas=namespaced/Api.ObjC.RtlIPhoneOs.pas

7
packages/objcrtl/src/objcrtl.pas
View File

@ -8,14 +8,21 @@
The original copyright note of is kept on each include file
}
{$IFNDEF FPC_DOTTEDUNITS}
unit objcrtl;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.DynLibs;
{$ELSE FPC_DOTTEDUNITS}
uses
dynlibs;
{$ENDIF FPC_DOTTEDUNITS}
const
DefaultObjCLibName : AnsiString = 'libobjc.A.dylib';

7
packages/objcrtl/src/objcrtl10.pas
View File

@ -10,14 +10,21 @@
{.$DEFINE DEBUG}
{$IFNDEF FPC_DOTTEDUNITS}
unit objcrtl10;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.CTypes, Api.ObjC.Rtl, System.DynLibs;
{$ELSE FPC_DOTTEDUNITS}
uses
ctypes, objcrtl, dynlibs;
{$ENDIF FPC_DOTTEDUNITS}
{
Mac OS X Version 10.5 Delta

7
packages/objcrtl/src/objcrtl20.pas
View File

@ -8,14 +8,21 @@
The original copyright note of is kept on each include file
}
{$IFNDEF FPC_DOTTEDUNITS}
unit objcrtl20;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.ObjC.Rtl, System.DynLibs;
{$ELSE FPC_DOTTEDUNITS}
uses
objcrtl, dynlibs;
{$ENDIF FPC_DOTTEDUNITS}
function InitializeObjcRtl20(const ObjCLibName: AnsiString): Boolean;

7
packages/objcrtl/src/objcrtliphoneos.pas
View File

@ -8,14 +8,21 @@
The original copyright note of is kept on each include file
}
{$IFNDEF FPC_DOTTEDUNITS}
unit objcrtliPhoneOS;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.ObjC.Rtl, Api.ObjC.Rtl20;
{$ELSE FPC_DOTTEDUNITS}
uses
objcrtl, objcrtl20;
{$ENDIF FPC_DOTTEDUNITS}
implementation

7
packages/objcrtl/src/objcrtlmacosx.pas
View File

@ -8,15 +8,22 @@
The original copyright note of is kept on each include file
}
{$IFNDEF FPC_DOTTEDUNITS}
unit objcrtlMacOSX;
{$ENDIF FPC_DOTTEDUNITS}
{$linkframework CoreServices}
{$mode macpas}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.ObjC.Rtl, Api.ObjC.Rtl10, Api.ObjC.Rtl20;
{$ELSE FPC_DOTTEDUNITS}
uses
objcrtl, objcrtl10, objcrtl20;
{$ENDIF FPC_DOTTEDUNITS}
implementation

7
packages/objcrtl/src/objcrtlutils.pas
View File

@ -8,14 +8,21 @@
The original copyright note of is kept on each include file
}
{$IFNDEF FPC_DOTTEDUNITS}
unit objcrtlutils;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.ObjC.Rtl;
{$ELSE FPC_DOTTEDUNITS}
uses
objcrtl;
{$ENDIF FPC_DOTTEDUNITS}
function alloc(classname: PAnsiChar): id; inline;
function allocex(classname: PAnsiChar; extraBytes: Integer): id; inline;