LZScene

Форк
0
/
delphiode.inc 
248 строк · 9.0 Кб
1
{******************************************************************************}
2
{                                                                              }
3
{       Borland Delphi SDL - Simple DirectMedia Layer                          }
4
{       Global Conditional Definitions for JEDI-SDL cross-compilation          }
5
{                                                                              }
6
{                                                                              }
7
{ The initial developer of this Pascal code was :                              }
8
{  Prof. Abimbola Olowofoyeku <http://www.bigfoot.com/~African_Chief/>         }
9
{                                                                              }
10
{ Portions created by Prof. Abimbola Olowofoyeku are                           }
11
{ Copyright (C) 2000 - 2100 Prof. Abimbola Olowofoyeku.                        }
12
{                                                                              }
13
{                                                                              }
14
{ Contributor(s)                                                               }
15
{ --------------                                                               }
16
{  Prof. Abimbola Olowofoyeku <http://www.bigfoot.com/~African_Chief/>         }
17
{  Dominqiue Louis <Dominique@SavageSoftware.com.au>                           }
18
{                                                                              }
19
{ Obtained through:                                                            }
20
{ Joint Endeavour of Delphi Innovators ( Project JEDI )                        }
21
{                                                                              }
22
{ You may retrieve the latest version of this file at the Project              }
23
{ JEDI home page, located at http://delphi-jedi.org                            }
24
{                                                                              }
25
{ The contents of this file are used with permission, subject to               }
26
{ the Mozilla Public License Version 1.1 (the "License"); you may              }
27
{ not use this file except in compliance with the License. You may             }
28
{ obtain a copy of the License at                                              }
29
{ http://www.mozilla.org/MPL/MPL-1.1.html                                      }
30
{                                                                              }
31
{ Software distributed under the License is distributed on an                  }
32
{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or               }
33
{ implied. See the License for the specific language governing                 }
34
{ rights and limitations under the License.                                    }
35
{                                                                              }
36
{ Description                                                                  }
37
{ -----------                                                                  }
38
{ This code has been copied from...                                            }
39
{ Global Conditional Definitions for Chief's UNZIP package                     }
40
{ By Prof. Abimbola Olowofoyeku (The African Chief)                            }
41
{          http://www.bigfoot.com/~African_Chief/                              }
42
{                                                                              }
43
{                                                                              }
44
{ Requires                                                                     }
45
{ --------                                                                     }
46
{   The SDL Runtime libraris on Win32  : SDL.dll on Linux : libSDL.so          }
47
{   They are available from...                                                 }
48
{   http://www.libsdl.org .                                                    }
49
{                                                                              }
50
{ Programming Notes                                                            }
51
{ -----------------                                                            }
52
{                                                                              }
53
{                                                                              }
54
{                                                                              }
55
{                                                                              }
56
{ Revision History                                                             }
57
{ ----------------                                                             }
58
{   2003-04-03   DL - Initial addition                                         }
59
{                                                                              }
60
{   2003-04-07   DL - Added Macro ON derective for FPC and OpenGL and removed  }
61
{                WEAKPACKAGE derective. WEAKPACKAGE should be set when         }
62
{                appropriate.                                                  }
63
{                                                                              }
64
{   2003-04-23 - DL : under instruction from Alexey Barkovoy I have added      }
65
{                          better TMT Pascal support and under instruction     }
66
{                          from Prof. Abimbola Olowofoyeku (The African Chief) }
67
{                          I have added better Gnu Pascal support              }
68
{                                                                              }
69
{   2004-01-19 - DL : Under instruction from Marco van de Voort, I have added  }
70
{                     Better FPC support for FreeBSD.                          }
71
{                                                                              }
72
{******************************************************************************}
73

74
{.$define Debug}           { uncomment for debugging }
75

76
{$IFNDEF FPC}
77
  {$IFDEF __GPC__}
78
    {$I-}
79
    {$W-}
80
    {$X+}
81
  {$ELSE} {__GPC__}
82
    {$IFDEF Debug}
83
      {$F+,D+,Q-,L+,R+,I-,S+,Y+,A+}
84
    {$ELSE}
85
      {$F+,Q-,R-,S-,I-,A+}
86
    {$ENDIF}
87
  {$ENDIF} {__GPC__}
88
{$ELSE}  {FPC}
89
  {$M+}
90
{$ENDIF} {FPC}
91

92
{$IFDEF LINUX}
93
{$DEFINE UNIX}
94
{$ENDIF}
95

96
{$IFDEF ver150}
97
   {$DEFINE Delphi}      {Delphi 7.x}
98
   {$DEFINE Delphi32}
99
   {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types in Delphi 7}
100
   {$DEFINE Has_Int64}
101
{$ENDIF ver150}
102
{$IFDEF VER150}
103
{$ENDIF}
104

105
{$IFDEF ver160}
106
   {$DEFINE Delphi}      {Delphi 8??}
107
   {$DEFINE Delphi32}
108
   {$DEFINE Has_Int64}
109
{$ENDIF ver160}
110

111
{$IFDEF ver170}
112
   {$DEFINE Delphi}      {Delphi 9??}
113
   {$DEFINE Delphi32}
114
   {$DEFINE Has_Int64}
115
{$ENDIF ver170}
116

117
{$IFDEF UNIX}
118
  {$ifdef VER150}
119
    {$define KYLIX}
120
  {$endif}
121

122
  {$ifdef VER140}
123
    {$define KYLIX}
124
  {$endif}
125

126
  {$ifdef VER140}
127
    {$define KYLIX}
128
  {$endif}
129
{$ENDIF UNIX}
130

131
{$IFDEF VirtualPascal} {  Virtual Pascal 2.x }
132
   {$DEFINE Delphi}    {  Use Delphi Syntax }
133
   {$DEFINE VP2}
134
   {&Delphi+}
135
{$ENDIF VirtualPascal}
136

137
{$IFDEF Delphi}
138
  {$DEFINE Windows}
139
  {$DEFINE USE_STDCALL}
140
{$ENDIF Delphi}
141

142
{$IFDEF FPC}
143
  {$MODE Delphi}          { use Delphi compatibility mode }
144
  {$H+}
145
  {$PACKRECORDS 4}        // Added for record
146
  {$MACRO ON}             // Added For OpenGL
147
  {$THREADING on}
148
  {$DEFINE Delphi}
149
  {$DEFINE UseAT}
150
  {$UNDEF USE_STDCALL}
151
  {$DEFINE OS_BigMem}
152
  {$DEFINE NO_EXPORTS}
153
  {$DEFINE Has_Int64}
154
  {$DEFINE NOCRT}
155
  {$IFDEF unix}
156
     {$DEFINE fpc_unix}
157
  {$ELSE}
158
     {$DEFINE __OS_DOS__}
159
  {$ENDIF}
160
  {$IFDEF WIN32}
161
   {$DEFINE UseWin}
162
  {$ENDIF}
163
{$ENDIF FPC}
164

165
{$IFDEF Win16}
166
  {$K+}   {smart callbacks}
167
{$ENDIF Win16}
168

169
 {$IFDEF OS2}
170
    {$UNDEF Windows}
171
    {$DEFINE UseWin}
172
    {$DEFINE OS_BigMem}
173
 {$ENDIF OS2}
174

175
{$IFDEF __GPC__}
176
  {$UNDEF UseWin}
177
  {$UNDEF USE_STDCALL}
178
  {$DEFINE OS_BigMem}
179
  {$DEFINE NO_EXPORTS}
180
  {$DEFINE NOCRT}
181
  {$DEFINE cdecl attribute(cdecl)}
182
{$ENDIF}
183

184
{$IFDEF __TMT__}
185
  {$DEFINE OS_BigMem}
186
  {$DEFINE NO_EXPORTS}
187
  {$DEFINE __OS_DOS__}
188
  {$DEFINE UseAT}
189
  {$IFNDEF MSDOS}
190
    {$DEFINE USE_STDCALL}
191
  {$ENDIF}
192

193
  {$IFDEF __WIN32__}
194
    {$DEFINE Win32}
195
    {$DEFINE UseWin}
196
    {$DEFINE NOCRT}
197
    {$DEFINE Win32}
198
    {$IFNDEF __CON__}
199
      {$DEFINE Windows}
200
    {$ENDIF}
201
  {$ENDIF}
202

203
  {$A+}  // Word alignment data
204
  {$OA+} // Objects and structures align
205
{$ENDIF}
206

207
{$IFDEF Win32}
208
  {$H-}                    { no long strings, please! }
209
  {$DEFINE OS_BigMem}
210
{$ELSE Win32}
211
  {$IFDEF ver70}
212
    {$DEFINE assembler}
213
  {$ENDIF} { use 16-bit assembler! }
214
{$ENDIF Win32}
215

216
{ ************************** dos/dos-like platforms **************}
217
{$IFDEF Windows}
218
   {$DEFINE __OS_DOS__}
219
   {$DEFINE UseWin}
220
   {$DEFINE MSWINDOWS}
221
{$ENDIF Delphi}
222

223
{$IFDEF OS2}
224
   {$DEFINE __OS_DOS__}
225
   {$DEFINE Can_Use_DLL}
226
{$ENDIF Delphi}
227

228
{$IFDEF UseWin}
229
   {$DEFINE Can_Use_DLL}
230
{$ENDIF}
231

232
{$IFDEF Win16}
233
   {$DEFINE Can_Use_DLL}
234
{$ENDIF}
235

236
{$IFDEF BP_DPMI}
237
   {$DEFINE Can_Use_DLL}
238
{$ENDIF}
239

240
{$IFDEF USE_STDCALL}
241
   {$IFNDEF __TMT__}
242
     {$DEFINE BY_NAME}
243
   {$ENDIF}
244
{$ENDIF}
245

246
{$IFNDEF ver70}
247
  {$UNDEF assembler}
248
{$ENDIF}
249

Использование cookies

Мы используем файлы cookie в соответствии с Политикой конфиденциальности и Политикой использования cookies.

Нажимая кнопку «Принимаю», Вы даете АО «СберТех» согласие на обработку Ваших персональных данных в целях совершенствования нашего веб-сайта и Сервиса GitVerse, а также повышения удобства их использования.

Запретить использование cookies Вы можете самостоятельно в настройках Вашего браузера.