Bläddra i källkod

* Dotted filenames for package objcrtl

Michaël Van Canneyt 2 år sedan
förälder
incheckning
14091abda5

+ 3 - 0
packages/objcrtl/namespaced/Api.ObjC.Rtl.pas

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

+ 3 - 0
packages/objcrtl/namespaced/Api.ObjC.Rtl10.pas

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

+ 3 - 0
packages/objcrtl/namespaced/Api.ObjC.Rtl20.pas

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

+ 3 - 0
packages/objcrtl/namespaced/Api.ObjC.RtlIPhoneOs.pas

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

+ 3 - 0
packages/objcrtl/namespaced/Api.ObjC.RtlMacOsX.pas

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

+ 3 - 0
packages/objcrtl/namespaced/Api.ObjC.RtlUtils.pas

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

+ 8 - 0
packages/objcrtl/namespaces.lst

@@ -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 - 0
packages/objcrtl/src/objcrtl.pas

@@ -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 - 0
packages/objcrtl/src/objcrtl10.pas

@@ -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 - 0
packages/objcrtl/src/objcrtl20.pas

@@ -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 - 0
packages/objcrtl/src/objcrtliphoneos.pas

@@ -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 - 0
packages/objcrtl/src/objcrtlmacosx.pas

@@ -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 - 0
packages/objcrtl/src/objcrtlutils.pas

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