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

* Dotted filenames for package sdl

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:07 +01:00 committed by Pierre Muller
parent 54029148f5
commit da86605e07
23 changed files with 253 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/sdl/namespaced/Api.Sdl.Gfx.pas Normal file
View File

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

3
packages/sdl/namespaced/Api.Sdl.Image.pas Normal file
View File

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

3
packages/sdl/namespaced/Api.Sdl.Logger.pas Normal file
View File

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

3
packages/sdl/namespaced/Api.Sdl.Mixer.NoSMpeg.pas Normal file
View File

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

3
packages/sdl/namespaced/Api.Sdl.Mixer.pas Normal file
View File

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

3
packages/sdl/namespaced/Api.Sdl.Net.pas Normal file
View File

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

3
packages/sdl/namespaced/Api.Sdl.SMpeg.pas Normal file
View File

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

3
packages/sdl/namespaced/Api.Sdl.Ttf.pas Normal file
View File

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

3
packages/sdl/namespaced/Api.Sdl.Utils.pas Normal file
View File

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

3
packages/sdl/namespaced/Api.Sdl.XmlParser.pas Normal file
View File

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

3
packages/sdl/namespaced/Api.Sdl.pas Normal file
View File

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

13
packages/sdl/namespaces.lst Normal file
View File

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

11
packages/sdl/src/libxmlparser.pas
View File

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

10
packages/sdl/src/logger.pas
View File

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

66
packages/sdl/src/sdl.pas
View File

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

12
packages/sdl/src/sdl_gfx.pas
View File

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

13
packages/sdl/src/sdl_image.pas
View File

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

20
packages/sdl/src/sdl_mixer.pas
View File

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

13
packages/sdl/src/sdl_mixer_nosmpeg.pas
View File

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

20
packages/sdl/src/sdl_net.pas
View File

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

19
packages/sdl/src/sdl_ttf.pas
View File

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

19
packages/sdl/src/sdlutils.pas
View File

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

13
packages/sdl/src/smpeg.pas
View File

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