From 4632fb3b8c89e4db559d147eed53a828114f602a Mon Sep 17 00:00:00 2001 From: Lucas Moura Belo Date: Wed, 18 Nov 2020 08:21:43 -0300 Subject: [PATCH 1/7] Separate packages into run-time and design-time --- .../Delphi 10.4+/P4DComponentSuite.groupproj | 48 + .../{Python_D.dpk => P4DEngine.dpk} | 86 +- Packages/Delphi/Delphi 10.4+/P4DEngine.dproj | 797 ++++++++++++++++ Packages/Delphi/Delphi 10.4+/Python_D.dproj | 101 -- Packages/Delphi/Delphi 10.4+/dclP4DEngine.dpk | 40 + .../Delphi/Delphi 10.4+/dclP4DEngine.dproj | 871 ++++++++++++++++++ Source/PythonEngine.pas | 7 - Source/PythonRegistration.pas | 19 + 8 files changed, 1819 insertions(+), 150 deletions(-) create mode 100644 Packages/Delphi/Delphi 10.4+/P4DComponentSuite.groupproj rename Packages/Delphi/Delphi 10.4+/{Python_D.dpk => P4DEngine.dpk} (84%) create mode 100644 Packages/Delphi/Delphi 10.4+/P4DEngine.dproj delete mode 100644 Packages/Delphi/Delphi 10.4+/Python_D.dproj create mode 100644 Packages/Delphi/Delphi 10.4+/dclP4DEngine.dpk create mode 100644 Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj create mode 100644 Source/PythonRegistration.pas diff --git a/Packages/Delphi/Delphi 10.4+/P4DComponentSuite.groupproj b/Packages/Delphi/Delphi 10.4+/P4DComponentSuite.groupproj new file mode 100644 index 00000000..07c7fedd --- /dev/null +++ b/Packages/Delphi/Delphi 10.4+/P4DComponentSuite.groupproj @@ -0,0 +1,48 @@ + + + {8BE1193B-E609-445D-9BA3-F57DBEA042F5} + + + + + + + P4DEngine.dproj + + + + Default.Personality.12 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Packages/Delphi/Delphi 10.4+/Python_D.dpk b/Packages/Delphi/Delphi 10.4+/P4DEngine.dpk similarity index 84% rename from Packages/Delphi/Delphi 10.4+/Python_D.dpk rename to Packages/Delphi/Delphi 10.4+/P4DEngine.dpk index 00c4c760..8f1e7ae0 100644 --- a/Packages/Delphi/Delphi 10.4+/Python_D.dpk +++ b/Packages/Delphi/Delphi 10.4+/P4DEngine.dpk @@ -1,42 +1,44 @@ -package Python_D; -{$R '..\..\..\Source\PythonEngine.dcr'} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Components for Python'} -{$LIBSUFFIX AUTO} -{$IMPLICITBUILD OFF} - -requires - {$IFDEF WIN32} - DesignIDE, - {$ENDIF} - rtl, - vcl; - -contains - MethodCallBack in '..\..\..\Source\MethodCallBack.pas', - PythonEngine in '..\..\..\Source\PythonEngine.pas', - PythonGUIInputOutput in '..\..\..\Source\PythonGUIInputOutput.pas', - WrapDelphi in '..\..\..\Source\WrapDelphi.pas'; -end. +package P4DEngine; +{$R *.res} +{$R '..\..\..\Source\PythonEngine.dcr'} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Python4Delphi - Run-time Engine Package'} +{$LIBSUFFIX AUTO} +{$RUNONLY} +{$IMPLICITBUILD ON} + +requires + DesignIDE, + rtl, + vcl; + +contains + MethodCallBack in '..\..\..\Source\MethodCallBack.pas', + PythonEngine in '..\..\..\Source\PythonEngine.pas', + PythonGUIInputOutput in '..\..\..\Source\PythonGUIInputOutput.pas', + WrapDelphi in '..\..\..\Source\WrapDelphi.pas'; + +end. diff --git a/Packages/Delphi/Delphi 10.4+/P4DEngine.dproj b/Packages/Delphi/Delphi 10.4+/P4DEngine.dproj new file mode 100644 index 00000000..24e6d573 --- /dev/null +++ b/Packages/Delphi/Delphi 10.4+/P4DEngine.dproj @@ -0,0 +1,797 @@ + + + True + Package + Debug + VCL + P4DEngine.dpk + Win32 + {018AAA56-F5BD-4A04-BCCA-A0043EAAA5CE} + 19.1 + 1 + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + P4DEngine + Python4Delphi - Run-time Engine Package + 00400000 + Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;DUnitX.Loggers.GUI;Winapi;System.Win;$(DCC_Namespace) + $(Auto) + true + true + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName= + 1033 + true + + + Debug + Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + + + 0 + RELEASE;$(DCC_Define) + false + 0 + + + DEBUG;$(DCC_Define) + true + false + + + + MainSource + + + + + + + + + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Package + + + + P4DEngine.dpk + + + Embarcadero C++Builder Office 2000 Servers Package + Embarcadero C++Builder Office XP Servers Package + Microsoft Office 2000 Sample Automation Server Wrapper Components + Microsoft Office XP Sample Automation Server Wrapper Components + + + + True + False + + + + + P4DEngine.bpl + true + + + + + 1 + + + 0 + + + + + classes + 1 + + + classes + 1 + + + + + res\xml + 1 + + + res\xml + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\armeabi + 1 + + + library\lib\armeabi + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\mips + 1 + + + library\lib\mips + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\values-v21 + 1 + + + res\values-v21 + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-ldpi + 1 + + + res\drawable-ldpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-xxxhdpi + 1 + + + res\drawable-xxxhdpi + 1 + + + + + res\drawable-small + 1 + + + res\drawable-small + 1 + + + + + res\drawable-normal + 1 + + + res\drawable-normal + 1 + + + + + res\drawable-large + 1 + + + res\drawable-large + 1 + + + + + res\drawable-xlarge + 1 + + + res\drawable-xlarge + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + 1 + + + 1 + + + 0 + + + + + 1 + .framework + + + 1 + .framework + + + 0 + + + + + 1 + .dylib + + + 1 + .dylib + + + 0 + .dll;.bpl + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + 0 + .bpl + + + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + + + + 1 + + + 1 + + + 1 + + + + + + + + Contents\Resources + 1 + + + Contents\Resources + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + 0 + + + + + library\lib\armeabi-v7a + 1 + + + + + 1 + + + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + + + + + + + + + + + 12 + + + + + diff --git a/Packages/Delphi/Delphi 10.4+/Python_D.dproj b/Packages/Delphi/Delphi 10.4+/Python_D.dproj deleted file mode 100644 index 76300b7b..00000000 --- a/Packages/Delphi/Delphi 10.4+/Python_D.dproj +++ /dev/null @@ -1,101 +0,0 @@ - - - True - Package - Debug - VCL - Python_D.dpk - Win32 - {018AAA56-F5BD-4A04-BCCA-A0043EAAA5CE} - 19.1 - 1 - - - true - - - true - Base - true - - - true - Base - true - - - true - Base - true - - - Python_D - Components for Python - 00400000 - Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;DUnitX.Loggers.GUI;Winapi;System.Win;$(DCC_Namespace) - true - $(Auto) - true - true - CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName= - 1033 - - - Debug - Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) - - - 0 - RELEASE;$(DCC_Define) - false - 0 - - - DEBUG;$(DCC_Define) - true - false - - - - MainSource - - - - - - - - - - - Base - - - Cfg_1 - Base - - - Cfg_2 - Base - - - - Delphi.Personality.12 - Package - - - - Python_D.dpk - - - - - True - False - - - 12 - - - - diff --git a/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dpk b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dpk new file mode 100644 index 00000000..1f77d807 --- /dev/null +++ b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dpk @@ -0,0 +1,40 @@ +package dclP4DEngine; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Python4Delphi - Design-time Engine Package'} +{$LIBSUFFIX AUTO} +{$DESIGNONLY} +{$IMPLICITBUILD ON} + +requires + rtl, + P4DEngine; + +contains + PythonRegistration in '..\..\..\Source\PythonRegistration.pas'; + +end. diff --git a/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj new file mode 100644 index 00000000..dae8ac07 --- /dev/null +++ b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj @@ -0,0 +1,871 @@ + + + {D9AB994C-54A3-4E76-81C8-6D0BB035A091} + dclP4DEngine.dpk + 19.1 + None + True + Debug + Win32 + 1 + Package + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + .\$(Platform)\$(Config) + .\$(Platform)\$(Config) + false + false + false + false + false + true + true + System;Xml;Data;Datasnap;Web;Soap;Vcl;$(DCC_Namespace) + All + dclP4DEngine + 1033 + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= + Python4Delphi - Design-time Engine Package + true + $(Auto) + + + None + android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar + + + None + android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar + + + None + + + None + + + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + Debug + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= + 1033 + + + DEBUG;$(DCC_Define) + true + false + true + true + true + + + false + true + 1033 + + + false + RELEASE;$(DCC_Define) + 0 + 0 + + + + MainSource + + + + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Package + + + + Embarcadero C++Builder Office 2000 Servers Package + Embarcadero C++Builder Office XP Servers Package + Microsoft Office 2000 Sample Automation Server Wrapper Components + Microsoft Office XP Sample Automation Server Wrapper Components + + + dclP4DEngine.dpk + + + + + + true + + + + + true + + + + + true + + + + + dclP4DEngine.bpl + true + + + + + 1 + + + 0 + + + + + classes + 1 + + + classes + 1 + + + + + res\xml + 1 + + + res\xml + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\armeabi + 1 + + + library\lib\armeabi + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\mips + 1 + + + library\lib\mips + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\values-v21 + 1 + + + res\values-v21 + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-ldpi + 1 + + + res\drawable-ldpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-xxxhdpi + 1 + + + res\drawable-xxxhdpi + 1 + + + + + res\drawable-small + 1 + + + res\drawable-small + 1 + + + + + res\drawable-normal + 1 + + + res\drawable-normal + 1 + + + + + res\drawable-large + 1 + + + res\drawable-large + 1 + + + + + res\drawable-xlarge + 1 + + + res\drawable-xlarge + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + 1 + + + 1 + + + 0 + + + + + 1 + .framework + + + 1 + .framework + + + 0 + + + + + 1 + .dylib + + + 1 + .dylib + + + 0 + .dll;.bpl + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + 0 + .bpl + + + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + + + + 1 + + + 1 + + + 1 + + + + + + + + Contents\Resources + 1 + + + Contents\Resources + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + 0 + + + + + library\lib\armeabi-v7a + 1 + + + + + 1 + + + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + + + + + + + + + + + False + False + False + False + False + False + True + False + + + 12 + + + + + diff --git a/Source/PythonEngine.pas b/Source/PythonEngine.pas index bf62224a..67e1db70 100644 --- a/Source/PythonEngine.pas +++ b/Source/PythonEngine.pas @@ -2670,7 +2670,6 @@ function PythonToDelphi( obj : PPyObject ) : TPyObject; function IsDelphiObject( obj : PPyObject ) : Boolean; procedure PyObjectDestructor( pSelf : PPyObject); cdecl; procedure FreeSubtypeInst(ob:PPyObject); cdecl; -procedure Register; function PyType_HasFeature(AType : PPyTypeObject; AFlag : Integer) : Boolean; function GetPythonVersionFromDLLName(const DLLFileName : string): string; @@ -8792,12 +8791,6 @@ function IsDelphiObject( obj : PPyObject ) : Boolean; end; end; -procedure Register; -begin - RegisterComponents('Python',[ TPythonEngine, TPythonInputOutput, - TPythonType, TPythonModule, TPythonDelphiVar]); -end; - function GetPythonVersionFromDLLName(const DLLFileName : string): string; begin Result := DLLFileName[{$IFDEF MSWINDOWS}7{$ELSE}10{$ENDIF}] + '.' + DLLFileName[{$IFDEF MSWINDOWS}8{$ELSE}11{$ENDIF}]; diff --git a/Source/PythonRegistration.pas b/Source/PythonRegistration.pas new file mode 100644 index 00000000..06cc3518 --- /dev/null +++ b/Source/PythonRegistration.pas @@ -0,0 +1,19 @@ +unit PythonRegistration; + +interface + +procedure Register(); + +implementation + +uses + Classes, PythonEngine, WrapDelphi; + +procedure Register(); +begin + RegisterComponents('Python', [TPythonEngine, TPythonType, TPythonModule, + TPythonDelphiVar, TPythonInputOutput, + TPyDelphiWrapper]); +end; + +end. From dbf76a1956daeb32be1a540b93543540e2871107 Mon Sep 17 00:00:00 2001 From: Lucas Moura Belo Date: Wed, 18 Nov 2020 08:23:06 -0300 Subject: [PATCH 2/7] Removed icons .dcr from run-time package --- Packages/Delphi/Delphi 10.4+/P4DEngine.dpk | 1 - Packages/Delphi/Delphi 10.4+/P4DEngine.dproj | 1 - 2 files changed, 2 deletions(-) diff --git a/Packages/Delphi/Delphi 10.4+/P4DEngine.dpk b/Packages/Delphi/Delphi 10.4+/P4DEngine.dpk index 8f1e7ae0..60fe6543 100644 --- a/Packages/Delphi/Delphi 10.4+/P4DEngine.dpk +++ b/Packages/Delphi/Delphi 10.4+/P4DEngine.dpk @@ -1,6 +1,5 @@ package P4DEngine; {$R *.res} -{$R '..\..\..\Source\PythonEngine.dcr'} {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} {$ALIGN 8} {$ASSERTIONS ON} diff --git a/Packages/Delphi/Delphi 10.4+/P4DEngine.dproj b/Packages/Delphi/Delphi 10.4+/P4DEngine.dproj index 24e6d573..9c1b2d7c 100644 --- a/Packages/Delphi/Delphi 10.4+/P4DEngine.dproj +++ b/Packages/Delphi/Delphi 10.4+/P4DEngine.dproj @@ -59,7 +59,6 @@ MainSource - From c7dd43624d18348dbfda69bf0320ddf5367831f3 Mon Sep 17 00:00:00 2001 From: Lucas Moura Belo Date: Wed, 18 Nov 2020 08:26:21 -0300 Subject: [PATCH 3/7] New component images directory --- Images/TATOMPYTHONENGINE.bmp | Bin 0 -> 406 bytes Images/TPYDELPHIWRAPPER.bmp | Bin 0 -> 406 bytes Images/TPYTHONDELPHIVAR.bmp | Bin 0 -> 406 bytes Images/TPYTHONENGINE.bmp | Bin 0 -> 406 bytes Images/TPYTHONGUIINPUTOUTPUT.bmp | Bin 0 -> 406 bytes Images/TPYTHONINPUTOUTPUT.bmp | Bin 0 -> 406 bytes Images/TPYTHONINTERFACE.bmp | Bin 0 -> 406 bytes Images/TPYTHONMODULE.bmp | Bin 0 -> 406 bytes Images/TPYTHONSERVICESPROVIDER.bmp | Bin 0 -> 406 bytes Images/TPYTHONTYPE.bmp | Bin 0 -> 406 bytes 10 files changed, 0 insertions(+), 0 deletions(-) create mode 100644 Images/TATOMPYTHONENGINE.bmp create mode 100644 Images/TPYDELPHIWRAPPER.bmp create mode 100644 Images/TPYTHONDELPHIVAR.bmp create mode 100644 Images/TPYTHONENGINE.bmp create mode 100644 Images/TPYTHONGUIINPUTOUTPUT.bmp create mode 100644 Images/TPYTHONINPUTOUTPUT.bmp create mode 100644 Images/TPYTHONINTERFACE.bmp create mode 100644 Images/TPYTHONMODULE.bmp create mode 100644 Images/TPYTHONSERVICESPROVIDER.bmp create mode 100644 Images/TPYTHONTYPE.bmp diff --git a/Images/TATOMPYTHONENGINE.bmp b/Images/TATOMPYTHONENGINE.bmp new file mode 100644 index 0000000000000000000000000000000000000000..04e4634573d55deddad17c703c22a6dbb6cf467e GIT binary patch literal 406 zcmY*VJ8r`;41IyRL>aVp?ATENH;vtUoz6Z&rUK~_1KN0nbnpQT^eS2d6ks1|cZem@ z??a2U-rheCi06a(mGQjC0Z*a7?0%4kGy&Y0rtQT{$e6G!3k{16Ge-}n&ch&a5O4I!y!_cLpUvWmt<6_#2U$FD|`!@vbi%b-yV$1~dOU)0fiM{Zz`npJhC z;d-X7b8eXjCARDeogJs@#Bp)miQ^GiTJnJqq)O#H{Ev!ld`^5j-4g7V%f|Ot6G(^ENnd)EhhV>g^q+==56SX%Oi5Tr_FKYT~UqkVRKJKd7MiDP`9)>Q0% d|HJFL?K#D^%`tz2{RTEx=G_}7h2sA~{0kV{pziaVp?ATENH;vtUoz6Z&rU2;@1KN0nbnpQRkX#zMgP20juh-F#0x?wS4=7_=Jl5?{pU8JIz zU2S9)5ruYO zxSpx&oLlBbiAQ#Y&W=-c;<&i(#PJ9$EqOx-Ql+vV-lJk`pB>+hx5PW$sgLjDPh!Cz bysoZ$O|cF0HQ4Vxig+^j-tZ`V4_2?gIsBqI literal 0 HcmV?d00001 diff --git a/Images/TPYTHONENGINE.bmp b/Images/TPYTHONENGINE.bmp new file mode 100644 index 0000000000000000000000000000000000000000..9dd03422ba16ea148856a39d279b09eae9770965 GIT binary patch literal 406 zcmY*VJ8r`;41IyRL>aVp?3hsiH;vtMoz6Z&rUJ*dp~l zG)3$C^t(emKg>tQ=PP#j2>t8j2YE{qz=dhrHfBOB%fj6aiv=@B48AToH%rn*DvH_7 zMphAVcrzP9Qq3M`)(&MAjf*NQwJ`SAMv}w81x?GKQ4ISt+U#G{(R)X3;2AZm>P*A+ zOkL;PG8-ix*%dlFPSuIy;<^*ZBe1mO10hJ2%6a%772Ein_rb;xObY#Zse@AjgZ8+26=*Sr&;!I3q_h zn`yWnsoNY&@aR2}S literal 0 HcmV?d00001 diff --git a/Images/TPYTHONINPUTOUTPUT.bmp b/Images/TPYTHONINPUTOUTPUT.bmp new file mode 100644 index 0000000000000000000000000000000000000000..f2e483d5d499035510a1dcc3b98a949e863971a7 GIT binary patch literal 406 zcmZutJ8r`;41IyRL>aVp?ATENH=$GaUZ=B_C)b@g?gL8+J`e`Uk~t5*BST(VYAYwcoo)f^W*hO> bsfF|p_L^Uve?xX`?40dhZ#^Mx&D#0{QhK5T literal 0 HcmV?d00001 diff --git a/Images/TPYTHONINTERFACE.bmp b/Images/TPYTHONINTERFACE.bmp new file mode 100644 index 0000000000000000000000000000000000000000..7c5c24540182cbed73aa26c34247ec55da6d0d1d GIT binary patch literal 406 zcmY*VA#MXP5S+**ae!%IV4)>5!}5Hm_?{3{DIqz@Y`>6#dqAXq#WYf+?Tjx4IeXVL zJA3P0e;&R!7~dED2krf78@!G9{;3c0;wFF_)3hG+gjkk^rvx7x?m{#!g~Z)MX{BT& z_lx&vr4+%7doLu}{eEO_H)c^dnZZLH!uDKA;t+5`wbUsj$M%Ri>yO-9Yls!RBS$lv zDJUKpw>j3xLV;H{gU!MriwGyhMTGmnr3N*GL2}9LhjV1C?X%8-ptx7?n&>#I)6oDqLu&v literal 0 HcmV?d00001 diff --git a/Images/TPYTHONMODULE.bmp b/Images/TPYTHONMODULE.bmp new file mode 100644 index 0000000000000000000000000000000000000000..799260c69b9fa465d5a065c8d467ad5082beaf95 GIT binary patch literal 406 zcmZutF>b>!3_L?wq6}IycI+sCo5t?_PG&zLQ-EZN0d4$3I`{zr`W3AO3@}H<84AP_ zsXHD`Qu_Kn4d~y2{*$&}ZNR3-KUTeye{KZ0F^Stzh&Rp{h6WG9Z3$DKHC9ZLy55IV_{IS=oV@f@EM-*&eETez(K?Cv4G b!JhMq^EEi{vM}G+nYEYSJ8?_?9<1{KSqGxt literal 0 HcmV?d00001 diff --git a/Images/TPYTHONSERVICESPROVIDER.bmp b/Images/TPYTHONSERVICESPROVIDER.bmp new file mode 100644 index 0000000000000000000000000000000000000000..2b691dd17ff2444efe2da37d164fce4937950e6e GIT binary patch literal 406 zcmZ8dJ8r`;41IyJL>aVp?ATENH;vtUoz6Z&rU2;@1KN0nbnpQT^eS2d1YjTOEUhfk z??a2U-apPe#QJ1@W4t_LhkfX;Pd~_?Gy&Y0rtQT{$e6G!3k{16Ge--q~bZ=x^& literal 0 HcmV?d00001 diff --git a/Images/TPYTHONTYPE.bmp b/Images/TPYTHONTYPE.bmp new file mode 100644 index 0000000000000000000000000000000000000000..a5e6333d2481cca140c96cbc0501d55736550312 GIT binary patch literal 406 zcmZWlD{ccZ5PgwD;sDda!a_@ChUL9Z@g5 Date: Wed, 18 Nov 2020 08:37:07 -0300 Subject: [PATCH 4/7] Moved TPythonGUIInputOutput component registration from run-time package to design-time package --- .../Delphi/Delphi 10.4+/dclP4DEngine.dproj | 29 ++++++++++++++++++ .../Delphi/Delphi 10.4+/dclP4DEngine.dres | Bin 0 -> 3180 bytes Source/PythonGUIInputOutput.pas | 6 ---- Source/PythonRegistration.pas | 4 +-- 4 files changed, 31 insertions(+), 8 deletions(-) create mode 100644 Packages/Delphi/Delphi 10.4+/dclP4DEngine.dres diff --git a/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj index dae8ac07..648d2a45 100644 --- a/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj +++ b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj @@ -33,11 +33,26 @@ Base true + + true + Base + true + + + true + Base + true + true Base true + + true + Base + true + true Base @@ -76,16 +91,26 @@ None android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar + rtl;$(DCC_UsePackage) None android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar + rtl;$(DCC_UsePackage) None + rtl;$(DCC_UsePackage) None + rtl;$(DCC_UsePackage) + + + rtl;$(DCC_UsePackage) + + + rtl;$(DCC_UsePackage) Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) @@ -93,6 +118,10 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= 1033 + rtl;P4DEngine;$(DCC_UsePackage) + + + rtl;$(DCC_UsePackage) DEBUG;$(DCC_Define) diff --git a/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dres b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dres new file mode 100644 index 0000000000000000000000000000000000000000..bf7e51c4531f72fa172eb4778aae32c4f874be54 GIT binary patch literal 3180 zcmeH}y>8nu6oqf9E>;Gv9W!=h!48Fxp)G8*1@ec$P0^{Z;<01abcq3Ne1&xI0}$Y= zXe}V%_S}1^*hVz9-Xhu(4}V0_{CqA+M0A3S*)GVv^z(@56gA8*Xh~P}o#wQlGpNt> zg}%`>eSlsdx8!N|av0z>#H(^0kyW2yyz#Um!k1Pn%W#LpwW7^tg9e$PWNaDkHfPDX z3T+6U9P>SQbqpbhyl3tL3ZD7TEgtP6dZFPiM&hc`hS{$Mg<2cvj+*E?G&rW&Ej4R- z!gp=kQr!^V;p-UV8Vyokqduj5nc-|Ny1440sH zNf&!8Z$NUODDyciM`0)|pC3m>VH^$1E>mGW@Wt8)NA2{4BmM!saC|q)aRHW};KvI% z(bB~4KtAkK+WK(Uld20pbQydoRz*BgADT8FVjST&ALS?HuIMWw?4{mK7nGA1|2?Lj zCifUGDfbK_7E?#GvMlvj`ru3(%c6y4pEzku9rxln7|ucQZ1SS+d+T z7qwpbVc!%77B6NssqTq*R=oIj)Qd};apXi}X^Nuabnm;X42YRv4DokJz=<$fD8bK22%R@FF}%l>Emw=uIv!w@t7 E0yPtuiU0rr literal 0 HcmV?d00001 diff --git a/Source/PythonGUIInputOutput.pas b/Source/PythonGUIInputOutput.pas index e0db8ec8..85ce02b0 100644 --- a/Source/PythonGUIInputOutput.pas +++ b/Source/PythonGUIInputOutput.pas @@ -92,8 +92,6 @@ TPythonGUIInputOutput = class(TPythonInputOutput) property Output : TCustomMemo read FCustomMemo write FCustomMemo; end; -procedure Register; - implementation {$IFDEF FPC} @@ -247,9 +245,5 @@ procedure TPythonGUIInputOutput.DisplayString( const str : string ); end; {------------------------------------------------------------------------------} -procedure Register; -begin - RegisterComponents('Python', [TPythonGUIInputOutput]); -end; end. diff --git a/Source/PythonRegistration.pas b/Source/PythonRegistration.pas index 06cc3518..98fe4047 100644 --- a/Source/PythonRegistration.pas +++ b/Source/PythonRegistration.pas @@ -7,13 +7,13 @@ procedure Register(); implementation uses - Classes, PythonEngine, WrapDelphi; + Classes, PythonEngine, WrapDelphi, PythonGUIInputOutput; procedure Register(); begin RegisterComponents('Python', [TPythonEngine, TPythonType, TPythonModule, TPythonDelphiVar, TPythonInputOutput, - TPyDelphiWrapper]); + TPyDelphiWrapper, TPythonGUIInputOutput]); end; end. From c3ab94a914342b5ea7bb279919c9e54729dba2ad Mon Sep 17 00:00:00 2001 From: Lucas Moura Belo Date: Wed, 18 Nov 2020 08:43:32 -0300 Subject: [PATCH 5/7] TWrapDelphi component registration removed from run-time package --- Source/WrapDelphi.pas | 8 -------- 1 file changed, 8 deletions(-) diff --git a/Source/WrapDelphi.pas b/Source/WrapDelphi.pas index e2645b75..b336cdcf 100644 --- a/Source/WrapDelphi.pas +++ b/Source/WrapDelphi.pas @@ -865,9 +865,6 @@ TPyDelphiWrapper = class(TEngineClient, IFreeNotificationSubscriber) { Singletons } function RegisteredUnits : TRegisteredUnits; - { Misc } - procedure Register; - { Helper Functions } function CheckIndex(AIndex, ACount : Integer; const AIndexName : string = 'Index') : Boolean; @@ -946,11 +943,6 @@ function RegisteredUnits : TRegisteredUnits; Result := gRegisteredUnits; end; -procedure Register; -begin - RegisterComponents('Python', [TPyDelphiWrapper]); -end; - { Helper functions } {$IFDEF EXTENDED_RTTI} From a8fc864000b45e93dfb3fafe8db52a7343ae368d Mon Sep 17 00:00:00 2001 From: Lucas Moura Belo Date: Wed, 18 Nov 2020 08:47:59 -0300 Subject: [PATCH 6/7] Icons added to components --- Packages/Delphi/Delphi 10.4+/dclP4DEngine.dpk | 1 + .../Delphi/Delphi 10.4+/dclP4DEngine.dproj | 28 ++++++++++++++++++ .../Delphi/Delphi 10.4+/dclP4DEngine.dres | Bin 3180 -> 3208 bytes 3 files changed, 29 insertions(+) diff --git a/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dpk b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dpk index 1f77d807..d9ab04f4 100644 --- a/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dpk +++ b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dpk @@ -1,6 +1,7 @@ package dclP4DEngine; {$R *.res} +{$R *.dres} {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} {$ALIGN 8} {$ASSERTIONS ON} diff --git a/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj index 648d2a45..65670858 100644 --- a/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj +++ b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dproj @@ -149,6 +149,34 @@ + + BITMAP + TPyDelphiWrapper + + + BITMAP + TPythonDelphiVar + + + BITMAP + TPythonEngine + + + BITMAP + TPythonGUIInputOutput + + + BITMAP + TPythonInputOutput + + + BITMAP + TPythonModule + + + BITMAP + TPythonType + Cfg_2 Base diff --git a/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dres b/Packages/Delphi/Delphi 10.4+/dclP4DEngine.dres index bf7e51c4531f72fa172eb4778aae32c4f874be54..3844bb55722be5b7f01a54a143f77c1553354ca0 100644 GIT binary patch delta 67 zcmaDO(IGiOh0$T6sv>g$gX?5ors$0eF0e3qOy0;WD(%h?%HRovehdLXRtSSXm;|#o OU*ww2xH*T_gB1W;5D@JE delta 65 zcmeB>d?PVIh0$iBsv@&1L(t?x_VA5MF0gENVRvDb?qFnKFkoO{`2U}Y!HL0>A%ww~ V!I2?=A)di-b3VH# Date: Wed, 18 Nov 2020 12:04:59 -0300 Subject: [PATCH 7/7] Removing *.hpp --- Source/MethodCallBack.hpp | 43 - Source/PythonEngine.hpp | 4204 ------------------------------- Source/PythonGUIInputOutput.hpp | 70 - 3 files changed, 4317 deletions(-) delete mode 100644 Source/MethodCallBack.hpp delete mode 100644 Source/PythonEngine.hpp delete mode 100644 Source/PythonGUIInputOutput.hpp diff --git a/Source/MethodCallBack.hpp b/Source/MethodCallBack.hpp deleted file mode 100644 index 21767e8a..00000000 --- a/Source/MethodCallBack.hpp +++ /dev/null @@ -1,43 +0,0 @@ -// Borland C++ Builder -// Copyright (c) 1995, 2002 by Borland Software Corporation -// All rights reserved - -// (DO NOT EDIT: machine generated header) 'MethodCallBack.pas' rev: 6.00 - -#ifndef MethodCallBackHPP -#define MethodCallBackHPP - -#pragma delphiheader begin -#pragma option push -w- -#pragma option push -Vx -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit - -//-- user supplied ----------------------------------------------------------- - -namespace Methodcallback -{ -//-- type declarations ------------------------------------------------------- -#pragma option push -b- -enum TCallType { ctSTDCALL, ctCDECL }; -#pragma option pop - -typedef void __fastcall (__closure *TCallBack)(void); - -typedef int __stdcall (__closure *TDDEAPIfunc)(int CallType, int Fmt, int Conv, int hsz1, int hsz2, int Data, int Data1, int Data2); - -//-- var, const, procedure --------------------------------------------------- -extern PACKAGE void * __fastcall GetDDECallBack(TDDEAPIfunc method); -extern PACKAGE void * __fastcall GetOfObjectCallBack(TCallBack CallBack, int argnum, TCallType calltype); -extern PACKAGE void * __fastcall GetCallBack(System::TObject* self, void * method, int argnum, TCallType calltype); -extern PACKAGE void __fastcall DeleteCallBack(void * Proc); - -} /* namespace Methodcallback */ -using namespace Methodcallback; -#pragma option pop // -w- -#pragma option pop // -Vx - -#pragma delphiheader end. -//-- end unit ---------------------------------------------------------------- -#endif // MethodCallBack diff --git a/Source/PythonEngine.hpp b/Source/PythonEngine.hpp deleted file mode 100644 index 31096422..00000000 --- a/Source/PythonEngine.hpp +++ /dev/null @@ -1,4204 +0,0 @@ -// Borland C++ Builder -// Copyright (c) 1995, 2002 by Borland Software Corporation -// All rights reserved - -// (DO NOT EDIT: machine generated header) 'PythonEngine.pas' rev: 6.00 - -#ifndef PythonEngineHPP -#define PythonEngineHPP - -#pragma delphiheader begin -#pragma option push -w- -#pragma option push -Vx -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit - -//-- user supplied ----------------------------------------------------------- - -namespace Pythonengine -{ -//-- type declarations ------------------------------------------------------- -#pragma pack(push, 1) -struct TPythonVersionProp -{ - AnsiString DllName; - AnsiString RegVersion; - int APIVersion; - bool CanUseLatest; -} ; -#pragma pack(pop) - -typedef TPythonVersionProp PythonEngine__1[7]; - -#pragma option push -b- -enum TRichComparisonOpcode { pyLT, pyLE, pyEQ, pyNE, pyGT, pyGE }; -#pragma option pop - -#pragma option push -b- -enum TPFlag { tpfHaveGetCharBuffer, tpfHaveSequenceIn, tpfGC, tpfHaveInplaceOps, tpfCheckTypes, tpfHaveRichCompare, tpfHaveWeakRefs, tpfHaveIter, tpfHaveClass, tpfHeapType, tpfBaseType, tpfReady, tpfReadying, tpfHaveGC }; -#pragma option pop - -typedef Set TPFlags; - -typedef char *TPChar[16001]; - -typedef char * *PPChar; - -typedef int *PInt; - -typedef double *PDouble; - -typedef double *PFloat; - -typedef int *PLong; - -typedef Shortint *PShort; - -typedef char * *PString; - -struct _frozen; -typedef _frozen *P_frozen; - -typedef P_frozen *PP_frozen; - -struct PyObject; -typedef PyObject *PPyObject; - -typedef PPyObject *PPPyObject; - -typedef PPPyObject *PPPPyObject; - -struct PyIntObject; -typedef PyIntObject *PPyIntObject; - -struct PyTypeObject; -typedef PyTypeObject *PPyTypeObject; - -struct PySliceObject; -typedef PySliceObject *PPySliceObject; - -typedef void __fastcall (*AtExitProc)(void); - -typedef PPyObject __cdecl (*PyCFunction)(PPyObject self, PPyObject args); - -typedef PPyObject __cdecl (*unaryfunc)(PPyObject ob1); - -typedef PPyObject __cdecl (*binaryfunc)(PPyObject ob1, PPyObject ob2); - -typedef PPyObject __cdecl (*ternaryfunc)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - -typedef int __cdecl (*inquiry)(PPyObject ob1); - -typedef int __cdecl (*coercion)(PPPyObject ob1, PPPyObject ob2); - -typedef PPyObject __cdecl (*intargfunc)(PPyObject ob1, int i); - -typedef PPyObject __cdecl (*intintargfunc)(PPyObject ob1, int i1, int i2); - -typedef int __cdecl (*intobjargproc)(PPyObject ob1, int i, PPyObject ob2); - -typedef int __cdecl (*intintobjargproc)(PPyObject ob1, int i1, int i2, PPyObject ob2); - -typedef int __cdecl (*objobjargproc)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - -typedef void __cdecl (*pydestructor)(PPyObject ob); - -typedef int __cdecl (*printfunc)(PPyObject ob, file &f, int i); - -typedef PPyObject __cdecl (*getattrfunc)(PPyObject ob1, char * name); - -typedef int __cdecl (*setattrfunc)(PPyObject ob1, char * name, PPyObject ob2); - -typedef int __cdecl (*cmpfunc)(PPyObject ob1, PPyObject ob2); - -typedef PPyObject __cdecl (*reprfunc)(PPyObject ob); - -typedef int __cdecl (*hashfunc)(PPyObject ob); - -typedef PPyObject __cdecl (*getattrofunc)(PPyObject ob1, PPyObject ob2); - -typedef int __cdecl (*setattrofunc)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - -typedef int __cdecl (*getreadbufferproc)(PPyObject ob1, int i, void * ptr); - -typedef int __cdecl (*getwritebufferproc)(PPyObject ob1, int i, void * ptr); - -typedef int __cdecl (*getsegcountproc)(PPyObject ob1, int i); - -typedef int __cdecl (*getcharbufferproc)(PPyObject ob1, int i, const char * pstr); - -typedef int __cdecl (*objobjproc)(PPyObject ob1, PPyObject ob2); - -typedef int __cdecl (*visitproc)(PPyObject ob1, void * ptr); - -typedef int __cdecl (*traverseproc)(PPyObject ob1, visitproc proc, void * ptr); - -typedef PPyObject __cdecl (*richcmpfunc)(PPyObject ob1, PPyObject ob2, int i); - -typedef PPyObject __fastcall (*getiterfunc)(PPyObject ob1); - -typedef PPyObject __fastcall (*iternextfunc)(PPyObject ob1); - -typedef PPyObject __fastcall (*descrgetfunc)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - -typedef int __fastcall (*descrsetfunc)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - -typedef int __fastcall (*initproc)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - -typedef PPyObject __fastcall (*newfunc)(PPyTypeObject t, PPyObject ob1, PPyObject ob2); - -typedef PPyObject __fastcall (*allocfunc)(PPyTypeObject t, int i); - -#pragma pack(push, 1) -struct PyNumberMethods -{ - binaryfunc nb_add; - binaryfunc nb_substract; - binaryfunc nb_multiply; - binaryfunc nb_divide; - binaryfunc nb_remainder; - binaryfunc nb_divmod; - ternaryfunc nb_power; - unaryfunc nb_negative; - unaryfunc nb_positive; - unaryfunc nb_absolute; - inquiry nb_nonzero; - unaryfunc nb_invert; - binaryfunc nb_lshift; - binaryfunc nb_rshift; - binaryfunc nb_and; - binaryfunc nb_xor; - binaryfunc nb_or; - coercion nb_coerce; - unaryfunc nb_int; - unaryfunc nb_long; - unaryfunc nb_float; - unaryfunc nb_oct; - unaryfunc nb_hex; - binaryfunc nb_inplace_add; - binaryfunc nb_inplace_subtract; - binaryfunc nb_inplace_multiply; - binaryfunc nb_inplace_divide; - binaryfunc nb_inplace_remainder; - ternaryfunc nb_inplace_power; - binaryfunc nb_inplace_lshift; - binaryfunc nb_inplace_rshift; - binaryfunc nb_inplace_and; - binaryfunc nb_inplace_xor; - binaryfunc nb_inplace_or; - binaryfunc nb_floor_divide; - binaryfunc nb_true_divide; - binaryfunc nb_inplace_floor_divide; - binaryfunc nb_inplace_true_divide; -} ; -#pragma pack(pop) - -typedef PyNumberMethods *PPyNumberMethods; - -#pragma pack(push, 1) -struct PySequenceMethods -{ - inquiry sq_length; - binaryfunc sq_concat; - intargfunc sq_repeat; - intargfunc sq_item; - intintargfunc sq_slice; - intobjargproc sq_ass_item; - intintobjargproc sq_ass_slice; - objobjproc sq_contains; - binaryfunc sq_inplace_concat; - intargfunc sq_inplace_repeat; -} ; -#pragma pack(pop) - -typedef PySequenceMethods *PPySequenceMethods; - -#pragma pack(push, 1) -struct PyMappingMethods -{ - inquiry mp_length; - binaryfunc mp_subscript; - objobjargproc mp_ass_subscript; -} ; -#pragma pack(pop) - -typedef PyMappingMethods *PPyMappingMethods; - -#pragma pack(push, 1) -struct PyBufferProcs -{ - getreadbufferproc bf_getreadbuffer; - getwritebufferproc bf_getwritebuffer; - getsegcountproc bf_getsegcount; - getcharbufferproc bf_getcharbuffer; -} ; -#pragma pack(pop) - -typedef PyBufferProcs *PPyBufferProcs; - -#pragma pack(push, 1) -struct Py_complex -{ - double real; - double imag; -} ; -#pragma pack(pop) - -#pragma pack(push, 1) -struct PyObject -{ - int ob_refcnt; - PyTypeObject *ob_type; -} ; -#pragma pack(pop) - -#pragma pack(push, 1) -struct PyIntObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - int ob_ival; -} ; -#pragma pack(pop) - -#pragma pack(push, 1) -struct _frozen -{ - char *name; - Byte *code; - int size; -} ; -#pragma pack(pop) - -#pragma pack(push, 1) -struct PySliceObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - PyObject *start; - PyObject *stop; - PyObject *step; -} ; -#pragma pack(pop) - -struct PyMethodDef; -typedef PyMethodDef *PPyMethodDef; - -#pragma pack(push, 1) -struct PyMethodDef -{ - char *ml_name; - PyCFunction ml_meth; - int ml_flags; - char *ml_doc; -} ; -#pragma pack(pop) - -struct PyMemberDef; -typedef PyMemberDef *PPyMemberDef; - -#pragma pack(push, 1) -struct PyMemberDef -{ - char *name; - int _type; - int offset; - int flags; - char *doc; -} ; -#pragma pack(pop) - -typedef PPyObject __fastcall (*getter)(PPyObject ob, void * ptr); - -typedef int __fastcall (*setter)(PPyObject ob1, PPyObject ob2, void * ptr); - -struct PyGetSetDef; -typedef PyGetSetDef *PPyGetSetDef; - -#pragma pack(push, 1) -struct PyGetSetDef -{ - char *name; - getter get; - setter _set; - char *doc; - void *closure; -} ; -#pragma pack(pop) - -typedef PPyObject __fastcall (*wrapperfunc)(PPyObject self, PPyObject args, void * wrapped); - -struct wrapperbase; -typedef wrapperbase *pwrapperbase; - -#pragma pack(push, 1) -struct wrapperbase -{ - char *name; - wrapperfunc wrapper; - char *doc; -} ; -#pragma pack(pop) - -struct PyDescrObject; -typedef PyDescrObject *PPyDescrObject; - -#pragma pack(push, 1) -struct PyDescrObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - PyTypeObject *d_type; - PyObject *d_name; -} ; -#pragma pack(pop) - -struct PyMethodDescrObject; -typedef PyMethodDescrObject *PPyMethodDescrObject; - -#pragma pack(push, 1) -struct PyMethodDescrObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - PyTypeObject *d_type; - PyObject *d_name; - PyMethodDef *d_method; -} ; -#pragma pack(pop) - -struct PyMemberDescrObject; -typedef PyMemberDescrObject *PPyMemberDescrObject; - -#pragma pack(push, 1) -struct PyMemberDescrObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - PyTypeObject *d_type; - PyObject *d_name; - PyMemberDef *d_member; -} ; -#pragma pack(pop) - -struct PyGetSetDescrObject; -typedef PyGetSetDescrObject *PPyGetSetDescrObject; - -#pragma pack(push, 1) -struct PyGetSetDescrObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - PyTypeObject *d_type; - PyObject *d_name; - PyGetSetDef *d_getset; -} ; -#pragma pack(pop) - -struct PyWrapperDescrObject; -typedef PyWrapperDescrObject *PPyWrapperDescrObject; - -#pragma pack(push, 1) -struct PyWrapperDescrObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - PyTypeObject *d_type; - PyObject *d_name; - wrapperbase *d_base; - void *d_wrapped; -} ; -#pragma pack(pop) - -#pragma pack(push, 1) -struct PyTypeObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - int ob_size; - char *tp_name; - int tp_basicsize; - int tp_itemsize; - pydestructor tp_dealloc; - printfunc tp_print; - getattrfunc tp_getattr; - setattrfunc tp_setattr; - cmpfunc tp_compare; - reprfunc tp_repr; - PyNumberMethods *tp_as_number; - PySequenceMethods *tp_as_sequence; - PyMappingMethods *tp_as_mapping; - hashfunc tp_hash; - ternaryfunc tp_call; - reprfunc tp_str; - getattrofunc tp_getattro; - setattrofunc tp_setattro; - PyBufferProcs *tp_as_buffer; - int tp_flags; - char *tp_doc; - traverseproc tp_traverse; - inquiry tp_clear; - richcmpfunc tp_richcompare; - int tp_weaklistoffset; - getiterfunc tp_iter; - iternextfunc tp_iternext; - PyMethodDef *tp_methods; - PyMemberDef *tp_members; - PyGetSetDef *tp_getset; - PyTypeObject *tp_base; - PyObject *tp_dict; - descrgetfunc tp_descr_get; - descrsetfunc tp_descr_set; - int tp_dictoffset; - initproc tp_init; - allocfunc tp_alloc; - newfunc tp_new; - pydestructor tp_free; - inquiry tp_is_gc; - PyObject *tp_bases; - PyObject *tp_mro; - PyObject *tp_cache; - PyObject *tp_subclasses; - PyObject *tp_weaklist; -} ; -#pragma pack(pop) - -struct PyMethodChain; -typedef PyMethodChain *PPyMethodChain; - -#pragma pack(push, 1) -struct PyMethodChain -{ - PyMethodDef *methods; - PyMethodChain *link; -} ; -#pragma pack(pop) - -struct PyClassObject; -typedef PyClassObject *PPyClassObject; - -#pragma pack(push, 1) -struct PyClassObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - PyObject *cl_bases; - PyObject *cl_dict; - PyObject *cl_name; - PyObject *cl_getattr; - PyObject *cl_setattr; - PyObject *cl_delattr; -} ; -#pragma pack(pop) - -struct PyInstanceObject; -typedef PyInstanceObject *PPyInstanceObject; - -#pragma pack(push, 1) -struct PyInstanceObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - PyClassObject *in_class; - PyObject *in_dict; -} ; -#pragma pack(pop) - -struct PyMethodObject; -typedef PyMethodObject *PPyMethodObject; - -#pragma pack(push, 1) -struct PyMethodObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - PyObject *im_func; - PyObject *im_self; - PyObject *im_class; -} ; -#pragma pack(pop) - -struct PyCodeObject; -typedef PyCodeObject *PPyCodeObject; - -#pragma pack(push, 1) -struct PyCodeObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - int co_argcount; - int co_nlocals; - int co_stacksize; - int co_flags; - PyObject *co_code; - PyObject *co_consts; - PyObject *co_names; - PyObject *co_varnames; - PyObject *co_freevars; - PyObject *co_cellvars; - PyObject *co_filename; - PyObject *co_name; - int co_firstlineno; - PyObject *co_lnotab; -} ; -#pragma pack(pop) - -struct PyInterpreterState; -typedef PyInterpreterState *PPyInterpreterState; - -struct PyThreadState; -typedef PyThreadState *PPyThreadState; - -struct PyFrameObject; -typedef PyFrameObject *PPyFrameObject; - -#pragma pack(push, 1) -struct PyInterpreterState -{ - PyInterpreterState *next; - PyThreadState *tstate_head; - PyObject *modules; - PyObject *sysdict; - PyObject *builtins; - int checkinterval; -} ; -#pragma pack(pop) - -#pragma pack(push, 1) -struct PyThreadState -{ - PyThreadState *next; - PyInterpreterState *interp; - PyFrameObject *frame; - int recursion_depth; - int ticker; - int tracing; - PyObject *sys_profilefunc; - PyObject *sys_tracefunc; - PyObject *curexc_type; - PyObject *curexc_value; - PyObject *curexc_traceback; - PyObject *exc_type; - PyObject *exc_value; - PyObject *exc_traceback; - PyObject *dict; -} ; -#pragma pack(pop) - -struct PyTryBlock; -typedef PyTryBlock *PPyTryBlock; - -#pragma pack(push, 1) -struct PyTryBlock -{ - int b_type; - int b_handler; - int b_level; -} ; -#pragma pack(pop) - -typedef Shortint CO_MAXBLOCKS; - -#pragma pack(push, 1) -struct PyFrameObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - int ob_size; - PyFrameObject *f_back; - PyCodeObject *f_code; - PyObject *f_builtins; - PyObject *f_globals; - PyObject *f_locals; - PPyObject *f_valuestack; - PPyObject *f_stacktop; - PyObject *f_trace; - PyObject *f_exc_type; - PyObject *f_exc_value; - PyObject *f_exc_traceback; - PyThreadState *f_tstate; - int f_lasti; - int f_lineno; - int f_restricted; - int f_iblock; - PyTryBlock f_blockstack[20]; - int f_nlocals; - int f_ncells; - int f_nfreevars; - int f_stacksize; - PyObject *f_localsplus[1]; -} ; -#pragma pack(pop) - -struct PyTraceBackObject; -typedef PyTraceBackObject *PPyTraceBackObject; - -#pragma pack(push, 1) -struct PyTraceBackObject -{ - int ob_refcnt; - PyTypeObject *ob_type; - PyTraceBackObject *tb_next; - PyFrameObject *tb_frame; - int tb_lasti; - int tb_lineno; -} ; -#pragma pack(pop) - -struct node; -typedef node *PNode; - -#pragma pack(push, 1) -struct node -{ - short n_type; - char *n_str; - short n_lineno; - short n_nchildren; - node *n_child; -} ; -#pragma pack(pop) - -struct PyWeakReference; -typedef PyWeakReference *PPyWeakReference; - -#pragma pack(push, 1) -struct PyWeakReference -{ - int ob_refcnt; - PyTypeObject *ob_type; - PyObject *wr_object; - PyObject *wr_callback; - int hash; - PyWeakReference *wr_prev; - PyWeakReference *wr_next; -} ; -#pragma pack(pop) - -#pragma pack(push, 1) -struct PyDateTime_Date -{ - int ob_refcnt; - PyTypeObject *ob_type; - int hashcode; - Byte data[4]; -} ; -#pragma pack(pop) - -typedef PyDateTime_Date *PPyDateTime_Date; - -#pragma pack(push, 1) -struct PyDateTime_DateTime -{ - int ob_refcnt; - PyTypeObject *ob_type; - int hashcode; - Byte data[10]; -} ; -#pragma pack(pop) - -typedef PyDateTime_DateTime *PPyDateTime_DateTime; - -#pragma pack(push, 1) -struct PyDateTime_DateTimeTZ -{ - int ob_refcnt; - PyTypeObject *ob_type; - int hashcode; - Byte data[10]; - PyObject *tzinfo; -} ; -#pragma pack(pop) - -typedef PyDateTime_DateTimeTZ *PPyDateTime_DateTimeTZ; - -#pragma pack(push, 1) -struct PyDateTime_Time -{ - int ob_refcnt; - PyTypeObject *ob_type; - int hashcode; - Byte data[6]; -} ; -#pragma pack(pop) - -typedef PyDateTime_Time *PPyDateTime_Time; - -#pragma pack(push, 1) -struct PyDateTime_TimeTZ -{ - int ob_refcnt; - PyTypeObject *ob_type; - int hashcode; - Byte data[6]; - PyObject *tzinfo; -} ; -#pragma pack(pop) - -typedef PyDateTime_TimeTZ *PPyDateTime_TimeTZ; - -#pragma pack(push, 1) -struct PyDateTime_Delta -{ - int ob_refcnt; - PyTypeObject *ob_type; - int hashcode; - int days; - int seconds; - int microseconds; -} ; -#pragma pack(pop) - -typedef PyDateTime_Delta *PPyDateTime_Delta; - -#pragma pack(push, 1) -struct PyDateTime_TZInfo -{ - int ob_refcnt; - PyTypeObject *ob_type; -} ; -#pragma pack(pop) - -typedef PyDateTime_TZInfo *PPyDateTime_TZInfo; - -class DELPHICLASS EDLLLoadError; -class PASCALIMPLEMENTATION EDLLLoadError : public Sysutils::Exception -{ - typedef Sysutils::Exception inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EDLLLoadError(const AnsiString Msg) : Sysutils::Exception(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EDLLLoadError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EDLLLoadError(int Ident)/* overload */ : Sysutils::Exception(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EDLLLoadError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EDLLLoadError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EDLLLoadError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EDLLLoadError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EDLLLoadError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EDLLLoadError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EDLLImportError; -class PASCALIMPLEMENTATION EDLLImportError : public Sysutils::Exception -{ - typedef Sysutils::Exception inherited; - -public: - AnsiString WrongFunc; - int ErrorCode; -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EDLLImportError(const AnsiString Msg) : Sysutils::Exception(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EDLLImportError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EDLLImportError(int Ident)/* overload */ : Sysutils::Exception(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EDLLImportError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EDLLImportError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EDLLImportError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EDLLImportError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EDLLImportError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EDLLImportError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPythonError; -class PASCALIMPLEMENTATION EPythonError : public Sysutils::Exception -{ - typedef Sysutils::Exception inherited; - -public: - AnsiString EName; - AnsiString EValue; -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPythonError(const AnsiString Msg) : Sysutils::Exception(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPythonError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPythonError(int Ident)/* overload */ : Sysutils::Exception(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPythonError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPythonError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPythonError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPythonError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPythonError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPythonError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyExecError; -class PASCALIMPLEMENTATION EPyExecError : public EPythonError -{ - typedef EPythonError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyExecError(const AnsiString Msg) : EPythonError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyExecError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPythonError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyExecError(int Ident)/* overload */ : EPythonError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyExecError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPythonError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyExecError(const AnsiString Msg, int AHelpContext) : EPythonError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyExecError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPythonError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyExecError(int Ident, int AHelpContext)/* overload */ : EPythonError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyExecError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPythonError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyExecError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyException; -class PASCALIMPLEMENTATION EPyException : public EPythonError -{ - typedef EPythonError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyException(const AnsiString Msg) : EPythonError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyException(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPythonError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyException(int Ident)/* overload */ : EPythonError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyException(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPythonError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyException(const AnsiString Msg, int AHelpContext) : EPythonError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyException(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPythonError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyException(int Ident, int AHelpContext)/* overload */ : EPythonError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyException(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPythonError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyException(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyStandardError; -class PASCALIMPLEMENTATION EPyStandardError : public EPyException -{ - typedef EPyException inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyStandardError(const AnsiString Msg) : EPyException(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyStandardError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyException(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyStandardError(int Ident)/* overload */ : EPyException(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyStandardError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyException(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyStandardError(const AnsiString Msg, int AHelpContext) : EPyException(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyStandardError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyException(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyStandardError(int Ident, int AHelpContext)/* overload */ : EPyException(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyStandardError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyException(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyStandardError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyArithmeticError; -class PASCALIMPLEMENTATION EPyArithmeticError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyArithmeticError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyArithmeticError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyArithmeticError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyArithmeticError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyArithmeticError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyArithmeticError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyArithmeticError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyArithmeticError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyArithmeticError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyLookupError; -class PASCALIMPLEMENTATION EPyLookupError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyLookupError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyLookupError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyLookupError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyLookupError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyLookupError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyLookupError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyLookupError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyLookupError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyLookupError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyAssertionError; -class PASCALIMPLEMENTATION EPyAssertionError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyAssertionError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyAssertionError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyAssertionError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyAssertionError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyAssertionError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyAssertionError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyAssertionError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyAssertionError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyAssertionError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyAttributeError; -class PASCALIMPLEMENTATION EPyAttributeError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyAttributeError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyAttributeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyAttributeError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyAttributeError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyAttributeError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyAttributeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyAttributeError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyAttributeError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyAttributeError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyEOFError; -class PASCALIMPLEMENTATION EPyEOFError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyEOFError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyEOFError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyEOFError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyEOFError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyEOFError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyEOFError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyEOFError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyEOFError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyEOFError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyFloatingPointError; -class PASCALIMPLEMENTATION EPyFloatingPointError : public EPyArithmeticError -{ - typedef EPyArithmeticError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyFloatingPointError(const AnsiString Msg) : EPyArithmeticError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyFloatingPointError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyArithmeticError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyFloatingPointError(int Ident)/* overload */ : EPyArithmeticError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyFloatingPointError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyArithmeticError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyFloatingPointError(const AnsiString Msg, int AHelpContext) : EPyArithmeticError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyFloatingPointError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyArithmeticError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyFloatingPointError(int Ident, int AHelpContext)/* overload */ : EPyArithmeticError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyFloatingPointError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyArithmeticError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyFloatingPointError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyEnvironmentError; -class PASCALIMPLEMENTATION EPyEnvironmentError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyEnvironmentError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyEnvironmentError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyEnvironmentError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyEnvironmentError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyEnvironmentError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyEnvironmentError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyEnvironmentError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyEnvironmentError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyEnvironmentError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyIOError; -class PASCALIMPLEMENTATION EPyIOError : public EPyEnvironmentError -{ - typedef EPyEnvironmentError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyIOError(const AnsiString Msg) : EPyEnvironmentError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyIOError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyEnvironmentError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyIOError(int Ident)/* overload */ : EPyEnvironmentError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyIOError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyEnvironmentError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyIOError(const AnsiString Msg, int AHelpContext) : EPyEnvironmentError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyIOError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyEnvironmentError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyIOError(int Ident, int AHelpContext)/* overload */ : EPyEnvironmentError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyIOError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyEnvironmentError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyIOError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyOSError; -class PASCALIMPLEMENTATION EPyOSError : public EPyEnvironmentError -{ - typedef EPyEnvironmentError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyOSError(const AnsiString Msg) : EPyEnvironmentError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyOSError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyEnvironmentError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyOSError(int Ident)/* overload */ : EPyEnvironmentError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyOSError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyEnvironmentError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyOSError(const AnsiString Msg, int AHelpContext) : EPyEnvironmentError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyOSError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyEnvironmentError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyOSError(int Ident, int AHelpContext)/* overload */ : EPyEnvironmentError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyOSError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyEnvironmentError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyOSError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyImportError; -class PASCALIMPLEMENTATION EPyImportError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyImportError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyImportError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyImportError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyImportError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyImportError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyImportError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyImportError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyImportError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyImportError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyIndexError; -class PASCALIMPLEMENTATION EPyIndexError : public EPyLookupError -{ - typedef EPyLookupError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyIndexError(const AnsiString Msg) : EPyLookupError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyIndexError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyLookupError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyIndexError(int Ident)/* overload */ : EPyLookupError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyIndexError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyLookupError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyIndexError(const AnsiString Msg, int AHelpContext) : EPyLookupError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyIndexError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyLookupError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyIndexError(int Ident, int AHelpContext)/* overload */ : EPyLookupError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyIndexError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyLookupError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyIndexError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyKeyError; -class PASCALIMPLEMENTATION EPyKeyError : public EPyLookupError -{ - typedef EPyLookupError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyKeyError(const AnsiString Msg) : EPyLookupError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyKeyError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyLookupError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyKeyError(int Ident)/* overload */ : EPyLookupError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyKeyError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyLookupError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyKeyError(const AnsiString Msg, int AHelpContext) : EPyLookupError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyKeyError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyLookupError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyKeyError(int Ident, int AHelpContext)/* overload */ : EPyLookupError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyKeyError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyLookupError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyKeyError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyKeyboardInterrupt; -class PASCALIMPLEMENTATION EPyKeyboardInterrupt : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyKeyboardInterrupt(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyKeyboardInterrupt(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyKeyboardInterrupt(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyKeyboardInterrupt(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyKeyboardInterrupt(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyKeyboardInterrupt(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyKeyboardInterrupt(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyKeyboardInterrupt(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyKeyboardInterrupt(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyMemoryError; -class PASCALIMPLEMENTATION EPyMemoryError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyMemoryError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyMemoryError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyMemoryError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyMemoryError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyMemoryError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyMemoryError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyMemoryError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyMemoryError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyMemoryError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyNameError; -class PASCALIMPLEMENTATION EPyNameError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyNameError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyNameError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyNameError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyNameError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyNameError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyNameError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyNameError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyNameError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyNameError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyOverflowError; -class PASCALIMPLEMENTATION EPyOverflowError : public EPyArithmeticError -{ - typedef EPyArithmeticError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyOverflowError(const AnsiString Msg) : EPyArithmeticError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyOverflowError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyArithmeticError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyOverflowError(int Ident)/* overload */ : EPyArithmeticError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyOverflowError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyArithmeticError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyOverflowError(const AnsiString Msg, int AHelpContext) : EPyArithmeticError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyOverflowError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyArithmeticError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyOverflowError(int Ident, int AHelpContext)/* overload */ : EPyArithmeticError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyOverflowError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyArithmeticError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyOverflowError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyRuntimeError; -class PASCALIMPLEMENTATION EPyRuntimeError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyRuntimeError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyRuntimeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyRuntimeError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyRuntimeError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyRuntimeError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyRuntimeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyRuntimeError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyRuntimeError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyRuntimeError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyNotImplementedError; -class PASCALIMPLEMENTATION EPyNotImplementedError : public EPyRuntimeError -{ - typedef EPyRuntimeError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyNotImplementedError(const AnsiString Msg) : EPyRuntimeError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyNotImplementedError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyRuntimeError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyNotImplementedError(int Ident)/* overload */ : EPyRuntimeError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyNotImplementedError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyRuntimeError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyNotImplementedError(const AnsiString Msg, int AHelpContext) : EPyRuntimeError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyNotImplementedError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyRuntimeError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyNotImplementedError(int Ident, int AHelpContext)/* overload */ : EPyRuntimeError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyNotImplementedError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyRuntimeError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyNotImplementedError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPySyntaxError; -class PASCALIMPLEMENTATION EPySyntaxError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - AnsiString EFileName; - AnsiString ELineStr; - int ELineNumber; - int EOffset; -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPySyntaxError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPySyntaxError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPySyntaxError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPySyntaxError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPySyntaxError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPySyntaxError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPySyntaxError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPySyntaxError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPySyntaxError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyIndentationError; -class PASCALIMPLEMENTATION EPyIndentationError : public EPySyntaxError -{ - typedef EPySyntaxError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyIndentationError(const AnsiString Msg) : EPySyntaxError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyIndentationError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPySyntaxError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyIndentationError(int Ident)/* overload */ : EPySyntaxError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyIndentationError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPySyntaxError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyIndentationError(const AnsiString Msg, int AHelpContext) : EPySyntaxError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyIndentationError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPySyntaxError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyIndentationError(int Ident, int AHelpContext)/* overload */ : EPySyntaxError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyIndentationError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPySyntaxError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyIndentationError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyTabError; -class PASCALIMPLEMENTATION EPyTabError : public EPyIndentationError -{ - typedef EPyIndentationError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyTabError(const AnsiString Msg) : EPyIndentationError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyTabError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyIndentationError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyTabError(int Ident)/* overload */ : EPyIndentationError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyTabError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyIndentationError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyTabError(const AnsiString Msg, int AHelpContext) : EPyIndentationError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyTabError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyIndentationError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyTabError(int Ident, int AHelpContext)/* overload */ : EPyIndentationError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyTabError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyIndentationError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyTabError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPySystemError; -class PASCALIMPLEMENTATION EPySystemError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPySystemError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPySystemError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPySystemError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPySystemError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPySystemError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPySystemError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPySystemError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPySystemError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPySystemError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPySystemExit; -class PASCALIMPLEMENTATION EPySystemExit : public EPyException -{ - typedef EPyException inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPySystemExit(const AnsiString Msg) : EPyException(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPySystemExit(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyException(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPySystemExit(int Ident)/* overload */ : EPyException(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPySystemExit(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyException(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPySystemExit(const AnsiString Msg, int AHelpContext) : EPyException(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPySystemExit(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyException(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPySystemExit(int Ident, int AHelpContext)/* overload */ : EPyException(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPySystemExit(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyException(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPySystemExit(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyTypeError; -class PASCALIMPLEMENTATION EPyTypeError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyTypeError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyTypeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyTypeError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyTypeError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyTypeError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyTypeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyTypeError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyTypeError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyTypeError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyUnboundLocalError; -class PASCALIMPLEMENTATION EPyUnboundLocalError : public EPyNameError -{ - typedef EPyNameError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyUnboundLocalError(const AnsiString Msg) : EPyNameError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyUnboundLocalError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyNameError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyUnboundLocalError(int Ident)/* overload */ : EPyNameError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyUnboundLocalError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyNameError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyUnboundLocalError(const AnsiString Msg, int AHelpContext) : EPyNameError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyUnboundLocalError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyNameError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyUnboundLocalError(int Ident, int AHelpContext)/* overload */ : EPyNameError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyUnboundLocalError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyNameError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyUnboundLocalError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyValueError; -class PASCALIMPLEMENTATION EPyValueError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyValueError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyValueError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyValueError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyValueError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyValueError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyValueError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyValueError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyValueError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyValueError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyUnicodeError; -class PASCALIMPLEMENTATION EPyUnicodeError : public EPyValueError -{ - typedef EPyValueError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyUnicodeError(const AnsiString Msg) : EPyValueError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyUnicodeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyValueError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyUnicodeError(int Ident)/* overload */ : EPyValueError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyUnicodeError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyValueError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyUnicodeError(const AnsiString Msg, int AHelpContext) : EPyValueError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyUnicodeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyValueError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyUnicodeError(int Ident, int AHelpContext)/* overload */ : EPyValueError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyUnicodeError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyValueError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyUnicodeError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS UnicodeEncodeError; -class PASCALIMPLEMENTATION UnicodeEncodeError : public EPyUnicodeError -{ - typedef EPyUnicodeError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall UnicodeEncodeError(const AnsiString Msg) : EPyUnicodeError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall UnicodeEncodeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyUnicodeError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall UnicodeEncodeError(int Ident)/* overload */ : EPyUnicodeError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall UnicodeEncodeError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyUnicodeError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall UnicodeEncodeError(const AnsiString Msg, int AHelpContext) : EPyUnicodeError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall UnicodeEncodeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyUnicodeError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall UnicodeEncodeError(int Ident, int AHelpContext)/* overload */ : EPyUnicodeError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall UnicodeEncodeError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyUnicodeError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~UnicodeEncodeError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS UnicodeDecodeError; -class PASCALIMPLEMENTATION UnicodeDecodeError : public EPyUnicodeError -{ - typedef EPyUnicodeError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall UnicodeDecodeError(const AnsiString Msg) : EPyUnicodeError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall UnicodeDecodeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyUnicodeError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall UnicodeDecodeError(int Ident)/* overload */ : EPyUnicodeError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall UnicodeDecodeError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyUnicodeError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall UnicodeDecodeError(const AnsiString Msg, int AHelpContext) : EPyUnicodeError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall UnicodeDecodeError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyUnicodeError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall UnicodeDecodeError(int Ident, int AHelpContext)/* overload */ : EPyUnicodeError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall UnicodeDecodeError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyUnicodeError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~UnicodeDecodeError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS UnicodeTranslateError; -class PASCALIMPLEMENTATION UnicodeTranslateError : public EPyUnicodeError -{ - typedef EPyUnicodeError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall UnicodeTranslateError(const AnsiString Msg) : EPyUnicodeError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall UnicodeTranslateError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyUnicodeError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall UnicodeTranslateError(int Ident)/* overload */ : EPyUnicodeError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall UnicodeTranslateError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyUnicodeError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall UnicodeTranslateError(const AnsiString Msg, int AHelpContext) : EPyUnicodeError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall UnicodeTranslateError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyUnicodeError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall UnicodeTranslateError(int Ident, int AHelpContext)/* overload */ : EPyUnicodeError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall UnicodeTranslateError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyUnicodeError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~UnicodeTranslateError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyZeroDivisionError; -class PASCALIMPLEMENTATION EPyZeroDivisionError : public EPyArithmeticError -{ - typedef EPyArithmeticError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyZeroDivisionError(const AnsiString Msg) : EPyArithmeticError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyZeroDivisionError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyArithmeticError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyZeroDivisionError(int Ident)/* overload */ : EPyArithmeticError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyZeroDivisionError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyArithmeticError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyZeroDivisionError(const AnsiString Msg, int AHelpContext) : EPyArithmeticError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyZeroDivisionError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyArithmeticError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyZeroDivisionError(int Ident, int AHelpContext)/* overload */ : EPyArithmeticError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyZeroDivisionError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyArithmeticError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyZeroDivisionError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyStopIteration; -class PASCALIMPLEMENTATION EPyStopIteration : public EPyException -{ - typedef EPyException inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyStopIteration(const AnsiString Msg) : EPyException(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyStopIteration(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyException(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyStopIteration(int Ident)/* overload */ : EPyException(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyStopIteration(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyException(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyStopIteration(const AnsiString Msg, int AHelpContext) : EPyException(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyStopIteration(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyException(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyStopIteration(int Ident, int AHelpContext)/* overload */ : EPyException(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyStopIteration(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyException(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyStopIteration(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyWarning; -class PASCALIMPLEMENTATION EPyWarning : public EPyException -{ - typedef EPyException inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyWarning(const AnsiString Msg) : EPyException(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyException(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyWarning(int Ident)/* overload */ : EPyException(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyWarning(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyException(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyWarning(const AnsiString Msg, int AHelpContext) : EPyException(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyException(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyWarning(int Ident, int AHelpContext)/* overload */ : EPyException(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyWarning(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyException(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyWarning(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyUserWarning; -class PASCALIMPLEMENTATION EPyUserWarning : public EPyWarning -{ - typedef EPyWarning inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyUserWarning(const AnsiString Msg) : EPyWarning(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyUserWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyWarning(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyUserWarning(int Ident)/* overload */ : EPyWarning(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyUserWarning(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyWarning(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyUserWarning(const AnsiString Msg, int AHelpContext) : EPyWarning(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyUserWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyWarning(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyUserWarning(int Ident, int AHelpContext)/* overload */ : EPyWarning(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyUserWarning(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyWarning(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyUserWarning(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyDeprecationWarning; -class PASCALIMPLEMENTATION EPyDeprecationWarning : public EPyWarning -{ - typedef EPyWarning inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyDeprecationWarning(const AnsiString Msg) : EPyWarning(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyDeprecationWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyWarning(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyDeprecationWarning(int Ident)/* overload */ : EPyWarning(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyDeprecationWarning(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyWarning(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyDeprecationWarning(const AnsiString Msg, int AHelpContext) : EPyWarning(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyDeprecationWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyWarning(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyDeprecationWarning(int Ident, int AHelpContext)/* overload */ : EPyWarning(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyDeprecationWarning(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyWarning(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyDeprecationWarning(void) { } - #pragma option pop - -}; - - -class DELPHICLASS PendingDeprecationWarning; -class PASCALIMPLEMENTATION PendingDeprecationWarning : public EPyWarning -{ - typedef EPyWarning inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall PendingDeprecationWarning(const AnsiString Msg) : EPyWarning(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall PendingDeprecationWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyWarning(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall PendingDeprecationWarning(int Ident)/* overload */ : EPyWarning(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall PendingDeprecationWarning(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyWarning(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall PendingDeprecationWarning(const AnsiString Msg, int AHelpContext) : EPyWarning(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall PendingDeprecationWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyWarning(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall PendingDeprecationWarning(int Ident, int AHelpContext)/* overload */ : EPyWarning(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall PendingDeprecationWarning(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyWarning(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~PendingDeprecationWarning(void) { } - #pragma option pop - -}; - - -class DELPHICLASS FutureWarning; -class PASCALIMPLEMENTATION FutureWarning : public EPyWarning -{ - typedef EPyWarning inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall FutureWarning(const AnsiString Msg) : EPyWarning(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall FutureWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyWarning(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall FutureWarning(int Ident)/* overload */ : EPyWarning(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall FutureWarning(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyWarning(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall FutureWarning(const AnsiString Msg, int AHelpContext) : EPyWarning(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall FutureWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyWarning(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall FutureWarning(int Ident, int AHelpContext)/* overload */ : EPyWarning(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall FutureWarning(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyWarning(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~FutureWarning(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPySyntaxWarning; -class PASCALIMPLEMENTATION EPySyntaxWarning : public EPyWarning -{ - typedef EPyWarning inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPySyntaxWarning(const AnsiString Msg) : EPyWarning(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPySyntaxWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyWarning(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPySyntaxWarning(int Ident)/* overload */ : EPyWarning(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPySyntaxWarning(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyWarning(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPySyntaxWarning(const AnsiString Msg, int AHelpContext) : EPyWarning(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPySyntaxWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyWarning(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPySyntaxWarning(int Ident, int AHelpContext)/* overload */ : EPyWarning(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPySyntaxWarning(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyWarning(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPySyntaxWarning(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyOverflowWarning; -class PASCALIMPLEMENTATION EPyOverflowWarning : public EPyWarning -{ - typedef EPyWarning inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyOverflowWarning(const AnsiString Msg) : EPyWarning(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyOverflowWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyWarning(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyOverflowWarning(int Ident)/* overload */ : EPyWarning(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyOverflowWarning(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyWarning(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyOverflowWarning(const AnsiString Msg, int AHelpContext) : EPyWarning(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyOverflowWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyWarning(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyOverflowWarning(int Ident, int AHelpContext)/* overload */ : EPyWarning(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyOverflowWarning(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyWarning(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyOverflowWarning(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyRuntimeWarning; -class PASCALIMPLEMENTATION EPyRuntimeWarning : public EPyWarning -{ - typedef EPyWarning inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyRuntimeWarning(const AnsiString Msg) : EPyWarning(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyRuntimeWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyWarning(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyRuntimeWarning(int Ident)/* overload */ : EPyWarning(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyRuntimeWarning(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyWarning(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyRuntimeWarning(const AnsiString Msg, int AHelpContext) : EPyWarning(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyRuntimeWarning(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyWarning(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyRuntimeWarning(int Ident, int AHelpContext)/* overload */ : EPyWarning(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyRuntimeWarning(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyWarning(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyRuntimeWarning(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyReferenceError; -class PASCALIMPLEMENTATION EPyReferenceError : public EPyStandardError -{ - typedef EPyStandardError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyReferenceError(const AnsiString Msg) : EPyStandardError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyReferenceError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyStandardError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyReferenceError(int Ident)/* overload */ : EPyStandardError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyReferenceError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyStandardError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyReferenceError(const AnsiString Msg, int AHelpContext) : EPyStandardError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyReferenceError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyStandardError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyReferenceError(int Ident, int AHelpContext)/* overload */ : EPyStandardError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyReferenceError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyStandardError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyReferenceError(void) { } - #pragma option pop - -}; - - -class DELPHICLASS EPyWindowsError; -class PASCALIMPLEMENTATION EPyWindowsError : public EPyOSError -{ - typedef EPyOSError inherited; - -public: - #pragma option push -w-inl - /* Exception.Create */ inline __fastcall EPyWindowsError(const AnsiString Msg) : EPyOSError(Msg) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmt */ inline __fastcall EPyWindowsError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : EPyOSError(Msg, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateRes */ inline __fastcall EPyWindowsError(int Ident)/* overload */ : EPyOSError(Ident) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmt */ inline __fastcall EPyWindowsError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : EPyOSError(Ident, Args, Args_Size) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateHelp */ inline __fastcall EPyWindowsError(const AnsiString Msg, int AHelpContext) : EPyOSError(Msg, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateFmtHelp */ inline __fastcall EPyWindowsError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : EPyOSError(Msg, Args, Args_Size, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResHelp */ inline __fastcall EPyWindowsError(int Ident, int AHelpContext)/* overload */ : EPyOSError(Ident, AHelpContext) { } - #pragma option pop - #pragma option push -w-inl - /* Exception.CreateResFmtHelp */ inline __fastcall EPyWindowsError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EPyOSError(ResStringRec, Args, Args_Size, AHelpContext) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~EPyWindowsError(void) { } - #pragma option pop - -}; - - -typedef void __fastcall (__closure *TSendDataEvent)(System::TObject* Sender, const AnsiString Data); - -typedef void __fastcall (__closure *TReceiveDataEvent)(System::TObject* Sender, AnsiString &Data); - -class DELPHICLASS TPythonInputOutput; -class PASCALIMPLEMENTATION TPythonInputOutput : public Classes::TComponent -{ - typedef Classes::TComponent inherited; - -protected: - int FMaxLines; - AnsiString FLine_Buffer; - Classes::TStringList* FLinesPerThread; - Syncobjs::TCriticalSection* FLock; - Classes::TStringList* FQueue; - bool FDelayWrites; - int FMaxLineLength; - TSendDataEvent FOnSendData; - TReceiveDataEvent FOnReceiveData; - void __fastcall Lock(void); - void __fastcall Unlock(void); - void __fastcall AddWrite(const AnsiString str); - virtual void __fastcall SendData(const AnsiString Data); - virtual AnsiString __fastcall ReceiveData(); - virtual void __fastcall AddPendingWrite(void); - int __fastcall GetCurrentThreadSlotIdx(void); - AnsiString __fastcall GetCurrentThreadLine(); - void __fastcall UpdateCurrentThreadLine(void); - -public: - __fastcall virtual TPythonInputOutput(Classes::TComponent* AOwner); - __fastcall virtual ~TPythonInputOutput(void); - void __fastcall Write(const AnsiString str); - void __fastcall WriteLine(const AnsiString str); - -__published: - __property int MaxLines = {read=FMaxLines, write=FMaxLines, default=1000}; - __property int MaxLineLength = {read=FMaxLineLength, write=FMaxLineLength, default=256}; - __property bool DelayWrites = {read=FDelayWrites, write=FDelayWrites, default=0}; - __property TSendDataEvent OnSendData = {read=FOnSendData, write=FOnSendData}; - __property TReceiveDataEvent OnReceiveData = {read=FOnReceiveData, write=FOnReceiveData}; -}; - - -class DELPHICLASS TDynamicDll; -class PASCALIMPLEMENTATION TDynamicDll : public Classes::TComponent -{ - typedef Classes::TComponent inherited; - -private: - bool __fastcall IsAPIVersionStored(void); - bool __fastcall IsDllNameStored(void); - bool __fastcall IsRegVersionStored(void); - -protected: - AnsiString FDllName; - AnsiString FDllPath; - int FAPIVersion; - AnsiString FRegVersion; - bool FAutoLoad; - bool FAutoUnload; - bool FFatalMsgDlg; - bool FFatalAbort; - unsigned FDLLHandle; - bool FUseLastKnownVersion; - Classes::TNotifyEvent FOnBeforeLoad; - Classes::TNotifyEvent FOnAfterLoad; - Classes::TNotifyEvent FOnBeforeUnload; - void * __fastcall Import(const AnsiString funcname); - virtual void __fastcall Loaded(void); - virtual void __fastcall BeforeLoad(void); - virtual void __fastcall AfterLoad(void); - virtual void __fastcall BeforeUnload(void); - virtual AnsiString __fastcall GetQuitMessage(); - virtual void __fastcall DoOpenDll(const AnsiString aDllName); - AnsiString __fastcall GetDllPath(); - -public: - __fastcall virtual TDynamicDll(Classes::TComponent* AOwner); - __fastcall virtual ~TDynamicDll(void); - void __fastcall OpenDll(const AnsiString aDllName); - bool __fastcall IsHandleValid(void); - void __fastcall LoadDll(void); - void __fastcall UnloadDll(void); - void __fastcall Quit(void); - -__published: - __property bool AutoLoad = {read=FAutoLoad, write=FAutoLoad, default=1}; - __property bool AutoUnload = {read=FAutoUnload, write=FAutoUnload, default=1}; - __property AnsiString DllName = {read=FDllName, write=FDllName, stored=IsDllNameStored}; - __property AnsiString DllPath = {read=FDllPath, write=FDllPath}; - __property int APIVersion = {read=FAPIVersion, write=FAPIVersion, stored=IsAPIVersionStored, nodefault}; - __property AnsiString RegVersion = {read=FRegVersion, write=FRegVersion, stored=IsRegVersionStored}; - __property bool FatalAbort = {read=FFatalAbort, write=FFatalAbort, default=1}; - __property bool FatalMsgDlg = {read=FFatalMsgDlg, write=FFatalMsgDlg, default=1}; - __property bool UseLastKnownVersion = {read=FUseLastKnownVersion, write=FUseLastKnownVersion, default=1}; - __property Classes::TNotifyEvent OnAfterLoad = {read=FOnAfterLoad, write=FOnAfterLoad}; - __property Classes::TNotifyEvent OnBeforeLoad = {read=FOnBeforeLoad, write=FOnBeforeLoad}; - __property Classes::TNotifyEvent OnBeforeUnload = {read=FOnBeforeUnload, write=FOnBeforeUnload}; -}; - - -class DELPHICLASS TPythonInterface; -class PASCALIMPLEMENTATION TPythonInterface : public TDynamicDll -{ - typedef TDynamicDll inherited; - -private: - int __cdecl (*DLL_PyArg_Parse)(PPyObject args, char * format); - int __cdecl (*DLL_PyArg_ParseTuple)(PPyObject args, char * format); - PPyObject __cdecl (*DLL_Py_BuildValue)(char * format); - int __cdecl (*DLL_PyCode_Addr2Line)(PPyCodeObject co, int addrq); - char * __cdecl (*DLL_Py_GetBuildInfo)(void); - -protected: - bool FInitialized; - bool FFinalizing; - bool __fastcall GetInitialized(void); - virtual void __fastcall AfterLoad(void); - virtual AnsiString __fastcall GetQuitMessage(); - void __fastcall CheckPython(void); - AnsiString __fastcall GetUnicodeTypeSuffix(); - -public: - int *Py_DebugFlag; - int *Py_VerboseFlag; - int *Py_InteractiveFlag; - int *Py_OptimizeFlag; - int *Py_NoSiteFlag; - int *Py_UseClassExceptionsFlag; - int *Py_FrozenFlag; - int *Py_TabcheckFlag; - int *Py_UnicodeFlag; - int *Py_IgnoreEnvironmentFlag; - int *Py_DivisionWarningFlag; - P_frozen *PyImport_FrozenModules; - PyObject *Py_None; - PyObject *Py_Ellipsis; - PyIntObject *Py_False; - PyIntObject *Py_True; - PyObject *Py_NotImplemented; - PPyObject *PyExc_AttributeError; - PPyObject *PyExc_EOFError; - PPyObject *PyExc_IOError; - PPyObject *PyExc_ImportError; - PPyObject *PyExc_IndexError; - PPyObject *PyExc_KeyError; - PPyObject *PyExc_KeyboardInterrupt; - PPyObject *PyExc_MemoryError; - PPyObject *PyExc_NameError; - PPyObject *PyExc_OverflowError; - PPyObject *PyExc_RuntimeError; - PPyObject *PyExc_SyntaxError; - PPyObject *PyExc_SystemError; - PPyObject *PyExc_SystemExit; - PPyObject *PyExc_TypeError; - PPyObject *PyExc_ValueError; - PPyObject *PyExc_ZeroDivisionError; - PPyObject *PyExc_ArithmeticError; - PPyObject *PyExc_Exception; - PPyObject *PyExc_FloatingPointError; - PPyObject *PyExc_LookupError; - PPyObject *PyExc_StandardError; - PPyObject *PyExc_AssertionError; - PPyObject *PyExc_EnvironmentError; - PPyObject *PyExc_IndentationError; - PPyObject *PyExc_MemoryErrorInst; - PPyObject *PyExc_NotImplementedError; - PPyObject *PyExc_OSError; - PPyObject *PyExc_TabError; - PPyObject *PyExc_UnboundLocalError; - PPyObject *PyExc_UnicodeError; - PPyObject *PyExc_WindowsError; - PPyObject *PyExc_Warning; - PPyObject *PyExc_DeprecationWarning; - PPyObject *PyExc_RuntimeWarning; - PPyObject *PyExc_SyntaxWarning; - PPyObject *PyExc_UserWarning; - PPyObject *PyExc_OverflowWarning; - PPyObject *PyExc_ReferenceError; - PPyObject *PyExc_StopIteration; - PPyObject *PyExc_FutureWarning; - PPyObject *PyExc_PendingDeprecationWarning; - PPyObject *PyExc_UnicodeDecodeError; - PPyObject *PyExc_UnicodeEncodeError; - PPyObject *PyExc_UnicodeTranslateError; - PyTypeObject *PyType_Type; - PyTypeObject *PyCFunction_Type; - PyTypeObject *PyCObject_Type; - PyTypeObject *PyClass_Type; - PyTypeObject *PyCode_Type; - PyTypeObject *PyComplex_Type; - PyTypeObject *PyDict_Type; - PyTypeObject *PyFile_Type; - PyTypeObject *PyFloat_Type; - PyTypeObject *PyFrame_Type; - PyTypeObject *PyFunction_Type; - PyTypeObject *PyInstance_Type; - PyTypeObject *PyInt_Type; - PyTypeObject *PyList_Type; - PyTypeObject *PyLong_Type; - PyTypeObject *PyMethod_Type; - PyTypeObject *PyModule_Type; - PyTypeObject *PyObject_Type; - PyTypeObject *PyRange_Type; - PyTypeObject *PySlice_Type; - PyTypeObject *PyString_Type; - PyTypeObject *PyTuple_Type; - PyTypeObject *PyBaseObject_Type; - PyTypeObject *PyBuffer_Type; - PyTypeObject *PyCallIter_Type; - PyTypeObject *PyCell_Type; - PyTypeObject *PyClassMethod_Type; - PyTypeObject *PyProperty_Type; - PyTypeObject *PySeqIter_Type; - PyTypeObject *PyStaticMethod_Type; - PyTypeObject *PySuper_Type; - PyTypeObject *PySymtableEntry_Type; - PyTypeObject *PyTraceBack_Type; - PyTypeObject *PyUnicode_Type; - PyTypeObject *PyWrapperDescr_Type; - PyTypeObject *_PyWeakref_RefType; - PyTypeObject *_PyWeakref_ProxyType; - PyTypeObject *_PyWeakref_CallableProxyType; - PyTypeObject *PyBaseString_Type; - PyTypeObject *PyBool_Type; - PyTypeObject *PyEnum_Type; - PPyObject __cdecl (*PyComplex_FromCComplex)(const Py_complex c); - PPyObject __cdecl (*PyComplex_FromDoubles)(double realv, double imag); - double __cdecl (*PyComplex_RealAsDouble)(PPyObject op); - double __cdecl (*PyComplex_ImagAsDouble)(PPyObject op); - Py_complex __cdecl (*PyComplex_AsCComplex)(PPyObject op); - void * __cdecl (*PyCFunction_GetFunction)(PPyObject ob); - PPyObject __cdecl (*PyCFunction_GetSelf)(PPyObject ob); - int __cdecl (*PyCallable_Check)(PPyObject ob); - PPyObject __cdecl (*PyCObject_FromVoidPtr)(void * cobj, void * destruct); - void * __cdecl (*PyCObject_AsVoidPtr)(PPyObject ob); - PPyObject __cdecl (*PyClass_New)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - int __cdecl (*PyClass_IsSubclass)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*Py_InitModule4)(char * name, PPyMethodDef methods, char * doc, PPyObject passthrough, int Api_Version); - int __cdecl (*PyErr_BadArgument)(void); - void __cdecl (*PyErr_BadInternalCall)(void); - int __cdecl (*PyErr_CheckSignals)(void); - void __cdecl (*PyErr_Clear)(void); - void __cdecl (*PyErr_Fetch)(PPPyObject errtype, PPPyObject errvalue, PPPyObject errtraceback); - PPyObject __cdecl (*PyErr_NoMemory)(void); - PPyObject __cdecl (*PyErr_Occurred)(void); - void __cdecl (*PyErr_Print)(void); - void __cdecl (*PyErr_Restore)(PPyObject errtype, PPyObject errvalue, PPyObject errtraceback); - PPyObject __cdecl (*PyErr_SetFromErrno)(PPyObject ob); - void __cdecl (*PyErr_SetNone)(PPyObject value); - void __cdecl (*PyErr_SetObject)(PPyObject ob1, PPyObject ob2); - void __cdecl (*PyErr_SetString)(PPyObject ErrorObject, char * text); - PPyObject __cdecl (*PyImport_GetModuleDict)(void); - PPyObject __cdecl (*PyInt_FromLong)(int x); - void __cdecl (*Py_Initialize)(void); - void __cdecl (*Py_Exit)(int RetVal); - PPyObject __cdecl (*PyEval_GetBuiltins)(void); - PPyObject __cdecl (*PyDict_GetItem)(PPyObject mp, PPyObject key); - int __cdecl (*PyDict_SetItem)(PPyObject mp, PPyObject key, PPyObject item); - int __cdecl (*PyDict_DelItem)(PPyObject mp, PPyObject key); - void __cdecl (*PyDict_Clear)(PPyObject mp); - int __cdecl (*PyDict_Next)(PPyObject mp, PInt pos, PPPyObject key, PPPyObject value); - PPyObject __cdecl (*PyDict_Keys)(PPyObject mp); - PPyObject __cdecl (*PyDict_Values)(PPyObject mp); - PPyObject __cdecl (*PyDict_Items)(PPyObject mp); - int __cdecl (*PyDict_Size)(PPyObject mp); - int __cdecl (*PyDict_DelItemString)(PPyObject dp, char * key); - PPyObject __cdecl (*PyDict_New)(void); - PPyObject __cdecl (*PyDict_GetItemString)(PPyObject dp, char * key); - int __cdecl (*PyDict_SetItemString)(PPyObject dp, char * key, PPyObject item); - PPyObject __cdecl (*PyDictProxy_New)(PPyObject obj); - PPyObject __cdecl (*PyModule_GetDict)(PPyObject module); - PPyObject __cdecl (*PyObject_Str)(PPyObject v); - PPyObject __cdecl (*PyRun_String)(char * str, int start, PPyObject globals, PPyObject locals); - int __cdecl (*PyRun_SimpleString)(char * str); - char * __cdecl (*PyString_AsString)(PPyObject ob); - PPyObject __cdecl (*PyString_FromString)(char * str); - void __cdecl (*PySys_SetArgv)(int argc, PPChar argv); - PPyObject __cdecl (*PyCFunction_New)(PPyMethodDef md, PPyObject ob); - PPyObject __cdecl (*PyEval_CallObject)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyEval_CallObjectWithKeywords)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - PPyObject __cdecl (*PyEval_GetFrame)(void); - PPyObject __cdecl (*PyEval_GetGlobals)(void); - PPyObject __cdecl (*PyEval_GetLocals)(void); - int __cdecl (*PyEval_GetRestricted)(void); - void __cdecl (*PyEval_InitThreads)(void); - void __cdecl (*PyEval_RestoreThread)(PPyThreadState tstate); - PPyThreadState __cdecl (*PyEval_SaveThread)(void); - PPyObject __cdecl (*PyFile_FromString)(char * pc1, char * pc2); - PPyObject __cdecl (*PyFile_GetLine)(PPyObject ob, int i); - PPyObject __cdecl (*PyFile_Name)(PPyObject ob); - void __cdecl (*PyFile_SetBufSize)(PPyObject ob, int i); - int __cdecl (*PyFile_SoftSpace)(PPyObject ob, int i); - int __cdecl (*PyFile_WriteObject)(PPyObject ob1, PPyObject ob2, int i); - void __cdecl (*PyFile_WriteString)(char * s, PPyObject ob); - double __cdecl (*PyFloat_AsDouble)(PPyObject ob); - PPyObject __cdecl (*PyFloat_FromDouble)(double db); - PPyObject __cdecl (*PyFunction_GetCode)(PPyObject ob); - PPyObject __cdecl (*PyFunction_GetGlobals)(PPyObject ob); - PPyObject __cdecl (*PyFunction_New)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyImport_AddModule)(char * name); - void __cdecl (*PyImport_Cleanup)(void); - int __cdecl (*PyImport_GetMagicNumber)(void); - int __cdecl (*PyImport_ImportFrozenModule)(char * key); - PPyObject __cdecl (*PyImport_ImportModule)(char * name); - PPyObject __cdecl (*PyImport_Import)(PPyObject name); - PPyObject __cdecl (*PyImport_ReloadModule)(PPyObject ob); - PPyObject __cdecl (*PyInstance_New)(PPyObject obClass, PPyObject obArg, PPyObject obKW); - int __cdecl (*PyInt_AsLong)(PPyObject ob); - int __cdecl (*PyList_Append)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyList_AsTuple)(PPyObject ob); - PPyObject __cdecl (*PyList_GetItem)(PPyObject ob, int i); - PPyObject __cdecl (*PyList_GetSlice)(PPyObject ob, int i1, int i2); - int __cdecl (*PyList_Insert)(PPyObject dp, int idx, PPyObject item); - PPyObject __cdecl (*PyList_New)(int size); - int __cdecl (*PyList_Reverse)(PPyObject ob); - int __cdecl (*PyList_SetItem)(PPyObject dp, int idx, PPyObject item); - int __cdecl (*PyList_SetSlice)(PPyObject ob, int i1, int i2, PPyObject ob2); - int __cdecl (*PyList_Size)(PPyObject ob); - int __cdecl (*PyList_Sort)(PPyObject ob); - double __cdecl (*PyLong_AsDouble)(PPyObject ob); - int __cdecl (*PyLong_AsLong)(PPyObject ob); - PPyObject __cdecl (*PyLong_FromDouble)(double db); - PPyObject __cdecl (*PyLong_FromLong)(int l); - PPyObject __cdecl (*PyLong_FromString)(char * pc, char * &ppc, int i); - PPyObject __cdecl (*PyLong_FromUnsignedLong)(unsigned val); - unsigned __cdecl (*PyLong_AsUnsignedLong)(PPyObject ob); - PPyObject __cdecl (*PyLong_FromUnicode)(PPyObject ob, int a, int b); - PPyObject __cdecl (*PyLong_FromLongLong)(__int64 val); - __int64 __cdecl (*PyLong_AsLongLong)(PPyObject ob); - int __cdecl (*PyMapping_Check)(PPyObject ob); - PPyObject __cdecl (*PyMapping_GetItemString)(PPyObject ob, char * key); - int __cdecl (*PyMapping_HasKey)(PPyObject ob, PPyObject key); - int __cdecl (*PyMapping_HasKeyString)(PPyObject ob, char * key); - int __cdecl (*PyMapping_Length)(PPyObject ob); - int __cdecl (*PyMapping_SetItemString)(PPyObject ob, char * key, PPyObject value); - PPyObject __cdecl (*PyMethod_Class)(PPyObject ob); - PPyObject __cdecl (*PyMethod_Function)(PPyObject ob); - PPyObject __cdecl (*PyMethod_New)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - PPyObject __cdecl (*PyMethod_Self)(PPyObject ob); - char * __cdecl (*PyModule_GetName)(PPyObject ob); - PPyObject __cdecl (*PyModule_New)(char * key); - PPyObject __cdecl (*PyNumber_Absolute)(PPyObject ob); - PPyObject __cdecl (*PyNumber_Add)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyNumber_And)(PPyObject ob1, PPyObject ob2); - int __cdecl (*PyNumber_Check)(PPyObject ob); - int __cdecl (*PyNumber_Coerce)(PPyObject &ob1, PPyObject &ob2); - PPyObject __cdecl (*PyNumber_Divide)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyNumber_FloorDivide)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyNumber_TrueDivide)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyNumber_Divmod)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyNumber_Float)(PPyObject ob); - PPyObject __cdecl (*PyNumber_Int)(PPyObject ob); - PPyObject __cdecl (*PyNumber_Invert)(PPyObject ob); - PPyObject __cdecl (*PyNumber_Long)(PPyObject ob); - PPyObject __cdecl (*PyNumber_Lshift)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyNumber_Multiply)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyNumber_Negative)(PPyObject ob); - PPyObject __cdecl (*PyNumber_Or)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyNumber_Positive)(PPyObject ob); - PPyObject __cdecl (*PyNumber_Power)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - PPyObject __cdecl (*PyNumber_Remainder)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyNumber_Rshift)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyNumber_Subtract)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyNumber_Xor)(PPyObject ob1, PPyObject ob2); - void __cdecl (*PyOS_InitInterrupts)(void); - int __cdecl (*PyOS_InterruptOccurred)(void); - PPyObject __cdecl (*PyObject_CallObject)(PPyObject ob, PPyObject args); - int __cdecl (*PyObject_Compare)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyObject_GetAttr)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyObject_GetAttrString)(PPyObject ob, char * c); - PPyObject __cdecl (*PyObject_GetItem)(PPyObject ob, PPyObject key); - PPyObject __cdecl (*PyObject_DelItem)(PPyObject ob, PPyObject key); - int __cdecl (*PyObject_HasAttrString)(PPyObject ob, char * key); - int __cdecl (*PyObject_Hash)(PPyObject ob); - int __cdecl (*PyObject_IsTrue)(PPyObject ob); - int __cdecl (*PyObject_Length)(PPyObject ob); - PPyObject __cdecl (*PyObject_Repr)(PPyObject ob); - int __cdecl (*PyObject_SetAttr)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - int __cdecl (*PyObject_SetAttrString)(PPyObject ob, char * key, PPyObject value); - int __cdecl (*PyObject_SetItem)(PPyObject ob1, PPyObject ob2, PPyObject ob3); - PPyObject __cdecl (*PyObject_Init)(PPyObject ob, PPyTypeObject t); - PPyObject __cdecl (*PyObject_InitVar)(PPyObject ob, PPyTypeObject t, int size); - PPyObject __cdecl (*PyObject_New)(PPyTypeObject t); - PPyObject __cdecl (*PyObject_NewVar)(PPyTypeObject t, int size); - int __cdecl (*PyObject_IsInstance)(PPyObject inst, PPyObject cls); - int __cdecl (*PyObject_IsSubclass)(PPyObject derived, PPyObject cls); - PPyObject __cdecl (*PyObject_GC_Malloc)(int size); - PPyObject __cdecl (*PyObject_GC_New)(PPyTypeObject t); - PPyObject __cdecl (*PyObject_GC_NewVar)(PPyTypeObject t, int size); - PPyObject __cdecl (*PyObject_GC_Resize)(PPyObject t, int newsize); - void __cdecl (*PyObject_GC_Del)(PPyObject ob); - void __cdecl (*PyObject_GC_Track)(PPyObject ob); - void __cdecl (*PyObject_GC_UnTrack)(PPyObject ob); - PPyObject __cdecl (*PyRange_New)(int l1, int l2, int l3, int i); - int __cdecl (*PySequence_Check)(PPyObject ob); - PPyObject __cdecl (*PySequence_Concat)(PPyObject ob1, PPyObject ob2); - int __cdecl (*PySequence_Count)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PySequence_GetItem)(PPyObject ob, int i); - PPyObject __cdecl (*PySequence_GetSlice)(PPyObject ob, int i1, int i2); - int __cdecl (*PySequence_In)(PPyObject ob1, PPyObject ob2); - int __cdecl (*PySequence_Index)(PPyObject ob1, PPyObject ob2); - int __cdecl (*PySequence_Length)(PPyObject ob); - PPyObject __cdecl (*PySequence_Repeat)(PPyObject ob, int count); - int __cdecl (*PySequence_SetItem)(PPyObject ob, int i, PPyObject value); - int __cdecl (*PySequence_SetSlice)(PPyObject ob, int i1, int i2, PPyObject value); - int __cdecl (*PySequence_DelSlice)(PPyObject ob, int i1, int i2); - PPyObject __cdecl (*PySequence_Tuple)(PPyObject ob); - int __cdecl (*PySequence_Contains)(PPyObject ob, PPyObject value); - int __cdecl (*PySlice_GetIndices)(PPySliceObject ob, int length, int &start, int &stop, int &step); - int __cdecl (*PySlice_GetIndicesEx)(PPySliceObject ob, int length, int &start, int &stop, int &step, int &slicelength); - PPyObject __cdecl (*PySlice_New)(PPyObject start, PPyObject stop, PPyObject step); - void __cdecl (*PyString_Concat)(PPyObject &ob1, PPyObject ob2); - void __cdecl (*PyString_ConcatAndDel)(PPyObject &ob1, PPyObject ob2); - PPyObject __cdecl (*PyString_Format)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyString_FromStringAndSize)(char * s, int i); - int __cdecl (*PyString_Size)(PPyObject ob); - PPyObject __cdecl (*PyString_DecodeEscape)(char * s, int len, char * errors, int unicode, char * recode_encoding); - PPyObject __cdecl (*PyString_Repr)(PPyObject ob, int smartquotes); - PPyObject __cdecl (*PySys_GetObject)(char * s); - int __cdecl (*PySys_SetObject)(char * s, PPyObject ob); - void __cdecl (*PySys_SetPath)(char * path); - int __cdecl (*PyTraceBack_Here)(void * p); - int __cdecl (*PyTraceBack_Print)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyTuple_GetItem)(PPyObject ob, int i); - PPyObject __cdecl (*PyTuple_GetSlice)(PPyObject ob, int i1, int i2); - PPyObject __cdecl (*PyTuple_New)(int size); - int __cdecl (*PyTuple_SetItem)(PPyObject ob, int key, PPyObject value); - int __cdecl (*PyTuple_Size)(PPyObject ob); - int __cdecl (*PyType_IsSubtype)(PPyTypeObject a, PPyTypeObject b); - PPyObject __cdecl (*PyUnicode_FromWideChar)(const wchar_t * w, int size); - int __cdecl (*PyUnicode_AsWideChar)(PPyObject unicode, wchar_t * w, int size); - PPyObject __cdecl (*PyUnicode_FromOrdinal)(int ordinal); - PPyObject __cdecl (*PyWeakref_GetObject)(PPyObject ref); - PPyObject __cdecl (*PyWeakref_NewProxy)(PPyObject ob, PPyObject callback); - PPyObject __cdecl (*PyWeakref_NewRef)(PPyObject ob, PPyObject callback); - PPyObject __cdecl (*PyWrapper_New)(PPyObject ob1, PPyObject ob2); - PPyObject __cdecl (*PyBool_FromLong)(int ok); - int __cdecl (*Py_AtExit)(AtExitProc proc); - PPyObject __cdecl (*Py_CompileString)(char * s1, char * s2, int i); - void __cdecl (*Py_FatalError)(char * s); - PPyObject __cdecl (*Py_FindMethod)(PPyMethodDef md, PPyObject ob, char * key); - PPyObject __cdecl (*Py_FindMethodInChain)(PPyMethodChain mc, PPyObject ob, char * key); - void __cdecl (*Py_FlushLine)(void); - PPyObject __cdecl (*_PyObject_New)(PPyTypeObject obt, PPyObject ob); - int __cdecl (*_PyString_Resize)(PPyObject &ob, int i); - void __cdecl (*Py_Finalize)(void); - int __cdecl (*PyErr_ExceptionMatches)(PPyObject exc); - int __cdecl (*PyErr_GivenExceptionMatches)(PPyObject raised_exc, PPyObject exc); - PPyObject __cdecl (*PyEval_EvalCode)(PPyCodeObject co, PPyObject globals, PPyObject locals); - char * __cdecl (*Py_GetVersion)(void); - char * __cdecl (*Py_GetCopyright)(void); - char * __cdecl (*Py_GetExecPrefix)(void); - char * __cdecl (*Py_GetPath)(void); - char * __cdecl (*Py_GetPrefix)(void); - char * __cdecl (*Py_GetProgramName)(void); - PNode __cdecl (*PyParser_SimpleParseString)(char * str, int start); - void __cdecl (*PyNode_Free)(PNode n); - PPyObject __cdecl (*PyErr_NewException)(char * name, PPyObject base, PPyObject dict); - void * __fastcall (*Py_Malloc)(int size); - void * __fastcall (*PyMem_Malloc)(int size); - PPyObject __cdecl (*PyObject_CallMethod)(PPyObject obj, char * method, char * format); - void __cdecl (*Py_SetProgramName)(char * name); - int __cdecl (*Py_IsInitialized)(void); - char * __cdecl (*Py_GetProgramFullPath)(void); - PPyThreadState __cdecl (*Py_NewInterpreter)(void); - void __cdecl (*Py_EndInterpreter)(PPyThreadState tstate); - void __cdecl (*PyEval_AcquireLock)(void); - void __cdecl (*PyEval_ReleaseLock)(void); - void __cdecl (*PyEval_AcquireThread)(PPyThreadState tstate); - void __cdecl (*PyEval_ReleaseThread)(PPyThreadState tstate); - PPyInterpreterState __cdecl (*PyInterpreterState_New)(void); - void __cdecl (*PyInterpreterState_Clear)(PPyInterpreterState interp); - void __cdecl (*PyInterpreterState_Delete)(PPyInterpreterState interp); - PPyThreadState __cdecl (*PyThreadState_New)(PPyInterpreterState interp); - void __cdecl (*PyThreadState_Clear)(PPyThreadState tstate); - void __cdecl (*PyThreadState_Delete)(PPyThreadState tstate); - PPyThreadState __cdecl (*PyThreadState_Get)(void); - PPyThreadState __cdecl (*PyThreadState_Swap)(PPyThreadState tstate); - void __fastcall Py_INCREF(PPyObject op); - void __fastcall Py_DECREF(PPyObject op); - void __fastcall Py_XINCREF(PPyObject op); - void __fastcall Py_XDECREF(PPyObject op); - char * __cdecl Py_GetPlatform(void); - int __cdecl PyArg_Parse(PPyObject args, char * format, const void * const * argp, const int argp_Size); - int __cdecl PyArg_ParseTuple(PPyObject args, char * format, const void * const * argp, const int argp_Size); - PPyObject __cdecl Py_BuildValue(char * format, const System::TVarRec * args, const int args_Size); - int __cdecl PyCode_Addr2Line(PPyCodeObject co, int addrq); - char * __cdecl Py_GetBuildInfo(void); - PPyObject __fastcall PyImport_ExecCodeModule(const AnsiString name, PPyObject codeobject); - bool __fastcall PyString_Check(PPyObject obj); - bool __fastcall PyString_CheckExact(PPyObject obj); - bool __fastcall PyFloat_Check(PPyObject obj); - bool __fastcall PyFloat_CheckExact(PPyObject obj); - bool __fastcall PyInt_Check(PPyObject obj); - bool __fastcall PyInt_CheckExact(PPyObject obj); - bool __fastcall PyLong_Check(PPyObject obj); - bool __fastcall PyLong_CheckExact(PPyObject obj); - bool __fastcall PyTuple_Check(PPyObject obj); - bool __fastcall PyTuple_CheckExact(PPyObject obj); - bool __fastcall PyInstance_Check(PPyObject obj); - bool __fastcall PyClass_Check(PPyObject obj); - bool __fastcall PyMethod_Check(PPyObject obj); - bool __fastcall PyList_Check(PPyObject obj); - bool __fastcall PyList_CheckExact(PPyObject obj); - bool __fastcall PyDict_Check(PPyObject obj); - bool __fastcall PyDict_CheckExact(PPyObject obj); - bool __fastcall PyModule_Check(PPyObject obj); - bool __fastcall PyModule_CheckExact(PPyObject obj); - bool __fastcall PySlice_Check(PPyObject obj); - bool __fastcall PyFunction_Check(PPyObject obj); - bool __fastcall PyUnicode_Check(PPyObject obj); - bool __fastcall PyUnicode_CheckExact(PPyObject obj); - bool __fastcall PyType_IS_GC(PPyTypeObject t); - bool __fastcall PyObject_IS_GC(PPyObject obj); - bool __fastcall PyWeakref_Check(PPyObject obj); - bool __fastcall PyWeakref_CheckRef(PPyObject obj); - bool __fastcall PyWeakref_CheckProxy(PPyObject obj); - bool __fastcall PyBool_Check(PPyObject obj); - bool __fastcall PyBaseString_Check(PPyObject obj); - bool __fastcall PyEnum_Check(PPyObject obj); - bool __fastcall PyObject_TypeCheck(PPyObject obj, PPyTypeObject t); - PPyObject __fastcall Py_InitModule(const char * name, PPyMethodDef md); - __fastcall virtual TPythonInterface(Classes::TComponent* AOwner); - void __fastcall MapDll(void); - __property bool Initialized = {read=GetInitialized, nodefault}; - __property bool Finalizing = {read=FFinalizing, nodefault}; -public: - #pragma option push -w-inl - /* TDynamicDll.Destroy */ inline __fastcall virtual ~TPythonInterface(void) { } - #pragma option pop - -}; - - -#pragma option push -b- -enum TDatetimeConversionMode { dcmToTuple, dcmToDatetime }; -#pragma option pop - -typedef void __fastcall (__closure *TPathInitializationEvent)(System::TObject* Sender, AnsiString &Path); - -#pragma option push -b- -enum TPythonFlag { pfDebug, pfInteractive, pfNoSite, pfOptimize, pfTabcheck, pfUnicode, pfVerbose, pfUseClassExceptionsFlag, pfFrozenFlag, pfIgnoreEnvironmentFlag, pfDivisionWarningFlag }; -#pragma option pop - -typedef Set TPythonFlags; - -class DELPHICLASS TTracebackItem; -class PASCALIMPLEMENTATION TTracebackItem : public System::TObject -{ - typedef System::TObject inherited; - -public: - AnsiString FileName; - int LineNo; - AnsiString Context; -public: - #pragma option push -w-inl - /* TObject.Create */ inline __fastcall TTracebackItem(void) : System::TObject() { } - #pragma option pop - #pragma option push -w-inl - /* TObject.Destroy */ inline __fastcall virtual ~TTracebackItem(void) { } - #pragma option pop - -}; - - -class DELPHICLASS TPythonTraceback; -class PASCALIMPLEMENTATION TPythonTraceback : public System::TObject -{ - typedef System::TObject inherited; - -protected: - Classes::TList* FItems; - int FLimit; - int __fastcall GetItemCount(void); - TTracebackItem* __fastcall GetItem(int idx); - -public: - __fastcall TPythonTraceback(void); - __fastcall virtual ~TPythonTraceback(void); - void __fastcall Clear(void); - void __fastcall Refresh(void); - __property int ItemCount = {read=GetItemCount, nodefault}; - __property TTracebackItem* Items[int idx] = {read=GetItem}; - __property int Limit = {read=FLimit, write=FLimit, nodefault}; -}; - - -class DELPHICLASS TPythonEngine; -class DELPHICLASS TEngineClient; -class PASCALIMPLEMENTATION TPythonEngine : public TPythonInterface -{ - typedef TPythonInterface inherited; - -private: - Classes::TStrings* FInitScript; - TPythonInputOutput* FIO; - bool FRedirectIO; - Classes::TNotifyEvent FOnAfterInit; - Classes::TList* FClients; - Syncobjs::TCriticalSection* FLock; - AnsiString FExecModule; - bool FAutoFinalize; - AnsiString FProgramName; - bool FInitThreads; - TPathInitializationEvent FOnPathInitialization; - TPythonTraceback* FTraceback; - bool FUseWindowsConsole; - PyObject *FGlobalVars; - PyObject *FLocalVars; - TPythonFlags FPyFlags; - bool FIORedirected; - TDatetimeConversionMode FDatetimeConversionMode; - PyObject *FTimeStruct; - PyObject *FPyDateTime_DateType; - PyObject *FPyDateTime_DateTimeType; - PyObject *FPyDateTime_DeltaType; - PyObject *FPyDateTime_TimeType; - PyObject *FPyDateTime_TZInfoType; - PyObject *FPyDateTime_TimeTZType; - PyObject *FPyDateTime_DateTimeTZType; - -protected: - virtual void __fastcall AfterLoad(void); - virtual void __fastcall BeforeLoad(void); - virtual void __fastcall DoOpenDll(const AnsiString aDllName); - void __fastcall SetInitScript(Classes::TStrings* Value); - PPyThreadState __fastcall GetThreadState(void); - PPyInterpreterState __fastcall GetInterpreterState(void); - void __fastcall SetInitThreads(bool Value); - int __fastcall GetClientCount(void); - TEngineClient* __fastcall GetClients(int idx); - virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation); - void __fastcall CheckRegistry(void); - void __fastcall SetProgramArgs(void); - void __fastcall InitWinConsole(void); - void __fastcall SetUseWindowsConsole(const bool Value); - void __fastcall SetGlobalVars(const PPyObject Value); - void __fastcall SetLocalVars(const PPyObject Value); - void __fastcall SetPyFlags(const TPythonFlags Value); - void __fastcall AssignPyFlags(void); - -public: - __fastcall virtual TPythonEngine(Classes::TComponent* AOwner); - __fastcall virtual ~TPythonEngine(void); - void __fastcall Initialize(void); - void __fastcall Finalize(void); - void __fastcall Lock(void); - void __fastcall Unlock(void); - bool __fastcall IsType(PPyObject ob, PPyTypeObject obt); - char * __fastcall GetAttrString(PPyObject obj, char * name); - AnsiString __fastcall CleanString(const AnsiString s); - AnsiString __fastcall Run_CommandAsString(const AnsiString command, int mode); - PPyObject __fastcall Run_CommandAsObject(const AnsiString command, int mode); - void __fastcall ExecString(const AnsiString command); - PPyObject __fastcall EvalString(const AnsiString command); - Variant __fastcall EvalPyFunction(PPyObject pyfunc, PPyObject pyargs); - Variant __fastcall EvalFunction(PPyObject pyfunc, const System::TVarRec * args, const int args_Size); - Variant __fastcall EvalFunctionNoArgs(PPyObject pyfunc); - AnsiString __fastcall EvalStringAsStr(const AnsiString command); - void __fastcall ExecStrings(Classes::TStrings* strings); - PPyObject __fastcall EvalStrings(Classes::TStrings* strings); - AnsiString __fastcall EvalStringsAsStr(Classes::TStrings* strings); - bool __fastcall CheckEvalSyntax(const AnsiString str); - bool __fastcall CheckExecSyntax(const AnsiString str); - bool __fastcall CheckSyntax(const AnsiString str, int mode); - void __fastcall RaiseError(void); - AnsiString __fastcall PyObjectAsString(PPyObject obj); - void __fastcall DoRedirectIO(void); - void __fastcall AddClient(TEngineClient* client); - void __fastcall RemoveClient(TEngineClient* client); - TEngineClient* __fastcall FindClient(const AnsiString aName); - PPyTypeObject __fastcall TypeByName(const AnsiString aTypeName); - PPyObject __fastcall ModuleByName(const AnsiString aModuleName); - PPyMethodDef __fastcall MethodsByName(const AnsiString aMethodsContainer); - virtual PPyObject __fastcall VariantAsPyObject(const Variant &V); - virtual Variant __fastcall PyObjectAsVariant(PPyObject obj); - PPyObject __fastcall VarRecAsPyObject(const System::TVarRec &v); - PPyObject __fastcall MakePyTuple(const PPyObject * objects, const int objects_Size); - PPyObject __fastcall MakePyList(const PPyObject * objects, const int objects_Size); - PPyObject __fastcall ArrayToPyTuple(const System::TVarRec * items, const int items_Size); - PPyObject __fastcall ArrayToPyList(const System::TVarRec * items, const int items_Size); - PPyObject __fastcall ArrayToPyDict(const System::TVarRec * items, const int items_Size); - PPyObject __fastcall StringsToPyList(Classes::TStrings* strings); - PPyObject __fastcall StringsToPyTuple(Classes::TStrings* strings); - void __fastcall PyListToStrings(PPyObject list, Classes::TStrings* strings); - void __fastcall PyTupleToStrings(PPyObject tuple, Classes::TStrings* strings); - WideString __fastcall PyUnicode_AsWideString(PPyObject obj); - PPyObject __fastcall PyUnicode_FromWideString(const WideString AString); - PPyObject __fastcall ReturnNone(void); - PPyObject __fastcall FindModule(const AnsiString ModuleName); - PPyObject __fastcall FindFunction(AnsiString ModuleName, AnsiString FuncName); - PPyObject __fastcall SetToList(void * data, int size); - void __fastcall ListToSet(PPyObject List, void * data, int size); - void __fastcall CheckError(void); - PPyObject __fastcall GetMainModule(void); - bool __fastcall PyTimeStruct_Check(PPyObject obj); - bool __fastcall PyDate_Check(PPyObject obj); - bool __fastcall PyDate_CheckExact(PPyObject obj); - bool __fastcall PyDateTime_Check(PPyObject obj); - bool __fastcall PyDateTime_CheckExact(PPyObject obj); - bool __fastcall PyDateTimeTZ_Check(PPyObject obj); - bool __fastcall PyDateTimeTZ_CheckExact(PPyObject obj); - bool __fastcall PyTime_Check(PPyObject obj); - bool __fastcall PyTime_CheckExact(PPyObject obj); - bool __fastcall PyTimeTZ_Check(PPyObject obj); - bool __fastcall PyTimeTZ_CheckExact(PPyObject obj); - bool __fastcall PyDelta_Check(PPyObject obj); - bool __fastcall PyDelta_CheckExact(PPyObject obj); - bool __fastcall PyTZInfo_Check(PPyObject obj); - bool __fastcall PyTZInfo_CheckExact(PPyObject obj); - int __fastcall PyDateTime_GET_YEAR(PPyObject obj); - int __fastcall PyDateTime_GET_MONTH(PPyObject obj); - int __fastcall PyDateTime_GET_DAY(PPyObject obj); - int __fastcall PyDateTime_DATE_GET_HOUR(PPyObject obj); - int __fastcall PyDateTime_DATE_GET_MINUTE(PPyObject obj); - int __fastcall PyDateTime_DATE_GET_SECOND(PPyObject obj); - int __fastcall PyDateTime_DATE_GET_MICROSECOND(PPyObject obj); - int __fastcall PyDateTime_TIME_GET_HOUR(PPyObject obj); - int __fastcall PyDateTime_TIME_GET_MINUTE(PPyObject obj); - int __fastcall PyDateTime_TIME_GET_SECOND(PPyObject obj); - int __fastcall PyDateTime_TIME_GET_MICROSECOND(PPyObject obj); - __property int ClientCount = {read=GetClientCount, nodefault}; - __property TEngineClient* Clients[int idx] = {read=GetClients}; - __property AnsiString ExecModule = {read=FExecModule, write=FExecModule}; - __property PPyThreadState ThreadState = {read=GetThreadState}; - __property PPyInterpreterState InterpreterState = {read=GetInterpreterState}; - __property TPythonTraceback* Traceback = {read=FTraceback}; - __property PPyObject LocalVars = {read=FLocalVars, write=SetLocalVars}; - __property PPyObject GlobalVars = {read=FGlobalVars, write=SetGlobalVars}; - -__published: - __property bool AutoFinalize = {read=FAutoFinalize, write=FAutoFinalize, default=1}; - __property TDatetimeConversionMode DatetimeConversionMode = {read=FDatetimeConversionMode, write=FDatetimeConversionMode, default=0}; - __property Classes::TStrings* InitScript = {read=FInitScript, write=SetInitScript}; - __property bool InitThreads = {read=FInitThreads, write=SetInitThreads, default=0}; - __property TPythonInputOutput* IO = {read=FIO, write=FIO}; - __property TPythonFlags PyFlags = {read=FPyFlags, write=SetPyFlags, default=0}; - __property bool RedirectIO = {read=FRedirectIO, write=FRedirectIO, default=1}; - __property bool UseWindowsConsole = {read=FUseWindowsConsole, write=FUseWindowsConsole, default=0}; - __property Classes::TNotifyEvent OnAfterInit = {read=FOnAfterInit, write=FOnAfterInit}; - __property TPathInitializationEvent OnPathInitialization = {read=FOnPathInitialization, write=FOnPathInitialization}; -}; - - -class PASCALIMPLEMENTATION TEngineClient : public Classes::TComponent -{ - typedef Classes::TComponent inherited; - -protected: - TPythonEngine* FEngine; - Classes::TNotifyEvent FOnInitialization; - Classes::TNotifyEvent FOnFinalization; - Classes::TNotifyEvent FOnCreate; - Classes::TNotifyEvent FOnDestroy; - bool FInitialized; - virtual void __fastcall SetEngine(TPythonEngine* val); - virtual void __fastcall Loaded(void); - virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation); - -public: - __fastcall virtual TEngineClient(Classes::TComponent* AOwner); - __fastcall virtual ~TEngineClient(void); - virtual void __fastcall Initialize(void); - virtual void __fastcall Finalize(void); - void __fastcall ClearEngine(void); - void __fastcall CheckEngine(void); - __property bool Initialized = {read=FInitialized, nodefault}; - -__published: - __property TPythonEngine* Engine = {read=FEngine, write=SetEngine}; - __property Classes::TNotifyEvent OnCreate = {read=FOnCreate, write=FOnCreate}; - __property Classes::TNotifyEvent OnDestroy = {read=FOnDestroy, write=FOnDestroy}; - __property Classes::TNotifyEvent OnFinalization = {read=FOnFinalization, write=FOnFinalization}; - __property Classes::TNotifyEvent OnInitialization = {read=FOnInitialization, write=FOnInitialization}; -}; - - -typedef PyMethodDef TMethodArray[16001]; - -typedef PyMethodDef *PMethodArray; - -typedef PPyObject __cdecl (__closure *TDelphiMethod)(PPyObject self, PPyObject args); - -typedef void __fastcall (__closure *TPythonEvent)(System::TObject* Sender, PPyObject PSelf, PPyObject Args, PPyObject &Result); - -class DELPHICLASS TEventDef; -class DELPHICLASS TEventDefs; -class PASCALIMPLEMENTATION TEventDef : public Classes::TCollectionItem -{ - typedef Classes::TCollectionItem inherited; - -private: - AnsiString FName; - AnsiString FTmpDocString; - TPythonEvent FOnExecute; - Classes::TStringList* FDocString; - void __fastcall SetDocString(const Classes::TStringList* Value); - -protected: - virtual AnsiString __fastcall GetDisplayName(); - virtual void __fastcall SetDisplayName(const AnsiString Value); - -public: - __fastcall virtual TEventDef(Classes::TCollection* Collection); - __fastcall virtual ~TEventDef(void); - virtual void __fastcall Assign(Classes::TPersistent* Source); - AnsiString __fastcall GetDocString(); - PPyObject __cdecl PythonEvent(PPyObject pself, PPyObject args); - TEventDefs* __fastcall Owner(void); - -__published: - __property AnsiString Name = {read=FName, write=SetDisplayName}; - __property TPythonEvent OnExecute = {read=FOnExecute, write=FOnExecute}; - __property Classes::TStringList* DocString = {read=FDocString, write=SetDocString}; -}; - - -class DELPHICLASS TMethodsContainer; -class PASCALIMPLEMENTATION TMethodsContainer : public TEngineClient -{ - typedef TEngineClient inherited; - -protected: - int FMethodCount; - int FAllocatedMethodCount; - PyMethodDef *FMethods; - TEventDefs* FEventDefs; - void __fastcall AllocMethods(void); - void __fastcall FreeMethods(void); - void __fastcall ReallocMethods(void); - PPyMethodDef __fastcall GetMethods(int idx); - bool __fastcall StoreEventDefs(void); - -public: - __fastcall virtual TMethodsContainer(Classes::TComponent* AOwner); - __fastcall virtual ~TMethodsContainer(void); - virtual void __fastcall Initialize(void); - void __fastcall AddMethod(char * MethodName, PyCFunction Method, char * DocString); - void __fastcall AddDelphiMethod(char * MethodName, TDelphiMethod DelphiMethod, char * DocString); - __property int MethodCount = {read=FMethodCount, nodefault}; - __property PPyMethodDef Methods[int idx] = {read=GetMethods}; - __property PPyMethodDef MethodsData = {read=FMethods}; - -__published: - __property TEventDefs* Events = {read=FEventDefs, write=FEventDefs, stored=StoreEventDefs}; -}; - - -class PASCALIMPLEMENTATION TEventDefs : public Classes::TCollection -{ - typedef Classes::TCollection inherited; - -protected: - TMethodsContainer* FMethodsContainer; - TEventDef* __fastcall GetItems(int idx); - void __fastcall SetItems(int idx, TEventDef* Value); - DYNAMIC Classes::TPersistent* __fastcall GetOwner(void); - -public: - __fastcall TEventDefs(TMethodsContainer* AMethodsContainer); - HIDESBASE TEventDef* __fastcall Add(void); - void __fastcall RegisterEvents(void); - __property TEventDef* Items[int idx] = {read=GetItems}; - __property TMethodsContainer* Container = {read=FMethodsContainer}; -public: - #pragma option push -w-inl - /* TCollection.Destroy */ inline __fastcall virtual ~TEventDefs(void) { } - #pragma option pop - -}; - - -#pragma option push -b- -enum TErrorType { etString, etClass }; -#pragma option pop - -class DELPHICLASS TParentClassError; -class PASCALIMPLEMENTATION TParentClassError : public Classes::TPersistent -{ - typedef Classes::TPersistent inherited; - -protected: - AnsiString FName; - AnsiString FModule; - -public: - virtual void __fastcall AssignTo(Classes::TPersistent* Dest); - -__published: - __property AnsiString Module = {read=FModule, write=FModule}; - __property AnsiString Name = {read=FName, write=FName}; -public: - #pragma option push -w-inl - /* TPersistent.Destroy */ inline __fastcall virtual ~TParentClassError(void) { } - #pragma option pop - -public: - #pragma option push -w-inl - /* TObject.Create */ inline __fastcall TParentClassError(void) : Classes::TPersistent() { } - #pragma option pop - -}; - - -class DELPHICLASS TError; -class DELPHICLASS TErrors; -class PASCALIMPLEMENTATION TError : public Classes::TCollectionItem -{ - typedef Classes::TCollectionItem inherited; - -protected: - AnsiString FName; - AnsiString FText; - PyObject *FError; - TErrorType FErrorType; - TParentClassError* FParentClass; - virtual AnsiString __fastcall GetDisplayName(); - void __fastcall SetName(const AnsiString Value); - void __fastcall SetText(const AnsiString Value); - void __fastcall SetErrorType(TErrorType Value); - void __fastcall SetParentClass(TParentClassError* Value); - -public: - __fastcall virtual TError(Classes::TCollection* Collection); - __fastcall virtual ~TError(void); - virtual void __fastcall Assign(Classes::TPersistent* Source); - void __fastcall BuildError(const AnsiString ModuleName); - void __fastcall RaiseError(const AnsiString msg); - void __fastcall RaiseErrorObj(const AnsiString msg, PPyObject obj); - TErrors* __fastcall Owner(void); - __property PPyObject Error = {read=FError, write=FError}; - -__published: - __property AnsiString Name = {read=FName, write=SetName}; - __property AnsiString Text = {read=FText, write=SetText}; - __property TErrorType ErrorType = {read=FErrorType, write=SetErrorType, nodefault}; - __property TParentClassError* ParentClass = {read=FParentClass, write=SetParentClass}; -}; - - -class DELPHICLASS TPythonModule; -class PASCALIMPLEMENTATION TPythonModule : public TMethodsContainer -{ - typedef TMethodsContainer inherited; - -protected: - AnsiString FModuleName; - PyObject *FModule; - Classes::TList* FClients; - TErrors* FErrors; - Classes::TNotifyEvent FOnAfterInitialization; - Classes::TStringList* FDocString; - int __fastcall GetClientCount(void); - TEngineClient* __fastcall GetClients(int idx); - void __fastcall SetErrors(TErrors* val); - void __fastcall SetModuleName(const AnsiString val); - void __fastcall SetDocString(Classes::TStringList* value); - -public: - __fastcall virtual TPythonModule(Classes::TComponent* AOwner); - __fastcall virtual ~TPythonModule(void); - void __fastcall MakeModule(void); - void __fastcall DefineDocString(void); - virtual void __fastcall Initialize(void); - void __fastcall InitializeForNewInterpreter(void); - void __fastcall AddClient(TEngineClient* client); - TError* __fastcall ErrorByName(const AnsiString name); - void __fastcall RaiseError(const AnsiString error, const AnsiString msg); - void __fastcall RaiseErrorFmt(const AnsiString error, const AnsiString format, const System::TVarRec * Args, const int Args_Size); - void __fastcall RaiseErrorObj(const AnsiString error, const AnsiString msg, PPyObject obj); - void __fastcall BuildErrors(void); - void __fastcall SetVar(const AnsiString varName, PPyObject value); - PPyObject __fastcall GetVar(const AnsiString varName); - void __fastcall DeleteVar(const AnsiString varName); - void __fastcall SetVarFromVariant(const AnsiString varName, const Variant &value); - Variant __fastcall GetVarAsVariant(const AnsiString varName); - __property PPyObject Module = {read=FModule}; - __property TEngineClient* Clients[int idx] = {read=GetClients}; - __property int ClientCount = {read=GetClientCount, nodefault}; - -__published: - __property Classes::TStringList* DocString = {read=FDocString, write=SetDocString}; - __property AnsiString ModuleName = {read=FModuleName, write=SetModuleName}; - __property TErrors* Errors = {read=FErrors, write=SetErrors}; - __property Classes::TNotifyEvent OnAfterInitialization = {read=FOnAfterInitialization, write=FOnAfterInitialization}; -}; - - -class PASCALIMPLEMENTATION TErrors : public Classes::TCollection -{ - typedef Classes::TCollection inherited; - -public: - TError* operator[](int Index) { return Items[Index]; } - -private: - TPythonModule* FModule; - TError* __fastcall GetError(int Index); - void __fastcall SetError(int Index, TError* Value); - -protected: - DYNAMIC Classes::TPersistent* __fastcall GetOwner(void); - virtual void __fastcall Update(Classes::TCollectionItem* Item); - -public: - __fastcall TErrors(TPythonModule* Module); - HIDESBASE TError* __fastcall Add(void); - HIDESBASE TPythonModule* __fastcall Owner(void); - __property TError* Items[int Index] = {read=GetError, write=SetError/*, default*/}; -public: - #pragma option push -w-inl - /* TCollection.Destroy */ inline __fastcall virtual ~TErrors(void) { } - #pragma option pop - -}; - - -class DELPHICLASS TPyObject; -class DELPHICLASS TPythonType; -typedef TMetaClass*TPyObjectClass; - -class DELPHICLASS TTypeServices; -#pragma option push -b- -enum PythonEngine__56 { bsPrint, bsGetAttr, bsSetAttr, bsRepr, bsCompare, bsHash, bsStr, bsGetAttrO, bsSetAttrO, bsCall, bsTraverse, bsClear, bsRichCompare, bsIter, bsIterNext }; -#pragma option pop - -typedef Set TBasicServices; - -#pragma option push -b- -enum PythonEngine__66 { nsAdd, nsSubstract, nsMultiply, nsDivide, nsRemainder, nsDivmod, nsPower, nsNegative, nsPositive, nsAbsolute, nsNonZero, nsInvert, nsLShift, nsRShift, nsAnd, nsXor, nsOr, nsCoerce, nsInt, nsLong, nsFloat, nsOct, nsHex, nsFloorDivide, nsTrueDivide }; -#pragma option pop - -typedef Set TNumberServices; - -#pragma option push -b- -enum PythonEngine__86 { ssLength, ssConcat, ssRepeat, ssItem, ssSlice, ssAssItem, ssAssSlice, ssContains, ssInplaceConcat, ssInplaceRepeat }; -#pragma option pop - -typedef Set TSequenceServices; - -#pragma option push -b- -enum PythonEngine__96 { msLength, msSubscript, msAssSubscript }; -#pragma option pop - -typedef Set TMappingServices; - -#pragma option push -b- -enum PythonEngine__76 { nsInplaceAdd, nsInplaceSubtract, nsInplaceMultiply, nsInplaceDivide, nsInplaceRemainder, nsInplacePower, nsInplaceLShift, nsInplaceRShift, nsInplaceAnd, nsInplaceXor, nsInplaceOr, nsInplaceFloorDivide, nsInplaceTrueDivide }; -#pragma option pop - -typedef Set TInplaceNumberServices; - -class PASCALIMPLEMENTATION TTypeServices : public Classes::TPersistent -{ - typedef Classes::TPersistent inherited; - -protected: - TBasicServices FBasic; - TNumberServices FNumber; - TSequenceServices FSequence; - TMappingServices FMapping; - TInplaceNumberServices FInplaceNumber; - -public: - __fastcall TTypeServices(void); - virtual void __fastcall AssignTo(Classes::TPersistent* Dest); - -__published: - __property TBasicServices Basic = {read=FBasic, write=FBasic, nodefault}; - __property TInplaceNumberServices InplaceNumber = {read=FInplaceNumber, write=FInplaceNumber, nodefault}; - __property TNumberServices Number = {read=FNumber, write=FNumber, nodefault}; - __property TSequenceServices Sequence = {read=FSequence, write=FSequence, nodefault}; - __property TMappingServices Mapping = {read=FMapping, write=FMapping, nodefault}; -public: - #pragma option push -w-inl - /* TPersistent.Destroy */ inline __fastcall virtual ~TTypeServices(void) { } - #pragma option pop - -}; - - -class PASCALIMPLEMENTATION TPythonType : public TMethodsContainer -{ - typedef TMethodsContainer inherited; - -protected: - #pragma pack(push, 1) - PyTypeObject FType; - #pragma pack(pop) - - AnsiString FTypeName; - TPythonModule* FModule; - TMetaClass*FPyObjectClass; - AnsiString FPrefix; - AnsiString FCreateFuncName; - TTypeServices* FServices; - #pragma pack(push, 1) - PyNumberMethods FNumber; - #pragma pack(pop) - - #pragma pack(push, 1) - PySequenceMethods FSequence; - #pragma pack(pop) - - #pragma pack(push, 1) - PyMappingMethods FMapping; - #pragma pack(pop) - - AnsiString FCurrentDocString; - Classes::TStringList* FDocString; - AnsiString FCreateFuncDoc; - int FInstanceCount; - int FCreateHits; - int FDeleteHits; - TPFlags FTypeFlags; - virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation); - PPyTypeObject __fastcall GetTypePtr(void); - void __fastcall SetPyObjectClass(TMetaClass* val); - void __fastcall SetModule(TPythonModule* val); - void __fastcall SetServices(TTypeServices* val); - void __fastcall SetTypeName(const AnsiString val); - PPyObject __cdecl CreateMethod(PPyObject pSelf, PPyObject args); - void __fastcall InitServices(void); - void __fastcall SetDocString(Classes::TStringList* value); - int __fastcall TypeFlagsAsInt(void); - int __cdecl Print(PPyObject pSelf, file &f, int i); - PPyObject __cdecl GetAttr(PPyObject pSelf, char * key); - int __cdecl SetAttr(PPyObject pSelf, char * key, PPyObject value); - PPyObject __cdecl Repr(PPyObject pSelf); - int __cdecl Compare(PPyObject pSelf, PPyObject obj); - int __cdecl Hash(PPyObject pSelf); - PPyObject __cdecl Str(PPyObject pSelf); - PPyObject __cdecl GetAttrO(PPyObject pSelf, PPyObject key); - int __cdecl SetAttrO(PPyObject pSelf, PPyObject key, PPyObject value); - PPyObject __cdecl Call(PPyObject pSelf, PPyObject ob1, PPyObject ob2); - int __cdecl Traverse(PPyObject pSelf, visitproc proc, void * ptr); - int __cdecl Clear(PPyObject pSelf); - PPyObject __cdecl RichCmp(PPyObject pSelf, PPyObject obj, int i); - PPyObject __cdecl Iter(PPyObject pSelf); - PPyObject __cdecl IterNext(PPyObject pSelf); - PPyObject __cdecl NbAdd(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbSubstract(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbMultiply(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbDivide(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbFloorDivide(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbTrueDivide(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbRemainder(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbDivmod(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbPower(PPyObject pSelf, PPyObject ob1, PPyObject ob2); - PPyObject __cdecl NbNegative(PPyObject pSelf); - PPyObject __cdecl NbPositive(PPyObject pSelf); - PPyObject __cdecl NbAbsolute(PPyObject pSelf); - int __cdecl NbNonZero(PPyObject pSelf); - PPyObject __cdecl NbInvert(PPyObject pSelf); - PPyObject __cdecl NbLShift(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbRShift(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbAnd(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbXor(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbOr(PPyObject pSelf, PPyObject obj); - int __cdecl NbCoerce(PPyObject pSelf, PPPyObject obj); - PPyObject __cdecl NbInt(PPyObject pSelf); - PPyObject __cdecl NbLong(PPyObject pSelf); - PPyObject __cdecl NbFloat(PPyObject pSelf); - PPyObject __cdecl NbOct(PPyObject pSelf); - PPyObject __cdecl NbHex(PPyObject pSelf); - PPyObject __cdecl NbInplaceAdd(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbInplaceSubtract(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbInplaceMultiply(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbInplaceDivide(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbInplaceFloorDivide(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbInplaceTrueDivide(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbInplaceRemainder(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbInplacePower(PPyObject pSelf, PPyObject ob1, PPyObject ob2); - PPyObject __cdecl NbInplaceLshift(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbInplaceRshift(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbInplaceAnd(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbInplaceXor(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl NbInplaceOr(PPyObject pSelf, PPyObject obj); - int __cdecl SqLength(PPyObject pSelf); - PPyObject __cdecl SqConcat(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl SqRepeat(PPyObject pSelf, int val); - PPyObject __cdecl SqItem(PPyObject pSelf, int idx); - PPyObject __cdecl SqSlice(PPyObject pSelf, int idx1, int idx2); - int __cdecl SqAssItem(PPyObject pSelf, int idx, PPyObject obj); - int __cdecl SqAssSlice(PPyObject pSelf, int idx1, int idx2, PPyObject obj); - int __cdecl SqContains(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl SqInplaceConcat(PPyObject pSelf, PPyObject obj); - PPyObject __cdecl SqInplaceRepeat(PPyObject pSelf, int i); - int __cdecl MpLength(PPyObject pSelf); - PPyObject __cdecl MpSubscript(PPyObject pSelf, PPyObject obj); - int __cdecl MpAssSubscript(PPyObject pSelf, PPyObject obj1, PPyObject obj2); - -public: - __fastcall virtual TPythonType(Classes::TComponent* AOwner); - __fastcall virtual ~TPythonType(void); - virtual void __fastcall Initialize(void); - PPyObject __fastcall CreateInstance(void); - PPyObject __fastcall CreateInstanceWith(PPyObject args); - void __fastcall AddTypeVar(void); - __property PyTypeObject TheType = {read=FType, write=FType}; - __property PPyTypeObject TheTypePtr = {read=GetTypePtr}; - __property TMetaClass* PyObjectClass = {read=FPyObjectClass, write=SetPyObjectClass, stored=false}; - __property int InstanceCount = {read=FInstanceCount, nodefault}; - __property int CreateHits = {read=FCreateHits, nodefault}; - __property int DeleteHits = {read=FDeleteHits, nodefault}; - -__published: - __property Classes::TStringList* DocString = {read=FDocString, write=SetDocString}; - __property AnsiString TypeName = {read=FTypeName, write=SetTypeName}; - __property TPFlags TypeFlags = {read=FTypeFlags, write=FTypeFlags, default=491}; - __property AnsiString Prefix = {read=FPrefix, write=FPrefix}; - __property TPythonModule* Module = {read=FModule, write=SetModule}; - __property TTypeServices* Services = {read=FServices, write=SetServices}; -}; - - -class PASCALIMPLEMENTATION TPyObject : public System::TObject -{ - typedef System::TObject inherited; - -public: - int ob_refcnt; - PyTypeObject *ob_type; - TPythonType* PythonType; - __fastcall virtual TPyObject(TPythonType* APythonType); - __fastcall virtual TPyObject(TPythonType* APythonType, PPyObject args); - __fastcall virtual ~TPyObject(void); - PPyObject __fastcall GetSelf(void); - void __fastcall IncRef(void); - void __fastcall Adjust(void * PyPointer); - TPythonModule* __fastcall GetModule(void); - virtual int __fastcall Print(file &f, int i); - virtual PPyObject __fastcall GetAttr(char * key); - virtual int __fastcall SetAttr(char * key, PPyObject value); - virtual PPyObject __fastcall Repr(void); - virtual int __fastcall Compare(PPyObject obj); - virtual int __fastcall Hash(void); - virtual PPyObject __fastcall Str(void); - virtual PPyObject __fastcall GetAttrO(PPyObject key); - virtual int __fastcall SetAttrO(PPyObject key, PPyObject value); - virtual PPyObject __fastcall Call(PPyObject ob1, PPyObject ob2); - virtual int __fastcall Traverse(visitproc proc, void * ptr); - virtual int __fastcall Clear(void); - virtual PPyObject __fastcall RichCompare(PPyObject obj, TRichComparisonOpcode Op); - virtual PPyObject __fastcall Iter(void); - virtual PPyObject __fastcall IterNext(void); - virtual PPyObject __fastcall NbAdd(PPyObject obj); - virtual PPyObject __fastcall NbSubstract(PPyObject obj); - virtual PPyObject __fastcall NbMultiply(PPyObject obj); - virtual PPyObject __fastcall NbDivide(PPyObject obj); - virtual PPyObject __fastcall NbFloorDivide(PPyObject obj); - virtual PPyObject __fastcall NbTrueDivide(PPyObject obj); - virtual PPyObject __fastcall NbRemainder(PPyObject obj); - virtual PPyObject __fastcall NbDivmod(PPyObject obj); - virtual PPyObject __fastcall NbPower(PPyObject ob1, PPyObject ob2); - virtual PPyObject __fastcall NbNegative(void); - virtual PPyObject __fastcall NbPositive(void); - virtual PPyObject __fastcall NbAbsolute(void); - virtual int __fastcall NbNonZero(void); - virtual PPyObject __fastcall NbInvert(void); - virtual PPyObject __fastcall NbLShift(PPyObject obj); - virtual PPyObject __fastcall NbRShift(PPyObject obj); - virtual PPyObject __fastcall NbAnd(PPyObject obj); - virtual PPyObject __fastcall NbXor(PPyObject obj); - virtual PPyObject __fastcall NbOr(PPyObject obj); - virtual int __fastcall NbCoerce(PPPyObject obj); - virtual PPyObject __fastcall NbInt(void); - virtual PPyObject __fastcall NbLong(void); - virtual PPyObject __fastcall NbFloat(void); - virtual PPyObject __fastcall NbOct(void); - virtual PPyObject __fastcall NbHex(void); - virtual PPyObject __fastcall NbInplaceAdd(PPyObject obj); - virtual PPyObject __fastcall NbInplaceSubtract(PPyObject obj); - virtual PPyObject __fastcall NbInplaceMultiply(PPyObject obj); - virtual PPyObject __fastcall NbInplaceDivide(PPyObject obj); - virtual PPyObject __fastcall NbInplaceFloorDivide(PPyObject obj); - virtual PPyObject __fastcall NbInplaceTrueDivide(PPyObject obj); - virtual PPyObject __fastcall NbInplaceRemainder(PPyObject obj); - virtual PPyObject __fastcall NbInplacePower(PPyObject ob1, PPyObject ob2); - virtual PPyObject __fastcall NbInplaceLshift(PPyObject obj); - virtual PPyObject __fastcall NbInplaceRshift(PPyObject obj); - virtual PPyObject __fastcall NbInplaceAnd(PPyObject obj); - virtual PPyObject __fastcall NbInplaceXor(PPyObject obj); - virtual PPyObject __fastcall NbInplaceOr(PPyObject obj); - virtual int __fastcall SqLength(void); - virtual PPyObject __fastcall SqConcat(PPyObject obj); - virtual PPyObject __fastcall SqRepeat(int val); - virtual PPyObject __fastcall SqItem(int idx); - virtual PPyObject __fastcall SqSlice(int idx1, int idx2); - virtual int __fastcall SqAssItem(int idx, PPyObject obj); - virtual int __fastcall SqAssSlice(int idx1, int idx2, PPyObject obj); - virtual int __fastcall SqContains(PPyObject obj); - virtual PPyObject __fastcall SqInplaceConcat(PPyObject obj); - virtual PPyObject __fastcall SqInplaceRepeat(int i); - virtual int __fastcall MpLength(void); - virtual PPyObject __fastcall MpSubscript(PPyObject obj); - virtual int __fastcall MpAssSubscript(PPyObject obj1, PPyObject obj2); - /* virtual class method */ virtual void __fastcall RegisterMethods(TMetaClass* vmt, TPythonType* PythonType); -}; - - -typedef void __fastcall (__closure *TGetDataEvent)(System::TObject* Sender, Variant &Data); - -typedef void __fastcall (__closure *TSetDataEvent)(System::TObject* Sender, const Variant &Data); - -typedef void __fastcall (__closure *TExtGetDataEvent)(System::TObject* Sender, PPyObject &Data); - -typedef void __fastcall (__closure *TExtSetDataEvent)(System::TObject* Sender, PPyObject Data); - -class DELPHICLASS TPythonDelphiVar; -class PASCALIMPLEMENTATION TPythonDelphiVar : public TEngineClient -{ - typedef TEngineClient inherited; - -protected: - AnsiString FModule; - AnsiString FVarName; - PyObject *FVarObject; - TPythonType* FVarType; - TGetDataEvent FOnGetData; - TSetDataEvent FOnSetData; - TExtGetDataEvent FOnExtGetData; - TExtSetDataEvent FOnExtSetData; - Classes::TNotifyEvent FOnChange; - void __fastcall CreateVarType(void); - void __fastcall CreateVar(void); - Variant __fastcall GetValue(); - void __fastcall SetValue(const Variant &val); - PPyObject __fastcall GetValueAsPyObject(void); - void __fastcall SetValueFromPyObject(PPyObject val); - AnsiString __fastcall GetValueAsString(); - void __fastcall SetVarName(const AnsiString val); - -public: - __fastcall virtual TPythonDelphiVar(Classes::TComponent* AOwner); - virtual void __fastcall Initialize(void); - virtual void __fastcall Finalize(void); - bool __fastcall IsVariantOk(const Variant &v); - __property Variant Value = {read=GetValue, write=SetValue}; - __property PPyObject ValueObject = {read=GetValueAsPyObject, write=SetValueFromPyObject}; - __property AnsiString ValueAsString = {read=GetValueAsString}; - __property PPyObject VarObject = {read=FVarObject, write=FVarObject}; - -__published: - __property AnsiString Module = {read=FModule, write=FModule}; - __property AnsiString VarName = {read=FVarName, write=SetVarName}; - __property TGetDataEvent OnGetData = {read=FOnGetData, write=FOnGetData}; - __property TSetDataEvent OnSetData = {read=FOnSetData, write=FOnSetData}; - __property TExtGetDataEvent OnExtGetData = {read=FOnExtGetData, write=FOnExtGetData}; - __property TExtSetDataEvent OnExtSetData = {read=FOnExtSetData, write=FOnExtSetData}; - __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange}; -public: - #pragma option push -w-inl - /* TEngineClient.Destroy */ inline __fastcall virtual ~TPythonDelphiVar(void) { } - #pragma option pop - -}; - - -class DELPHICLASS TPyVar; -class PASCALIMPLEMENTATION TPyVar : public TPyObject -{ - typedef TPyObject inherited; - -public: - Variant dv_var; - TPythonDelphiVar* dv_component; - PyObject *dv_object; - __fastcall virtual TPyVar(TPythonType* APythonType); - __fastcall virtual TPyVar(TPythonType* PythonType, PPyObject args); - __fastcall virtual ~TPyVar(void); - virtual PPyObject __fastcall GetAttr(char * key); - virtual int __fastcall SetAttr(char * key, PPyObject value); - virtual PPyObject __fastcall Repr(void); - /* virtual class method */ virtual void __fastcall RegisterMethods(TMetaClass* vmt, TPythonType* PythonType); - PPyObject __fastcall GetValue(void); - Variant __fastcall GetValueAsVariant(); - void __fastcall SetValue(PPyObject value); - void __fastcall SetValueFromVariant(const Variant &value); -}; - - -#pragma option push -b- -enum TThreadExecMode { emNewState, emNewInterpreter }; -#pragma option pop - -class DELPHICLASS TPythonThread; -class PASCALIMPLEMENTATION TPythonThread : public Classes::TThread -{ - typedef Classes::TThread inherited; - -private: - PyThreadState *f_savethreadstate; - PyInterpreterState *fInterpreterState; - PyThreadState *fThreadState; - TThreadExecMode fThreadExecMode; - virtual void __fastcall Execute(void); - -protected: - virtual void __fastcall ExecuteWithPython(void) = 0 ; - void __fastcall Py_Begin_Allow_Threads(void); - void __fastcall Py_End_Allow_Threads(void); - void __fastcall Py_Begin_Block_Threads(void); - void __fastcall Py_Begin_Unblock_Threads(void); - -public: - __property PPyInterpreterState InterpreterState = {read=fInterpreterState, write=fInterpreterState, default=0}; - __property PPyThreadState ThreadState = {read=fThreadState, write=fThreadState}; - __property TThreadExecMode ThreadExecMode = {read=fThreadExecMode, nodefault}; -public: - #pragma option push -w-inl - /* TThread.Create */ inline __fastcall TPythonThread(bool CreateSuspended) : Classes::TThread(CreateSuspended) { } - #pragma option pop - #pragma option push -w-inl - /* TThread.Destroy */ inline __fastcall virtual ~TPythonThread(void) { } - #pragma option pop - -}; - - -//-- var, const, procedure --------------------------------------------------- -extern PACKAGE TPythonVersionProp PYTHON_KNOWN_VERSIONS[7]; -static const Shortint COMPILED_FOR_PYTHON_VERSION_INDEX = 0x7; -static const Shortint PYT_METHOD_BUFFER_INCREASE = 0xa; -static const Shortint METH_VARARGS = 0x1; -static const Shortint METH_KEYWORDS = 0x2; -static const Shortint CO_OPTIMIZED = 0x1; -static const Shortint CO_NEWLOCALS = 0x2; -static const Shortint CO_VARARGS = 0x4; -static const Shortint CO_VARKEYWORDS = 0x8; -static const Shortint Py_LT = 0x0; -static const Shortint Py_LE = 0x1; -static const Shortint Py_EQ = 0x2; -static const Shortint Py_NE = 0x3; -static const Shortint Py_GT = 0x4; -static const Shortint Py_GE = 0x5; -static const Shortint Py_TPFLAGS_HAVE_GETCHARBUFFER = 0x1; -static const Shortint Py_TPFLAGS_HAVE_SEQUENCE_IN = 0x2; -static const Shortint Py_TPFLAGS_GC = 0x4; -static const Shortint Py_TPFLAGS_HAVE_INPLACEOPS = 0x8; -static const Shortint Py_TPFLAGS_CHECKTYPES = 0x10; -static const Shortint Py_TPFLAGS_HAVE_RICHCOMPARE = 0x20; -static const Shortint Py_TPFLAGS_HAVE_WEAKREFS = 0x40; -static const Byte Py_TPFLAGS_HAVE_ITER = 0x80; -static const Word Py_TPFLAGS_HAVE_CLASS = 0x100; -static const Word Py_TPFLAGS_HEAPTYPE = 0x200; -static const Word Py_TPFLAGS_BASETYPE = 0x400; -static const Word Py_TPFLAGS_READY = 0x1000; -static const Word Py_TPFLAGS_READYING = 0x2000; -static const Word Py_TPFLAGS_HAVE_GC = 0x4000; -static const Word Py_TPFLAGS_DEFAULT = 0x1eb; -#define TPFLAGS_DEFAULT (System::Set () << TPFlag(0) << TPFlag(1) << TPFlag(3) << TPFlag(5) << TPFlag(6) << TPFlag(7) << TPFlag(8) ) -static const Word single_input = 0x100; -static const Word file_input = 0x101; -static const Word eval_input = 0x102; -static const Word funcdef = 0x103; -static const Word parameters = 0x104; -static const Word varargslist = 0x105; -static const Word fpdef = 0x106; -static const Word fplist = 0x107; -static const Word stmt = 0x108; -static const Word simple_stmt = 0x109; -static const Word small_stmt = 0x10a; -static const Word expr_stmt = 0x10b; -static const Word augassign = 0x10c; -static const Word print_stmt = 0x10d; -static const Word del_stmt = 0x10e; -static const Word pass_stmt = 0x10f; -static const Word flow_stmt = 0x110; -static const Word break_stmt = 0x111; -static const Word continue_stmt = 0x112; -static const Word return_stmt = 0x113; -static const Word raise_stmt = 0x114; -static const Word import_stmt = 0x115; -static const Word import_as_name = 0x116; -static const Word dotted_as_name = 0x117; -static const Word dotted_name = 0x118; -static const Word global_stmt = 0x119; -static const Word exec_stmt = 0x11a; -static const Word assert_stmt = 0x11b; -static const Word compound_stmt = 0x11c; -static const Word if_stmt = 0x11d; -static const Word while_stmt = 0x11e; -static const Word for_stmt = 0x11f; -static const Word try_stmt = 0x120; -static const Word except_clause = 0x121; -static const Word suite = 0x122; -static const Word test = 0x123; -static const Word and_test = 0x123; -static const Word not_test = 0x125; -static const Word comparison = 0x126; -static const Word comp_op = 0x127; -static const Word expr = 0x128; -static const Word xor_expr = 0x129; -static const Word and_expr = 0x12a; -static const Word shift_expr = 0x12b; -static const Word arith_expr = 0x12c; -static const Word term = 0x12d; -static const Word factor = 0x12e; -static const Word power = 0x12f; -static const Word atom = 0x130; -static const Word listmaker = 0x131; -static const Word lambdef = 0x132; -static const Word trailer = 0x133; -static const Word subscriptlist = 0x134; -static const Word subscript = 0x135; -static const Word sliceop = 0x136; -static const Word exprlist = 0x137; -static const Word testlist = 0x138; -static const Word dictmaker = 0x139; -static const Word classdef = 0x13a; -static const Word arglist = 0x13b; -static const Word argument = 0x13c; -static const Word list_iter = 0x13d; -static const Word list_for = 0x13e; -static const Word list_if = 0x13f; -static const short ErrInit = 0xfffffed4; -static const char CR = '\xd'; -static const char LF = '\xa'; -static const char TAB = '\x9'; -#define CRLF "\r\n" -static const Shortint _PyDateTime_DATE_DATASIZE = 0x4; -static const Shortint _PyDateTime_TIME_DATASIZE = 0x6; -static const Shortint _PyDateTime_DATETIME_DATASIZE = 0xa; -static const Word kMaxLines = 0x3e8; -static const Word kMaxLineLength = 0x100; -#define DEFAULT_DATETIME_CONVERSION_MODE (TDatetimeConversionMode)(0) -static const Shortint kObjectOffset = 0x4; -extern PACKAGE TPyObject* __fastcall PythonToDelphi(PPyObject obj); -extern PACKAGE void __cdecl PyObjectDestructor(PPyObject pSelf); -extern PACKAGE PPyObject __cdecl pyio_write(PPyObject self, PPyObject args); -extern PACKAGE PPyObject __cdecl pyio_read(PPyObject self, PPyObject args); -extern PACKAGE PPyObject __cdecl pyio_SetDelayWrites(PPyObject self, PPyObject args); -extern PACKAGE PPyObject __cdecl pyio_SetMaxLines(PPyObject self, PPyObject args); -extern PACKAGE PPyObject __cdecl pyio_GetTypesStats(PPyObject self, PPyObject args); -extern PACKAGE TPythonEngine* __fastcall GetPythonEngine(void); -extern PACKAGE bool __fastcall PythonOK(void); -extern PACKAGE bool __fastcall IsDelphiObject(PPyObject obj); -extern PACKAGE void __fastcall Register(void); -extern PACKAGE bool __fastcall PyType_HasFeature(PPyTypeObject AType, int AFlag); - -} /* namespace Pythonengine */ -using namespace Pythonengine; -#pragma option pop // -w- -#pragma option pop // -Vx - -#pragma delphiheader end. -//-- end unit ---------------------------------------------------------------- -#endif // PythonEngine diff --git a/Source/PythonGUIInputOutput.hpp b/Source/PythonGUIInputOutput.hpp deleted file mode 100644 index b21886a5..00000000 --- a/Source/PythonGUIInputOutput.hpp +++ /dev/null @@ -1,70 +0,0 @@ -// Borland C++ Builder -// Copyright (c) 1995, 2002 by Borland Software Corporation -// All rights reserved - -// (DO NOT EDIT: machine generated header) 'PythonGUIInputOutput.pas' rev: 6.00 - -#ifndef PythonGUIInputOutputHPP -#define PythonGUIInputOutputHPP - -#pragma delphiheader begin -#pragma option push -w- -#pragma option push -Vx -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit -#include // Pascal unit - -//-- user supplied ----------------------------------------------------------- - -namespace Pythonguiinputoutput -{ -//-- type declarations ------------------------------------------------------- -class DELPHICLASS TPythonGUIInputOutput; -class PASCALIMPLEMENTATION TPythonGUIInputOutput : public Pythonengine::TPythonInputOutput -{ - typedef Pythonengine::TPythonInputOutput inherited; - -private: - Stdctrls::TCustomMemo* FCustomMemo; - HWND FWinHandle; - -protected: - void __fastcall pyGUIOutputWndProc(Messages::TMessage &Message); - virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation); - virtual void __fastcall SendData(const AnsiString Data); - virtual AnsiString __fastcall ReceiveData(); - virtual void __fastcall AddPendingWrite(void); - void __fastcall WriteOutput(void); - -public: - __fastcall virtual TPythonGUIInputOutput(Classes::TComponent* AOwner); - __fastcall virtual ~TPythonGUIInputOutput(void); - void __fastcall DisplayString(const AnsiString str); - -__published: - __property Stdctrls::TCustomMemo* Output = {read=FCustomMemo, write=FCustomMemo}; -}; - - -//-- var, const, procedure --------------------------------------------------- -static const Word WM_WriteOutput = 0x401; -extern PACKAGE void __fastcall Register(void); - -} /* namespace Pythonguiinputoutput */ -using namespace Pythonguiinputoutput; -#pragma option pop // -w- -#pragma option pop // -Vx - -#pragma delphiheader end. -//-- end unit ---------------------------------------------------------------- -#endif // PythonGUIInputOutput