* Dotted filenames for package sdl

packages/sdl/namespaced/Api.Sdl.Gfx.pas

@@ -0,0 +1,3 @@
+unit Api.Sdl.Gfx;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i sdl_gfx.pas}

packages/sdl/namespaced/Api.Sdl.Image.pas

@@ -0,0 +1,3 @@
+unit Api.Sdl.Image;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i sdl_image.pas}

packages/sdl/namespaced/Api.Sdl.Logger.pas

@@ -0,0 +1,3 @@
+unit Api.Sdl.Logger;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i logger.pas}

packages/sdl/namespaced/Api.Sdl.Mixer.NoSMpeg.pas

@@ -0,0 +1,3 @@
+unit Api.Sdl.Mixer.NoSMpeg;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i sdl_mixer_nosmpeg.pas}

packages/sdl/namespaced/Api.Sdl.Mixer.pas

@@ -0,0 +1,3 @@
+unit Api.Sdl.Mixer;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i sdl_mixer.pas}

packages/sdl/namespaced/Api.Sdl.Net.pas

@@ -0,0 +1,3 @@
+unit Api.Sdl.Net;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i sdl_net.pas}

packages/sdl/namespaced/Api.Sdl.SMpeg.pas

@@ -0,0 +1,3 @@
+unit Api.Sdl.SMpeg;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i smpeg.pas}

packages/sdl/namespaced/Api.Sdl.Ttf.pas

@@ -0,0 +1,3 @@
+unit Api.Sdl.Ttf;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i sdl_ttf.pas}

packages/sdl/namespaced/Api.Sdl.Utils.pas

@@ -0,0 +1,3 @@
+unit Api.Sdl.Utils;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i sdlutils.pas}

packages/sdl/namespaced/Api.Sdl.XmlParser.pas

@@ -0,0 +1,3 @@
+unit Api.Sdl.XmlParser;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i libxmlparser.pas}

packages/sdl/namespaced/Api.Sdl.pas

@@ -0,0 +1,3 @@
+unit Api.Sdl;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i sdl.pas}

packages/sdl/namespaces.lst

@@ -0,0 +1,13 @@
+src/sdl.pas=namespaced/Api.Sdl.pas
+{s*:src/}=namespaced/
+{i+:src/}
+src/sdl_image.pas=namespaced/Api.Sdl.Image.pas
+src/sdl_ttf.pas=namespaced/Api.Sdl.Ttf.pas
+src/smpeg.pas=namespaced/Api.Sdl.SMpeg.pas
+src/sdl_net.pas=namespaced/Api.Sdl.Net.pas
+src/sdl_mixer.pas=namespaced/Api.Sdl.Mixer.pas
+src/sdlutils.pas=namespaced/Api.Sdl.Utils.pas
+src/sdl_gfx.pas=namespaced/Api.Sdl.Gfx.pas
+src/libxmlparser.pas=namespaced/Api.Sdl.XmlParser.pas
+src/sdl_mixer_nosmpeg.pas=namespaced/Api.Sdl.Mixer.NoSMpeg.pas
+src/logger.pas=namespaced/Api.Sdl.Logger.pas

packages/sdl/src/libxmlparser.pas

@@ -190,18 +190,29 @@ Date        Author Version Changes
                            those that don't.
 *)
 
+{$IFNDEF FPC_DOTTEDUNITS}
 UNIT libxmlparser;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$I jedi-sdl.inc}
 
 INTERFACE
 
+{$IFDEF FPC_DOTTEDUNITS}
+USES
+  System.SysUtils, System.Classes,
+  (*$IFDEF HAS_CONTNRS_UNIT *)  // The System.Contnrs Unit was introduced in Delphi 5
+  System.Contnrs,
+  (*$ENDIF*)
+  System.Math;
+{$ELSE FPC_DOTTEDUNITS}
 USES
   SysUtils, Classes,
   (*$IFDEF HAS_CONTNRS_UNIT *)  // The Contnrs Unit was introduced in Delphi 5
   Contnrs,
   (*$ENDIF*)
   Math;
+{$ENDIF FPC_DOTTEDUNITS}
 
 CONST
   CVersion = '1.0.17';  // This variable will be updated for every release

