* Dotted filenames for package objcrtl

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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