src/lib/sdl2/jedi.inc

   1 {
   2   Simple DirectMedia Layer
   3   Copyright (C) 1997-2013 Sam Lantinga <slouken@libsdl.org>
   4
   5   Pascal-Header-Conversion
   6   Copyright (c) 2012/13 Tim Blume aka End
   7
   8   sdl.inc is based on the files:
   9     "begin_code.h",
  10     "close_code.h",
  11     "sdl_config.h",
  12     "sdl_config_windows.h",
  13     ...
  14   it defines some variables for several Pascal-Compilers and OS-versions.
  15
  16   It is based on mine updated version of jedi-sdl.inc from the SDL 1.2 Headers,
  17   they can be found at delphigl.com or on my github-repository:
  18
  19   https://github.com/ev1313/
  20
  21   This software is provided 'as-is', without any express or implied
  22   warranty.  In no event will the authors be held liable for any damages
  23   arising from the use of this software.
  24
  25   Permission is granted to anyone to use this software for any purpose,
  26   including commercial applications, and to alter it and redistribute it
  27   freely, subject to the following restrictions:
  28
  29   1. The origin of this software must not be misrepresented; you must not
  30      claim that you wrote the original software. If you use this software
  31      in a product, an acknowledgment in the product documentation would be
  32      appreciated but is not required.
  33   2. Altered source versions must be plainly marked as such, and must not be
  34      misrepresented as being the original software.
  35   3. This notice may not be removed or altered from any source distribution.
  36 }
  37
  38 {
  39   Changelog:
  40   ----------
  41   v. 1.63-stable; 16.09.13: since GPC isn't supported anymore, i've deleted it from here, too.
  42   v. 1.22-alpha; 24.07.13: fixed some bugs. special thanks to kotai from pascalgamedevelopment.com
  43   v. 1.00-alpha; 05.07.13: Initial Alpha-Release
  44 }
  45
  46 {.$define Debug}           { uncomment for debugging }
  47
  48 {$IFNDEF FPC}
  49   {$IFDEF Debug}
  50     {$F+,D+,Q-,L+,R+,I-,S+,Y+,A+}
  51   {$ELSE}
  52     {$F+,Q-,R-,S-,I-,A+}
  53   {$ENDIF}
  54 {$ELSE}
  55   {.$MODE DELPHI} //k8: not here
  56 {$ENDIF}
  57
  58 {$IFDEF LINUX}
  59 {$DEFINE UNIX}
  60 {$ENDIF}
  61
  62 {$IFDEF ver70}
  63    {$IFDEF Windows}
  64      {$DEFINE Win16}
  65    {$ENDIF Windows}
  66    {$IFDEF MSDOS}
  67      {$DEFINE NO_EXPORTS}
  68    {$ENDIF MSDOS}
  69    {$IFDEF DPMI}
  70      {$DEFINE BP_DPMI}
  71    {$ENDIF}
  72    {$DEFINE OS_16_BIT}
  73    {$DEFINE __OS_DOS__}
  74 {$ENDIF ver70}
  75
  76 {$IFDEF ver80}
  77    {$DEFINE Delphi}      {Delphi 1.x}
  78    {$DEFINE Delphi16}
  79    {$DEFINE Win16}
  80    {$DEFINE OS_16_BIT}
  81    {$DEFINE __OS_DOS__}
  82 {$ENDIF ver80}
  83
  84 {$IFDEF ver90}
  85    {$DEFINE Delphi}      {Delphi 2.x}
  86    {$DEFINE WIN32}
  87    {$DEFINE WINDOWS}
  88 {$ENDIF ver90}
  89
  90 {$IFDEF ver100}
  91    {$DEFINE Delphi}      {Delphi 3.x}
  92    {$DEFINE WIN32}
  93    {$DEFINE WINDOWS}
  94 {$ENDIF ver100}
  95
  96 {$IFDEF ver93}
  97    {$DEFINE Delphi}      {C++ Builder 1.x}
  98    {$DEFINE WINDOWS}
  99 {$ENDIF ver93}
 100
 101 {$IFDEF ver110}
 102    {$DEFINE Delphi}      {C++ Builder 3.x}
 103    {$DEFINE WINDOWS}
 104 {$ENDIF ver110}
 105
 106 {$IFDEF ver120}
 107    {$DEFINE Delphi}      {Delphi 4.x}
 108    {$DEFINE Delphi4UP}
 109    {$DEFINE Has_Int64}
 110    {$DEFINE WINDOWS}
 111 {$ENDIF ver120}
 112
 113 {$IFDEF ver130}
 114    {$DEFINE Delphi}      {Delphi / C++ Builder 5.x}
 115    {$DEFINE Delphi4UP}
 116    {$DEFINE Delphi5UP}
 117    {$DEFINE Has_Int64}
 118    {$DEFINE WINDOWS}
 119 {$ENDIF ver130}
 120
 121 {$IFDEF ver140}
 122    {$DEFINE Delphi}      {Delphi / C++ Builder 6.x}
 123    {$DEFINE Delphi4UP}
 124    {$DEFINE Delphi5UP}
 125    {$DEFINE Delphi6UP}
 126    {$DEFINE Has_Int64}
 127    {$DEFINE HAS_TYPES}
 128 {$ENDIF ver140}
 129
 130 {$IFDEF ver150}
 131    {$DEFINE Delphi}      {Delphi 7.x}
 132    {$DEFINE Delphi4UP}
 133    {$DEFINE Delphi5UP}
 134    {$DEFINE Delphi6UP}
 135    {$DEFINE Delphi7UP}
 136    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 137    {$DEFINE Has_Int64}
 138    {$DEFINE Has_UInt64}
 139    {$DEFINE Has_Native}
 140    {$DEFINE HAS_TYPES}
 141 {$ENDIF ver150}
 142
 143 {$IFDEF ver160}
 144    {$DEFINE Delphi}      {Delphi 8.x}
 145    {$DEFINE Delphi4UP}
 146    {$DEFINE Delphi5UP}
 147    {$DEFINE Delphi6UP}
 148    {$DEFINE Delphi7UP}
 149    {$DEFINE Delphi8UP}
 150    {$DEFINE Has_Int64}
 151    {$DEFINE Has_UInt64}
 152    {$DEFINE Has_Native}
 153    {$DEFINE HAS_TYPES}
 154 {$ENDIF ver160}
 155
 156 {$IFDEF ver170}
 157    {$DEFINE Delphi}      {Delphi / C++ Builder 2005}
 158    {$DEFINE Delphi4UP}
 159    {$DEFINE Delphi5UP}
 160    {$DEFINE Delphi6UP}
 161    {$DEFINE Delphi7UP}
 162    {$DEFINE Delphi8UP}
 163    {$DEFINE Delphi9UP}
 164    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 165    {$DEFINE Has_Int64}
 166    {$DEFINE Has_UInt64}
 167    {$DEFINE Has_Native}
 168    {$DEFINE HAS_TYPES}
 169 {$ENDIF ver170}
 170
 171 {$IFDEF ver180}
 172    {$DEFINE Delphi}      {Delphi / C++ Builder 2006 / 2007}
 173    {$DEFINE Delphi4UP}
 174    {$DEFINE Delphi5UP}
 175    {$DEFINE Delphi6UP}
 176    {$DEFINE Delphi7UP}
 177    {$DEFINE Delphi8UP}
 178    {$DEFINE Delphi9UP}
 179    {$DEFINE Delphi10UP}
 180    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 181    {$DEFINE Has_Int64}
 182    {$DEFINE Has_UInt64}
 183    {$DEFINE Has_Native}
 184    {$DEFINE HAS_TYPES}
 185 {$ENDIF ver180}
 186
 187 {$IFDEF ver185}
 188    {$DEFINE Delphi}      {Delphi / C++ Builder 2007}
 189    {$DEFINE Delphi4UP}
 190    {$DEFINE Delphi5UP}
 191    {$DEFINE Delphi6UP}
 192    {$DEFINE Delphi7UP}
 193    {$DEFINE Delphi8UP}
 194    {$DEFINE Delphi9UP}
 195    {$DEFINE Delphi10UP}
 196    {$DEFINE Delphi11UP}
 197    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 198    {$DEFINE Has_Int64}
 199    {$DEFINE Has_UInt64}
 200    {$DEFINE Has_Native}
 201    {$DEFINE HAS_TYPES}
 202 {$ENDIF ver185}
 203
 204 {$IFDEF ver190}
 205    {$DEFINE Delphi}      {Delphi / C++ Builder 2007 }
 206    {$DEFINE Delphi4UP}
 207    {$DEFINE Delphi5UP}
 208    {$DEFINE Delphi6UP}
 209    {$DEFINE Delphi7UP}
 210    {$DEFINE Delphi8UP}
 211    {$DEFINE Delphi9UP}
 212    {$DEFINE Delphi10UP}
 213    {$DEFINE Delphi11UP}
 214    {$DEFINE Delphi12UP}
 215    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 216    {$DEFINE Has_Int64}
 217    {$DEFINE Has_UInt64}
 218    {$DEFINE Has_Native}
 219    {$DEFINE HAS_TYPES}
 220 {$ENDIF ver190}
 221
 222 {$IFDEF ver200}
 223    {$DEFINE Delphi}      {Delphi / C++ Builder 2009 }
 224    {$DEFINE Delphi4UP}
 225    {$DEFINE Delphi5UP}
 226    {$DEFINE Delphi6UP}
 227    {$DEFINE Delphi7UP}
 228    {$DEFINE Delphi8UP}
 229    {$DEFINE Delphi9UP}
 230    {$DEFINE Delphi10UP}
 231    {$DEFINE Delphi11UP}
 232    {$DEFINE Delphi12UP}
 233    {$DEFINE Delphi13UP}
 234    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 235    {$DEFINE Has_Int64}
 236    {$DEFINE Has_UInt64}
 237    {$DEFINE Has_Native}
 238    {$DEFINE HAS_TYPES}
 239 {$ENDIF ver200}
 240
 241 {$IFDEF ver210}
 242    {$DEFINE Delphi}      {Delphi / C++ Builder 2010}
 243    {$DEFINE Delphi4UP}
 244    {$DEFINE Delphi5UP}
 245    {$DEFINE Delphi6UP}
 246    {$DEFINE Delphi7UP}
 247    {$DEFINE Delphi8UP}
 248    {$DEFINE Delphi9UP}
 249    {$DEFINE Delphi10UP}
 250    {$DEFINE Delphi11UP}
 251    {$DEFINE Delphi12UP}
 252    {$DEFINE Delphi13UP}
 253    {$DEFINE Delphi14UP}
 254    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 255    {$DEFINE Has_Int64}
 256    {$DEFINE Has_UInt64}
 257    {$DEFINE Has_Native}
 258    {$DEFINE HAS_TYPES}
 259 {$ENDIF ver210}
 260
 261 {$IFDEF ver220}
 262    {$DEFINE Delphi}      {Delphi / C++ Builder XE}
 263    {$DEFINE Delphi4UP}
 264    {$DEFINE Delphi5UP}
 265    {$DEFINE Delphi6UP}
 266    {$DEFINE Delphi7UP}
 267    {$DEFINE Delphi8UP}
 268    {$DEFINE Delphi9UP}
 269    {$DEFINE Delphi10UP}
 270    {$DEFINE Delphi11UP}
 271    {$DEFINE Delphi12UP}
 272    {$DEFINE Delphi13UP}
 273    {$DEFINE Delphi14UP}
 274    {$DEFINE Delphi15UP}
 275    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 276    {$DEFINE Has_Int64}
 277    {$DEFINE Has_UInt64}
 278    {$DEFINE Has_Native}
 279    {$DEFINE HAS_TYPES}
 280 {$ENDIF ver220}
 281
 282 {$IFDEF ver230}
 283    {$DEFINE Delphi}      {Delphi / C++ Builder XE2}
 284    {$DEFINE Delphi4UP}
 285    {$DEFINE Delphi5UP}
 286    {$DEFINE Delphi6UP}
 287    {$DEFINE Delphi7UP}
 288    {$DEFINE Delphi8UP}
 289    {$DEFINE Delphi9UP}
 290    {$DEFINE Delphi10UP}
 291    {$DEFINE Delphi11UP}
 292    {$DEFINE Delphi12UP}
 293    {$DEFINE Delphi13UP}
 294    {$DEFINE Delphi14UP}
 295    {$DEFINE Delphi15UP}
 296    {$DEFINE Delphi16UP}
 297    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 298    {$DEFINE Has_Int64}
 299    {$DEFINE Has_UInt64}
 300    {$DEFINE Has_Native}
 301    {$DEFINE HAS_TYPES}
 302 {$ENDIF ver230}
 303
 304 {$IFDEF ver240}
 305    {$DEFINE Delphi}      {Delphi / C++ Builder XE4}
 306    {$DEFINE Delphi4UP}
 307    {$DEFINE Delphi5UP}
 308    {$DEFINE Delphi6UP}
 309    {$DEFINE Delphi7UP}
 310    {$DEFINE Delphi8UP}
 311    {$DEFINE Delphi9UP}
 312    {$DEFINE Delphi10UP}
 313    {$DEFINE Delphi11UP}
 314    {$DEFINE Delphi12UP}
 315    {$DEFINE Delphi13UP}
 316    {$DEFINE Delphi14UP}
 317    {$DEFINE Delphi15UP}
 318    {$DEFINE Delphi16UP}
 319    {$DEFINE Delphi17UP}
 320    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 321    {$DEFINE Has_Int64}
 322    {$DEFINE Has_UInt64}
 323    {$DEFINE Has_Native}
 324    {$DEFINE HAS_TYPES}
 325 {$ENDIF ver240}
 326
 327 {$IFDEF ver250}
 328    {$DEFINE Delphi}      {Delphi / C++ Builder XE5}
 329    {$DEFINE Delphi4UP}
 330    {$DEFINE Delphi5UP}
 331    {$DEFINE Delphi6UP}
 332    {$DEFINE Delphi7UP}
 333    {$DEFINE Delphi8UP}
 334    {$DEFINE Delphi9UP}
 335    {$DEFINE Delphi10UP}
 336    {$DEFINE Delphi11UP}
 337    {$DEFINE Delphi12UP}
 338    {$DEFINE Delphi13UP}
 339    {$DEFINE Delphi14UP}
 340    {$DEFINE Delphi15UP}
 341    {$DEFINE Delphi16UP}
 342    {$DEFINE Delphi17UP}
 343    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 344    {$DEFINE Has_Int64}
 345    {$DEFINE Has_UInt64}
 346    {$DEFINE Has_Native}
 347    {$DEFINE HAS_TYPES}
 348 {$ENDIF ver250}
 349
 350 {$IFDEF ver260}
 351    {$DEFINE Delphi}      {Delphi / C++ Builder XE6}
 352    {$DEFINE Delphi4UP}
 353    {$DEFINE Delphi5UP}
 354    {$DEFINE Delphi6UP}
 355    {$DEFINE Delphi7UP}
 356    {$DEFINE Delphi8UP}
 357    {$DEFINE Delphi9UP}
 358    {$DEFINE Delphi10UP}
 359    {$DEFINE Delphi11UP}
 360    {$DEFINE Delphi12UP}
 361    {$DEFINE Delphi13UP}
 362    {$DEFINE Delphi14UP}
 363    {$DEFINE Delphi15UP}
 364    {$DEFINE Delphi16UP}
 365    {$DEFINE Delphi17UP}
 366    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 367    {$DEFINE Has_Int64}
 368    {$DEFINE Has_UInt64}
 369    {$DEFINE Has_Native}
 370    {$DEFINE HAS_TYPES}
 371 {$ENDIF ver260}
 372
 373 {$IFDEF ver270}
 374    {$DEFINE Delphi}      {Delphi / C++ Builder XE7}
 375    {$DEFINE Delphi4UP}
 376    {$DEFINE Delphi5UP}
 377    {$DEFINE Delphi6UP}
 378    {$DEFINE Delphi7UP}
 379    {$DEFINE Delphi8UP}
 380    {$DEFINE Delphi9UP}
 381    {$DEFINE Delphi10UP}
 382    {$DEFINE Delphi11UP}
 383    {$DEFINE Delphi12UP}
 384    {$DEFINE Delphi13UP}
 385    {$DEFINE Delphi14UP}
 386    {$DEFINE Delphi15UP}
 387    {$DEFINE Delphi16UP}
 388    {$DEFINE Delphi17UP}
 389    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 390    {$DEFINE Has_Int64}
 391    {$DEFINE Has_UInt64}
 392    {$DEFINE Has_Native}
 393    {$DEFINE HAS_TYPES}
 394 {$ENDIF ver270}
 395
 396 {*************** define 16/32/64 Bit ********************}
 397
 398 {$IFDEF WIN16}
 399   {$DEFINE 16BIT}
 400   {$DEFINE WINDOWS}
 401 {$ELSE}
 402   {$IFDEF WIN32}
 403     {$DEFINE 32BIT}
 404     {$DEFINE WINDOWS}
 405   {$ELSE}
 406     {$IFDEF WIN64}
 407       {$DEFINE 64BIT}
 408       {$DEFINE WINDOWS}
 409     {$ELSE}
 410       //TODO!!
 411       {$DEFINE 32BIT}
 412     {$ENDIF}
 413   {$ENDIF}
 414 {$ENDIF}
 415
 416 {$IFDEF Delphi}
 417   {$DEFINE USE_STDCALL}
 418   {$IFDEF 32Bit}
 419     {$DEFINE DELPHI32}
 420   {$ELSE}
 421     {$IFDEF 64Bit}
 422     {$DEFINE DELPHI64}
 423   {$ELSE}
 424     {$DEFINE DELPHI16}
 425   {$ENDIF}
 426   {$ENDIF}
 427   //{$ALIGN ON}
 428 {$ENDIF Delphi}
 429
 430 {$IFDEF FPC}
 431   {$H+}
 432   {$PACKRECORDS C}        // Added for record
 433   {$MACRO ON}             // Added For OpenGL
 434   {$DEFINE Delphi}
 435   {$DEFINE UseAT}
 436   {$UNDEF USE_STDCALL}
 437   {$DEFINE OS_BigMem}
 438   {$DEFINE NO_EXPORTS}
 439   {$DEFINE Has_UInt64}
 440   {$DEFINE Has_Int64}
 441   {$DEFINE Has_Native}
 442   {$DEFINE NOCRT}
 443   {$IFDEF UNIX}
 444      {$DEFINE fpc_unix}
 445   {$ELSE}
 446      {$DEFINE __OS_DOS__}
 447   {$ENDIF}
 448   {$IFDEF WIN32}
 449    {$DEFINE UseWin}
 450   {$ENDIF}
 451   {$DEFINE HAS_TYPES}
 452 {$ENDIF FPC}
 453
 454 {$IFDEF Win16}
 455   {$K+}   {smart callbacks}
 456 {$ENDIF Win16}
 457
 458 {$IFDEF Win32}
 459   {$DEFINE OS_BigMem}
 460 {$ENDIF Win32}
 461
 462 { ************************** dos/dos-like platforms **************}
 463 {$IFDEF Windows}
 464    {$DEFINE __OS_DOS__}
 465    {$DEFINE UseWin}
 466    {$DEFINE MSWINDOWS}
 467 {$ENDIF Delphi}
 468
 469 {$IFDEF OS2}
 470    {$DEFINE __OS_DOS__}
 471    {$DEFINE Can_Use_DLL}
 472 {$ENDIF Delphi}
 473
 474 {$IFDEF UseWin}
 475    {$DEFINE Can_Use_DLL}
 476 {$ENDIF}
 477
 478 {$IFDEF Win16}
 479    {$DEFINE Can_Use_DLL}
 480 {$ENDIF}
 481
 482 {$IFDEF BP_DPMI}
 483    {$DEFINE Can_Use_DLL}
 484 {$ENDIF}
 485
 486 {$IFDEF USE_STDCALL}
 487   {$DEFINE BY_NAME}
 488 {$ENDIF}
 489
 490 {*************** define LITTLE ENDIAN platforms ********************}
 491
 492
 493 {$IFDEF Delphi}
 494   {$DEFINE IA32}
 495 {$ENDIF}
 496
 497 {$IFDEF FPC}
 498   {$IFDEF FPC_LITTLE_ENDIAN}
 499     {$DEFINE IA32}
 500   {$ENDIF}
 501 {$ENDIF}