packages/sdl/src/logger.pas

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit logger;
+{$ENDIF FPC_DOTTEDUNITS}
 {
   $Id: logger.pas,v 1.2 2006/11/26 16:58:04 savage Exp $
 
@@ -78,9 +80,15 @@ unit logger;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes,
   SysUtils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
   TLogger = class
@@ -186,4 +194,4 @@ begin
 end;
 
 end.
- 
+ 

packages/sdl/src/sdl.pas

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit sdl;
+{$ENDIF FPC_DOTTEDUNITS}
 {
   $Id: sdl.pas,v 1.31 2007/05/29 21:30:48 savage Exp $
 
@@ -279,6 +281,57 @@ unit sdl;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$IFDEF __GPC__}
+  system,
+  {$IFDEF Windows}
+  WinApi.WinTypes,
+  {$ELSE}
+  {$ENDIF}
+  gpc;
+{$ENDIF}
+
+{$IFDEF HAS_TYPES}
+  System.Types{$IFNDEF NDS},{$ELSE};{$ENDIF}
+{$ENDIF}
+
+{$IFDEF Windows}
+  WinApi.Windows;
+{$ENDIF}
+
+{$IFDEF OS2}
+  OS2Api.doscalls;
+{$ENDIF OS2}
+
+{$IFDEF Unix}
+  {$IFDEF FPC}
+  UnixApi.Pthreads,
+  UnixApi.Types,
+  UnixApi.Base,
+  {$IFNDEF GP2X}    
+  UnixApi.Unix,
+  {$ELSE}
+  UnixApi.Unix;
+  {$ENDIF}
+  {$IFNDEF GP2X}
+  Api.X11.X,
+  Api.X11.Xlib;
+  {$ENDIF}
+  {$ELSE}
+  Api.Libc,
+  Xlib;
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF __MACH__}
+  GPCMacOSAll;
+{$ENDIF}
+
+{$IFDEF MORPHOS}
+  Amiga.Core.Exec;
+{$ENDIF}
+{$ELSE FPC_DOTTEDUNITS}
 uses
 {$IFDEF __GPC__}
   system,
@@ -328,6 +381,7 @@ uses
 {$IFDEF MORPHOS}
   exec;
 {$ENDIF}
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$IFDEF WINDOWS}
@@ -2260,13 +2314,13 @@ PSDL_semaphore = ^TSDL_semaphore;
 
   PPoint = ^TPoint;
   {$IFDEF HAS_TYPES}
-  TPoint = Types.TPoint;
+  TPoint = {$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}Types.TPoint;
   {$ELSE}
     {$IFDEF WINDOWS}
       {$IFDEF __GPC__}
-      TPoint = wintypes.TPoint;
+      TPoint = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}wintypes.TPoint;
       {$ELSE}
-      TPoint = Windows.TPoint;
+      TPoint = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TPoint;
       {$ENDIF}
     {$ELSE}
       //Can't define TPoint : neither Types nor Windows unit available.
@@ -2275,13 +2329,13 @@ PSDL_semaphore = ^TSDL_semaphore;
 
   PRect = ^TRect;
   {$IFDEF HAS_TYPES}
-  TRect = Types.TRect;
+  TRect = {$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}Types.TRect;
   {$ELSE}
     {$IFDEF WINDOWS}
       {$IFDEF __GPC__}
-      TRect = wintypes.TRect;
+      TRect = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}wintypes.TRect;
       {$ELSE}
-      TRect = Windows.TRect;
+      TRect = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TRect;
       {$ENDIF}
     {$ELSE}
       //Can't define TRect: neither Types nor Windows unit available.

packages/sdl/src/sdl_gfx.pas

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit sdl_gfx;
+{$ENDIF FPC_DOTTEDUNITS}
 {
   $Id: sdl_gfx.pas,v 1.3 2007/05/29 21:31:04 savage Exp $
 
@@ -22,11 +24,19 @@ unit sdl_gfx;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$IFDEF MORPHOS}
+  Amiga.Core.Exec,
+{$ENDIF}
+  Api.Sdl;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 {$IFDEF MORPHOS}
   exec,
 {$ENDIF}
   sdl;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$IFDEF WINDOWS}
@@ -701,4 +711,4 @@ cdecl; external {$IFDEF __GPC__}name 'zoomSurfaceSize'{$ELSE} SDLgfxLibName{$END
 
 implementation
 
-end.
+end.

packages/sdl/src/sdl_image.pas

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit sdl_image;
+{$ENDIF FPC_DOTTEDUNITS}
 {
   $Id: sdl_image.pas,v 1.14 2007/05/29 21:31:13 savage Exp $
   
@@ -133,6 +135,16 @@ unit sdl_image;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$IFDEF __GPC__}
+  gpc,
+{$ENDIF}
+{$IFDEF MORPHOS}
+  Amiga.Core.Exec,
+{$ENDIF}
+  Api.Sdl;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 {$IFDEF __GPC__}
   gpc,
@@ -141,6 +153,7 @@ uses
   exec,
 {$ENDIF}
   sdl;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$IFDEF WINDOWS}

packages/sdl/src/sdl_mixer.pas

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit sdl_mixer;
+{$ENDIF FPC_DOTTEDUNITS}
 {******************************************************************************}
 {
   $Id: sdl_mixer.pas,v 1.18 2007/05/29 21:31:44 savage Exp $
@@ -153,6 +155,21 @@ unit sdl_mixer;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$IFDEF __GPC__}
+  gpc,
+{$ENDIF}
+{$IFNDEF DARWIN}
+{$IFNDEF no_smpeg}
+  Api.Sdl.SMpeg,
+{$ENDIF}
+{$ENDIF}
+{$IFDEF MORPHOS}
+  Amiga.Core.Exec,
+{$ENDIF}
+  Api.Sdl;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 {$IFDEF __GPC__}
   gpc,
