-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathwindowsonly.inc
More file actions
54 lines (46 loc) · 3 KB
/
Copy pathwindowsonly.inc
File metadata and controls
54 lines (46 loc) · 3 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
{$IFNDEF WINDOWSONLY_INC}
{$DEFINE WINDOWSONLY_INC}
{**************************************************************************************************}
{ }
{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License");}
{ you may not use this file except in compliance with the License. You may obtain a copy of the }
{ License at http://www.mozilla.org/MPL/ }
{ }
{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF }
{ ANY KIND, either express or implied. See the License for the specific language governing rights }
{ and limitations under the License. }
{ }
{ The Original Code is: windowsonly.inc, released on 2002-07-04. }
{ }
{ You may retrieve the latest version of this file at the JCL home page, }
{ located at https://github.com/project-jedi/jcl }
{ }
{**************************************************************************************************}
{ }
{ Last modified: $Date:: $ }
{ Revision: $Rev:: $ }
{ Author: $Author:: $ }
{ }
{**************************************************************************************************}
{$IFNDEF JEDI_INC}
ALERT_jedi_inc_missing
// This inc file depends on jedi.inc which has to
// be included first (usually indirectly through
// the inclusion of jcl.inc).
{$ENDIF ~JEDI_INC}
// Suppress platform warnings which are irrelevant
// because the including unit can only be compiled
// for the Windows platform anyway.
{$IFDEF SUPPORTS_PLATFORM_WARNINGS}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF SUPPORTS_PLATFORM_WARNINGS}
// Cause a compilation error for any platform except Windows.
{$IFNDEF MSWINDOWS}
{$IFDEF SUPPORTS_COMPILETIME_MESSAGES}
{$MESSAGE FATAL 'This unit is only supported on Windows!'}
{$ELSE}
'This unit is only supported on Windows!'
{$ENDIF SUPPORTS_COMPILETIME_MESSAGES}
{$ENDIF ~MSWINDOWS}
{$ENDIF ~WINDOWSONLY_INC}