[Sdl4fp-users] SDL and GNU Pascal

[Andreas K. F. <li...@AK...>]

Hello sdl4fp-users,

As some of you might remember, I wanted to use the SDL also with GNU=20
Pascal in my project AKFQuiz. I tried to fiddle with the source code=20
of SDL4Freepascal. But there was too much code to change just to find
out how it works...

So I decided to leave SDL4fp away and implement the few things I need=20
=66rom scratch.

My project now is fully functional with GPC and SDL. It is not yet in
the released version, but you can check out the CVS as described on the
homepage (see link at the end of this mail).

Now I want to share my findings with you, so probably you can use it for
SDL4Freepascal...


First of all, the types for variables are very different. SDL4fp uses
"LongInt" for what is "int" in C - because LongInt happens to be 32Bit
wide in FPC. But in GPC a LongInt is "at least" :-) 64bit wide! So it=20
doesn't fit.=20

Older versions of GPC intentionally kept the variable types compatible=20
to their counterparts in C. Newer versions broke with that and introduced
speacial types, like CInteger or CLongInt.

Another difference to FPC is, that in GPC you have a more fine grained=20
access to determine attributes, so you have really control about the=20
size of variables.

Here is the code snipplet for the types (from my "qsys.pas"):

-----------------------------------------------------------------------
{$IfDef __GPC__}

  type=20
    Uint8  =3D Cardinal attribute (Size =3D  8);
    Uint16 =3D Cardinal attribute (Size =3D 16);
    Sint16 =3D Integer  attribute (Size =3D 16);
    Uint32 =3D Cardinal attribute (Size =3D 32);
    Sint32 =3D Integer  attribute (Size =3D 32);
    pByte  =3D ^Uint8;
 =20
  {$if __GPC_RELEASE__ < 20041218}
    type CInteger =3D Integer;
  {$EndIf} { __GPC_RELEASE__ }
 =20
{$Else} { not __GPC__ }

  type=20
    CInteger =3D LongInt; { @@@ for 32-Bit systems }
    CString  =3D PChar;
    Uint8    =3D byte;
    Uint16   =3D word;
    Sint16   =3D SmallInt;
    Uint32   =3D cardinal;
    Sint32   =3D LongInt;
    pByte    =3D ^Uint8;

{$EndIf} { not __GPC__ }
-----------------------------------------------------------------------

Note that you have to change "LongInt" to "CInteger" and "PChar"
to "CString" in SDL4fp.

SDL4fp links to the library by using the name 'SDL' after the "external"
modifier. This doesn't work in GPC (yet). In GPC you have to use the
compiler directive "{$L SDL}".=20
In FPC there's also a possability to use it in a similar way with
"{$LinkLib SDL}"... well it works, but not in every situation. So I
decided to keep the name after the external clause, but with "IfDef"s
around it. GPC compiles it without the IfDef, but there are lot of
warning messages then.

In FPC you must use the modifier "cdecl". In GPC that is the default,
so you don't need it there. You can however declare it with
"attribute(cdecl)", so you can simply write a macro to modify the "cdecl":
"{$Define cdecl attribute(cdecl)}".

C is case sensitive, while Pascal is not. So in GPC all Pascal identifiers
are converted to lowercase at an early stage, this includes the
procedure names. So you have a problem when your C identifiers need
uppercase letters. This can only be solved by using an attribute which
mentions the name again with its capitalisation: "name 'Example'". This
name isn't converted to lower case, since it's a string-constant.
FPC doesn't need that, but it doesn't harm there either.

putting everything together it looks like in this example:

  procedure SDL_WM_SetCaption(title, icon: CString); cdecl;
              external {$IfDef FPC}'SDL'{$EndIf} name 'SDL_WM_SetCaption';

Well I still have a problem with CString parameters. FPC needs a type
cast, while GPC doesn't accept a type cast here. I "solved" it again
with "IfDef"s. Does anybody know a better solution?


Please have a look at my source code for more information:
http://cvs.sv.nongnu.org/viewcvs/akfquiz/srcbin/?root=3Dakfquiz
The relevant units are "sdlgrph.pas" and "sdlsnd.pas".=20
The type definitions are in "qsys.pas".

If you use my findings in SDL4fp, it would be nice, if you would mention=20
me there as "AKFoerster".


Related Links:

GNU Pascal:      http://www.gnu-pascal.de/
Free Pascal:     http://www.freepascal.org/
SDL:             http://www.libsdl.org/
SDL4Freepascal:  http://sdl4fp.sourceforge.net/
AKFQuiz:         http://akfquiz.nongnu.org/

--=20
AKFoerster