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 {$ENDIF} {FPC}
  55
  56 {$IFDEF LINUX}
  57 {$DEFINE UNIX}
  58 {$ENDIF}
  59
  60 {$IFDEF ver70}
  61    {$IFDEF Windows}
  62      {$DEFINE Win16}
  63    {$ENDIF Windows}
  64    {$IFDEF MSDOS}
  65      {$DEFINE NO_EXPORTS}
  66    {$ENDIF MSDOS}
  67    {$IFDEF DPMI}
  68      {$DEFINE BP_DPMI}
  69    {$ENDIF}
  70    {$DEFINE OS_16_BIT}
  71    {$DEFINE __OS_DOS__}
  72 {$ENDIF ver70}
  73
  74 {$IFDEF ver80}
  75    {$DEFINE Delphi}      {Delphi 1.x}
  76    {$DEFINE Delphi16}
  77    {$DEFINE Win16}
  78    {$DEFINE OS_16_BIT}
  79    {$DEFINE __OS_DOS__}
  80 {$ENDIF ver80}
  81
  82 {$IFDEF ver90}
  83    {$DEFINE Delphi}      {Delphi 2.x}
  84    {$DEFINE WIN32}
  85    {$DEFINE WINDOWS}
  86 {$ENDIF ver90}
  87
  88 {$IFDEF ver100}
  89    {$DEFINE Delphi}      {Delphi 3.x}
  90    {$DEFINE WIN32}
  91    {$DEFINE WINDOWS}
  92 {$ENDIF ver100}
  93
  94 {$IFDEF ver93}
  95    {$DEFINE Delphi}      {C++ Builder 1.x}
  96    {$DEFINE WINDOWS}
  97 {$ENDIF ver93}
  98
  99 {$IFDEF ver110}
 100    {$DEFINE Delphi}      {C++ Builder 3.x}
 101    {$DEFINE WINDOWS}
 102 {$ENDIF ver110}
 103
 104 {$IFDEF ver120}
 105    {$DEFINE Delphi}      {Delphi 4.x}
 106    {$DEFINE Delphi4UP}
 107    {$DEFINE Has_Int64}
 108    {$DEFINE WINDOWS}
 109 {$ENDIF ver120}
 110
 111 {$IFDEF ver130}
 112    {$DEFINE Delphi}      {Delphi / C++ Builder 5.x}
 113    {$DEFINE Delphi4UP}
 114    {$DEFINE Delphi5UP}
 115    {$DEFINE Has_Int64}
 116    {$DEFINE WINDOWS}
 117 {$ENDIF ver130}
 118
 119 {$IFDEF ver140}
 120    {$DEFINE Delphi}      {Delphi / C++ Builder 6.x}
 121    {$DEFINE Delphi4UP}
 122    {$DEFINE Delphi5UP}
 123    {$DEFINE Delphi6UP}
 124    {$DEFINE Has_Int64}
 125    {$DEFINE HAS_TYPES}
 126 {$ENDIF ver140}
 127
 128 {$IFDEF ver150}
 129    {$DEFINE Delphi}      {Delphi 7.x}
 130    {$DEFINE Delphi4UP}
 131    {$DEFINE Delphi5UP}
 132    {$DEFINE Delphi6UP}
 133    {$DEFINE Delphi7UP}
 134    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 135    {$DEFINE Has_Int64}
 136    {$DEFINE Has_UInt64}
 137    {$DEFINE Has_Native}
 138    {$DEFINE HAS_TYPES}
 139 {$ENDIF ver150}
 140
 141 {$IFDEF ver160}
 142    {$DEFINE Delphi}      {Delphi 8.x}
 143    {$DEFINE Delphi4UP}
 144    {$DEFINE Delphi5UP}
 145    {$DEFINE Delphi6UP}
 146    {$DEFINE Delphi7UP}
 147    {$DEFINE Delphi8UP}
 148    {$DEFINE Has_Int64}
 149    {$DEFINE Has_UInt64}
 150    {$DEFINE Has_Native}
 151    {$DEFINE HAS_TYPES}
 152 {$ENDIF ver160}
 153
 154 {$IFDEF ver170}
 155    {$DEFINE Delphi}      {Delphi / C++ Builder 2005}
 156    {$DEFINE Delphi4UP}
 157    {$DEFINE Delphi5UP}
 158    {$DEFINE Delphi6UP}
 159    {$DEFINE Delphi7UP}
 160    {$DEFINE Delphi8UP}
 161    {$DEFINE Delphi9UP}
 162    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 163    {$DEFINE Has_Int64}
 164    {$DEFINE Has_UInt64}
 165    {$DEFINE Has_Native}
 166    {$DEFINE HAS_TYPES}
 167 {$ENDIF ver170}
 168
 169 {$IFDEF ver180}
 170    {$DEFINE Delphi}      {Delphi / C++ Builder 2006 / 2007}
 171    {$DEFINE Delphi4UP}
 172    {$DEFINE Delphi5UP}
 173    {$DEFINE Delphi6UP}
 174    {$DEFINE Delphi7UP}
 175    {$DEFINE Delphi8UP}
 176    {$DEFINE Delphi9UP}
 177    {$DEFINE Delphi10UP}
 178    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 179    {$DEFINE Has_Int64}
 180    {$DEFINE Has_UInt64}
 181    {$DEFINE Has_Native}
 182    {$DEFINE HAS_TYPES}
 183 {$ENDIF ver180}
 184
 185 {$IFDEF ver185}
 186    {$DEFINE Delphi}      {Delphi / C++ Builder 2007}
 187    {$DEFINE Delphi4UP}
 188    {$DEFINE Delphi5UP}
 189    {$DEFINE Delphi6UP}
 190    {$DEFINE Delphi7UP}
 191    {$DEFINE Delphi8UP}
 192    {$DEFINE Delphi9UP}
 193    {$DEFINE Delphi10UP}
 194    {$DEFINE Delphi11UP}
 195    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 196    {$DEFINE Has_Int64}
 197    {$DEFINE Has_UInt64}
 198    {$DEFINE Has_Native}
 199    {$DEFINE HAS_TYPES}
 200 {$ENDIF ver185}
 201
 202 {$IFDEF ver190}
 203    {$DEFINE Delphi}      {Delphi / C++ Builder 2007 }
 204    {$DEFINE Delphi4UP}
 205    {$DEFINE Delphi5UP}
 206    {$DEFINE Delphi6UP}
 207    {$DEFINE Delphi7UP}
 208    {$DEFINE Delphi8UP}
 209    {$DEFINE Delphi9UP}
 210    {$DEFINE Delphi10UP}
 211    {$DEFINE Delphi11UP}
 212    {$DEFINE Delphi12UP}
 213    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 214    {$DEFINE Has_Int64}
 215    {$DEFINE Has_UInt64}
 216    {$DEFINE Has_Native}
 217    {$DEFINE HAS_TYPES}
 218 {$ENDIF ver190}
 219
 220 {$IFDEF ver200}
 221    {$DEFINE Delphi}      {Delphi / C++ Builder 2009 }
 222    {$DEFINE Delphi4UP}
 223    {$DEFINE Delphi5UP}
 224    {$DEFINE Delphi6UP}
 225    {$DEFINE Delphi7UP}
 226    {$DEFINE Delphi8UP}
 227    {$DEFINE Delphi9UP}
 228    {$DEFINE Delphi10UP}
 229    {$DEFINE Delphi11UP}
 230    {$DEFINE Delphi12UP}
 231    {$DEFINE Delphi13UP}
 232    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 233    {$DEFINE Has_Int64}
 234    {$DEFINE Has_UInt64}
 235    {$DEFINE Has_Native}
 236    {$DEFINE HAS_TYPES}
 237 {$ENDIF ver200}
 238
 239 {$IFDEF ver210}
 240    {$DEFINE Delphi}      {Delphi / C++ Builder 2010}
 241    {$DEFINE Delphi4UP}
 242    {$DEFINE Delphi5UP}
 243    {$DEFINE Delphi6UP}
 244    {$DEFINE Delphi7UP}
 245    {$DEFINE Delphi8UP}
 246    {$DEFINE Delphi9UP}
 247    {$DEFINE Delphi10UP}
 248    {$DEFINE Delphi11UP}
 249    {$DEFINE Delphi12UP}
 250    {$DEFINE Delphi13UP}
 251    {$DEFINE Delphi14UP}
 252    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 253    {$DEFINE Has_Int64}
 254    {$DEFINE Has_UInt64}
 255    {$DEFINE Has_Native}
 256    {$DEFINE HAS_TYPES}
 257 {$ENDIF ver210}
 258
 259 {$IFDEF ver220}
 260    {$DEFINE Delphi}      {Delphi / C++ Builder XE}
 261    {$DEFINE Delphi4UP}
 262    {$DEFINE Delphi5UP}
 263    {$DEFINE Delphi6UP}
 264    {$DEFINE Delphi7UP}
 265    {$DEFINE Delphi8UP}
 266    {$DEFINE Delphi9UP}
 267    {$DEFINE Delphi10UP}
 268    {$DEFINE Delphi11UP}
 269    {$DEFINE Delphi12UP}
 270    {$DEFINE Delphi13UP}
 271    {$DEFINE Delphi14UP}
 272    {$DEFINE Delphi15UP}
 273    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 274    {$DEFINE Has_Int64}
 275    {$DEFINE Has_UInt64}
 276    {$DEFINE Has_Native}
 277    {$DEFINE HAS_TYPES}
 278 {$ENDIF ver220}
 279
 280 {$IFDEF ver230}
 281    {$DEFINE Delphi}      {Delphi / C++ Builder XE2}
 282    {$DEFINE Delphi4UP}
 283    {$DEFINE Delphi5UP}
 284    {$DEFINE Delphi6UP}
 285    {$DEFINE Delphi7UP}
 286    {$DEFINE Delphi8UP}
 287    {$DEFINE Delphi9UP}
 288    {$DEFINE Delphi10UP}
 289    {$DEFINE Delphi11UP}
 290    {$DEFINE Delphi12UP}
 291    {$DEFINE Delphi13UP}
 292    {$DEFINE Delphi14UP}
 293    {$DEFINE Delphi15UP}
 294    {$DEFINE Delphi16UP}
 295    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 296    {$DEFINE Has_Int64}
 297    {$DEFINE Has_UInt64}
 298    {$DEFINE Has_Native}
 299    {$DEFINE HAS_TYPES}
 300 {$ENDIF ver230}
 301
 302 {$IFDEF ver240}
 303    {$DEFINE Delphi}      {Delphi / C++ Builder XE4}
 304    {$DEFINE Delphi4UP}
 305    {$DEFINE Delphi5UP}
 306    {$DEFINE Delphi6UP}
 307    {$DEFINE Delphi7UP}
 308    {$DEFINE Delphi8UP}
 309    {$DEFINE Delphi9UP}
 310    {$DEFINE Delphi10UP}
 311    {$DEFINE Delphi11UP}
 312    {$DEFINE Delphi12UP}
 313    {$DEFINE Delphi13UP}
 314    {$DEFINE Delphi14UP}
 315    {$DEFINE Delphi15UP}
 316    {$DEFINE Delphi16UP}
 317    {$DEFINE Delphi17UP}
 318    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types}
 319    {$DEFINE Has_Int64}
 320    {$DEFINE Has_UInt64}
 321    {$DEFINE Has_Native}
 322    {$DEFINE HAS_TYPES}
 323 {$ENDIF ver240}
 324
 325 {$IFDEF UNIX}
 326   {$ifdef VER140}    // Kylix 1 & 2
 327     {$DEFINE KYLIX}
 328     {$DEFINE KYLIX1UP}
 329     {$DEFINE KYLIX2UP}
 330     {$DEFINE HAS_TYPES}
 331   {$endif}
 332
 333   {$ifdef VER150}   // Kylix 3
 334     {$DEFINE KYLIX}
 335     {$DEFINE KYLIX1UP}
 336     {$DEFINE KYLIX2UP}
 337     {$DEFINE KYLIX3UP}
 338     {$DEFINE HAS_TYPES}
 339   {$endif}
 340 {$ENDIF UNIX}
 341
 342 {*************** define 16/32/64 Bit ********************}
 343
 344 {$IFDEF WIN16}
 345   {$DEFINE 16BIT}
 346   {$DEFINE WINDOWS}
 347 {$ELSE}
 348   {$IFDEF WIN32}
 349     {$DEFINE 32BIT}
 350     {$DEFINE WINDOWS}
 351   {$ELSE}
 352     {$IFDEF WIN64}
 353       {$DEFINE 64BIT}
 354       {$DEFINE WINDOWS}
 355     {$ELSE}
 356       //TODO!!
 357       {$DEFINE 32BIT}
 358     {$ENDIF}
 359   {$ENDIF}
 360 {$ENDIF}
 361
 362 {$IFDEF VirtualPascal} {  Virtual Pascal 2.x }
 363    {$DEFINE Delphi}    {  Use Delphi Syntax }
 364    {$DEFINE VP2}
 365    {&Delphi+}
 366 {$ENDIF VirtualPascal}
 367
 368 {$IFDEF Delphi}
 369   {$DEFINE USE_STDCALL}
 370   {$IFDEF 32Bit}
 371     {$DEFINE DELPHI32}
 372   {$ELSE}
 373     {$IFDEF 64Bit}
 374           {$DEFINE DELPHI64}
 375         {$ELSE}
 376           {$DEFINE DELPHI16}
 377         {$ENDIF}
 378   {$ENDIF}
 379   //{$ALIGN ON}
 380 {$ENDIF Delphi}
 381
 382 {$IFDEF FPC}
 383   {$MODE Delphi}          { use Delphi compatibility mode }
 384   {$H+}
 385   {$PACKRECORDS C}        // Added for record
 386   {$MACRO ON}             // Added For OpenGL
 387   {$DEFINE Delphi}
 388   {$DEFINE UseAT}
 389   {$UNDEF USE_STDCALL}
 390   {$DEFINE OS_BigMem}
 391   {$DEFINE NO_EXPORTS}
 392   {$DEFINE Has_UInt64}
 393   {$DEFINE Has_Int64}
 394   {$DEFINE Has_Native}
 395   {$DEFINE NOCRT}
 396   {$IFDEF UNIX}
 397      {$DEFINE fpc_unix}
 398   {$ELSE}
 399      {$DEFINE __OS_DOS__}
 400   {$ENDIF}
 401   {$IFDEF WIN32}
 402    {$DEFINE UseWin}
 403   {$ENDIF}
 404   {$DEFINE HAS_TYPES}
 405 {$ENDIF FPC}
 406
 407 {$IFDEF Win16}
 408   {$K+}   {smart callbacks}
 409 {$ENDIF Win16}
 410
 411 {$IFDEF OS2}
 412   {$UNDEF Windows}
 413   {$DEFINE UseWin}
 414   {$DEFINE OS_BigMem}
 415 {$ENDIF OS2}
 416
 417 {$IFDEF __TMT__}
 418   {$DEFINE OS_BigMem}
 419   {$DEFINE NO_EXPORTS}
 420   {$DEFINE __OS_DOS__}
 421   {$DEFINE UseAT}
 422   {$IFNDEF MSDOS}
 423     {$DEFINE USE_STDCALL}
 424   {$ENDIF}
 425
 426   {$IFDEF __WIN32__}
 427     {$DEFINE Win32}
 428     {$DEFINE UseWin}
 429     {$DEFINE NOCRT}
 430     {$DEFINE Win32}
 431     {$IFNDEF __CON__}
 432       {$DEFINE Windows}
 433     {$ENDIF}
 434   {$ENDIF}
 435
 436   {$A+}  // Word alignment data
 437   {$OA+} // Objects and structures align
 438 {$ENDIF}
 439
 440 {$IFDEF Win32}
 441   {$DEFINE OS_BigMem}
 442 {$ELSE Win32}
 443   {$IFDEF ver70}
 444     {$DEFINE assembler}
 445   {$ENDIF} { use 16-bit assembler! }
 446 {$ENDIF Win32}
 447
 448 { ************************** dos/dos-like platforms **************}
 449 {$IFDEF Windows}
 450    {$DEFINE __OS_DOS__}
 451    {$DEFINE UseWin}
 452    {$DEFINE MSWINDOWS}
 453 {$ENDIF Delphi}
 454
 455 {$IFDEF OS2}
 456    {$DEFINE __OS_DOS__}
 457    {$DEFINE Can_Use_DLL}
 458 {$ENDIF Delphi}
 459
 460 {$IFDEF UseWin}
 461    {$DEFINE Can_Use_DLL}
 462 {$ENDIF}
 463
 464 {$IFDEF Win16}
 465    {$DEFINE Can_Use_DLL}
 466 {$ENDIF}
 467
 468 {$IFDEF BP_DPMI}
 469    {$DEFINE Can_Use_DLL}
 470 {$ENDIF}
 471
 472 {$IFDEF USE_STDCALL}
 473    {$IFNDEF __TMT__}
 474      {$DEFINE BY_NAME}
 475    {$ENDIF}
 476 {$ENDIF}
 477
 478 {$IFNDEF ver70}
 479   {$UNDEF assembler}
 480 {$ENDIF}
 481
 482 {*************** define LITTLE ENDIAN platforms ********************}
 483
 484
 485 {$IFDEF Delphi}
 486   {$DEFINE IA32}
 487   {$DEFINE ENDIAN_LITTLE}
 488 {$ENDIF}
 489
 490 {$IFDEF KYLIX}
 491   {$DEFINE IA32}
 492 {$ENDIF}
 493
 494 {$IFDEF FPC}
 495   {$IFDEF FPC_LITTLE_ENDIAN}
 496     {$DEFINE IA32}
 497   {$ENDIF}
 498 {$ENDIF}