Preparing for Python 3.8. Will not work until https://bugs.python.org/issue37189 is fixed in beta 2.

Author: pyscripter

PythonForDelphi/Components/Sources/Core/Definition.Inc

@@ -1,4 +1,4 @@
-(**************************************************************************)
+(**************************************************************************)
 (*                                                                        *)
 (* Module:   'Definition.Inc'          Copyright (c) 1998                 *)
 (*                                                                        *)
@@ -38,6 +38,7 @@
 //{$DEFINE PYTHON35}
 //{$DEFINE PYTHON36}
 //{$DEFINE PYTHON37}
+//{$DEFINE PYTHON38}
 
 /////////////////////////////////////////////////////////////////////////////
 // Python for Delphi settings. Comment out the setting you want to enable.
@@ -418,21 +419,23 @@
 // Note that the installer will let the user specify its default Python version, and
 // thus will edit this file.
 
-{$IFNDEF PYTHON37}
-  {$IFNDEF PYTHON36}
-    {$IFNDEF PYTHON35}
-      {$IFNDEF PYTHON34}
-        {$IFNDEF PYTHON33}
-          {$IFNDEF PYTHON32}
-            {$IFNDEF PYTHON31}
-              {$IFNDEF PYTHON30}
-                {$IFNDEF PYTHON27}
-                  {$IFNDEF PYTHON26}
-                    {$IFNDEF PYTHON25}
-                      {$IFNDEF PYTHON24}
-                  {---<START OF DEFAULT PYTHON VERSION>---}
-                      {$DEFINE PYTHON27}
-                  {---<END OF DEFAULT PYTHON VERSION>---}
+{$IFNDEF PYTHON38}
+  {$IFNDEF PYTHON37}
+    {$IFNDEF PYTHON36}
+      {$IFNDEF PYTHON35}
+        {$IFNDEF PYTHON34}
+          {$IFNDEF PYTHON33}
+            {$IFNDEF PYTHON32}
+              {$IFNDEF PYTHON31}
+                {$IFNDEF PYTHON30}
+                  {$IFNDEF PYTHON27}
+                    {$IFNDEF PYTHON26}
+                      {$IFNDEF PYTHON25}
+                        {$IFNDEF PYTHON24}
+                    {---<START OF DEFAULT PYTHON VERSION>---}
+                        {$DEFINE PYTHON27}
+                    {---<END OF DEFAULT PYTHON VERSION>---}
+                        {$ENDIF}
                       {$ENDIF}
                     {$ENDIF}
                   {$ENDIF}
@@ -446,7 +449,6 @@
   {$ENDIF}
 {$ENDIF}
 
-
 {$IFDEF PYTHON24}
   {$DEFINE PYTHON24_OR_HIGHER}
 {$ENDIF}
@@ -549,6 +551,21 @@
   {$DEFINE PYTHON36_OR_HIGHER}
   {$DEFINE PYTHON37_OR_HIGHER}
 {$ENDIF}
+{$IFDEF PYTHON38}
+  {$DEFINE PYTHON24_OR_HIGHER}
+  {$DEFINE PYTHON25_OR_HIGHER}
+  {$DEFINE PYTHON26_OR_HIGHER}
+  {$DEFINE PYTHON27_OR_HIGHER}
+  {$DEFINE PYTHON30_OR_HIGHER}
+  {$DEFINE PYTHON31_OR_HIGHER}
+  {$DEFINE PYTHON32_OR_HIGHER}
+  {$DEFINE PYTHON33_OR_HIGHER}
+  {$DEFINE PYTHON34_OR_HIGHER}
+  {$DEFINE PYTHON35_OR_HIGHER}
+  {$DEFINE PYTHON36_OR_HIGHER}
+  {$DEFINE PYTHON37_OR_HIGHER}
+  {$DEFINE PYTHON38_OR_HIGHER}
+{$ENDIF}
 
 /////////////////////////////////////////////////////////////////////////////
 // Misc

PythonForDelphi/Components/Sources/Core/PythonEngine.pas

@@ -129,7 +129,7 @@ interface
   end;
 const
 {$IFDEF MSWINDOWS}
-  PYTHON_KNOWN_VERSIONS: array[1..12] of TPythonVersionProp =
+  PYTHON_KNOWN_VERSIONS: array[1..13] of TPythonVersionProp =
   ( (DllName: 'python24.dll'; RegVersion: '2.4'; APIVersion: 1012; CanUseLatest: True),
     (DllName: 'python25.dll'; RegVersion: '2.5'; APIVersion: 1013; CanUseLatest: True),
     (DllName: 'python26.dll'; RegVersion: '2.6'; APIVersion: 1013; CanUseLatest: True),
@@ -141,10 +141,11 @@ interface
     (DllName: 'python34.dll'; RegVersion: '3.4'; APIVersion: 1013; CanUseLatest: True),
     (DllName: 'python35.dll'; RegVersion: '3.5'; APIVersion: 1013; CanUseLatest: True),
     (DllName: 'python36.dll'; RegVersion: '3.6'; APIVersion: 1013; CanUseLatest: True),
-    (DllName: 'python37.dll'; RegVersion: '3.7'; APIVersion: 1013; CanUseLatest: True) );
+    (DllName: 'python37.dll'; RegVersion: '3.7'; APIVersion: 1013; CanUseLatest: True),
+    (DllName: 'python38.dll'; RegVersion: '3.8'; APIVersion: 1013; CanUseLatest: True) );
 {$ENDIF}
 {$IFDEF LINUX}
-  PYTHON_KNOWN_VERSIONS: array[1..12] of TPythonVersionProp =
+  PYTHON_KNOWN_VERSIONS: array[1..13] of TPythonVersionProp =
   ( (DllName: 'libpython2.4.so'; RegVersion: '2.4'; APIVersion: 1012; CanUseLatest: True),
     (DllName: 'libpython2.5.so'; RegVersion: '2.5'; APIVersion: 1013; CanUseLatest: True),
     (DllName: 'libpython2.6.so'; RegVersion: '2.6'; APIVersion: 1013; CanUseLatest: True),
@@ -156,7 +157,8 @@ interface
     (DllName: 'libpython3.4.so'; RegVersion: '3.4'; APIVersion: 1013; CanUseLatest: True),
     (DllName: 'libpython3.5.so'; RegVersion: '3.5'; APIVersion: 1013; CanUseLatest: True),
     (DllName: 'libpython3.6.so'; RegVersion: '3.6'; APIVersion: 1013; CanUseLatest: True)
-    (DllName: 'libpython3.7.so'; RegVersion: '3.7'; APIVersion: 1013; CanUseLatest: True) );
+    (DllName: 'libpython3.7.so'; RegVersion: '3.7'; APIVersion: 1013; CanUseLatest: True)
+    (DllName: 'libpython3.8.so'; RegVersion: '3.8'; APIVersion: 1013; CanUseLatest: True) );
 {$ENDIF}
 {$IFDEF PYTHON24}
   COMPILED_FOR_PYTHON_VERSION_INDEX = 1;
@@ -193,6 +195,9 @@ interface
 {$ENDIF}
 {$IFDEF PYTHON37}
   COMPILED_FOR_PYTHON_VERSION_INDEX = 12;
+{$ENDIF}
+{$IFDEF PYTHON38}
+  COMPILED_FOR_PYTHON_VERSION_INDEX = 13;
 {$ENDIF}
   PYT_METHOD_BUFFER_INCREASE = 10;
   PYT_MEMBER_BUFFER_INCREASE = 10;