开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 2D图形编程 > 查看源码
Jedi.inc
资源名称：asphyre410.rar　[点击查看]
上传用户：ctlcnc
上传日期：2021-12-10
资源大小：4933k
文件大小：44k
源码类别：

2D图形编程

开发平台：

Delphi

Jedi.inc：源码内容
  1. {$IFNDEF JEDI_INC}
  2. {$DEFINE JEDI_INC}
  4. {******************************************************************************}
  5. {                                                                              }
  6. {  The contents of this file are subject to the Mozilla Public License         }
  7. {  Version 1.1 (the "License"); you may not use this file except in            }
  8. {  compliance with the License. You may obtain a copy of the License at        }
  9. {  http://www.mozilla.org/MPL/                                                 }
  10. {                                                                              }
  11. {  Software distributed under the License is distributed on an "AS IS" basis,  }
  12. {  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License    }
  13. {  for the specific language governing rights and limitations under the        }
  14. {  License.                                                                    }
  15. {                                                                              }
  16. {  The Original Code is: jedi.inc.                                             }
  17. {  The Initial Developer of the Original Code is Project JEDI                  }
  18. {  http://www.delphi-jedi.org                                                  }
  19. {                                                                              }
  20. {  Alternatively, the contents of this file may be used under the terms of     }
  21. {  the GNU Lesser General Public License (the  "LGPL License"), in which case  }
  22. {  the provisions of the LGPL License are applicable instead of those above.   }
  23. {  If you wish to allow use of your version of this file only under the terms  }
  24. {  of the LGPL License and not to allow others to use your version of this     }
  25. {  file under the MPL, indicate your decision by deleting the provisions       }
  26. {  above and replace them with the notice and other provisions required by     }
  27. {  the LGPL License. If you do not delete the provisions above, a recipient    }
  28. {  may use your version of this file under either the MPL or the LGPL License. }
  29. {                                                                              }
  30. {  For more information about the LGPL:                                        }
  31. {  http://www.gnu.org/copyleft/lesser.html                                     }
  32. {                                                                              }
  33. {******************************************************************************}
  34. {                                                                              }
  35. {  This file defines various generic compiler directives used in different     }
  36. {  libraries, e.g. in the JEDI Code Library (JCL) and JEDI Visual Component    }
  37. {  Library Library (J-VCL). The directives in this file are of generic nature  }
  38. {  and consist mostly of mappings from the VERXXX directives defined by        }
  39. {  Delphi, C++ Builder and FPC to friendly names such as DELPHI5 and           }
  40. {  SUPPORTS_WIDESTRING. These friendly names are subsequently used in the      }
  41. {  libraries to test for compiler versions and/or whether the compiler         }
  42. {  supports certain features (such as widestrings or 64 bit integers. The      }
  43. {  libraries provide an additional, library specific, include file. For the    }
  44. {  JCL e.g. this is jcl.inc. These files should be included in source files    }
  45. {  instead of this file (which is pulled in automatically).                    }
  46. {                                                                              }
  47. {******************************************************************************}
  49. // Last modified: $Date: 2005/12/30 21:29:55 $
  50. // For history see end of file
  52. (*
  54. - Development environment directives
  56.   This file defines two directives to indicate which development environment the
  57.   library is being compiled with. Currently this can either be Delphi, Kylix,
  58.   C++ Builder or FPC.
  60.   Directive           Description
  61.   ------------------------------------------------------------------------------
  62.   DELPHI              Defined if compiled with Delphi
  63.   KYLIX               Defined if compiled with Kylix
  64.   DELPHICOMPILER      Defined if compiled with Delphi or Kylix/Delphi
  65.   BCB                 Defined if compiled with C++ Builder
  66.   CPPBUILDER          Defined if compiled with C++ Builder (alias for BCB)
  67.   BCBCOMPILER         Defined if compiled with C++ Builder or Kylix/C++
  68.   DELPHILANGUAGE      Defined if compiled with Delphi, Kylix or C++ Builder
  69.   BORLAND             Defined if compiled with Delphi, Kylix or C++ Builder
  70.   FPC                 Defined if compiled with FPC
  72. - Platform Directives
  74.   Platform directives are not all explicitly defined in this file, some are
  75.   defined by the compiler itself. They are listed here only for completeness.
  77.   Directive           Description
  78.   ------------------------------------------------------------------------------
  79.   WIN32               Defined when target platform is 32 bit Windows
  80.   MSWINDOWS           Defined when target platform is 32 bit Windows
  81.   LINUX               Defined when target platform is Linux
  82.   UNIX                Defined when target platform is Linux or Unix
  85. - Visual library Directives
  87.   The following directives indicate for a visual library. In a Delphi/BCB
  88.   (Win32) application you need to define the VisualCLX symbol in the project
  89.   options, if  you want to use the VisualCLX library. Alternatively you can use
  90.   the IDE expert, which is distributed with the JCL to do this automatically.
  92.   Directive           Description
  93.   ------------------------------------------------------------------------------
  94.   VCL                 Defined for Delphi/BCB (Win32) exactly if VisualCLX is not defined
  95.   VisualCLX           Defined for Kylix; needs to be defined for Delphi/BCB to
  96.                       use JCL with VisualCLX applications.
  99. - Other cross-platform related defines
  101.   These symbols are intended to help in writing portable code.
  103.   Directive           Description
  104.   ------------------------------------------------------------------------------
  105.   PUREPASCAL          Code is machine-independent (as opposed to assembler code)
  106.   Win32API            Code is specific for the Win32 API;
  107.                       use instead of "{$IFNDEF CLR} {$IFDEF MSWINDOWS}" constructs
  110. - Delphi Versions
  112.   The following directives are direct mappings from the VERXXX directives to a
  113.   friendly name of the associated compiler. These directives are only defined if
  114.   the compiler is Delphi (ie DELPHI is defined).
  116.   Directive           Description
  117.   ------------------------------------------------------------------------------
  118.   DELPHI1             Defined when compiling with Delphi 1
  119.   DELPHI2             Defined when compiling with Delphi 2
  120.   DELPHI3             Defined when compiling with Delphi 3
  121.   DELPHI4             Defined when compiling with Delphi 4
  122.   DELPHI5             Defined when compiling with Delphi 5
  123.   DELPHI6             Defined when compiling with Delphi 6
  124.   DELPHI7             Defined when compiling with Delphi 7
  125.   DELPHI8             Defined when compiling with Delphi 8
  126.   DELPHI2005          Defined when compiling with Delphi 2005
  127.   DELPHI9             Alias for DELPHI2005
  128.   DELPHI10            Defined when compiling with Delphi Personality of BDS 4.0
  129.   DELPHI1_UP          Defined when compiling with Delphi 1 or higher
  130.   DELPHI2_UP          Defined when compiling with Delphi 2 or higher
  131.   DELPHI3_UP          Defined when compiling with Delphi 3 or higher
  132.   DELPHI4_UP          Defined when compiling with Delphi 4 or higher
  133.   DELPHI5_UP          Defined when compiling with Delphi 5 or higher
  134.   DELPHI6_UP          Defined when compiling with Delphi 6 or higher
  135.   DELPHI7_UP          Defined when compiling with Delphi 7 or higher
  136.   DELPHI8_UP          Defined when compiling with Delphi 8 or higher
  137.   DELPHI2005_UP       Defined when compiling with Delphi 2005 or higher
  138.   DELPHI9_UP          Alias for DELPHI2005_UP
  139.   DELPHI10_UP         Defined when compiling with Delphi Personality of BDS 4.0
  142. - Kylix Versions
  144.   The following directives are direct mappings from the VERXXX directives to a
  145.   friendly name of the associated compiler. These directives are only defined if
  146.   the compiler is Kylix (ie KYLIX is defined).
  148.   Directive           Description
  149.   ------------------------------------------------------------------------------
  150.   KYLIX1              Defined when compiling with Kylix 1
  151.   KYLIX2              Defined when compiling with Kylix 2
  152.   KYLIX3              Defined when compiling with Kylix 3
  153.   KYLIX1_UP           Defined when compiling with Kylix 1 or higher
  154.   KYLIX2_UP           Defined when compiling with Kylix 2 or higher
  155.   KYLIX3_UP           Defined when compiling with Kylix 3 or higher
  158. - Delphi Compiler Versions (Delphi / Kylix, not in BCB mode)
  160.   Directive           Description
  161.   ------------------------------------------------------------------------------
  162.   DELPHICOMPILER1     Defined when compiling with Delphi 1
  163.   DELPHICOMPILER2     Defined when compiling with Delphi 2
  164.   DELPHICOMPILER3     Defined when compiling with Delphi 3
  165.   DELPHICOMPILER4     Defined when compiling with Delphi 4
  166.   DELPHICOMPILER5     Defined when compiling with Delphi 5
  167.   DELPHICOMPILER6     Defined when compiling with Delphi 6 or Kylix 1, 2 or 3
  168.   DELPHICOMPILER7     Defined when compiling with Delphi 7
  169.   DELPHICOMPILER8     Defined when compiling with Delphi 8
  170.   DELPHICOMPILER9     Defined when compiling with Delphi 2005
  171.   DELPHICOMPILER10    Defined when compiling with Delphi Personality of BDS 4.0
  172.   DELPHICOMPILER1_UP  Defined when compiling with Delphi 1 or higher
  173.   DELPHICOMPILER2_UP  Defined when compiling with Delphi 2 or higher
  174.   DELPHICOMPILER3_UP  Defined when compiling with Delphi 3 or higher
  175.   DELPHICOMPILER4_UP  Defined when compiling with Delphi 4 or higher
  176.   DELPHICOMPILER5_UP  Defined when compiling with Delphi 5 or higher
  177.   DELPHICOMPILER6_UP  Defined when compiling with Delphi 6 or Kylix 1, 2 or 3 or higher
  178.   DELPHICOMPILER7_UP  Defined when compiling with Delphi 7 or higher
  179.   DELPHICOMPILER8_UP  Defined when compiling with Delphi 8 or higher
  180.   DELPHICOMPILER9_UP  Defined when compiling with Delphi 2005
  181.   DELPHICOMPILER10_UP Defined when compiling with Delphi Personality of BDS 4.0 or higher
  184. - C++ Builder Versions
  186.   The following directives are direct mappings from the VERXXX directives to a
  187.   friendly name of the associated compiler. These directives are only defined if
  188.   the compiler is C++ Builder (ie BCB is defined).
  190.   Directive    Description
  191.   ------------------------------------------------------------------------------
  192.   BCB1         Defined when compiling with C++ Builder 1
  193.   BCB3         Defined when compiling with C++ Builder 3
  194.   BCB4         Defined when compiling with C++ Builder 4
  195.   BCB5         Defined when compiling with C++ Builder 5
  196.   BCB6         Defined when compiling with C++ Builder 6
  197.   BCB10        Defined when compiling with C++ Builder Personality of BDS 4.0
  198.   BCB1_UP      Defined when compiling with C++ Builder 1 or higher
  199.   BCB3_UP      Defined when compiling with C++ Builder 3 or higher
  200.   BCB4_UP      Defined when compiling with C++ Builder 4 or higher
  201.   BCB5_UP      Defined when compiling with C++ Builder 5 or higher
  202.   BCB6_UP      Defined when compiling with C++ Builder 6 or higher
  203.   BCB10_UP     Defined when compiling with C++ Builder Personality of BDS 4.0 or higher
  206. - Borland Developer Studio Versions
  208.   The following directives are direct mappings from the VERXXX directives to a
  209.   friendly name of the associated IDE. These directives are only defined if
  210.   the IDE is Borland Developer Studio Version 2 or above.
  212.   Note: Borland Developer Studio 2006 is marketed as Delphi 2006 or C++Builder 2006,
  213.   but those provide only different labels for identical content.
  215.   Directive    Description
  216.   ------------------------------------------------------------------------------
  217.   BDS          Defined when compiling with a Borland Developer Studio version's dcc32.exe
  218.   BDS2         Defined when compiling with BDS 2.0 (Delphi 8)
  219.   BDS3         Defined when compiling with BDS 3.0 (Delphi 2005)
  220.   BDS4         Defined when compiling with BDS 4.0 (Borland Developer Studio 2006)
  221.   BDS2_UP      Defined when compiling with BDS 2.0 or higher
  222.   BDS3_UP      Defined when compiling with BDS 3.0 or higher
  223.   BDS4_UP      Defined when compiling with BDS 4.0 or higher
  225. - Compiler Versions
  227.   The following directives are direct mappings from the VERXXX directives to a
  228.   friendly name of the associated compiler. Unlike the DELPHI_X and BCB_X
  229.   directives, these directives are indepedent of the development environment.
  230.   That is, they are defined regardless of whether compilation takes place using
  231.   Delphi or C++ Builder.
  233.   Directive     Description
  234.   ------------------------------------------------------------------------------
  235.   COMPILER1     Defined when compiling with Delphi 1
  236.   COMPILER2     Defined when compiling with Delphi 2 or C++ Builder 1
  237.   COMPILER3     Defined when compiling with Delphi 3
  238.   COMPILER35    Defined when compiling with C++ Builder 3
  239.   COMPILER4     Defined when compiling with Delphi 4 or C++ Builder 4
  240.   COMPILER5     Defined when compiling with Delphi 5 or C++ Builder 5
  241.   COMPILER6     Defined when compiling with Delphi 6 or C++ Builder 6
  242.   COMPILER7     Defined when compiling with Delphi 7
  243.   COMPILER8     Defined when compiling with Delphi 8
  244.   COMPILER9     Defined when compiling with Delphi 9
  245.   COMPILER10    Defined when compiling with Delphi or C++ Builder Personalities of BDS 4.0
  246.   COMPILER1_UP  Defined when compiling with Delphi 1 or higher
  247.   COMPILER2_UP  Defined when compiling with Delphi 2 or C++ Builder 1 or higher
  248.   COMPILER3_UP  Defined when compiling with Delphi 3 or higher
  249.   COMPILER35_UP Defined when compiling with C++ Builder 3 or higher
  250.   COMPILER4_UP  Defined when compiling with Delphi 4 or C++ Builder 4 or higher
  251.   COMPILER5_UP  Defined when compiling with Delphi 5 or C++ Builder 5 or higher
  252.   COMPILER6_UP  Defined when compiling with Delphi 6 or C++ Builder 6 or higher
  253.   COMPILER7_UP  Defined when compiling with Delphi 7
  254.   COMPILER8_UP  Defined when compiling with Delphi 8
  255.   COMPILER9_UP  Defined when compiling with Delphi Personalities of BDS 3.0
  256.   COMPILER10_UP Defined when compiling with Delphi or C++ Builder Personalities of BDS 4.0 or higher
  259. - RTL Versions
  261.   Use e.g. following to determine the exact RTL version since version 14.0:
  262.     {$IFDEF CONDITIONALEXPRESSIONS}
  263.       {$IF Declared(RTLVersion) and (RTLVersion >= 14.2)}
  264.         // code for Delphi 6.02 or later, Kylix 2 or later, C++ Builder 6 or later
  265.         ...
  266.       {$IFEND}
  267.     {$ENDIF}
  269.   Directive     Description
  270.   ------------------------------------------------------------------------------
  271.   RTL80_UP      Defined when compiling with Delphi 1 or later
  272.   RTL90_UP      Defined when compiling with Delphi 2 or later
  273.   RTL93_UP      Defined when compiling with C++ Builder 1 or later
  274.   RTL100_UP     Defined when compiling with Delphi 3 or later
  275.   RTL110_UP     Defined when compiling with C++ Builder 3 or later
  276.   RTL120_UP     Defined when compiling with Delphi 4 or later
  277.   RTL125_UP     Defined when compiling with C++ Builder 4 or later
  278.   RTL130_UP     Defined when compiling with Delphi 5 or C++ Builder 5 or later
  279.   RTL140_UP     Defined when compiling with Delphi 6, Kylix 1, 2 or 3 or C++ Builder 6 or later
  280.   RTL150_UP     Defined when compiling with Delphi 7 or later
  281.   RTL160_UP     Defined when compiling with Delphi 8 or later
  282.   RTL170_UP     Defined when compiling with Delphi Personalities of BDS 3.0 or later
  283.   RTL180_UP     Defined when compiling with Delphi or C++ Builder Personalities of BDS 4.0 or later
  286. - Feature Directives
  288.   The features directives are used to test if the compiler supports specific
  289.   features, such as method overloading, and adjust the sources accordingly. Use
  290.   of these directives is preferred over the use of the DELPHI and COMPILER
  291.   directives.
  293.   Directive              Description
  294.   ------------------------------------------------------------------------------
  295.   SUPPORTS_CONSTPARAMS          Compiler supports const parameters (D1+)
  296.   SUPPORTS_SINGLE               Compiler supports the Single type (D1+)
  297.   SUPPORTS_DOUBLE               Compiler supports the Double type (D1+)
  298.   SUPPORTS_EXTENDED             Compiler supports the Extended type (D1+)
  299.   SUPPORTS_CURRENCY             Compiler supports the Currency type (D2+)
  300.   SUPPORTS_THREADVAR            Compiler supports threadvar declarations (D2+)
  301.   SUPPORTS_OUTPARAMS            Compiler supports out parameters (D3+)
  302.   SUPPORTS_VARIANT              Compiler supports variant (D2+)
  303.   SUPPORTS_WIDECHAR             Compiler supports the WideChar type (D2+)
  304.   SUPPORTS_WIDESTRING           Compiler supports the WideString type (D3+/BCB3+)
  305.   SUPPORTS_INTERFACE            Compiler supports interfaces (D3+/BCB3+)
  306.   SUPPORTS_DISPINTERFACE        Compiler supports dispatch interfaces (D3+/BCB3+)
  307.   SUPPORTS_DISPID               Compiler supports dispatch ids (D3+/BCB3+/FPC)
  308.   SUPPORTS_EXTSYM               Compiler supports the $EXTERNALSYM directive (D4+/BCB3+)
  309.   SUPPORTS_NODEFINE             Compiler supports the $NODEFINE directive (D4+/BCB3+)
  310.   SUPPORTS_LONGWORD             Compiler supports the LongWord type (unsigned 32 bit) (D4+/BCB4+)
  311.   SUPPORTS_INT64                Compiler supports the Int64 type (D4+/BCB4+)
  312.   SUPPORTS_DYNAMICARRAYS        Compiler supports dynamic arrays (D4+/BCB4+)
  313.   SUPPORTS_DEFAULTPARAMS        Compiler supports default parameters (D4+/BCB4+)
  314.   SUPPORTS_OVERLOAD             Compiler supports overloading (D4+/BCB4+)
  315.   SUPPORTS_IMPLEMENTS           Compiler supports implements (D4+/BCB4+)
  316.   SUPPORTS_DEPRECATED           Compiler supports the deprecated directive (D6+/BCB6+)
  317.   SUPPORTS_PLATFORM             Compiler supports the platform directive (D6+/BCB6+)
  318.   SUPPORTS_LIBRARY              Compiler supports the library directive (D6+/BCB6+)
  319.   SUPPORTS_LOCAL                Compiler supports the local directive (D6+/BCB6+)
  320.   SUPPORTS_INLINE               Compiler supports the inline directive (D9+)
  321.   SUPPORTS_FOR_IN               Compiler supports for in loops (D9+)
  322.   SUPPORTS_NESTED_CONSTANTS     Compiler supports nested constants (D9+)
  323.   SUPPORTS_NESTED_TYPES         Compiler supports nested types (D9+)
  324.   SUPPORTS_ENHANCED_RECORDS     Compiler supports class [operator|function|procedure] for record types (D9.NET, D10+)
  325.   SUPPORTS_CLASS_FIELDS         Compiler supports class fields (D9.NET, D10+)
  326.   SUPPORTS_CLASS_HELPERS        Compiler supports class helpers (D9.NET, D10+)
  327.   SUPPORTS_CLASS_OPERATORS      Compiler supports class operators (D9.NET, D10+)
  328.   SUPPORTS_STRICT               Compiler supports strict keyword (D9.NET, D10+)
  329.   SUPPORTS_STATIC               Compiler supports static keyword (D9.NET, D10+)
  330.   SUPPORTS_FINAL                Compiler supports final keyword (D9.NET, D10+)
  331.   ACCEPT_DEPRECATED             Compiler supports or ignores the deprecated directive (D6+/BCB6+/FPC)
  332.   ACCEPT_PLATFORM               Compiler supports or ignores the platform directive (D6+/BCB6+)
  333.   ACCEPT_LIBRARY                Compiler supports or ignores the library directive (D6+/BCB6+)
  334.   SUPPORTS_CUSTOMVARIANTS       Compiler supports custom variants (D6+/BCB6+)
  335.   SUPPORTS_VARARGS              Compiler supports varargs (D6+/BCB6+)
  336.   SUPPORTS_ENUMVALUE            Compiler supports assigning ordinalities to values of enums (D6+/BCB6+)
  337.   SUPPORTS_DEPRECATED_WARNINGS  Compiler supports deprecated warnings (D6+/BCB6+)
  338.   SUPPORTS_LIBRARY_WARNINGS     Compiler supports library warnings (D6+/BCB6+)
  339.   SUPPORTS_PLATFORM_WARNINGS    Compiler supports platform warnings (D6+/BCB6+)
  340.   SUPPORTS_UNSAFE_WARNINGS      Compiler supports unsafe warnings (D7)
  341.   SUPPORTS_WEAKPACKAGEUNIT      Compiler supports the WEAKPACKAGEUNIT directive
  342.   SUPPORTS_COMPILETIME_MESSAGES Compiler supports the MESSAGE directive
  343.   HAS_UNIT_LIBC                 Unit Libc exists (Kylix, FPC on Linux)
  344.   HAS_UNIT_RTLCONSTS            Unit RTLConsts exists (D6+/BCB6+)
  345.   HAS_UNIT_TYPES                Unit Types exists (D6+/BCB6+)
  346.   HAS_UNIT_VARIANTS             Unit Variants exists (D6+/BCB6+)
  347.   HAS_UNIT_STRUTILS             Unit StrUtils exists (D6+/BCB6+)
  348.   XPLATFORM_RTL                 The RTL supports crossplatform function names (e.g. RaiseLastOSError) (D6+/BCB6+/FPC)
  351. - Compiler Settings
  353.   The compiler settings directives indicate whether a specific compiler setting
  354.   is in effect. This facilitates changing compiler settings locally in a more
  355.   compact and readible manner.
  357.   Directive              Description
  358.   ------------------------------------------------------------------------------
  359.   ALIGN_ON               Compiling in the A+ state (no alignment)
  360.   BOOLEVAL_ON            Compiling in the B+ state (complete boolean evaluation)
  361.   ASSERTIONS_ON          Compiling in the C+ state (assertions on)
  362.   DEBUGINFO_ON           Compiling in the D+ state (debug info generation on)
  363.   IMPORTEDDATA_ON        Compiling in the G+ state (creation of imported data references)
  364.   LONGSTRINGS_ON         Compiling in the H+ state (string defined as AnsiString)
  365.   IOCHECKS_ON            Compiling in the I+ state (I/O checking enabled)
  366.   WRITEABLECONST_ON      Compiling in the J+ state (typed constants can be modified)
  367.   LOCALSYMBOLS           Compiling in the L+ state (local symbol generation)
  368.   TYPEINFO_ON            Compiling in the M+ state (RTTI generation on)
  369.   OPTIMIZATION_ON        Compiling in the O+ state (code optimization on)
  370.   OPENSTRINGS_ON         Compiling in the P+ state (variable string parameters are openstrings)
  371.   OVERFLOWCHECKS_ON      Compiling in the Q+ state (overflow checing on)
  372.   RANGECHECKS_ON         Compiling in the R+ state (range checking on)
  373.   TYPEDADDRESS_ON        Compiling in the T+ state (pointers obtained using the @ operator are typed)
  374.   SAFEDIVIDE_ON          Compiling in the U+ state (save FDIV instruction through RTL emulation)
  375.   VARSTRINGCHECKS_ON     Compiling in the V+ state (type checking of shortstrings)
  376.   STACKFRAMES_ON         Compiling in the W+ state (generation of stack frames)
  377.   EXTENDEDSYNTAX_ON      Compiling in the X+ state (Delphi extended syntax enabled)
  378. *)
  380. {$DEFINE BORLAND}
  382. { Set FreePascal to Delphi mode }
  383. {$IFDEF FPC}
  384.   {$MODE DELPHI}
  385.   {$ASMMODE Intel}
  386.   {$UNDEF BORLAND}
  387. {$ENDIF}
  389. {$IFDEF BORLAND}
  390.   {$IFDEF LINUX}
  391.     {$DEFINE KYLIX}
  392.   {$ENDIF LINUX}
  393. {$ENDIF BORLAND}
  395. {------------------------------------------------------------------------------}
  396. { VERXXX to COMPILERX, DELPHIX and BCBX mappings                               }
  397. {------------------------------------------------------------------------------}
  399. {$IFDEF BORLAND}
  400.   {$IFDEF KYLIX}
  401.     {$I kylix.inc} // FPC incompatible stuff
  402.   {$ELSE ~KYLIX}
  404.     {$IFDEF VER180}
  405.       {$DEFINE BDS4}
  406.       {$DEFINE BDS}
  407.       {$DEFINE COMPILER10}
  408.       {$IFDEF BCB}
  409.         {$DEFINE BCB10}
  410.       {$ELSE}
  411.         {$DEFINE DELPHI10}
  412.         {$DEFINE DELPHICOMPILER10}
  413.       {$ENDIF}
  414.       {$DEFINE RTL180_UP}
  415.     {$ENDIF}
  417.     {$IFDEF VER170}
  418.       {$DEFINE BDS3}
  419.       {$DEFINE BDS}
  420.       {$DEFINE COMPILER9}
  421.       {$DEFINE DELPHI9}
  422.       {$DEFINE DELPHI2005} // synonym to DELPHI9
  423.       {$DEFINE DELPHICOMPILER9}
  424.       {$DEFINE RTL170_UP}
  425.     {$ENDIF}
  427.     {$IFDEF VER160}
  428.       {$DEFINE BDS2}
  429.       {$DEFINE BDS}
  430.       {$DEFINE COMPILER8}
  431.       {$DEFINE DELPHI8}
  432.       {$DEFINE DELPHICOMPILER8}
  433.       {$DEFINE RTL160_UP}
  434.     {$ENDIF}
  436.     {$IFDEF VER150}
  437.       {$DEFINE COMPILER7}
  438.       {$DEFINE DELPHI7}
  439.       {$DEFINE DELPHICOMPILER7}
  440.       {$DEFINE RTL150_UP}
  441.     {$ENDIF}
  443.     {$IFDEF VER140}
  444.       {$DEFINE COMPILER6}
  445.       {$IFDEF BCB}
  446.         {$DEFINE BCB6}
  447.       {$ELSE}
  448.         {$DEFINE DELPHI6}
  449.         {$DEFINE DELPHICOMPILER6}
  450.       {$ENDIF}
  451.       {$DEFINE RTL140_UP}
  452.     {$ENDIF}
  454.     {$IFDEF VER130}
  455.       {$DEFINE COMPILER5}
  456.       {$IFDEF BCB}
  457.         {$DEFINE BCB5}
  458.       {$ELSE}
  459.         {$DEFINE DELPHI5}
  460.         {$DEFINE DELPHICOMPILER5}
  461.       {$ENDIF}
  462.       {$DEFINE RTL130_UP}
  463.     {$ENDIF}
  465.     {$IFDEF VER125}
  466.       {$DEFINE COMPILER4}
  467.       {$DEFINE BCB4}
  468.       {$DEFINE BCB}
  469.       {$DEFINE RTL125_UP}
  470.     {$ENDIF}
  472.     {$IFDEF VER120}
  473.       {$DEFINE COMPILER4}
  474.       {$DEFINE DELPHI4}
  475.       {$DEFINE DELPHICOMPILER4}
  476.       {$DEFINE RTL120_UP}
  477.     {$ENDIF}
  479.     {$IFDEF VER110}
  480.       {$DEFINE COMPILER35}
  481.       {$DEFINE BCB3}
  482.       {$DEFINE RTL110_UP}
  483.     {$ENDIF}
  485.     {$IFDEF VER100}
  486.       {$DEFINE COMPILER3}
  487.       {$DEFINE DELPHI3}
  488.       {$DEFINE DELPHICOMPILER3}
  489.       {$DEFINE RTL100_UP}
  490.     {$ENDIF}
  492.     {$IFDEF VER93}
  493.       {$DEFINE COMPILER2}
  494.       {$DEFINE BCB1}
  495.       {$DEFINE BCB}
  496.       {$DEFINE RTL93_UP}
  497.     {$ENDIF}
  499.     {$IFDEF VER90}
  500.       {$DEFINE COMPILER2}
  501.       {$DEFINE DELPHI2}
  502.       {$DEFINE DELPHICOMPILER2}
  503.       {$DEFINE RTL90_UP}
  504.     {$ENDIF}
  506.     {$IFDEF VER80}
  507.       {$DEFINE COMPILER1}
  508.       {$DEFINE DELPHI1}
  509.       {$DEFINE DELPHICOMPILER1}
  510.       {$DEFINE RTL80_UP}
  511.     {$ENDIF}
  513.   {$ENDIF ~KYLIX}
  515.   {$IFDEF BCB}
  516.     {$DEFINE CPPBUILDER}
  517.     {$DEFINE BCBCOMPILER}
  518.   {$ELSE ~BCB}
  519.     {$DEFINE DELPHI}
  520.     {$DEFINE DELPHICOMPILER}
  521.   {$ENDIF ~BCB}
  523. {$ENDIF BORLAND}
  525. {------------------------------------------------------------------------------}
  526. { DELPHIX_UP from DELPHIX mappings                                             }
  527. {------------------------------------------------------------------------------}
  529. {$IFDEF DELPHI10}
  530.   {$DEFINE DELPHI10_UP}
  531.   {$DEFINE DELPHI2005_UP // synonym to DELPHI9_UP }
  532.   {$DEFINE DELPHI9_UP}
  533.   {$DEFINE DELPHI8_UP}
  534.   {$DEFINE DELPHI7_UP}
  535.   {$DEFINE DELPHI6_UP}
  536.   {$DEFINE DELPHI5_UP}
  537.   {$DEFINE DELPHI4_UP}
  538.   {$DEFINE DELPHI3_UP}
  539.   {$DEFINE DELPHI2_UP}
  540.   {$DEFINE DELPHI1_UP}
  541. {$ENDIF}
  543. {$IFDEF DELPHI9}
  544.   {$DEFINE DELPHI2005_UP} // synonym to DELPHI9_UP
  545.   {$DEFINE DELPHI9_UP}
  546.   {$DEFINE DELPHI8_UP}
  547.   {$DEFINE DELPHI7_UP}
  548.   {$DEFINE DELPHI6_UP}
  549.   {$DEFINE DELPHI5_UP}
  550.   {$DEFINE DELPHI4_UP}
  551.   {$DEFINE DELPHI3_UP}
  552.   {$DEFINE DELPHI2_UP}
  553.   {$DEFINE DELPHI1_UP}
  554. {$ENDIF}
  556. {$IFDEF DELPHI8}
  557.   {$DEFINE DELPHI8_UP}
  558.   {$DEFINE DELPHI7_UP}
  559.   {$DEFINE DELPHI6_UP}
  560.   {$DEFINE DELPHI5_UP}
  561.   {$DEFINE DELPHI4_UP}
  562.   {$DEFINE DELPHI3_UP}
  563.   {$DEFINE DELPHI2_UP}
  564.   {$DEFINE DELPHI1_UP}
  565. {$ENDIF}
  567. {$IFDEF DELPHI7}
  568.   {$DEFINE DELPHI7_UP}
  569.   {$DEFINE DELPHI6_UP}
  570.   {$DEFINE DELPHI5_UP}
  571.   {$DEFINE DELPHI4_UP}
  572.   {$DEFINE DELPHI3_UP}
  573.   {$DEFINE DELPHI2_UP}
  574.   {$DEFINE DELPHI1_UP}
  575. {$ENDIF}
  577. {$IFDEF DELPHI6}
  578.   {$DEFINE DELPHI6_UP}
  579.   {$DEFINE DELPHI5_UP}
  580.   {$DEFINE DELPHI4_UP}
  581.   {$DEFINE DELPHI3_UP}
  582.   {$DEFINE DELPHI2_UP}
  583.   {$DEFINE DELPHI1_UP}
  584. {$ENDIF}
  586. {$IFDEF DELPHI5}
  587.   {$DEFINE DELPHI5_UP}
  588.   {$DEFINE DELPHI4_UP}
  589.   {$DEFINE DELPHI3_UP}
  590.   {$DEFINE DELPHI2_UP}
  591.   {$DEFINE DELPHI1_UP}
  592. {$ENDIF}
  594. {$IFDEF DELPHI4}
  595.   {$DEFINE DELPHI4_UP}
  596.   {$DEFINE DELPHI3_UP}
  597.   {$DEFINE DELPHI2_UP}
  598.   {$DEFINE DELPHI1_UP}
  599. {$ENDIF}
  601. {$IFDEF DELPHI3}
  602.   {$DEFINE DELPHI3_UP}
  603.   {$DEFINE DELPHI2_UP}
  604.   {$DEFINE DELPHI1_UP}
  605. {$ENDIF}
  607. {$IFDEF DELPHI2}
  608.   {$DEFINE DELPHI2_UP}
  609.   {$DEFINE DELPHI1_UP}
  610. {$ENDIF}
  612. {$IFDEF DELPHI1}
  613.   {$DEFINE DELPHI1_UP}
  614. {$ENDIF}
  616. {------------------------------------------------------------------------------}
  617. { KYLIXX_UP from KYLIXX mappings                                               }
  618. {------------------------------------------------------------------------------}
  620. {$IFDEF KYLIX3}
  621.   {$DEFINE KYLIX3_UP}
  622.   {$DEFINE KYLIX2_UP}
  623.   {$DEFINE KYLIX1_UP}
  624. {$ENDIF}
  626. {$IFDEF KYLIX2}
  627.   {$DEFINE KYLIX2_UP}
  628.   {$DEFINE KYLIX1_UP}
  629. {$ENDIF}
  631. {$IFDEF KYLIX1}
  632.   {$DEFINE KYLIX1_UP}
  633. {$ENDIF}
  635. {------------------------------------------------------------------------------}
  636. { BCBX_UP from BCBX mappings                                                   }
  637. {------------------------------------------------------------------------------}
  639. {$IFDEF BCB10}
  640.   {$DEFINE BCB10_UP}
  641.   {$DEFINE BCB6_UP}
  642.   {$DEFINE BCB5_UP}
  643.   {$DEFINE BCB4_UP}
  644.   {$DEFINE BCB3_UP}
  645.   {$DEFINE BCB1_UP}
  646. {$ENDIF}
  648. {$IFDEF BCB6}
  649.   {$DEFINE BCB6_UP}
  650.   {$DEFINE BCB5_UP}
  651.   {$DEFINE BCB4_UP}
  652.   {$DEFINE BCB3_UP}
  653.   {$DEFINE BCB1_UP}
  654. {$ENDIF}
  656. {$IFDEF BCB5}
  657.   {$DEFINE BCB5_UP}
  658.   {$DEFINE BCB4_UP}
  659.   {$DEFINE BCB3_UP}
  660.   {$DEFINE BCB1_UP}
  661. {$ENDIF}
  663. {$IFDEF BCB4}
  664.   {$DEFINE BCB4_UP}
  665.   {$DEFINE BCB3_UP}
  666.   {$DEFINE BCB1_UP}
  667. {$ENDIF}
  669. {$IFDEF BCB3}
  670.   {$DEFINE BCB3_UP}
  671.   {$DEFINE BCB1_UP}
  672. {$ENDIF}
  674. {$IFDEF BCB1}
  675.   {$DEFINE BCB1_UP}
  676. {$ENDIF}
  678. {------------------------------------------------------------------------------}
  679. { BDSX_UP from BDSX mappings                                                   }
  680. {------------------------------------------------------------------------------}
  682. {$IFDEF BDS4}
  683.   {$DEFINE BDS4_UP}
  684.   {$DEFINE BDS3_UP}
  685.   {$DEFINE BDS2_UP}
  686. {$ENDIF}
  688. {$IFDEF BDS3}
  689.   {$DEFINE BDS3_UP}
  690.   {$DEFINE BDS2_UP}
  691. {$ENDIF}
  693. {$IFDEF BDS2}
  694.   {$DEFINE BDS2_UP}
  695. {$ENDIF}
  697. {------------------------------------------------------------------------------}
  698. { DELPHICOMPILERX_UP from DELPHICOMPILERX mappings                             }
  699. {------------------------------------------------------------------------------}
  701. {$IFDEF DELPHICOMPILER10}
  702.   {$DEFINE DELPHICOMPILER10_UP}
  703.   {$DEFINE DELPHICOMPILER9_UP}
  704.   {$DEFINE DELPHICOMPILER8_UP}
  705.   {$DEFINE DELPHICOMPILER7_UP}
  706.   {$DEFINE DELPHICOMPILER6_UP}
  707.   {$DEFINE DELPHICOMPILER5_UP}
  708.   {$DEFINE DELPHICOMPILER4_UP}
  709.   {$DEFINE DELPHICOMPILER3_UP}
  710.   {$DEFINE DELPHICOMPILER2_UP}
  711.   {$DEFINE DELPHICOMPILER1_UP}
  712. {$ENDIF}
  714. {$IFDEF DELPHICOMPILER9}
  715.   {$DEFINE DELPHICOMPILER9_UP}
  716.   {$DEFINE DELPHICOMPILER8_UP}
  717.   {$DEFINE DELPHICOMPILER7_UP}
  718.   {$DEFINE DELPHICOMPILER6_UP}
  719.   {$DEFINE DELPHICOMPILER5_UP}
  720.   {$DEFINE DELPHICOMPILER4_UP}
  721.   {$DEFINE DELPHICOMPILER3_UP}
  722.   {$DEFINE DELPHICOMPILER2_UP}
  723.   {$DEFINE DELPHICOMPILER1_UP}
  724. {$ENDIF}
  726. {$IFDEF DELPHICOMPILER8}
  727.   {$DEFINE DELPHICOMPILER8_UP}
  728.   {$DEFINE DELPHICOMPILER7_UP}
  729.   {$DEFINE DELPHICOMPILER6_UP}
  730.   {$DEFINE DELPHICOMPILER5_UP}
  731.   {$DEFINE DELPHICOMPILER4_UP}
  732.   {$DEFINE DELPHICOMPILER3_UP}
  733.   {$DEFINE DELPHICOMPILER2_UP}
  734.   {$DEFINE DELPHICOMPILER1_UP}
  735. {$ENDIF}
  737. {$IFDEF DELPHICOMPILER7}
  738.   {$DEFINE DELPHICOMPILER7_UP}
  739.   {$DEFINE DELPHICOMPILER6_UP}
  740.   {$DEFINE DELPHICOMPILER5_UP}
  741.   {$DEFINE DELPHICOMPILER4_UP}
  742.   {$DEFINE DELPHICOMPILER3_UP}
  743.   {$DEFINE DELPHICOMPILER2_UP}
  744.   {$DEFINE DELPHICOMPILER1_UP}
  745. {$ENDIF}
  747. {$IFDEF DELPHICOMPILER6}
  748.   {$DEFINE DELPHICOMPILER6_UP}
  749.   {$DEFINE DELPHICOMPILER5_UP}
  750.   {$DEFINE DELPHICOMPILER4_UP}
  751.   {$DEFINE DELPHICOMPILER3_UP}
  752.   {$DEFINE DELPHICOMPILER2_UP}
  753.   {$DEFINE DELPHICOMPILER1_UP}
  754. {$ENDIF}
  756. {$IFDEF DELPHICOMPILER5}
  757.   {$DEFINE DELPHICOMPILER5_UP}
  758.   {$DEFINE DELPHICOMPILER4_UP}
  759.   {$DEFINE DELPHICOMPILER3_UP}
  760.   {$DEFINE DELPHICOMPILER2_UP}
  761.   {$DEFINE DELPHICOMPILER1_UP}
  762. {$ENDIF}
  764. {$IFDEF DELPHICOMPILER4}
  765.   {$DEFINE DELPHICOMPILER4_UP}
  766.   {$DEFINE DELPHICOMPILER3_UP}
  767.   {$DEFINE DELPHICOMPILER2_UP}
  768.   {$DEFINE DELPHICOMPILER1_UP}
  769. {$ENDIF}
  771. {$IFDEF DELPHICOMPILER3}
  772.   {$DEFINE DELPHICOMPILER3_UP}
  773.   {$DEFINE DELPHICOMPILER2_UP}
  774.   {$DEFINE DELPHICOMPILER1_UP}
  775. {$ENDIF}
  777. {$IFDEF DELPHICOMPILER2}
  778.   {$DEFINE DELPHICOMPILER2_UP}
  779.   {$DEFINE DELPHICOMPILER1_UP}
  780. {$ENDIF}
  782. {$IFDEF DELPHICOMPILER1}
  783.   {$DEFINE DELPHICOMPILER1_UP}
  784. {$ENDIF}
  786. {------------------------------------------------------------------------------}
  787. { COMPILERX_UP from COMPILERX mappings                                         }
  788. {------------------------------------------------------------------------------}
  790. {$IFDEF COMPILER10}
  791.   {$DEFINE COMPILER10_UP}
  792.   {$DEFINE COMPILER9_UP}
  793.   {$DEFINE COMPILER8_UP}
  794.   {$DEFINE COMPILER7_UP}
  795.   {$DEFINE COMPILER6_UP}
  796.   {$DEFINE COMPILER5_UP}
  797.   {$DEFINE COMPILER4_UP}
  798.   {$DEFINE COMPILER35_UP}
  799.   {$DEFINE COMPILER3_UP}
  800.   {$DEFINE COMPILER2_UP}
  801.   {$DEFINE COMPILER1_UP}
  802. {$ENDIF}
  804. {$IFDEF COMPILER9}
  805.   {$DEFINE COMPILER9_UP}
  806.   {$DEFINE COMPILER8_UP}
  807.   {$DEFINE COMPILER7_UP}
  808.   {$DEFINE COMPILER6_UP}
  809.   {$DEFINE COMPILER5_UP}
  810.   {$DEFINE COMPILER4_UP}
  811.   {$DEFINE COMPILER35_UP}
  812.   {$DEFINE COMPILER3_UP}
  813.   {$DEFINE COMPILER2_UP}
  814.   {$DEFINE COMPILER1_UP}
  815. {$ENDIF}
  817. {$IFDEF COMPILER8}
  818.   {$DEFINE COMPILER8_UP}
  819.   {$DEFINE COMPILER7_UP}
  820.   {$DEFINE COMPILER6_UP}
  821.   {$DEFINE COMPILER5_UP}
  822.   {$DEFINE COMPILER4_UP}
  823.   {$DEFINE COMPILER35_UP}
  824.   {$DEFINE COMPILER3_UP}
  825.   {$DEFINE COMPILER2_UP}
  826.   {$DEFINE COMPILER1_UP}
  827. {$ENDIF}
  829. {$IFDEF COMPILER7}
  830.   {$DEFINE COMPILER7_UP}
  831.   {$DEFINE COMPILER6_UP}
  832.   {$DEFINE COMPILER5_UP}
  833.   {$DEFINE COMPILER4_UP}
  834.   {$DEFINE COMPILER35_UP}
  835.   {$DEFINE COMPILER3_UP}
  836.   {$DEFINE COMPILER2_UP}
  837.   {$DEFINE COMPILER1_UP}
  838. {$ENDIF}
  840. {$IFDEF COMPILER6}
  841.   {$DEFINE COMPILER6_UP}
  842.   {$DEFINE COMPILER5_UP}
  843.   {$DEFINE COMPILER4_UP}
  844.   {$DEFINE COMPILER35_UP}
  845.   {$DEFINE COMPILER3_UP}
  846.   {$DEFINE COMPILER2_UP}
  847.   {$DEFINE COMPILER1_UP}
  848. {$ENDIF}
  850. {$IFDEF COMPILER5}
  851.   {$DEFINE COMPILER5_UP}
  852.   {$DEFINE COMPILER4_UP}
  853.   {$DEFINE COMPILER35_UP}
  854.   {$DEFINE COMPILER3_UP}
  855.   {$DEFINE COMPILER2_UP}
  856.   {$DEFINE COMPILER1_UP}
  857. {$ENDIF}
  859. {$IFDEF COMPILER4}
  860.   {$DEFINE COMPILER4_UP}
  861.   {$DEFINE COMPILER35_UP}
  862.   {$DEFINE COMPILER3_UP}
  863.   {$DEFINE COMPILER2_UP}
  864.   {$DEFINE COMPILER1_UP}
  865. {$ENDIF}
  867. {$IFDEF COMPILER35}
  868.   {$DEFINE COMPILER35_UP}
  869.   {$DEFINE COMPILER3_UP}
  870.   {$DEFINE COMPILER2_UP}
  871.   {$DEFINE COMPILER1_UP}
  872. {$ENDIF}
  874. {$IFDEF COMPILER3}
  875.   {$DEFINE COMPILER3_UP}
  876.   {$DEFINE COMPILER2_UP}
  877.   {$DEFINE COMPILER1_UP}
  878. {$ENDIF}
  880. {$IFDEF COMPILER2}
  881.   {$DEFINE COMPILER2_UP}
  882.   {$DEFINE COMPILER1_UP}
  883. {$ENDIF}
  885. {$IFDEF COMPILER1}
  886.   {$DEFINE COMPILER1_UP}
  887. {$ENDIF}
  889. {------------------------------------------------------------------------------}
  891. {$IFDEF DELPHICOMPILER}
  892.   {$DEFINE DELPHILANGUAGE}
  893. {$ENDIF}
  895. {$IFDEF BCBCOMPILER}
  896.   {$DEFINE DELPHILANGUAGE}
  897. {$ENDIF}
  899. {------------------------------------------------------------------------------}
  900. { RTLX_UP from RTLX_UP mappings                                                }
  901. {------------------------------------------------------------------------------}
  903. {$IFDEF RTL180_UP}
  904.   {$DEFINE RTL170_UP}
  905. {$ENDIF}
  907. {$IFDEF RTL170_UP}
  908.   {$DEFINE RTL160_UP}
  909. {$ENDIF}
  911. {$IFDEF RTL160_UP}
  912.   {$DEFINE RTL150_UP}
  913. {$ENDIF}
  915. {$IFDEF RTL150_UP}
  916.   {$DEFINE RTL145_UP}
  917. {$ENDIF}
  919. {$IFDEF RTL145_UP}
  920.   {$DEFINE RTL142_UP}
  921. {$ENDIF}
  923. {$IFDEF RTL142_UP}
  924.   {$DEFINE RTL140_UP}
  925. {$ENDIF}
  927. {$IFDEF RTL140_UP}
  928.   {$DEFINE RTL130_UP}
  929. {$ENDIF}
  931. {$IFDEF RTL130_UP}
  932.   {$DEFINE RTL125_UP}
  933. {$ENDIF}
  935. {$IFDEF RTL125_UP}
  936.   {$DEFINE RTL120_UP}
  937. {$ENDIF}
  939. {$IFDEF RTL120_UP}
  940.   {$DEFINE RTL110_UP}
  941. {$ENDIF}
  943. {$IFDEF RTL110_UP}
  944.   {$DEFINE RTL100_UP}
  945. {$ENDIF}
  947. {$IFDEF RTL100_UP}
  948.   {$DEFINE RTL93_UP}
  949. {$ENDIF}
  951. {$IFDEF RTL93_UP}
  952.   {$DEFINE RTL90_UP}
  953. {$ENDIF}
  955. {$IFDEF RTL90_UP}
  956.   {$DEFINE RTL80_UP}
  957. {$ENDIF}
  959. {------------------------------------------------------------------------------}
  960. { Map COMPILERX_UP to friendly feature names                                   }
  961. {------------------------------------------------------------------------------}
  963. {$IFDEF FPC}
  964.   {$IFDEF  VER1_0}
  965.      Please use FPC 2.0 or later to compile this.
  966.   {$ELSE}
  967.     {$DEFINE SUPPORTS_OUTPARAMS}
  968.     {$DEFINE SUPPORTS_WIDECHAR}
  969.     {$DEFINE SUPPORTS_WIDESTRING}
  970.     {$IFDEF HASINTF}
  971.       {$DEFINE SUPPORTS_INTERFACE}
  972.     {$ENDIF}
  973.     {$IFDEF HASVARIANT}
  974.       {$DEFINE SUPPORTS_VARIANT}
  975.     {$ENDIF}
  976.     {$IFDEF FPC_HAS_TYPE_SINGLE}
  977.       {$DEFINE SUPPORTS_SINGLE}
  978.     {$ENDIF}
  979.     {$IFDEF FPC_HAS_TYPE_DOUBLE}
  980.       {$DEFINE SUPPORTS_DOUBLE}
  981.     {$ENDIF}
  982.     {$IFDEF FPC_HAS_TYPE_EXTENDED}
  983.       {$DEFINE SUPPORTS_EXTENDED}
  984.     {$ENDIF}
  985.     {$IFDEF HASCURRENCY}
  986.       {$DEFINE SUPPORTS_CURRENCY}
  987.     {$ENDIF}
  988.     {$DEFINE SUPPORTS_THREADVAR}
  989.     {$DEFINE SUPPORTS_CONSTPARAMS}
  990.     {$DEFINE SUPPORTS_LONGWORD}
  991.     {$DEFINE SUPPORTS_INT64}
  992.     {$DEFINE SUPPORTS_DYNAMICARRAYS}
  993.     {$DEFINE SUPPORTS_DEFAULTPARAMS}
  994.     {$DEFINE SUPPORTS_OVERLOAD}
  995.     {$DEFINE ACCEPT_DEPRECATED}
  996.     {$DEFINE ACCEPT_PLATFORM}
  997.     {$DEFINE ACCEPT_LIBRARY}
  998.     {$DEFINE SUPPORTS_EXTSYM}
  999.     {$DEFINE SUPPORTS_NODEFINE}
  1001.     {$DEFINE SUPPORTS_CUSTOMVARIANTS}
  1002.     {$DEFINE SUPPORTS_VARARGS}
  1003.     {$DEFINE SUPPORTS_ENUMVALUE}
  1004.     {$IFDEF LINUX}
  1005.       {$DEFINE HAS_UNIT_LIBC}
  1006.     {$ENDIF LINUX}
  1007.     {$DEFINE HAS_UNIT_TYPES}
  1008.     {$DEFINE HAS_UNIT_VARIANTS}
  1009.     {$DEFINE HAS_UNIT_STRUTILS}
  1010.     {$DEFINE HAS_UNIT_RTLCONSTS}
  1012.     {$DEFINE XPLATFORM_RTL}
  1014.     {$UNDEF SUPPORTS_DISPINTERFACE}
  1015.     {$UNDEF SUPPORTS_IMPLEMENTS}
  1016.     {$UNDEF SUPPORTS_UNSAFE_WARNINGS}
  1017.   {$ENDIF}
  1018. {$ENDIF FPC}
  1020. {$IFDEF COMPILER1_UP}
  1021.   {$DEFINE SUPPORTS_CONSTPARAMS}
  1022.   {$DEFINE SUPPORTS_SINGLE}
  1023.   {$DEFINE SUPPORTS_DOUBLE}
  1024.   {$DEFINE SUPPORTS_EXTENDED}
  1025. {$ENDIF COMPILER1_UP}
  1027. {$IFDEF COMPILER2_UP}
  1028.   {$DEFINE SUPPORTS_CURRENCY}
  1029.   {$DEFINE SUPPORTS_THREADVAR}
  1030.   {$DEFINE SUPPORTS_VARIANT}
  1031.   {$DEFINE SUPPORTS_WIDECHAR}
  1032. {$ENDIF COMPILER2_UP}
  1034. {$IFDEF COMPILER3_UP}
  1035.   {$DEFINE SUPPORTS_OUTPARAMS}
  1036.   {$DEFINE SUPPORTS_WIDESTRING}
  1037.   {$DEFINE SUPPORTS_INTERFACE}
  1038.   {$DEFINE SUPPORTS_DISPINTERFACE}
  1039.   {$DEFINE SUPPORTS_DISPID}
  1040.   {$DEFINE SUPPORTS_WEAKPACKAGEUNIT}
  1041. {$ENDIF COMPILER3_UP}
  1043. {$IFDEF COMPILER35_UP}
  1044.   {$DEFINE SUPPORTS_EXTSYM}
  1045.   {$DEFINE SUPPORTS_NODEFINE}
  1046. {$ENDIF COMPILER35_UP}
  1048. {$IFDEF COMPILER4_UP}
  1049.   {$DEFINE SUPPORTS_LONGWORD}
  1050.   {$DEFINE SUPPORTS_INT64}
  1051.   {$DEFINE SUPPORTS_DYNAMICARRAYS}
  1052.   {$DEFINE SUPPORTS_DEFAULTPARAMS}
  1053.   {$DEFINE SUPPORTS_OVERLOAD}
  1054.   {$DEFINE SUPPORTS_IMPLEMENTS}
  1055. {$ENDIF COMPILER4_UP}
  1057. {$IFDEF COMPILER6_UP}
  1058.   {$DEFINE SUPPORTS_DEPRECATED}
  1059.   {$DEFINE SUPPORTS_LIBRARY}
  1060.   {$DEFINE SUPPORTS_PLATFORM}
  1061.   {$DEFINE SUPPORTS_LOCAL}
  1062.   {$DEFINE ACCEPT_DEPRECATED}
  1063.   {$DEFINE ACCEPT_PLATFORM}
  1064.   {$DEFINE ACCEPT_LIBRARY}
  1065.   {$DEFINE SUPPORTS_DEPRECATED_WARNINGS}
  1066.   {$DEFINE SUPPORTS_LIBRARY_WARNINGS}
  1067.   {$DEFINE SUPPORTS_PLATFORM_WARNINGS}
  1068.   {$DEFINE SUPPORTS_CUSTOMVARIANTS}
  1069.   {$DEFINE SUPPORTS_VARARGS}
  1070.   {$DEFINE SUPPORTS_ENUMVALUE}
  1071.   {$DEFINE SUPPORTS_COMPILETIME_MESSAGES}
  1072. {$ENDIF COMPILER6_UP}
  1074. {$IFDEF COMPILER7_UP}
  1075.   {$DEFINE SUPPORTS_UNSAFE_WARNINGS}
  1076. {$ENDIF COMPILER7_UP}
  1078. {$IFDEF COMPILER9_UP}
  1079.   {$DEFINE SUPPORTS_FOR_IN}
  1080.   {$DEFINE SUPPORTS_INLINE}
  1081.   {$DEFINE SUPPORTS_NESTED_CONSTANTS}
  1082.   {$DEFINE SUPPORTS_NESTED_TYPES}
  1083.   {$IFDEF CLR}
  1084.     {$DEFINE SUPPORTS_ENHANCED_RECORDS}
  1085.     {$DEFINE SUPPORTS_CLASS_FIELDS}
  1086.     {$DEFINE SUPPORTS_CLASS_HELPERS}
  1087.     {$DEFINE SUPPORTS_CLASS_OPERATORS}
  1088.     {$DEFINE SUPPORTS_STRICT}
  1089.     {$DEFINE SUPPORTS_STATIC}
  1090.     {$DEFINE SUPPORTS_FINAL}
  1091.   {$ENDIF CLR}
  1092. {$ENDIF COMPILER9_UP}
  1094. {$IFDEF COMPILER10_UP}
  1095.   {$DEFINE SUPPORTS_ENHANCED_RECORDS}
  1096.   {$DEFINE SUPPORTS_CLASS_FIELDS}
  1097.   {$DEFINE SUPPORTS_CLASS_HELPERS}
  1098.   {$DEFINE SUPPORTS_CLASS_OPERATORS}
  1099.   {$DEFINE SUPPORTS_STRICT}
  1100.   {$DEFINE SUPPORTS_STATIC}
  1101.   {$DEFINE SUPPORTS_FINAL}
  1102. {$ENDIF COMPILER10_UP}
  1104. {$IFDEF RTL140_UP}
  1105.   {$IFDEF LINUX}
  1106.     {$DEFINE HAS_UNIT_LIBC}
  1107.   {$ENDIF LINUX}
  1108.   {$DEFINE HAS_UNIT_RTLCONSTS}
  1109.   {$DEFINE HAS_UNIT_TYPES}
  1110.   {$DEFINE HAS_UNIT_VARIANTS}
  1111.   {$DEFINE HAS_UNIT_STRUTILS}
  1112.   {$DEFINE XPLATFORM_RTL}
  1113. {$ENDIF RTL140_UP}
  1115. {------------------------------------------------------------------------------}
  1116. { Cross-platform related defines                                               }
  1117. {------------------------------------------------------------------------------}
  1119. {$IFNDEF CPU386}
  1120.   {$DEFINE PUREPASCAL}
  1121. {$ENDIF}
  1123. {$IFDEF WIN32}
  1124.   {$DEFINE MSWINDOWS} // predefined for D6+/BCB6+
  1125.   {$DEFINE Win32API}
  1126. {$ENDIF}
  1128. {$IFDEF DELPHILANGUAGE}
  1129.   {$IFDEF LINUX}
  1130.     {$DEFINE UNIX}
  1131.   {$ENDIF}
  1133.   {$IFNDEF CONSOLE}
  1134.     {$IFDEF LINUX}
  1135.       {$DEFINE VisualCLX}
  1136.     {$ENDIF}
  1137.     {$IFNDEF VisualCLX}
  1138.       {$DEFINE VCL}
  1139.     {$ENDIF}
  1140.   {$ENDIF ~CONSOLE}
  1141. {$ENDIF DELPHILANGUAGE}
  1143. {------------------------------------------------------------------------------}
  1144. { Compiler settings                                                            }
  1145. {------------------------------------------------------------------------------}
  1147. {$IFOPT A+} {$DEFINE ALIGN_ON} {$ENDIF}
  1148. {$IFOPT B+} {$DEFINE BOOLEVAL_ON} {$ENDIF}
  1149. {$IFDEF COMPILER2_UP}
  1150.   {$IFOPT C+} {$DEFINE ASSERTIONS_ON} {$ENDIF}
  1151. {$ENDIF}
  1152. {$IFOPT D+} {$DEFINE DEBUGINFO_ON} {$ENDIF}
  1153. {$IFOPT G+} {$DEFINE IMPORTEDDATA_ON} {$ENDIF}
  1154. {$IFDEF COMPILER2_UP}
  1155.   {$IFOPT H+} {$DEFINE LONGSTRINGS_ON} {$ENDIF}
  1156. {$ENDIF}
  1157. { HINTS }
  1158. {$IFOPT I+} {$DEFINE IOCHECKS_ON} {$ENDIF}
  1159. {$IFDEF COMPILER2_UP}
  1160.   {$IFOPT J+} {$DEFINE WRITEABLECONST_ON} {$ENDIF}
  1161. {$ENDIF}
  1162. {$IFOPT L+} {$DEFINE LOCALSYMBOLS} {$ENDIF}
  1163. {$IFOPT M+} {$DEFINE TYPEINFO_ON} {$ENDIF}
  1164. {$IFOPT O+} {$DEFINE OPTIMIZATION_ON} {$ENDIF}
  1165. {$IFOPT P+} {$DEFINE OPENSTRINGS_ON} {$ENDIF}
  1166. {$IFOPT Q+} {$DEFINE OVERFLOWCHECKS_ON} {$ENDIF}
  1167. {$IFOPT R+} {$DEFINE RANGECHECKS_ON} {$ENDIF}
  1168. { REALCOMPATIBILITY }
  1169. {$IFOPT T+} {$DEFINE TYPEDADDRESS_ON} {$ENDIF}
  1170. {$IFOPT U+} {$DEFINE SAFEDIVIDE_ON} {$ENDIF}
  1171. {$IFOPT V+} {$DEFINE VARSTRINGCHECKS_ON} {$ENDIF}
  1172. {$IFOPT W+} {$DEFINE STACKFRAMES_ON} {$ENDIF}
  1173. { WARNINGS }
  1174. {$IFOPT X+} {$DEFINE EXTENDEDSYNTAX_ON} {$ENDIF}
  1176. // for Delphi/BCB trial versions remove the point from the line below
  1177. {.$UNDEF SUPPORTS_WEAKPACKAGEUNIT}
  1179. // History:
  1181. // $Log: Jedi.inc,v $
  1182. // Revision 1.3  2005/12/30 21:29:55  clootie
  1183. // Synchronization with JEDI JCL unit (Delphi2006 additions, etc.)
  1184. //
  1185. // Revision 1.30  2005/12/04 10:10:58  obones
  1186. // Borland Developer Studio 2006 support
  1187. //
  1188. // Revision 1.29  2005/11/01 20:46:20  obones
  1189. // Removed COMPLIB_VCL and COMPLIB_VisualCLX, they are not used and obsolete
  1190. //
  1191. // Revision 1.28  2005/10/28 04:33:17  rrossmair
  1192. // - added BDS and BDSX_UP symbols
  1193. //
  1194. // Revision 1.27  2005/10/12 21:18:43  ahuser
  1195. // Moved comments out of the compiler directives.
  1196. //
  1197. // Revision 1.26  2005/09/03 15:46:42  marquardt
  1198. // new SUPPORTS_ added to description section
  1199. //
  1200. // Revision 1.25  2005/09/03 15:22:24  rrossmair
  1201. // - support for Delphi.NET personality syntax
  1202. //
  1203. // Revision 1.24  2005/08/22 01:43:02  rrossmair
  1204. // - added symbols Win32API, PUREPASCAL, DELPHI2005, DELPHI2005_UP
  1205. // - reworked/reformated some comments
  1206. //
  1207. // Revision 1.23  2005/04/15 08:27:38  marquardt
  1208. // introduced SUPPORTS_DISPID for FPC
  1209. //
  1210. // Revision 1.22  2005/04/07 00:41:35  rrossmair
  1211. // - changed for FPC 1.9.8
  1212. //
  1213. // Revision 1.21  2005/02/22 07:36:46  marquardt
  1214. // introduced SUPPORTS_INLINE, minor cleanups in JclRegistry
  1215. //
  1216. // Revision 1.20  2004/11/18 00:57:13  rrossmair
  1217. // - check-in for release 1.93
  1218. //
  1219. // Revision 1.19  2004/11/06 02:11:20  mthoma
  1220. // history cleaning.
  1221. //
  1222. // Revision 1.18  2004/08/10 02:52:02  rrossmair
  1223. // - moved {$ENDIF ~JEDI_INC} to EOF.
  1224. //
  1225. // Revision 1.17  2004/08/09 06:38:08  peter3
  1226. // - D8 support added
  1227. // - D9 support added (guesswork)
  1228. //
  1229. // Revision 1.16  2004/07/29 17:12:28  rrossmair
  1230. // fixed comment ("KYLIXX_UP from KYLIXX mappings")
  1231. //
  1232. // Revision 1.15  2004/07/29 07:58:21  marquardt
  1233. // inc files updated
  1234. //
  1235. // Revision 1.14  2004/06/21 01:10:17  rrossmair
  1236. // - $IFDEFed contents (to prevent from repeated inclusion)
  1237. // - introduced symbols SUPPORTS_DEPRECATED_WARNINGS, SUPPORTS_LIBRARY_WARNINGS, SUPPORTS_PLATFORM_WARNINGS, SUPPORTS_COMPILETIME_MESSAGES
  1238. // - reordered pre-CVS history
  1239. //
  1240. // Revision 1.13  2004/05/08 08:44:20  rrossmair
  1241. // introduced & applied symbol HAS_UNIT_LIBC
  1242. //
  1243. // Revision 1.12  2004/05/06 05:03:59  rrossmair
  1244. // SUPPORTS_ENUMVALUE definition fixed for Free Pascal Compiler
  1245. //
  1246. // Revision 1.11  2004/05/05 03:20:13  rrossmair
  1247. // jedi.inc: moved FPC-incompatible Kylix-related code to separate include file "kylix.inc", disposed of FPC-related TODOs
  1248. //
  1249. // Revision 1.10  2004/05/01 00:03:59  rrossmair
  1250. // FPC workaround removed; didn't work with Kylix
  1251. //
  1252. // Revision 1.9  2004/04/30 18:25:15  rrossmair
  1253. // added symbols BORLAND, CPPBUILDER, BCBCOMPILER
  1254. // removed symbol NONBORLAND
  1255. // cleanup (reduced redundancy)
  1256. // corrected embarrassing typo "widestring's" (for the 3rd time, I believe)
  1257. //
  1258. // Revision 1.8  2004/04/14 20:26:33  mthoma
  1259. // Changed data to date
  1260. // Local is Delphi 6 - removed todo comment
  1261. // Replaced CLX with VisualCLX to be consistent with Borlands current definition of what "CLX" is.
  1262. //
  1263. // Revision 1.7  2004/04/06 05:06:12
  1264. // add support for Kylix, FPC, RTL, versions, some speaking directives
  1265. //
  1266. // 2004-03-22,
  1267. //  - add SUPPORTS_WEAKPACKAGEUNIT
  1268. //
  1269. // 2004-03-20,
  1270. //  - add SUPPORTS_LOCAL
  1271. //
  1272. // 2004-03-18,
  1273. //  - add SUPPORTS_LONGWORD
  1274. //
  1275. // 2004-03-16,
  1276. //  - add HAS_UNIT_STRUTILS
  1277. //  - add XPLATFORM_RTL
  1278. //
  1279. // 2003-12-03,
  1280. //  - add SUPPORTS_ENUMVALUE
  1281. //
  1282. // 2003-11-14,
  1283. //  - add SUPPORTS_VARARGS
  1284. //
  1285. // 2003-10-30,
  1286. //  - correct and complete comments
  1287. //  - add Kylix definitions
  1288. //  - add RTL definitions
  1289. //  - add FPC definitions
  1291. {$ENDIF ~JEDI_INC}