@@ -166,6 +183,7 @@ uses
   exec,
 {$ENDIF}
   sdl;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$IFDEF WINDOWS}
@@ -1145,4 +1163,4 @@ begin
   result := SDL_GetError;
 end;
 
-end.
+end.

packages/sdl/src/sdl_mixer_nosmpeg.pas

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit sdl_mixer_nosmpeg;
+{$ENDIF FPC_DOTTEDUNITS}
 {******************************************************************************}
 { Copy of SDL_Mixer without smpeg dependency and mp3 support                    }
 {******************************************************************************}
@@ -7,6 +9,16 @@ unit sdl_mixer_nosmpeg;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$IFDEF __GPC__}
+  gpc,
+{$ENDIF}
+{$IFDEF MORPHOS}
+  Amiga.Core.Exec,
+{$ENDIF}
+  Api.Sdl;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 {$IFDEF __GPC__}
   gpc,
@@ -15,6 +27,7 @@ uses
   exec,
 {$ENDIF}
   sdl;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$IFDEF WINDOWS}

packages/sdl/src/sdl_net.pas

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit sdl_net;
+{$ENDIF FPC_DOTTEDUNITS}
 {******************************************************************************}
 {
   $Id: sdl_net.pas,v 1.7 2005/01/01 02:14:21 savage Exp $
@@ -115,6 +117,23 @@ unit sdl_net;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$IFDEF __GPC__}
+  gpc,
+{$ENDIF}
+
+{$IFDEF Windows}
+{$IFNDEF __GPC__}
+  WinApi.Windows,
+{$ENDIF}
+{$ENDIF}
+
+{$IFDEF MORPHOS}
+  Amiga.Core.Exec,
+{$ENDIF}
+  Api.Sdl;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 {$IFDEF __GPC__}
   gpc,
@@ -130,6 +149,7 @@ uses
   exec,
 {$ENDIF}
   sdl;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$IFDEF windows}

packages/sdl/src/sdl_ttf.pas

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit sdl_ttf;
+{$ENDIF FPC_DOTTEDUNITS}
 {
   $Id: sdl_ttf.pas,v 1.18 2007/06/01 11:16:33 savage Exp $
 
@@ -162,6 +164,22 @@ unit sdl_ttf;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$IFDEF __GPC__}
+  gpc,
+{$ENDIF}
+
+{$IFDEF Windows}
+  {$IFNDEF __GPC__}
+  WinApi.Windows,
+  {$ENDIF}
+{$ENDIF}
+{$IFDEF MORPHOS}
+  Amiga.Core.Exec,
+{$ENDIF}
+  Api.Sdl;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 {$IFDEF __GPC__}
   gpc,
@@ -176,6 +194,7 @@ uses
   exec,
 {$ENDIF}
   sdl;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$IFDEF WINDOWS}

packages/sdl/src/sdlutils.pas

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit sdlutils;
+{$ENDIF FPC_DOTTEDUNITS}
 {
   $Id: sdlutils.pas,v 1.5 2006/11/19 18:56:44 savage Exp $
 
@@ -129,6 +131,17 @@ interface
 
 {$I jedi-sdl.inc}
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$IFDEF Unix}
+  System.Types,
+{$IFNDEF DARWIN}
+  Api.X11.Xlib,
+{$ENDIF}
+{$ENDIF}
+  System.SysUtils,
+  Api.Sdl;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 {$IFDEF UNIX}
   Types,
@@ -138,6 +151,7 @@ uses
 {$ENDIF}
   SysUtils,
   sdl;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
   TGradientStyle = ( gsHorizontal, gsVertical );
@@ -251,8 +265,13 @@ function SDL_ClipLine( var x1, y1, x2, y2 : Integer; ClipRect : PSDL_Rect ) : bo
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Math;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Math;
+{$ENDIF FPC_DOTTEDUNITS}
 
 function SDL_PixelTest( SrcSurface1 : PSDL_Surface; SrcRect1 : PSDL_Rect; SrcSurface2 :
   PSDL_Surface; SrcRect2 : PSDL_Rect; Left1, Top1, Left2, Top2 : integer ) : boolean;

packages/sdl/src/smpeg.pas

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit smpeg;
+{$ENDIF FPC_DOTTEDUNITS}
 {******************************************************************************}
 {
   $Id: smpeg.pas,v 1.7 2004/08/14 22:54:30 savage Exp $
@@ -130,6 +132,16 @@ unit smpeg;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$IFDEF __GPC__}
+  gpc,
+{$ENDIF}
+{$IFDEF MORPHOS}
+  Amiga.Core.Exec,
+{$ENDIF}
+  Api.Sdl;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 {$IFDEF __GPC__}
   gpc,
@@ -138,6 +150,7 @@ uses
   exec,
 {$ENDIF}
   sdl;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$IFDEF windows}